perl生成随机密码

3月 28
Year 2012 小桥流水人家 Code

perl生成随机密码

  1. [root@Nagios a]# perl -le 'print map{(a..z,A..Z,0..9)[rand 64]}0..pop' 8
  2. jm6sKgVlW
Leave a comment

3 Comments

  1. 天宝哥哥 On 4月 14th, 2012 / #1 Reply

    follow 没有小桥的来的爽。哈哈。

  2. follow On 3月 29th, 2012 / #2 Reply

    非常简洁呵呵，平时我生成密码也是这么做的。我会生成10个 然后自己挑选一个喜欢的。
    #!/usr/bin/perl

    use strict;
    use warnings;

    my @a = (0..9,’a’..’z’,’A’..’Z’,’.’,’/’,’-‘,’=’,'[‘,’;’,’#’,’!’,’$’,’%’,’*’);
    my $passwd_length = 15;

    sub random_passwd {
    join ”, map { $a[int rand @a] } 1 .. 15;
    }

    for (1..10) {
    print random_passwd,”\n”;
    }