(Visual Basic 6.0) Generating Random Password

Demonstrates how to generate random passwords.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

' All Chilkat classes can be unlocked at once at the beginning of a program
' by calling UnlockBundle.  It requires a Bundle unlock code.
Dim chilkatGlob As New ChilkatGlobal
Dim success As Long
success = chilkatGlob.UnlockBundle("Anything for 30-day trial.")
If (success <> 1) Then
    Debug.Print chilkatGlob.LastErrorText
    Exit Sub
End If

Dim fortuna As New ChilkatPrng

' Set this equal to 1 if the generated password must include at least one digit (0-9)
Dim bDigit As Long
bDigit = 1

' Set this equal to 1 if the generated password must include both uppercase and lowercase chars.
Dim bUpperAndLower As Long
bUpperAndLower = 1

' The generated password must contain one of the following non-alphanumeric chars.
Dim otherChars As String
otherChars = "@#$%*"

' Exclude chars that appear similar to others:
Dim excludeChars As String
excludeChars = "iIlLoO0"

' Generate 8-character passwords:
Dim i As Long
For i = 1 To 10
    Debug.Print fortuna.RandomPassword(8,bDigit,bUpperAndLower,otherChars,excludeChars)
Next