一个量产随机密码的小perl程序

#!/usr/bin/perl
use String::MkPasswd qw(mkpasswd);

print "How many passwords do you make: ";
chmod($number =);
for($n=0; $n<$number; $n+=1) {
            print mkpasswd(-length => 10, -minnum => 2, -minlower => 2, -minupper => 2, -minspecial =>2 );
            print "\n";
             }

 

产生10位的随机密码，当然你需要安装 String::MkPasswd模块