Text verschlüsseln

[Gruber_Hans_12345]

Die zweiten for Schleifen kannst dir auf jeden Fall sparen ...

Delphi-Quellcode:

var c   : char;

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

     for i:=1 to length(text2) do begin
       c := text2[i];
       if c in ['A'..'Z'] then c := symbole1[Ord(c) - Ord('A') + 1];
       if c in ['a'..'z'] then c := symbole1[Ord(c) - Ord('a') + 1];
       hauptlabel3.caption:=hauptlabel3.caption + c;
     end;