| |
|
Tech Tips7
Perl版的密碼產生器
...回技術小秘訣
|
作者：Ben哥
發布日期：2007/6/7 |
|
| |
由學員耀華電子資訊科長提供
#!/usr/bin/Perl
@list = (0..9, a..z, A..Z,'!','@','#','$','%','^','&','*','(',')');
$range = 71;
for ( 1..10 )
{
$pass .= $list[int(rand($range))];
}
print "$pass\n";
|
如您有任何問題，歡迎來信給Ben哥喔！
|
|
