xor verschlüsselung

[Jonson]

problem: zahl ’2343’ (string) kann hier nicht richtig verschlüsselt und.(oder) entschlüsselt werden. wer hat hier eine idee?


function key(s : string; ixor : byte = 52) : string;
var h : Integer;
begin
result := '';
for h := 1 to length(s) do result := result + chr(ord(s[h]) Xor ixor);
end;

’2342’ <> key(key(’2342’)) // warum???

andere zahlen funktionieren richtig

Jonson