Hallo,
Ich habe ein Programm geschrieben das einen Text verschlüsseln soll:
Delphi-Quellcode:
text2:='Das ist ein Testtext der verschlüsselt wird.';
symbole1:=')ZDhSCfPwVaW+J>-rB[RF$UNg|';
for i:=1 to 100 do
begin
for x:=1 to 26 do if text2[i]=chr(x+97) then hauptlabel3.caption:=hauptlabel3.caption + symbole1[x];
end;
end;
Der verschlüsselte Text soll dann in hauptlabel3.caption ausgegeben werden, es wird aber nur irgendein schwachsinn geschireben, was ist da falsch?
A soll ) sein B soll Z sein etc.
Ach ja statt i:=1 to 100 will ich i:=1 to länge(text2) schreiben, wie muss ich das schreiben?
Danke für eure Hilfe!
Ferby