Thema: Delphi Text verschlüsseln

Einzelnen Beitrag anzeigen

ferby

Registriert seit: 15. Aug 2004
Ort: Wien
841 Beiträge
 
Delphi 2010 Enterprise
 
#7

Re: Text verschlüsseln

  Alt 20. Aug 2004, 15:49
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;
  Mit Zitat antworten Zitat