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