正文

获取随机的由大小写字母和数字组成的八位密码

www.7dspace.com 更新日期：2005-8-17 2:48:29 七度空间

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(=0;<10;++)
{
   print "<tr>";
   for(=0;<10;++)
     {
      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
{
   ="";
   for(=0;<8;++)
   {
      =int(rand(3));
      if(==0) { .=pack("c",rand(10)+48); }
      elsif(==1) { .=pack("c",rand(26)+65); }
      elsif(==2) { .=pack("c",rand(26)+97); }
   }
   return ;
}

上一篇：Windows95/98,NT下如何发EMAIL
下一篇：Perl在NT下的快速简便安装方法

作者：来源：七度空间 ( 责任编辑:7dspace )

【收藏此页】【打印】【关闭】

站内搜索

热点导读

特别推荐