eine Variable bei jedem Durchlauf ändern, aber immer anders?

[Binärbaum]

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