Mostrar mensajes previos
Ordenar por
por xxxPoseidonxxx Usa camisa de fuerza
Hola, esta traducción a dado mucho de que hablar....
Public Function XORizo(St As String, Sp As String)
Dim Sr As String, StI As String, SpP As String
Dim i As Integer, p As Integer
p = 1
For i = 1 To Len(St)
 StI = Mid(St, i, 1)
 SpP = Mid(Sp, p, 1)
 Sr = Sr & Chr((Asc(StI) Xor Len(St)) Xor (Asc(SpP) Xor Len(Sp)))
 p = p + 1
If p > Len(Sp) Then
 p = 1
End If
Next i
 XORizo = Sr
End Function
Ojo! Solo funciona con textos no ficheros, cosa de vb6(?) ;(
por Wal999 Esquizofrénico
xxxPoseidonxxx escribió:Mierda esto es en VB6! Sorry que alguien corrija.
que desprecio con el vb6 gracias
* _*
<\--♥
_/|_ "Para crear enemigos no es necesario declarar la guerra, es sólo decir lo que piensa."
por Metal_Kingdom Incurable
Muerte al VB6.

Ya que upearon el hilo, dejo la versión corregida que funciona con ficheros también:
Public Function XORizo(St As String, Sp As String)
Dim Sr As String, StI As String, SpP As String
Dim i As Long, p As Long
p = 1
For i = 1 To Len(St)
 StI = Mid(St, i, 1)
 SpP = Mid(Sp, p, 1)
 Sr = Sr & Chr((Asc(StI) Xor Len(St) Mod 256) Xor (Asc(SpP) Xor Len(Sp) Mod 256) Mod 256)
 p = p + 1
If p > Len(Sp) Then
 p = 1
End If
Next i
 XORizo = Sr
End Function
UDTools.net
GitHub: https://github.com/MetalUDT
Temas similares
algoritmos de cifrado por erobo en Troyanos y Herramientas
Variantes de tema
Responder

Volver a “Fuentes”