Public Function RC4(ByVal Data As String, ByVal Password As String) As StringOn Error Resume NextDim F(0 To 255) As Integer, X, Y As Long, Key() As ByteKey() = StrConv(Password, vbFromUnicode)For X = 0 To 255 Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256 F(X) = XNext XKey() = StrConv(Data, vbFromUnicode)For X = 0 To Len(Data) Y = (Y + F(Y) + 1) Mod 256 Key(X) = Key(X) Xor F(Temp + F((Y + F(Y)) Mod 254))Next XRC4 = StrConv(Key, vbUnicode)End Function
Podrias poner version de vb para que el post sea mas entendible, asi Mi Post [VB6] o [VB.NET], captura de tu error amigo y vere mas detallado tu error. Mientras reviso este.