Code:
Dim rTable() As String
Private Sub Form_Load()
Dim sTable As String
sTable = "1F CA 29 AC 03 1E 2D A0 27 B2 71 D4 8B 86 F5 48 "
sTable = sTable & "2F 9A B9 FC 13 EE BD F0 37 82 01 24 9B 56 85 98 "
sTable = sTable & "3F 6A 49 4C 23 BE 4D 40 47 52 91 74 AB 26 15 E8 "
sTable = sTable & "4F 3A D9 9C 33 8E DD 90 57 22 21 C4 BB F6 A5 38 "
sTable = sTable & "5F 0A 69 EC 43 5E 6D E0 67 F2 B1 14 CB C6 35 88 "
sTable = sTable & "6F DA F9 3C 53 2E FD 30 77 C2 41 64 DB 96 C5 D8 "
sTable = sTable & "7F AA 89 8C 63 FE 8D 80 87 92 D1 B4 EB 66 55 28 "
sTable = sTable & "8F 7A 19 DC 73 CE 1D D0 97 62 61 04 FB 36 E5 78 "
sTable = sTable & "9F 4A A9 2C 83 9E AD 20 A7 32 F1 54 0B 06 75 C8 "
sTable = sTable & "AF 1A 39 7C 93 6E 3D 70 B7 02 81 A4 1B D6 05 18 "
sTable = sTable & "BF EA C9 CC A3 3E CD C0 C7 D2 11 F4 2B A6 95 68 "
sTable = sTable & "CF BA 59 1C B3 0E 5D 10 D7 A2 A1 44 3B 76 25 B8 "
sTable = sTable & "DF 8A E9 6C C3 DE ED 60 E7 72 31 94 4B 46 B5 08 "
sTable = sTable & "EF 5A 79 BC D3 AE 7D B0 F7 42 C1 E4 5B 16 45 58 "
sTable = sTable & "FF 2A 09 0C E3 7E 0D 00 07 12 51 34 6B E6 D5 A8 "
sTable = sTable & "0F FA 99 5C F3 4E 9D 50 17 E2 E1 84 7B B6 65 F8"
rTable = Split(sTable, " ")
If UBound(rTable) <> 255 Then
Debug.Print "Error parsing table, size is: "; UBound(rTable)
End If
End Sub
Private Function CryptData(sData As String) As String
Dim iCount As Integer
Dim BL As Integer
Dim DL As Integer
iCount = 0
For i = 0 To Len(sData) - 2
BL = "&H" & Mid(sData, i + 1, 2)
DL = "&H" & rTable(iCount)
DL = BL Xor DL
BL = &H3F
BL = BL Xor DL
If Len(Hex(BL)) = 1 Then
CryptData = CryptData & "0" & Hex(BL)
Else
CryptData = CryptData & Hex(BL)
End If
i = i + 1
iCount = iCount + 1
Next i
End Function
Greetings and a merry x-mas from clearscreen (also known from the SREmu project)
