咔叽游戏

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 336|回复: 0

[perl] 使用Perl生成随机密码

[复制链接]
  • TA的每日心情
    无聊
    2019-6-2 14:11
  • 签到天数: 4 天

    [LV.2]圆转纯熟

    发表于 2020-3-5 19:42:05 | 显示全部楼层 |阅读模式
    可以通过参数控制生成密码中包括的字符种类
    #!/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;
    以上就是本文给大家分享的全部代码了,希望对大家学习Perl能够有所帮助

    QQ|免责声明|小黑屋|手机版|Archiver|咔叽游戏

    GMT+8, 2024-3-29 14:20

    Powered by Discuz! X3.4

    © 2001-2023 Discuz! Team.

    快速回复 返回顶部 返回列表