+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طريقة عمل KeyGen بالفيجوال بيسك دوت نت (/showthread.php?tid=8624)
الصفحات:
1
2
طريقة عمل KeyGen بالفيجوال بيسك دوت نت - EHAB.NET - 25-04-13
السلام عليكم ورحمة الله وبركاته
كود button1
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = Int(Rnd() * 6)
Select Case TextBox1.Text
Case 0
TextBox1.Text = "1330-1813-5332-3018-4123-4267"
Case 1
TextBox1.Text = "1330-1167-8857-3801-9962-4540"
Case 2
TextBox1.Text = "1330-1182-3585-9477-5524-4839"
Case 3
TextBox1.Text = "1330-1813-5332-3018-4123-4267"
Case 4
TextBox1.Text = "1330-1011-6547-2116-7061-1195"
Case 5
TextBox1.Text = "1330-1430-9860-3108-6588-8053"
End Select
End Sub[COLOR="#0000CD"]ولا تنسى ادراج TextBox1 في الفورم
والمثال في المرفق [/COLOR]
طريقة عمل KeyGen بالفيجوال بيسك دوت نت - أبو يعقوب - 25-04-13
السلام عليكم
KeyGen أختصار لـ Key Generator
يعني مولد كود تفعيل
وبما أنه مولد يعني يقوم بتوليد الكود بناء على معطيات معينة
والبرنامج أعلاه ليس مولد أكواد بل يعرضها، وفي هذه الحالة ملف نصي أفضل من برنامج
طريقة عمل KeyGen بالفيجوال بيسك دوت نت - ali.alfoly - 25-04-13
اخوانى
ممكن شرح بسيط لهذه النقطه اريد ان افهمها
TextBox1.Text = Int(Rnd() * 6)
طريقة عمل KeyGen بالفيجوال بيسك دوت نت - EHAB.NET - 26-04-13
اخي على يعني الحصول على قيمة عشوائية وإسناد ذلك إلى textbox.text
ويا اخي يعقوب كلامك صحيح 100% ولاكن يوجد الكثير من مولدات الارقام بهذا الشكل .
وعلى الجميع ان ينتبه انه ليس مولد للأرقام كما قال الاخ يعقوب بل هوا عبارة عن مجموعة سيريالات يعرضها البرنامج
مثل برامج مولد السيريالات وهناك مجموعه كبيرة يستخدمون مثل هذه العمليه !
تحياتي
طريقة عمل KeyGen بالفيجوال بيسك دوت نت - ahmed.elemam - 14-08-13
لو سمحت انا اريد الطريقة لعمل الـkeygen
طريقة عمل KeyGen بالفيجوال بيسك دوت نت - @@أبورائد@@ - 14-08-13
السلام عليكم ورحمة الله وبركاته
أخواني الأعزاء، الحلال بيّن والحرام بيّن
لا يبحث عن السيريال أو الكيجين إلا من لديه نسخة من برنامج ويريد أن يفعلها بدون مقابل أي بدون حق
نصيحة لله: أنصح الأخوة عدم التفاعل مع هذه المواضيع
نسأل الله أن نسلم من حقوق الآخرين
السلام عليكم ورحمة الله وبركاته
طريقة عمل KeyGen بالفيجوال بيسك دوت نت - ahmed.elemam - 15-08-13
يا ابو رائد انا اقصد صنعت برنامج يحقق ارادات عاليى لاصحاب المواقع والمنتديات والمدونات فاريد ان اكسب انا ايضا أريد ان اصنع له اصدار 2 مع سيريال
طريقة عمل KeyGen بالفيجوال بيسك دوت نت - سعود - 15-08-13
فيه تعديل على الكود وهو اسناد الرقم العشوائي لمتغير وليس لمربع النص ..
----------------------------------------------------------------------------
كتبت كود لا اقصد قيم معينة لكن للتسلية:
في منطقة التصريحات العامة اكتب:
كود :
Dim lst As New List(Of String)
Dim a, s, d, f As Integerوفي حدث تحميل الفورم اكتب:
كود :
Randomize()وفي زر التوليد اكتب
كود :
Randomize
()gn:
a = Rnd() * 9999
s = Rnd() * 9999
d = Rnd() * 9999
f = Rnd() * 9999
If lst.Contains(a) And lst.Contains(s) And lst.Contains(d) And lst.Contains(f) Then
GoTo gn
End If
lst.Add(a)
lst.Add(s)
lst.Add(d)
lst.Add(f)
TextBox1.Text = a & "-" & s & "-" & d & "-" & fطريقة عمل KeyGen بالفيجوال بيسك دوت نت - الشاكي لله - 15-08-13
للتوضيح بس
عملية حساب السيريال لاتتم بهذه السهولة
واغلب صانعي الكيجنات لايتسعملون هذه الطريقة
ماالفائدة في keygen محفوظ فيه السيريلات
الكيجن يولد السيريلات عن طريق حسابات مع خوارزمية توليد السيريال في البرنامج الهدف
شوف الصورة (مقتبسة من احد دروس تكوين كيجن بلغة دلفي) :
يقوم المبرمج الذي يريد صنع كيجن
بكتابة هذه الخوارزمية بالغة التي تبرمج بها حيث تستبدل ب for وخلافه
عادا الخوارزميات يوجد لها مفتاح نصي يتم على حسابه صنع السيريال من خلال اي اسم يدخله المستخدم
يتم مقارنة السيريال الذي تم توليده من الخوارزمية بالسيريال المدخل من المستخدم
اذا السيريال المولد من الخوارمية تطابق مع السيريال المدخل من المستخدم - نجح التسجيل
فاذا كنت تريد صنع كيجن لابد لك من دراسة الاسمبلي والتعمق فيه
ثم دراسة خوارزمية البرنامج الذي تريد صنع كيجن له
وكتابة الخوارزمية من جديد + التعديل عليها بعد دراستها ، ثم كتابتها ب الفيجوال بيسك او اي لغة اخرى
طريقة عمل KeyGen بالفيجوال بيسك دوت نت - ali.alfoly - 15-08-13
اخى الكريم انتا فاهم الموضوع خطاء
اصلا انت تريد
حماية برنامجك وتجعله غير مجانى ولايقبل التشغيل الا بسريال يقوم المستخدم بشرائه منك البس كذلك