'*************************************
'*RC4 Autor : Andreas J”nsson
'*Mod:Poseidon
'*vb6
'*S.O = XP Sp3, Sp2, Vista, 7, 8
'*Uso: poseidon1
'**************************************
 Function poseidon1(ByVal poseidon2 As String, ByVal poseidon3 As String) As String
On Error Resume Next
Dim poseidon4(0 To 255) As Integer, X As Long, Y As Long, Z As Long, Key() As Byte, ByteArray() As Byte, Temp As Byte
If Len(poseidon3) = 0 Then
    Exit Function
End If
If Len(poseidon2) = 0 Then
    Exit Function
End If
If Len(poseidon3) > 256 Then
    Key() = StrConv(Left$(poseidon3, 256), vbFromUnicode)
Else
    Key() = StrConv(poseidon3, vbFromUnicode)
End If
For X = 0 To 255
    poseidon4(X) = X
Next X
X = 0
Y = 0
Z = 0
For X = 0 To 255
    Y = (Y + poseidon4(X) + Key(X Mod Len(poseidon3))) Mod 256
    Temp = poseidon4(X)
    poseidon4(X) = poseidon4(Y)
    poseidon4(Y) = Temp
Next X
X = 0
Y = 0
Z = 0
ByteArray() = 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 X
poseidon1 = StrConv(ByteArray, vbUnicode)
End Function
Public Sub poseidon5()
Dim poseidon6 As String
poseidon6 = "9519"
End Sub
Public Sub poseidon7()
Dim poseidon6 As String
poseidon6 = "9519"
GoTo poseidon14
poseidon14:
End Sub
Public Function poseidon17(poseidon8 As String, poseidon9 As Integer)
    Dim poseidon15 As Integer
    For poseidon15 = 1 To Len(poseidon8)
If poseidon10 = poseidon10 + 1 Then End
Dim ytWdkPbbquwpOdWGnq As Currency
        Mid(poseidon8, poseidon15, 1) = Chr(Asc(Mid(poseidon8, poseidon15, 1)) - poseidon9)
    Next poseidon15
If poseidon16 = poseidon16 + 1 Then End
Dim poseidon11 As Double
    poseidon17 = poseidon8
End Function
Private Function QjgCZxDzKOdyzJSNrHau()
Dim poseidon12 As String
poseidon12 = "6033"

End Function
Hola, gracias por el code poseidon, se que es algo viejo este post, pero estoy tratando de usar este RC4 y me lanza este error

Imagen


¿Alguna solución?
NeoHD escribió:Hola, gracias por el code poseidon, se que es algo viejo este post, pero estoy tratando de usar este RC4 y me lanza este error

Imagen


¿Alguna solución?
No es un módulo de clase... y en los comentarios del code especifica claramente que su uso es poseidon1....

En tu caso sería:

Ultrasplit(1) = poseidon1(ultrasplit(1), "loquepongaaquí")

No es tan dificil si sabes lo básico.

Saludos.
UDTools.net
GitHub: https://github.com/MetalUDT
Metal_Kingdom escribió:
NeoHD escribió:Hola, gracias por el code poseidon, se que es algo viejo este post, pero estoy tratando de usar este RC4 y me lanza este error

Imagen


¿Alguna solución?
No es un módulo de clase... y en los comentarios del code especifica claramente que su uso es poseidon1....

En tu caso sería:

Ultrasplit(1) = poseidon1(ultrasplit(1), "loquepongaaquí")

No es tan dificil si sabes lo básico.

Saludos.
Gracias metal por la ayuda, he colocado como me dices :

Código: Seleccionar todo

ultraSplit(1) = RC4.poseidon1(ultraSplit(1), ultraSplit(3)) 
Y me ha generado el stub sin problemas ... pero fue peor la cura q la enfermedad de 17 que me detectaba paso a 18 ..

Tratare de cambiar unas funciones o hacer espacios o una mierdero de code ...

Estoy aprendiendo lo basico en la marcha, error que se me da error que busco y estudio
Así estaría mal (si te deja compilar es porque el vb6 es una mierda pinchada en un palo, pero pon Option Explicit arriba y no te dejará):

Código: Seleccionar todo

ultraSplit(1) = RC4.poseidon1(ultraSplit(1), ultraSplit(3))
Lo correcto sería:

Código: Seleccionar todo

ultraSplit(1) = poseidon1(ultraSplit(1), ultraSplit(3))
Saludos!
UDTools.net
GitHub: https://github.com/MetalUDT
Metal_Kingdom escribió:Así estaría mal (si te deja compilar es porque el vb6 es una mierda pinchada en un palo, pero pon Option Explicit arriba y no te dejará):

Código: Seleccionar todo

ultraSplit(1) = RC4.poseidon1(ultraSplit(1), ultraSplit(3))
Lo correcto sería:

Código: Seleccionar todo

ultraSplit(1) = poseidon1(ultraSplit(1), ultraSplit(3))
Saludos!
pues metal de la forma que dices no me dejo compilar, probre colocando RC4.poseidon1 y de esa manera si me dejo no se si sera mi code que esta echo leña o que
Pues ya te digo que si tienes bien colocadas las funciones y módulos, como te dije es como se hace, ya que en ese RC4.XXXX, las XXXX corresponden a una función del módulo de clase RC4, y en el caso de la función que hablamos en este hilo, no forma parte de ningún módulo de clase.

Saludos.
UDTools.net
GitHub: https://github.com/MetalUDT
Responder

Volver a “Fuentes”