Hier der Quellcode meines CrackMe's, vielleicht hilft's Lillebrohr und arnoldo
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var wert, i, i2, hmpf:integer; wert2:string;
begin
try
wert2:=edit1.text;
i2:=1;
if fileexists('crackme.key')
then showmessage('Falscher Key');
for i:=1 to length(wert2)+1 do begin
wert:=Ord(wert2[i+1]);
wert:=wert*(wert mod 10);
wert:=wert*4+Ord(wert2[length(wert2)]);
wert:=wert shr 2;
wert:=wert*i2;
i2:=wert;
end;
try
hmpf:=strtoint(edit2.text);
except
exit
end;
if hmpf=i2 then
showmessage('Super, du hast es geschafft!');
except
exit
end;
end;