Indetectables

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

Mierda esto es en VB6! Sorry que alguien corrija.

Gracias por la traducción pose! de lujo!

xxxPoseidonxxx escribió:Mierda esto es en VB6! Sorry que alguien corrija.

que desprecio con el vb6 gracias

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

jajja...VB6, grasias pose!

saludos