الفريق العربي للهندسة العكسية

http://at4re.net/tutorials/keygenning/AT4RE_Keygenning_Tutorial_02.rar

procedure TForm1.Button1Click(Sender: TObject);
var
P1,P2,P3,P4,P5:integer;
begin
Randomize;
Repeat
P1:= StrToInt(Format('%.4u',[Random(9999)]));
P2:= StrToInt(Format('%.4u',[Random(9999)]));
P3:= StrToInt(Format('%.4u',[Random(9999)]));
     ASM
     PUSHAD
       mov eax,P1
       mov edi,P3
       mov esi,P2
       add edi,eax     //  ;eax + edi ( p1+p3 )
       mov P4,edi
       add esi,07d0h  //  ; esi:= p2
       mov P5,esi
     POPAD
     End;
Until (P4 = P5 {To Get Valid serial})
 and (Length(IntToStr(P1)) = 4) {To Get 4 Digit at every part}
 and (Length(IntToStr(P2)) = 4)
 and (Length(IntToStr(P3)) = 4);

edit1.Text:= Format('%u',[P1]);
edit2.Text:= Format('%u',[P2]);
edit3.Text:= Format('%u',[P3]);
end;

 
function randomkeys:string;
const keys : array [0..9] of integer = (1111,
2222,3333,4444,5555,6666,7777,8888,9999,5514);
begin
  result := inttostr(keys[random(length(keys))]);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
    edit1.text := randomkeys;
end;