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: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder) |
|
|