See below for the code. I have 6 arrays set up to handle the various types of passwords that the user could request. Once the user inputs the type of password and the password length, I'm using the rand function to generate the password and then either output it to the user directly, or output it to a file. The script also checks the length of the password and warns them if it is below 14 characters, suggesting that longer passwords are more secure. </P. 

use diagnostics;
use strict;
use warnings;

#sets password ranges
my @password;
my $password;
my $password_length = 0;
my $user_length = 0;
#seperate arrays for each password type
my @chars1 = ('0'..'9');
my @chars2 = ('A'..'Z');
my @chars3 = ('a'..'z');
my @chars4 = ('A'..'Z', 'a'..'z');
my @chars5 = ('A'..'Z', 'a'..'z', '0'..'9');
my @chars6 = ('0'..'9', 'a'..'z', 'A'..'Z', '!','@', '#', '$', '%',
'^', '&', '*', '(', ')', '<', '>', '?', '`', '+', '/', '[', '{', ']',
'}', '|', '=', '_','~', ',', '.');

#user inputs required length of password
print "Enter the required password length. ";
chomp($user_length = <STDIN>);
print "\n";

#user selects level of complexity12
print "Select a level of complexity for your password: \n";
print "1. Numeric passcode\t\t\t\t(low level of security) \n";
print "2. Single case alphabetic\t\t\t(low level of security) \n";
print "3. Multi-case alphabetic\t\t\t(low level of security) \n";
print "4. Alphanumeric\t\t\t\t\t(medium level of security) \n";
print "5. Alphanumeric with special characters\t\t(high level of secur
+ity) \n";
print "Complexity level: ";
chomp(my $level = <STDIN>);
print "\n";

if ($level > 1) {
    while ($user_length < 14) {
        print "*********************************\n";
        print "*\t\tError!\t\t*\n";
        print "*********************************\n";
        print "\n";
        print "Strong password guidelines require a minimum password l
+ength of 14 characters.";
        print "\n";
        print "\n";
        print "Do you want to generate a password which conforms to st
+rong password guidelines? \n";
        chomp (my $guidelines = <STDIN>);
        if ($guidelines =~ m/^y/i) {
            print "Enter a new password length: ";
            chomp ($user_length = <STDIN>);
        } elsif ($guidelines =~ m/^n/i) {
            goto PW;
        }
    }
}

PW:
if ($level == 1) {
     #mixed case password
     print "Generating a numeric passcode.";
     #increments until $user_length is met
     while ($password_length <= ($user_length-1)) {
          $password = $chars1[int rand @chars1];
          push @password, $password;
        ++$password_length;
    }
} elsif ( $level == 2) {
    #single case password
    print "Select case: \n";
    print "1. Upper \n";
    print "2. Lower \n";
    print "Case: ";
    chomp(my $case = <STDIN>);    
        if ($case == 1) {
            #uppercase password
              print "Generating an uppercase password.";
              #increments until $user_length is met
              while ($password_length <= ($user_length-1)) {
                   $password = $chars2[int rand @chars2];
                   push @password, $password;
                   ++$password_length;
              }
         } else {
              #lower case password
              print "Generating a lower case password.";
              #increments until $user_length is met
              while ($password_length <= ($user_length-1)) {
                   $password = $chars3[int rand @chars3];
                   push @password, $password;
                   ++$password_length;
              }
         }
} elsif ($level == 3) {
     #mixed case password
     print "Generating a mixed case password.";
     #increments until $user_length is met
     while ($password_length <= ($user_length-1)) {
          $password = $chars4[int rand @chars4];
          push @password, $password;
        ++$password_length;
    }
} elsif ($level == 4) {
    #alphanumeric password
     print "Generating an alphanumeric password.";
    #increments until $user_length is met
    while ($password_length <= ($user_length-1)) {
        $password = $chars5[int rand @chars5];
        push @password, $password;
        ++$password_length;
    }
} else {
    #alphanumeric password with special characters
    print "Generating an alphanumeric password with special characters
+.";
    #increments until $user_length is met
    while ($password_length <= ($user_length-1)) {
         $password = $chars6[int rand @chars6];
         push @password, $password;
        ++$password_length;
    }
}

#start export function
print "Do you want to export your password to a text file? (y/n) ";
chomp(my $export = <STDIN>);
print "\n";

if ($export =~ m/^y/i) {
    open (FH, '>>password.txt') or die $!;
    print FH "Your password is: ", @password, "\n";
    close FH;
} elsif ($export =~ m/^n/i) {
    print "Your password is: ", @password ,"\n";
} else {
    print "Enter either y or n to continue. \n" ;
    #needs to return to top of $export function
}

print "\n";
print "\n";
print "Your password has been generated. \n";

[download]

In reply to Re^2: Removing similar characters by rspishock
in thread Removing similar characters by rspishock

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.