Tcl

Generating Random Password

See more PRNG Examples

Demonstrates how to generate random passwords. Tcl

load ./chilkat.dll

set success 0

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

set success 0

set fortuna [new_CkPrng]

# Set this equal to 1 if the generated password must include at least one digit (0-9)
set bDigit 1

# Set this equal to 1 if the generated password must include both uppercase and lowercase chars.
set bUpperAndLower 1

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

# Exclude chars that appear similar to others:
set excludeChars "iIlLoO0"

# Generate 8-character passwords:

for {set i 1} {$i <= 10} {incr i} {
    puts [CkPrng_randomPassword $fortuna 8 $bDigit $bUpperAndLower $otherChars $excludeChars]
}

delete_CkPrng $fortuna