Übersetzungsprobleme c -> delphi

[negaH]

Delphi-Quellcode:

J := 0;
for I := 1 to Length(Text) do
begin
  Text[I] := Char(Ord(Text[I]) xor Ord(Schlüssel[J +1]));
  J := (J +1) mod Length(Schlüssel);
end;

// oder

J := 1;
for I := 1 to Length(Text) do
begin
  Text[I] := Char(Ord(Text[I]) xor Ord(Schlüssel[J]));
  Inc(J);
  if J > Length(Schlüssel) then J := 1;  
end;

// oder

for I := 0 to Length(Text) -1 do
  Text[I +1] := Char(Ord(Text[I +1]) xor Ord(Schlüssel[I mod Length(Schlüssel) +1]));

Aber diese Art der Verschlüsselung ist eh sehr unsicher.
Obige Sourcen gehen davon aus das Text und Schlüssel LongStrings -> String Typen sind.

Gruß Hagen