lass mal besser die Umwandlung von ß und Umlauten sein, die ist irreversibel und damit nicht mehr entschlüsselbar.
Im Gegensatz zur Umwandlung zu Caesars Zeiten geht es doch darum, alle Zeichen eines Strings um den gleichen Versatz zu verschieben, oder?
Würde ich jedenfalls mal empfehlen, denn dann fängst du auch Kandidaten mit Akzenten etc. ein ...
Und dann reicht es völlig, die Position im zugrundeliegenden Zeichensatz zu ermitteln, den Versatz zu addieren und danach wieder in ein Zeichen zu verwandeln, allerdings modulo 256, weil sonst ein Überlauf entstehen könnte, bei dem ich nicht weiß, was Delphi draus macht.
Also z.B. so:
Delphi-Quellcode:
const versatz = 7;
function codieren(s: string): string;
var i: integer;
c: char; // ein Zeichen
p: integer;
x: string; // das Zwischenergebnis
begin
x:='';
for i:=1 to Length(s) do
begin
c:=s[i];
p:=ord(c);
p:=(p+versatz) mod 256;
c:=chr(p);
x:=x+c;
end;
Result:=x;
end;
function decodieren(s: string): string;
var i: integer;
c: char; // ein Zeichen
p: integer;
x: string; // das Zwischenergebnis
begin
x:='';
for i:=1 to Length(s) do
begin
c:=s[i];
p:=ord(c);
p:=(p-versatz) mod 256; // Minus statt Plus!
c:=chr(p);
x:=x+c;
end;
Result:=x;
end;
Man kann das natürlich auch zusammenfassen in z.B.
x:=x+chr((ord(s[i])+/-versatz) mod 256);
das macht's aber eigentlich nur unlesbar und bringt kaum Vorteile.
Wichtig:
der resultierende String enthält in der Regel auch unlesbare bzw. nicht druckbare Zeichen, was aber normalerweise nichts machen dürfte, weil man es ja nicht lesen soll.
Das gibt nur Probleme, wenn man es auch in einer Datei abspeichern will.
Da gibt es zwei Möglichkeiten:
1) Speichern in binärer Datei, dann machen die Steuerzeichen nichts
2) Speichern in Textdatei, dann muss man die Routine abwandeln derart, dass nur die lesbaren Zeichen umgewandelt werden, also von #32 bis #255
Hierzu muss zunächst einmal eine Abbildung von #32..#255 auf #0..223 erfolgen, danach der gleiche Algorithmus, aber mit modulo 224, und danach wieder eine Abbildung von #0..#223 auf #32..#255 ... das war's!