show.pl
#!/usr/bin/perl
print "Content-type: text/html
";
print "<html>
";
print "<head><meta http-equiv=Content-Type content=text/html;charset=gb2312>
";
print "<head>
<body bgcolor=#c0c0c0>
";
print "<p> </p>";
print "<p align=center><font color=#8080FF><big><strong>送您一百个随机密码, 虽然不好记, 但是都是随机产生的, 很安全!</strong></big></font></p>
";
print "<div align=center><center>";
print "<table border=1 bgcolor=#C0C0C0 cellspacing=1 cellpadding=3>
";
for(=0;<10;++)
{
print "<tr>";
for(=0;<10;++)
{
print "<td>";
print &getstring;
print "</td>";
}
print "</tr>
";
}
print "</table></center></div>
";
print "<p></p>";
print "<p><center><a href=show.pl><span style="FONT-FAMILY: 宋体; FONT-SIZE: 10pt">再算一遍</span></a></center></p>";
print "
</body></html>
";
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 ;
}
获取随机的由大小写字母和数字组成的八位密码
发布: 2007-5-25 01:23 | 作者: bc8 | 来源: 网页教学网 | 查看: 1次
最新更新
- XML和现代CGI应用程序 8-07
- perl 的编译安装 8-07
- 在Perl/CGI中使用模板 8-07
- 绝对路径与相对路径祥解 8-07
- Perl 程序的属性祥解 8-07
- 一个程序自动刷新页面的例子 8-07
- 网站 PAGEVIEW 分析系统 CGI 8-07
- Perl6的结构 8-07
- Parrot 常见问题 8-07
- 一个简单的计数器程序 8-07
