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