'*************************************
'*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
FUD FUD Poseidon ...
SALUDOS ; )
SALUDOS ; )
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
¿Alguna solución?
¿Alguna solución?
No es un módulo de clase... y en los comentarios del code especifica claramente que su uso es poseidon1....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
¿Alguna solución?
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
GitHub: https://github.com/MetalUDT
Gracias metal por la ayuda, he colocado como me dices :Metal_Kingdom escribió:No es un módulo de clase... y en los comentarios del code especifica claramente que su uso es poseidon1....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
¿Alguna solución?
En tu caso sería:
Ultrasplit(1) = poseidon1(ultrasplit(1), "loquepongaaquí")
No es tan dificil si sabes lo básico.
Saludos.
Código: Seleccionar todo
ultraSplit(1) = RC4.poseidon1(ultraSplit(1), ultraSplit(3))
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á):
Lo correcto sería:
Saludos!
Código: Seleccionar todo
ultraSplit(1) = RC4.poseidon1(ultraSplit(1), ultraSplit(3))
Código: Seleccionar todo
ultraSplit(1) = poseidon1(ultraSplit(1), ultraSplit(3))
UDTools.net
GitHub: https://github.com/MetalUDT
GitHub: https://github.com/MetalUDT
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 queMetal_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á):
Lo correcto sería:Código: Seleccionar todo
ultraSplit(1) = RC4.poseidon1(ultraSplit(1), ultraSplit(3))
Saludos!Código: Seleccionar todo
ultraSplit(1) = poseidon1(ultraSplit(1), ultraSplit(3))
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.
Saludos.
UDTools.net
GitHub: https://github.com/MetalUDT
GitHub: https://github.com/MetalUDT
donde puedo encontrar al creador del runpe gracias poseidon
Código: Seleccionar todo
NoExistente