Entschlüsselungs Algorhytmus hängt sich auf

**J.P.**

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.

zusammenfalten · markieren

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.

Entschlüsselungs Algorhytmus hängt sich auf

Entschlüsselungs Algorhytmus hängt sich auf

Forumregeln