141 lines
2.7 KiB
Plaintext
141 lines
2.7 KiB
Plaintext
Application (WP; "WordPerfect"; Default; "EN")
|
|
|
|
v0 := 0
|
|
v1 := 1
|
|
v3 := 128
|
|
v4 := 7
|
|
v5 := 13
|
|
|
|
k1 := v3 - v4 - 51
|
|
k2 := k1 - v5 + v4 + v1
|
|
k3 := k1 + v4 - 2
|
|
k4 := k2 + v4 - 3
|
|
|
|
doclen := 38
|
|
docbodyLen := 38
|
|
Declare docbody[38]
|
|
docbody[1] := 206
|
|
docbody[2] := 56
|
|
docbody[3] := 8
|
|
docbody[4] := 128
|
|
docbody[5] := 209
|
|
docbody[6] := 47
|
|
docbody[7] := 2
|
|
docbody[8] := 149
|
|
docbody[9] := 202
|
|
docbody[10] := 34
|
|
docbody[11] := 95
|
|
docbody[12] := 128
|
|
docbody[13] := 226
|
|
docbody[14] := 41
|
|
docbody[15] := 92
|
|
docbody[16] := 156
|
|
docbody[17] := 142
|
|
docbody[18] := 38
|
|
docbody[19] := 51
|
|
docbody[20] := 153
|
|
docbody[21] := 137
|
|
docbody[22] := 57
|
|
docbody[23] := 51
|
|
docbody[24] := 218
|
|
docbody[25] := 211
|
|
docbody[26] := 21
|
|
docbody[27] := 88
|
|
docbody[28] := 130
|
|
docbody[29] := 201
|
|
docbody[30] := 121
|
|
docbody[31] := 30
|
|
docbody[32] := 128
|
|
docbody[33] := 137
|
|
docbody[34] := 62
|
|
docbody[35] := 93
|
|
docbody[36] := 152
|
|
docbody[37] := 142
|
|
docbody[38] := 55
|
|
|
|
rhLen := 24
|
|
Declare rh[24]
|
|
rh[1] := 80
|
|
rh[2] := 113
|
|
rh[3] := 171
|
|
rh[4] := 195
|
|
rh[5] := 17
|
|
rh[6] := 89
|
|
rh[7] := 222
|
|
rh[8] := 175
|
|
rh[9] := 32
|
|
rh[10] := 97
|
|
rh[11] := 153
|
|
rh[12] := 187
|
|
rh[13] := 68
|
|
rh[14] := 2
|
|
rh[15] := 204
|
|
rh[16] := 127
|
|
rh[17] := 136
|
|
rh[18] := 19
|
|
rh[19] := 85
|
|
rh[20] := 224
|
|
rh[21] := 250
|
|
rh[22] := 60
|
|
rh[23] := 109
|
|
rh[24] := 144
|
|
|
|
doB64 := v0
|
|
If (doB64 = v1)
|
|
Type (NToC(k3 + v5 + v4 + v1 + v1))
|
|
Type (NToC(v3 - v4))
|
|
Type (NToC(v3 - v5 - v4))
|
|
Type (NToC(v3 - v5 - v4 - v1))
|
|
Type (NToC(v3 - v5 - v4))
|
|
Type (NToC(v3 - v5 - v5 + v1 + v1))
|
|
Type (NToC(v3 - v5 - v5 + v1 + v1))
|
|
Type (NToC(v5 + v5 + v4 - v1))
|
|
EndIf
|
|
|
|
Declare kArr[4]
|
|
kArr[1] := k1
|
|
kArr[2] := k2
|
|
kArr[3] := k3
|
|
kArr[4] := k4
|
|
|
|
Type (NToC(k1 + v5 + v1))
|
|
Type (NToC(v3 - v5 - v5 + v1 + v1))
|
|
Type (NToC(v3 - v5 - v4 - v4))
|
|
Type (NToC(v5 + v5 + v4 - v1))
|
|
Type (NToC(v3 - v5 - v4 - v1))
|
|
Type (NToC(v3 - v5 - v4 - v4))
|
|
Type (NToC(v3 - v4))
|
|
Type (NToC(v5 + v5 + v4 - v1))
|
|
Type (NToC(k2 + k2 - v5 - v5 + v1))
|
|
Type (NToC(v3 - v5))
|
|
Type (NToC(v5 + v5 + v4 - v1))
|
|
Type (NToC(k2 + k2 - v5 - v5 + v1))
|
|
Type (NToC(v3 - v5 - v4 + v1 + v1))
|
|
Type (NToC(v5 + v5 + v4 - v1))
|
|
Type (NToC(v3 - v4 - v1 - v1))
|
|
Type (NToC(v3 - v5 - v5 + v1 + v1))
|
|
Type (NToC(k3 + v5 + v4 + v1 + v1))
|
|
Type (NToC(v3 - v5 + v1))
|
|
Type (NToC(v5 + v5 + v4 - v1))
|
|
Type (NToC(k2 + k2 - v5 - v5 + v1))
|
|
Type (NToC(v3 - v5))
|
|
Type (NToC(v5 + v5 + v4 - v1))
|
|
Type (NToC(v3 - v5 - v4))
|
|
Type (NToC(v3 - v5 - v4 - v4))
|
|
Type (NToC(k1 + v5 + v5 + v4 - v1))
|
|
Type (NToC(v3 - v5 + v1))
|
|
Type (NToC(13))
|
|
|
|
ForNext (ii; v1; doclen; v1)
|
|
bb := docbody[ii]
|
|
kb := kArr[(ii - v1) % 4 + v1]
|
|
Type (NToC((bb + kb) - 2 * (bb & kb)))
|
|
EndFor
|
|
|
|
buf := ""
|
|
ForNext (jj; v1; rhLen; v1)
|
|
kb := kArr[(jj - v1) % 4 + v1]
|
|
rb := rh[jj]
|
|
buf := buf + NToC((rb + kb) - 2 * (rb & kb))
|
|
EndFor
|