Perl与密码

  1. 密码破解工具
  • John the Ripper
  • Crack
  1. 密码生成
use Data::SimplePassword;
my $dsp=Data::SimplePassword->new();
#生成10个字符长度的随机密码。可以使用chars()方法指定要选用的字符。
print $dsp->make_password(10), "\n";

也可以

use Crypt::GeneratePassword; #符合NIST规范（FIPS-181）
for(1..5){
    print Crypt::GeneratePassword::word(8, 8), "\n";
    print Crypt::GeneratePassword::chars(8, 8), "\n"; #用这个^_*
}
#word()函数生成可读密码，chars()函数生成随机密码。两个函数都是如下参数：
#(最短密码长度, 最长密码长度)