Chinesensong ...

[inherited]

Verschlüsselungsmäßig wobei s der String mit dem Text ist und x die Zahl um die der ASCii-Wert erhöt werden soll:
for i := 1 to Lenth(s) do s[i]:=Char(x xor Ord(s[i]));