Random Password Generator

[DoomGuard]

Tutorial By: Baller_tk

Create a TextBox(text1)
Then create a CommandButton(command1)
Then insert this code:

Created by Baller_tk
'www.iCode.co.nr

Private Sub Command1_Click()
   Text1 = GenerateCode() 'make sure ur textbox is called Text1
End Sub

Public Function GenerateCode()
   strInputString = "1234567890abcdefghijklmnopqrstuvwxyz" 'these are the characters which will be in the password
   
   intLength = Len(strInputString)
   
   intNameLength = 7 'edit this according to how long u want ur password to be
   
   Randomize ' jus to make it random :D
   
   strName = ""
   
   For intStep = 1 To intNameLength
	   intRnd = Int((intLength * Rnd) + 1)
   
	   strName = strName & Mid(strInputString, intRnd, 1)
   Next
   
   GenerateCode = strName
End Function

[Legends]

Is not it better only:

Int (Rnd * number)

[talsi123]

thanks for this.
many password generators available on the net btw.

[-Paul-]

Thanks dude but i bet the guy has something y\to do with him recieving them passwords

[Thomaszek]

I want password generator with many functions. You can make addons in this program?

[pushtiu]

I need too...
If you can add some new functions... such as range of chars: 0-9, a-z etc...
Thanks anyway! It's a good start!