Text verschlüsseln

[ferby]

Noch kürzer gehts so:

Delphi-Quellcode:

symbole1:=')ZDhSCfPwVaW+J>-rB[RF$UNg|';
text2:='Das ist der Text';

     for i:=1 to length(text2) do
     begin
       for x:=1 to 26 do if (text2[i]=chr(x+96)) or (text2[i]=chr(x+64)) then hauptlabel3.caption:=hauptlabel3.caption + symbole1[x]
     end;