Text verschlüsseln

[ferby]

Hi,

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) then text3:=symbole1[x];
      for x:=1 to 26 do if text2[i]=chr(x+64) then text3:=symbole1[x];
      hauptlabel3.caption:=hauptlabel3.caption + text3;
      text3:='';

     end;

Das wird nicht die perfekte Lösung sein, aber diese Quelltext ist nur ein Ausschnitt meines Programmes.