Codenstuff.com

Hello, welcome to this simple tutorial! On createing a basic keygen!
In this example I will be using two products from Adobe!

Form1 Properties:
Size = 541 x 197 (Height 541 & Width 197, X & Y)
AutoSizeMode = GrowAndShrink
FormBorderStyle = FixedDialog
ShowIcon = False
Maximize Box = False
Minimize Box = False

Form 1:
Label x2
Button x2
Combobox x1
Textbox x1

Label1 = "<Your Keygen Title>"
Label2 = "By <Your Name>"
Button 1 = "Generate"
Button2 = "Close"
Combobox1 = ""
Textbox1 = ""

Lets get started!

Step 1:

Dim "" As Integer:
The "Dim Key As Integer" Dims as Integer, so you will put "Key = (Rnd()* 6)"
If you change it to "Dim Code As Integer", you will put "Code = (Rnd()* 6)"

(Rnd()* 6):
Putting, "(Rnd()* 6)" = 6 Case codes
It will select cases randomly!

Copy (CTRL + C) & Paste (CTRL + V) This Code Into VB: If this doesn't work PM me at;

YouTube - http://www.YouTube.com/user/iFunnyTutorials
E-mail - iFunnyTutorials@Live.co.uk

- Best Regards!
Thanks For Watching! wahooo;

Finished Project:
http://i982.photobucket.com/albums/ae30 ... tled-1.png

Hello iFunnyTutorials,

Excellent tutorial, detailed step-by-step and great use of "Select..Case" ;)

Keep up the good work and welcome to the site cooll;

Hello IFunnyTutorials,
I thought this was a Real keygen that would work but as already stated Nice and detailed Select... Case do theres my comment xD,

- Lewis Froom

CodenStuff wrote:

Hello iFunnyTutorials,

Excellent tutorial, detailed step-by-step and great use of "Select..Case" ;)

Keep up the good work and welcome to the site cooll;

Thanks Code'n'Stuff, I love your site keep it up! omg;
It's my first tut! wahooo;

Thanks for the tut. was wondering where to make these...

Keep up the good work

these aren't real keygens because those are against terms
but nice tutorial

iFunnyTutorials wrote:

Hello, welcome to this simple tutorial! On createing a basic keygen!
In this example I will be using two products from Adobe!

Form1 Properties:
Size = 541 x 197 (Height 541 & Width 197, X & Y)
AutoSizeMode = GrowAndShrink
FormBorderStyle = FixedDialog
ShowIcon = False
Maximize Box = False
Minimize Box = False

Form 1:
Label x2
Button x2
Combobox x1
Textbox x1

Label1 = "<Your Keygen Title>"
Label2 = "By <Your Name>"
Button 1 = "Generate"
Button2 = "Close"
Combobox1 = ""
Textbox1 = ""

Lets get started!

Step 1:

Dim "" As Integer:
The "Dim Key As Integer" Dims as Integer, so you will put "Key = (Rnd()* 6)"
If you change it to "Dim Code As Integer", you will put "Code = (Rnd()* 6)"

(Rnd()* 6):
Putting, "(Rnd()* 6)" = 6 Case codes
It will select cases randomly!

Copy (CTRL + C) & Paste (CTRL + V) This Code Into VB:

Code: Select all

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ComboBox1.Text = "Adobe After Effects CS4" Then
            Dim Key As Integer
            Key = (Rnd() * 6)
            Select Case Key
                Case 1
                    TextBox1.Text = "1023-1053-1662-2707-1499-3356"
                Case 2
                    TextBox1.Text = "1023-1672-4335-3452-3435-4566"
                Case 3
                    TextBox1.Text = "1023-1456-4882-1402-0622-9810"
                Case 4
                    TextBox1.Text = "1023-1442-6540-8395-2803-7828"
                Case 5
                    TextBox1.Text = "1023-1053-1662-2707-1499-3356"
                Case 6
                    TextBox1.Text = "1325-1467-2240-9808-3928-9497"
            End Select
        End If
        If ComboBox1.Text = "Adobe Dreamweaver CS4" Then
            Dim Key As Integer
            Key = (Rnd() * 6)
            Select Case Key
                Case 1
                    TextBox1.Text = "1023-1053-1662-2707-1499-3356"
                Case 2
                    TextBox1.Text = "1023-1672-4335-3452-3435-4566"
                Case 3
                    TextBox1.Text = "1023-1456-4882-1402-0622-9810"
                Case 4
                    TextBox1.Text = "1023-1442-6540-8395-2803-7828"
                Case 5
                    TextBox1.Text = "1023-1053-1662-2707-1499-3356"
                Case 6
                    TextBox1.Text = "1325-1467-2240-9808-3928-9497"
            End Select
        End If
    End Sub
End Class

If this doesn't work PM me at;

YouTube - http://www.YouTube.com/user/iFunnyTutorials
E-mail - iFunnyTutorials@Live.co.uk

- Best Regards!
Thanks For Watching! wahooo;

Finished Project:
http://i982.photobucket.com/albums/ae30 ... tled-1.png

Did you get this off the web or YouTube or something because i've seen this tutorial so many times.

This is not a keygen. It does not generate new keys.

mandai wrote:

This is not a keygen. It does not generate new keys.

Yes, I agree with mandai that it is not a keygen becausse a keygen is something that generates keys this will probably be called a key selector as it selects from entered keys.

I do believe http://www.youtube.com/user/environmentalnerd54 has done this tutorial on YouTube?