Codenstuff.com: VB 2010 | Create Simple Keygen

iFunnyTutorials
Just Registered

Posts: 4

Joined: Sat Jan 09, 2010 5:56 pm

VB 2010 | Create Simple Keygen
iFunnyTutorials
Sat Jan 09, 2010 9:28 pm

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

Last edited by iFunnyTutorials on Wed Feb 10, 2010 5:01 pm, edited 4 times in total.

CodenStuff
Site Admin

Posts: 4392

Joined: Tue Aug 04, 2009 1:47 am

Re: VB 2010 | Create Simple Keygen
CodenStuff
Sat Jan 09, 2010 10:15 pm

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;

Welcome to CodenStuff.com Learn Code, Love Code. Thank you for being a member of the community.

Lewis
Coding God

Posts: 1564

Joined: Sun Dec 20, 2009 2:12 pm

Re: VB 2010 | Create Simple Keygen
Lewis
Sun Jan 10, 2010 11:41 am

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

iFunnyTutorials
Just Registered

Posts: 4

Joined: Sat Jan 09, 2010 5:56 pm

Re: VB 2010 | Create Simple Keygen
iFunnyTutorials
Sun Jan 10, 2010 2:04 pm

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;

DEJORDZTA
Just Registered

Posts: 3

Joined: Mon Jul 05, 2010 10:59 pm

Re: VB 2010 | Create Simple Keygen
DEJORDZTA
Mon Jul 05, 2010 11:18 pm

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

Keep up the good work

I don't get signatures, aren't they supposed to have your signature in it? not wrtitng and a pic?

Well i'm not funny enough to write something clever, and i can't be bothered launching up photoshop or after effects or even 3ds max to make something cool....

zachman61
VIP - Donator

Posts: 1892

Joined: Wed Dec 16, 2009 9:56 pm

Re: VB 2010 | Create Simple Keygen
zachman61
Tue Jul 06, 2010 12:34 am

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

Nailing my feet to the floor is easier than using my own muscles to balance, but you don't see me doing that

ManMega1
VIP - Site Partner

Posts: 326

Joined: Thu Dec 31, 2009 6:09 pm

Re: VB 2010 | Create Simple Keygen
ManMega1
Tue Jul 06, 2010 8:42 pm

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.

mandai
Coding God

Posts: 2585

Joined: Mon Apr 26, 2010 6:51 pm

Re: VB 2010 | Create Simple Keygen
mandai
Tue Jul 06, 2010 9:42 pm

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

un kn0 wn
VIP - Donator

Posts: 269

Joined: Mon Mar 29, 2010 6:12 pm

Re: VB 2010 | Create Simple Keygen
un kn0 wn
Wed Jul 07, 2010 7:32 pm

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.

Zulf
Serious Programmer

Posts: 441

Joined: Fri Jun 11, 2010 7:46 am

Re: VB 2010 | Create Simple Keygen
Zulf
Wed Jul 07, 2010 9:32 pm

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

Breadcrumbs

Post Options:

Post Options:

Post Options:

Post Options:

Post Options:

Post Options:

Post Options:

Post Options:

Post Options:

Post Options:

Copyright Information