當前位置:開發者網絡 >> 技術教程 >> CGI教程 >> CGI文檔 >> 內容
精彩推薦
分類最新教程
分類熱點教程
    
獲取隨機的由大小寫字母和數字組成的八位密碼
作者:未知
日期:2003-09-13
人氣:
投稿:Andy.m(轉貼)
來源:未知
字體:
收藏:加入瀏覽器收藏
以下正文:
show.pl

#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head><meta http-equiv=Content-Type content=text/html;charset=gb2312>\n";
print "<head>\n<body bgcolor=#c0c0c0>\n";
print "<p> </p>";
print "<p align=center><font color=#8080FF><big><strong>送您一百個隨機密碼, 雖然不好記, 但是都是隨機產生的, 很安全!</strong></big></font></p>\n";
print "<div align=center><center>";
print "<table border=1 bgcolor=#C0C0C0 cellspacing=1 cellpadding=3>\n";
for($i=0;$i<10;$i++)
{
   print "<tr>";
   for($j=0;$j<10;$j++)
     {
      print "<td>";
      print &getstring;
      print "</td>";
     }
   print "</tr>\n";
}
print "</table></center></div>\n";
print "<p></p>";

print "<p><center><a href=show.pl><span style=\"FONT-FAMILY: 細明體; FONT-SIZE: 10pt\">再算一遍</span></a></center></p>";
print "\n</body></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;
}
相關文章: