Random Password Generator

[Waffles]

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

'Property of Waffles
'www.sythe.org

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

 

[UmagChris]

I would remove the "Property of waffles" seeing as you don't own this.

http://www.slopdog.com/forum/connors_password_gen_source-t80568.html?

I believe this is the same as "yours" ...