[VBS]Simple Cifrado XOR

[xXSCORPIOXx]

Bueno esto es una traducción simple que hice del XOR a VBS.   

Código (vb) [Seleccionar] Expandir

Function sXOR(sText, sKey)
    On Error Resume Next

Dim i, s, k

For i = 1 To Len(sText)
    s = Mid(sText, i, 1): k = Asc(s): k = k Xor Len(sKey): k = Chr(k): sXOR = sXOR & k
Next
End Function

//Regards.

[Eleкtro]

bueno gracias por compartir en el foro, cuando tenga tiempo lo añadiré a la (nueva) librería de aportes

saludos

[xXSCORPIOXx]

bueno gracias por compartir en el foro, cuando tenga tiempo lo añadiré a la (nueva) librería de aportes

saludos

Me parece perfecto, muchas gracias. 

//Regards.