可以通过参数控制生成密码中包括的字符种类
#!/usr/bin/perl
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 = ();
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;
以上就是本文给大家分享的全部代码了,希望对大家学习Perl能够有所帮助
您可能感兴趣的文章:
- Perl5和Perl6对比使用Sigils的差别
- Perl6中的垃圾收集
- 强大的Perl正则表达式实例详解
- Perl中的符号 ->;、=>; 和 :: 分别表示什么意思?
- Perl中常见符号与操作
- Perl学习教程之单行命令详解
- Perl时间处理函数用法介绍
- Perl字符串处理函数大全
- 详解linux下批量替换文件内容的三种方法(perl,sed,shell)
- Perl与JS的对比分析(数组、哈希)
- ASP.NET中HyperLink超链接控件的使用方法
- 将Perl5代码迁移到Perl6上的解决方案