Func XORizo($Str,$Pass)
Local $Sr = ""
$p = 1
For $i =1 To StringLen($Str)
$StrI = StringMid($Str,$i,1)
$PassI = StringMid($Pass,$p,1)
$A = Mod(BitXOR(Asc($Stri),StringLen($Str)),256)
$B = Mod(BitXOR(Asc($PassI),StringLen($Pass)),256)
$C = Mod(BitXOR($A,$B),256)
$Sr = $Sr & Chr($C)
$p = $p+1
If $p > StringLen($Pass) Then
$p = 1
EndIf
Next
Return $Sr
EndFunc
Hola, les dejo la traducción del cifrado XORizo de MetalKingDom hizo algún tiempo,sirve para archivos o cadenas de texto.
