
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 actualizada para evitar que un ransomware ataque tu empresa |
|
|