Código
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.
|
|||
|
Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección |
|
|