طريقة عمل مولد سيريالات ( KeyGen ) باســـتخدام الفيجـوال ســتديو وباســتخدام الأوتوبلاي ميديا ستديـو

DW.Joe · 28 يونيو 2014

شرح مميز اخى ميدو ويستاهل التثبيت
بارك الله فيك اخى الحبيب وفى والديك

medo2013 · 28 يونيو 2014

كنت بحاول اعمل كيجن لبرنامج مالوبايتس
لكن أكواد الفيجوال بيسك لم تنفع لاني أريد أن أغير في صندوقين نص
مع العلم أني أستخدم برنامج فيجوال بيسك 6
وهذه صوره من واجهه الكيجن الذي كنت أحاول صنعه
[hide]

[/hide]

وهذه هي السيريالات
[hide]

5PC57
45RY-78WJ-45G9-FT64

2RR58
RP3D-PG2Q-CLY3-30DB

5OL88
F8QU-82VN-FKUR-NE2W

6HC31
DF54-DGKM-DE65-GWX2

1RW84
WU8M-J2V7-TJR1-2NQ9

6NL73
CQ0G-E30U-7CEH-95WB

7CP81
ARHW-H2WG-YUU9-35RC

3VG29
TY0J-X40K-PQR9-Y52E

3JH99
M37K-TDDT-LN5C-R05C

8AX98
DB19-6MBQ-G2DT-FHAM

5LA55
6YGU-QQ28-LXFT-DUGU

8AD56
H5YR-Q7G9-L65X-F5KH

9WT74
GF9M-R3JP-BW03-QKP4

6OG35
8BFH-D2J7-P8HD-DDUA

[/hide]

[hide][/hide]

سيتم إرسال الملف الذي برمجته إليك

في محادثه خاصه

Mido Nabil · 29 يونيو 2014

medo2013 قال:
كنت بحاول اعمل كيجن لبرنامج مالوبايتس
لكن أكواد الفيجوال بيسك لم تنفع لاني أريد أن أغير في صندوقين نص
مع العلم أني أستخدم برنامج فيجوال بيسك 6
وهذه صوره من واجهه الكيجن الذي كنت أحاول صنعه
[hide]مشاهدة المرفق 55150 [/hide]

وهذه هي السيريالات
[hide]

5PC57
45RY-78WJ-45G9-FT64

2RR58
RP3D-PG2Q-CLY3-30DB

5OL88
F8QU-82VN-FKUR-NE2W

6HC31
DF54-DGKM-DE65-GWX2

1RW84
WU8M-J2V7-TJR1-2NQ9

6NL73
CQ0G-E30U-7CEH-95WB

7CP81
ARHW-H2WG-YUU9-35RC

3VG29
TY0J-X40K-PQR9-Y52E

3JH99
M37K-TDDT-LN5C-R05C

8AX98
DB19-6MBQ-G2DT-FHAM

5LA55
6YGU-QQ28-LXFT-DUGU

8AD56
H5YR-Q7G9-L65X-F5KH

9WT74
GF9M-R3JP-BW03-QKP4

6OG35
8BFH-D2J7-P8HD-DDUA

[/hide]
[hide][/hide]

سيتم إرسال الملف الذي برمجته إليك
في محادثه خاصه

مرحبا أخي الكريم

أولا أعتذر علي الأخير

فكرة رائعة جدا أخي

ثانيا لم يفتح ملف Visual Basic 6 الذي أرسلته لي سابقا

ولكن قمت بعمل برنامج سريع للشرح عليه

الآن أصبح لدينا اثنين TextBox وليس TextBox واحد كما في موضوعي

أحدهم TextBox1 والثاني TextBox2 (الأسماء الافتراضية ان لم تغيرهم أنت )

الىن يجب علينا جعل التوليد ثنائيا واليك الحل

======

ID امامه TextBox1

لذلك أولا سنضع كود توليد ID وهو

كود:

TextBox1.Text = Int(Rnd() * 4)
        Select Case TextBox1.Text
            Case 0
                TextBox1.Text = "5PC57"
            Case 1
                TextBox1.Text = "2RR58"
            Case 2
                TextBox1.Text = "5OL88"
            Case 3
                TextBox1.Text = "6HC31"
            Case 4
                TextBox1.Text = "1RW84"
            Case 5
                TextBox1.Text = "6NL73"
            Case 6
                TextBox1.Text = "7CP81"
            Case 7
                TextBox1.Text = "3VG29"
            Case 8
                TextBox1.Text = "3JH99"
            Case 9
                TextBox1.Text = "8AX98"
            Case 10
                TextBox1.Text = "5LA55"
            Case 11
                TextBox1.Text = "8AD56"
            Case 12
                TextBox1.Text = "9WT74"
            Case 13
                TextBox1.Text = "6OG35"
        End Select

تمام الآن كود توليد Serial

هو نفس الكود لكن مع تغيير اسم الـ TextBox وهو TextBox2

ونضعه بين End Select الأولي و End Sub

هذا هو الكود

كود:

TextBox2.Text = Int(Rnd() * 4)
        Select TextBox2.Text
            Case 0
                TextBox2.Text = "45RY-78WJ-45G9-FT64"
            Case 1
                TextBox2.Text = "RP3D-PG2Q-CLY3-30DB"
            Case 2
                TextBox2.Text = "F8QU-82VN-FKUR-NE2W"
            Case 3
                TextBox2.Text = "DF54-DGKM-DE65-GWX2"
            Case 4
                TextBox2.Text = "WU8M-J2V7-TJR1-2NQ9"
            Case 5
                TextBox2.Text = "CQ0G-E30U-7CEH-95WB"
            Case 6
                TextBox2.Text = "ARHW-H2WG-YUU9-35RC"
            Case 7
                TextBox2.Text = "TY0J-X40K-PQR9-Y52E"
            Case 8
                TextBox2.Text = "M37K-TDDT-LN5C-R05C"
            Case 9
                TextBox2.Text = "DB19-6MBQ-G2DT-FHAM"
            Case 10
                TextBox2.Text = "6YGU-QQ28-LXFT-DUGU"
            Case 11
                TextBox2.Text = "H5YR-Q7G9-L65X-F5KH"
            Case 12
                TextBox2.Text = "GF9M-R3JP-BW03-QKP4"
            Case 13
                TextBox2.Text = "8BFH-D2J7-P8HD-DDUA"
        End Select

تمام

===

هناك فقط ملاحظة

فلكل سيريال ID خاص به ونريد عند التوليد أن يتم توليد السيريال بالـ ID الخاص به

فلناخد هذا علي سبيل المثال

6HC31
DF54-DGKM-DE65-GWX2

6HC31 موضوع أمام Case 3

لذلك لابد أن يكون DF54-DGKM-DE65-GWX2 في Case 3 أيضا

وهذه النتيجة تم التوليد وبطريقة صحيحة

الكود النهائي للبرنامج

كود:

TextBox1.Text = Int(Rnd() * 4)
        Select Case TextBox1.Text
            Case 0
                TextBox1.Text = "5PC57"
            Case 1
                TextBox1.Text = "2RR58"
            Case 2
                TextBox1.Text = "5OL88"
            Case 3
                TextBox1.Text = "6HC31"
            Case 4
                TextBox1.Text = "1RW84"
            Case 5
                TextBox1.Text = "6NL73"
            Case 6
                TextBox1.Text = "7CP81"
            Case 7
                TextBox1.Text = "3VG29"
            Case 8
                TextBox1.Text = "3JH99"
            Case 9
                TextBox1.Text = "8AX98"
            Case 10
                TextBox1.Text = "5LA55"
            Case 11
                TextBox1.Text = "8AD56"
            Case 12
                TextBox1.Text = "9WT74"
            Case 13
                TextBox1.Text = "6OG35"
        End Select
        TextBox2.Text = Int(Rnd() * 4)
        Select TextBox2.Text
            Case 0
                TextBox2.Text = "45RY-78WJ-45G9-FT64"
            Case 1
                TextBox2.Text = "RP3D-PG2Q-CLY3-30DB"
            Case 2
                TextBox2.Text = "F8QU-82VN-FKUR-NE2W"
            Case 3
                TextBox2.Text = "DF54-DGKM-DE65-GWX2"
            Case 4
                TextBox2.Text = "WU8M-J2V7-TJR1-2NQ9"
            Case 5
                TextBox2.Text = "CQ0G-E30U-7CEH-95WB"
            Case 6
                TextBox2.Text = "ARHW-H2WG-YUU9-35RC"
            Case 7
                TextBox2.Text = "TY0J-X40K-PQR9-Y52E"
            Case 8
                TextBox2.Text = "M37K-TDDT-LN5C-R05C"
            Case 9
                TextBox2.Text = "DB19-6MBQ-G2DT-FHAM"
            Case 10
                TextBox2.Text = "6YGU-QQ28-LXFT-DUGU"
            Case 11
                TextBox2.Text = "H5YR-Q7G9-L65X-F5KH"
            Case 12
                TextBox2.Text = "GF9M-R3JP-BW03-QKP4"
            Case 13
                TextBox2.Text = "8BFH-D2J7-P8HD-DDUA"
        End Select

أتمني أكود أفدتك

farouk23 · 29 يونيو 2014

يعطيك الف الف عافيه

موضوع رااائع

وجهود أروع

ننتظر مزيدكم

بشوووق

medo2013 · 29 يونيو 2014

Mido Nabil قال:

مرحبا أخي الكريم

أولا أعتذر علي الأخير

فكرة رائعة جدا أخي

ثانيا لم يفتح ملف Visual Basic 6 الذي أرسلته لي سابقا

ولكن قمت بعمل برنامج سريع للشرح عليه

الآن أصبح لدينا اثنين TextBox وليس TextBox واحد كما في موضوعي

أحدهم TextBox1 والثاني TextBox2 (الأسماء الافتراضية ان لم تغيرهم أنت )

الىن يجب علينا جعل التوليد ثنائيا واليك الحل

======

ID امامه TextBox1

لذلك أولا سنضع كود توليد ID وهو

كود:

TextBox1.Text = Int(Rnd() * 4)
        Select Case TextBox1.Text
            Case 0
                TextBox1.Text = "5PC57"
            Case 1
                TextBox1.Text = "2RR58"
            Case 2
                TextBox1.Text = "5OL88"
            Case 3
                TextBox1.Text = "6HC31"
            Case 4
                TextBox1.Text = "1RW84"
            Case 5
                TextBox1.Text = "6NL73"
            Case 6
                TextBox1.Text = "7CP81"
            Case 7
                TextBox1.Text = "3VG29"
            Case 8
                TextBox1.Text = "3JH99"
            Case 9
                TextBox1.Text = "8AX98"
            Case 10
                TextBox1.Text = "5LA55"
            Case 11
                TextBox1.Text = "8AD56"
            Case 12
                TextBox1.Text = "9WT74"
            Case 13
                TextBox1.Text = "6OG35"
        End Select

تمام الآن كود توليد Serial

هو نفس الكود لكن مع تغيير اسم الـ TextBox وهو TextBox2

ونضعه بين End Select الأولي و End Sub

هذا هو الكود

كود:

TextBox2.Text = Int(Rnd() * 4)
        Select TextBox2.Text
            Case 0
                TextBox2.Text = "45RY-78WJ-45G9-FT64"
            Case 1
                TextBox2.Text = "RP3D-PG2Q-CLY3-30DB"
            Case 2
                TextBox2.Text = "F8QU-82VN-FKUR-NE2W"
            Case 3
                TextBox2.Text = "DF54-DGKM-DE65-GWX2"
            Case 4
                TextBox2.Text = "WU8M-J2V7-TJR1-2NQ9"
            Case 5
                TextBox2.Text = "CQ0G-E30U-7CEH-95WB"
            Case 6
                TextBox2.Text = "ARHW-H2WG-YUU9-35RC"
            Case 7
                TextBox2.Text = "TY0J-X40K-PQR9-Y52E"
            Case 8
                TextBox2.Text = "M37K-TDDT-LN5C-R05C"
            Case 9
                TextBox2.Text = "DB19-6MBQ-G2DT-FHAM"
            Case 10
                TextBox2.Text = "6YGU-QQ28-LXFT-DUGU"
            Case 11
                TextBox2.Text = "H5YR-Q7G9-L65X-F5KH"
            Case 12
                TextBox2.Text = "GF9M-R3JP-BW03-QKP4"
            Case 13
                TextBox2.Text = "8BFH-D2J7-P8HD-DDUA"
        End Select

تمام

===

هناك فقط ملاحظة

فلكل سيريال ID خاص به ونريد عند التوليد أن يتم توليد السيريال بالـ ID الخاص به

فلناخد هذا علي سبيل المثال

6HC31
DF54-DGKM-DE65-GWX2

6HC31 موضوع أمام Case 3

لذلك لابد أن يكون DF54-DGKM-DE65-GWX2 في Case 3 أيضا

وهذه النتيجة تم التوليد وبطريقة صحيحة

الكود النهائي للبرنامج

كود:

TextBox1.Text = Int(Rnd() * 4)
        Select Case TextBox1.Text
            Case 0
                TextBox1.Text = "5PC57"
            Case 1
                TextBox1.Text = "2RR58"
            Case 2
                TextBox1.Text = "5OL88"
            Case 3
                TextBox1.Text = "6HC31"
            Case 4
                TextBox1.Text = "1RW84"
            Case 5
                TextBox1.Text = "6NL73"
            Case 6
                TextBox1.Text = "7CP81"
            Case 7
                TextBox1.Text = "3VG29"
            Case 8
                TextBox1.Text = "3JH99"
            Case 9
                TextBox1.Text = "8AX98"
            Case 10
                TextBox1.Text = "5LA55"
            Case 11
                TextBox1.Text = "8AD56"
            Case 12
                TextBox1.Text = "9WT74"
            Case 13
                TextBox1.Text = "6OG35"
        End Select
        TextBox2.Text = Int(Rnd() * 4)
        Select TextBox2.Text
            Case 0
                TextBox2.Text = "45RY-78WJ-45G9-FT64"
            Case 1
                TextBox2.Text = "RP3D-PG2Q-CLY3-30DB"
            Case 2
                TextBox2.Text = "F8QU-82VN-FKUR-NE2W"
            Case 3
                TextBox2.Text = "DF54-DGKM-DE65-GWX2"
            Case 4
                TextBox2.Text = "WU8M-J2V7-TJR1-2NQ9"
            Case 5
                TextBox2.Text = "CQ0G-E30U-7CEH-95WB"
            Case 6
                TextBox2.Text = "ARHW-H2WG-YUU9-35RC"
            Case 7
                TextBox2.Text = "TY0J-X40K-PQR9-Y52E"
            Case 8
                TextBox2.Text = "M37K-TDDT-LN5C-R05C"
            Case 9
                TextBox2.Text = "DB19-6MBQ-G2DT-FHAM"
            Case 10
                TextBox2.Text = "6YGU-QQ28-LXFT-DUGU"
            Case 11
                TextBox2.Text = "H5YR-Q7G9-L65X-F5KH"
            Case 12
                TextBox2.Text = "GF9M-R3JP-BW03-QKP4"
            Case 13
                TextBox2.Text = "8BFH-D2J7-P8HD-DDUA"
        End Select

أتمني أكود أفدتك

شكرااا جزيلا لك على هذا الشرح المبسط
تم التطبيق وقد نجح البرنامج
شكراا لك

allawy22 · 29 يونيو 2014

ممكن مولد سيريلات لبرامج اخرى

MagicianMiDo32 · 2 يوليو 2014

تسلم أيدك أخي

m4j3dr · 14 يوليو 2014

بارك الله فيك اخي الكريم

لاكن الكيجن لايسمى كيجن الا في حال فك خوازمية البرنامج بالهندسه العكسيه

عندف فك الخوارزميه او المعادله يمكن انتاج عدد غير محدود من السريالات

اما مسألة اضافة سريالات جاهزه فلا ارى لها داعي ويمكن الاستغناء عنها بملف txt

المعذره على الصراحه واشكرك على الموضوع المتعوب عليه

aboahmmed · 22 يوليو 2014

فعلا موضوع رائع مميز

تحياتي لك اخي الرائع

طريقة عمل مولد سيريالات ( KeyGen ) باســـتخدام الفيجـوال ســتديو وباســتخدام الأوتوبلاي ميديا ستديـو

DW.Joe

(دعاية لمنتدى أخر)

توقيع : DW.Joe

medo2013

زيزوومى محترف

توقيع : medo2013

Mido Nabil

خبير شروحات برامج

توقيع : Mido Nabil

farouk23

زيزوومى متألق

توقيع : farouk23

medo2013

زيزوومى محترف

توقيع : medo2013

allawy22

مطرود

MagicianMiDo32

مراقب قسم الحماية ، خبراء زيزووم

توقيع : MagicianMiDo32

m4j3dr

زيزوومي جديد

aboahmmed

زيزوومي نشيط

توقيع : aboahmmed

حصري (ينتهي الدعم في 13 يناير 2032) Windows 10 IoT Enterprise LTSC 2021 (19044.6276) Aio Multi Update August 2025