لما نحمل برنامج غير مجاني من مواقع الهاكر
غالبا ما نجد keygen مرفق مع البرنامج
يكفي أنك تدخل عليه و تنقر على generate حتى تظهر سريالات
فهل تسآلت يوما كيف تظهر السريالات؟؟
هذا برنامج keygen قربه السورس كود
نحن نرتكز على السريالات
اذن طريقة العمل هي كالتالي
لما ننقر على generate
يتنفذ الكود الي بالأحمر
randomize : نقول للبروسيس أن يهيئ نفسه لاختيار عشوائي
serial : هو متغير
int(Rnd * 7)+1 : هوكود اختيار العدد العشوائي بين 1 و 7 (و 7 يجب تغييره الى عدد السريالات التي بحوزتنا)
الأن لما يتم اسناد قيمة عشوائية الى select ، ننظر ما هي القيمة التي تكون بين 1 و 7 في هذه الحالة ( لما تغير العدد 7 فان القيمة تكون بين 1 و ذلك العدد الذي غيرته)
من select case حتى end select : فيها يتم اظهار النص المتعلق بالرقم المختار
اذن اذا أردت صناعة سريال قم بوضع السريالات في serial 7 ،serial 6 ،serial 5 ،serial 4 ،serial 3 ، serial 2، serial 1
حتى العدد الذي اخترته (من 1 الى ...)
لما تنشئ البرنامج فتشاهد أنه يظهر السريالات بطريقة عشوائية
طبعا اجعل الواجهة أكثر جمالا بوضع صور و خلفيات و حقوق ...
سورس كود الصورة
Private Sub Command1_Click()
Randomize
serial = Int(Rnd * 7) + 1
Select Case serial
Case 1
Text1.Text = "serial 1"
Case 2
Text1.Text = "serial 2"
Case 3
Text1.Text = "serial 3"
Case 4
Text1.Text = "serial 4"
Case 5
Text1.Text = "serial 5"
Case 6
Text1.Text = "serial 6"
Case 7
Text1.Text = "serial 7"
End Select
End Sub
Private Sub Command2_Click()
Clipboard.SetText Text1.Text
End Sub
Private Sub Command3_Click()
End
End Sub
