How to Make a KeyGen
This Is A Simple How to make a Keygen in VB.NET and NO Im not using real Keys. But What You Would Do Is in the coding you would have to replace the X's with The key itself.
Make a New Proect
Start Visual Basic 2010.
Make a New Windows Form Applications.
Make a New Windows Form Applications.
Make 4 Labels
Make 4 Labels. One that says "64bit Key" and another for "32bit Key."
Make 2 other Labels that say "Key".
Make 2 other Labels that say "Key".
Make 2 Text Boxes and 2 Buttons
Make 2 Text Boxes and 2 Buttons.
Name The Buttons Generate and Keep The Text Boxes Blank.
Name The Buttons Generate and Keep The Text Boxes Blank.
Coding the Buttons
For the Generate Buttons (Buttons 1/2) Put this code in:
TextBox1.Text = Int(Rnd() * 4)
Select Case TextBox1.Text
Case 0
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
Case 1
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
Case 2
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
Case 3
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
Case 4
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
Case 5
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
End Select
TextBox1.Text = Int(Rnd() * 4)
Select Case TextBox1.Text
Case 0
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
Case 1
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
Case 2
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
Case 3
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
Case 4
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
Case 5
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
End Select
Run It and If It Works Your Finished
Run and See if it works Without Error
If So Build and Publish It
If So Build and Publish It