摘要： 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) Then10 j = 111 End If12 ... 阅读全文