使用Perl生成随机密码（随机prim）深度揭秘

use strict;
use warnings;
use Getopt::Std;

sub show_help {
print “Useage:\n”;
print “newp -aAnsl\n”;
print “-a\t\t the password contains lower case letters(a-z)\n”;
print “-A\t\t the password contains upper case letters(A-Z)\n”;
print “-n\t\t the password contains numerical character(0-9)\n”;
print “-s\t\t the password contains special symbols\n”;
print “-u\t\t the password contains only unique characters\n”;
print “-l length\t set the password length(default: 6)\n”;

exit 0;
}

sub show_version {
print “Version: 0.2.1 Changed the default option: -l 9 -Ana. 2016-4-15\n”;

exit 0;
}

### main program

use vars qw($opt_a $opt_A $opt_h $opt_l $opt_n $opt_s $opt_u $opt_v);
getopts(‘aAhl:nsuv’);

&show_version if $opt_v;
&show_help if $opt_h;

my $len=$opt_l || 9; # default length 9
my $opt_cnt=0;
my @rand_str=();

# store all the characters
my @num=qw(0 1 2 3 4 5 6 7 8 9);
my @ABC=qw(A B C D E F G H I J K L M N O P Q R S T U V W X Y Z);
my @abc=qw(a b c d e f g h i j k l m n o p q r s t u v w x y z);
# my @sym=qw(! ” $ % & ‘ * + – . / : ; <=> ? @ [ \ ] ^ _ ` { | } ~);
my @sym=qw(! $ % & * + – . / : ; <=> ? @ [ ] ^ _ ` { | } ~); # no ” ‘ \
unshift (@sym, ‘(‘, ‘)’, ‘#’, ‘,’); # to prevent perl’s complains or warnings.
my @all_sym=(@num, @ABC, @abc, @sym);
my @ch_src=https://www.jb51.net/article/();

if ((!$opt_a) && (!$opt_A) && (!$opt_n) && (!$opt_s)) {
$opt_a++;
$opt_A++;
$opt_n++;
}

if ($opt_a) {
$opt_cnt++;
my $i=rand @abc;
unshift @rand_str, $abc[$i];

if ($opt_u) {
if ($i>=1) {
$abc[$i-1]=shift @abc;
} else {
shift @abc;
}
}

unshift (@ch_src, @abc);
}

if ($opt_A) {
$opt_cnt++;
my $i=rand @ABC;
unshift @rand_str, $ABC[$i];

if ($opt_u) {
if ($i>=1) {
$ABC[$i-1]=shift @ABC;
} else {
shift @ABC;
}
}

unshift (@ch_src, @ABC);
}

if ($opt_n) {
$opt_cnt++;
my $i=rand @num;
unshift @rand_str, $num[$i];

if ($opt_u) {
if ($i>=1) {
$num[$i-1]=shift @num;
} else {
shift @num;
}
}

unshift (@ch_src, @num);
}

if ($opt_s) {
$opt_cnt++;
my $i=rand @sym;
unshift @rand_str, $sym[$i];

if ($opt_u) {
if ($i>=1) {
$sym[$i-1]=shift @sym;
} else {
shift @sym;
}
}

unshift (@ch_src, @sym);
}

if ($len < $opt_cnt) {
print “The count of characters[$len] should not be smaller ” .
“than count of character types[$opt_cnt].\n”;
exit -1;
}

if ($opt_u && $len > (@ch_src + @rand_str)) {
print “The total number of characters[“.(@ch_src + @rand_str).
“] which could be contained ” .
“in password is smaller than the length[$len] of it.\n”;
exit -1;
}

foreach (1..$len-$opt_cnt) {
my $i=rand @ch_src;
unshift @rand_str, $ch_src[$i];

if ($opt_u) {
if ($i>=1) {
$ch_src[$i-1]=shift @ch_src;
} else {
shift @ch_src;
}
}
}

foreach (1..$len) {
my $i=rand @rand_str;
print $rand_str[$i];

if ($i>=1) {
$rand_str[$i-1]=shift @rand_str;
} else {
shift @rand_str;
}
}

print “\n”;
exit 0;