代码笔记 | Perl生成随机生成密码
来源:互联网 发布:java程序设计步骤 编辑:程序博客网 时间:2024/05/01 00:54
#!/usr/bin/perluse 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 programuse 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 9my $opt_cnt = 0;my @rand_str = ();# store all the charactersmy @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;
0 0
- 代码笔记 | Perl生成随机生成密码
- 用Perl生成随机密码
- 用Perl生成随机密码(转)
- MySQL 生成随机密码 笔记
- Perl 生成随机字符串
- asp.net 生成随机密码的代码
- 生成随机密码的C代码实现
- 生成随机密码的C代码实现
- php 随机用户名与随机密码生成代码
- ASP生成随机密码
- 随机生成密码函数
- 生成随机密码
- 生成随机密码
- 生成随机密码
- 随机生成密码
- 生成随机密码
- 生成随机密码
- 随机生成密码
- React-Native 常见错误及其原因
- 驰骋工作流引擎数据库的安装
- 加速度传感器模拟微信摇一摇
- 我的助理辞职了
- C#之命名空间学习案例
- 代码笔记 | Perl生成随机生成密码
- C/C++与lua的交互
- 执行计划、索引 是否会影响SQL的执行结果
- Java回调函数的理解
- Quartz与Spring集成——创建调度器 定时
- unity中鼠标经过一个物体时出现提示
- 当导入Android项目时出现红叉解决方案
- 博客生活
- Java-面向对象(基础篇)--String类