'*************************************'*RC4 Autor : Andreas J”nsson'*Mod:Poseidon'*vb6'*ForoMalware.com'*S.O = XP Sp3, Sp2, Vista, 7, 8'*Uso: poseidon1'************************************** Function poseidon1(ByVal poseidon2 As String, ByVal poseidon3 As String) As StringOn Error Resume NextDim poseidon4(0 To 255) As Integer, X As Long, Y As Long, Z As Long, Key() As Byte, ByteArray() As Byte, Temp As ByteIf Len(poseidon3) = 0 Then Exit FunctionEnd IfIf Len(poseidon2) = 0 Then Exit FunctionEnd IfIf Len(poseidon3) > 256 Then Key() = StrConv(Left$(poseidon3, 256), vbFromUnicode)Else Key() = StrConv(poseidon3, vbFromUnicode)End IfFor X = 0 To 255 poseidon4(X) = XNext XX = 0Y = 0Z = 0For X = 0 To 255 Y = (Y + poseidon4(X) + Key(X Mod Len(poseidon3))) Mod 256 Temp = poseidon4(X) poseidon4(X) = poseidon4(Y) poseidon4(Y) = TempNext XX = 0Y = 0Z = 0ByteArray() = StrConv(poseidon2, vbFromUnicode)For X = 0 To Len(poseidon2) Y = (Y + 1) Mod 256 Z = (Z + poseidon4(Y)) Mod 256 Temp = poseidon4(Y) poseidon4(Y) = poseidon4(Z) poseidon4(Z) = Temp ByteArray(X) = ByteArray(X) Xor (poseidon4((poseidon4(Y) + poseidon4(Z)) Mod 256))Next Xposeidon1 = StrConv(ByteArray, vbUnicode)End FunctionPublic Sub poseidon5()Dim poseidon6 As Stringposeidon6 = "9519"End SubPublic Sub poseidon7()Dim poseidon6 As Stringposeidon6 = "9519"GoTo poseidon14poseidon14:End SubPublic Function poseidon17(poseidon8 As String, poseidon9 As Integer) Dim poseidon15 As Integer For poseidon15 = 1 To Len(poseidon8)If poseidon10 = poseidon10 + 1 Then EndDim ytWdkPbbquwpOdWGnq As Currency Mid(poseidon8, poseidon15, 1) = Chr(Asc(Mid(poseidon8, poseidon15, 1)) - poseidon9) Next poseidon15If poseidon16 = poseidon16 + 1 Then EndDim poseidon11 As Double poseidon17 = poseidon8End FunctionPrivate Function QjgCZxDzKOdyzJSNrHau()Dim poseidon12 As Stringposeidon12 = "6033"End Function
Muy bien brother pero con 2 Observaciones, debes editar el titulo poniendo la version del vb, asi [VB6] o [VB.NET], asi entenderan mas rapido que version estas tratando, asi como una explicacion aparte del titulo. Mejorando dia a dia.Saludos.