• Fuentes

 #425455  por xxxPoseidonxxx
 25 Sep 2013, 00:05
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(?) ;(
 #425456  por xxxPoseidonxxx
 25 Sep 2013, 00:15
Mierda esto es en VB6! Sorry que alguien corrija.
 #425457  por Himanen
 25 Sep 2013, 00:38
Gracias por la traducción pose! de lujo!
 #447885  por sudo
 06 Jul 2014, 23:10
 #447906  por Wal999
 07 Jul 2014, 00:37
xxxPoseidonxxx escribió:Mierda esto es en VB6! Sorry que alguien corrija.
que desprecio con el vb6 gracias
 #447925  por Metal_Kingdom
 07 Jul 2014, 03:22
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