xor, was ist falsch?

[Angel4585]

Hallo,

ich hab folgendes:

Delphi-Quellcode:

const cschluessel = 'asdfghjkl';


function DoCrypt(AText : string):string;
var
  i : integer;
begin
for i:= 1 to Length(AText) do
  AText[i]:= Chr(Ord(cschluessel[Succ(i mod Length(cschluessel))]) xor Ord(AText[i]));
Result:=AText;
end;

irgendwoe hat sich da ein Fehler eingeschlichen, es wird zwar verschlüsselt, aber nichtmehr korrekt entschlüsselt. Hab ich da einen Denkfehler?

Der String der übergeben wird ist der Inhalt einer INi-Datei den ich in eine Stringlist lade. Also Stringlist.Text