获取随机的密码

show.pl
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "

 1<html>\n";   
 2print "<head><meta content="text/html;charset=utf-8" http-equiv="Content-Type"/>\n";   
 3print "<head>\n<body bgcolor="#c0c0c0">\n";   
 4print "<p> </p>";   
 5print "<p align="center"><font color="#8080FF"><big><strong>送您一百个随机密码, 虽然不好记, 但是都是随机产生的, 很安全!</strong></big></font></p>\n";   
 6print "<div align="center"><center>";   
 7print "<table bgcolor="#C0C0C0" border="1" cellpadding="3" cellspacing="1">\n";   
 8for($i=0;$i&lt;10;$i++)   
 9{   
10print "<tr>";   
11for($j=0;$j&lt;10;$j++)   
12{   
13print "<td>";   
14print &amp;getstring   
15print "</td>";   
16}   
17print "</tr>\n";   
18}   
19print "</table></center></div>\n";   
20print "<p></p>";   
21print "<p><center><a href="show.pl"><span 10pt\"="" font-size:="" style='\"FONT-FAMILY:' 宋体;="">再算一遍</span></a></center></p>";   
22print "\n</body></head></head></html>

\n";
exit;
sub getstring
{
$str="";
for($k=0;$k<8;$k++)
{
$num=int(rand(3));
if($num==0) { $str.=pack("c",rand(10)+48); }
elsif($num==1) { $str.=pack("c",rand(26)+65); }
elsif($num==2) { $str.=pack("c",rand(26)+97); }
}
return $str;
}