星星博客's Archiver

cnangel 发表于 2005-8-25 19:35

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

[color=red]作者:xiaocui
日期:00-7-5 下午 03:05:56[/color]
show.pl
[code]
#!/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=&#35;c0c0c0>\n";
print "<p> </p>";
print "<p align=center><font color=&#35;8080FF><big><strong>送您一百个随机密码, 虽然不好记, 但是都是随机产生的, 很安全!</strong></big></font></p>\n";
print "<div align=center><center>";
print "<table border=1 bgcolor=&#35;C0C0C0 cellspacing=1 cellpadding=3>\n";
for(&#36;i=0;&#36;i<10;&#36;i++)
{
   print "<tr>";
   for(&#36;j=0;&#36;j<10;&#36;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
{
   &#36;str="";
   for(&#36;k=0;&#36;k<8;&#36;k++)
   {
      &#36;num=int(rand(3));
      if(&#36;num==0) { &#36;str.=pack("c",rand(10)+48); }
      elsif(&#36;num==1) { &#36;str.=pack("c",rand(26)+65); }
      elsif(&#36;num==2) { &#36;str.=pack("c",rand(26)+97); }
   }
   return &#36;str;
}
[/code]

[color=#CC0000][b]——————以下内容由[u]Cnangel[/u]在[u]2005年08月25日 07:36pm[/u]时添加———————[/b][/color]

    个人觉得此方法并不是特别高明,可能写这个程序的人那时侯也是一个初学者吧!

页: [1]

Powered by Discuz! Archiver 7.0.0  © 2001-2009 Comsenz Inc.