Linux中国  设为主页
 收藏本站
 
当前位置: > 首页 ->编程语言 ->CGI ->获取随机的密码
  相关分类： 
ASP
ViualBasic
UML / Rational Rose
PHP4/PHP5
Perl
JAVA/JSP教程
Delphi
ColdFusion
CGI
C/C++
ASP.NET
XML
  站内搜索： 
热门文章排行
热门文章排行 windows下Perl开发环境的安装和配置(04-28)
perl与Mysql连接(04-28)
实战 FastCGI(04-28)
获取随机的密码(04-28)
perl模块和包的使用(04-28)
精采文章排行
精采文章排行 CGI教学:CGI常用环境变量(04-28)
关于CGI读写COOKIE的编程(04-28)
CGI的安全（二）(04-28)
CGI的安全(一)(04-28)
获取随机的密码(04-28)
  ·关于CGI读写COOKIE的编程·CGI的安全（二）·CGI的安全(一)·获取随机的密码·在CGI中实现session的想法和实现·CGI绝对路径和相对路径的简便设置方法·使用脚本下载网页·利用Perl开发Internet/Intranet应用之二(·利用Perl开发Internet/Intranet应用之二(

获取随机的密码

作者:Webmaster   来源:Linuxdby.com   点击:   日期:2007-04-28 [收藏] [投稿]

  IE是否经常中毒？推荐您

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;
}




 如果您对本文有任何疑问或者建议，请到讨论区发表您的意见: >> 论坛入口 <<



上一篇：在CGI中实现session的想法和实现   下一篇：CGI的安全(一)
【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【我要投稿】 【论坛讨论】

   相关文章:
·CGI教学:CGI常用环境变量

   文章评论:(1条)
  
 请留名： 匿名评论   点击查看所有评论 论坛讨论
 

 声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。