(Excel) Generating Random Password

Demonstrates how to generate random passwords.

Download Excel Class Modules Chilkat Excel Class Modules

' 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 Chilkat.CkGlobal
Set chilkatGlob = Chilkat.NewCkGlobal

success = chilkatGlob.UnlockBundle("Anything for 30-day trial.")
If (success <> True) Then
    Debug.Print chilkatGlob.LastErrorText
    Exit Sub
End If

Dim fortuna As Chilkat.Prng
Set fortuna = Chilkat.NewPrng

' Set this equal to True if the generated password must include at least one digit (0-9)

bDigit = True

' Set this equal to True if the generated password must include both uppercase and lowercase chars.

bUpperAndLower = True

' The generated password must contain one of the following non-alphanumeric chars.

otherChars = "@#$%*"

' Exclude chars that appear similar to others:

excludeChars = "iIlLoO0"

' Generate 8-character passwords:

For i = 1 To 10
    Debug.Print fortuna.RandomPassword(8,bDigit,bUpperAndLower,otherChars,excludeChars)
Next