Posted By

mreed72 on 07/28/10


Tagged

basic password numbers random generator visual


Versions (?)

Random Password Generator


 / Published in: Visual Basic
 

  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  

You need to login to post a comment.