Hi Leute!
Ich hab mir ne kleine Verschlüsselung zusammengebaut. alles schön und gut, aber ich kans nicht mehr deverschlüsseln...
das ist ein Teil des entschlüsselungs codes: (der rest ist das gleiche, nur mit 2 weiteren Zeilen des Memos)
Dabei kommt eine fehlermeldung "875495875495" ist kein gültiger integerwert...
eigentlich sollten das auch keine 12 stellen sondern nur 6 sein.
Ich verstehe nicht, wieso er beim Zweiten durchgang auf einmal die stellenanzahl verdoppelt.
Delphi-Quellcode:
i:=0;i2:=0;i3:=0;charint:=0;
line1:='';line2:='';line3:='';bs:=''; //alles wird auf 0 bzw '' gesetzt.
for i:=1 to length(memo1.lines[0])DIV 6 do begin
i2:=i2+6;
bs:='';
bs:=copy(memo1.lines[0],i3,i2); //ab hier steckt irgendwo der fehler... ;(
if i3=0 then i3:=i3+7 else i3:=i3+6;
charint:=strtoint(bs);
charint:=charint DIV X; //X = integer
charint:=charint * X;
charint:=charint-XXXXXX;
line1:=line1+inttochar(charint);
end;
Bitte helft mir... J.P.
J.P.
...mfG
Phil