Dann könnte man es mit Zufallszahlen probieren:
Delphi-Quellcode:
var
mein_text: string;//Original
neuer_Text: string;//Verschlüsselt
keycode: array[0..24] of Byte;//Schlüsselwerte
...
//Zufallszahlen erzeugen
Randomize;
for i:= 0 to 24 do
keycode[i]:= random(256);
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])+ keycode[i mod 25]);
end;
Damit würde die "Änderung" sich zwar auch alle 25 Zeichen wiederholen, aber wäre nicht so regelmäßig.
Allerdings müsste man hier die Schlüsselwerte in keycode irgendwo abspeichern, um den Text wieder entschlüsseln zu können.
MfG
Binärbaum