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
20. Aug 2004, 15:49
Noch kürzer gehts so:
markieren
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
;
Zitat
ferby
Öffentliches Profil ansehen
Besuche die Homepage von ferby!
Mehr Beiträge von ferby finden