#!/usr/bin/Perl

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

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

來源：奇科電腦Ben老師  http://www.geego.com.tw

arrow
arrow
    全站熱搜
    創作者介紹
    創作者 台灣 富捷IT培訓 的頭像
    台灣 富捷IT培訓

    台灣 富捷 IT 培訓

    台灣 富捷IT培訓 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄