Einfache XOR 'Verschlüsselung' mit automatischer Wiederholung des Codeworts...
[autoit]Func _XORCrypt($sText, $sKey)
Local $sResult
For $i = 1 To StringLen($sText)
$sResult &= Chr(BitXOR(Asc(StringMid($sText, $i, 1)), Asc(StringMid($sKey, Mod($i - 1, StringLen($sKey)) + 1)), 1))
Next
Return $sResult
EndFunc ;==>_XORCrypt