返回列表 回复 发帖

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

作者:xiaocui
日期:00-7-5 下午 03:05:56

show.pl
  1. #!/usr/bin/perl
  2. print "Content-type: text/html\n\n";
  3. print "<html>\n";
  4. print "<head><meta http-equiv=Content-Type content=text/html;charset=gb2312>\n";
  5. print "<head>\n<body bgcolor=&#35;c0c0c0>\n";
  6. print "<p> </p>";
  7. print "<p align=center><font color=&#35;8080FF><big><strong>送您一百个随机密码, 虽然不好记, 但是都是随机产生的, 很安全!</strong></big></font></p>\n";
  8. print "<div align=center><center>";
  9. print "<table border=1 bgcolor=&#35;C0C0C0 cellspacing=1 cellpadding=3>\n";
  10. for(&#36;i=0;&#36;i<10;&#36;i++)
  11. {
  12.    print "<tr>";
  13.    for(&#36;j=0;&#36;j<10;&#36;j++)
  14.      {
  15.       print "<td>";
  16.       print &getstring;
  17.       print "</td>";
  18.      }
  19.    print "</tr>\n";
  20. }
  21. print "</table></center></div>\n";
  22. print "<p></p>";
  23. print "<p><center><a href=show.pl><span style=\"FONT-FAMILY: 宋体; FONT-SIZE: 10pt\">再算一遍</span></a></center></p>";
  24. print "\n</body></html>\n";
  25. exit;
  26. sub getstring
  27. {
  28.    &#36;str="";
  29.    for(&#36;k=0;&#36;k<8;&#36;k++)
  30.    {
  31.       &#36;num=int(rand(3));
  32.       if(&#36;num==0) { &#36;str.=pack("c",rand(10)+48); }
  33.       elsif(&#36;num==1) { &#36;str.=pack("c",rand(26)+65); }
  34.       elsif(&#36;num==2) { &#36;str.=pack("c",rand(26)+97); }
  35.    }
  36.    return &#36;str;
  37. }
复制代码
——————以下内容由Cnangel2005年08月25日 07:36pm时添加———————

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

                     我是一个呼吸着现在的空气而生活在过去的人
               这样的注定孤独,孤独的身处闹市却犹如置身于荒漠
                                     我已习惯了孤独,爱上孤独
                                 他让我看清了自我,还原了自我
                             让我再静静的沉思中得到快乐和满足
                                   再孤独的世界里我一遍又一遍
                                   不厌其烦的改写着自己的过去
                                             延伸到现在与未来
                                       然而那只是泡沫般的美梦
                                 产生的时刻又伴随着破灭的到来
                         在灰飞烟灭的瞬间我看到的是过程的美丽
                                      而不是结果的悲哀。。。
返回列表