html获取随机字母,获取随机的由大小写字母和数字组成的八位密码-CGI教程,CGI文档...

show.pl

#!/usr/bin/perl

print "content-type: text/html\n\n";

print "\n";

print "

\n";

print "

\n\n";

print "

print "

送您一百个随机密码, 虽然不好记, 但是都是随机产生的, 很安全!

\n";

print "

";

print "

for($i=0;$i<10;$i++)

{

print "

";

for($j=0;$j<10;$j++)

{

print "

";

print &getstring;

print "

";

}

print "

\n";

}

print "

\n";

print "

print "

再算一遍 ";

print "\n\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;

}