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

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

 

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

هذا المحتوى يظهر للاعضاء المسجلين فقط:

هذا المحتوى يظهر للاعضاء المسجلين فقط:

وهذه هي السيريالات

هذا المحتوى يظهر للاعضاء المسجلين فقط:

هذا المحتوى يظهر للاعضاء المسجلين فقط:

هذا المحتوى يظهر للاعضاء المسجلين فقط:

هذا المحتوى يظهر للاعضاء المسجلين فقط:

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

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

 

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

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

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

ثانيا لم يفتح ملف 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

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

 

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

موضوع رااائع

وجهود أروع

ننتظر مزيدكم

بشوووق​

 

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

 

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

 

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

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

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

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


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

 

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

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