#!/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&nbsp\;";
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 "<b>Password:&nbsp;</b><input type=\"textbox\" readonly size=\"14\" value=\"",randomPassword($length),"\">\n<br>\n";
}

print $q->end_html();