الدرس الثاني : دراسة خوارزمية التسجيل وبرمجة Keygen لبرنامج Quick Starter

[dj-siba]

بسم الله الرحمن الرحيم

دورة AT4RE لتعليم keygenning :

الدرس الثاني : دراسة خوارزمية التسجيل وبرمجة Keygen لبرنامج Quick Starter


إعداد : Prince

درس مصور (فلاشي)
+ نسخة OllyDbg المستخدمة بالدرس
+ البرنامج Quick Starter لتطبيق الدرس
+ الملفات المصدرية للKeygen 
التحميل

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

اضافة كود الكيجين Delphi + ASM  وبدون الاستعانة بدوال خارجية

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;