1 Function RC4(data, Key) 2 Dim s(256), k(256), outstr, Acii, j, tst, xre1, xre2, temp, x, t, y, qwe, zxc 3 For i = 1 To 256 4 s(i) = i - 1 5 Next 6 j = 1 7 For i = 1 To 256 8 dex = dex + 1 9 If j > Len(Key) Then 10 j = 1 11 End If 12 Acii = Asc(Mid(Key, j, 1)) 13 If Acii < 0 Then 14 tst = Hex(Acii) 15 xre1 = Mid(tst, 1, 2) 16 xre2 = Mid(tst, 3, 2) 17 k(i) = Int("&H" & xre1) 18 k(i + 1) = Int("&H" & xre2) 19 i = i + 1 20 Else 21 k(i) = Acii 22 End If 23 j = j + 1 24 Next 25 j = 0 26 For i = 1 To 256 27 j = (j + s(i) + k(i)) Mod 256 + 1 28 temp = s(i) 29 s(i) = s(j) 30 s(j) = temp 31 Next 32 j = 0 33 For i = 1 To Len(data) 34 x = (x + 1) Mod 256 + 1 35 j = (j + s(x)) Mod 256 + 1 36 temp = s(x) 37 s(x) = s(j) 38 s(j) = temp 39 t = (s(x) + s(j) Mod 256) Mod 256 + 1 40 y = s(t) 41 Acii = Asc(Mid(data, i, 1)) 42 If Acii < 0 Then 43 tst = Hex(Acii) 44 qwe = qwe + 1 45 If qwe >= 2 Then 46 zxc = Int("&H" & Mid(tst, 3, 2)) 47 qwe = 0 48 Else 49 zxc = Int("&H" & Mid(tst, 1, 2)) 50 i = i -1 51 End If 52 Else 53 zxc = Acii 54 End If 55 outstr = outstr & Bitsor(zxc, y) 56 Next 57 RC4 = outstr 58 End Function 59 60 Function Bitsor(x, y) 61 Dim Mx, Hx, Wx 62 Mx = 0 63 Hx = 0 64 Wx = 0 65 Mx = x And y 66 Mx = Mx * 2 67 Hx = Hex(X + y - Mx) 68 If Len(Hx) > 1 Then 69 Wx = Hx 70 Else 71 Wx = "0" & Hx 72 End If 73 Bitsor = Wx 74 End Function