(Lianja) Generating Random Password

Demonstrates how to generate random passwords.

Chilkat Lianja Extension Download Chilkat Lianja Extension

// All Chilkat classes can be unlocked at once at the beginning of a program
// by calling UnlockBundle.  It requires a Bundle unlock code.
loChilkatGlob = createobject("CkGlobal")
llSuccess = loChilkatGlob.UnlockBundle("Anything for 30-day trial.")
if (llSuccess <> .T.) then
    ? loChilkatGlob.LastErrorText
    release loChilkatGlob
    return
endif

loFortuna = createobject("CkPrng")

// Set this equal to .T. if the generated password must include at least one digit (0-9)
llBDigit = .T.

// Set this equal to .T. if the generated password must include both uppercase and lowercase chars.
llBUpperAndLower = .T.

// The generated password must contain one of the following non-alphanumeric chars.
lcOtherChars = "@#$%*"

// Exclude chars that appear similar to others:
lcExcludeChars = "iIlLoO0"

// Generate 8-character passwords:

for i = 1 to 10
    ? loFortuna.RandomPassword(8,llBDigit,llBUpperAndLower,lcOtherChars,lcExcludeChars)
next


release loChilkatGlob
release loFortuna