Random Password Generator


/ Published in: Visual Basic
Save to your folder(s)



Copy this code and paste it in your HTML
  1. Function genAdvRndString(ByRef length As Integer) As String
  2. Randomize()
  3. Dim allowableChars As String
  4. allowableChars = "!@#$%^&*()?><1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
  5.  
  6. Dim i As Integer
  7. For i = 1 To length
  8. genAdvRndString = genAdvRndString & Mid$(allowableChars, Int(Rnd() * Len(allowableChars) + 1), 1)
  9. Next
  10. End Function

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.