الدرس الثاني : دراسة خوارزمية التسجيل وبرمجة 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;

[7ar6ani]

السلام عليكم 
كيف يتم تشغيل ملفات لفلاش swf

[dj-siba]

كيف يتم تشغيل ملفات لفلاش swf

SWF Player Portable
download.macromedia.com/pub/flashplayer/updaters/9/sa_flashplayer_9_debug.exe

[7ar6ani]

كيف يتم تشغيل ملفات لفلاش swf

SWF Player Portable
download.macromedia.com/pub/flashplayer/updaters/9/sa_flashplayer_9_debug.exe

شكرا أخي الكريم

[dj-siba]

شكرا أخي الكريم

لا تشكرني، تعلم وطور نفسك ثم علم غيرك.

[7ar6ani]

ان شاء الله , سوف أعمل من أجل ذالك

[Small Axe]

السلام عليكم ورحمة الله وبركاته
اولا لابد من تقديم الشكر للاساتذلة الذين سهروا على تقديم هذه الدروس البالغة الاهمية 
ثانيا لدي سؤال وهو 
كيف اقوم بتوليد مفاتيح معينة غير متغيرة تكون بهذا الشكل مثلا
1234567890  1234
6587987548  0325
326598741   3697
وهكذا نحو 20مفتاحا 
بحيث كلما اضغط على مفتاح generate يعطيني مفتاحا من هذه المفاتيح العشرين
حاولت التعديل على كيغن الاخ dj_siba لكن ظهر سيريالان جنبا الى جنب على هذا الشكل 1234567890  1234   6587987548  0325 بالاضافة الى ارقام اخرى

[x-member]

بحيث كلما اضغط على مفتاح generate يعطيني مفتاحا من هذه المفاتيح العشرين

 
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;

[x-member]

This good for beginners like me.

don't flood the forum with useless comments to gain active membership

[Small Axe]

شكرا 
ساجرب وارد

---

للاسف لم ينجح الامر لانني لم اوضح لك الفكرة جيدا
هذه الصورة ستوضح الامر
https://imgur.com/ITEsOTb


السؤال الان هو كيف اضيف باقي الارقام  لتظهر هي نفسها عند الضغط على generqte