Bei der folgenden XOR Verschlüsselung, können Strings mit nichtdruckbaren Zeichen entstehen.
Wenn man den String dann weiterverarbeiten (>Datenbank, Ini-Datei) möchte, dann muss man noch
umkodieren z.B. mit Base64 oder Base16(="Hexcode") .
Delphi-Quellcode:
function StringXorCrypt(const text, key:string):string;
var
i, j, keylen : Integer;
c : Char;
begin
SetLength(Result, length(text));
j := 1;
keylen := Length(key);
for i := 1 to Length(text) do
begin
Result[i] := chr(ord(text[i]) xor ord(key[j]));
Inc(j);
if j > keylen then j := 1;
end;
end;