PureBasic

Generating Random Password

See more PRNG Examples

Demonstrates how to generate random passwords. PureBasic

IncludeFile "CkPrng.pb"

Procedure ChilkatExample()

    success.i = 0

    ; This example assumes the Chilkat API to have been previously unlocked.
    ; See Global Unlock Sample for sample code.

    success = 0

    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


    CkPrng::ckDispose(fortuna)


    ProcedureReturn
EndProcedure