Hallo,
Ich habe eine Programm geschrieben das einen Text verschlüsselt.
Ein Teil des Programmes habe ich rausgeschrieben:
Delphi-Quellcode:
var
text1,text2,text3,buchstabenzahl,kurz2zahlen:string;
i,x,x2:integer;
begin
buchstabenzahl:='a000b001c002d003e010f011g012h013i020j021k022l023m030n031o032p033q100r101s102t103u110v111w112x113y120z121';
kurz2zahlen:='te103010231ch002013232ei010020233ie020010300tz103121301er010101302en010031303au000110310ck002022311ne031010312in020031313ge012010321st102103322';
text1:='test';
for i:=1 to length(text1) do
begin
// BUCHSTABEN
x2:=2;
for x:=1 to 26 do
begin
if text1[i]=chr(x+96) then text2:=buchstabenzahl[x2]+buchstabenzahl[x2+1]+buchstabenzahl[x2+2];
x2:=x2+4
end;
text3:=text3 + text2;
text2:='';
end;
text1:=text3;
text3:='';
// KÜRZUNG 2
x2:=3;
for i:=1 to 13 do
begin
text1:= StringReplace(text1, kurz2zahlen[x2]+kurz2zahlen[x2+1]+kurz2zahlen[x2+2]+kurz2zahlen[x2+3]+kurz2zahlen[x2+4]+kurz2zahlen[x2+5], kurz2zahlen[x2+6]+kurz2zahlen[x2+7]+kurz2zahlen[x2+8], [rfReplaceAll]);
x2:=x2+11;
end;
edit1.text:=text1;
end;
ich hoffe ihr könnt nachvollziehen wie ca alles verschlüsselt wird.
der text in text1 wird verschlüsselt und am ende in edit1 ausgegeben.
es funktioniert alles so wie ich will, aber wenn text1:='ber' ist dann kommt im edit1: 030201 stadt 001302
das versteh ich nicht. alles anderen texte die ich bis jetzt ausprobiert habe werden richtig verschlüsselt nur wenn irgendwo 'ber' vorkommt dann nicht mehr, könnt ihr mir sagen wo der fehler liegt?