rc4vbs.txt

RC4加密算法的VBS版.我还不容易在网上找到的啊

Function RC4(inp,key)
' //RC4加密算法的VBS版
' //by fisker

    Dim S(255), K(255), i
    Dim j, temp, Y, t, x
    Dim Outp 

    For i = 0 To 255
    S(i) = i
    Next

    j = 1
    For i = 0 To 255
    If j > Len(key) Then j = 1
    K(i) = Asc(mid(key, j, 1))
    j = j + 1
    Next

    j = 0
    For i = 0 To 255
    j = (j + S(i) + K(i)) Mod 256
    temp = S(i)
    S(i) = S(j)
    S(j) = temp
    Next

    i = 0
    j = 0
    For x = 1 To Len(inp)
    i = (i + 1) Mod 256
    j = (j + S(i)) Mod 256
    temp = S(i)
    S(i) = S(j)
    S(j) = temp
    t = (S(i) + (S(j) Mod 256)) Mod 256
    Y = S(t)

    'Outp = Outp & (Asc(mid(inp, x, 1)) Xor Y)    
    Outp = Outp & Chr(Asc(mid(inp, x, 1)) Xor Y)  'RC4算法
    next

    RC4 = Outp

End Function