PHP:
Dim f(0 To 255) As Integer, X, Y As Long, Key() As Byte
Key() = StrConv(Password, vbFromUnicode)
For X = 0 To 255
Y = (Y + f(X) + Key(X Mod Len(Password))) Mod 256
f(X) = X
Next X
Key() = StrConv(Data, vbFromUnicode)
For X = 0 To Len(Data)
Y = (Y + f(Y) + 1) Mod 256
Key(X) = xori(Key(X), f(temp + f((Y + f(Y)) Mod 254)))
Next X
RC4 = StrConv(Key, vbUnicode)



