技術小秘訣: Perl 版的密碼產生器

技術小秘訣: Perl 版的密碼產生器

#!/usr/bin/Perl

@list = (0..9, a..z, A..Z,'!','@','#','$','%','^','&','*','(',')');
$range = 71;

for ( 1..10 )
{
$pass .= $list[int(rand($range))];
}
print "$pass\n";


http://www.geego.com.tw/tech_support/tech_tips_07_perl-passwrd-producer