获取随机的密码
敬业的IT人
互联网
佚名
2008-1-11 9:36:52
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=http://www.cncms.com.cn/cgi/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;
}
#!/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=http://www.cncms.com.cn/cgi/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;
}
- 最新文章
- CGI绝对路径和相对路径的简便设置方法[01-11]
- CGI的安全（二）[01-11]
- CGI的安全(一)[01-11]
- Cgi入门教程之：1 Unix环境[01-11]
- Cgi入门教程之：2 chmod命令[01-11]
- Cgi入门教程之：3 定位Perl和sendmail[01-11]
- 相关文章
- ASP+MSSQL实现在线修改Serv-u的密码[01-10]
- 了解Java密码扩展的基础[01-09]
- Windows系统及应用技巧（05）win2000/xp忘记..[01-08]
- ADO带密码的数据连接、查询一个记录集、执行一SQL语[01-08]
- 在VFP中实现可靠的随机密码和多用户权限控制[01-08]
- 如何才能避免Oracle数据库的密码出现@符号[01-08]
