Visual Basic Tip of the Week #3

[Killer42]

Originally posted by sashi

Generate Random Password

' Form code - frmPasswordGenerate
 
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Public Function PassGen(nLen As Long) As String
  Dim range As Collection
  Dim ivalue As Long, icount As Long, iLen As Long
  Dim pass As String
 
  Set range = New Collection
  range.Add ("0")
  range.Add ("1")
  range.Add ("2")
  range.Add ("3")
  range.Add ("4")
  range.Add ("5")
  range.Add ("6")
  range.Add ("7")
  range.Add ("8")
  range.Add ("9")
 
  iLen = range.Count
 
  Do Until icount = nLen
    Randomize
    ivalue = CByte(Mid(CStr(Rnd(GetTickCount)), 3, 2))
    If ivalue > 0 And ivalue <= iLen Then
      icount = icount + 1
      pass = pass & range(ivalue)
    End If
  Loop
 
  PassGen = pass
End Function
 
Private Sub cmdGeneratePassword_Click()
  MsgBox PassGen(8)
End Sub