(Perl) Generating Random Password

Demonstrates how to generate random passwords.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

# All Chilkat classes can be unlocked at once at the beginning of a program
# by calling UnlockBundle.  It requires a Bundle unlock code.
$chilkatGlob = chilkat::CkGlobal->new();
$success = $chilkatGlob->UnlockBundle("Anything for 30-day trial.");
if ($success != 1) {
    print $chilkatGlob->lastErrorText() . "\r\n";
    exit;
}

$fortuna = chilkat::CkPrng->new();

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

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

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

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

# Generate 8-character passwords:

for ($i = 1; $i <= 10; $i++) {
    print $fortuna->randomPassword(8,$bDigit,$bUpperAndLower,$otherChars,$excludeChars) . "\r\n";
}