Bueno esto es una traducción simple que hice del XOR a VBS. ;D
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.
bueno gracias por compartir en el foro, cuando tenga tiempo lo añadiré a la (nueva) librería de aportes
saludos
Cita de: Eleкtro en 18 Marzo 2014, 00:53 AM
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. ;D
//Regards.