String "unlesbar" machen

[Macci]

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