Perl 版的密碼產生器。

ssaa

#!/usr/bin/Perl

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

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