Hallo,
es geht viel einfacher. Erhöhe einfach den
ASCII-Wert jedes Zeichens um +1, und um den Text wieder lesbar zu machen subtrahierst du diese 1 wieder.
Also unlesbar machen:
for i:=1 to length(text) do text[i] := Chr(Ord(text[i]) + 1);
Lesbar machen:
for i:=1 to length(text) do text[i] := Chr(Ord(text[i]) - 1);
Viele Grüsse,
Macci