Microsoft Visual Basic 2010 is a very powerful tool that allows you to quickly and easily set up the design of a program and just as easily allows you to code your program. It has been used to make anything from simple text editors to advanced and powerful operating systems. Today I am going to show you how to create a Password, PIN, and Key generator that should look something like this when we are done. I will also teach you how to customize it and make it your own.
Before we start I would like to explain this will not help you crack, hack, or attack accounts, personal information, or programs. It simply will give you a randomly generated password, PIN, or serial key.
*If you already have Visual Basic skip to Starting your Generator
Downloading and Installing Visual Basic 2010
1)Follow this link to Microsoft Visual Basic 2010 Express Download: http://www.microsoft.com/
*English speakers click this button:
*Non-English Speakers go here:
2)Click install now and let the download run. You will be asked to allow it to make changes to your computer. Make sure you click yes.
*It is 100% safe see here:
3)Once the download is complete, complete the installation process and you are ready to go.
Starting your Generator
Now that our installation is complete we are going to start our generator. First you need to open up visual basic and create a new Windows Forms Application. To do this go to File>New>Windows Forms Application. Usually when you start a visual basic project I suggest getting the style and look of your project done first. That is what we are going to do here.
First, we will create our text boxes and labels that will show the generated code. We will create 1 big text box for Passwords, 1 big text box for PINS, and 6 small text boxes for Keys. Text boxes are located in the tool box under Common Controls right here:
Labels are located in the toolbox also under Common Controls right here:
You can insert these textboxes and labels where ever you’d like and you can resize and format your page however you like. When you are done your page should look something like this:
Please take note the room I left at the top for things like Logos or anything extra you’d like to add and the room I left at the bottom for all your buttons.
Ok so now that our textboxes and labels are all in place we are going to add buttons that, when clicked, will generate the different codes. Buttons are located in the tool box under Common Controls right here:
In my generator I had several buttons. However to keep this tutorial simple we are only going to have 3. These 3 buttons will say “Generate Password”, “Generate PINS”, and “Generate Keys”. You can add however many you like but if you are following along with the tutorial your buttons should look something like this
Now that all your simple necessary display setups are done, it’s time to add some style to this. I am going to add my BMC Generator picture made with Photoshop, and I am going to change the background to red. To add a banner logo to your picture first you must go to Common Controls and find Picture Box. You can easily control the size of the picture box and the picture you want in it. Simply use the properties tab in the bottom right corner of your VB Document. Now to change the background color, click on the outside of your form and go to properties. There you will find a background color tab. There you can change it to whatever you want. Mine now looks like this:
There you go! You are all done with creating the basic visual part of your generator! Now it’s time to code it!
Coding the Buttons
To make our generator work we are going to need to code 3 different functions. 1 for passwords, 1 for pins, and 1 for keys. This is because each one contains different material. To see the coding of your VB project double click on any button and the form will pop up. Now let’s create our passwords function using this code:
*Note this goes right underneath Public Class. It cannot go in a private sub.
Public Function GeneratePasswordCode() As ObjectIn this function there are 3 crucial things you should pay attention to. They are, the name of the function (GeneratePasswordCode( ) ), strInputString, and intNameLength. The name of the function is important because we are going to use it to call the function later in our coding. strInputString displays all the characters we are going to use to make the random password, and the intNameLength sets how many characters long it is going to be. You can customize these functions by simply changing them around and playing around with them!
Dim intRnd As Object
Dim intStep As Object
Dim strName As Object
Dim intNameLength As Object
Dim intLenght As Object
Dim strInputString As Object
strInputString = “1234567890abcdefghijklmnopqrst uvwxyzABCDEFGHIJKLMNOPQRSTUVWX YZ”
intLenght = Len(strInputString)
intNameLength = 10
Randomize()
strName = “”
For intStep = 1 To intNameLength
intRnd = Int((intLenght * Rnd()) + 1)
strName = strName & Mid(strInputString, intRnd, 1)
Next
GeneratePasswordCode = strName
End Function
To create our pin generator function we are going to do the same thing except we are going to change the function name to GeneratePINcode( ), make the strInputString=”1234567890”, and we are going to make the input length at 4. You can make it however long you want but typically pins are 4. Your code should now look like:
Public Function GeneratePINSCode() As ObjectNow let’s create our Keys function. Do the same as you did with the PINS, but add the alphabet in all caps to strInputString and make the intNameLength=6. The reason we are making it equal 6 is because we are using 6 different text boxes, so if we put it as 25 it will put 25 digits in each individual text box. Your code should now look like:
Dim intRnd As Object
Dim intStep As Object
Dim strName As Object
Dim intNameLength As Object
Dim intLenght As Object
Dim strInputString As Object
strInputString = “1234567890″
intLenght = Len(strInputString)
intNameLength = 4
Randomize()
strName = “”
For intStep = 1 To intNameLength
intRnd = Int((intLenght * Rnd()) + 1)
strName = strName & Mid(strInputString, intRnd, 1)
Next
GeneratePINSCode = strName
End Function
Public Function GenerateKeysCode() As ObjectNow all your functions are ready to go. It’s time we put them to use! First we are going to create a click event. This means that when a user clicks something happens. To do this double click Generate Passwords. You have just created your first click event. Now in between Private Sub and End Sub put:
Dim intRnd As Object
Dim intStep As Object
Dim strName As Object
Dim intNameLength As Object
Dim intLenght As Object
Dim strInputString As Object
strInputString = “1234567890ABCDEFGHIJKLMNOPQRST UVWXYZ”
intLenght = Len(strInputString)
intNameLength = 6
Randomize()
strName = “”
For intStep = 1 To intNameLength
intRnd = Int((intLenght * Rnd()) + 1)
strName = strName & Mid(strInputString, intRnd, 1)
Next
GenerateKeysCode = strName
End Function
Textbox#.text=This is calling our function to the textbox we are using and making it generate a random code. Make sure you put the textbox number where I put the # symbol or else nothing will happen.GeneratePasswordCode( )
You can do the same exact thing for pins except it will be:
Textbox#.text=It’s the same thing just a different name.GeneratePINSCode()
Now for Keys it’s a little more work because we have 6 different textboxes so your code will look more like:
Textbox#.text=It’s the same thing just 6 times!GenerateKeysCode()
Textbox#.text=GenerateKeysCode()
Textbox#.text=GenerateKeysCode()
Textbox#.text=GenerateKeysCode()
Textbox#.text=GenerateKeysCode()
Textbox#.text=GenerateKeysCode()
Now your program is finished! Run and Debug the program to make sure there are no errors! Then go to Build>Publish and complete the process. Then you should get an icon on your desktop called setup.exe. Run that and install your application and pass it on to all your friends!
