#!/usr/bin/perl
use strict;
use CGI qw/:standard/;
sub randomPassword {
my $password;
my $_rand;
my $password_length = $_[0];
if (!$password_length) {
$password_length = 10;
}
my @chars = split(" ","A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z 0 1 2 3 4 5 6 7 8 9");
srand;
my $count = $#chars;
for (my $i=0; $i < $password_length ;$i++) {
$_rand = int(rand $count);
$password .= $chars[$_rand];
}
return $password;
}
my $q = new CGI;
print $q->header();
print $q->start_html(-title=>'Random Password Generator');
print $q->start_form();
print "Password Length \;";
print $q->popup_menu(-name=>'length',-values=>['4','6','8','10','12']);
print $q->br();
print $q->submit(-name=>'action',-value=>'Generate');
print $q->end_form();
print "\n";
if(param())
{
my $length = param('length');
if($length > 12)
{
$length=12;
}
print "Password: \n \n";
}
print $q->end_html();