Man könnte es so probieren:
Delphi-Quellcode:
var
mein_text: string;//Original
neuer_Text: string;//Verschlüsselt
...
neuer_text:=mein_Text; //Verschlüsselter Text initialisieren
for i:= 1 to Length(mein_Text) do begin
neuer_Text[i]:= Chr(Ord(mei_text[i])+ (i mod 25));
end;
Damit würde die "Änderung" sich nur alle 25 Zeichen wiederholen.
MfG
Binärbaum
//Edit: Quelltext korrigiert