(PureBasic) Generating Random Password

Demonstrates how to generate random passwords.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkPrng.pb"
IncludeFile "CkGlobal.pb"

Procedure ChilkatExample()

    ; All Chilkat classes can be unlocked at once at the beginning of a program
    ; by calling UnlockBundle.  It requires a Bundle unlock code.
    chilkatGlob.i = CkGlobal::ckCreate()
    If chilkatGlob.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i = CkGlobal::ckUnlockBundle(chilkatGlob,"Anything for 30-day trial.")
    If success <> 1
        Debug CkGlobal::ckLastErrorText(chilkatGlob)
        CkGlobal::ckDispose(chilkatGlob)
        ProcedureReturn
    EndIf

    fortuna.i = CkPrng::ckCreate()
    If fortuna.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Set this equal to 1 if the generated password must include at least one digit (0-9)
    bDigit.i = 1

    ; Set this equal to 1 if the generated password must include both uppercase and lowercase chars.
    bUpperAndLower.i = 1

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

    ; Exclude chars that appear similar to others:
    excludeChars.s = "iIlLoO0"

    ; Generate 8-character passwords:
    i.i
    For i = 1 To 10
        Debug CkPrng::ckRandomPassword(fortuna,8,bDigit,bUpperAndLower,otherChars,excludeChars)
    Next


    CkGlobal::ckDispose(chilkatGlob)
    CkPrng::ckDispose(fortuna)


    ProcedureReturn
EndProcedure