Advanced Search

Random Password Generator

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

Expand | Embed | Plain Text

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

You need to login to view comments.