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;
}
更多内容请看电脑密码设置手册、Cisco密码恢复专题专题，或进入讨论组讨论。
【深 度 阅 读】 相 关 文 章
相关图文阅读
频道图文推荐
健 康 咨 询
时 尚 咨 询
相关专题
- (1377篇文章)电脑密码设置手册
- (3283篇文章)Cisco密码恢复专题
- (2362次浏览)一种html模版输出方式
- (1280次浏览)windows下Perl开发环境的安装和配置
- (958次浏览)Perl直接入门详尽指南
- (887次浏览)cgic: 为C语言编写CGI的C函数库
- (859次浏览)Python 快速入门
- (803次浏览)Perl 新手必读
- (796次浏览)如何在WINDOWS ME/98上以APACHE安装PERL(转)
- (771次浏览)Linux系统环境下的Socket编程详细解析
- (727次浏览)Python 快速入门(一)
- (636次浏览)如何在Windows NT 4.0下安装ActivePerl
