xor, was ist falsch?

[Corpsman]

Ich Habe es getestet:

mit :

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[i Mod Length(cschluessel) + 1]) Xor Ord(AText[i]));
  Result := AText;
End;

und

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[i Mod Length(cschluessel)]) Xor Ord(AText[i]));
  Result := AText;
End;

und Memo1.text = 'Hallo Welt';


Es hat beidesmal geklappt

allein das ist schon "Komisch"