Perl

Generating Random Password

See more PRNG Examples

Demonstrates how to generate random passwords. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $success = 0;

my $fortuna = Chilkat2::Prng->new;

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

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

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

# Exclude chars that appear similar to others:
my $excludeChars = 'iIlLoO0';

# Generate 8-character passwords:
for my $i (1 .. 10) {
    print $fortuna->RandomPassword(8, $bDigit, $bUpperAndLower, $otherChars, $excludeChars), "\n";
}