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