Password Generator by -Away.
Hello guys, I did a password generator and posted it on spammers section and etc..(You can see it on my signature ) Some asked for the code..I will share with you guys..
Im sorry i will not explain the code, But its pretty easy..
First, Import this:
Then Declare this:
Then in the button Generate is something like:
(This will generate and put in a textbox...)
That code will just generate one letter, If you want more letters just add in this:
When you add "& AllLetters(Round(AllLetters.Count - 1 * Rnd()))" its one more letter..
Letters: Done..
Now numbers its almost the same thing..
Just do this:
This will generate just one number (0- 9) if you want more.. Just add :
& Round(9* Rnd()) , Etc..
For Example 3 Numbers:
To put both (Letters & Numbers) its just the same thing.. But you add like..
One letter then one number..One letter one number etc..
Like this:
Below is my complete project to download (Open Source )..
The program is this: Here
The source is below..To download..Just wait for approve..
ENjoy!!!!!!!! Sorry for my bad english..And bad explanation...
Virus Scans:
1ⓘ
2ⓘ
Im sorry i will not explain the code, But its pretty easy..
First, Import this:
Code:
Imports System.Math
Code:
Dim AllLetters() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
(This will generate and put in a textbox...)
Code:
Try
1: Randomize()
TextBox1.Text = AllLetters(Round(AllLetters.Count - 1 * Rnd()))
Catch ex As Exception
GoTo 1
End Try
Code:
TextBox1.Text = AllLetters(Round(AllLetters.Count - 1 * Rnd())) & AllLetters(Round(AllLetters.Count - 1 * Rnd())) ' & etc.. & etc..
Letters: Done..
Now numbers its almost the same thing..
Just do this:
Code:
Textbox1.Text = Round(9* Rnd())
& Round(9* Rnd()) , Etc..
For Example 3 Numbers:
Code:
Textbox1.Text = Round(9* Rnd()) & Round(9* Rnd()) & Round(9* Rnd())
To put both (Letters & Numbers) its just the same thing.. But you add like..
One letter then one number..One letter one number etc..
Like this:
Code:
Textbox1.Text = AllLetters(Round(AllLetters.Count - 1 * Rnd())) & Round(9* Rnd()) & AllLetters(Round(AllLetters.Count - 1 * Rnd())) & Round(9* Rnd()) ' Etcc How mANY YOU WANTT..
The program is this: Here
The source is below..To download..Just wait for approve..
ENjoy!!!!!!!! Sorry for my bad english..And bad explanation...
Virus Scans:
1ⓘ
2ⓘ
Password Generator by -Away.rar





