(Visual FoxPro) Generating Random Password

Demonstrates how to generate random passwords.

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

LOCAL loChilkatGlob
LOCAL lnSuccess
LOCAL loFortuna
LOCAL lnBDigit
LOCAL lnBUpperAndLower
LOCAL lcOtherChars
LOCAL lcExcludeChars
LOCAL i

* All Chilkat classes can be unlocked at once at the beginning of a program
* by calling UnlockBundle.  It requires a Bundle unlock code.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Global')
loChilkatGlob = CreateObject('Chilkat.Global')
lnSuccess = loChilkatGlob.UnlockBundle("Anything for 30-day trial.")
IF (lnSuccess <> 1) THEN
    ? loChilkatGlob.LastErrorText
    RELEASE loChilkatGlob
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Prng')
loFortuna = CreateObject('Chilkat.Prng')

* Set this equal to 1 if the generated password must include at least one digit (0-9)
lnBDigit = 1

* Set this equal to 1 if the generated password must include both uppercase and lowercase chars.
lnBUpperAndLower = 1

* 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,lnBDigit,lnBUpperAndLower,lcOtherChars,lcExcludeChars)
NEXT

RELEASE loChilkatGlob
RELEASE loFortuna