Simple complex password generator

These are really easy to write, but it’s always handy to have your own. This one lives here in its cgi form.

#! /usr/bin/perl

use strict;
use warnings;

## Let the browser know what we're sending it
print "content-type: text/html\n\n";

## Spew some HTML since we're not going to get away with plain text formatting
print "\n\t";
print "\t\tPasswords!";
print "\t";
print "\n\t

Avi's Magical Password Generator

"; ## Define two sets of data. The first is the lengths of password we want ## to produce, the second is the allowed characters. Each space-separated my $lengths="1 4 8 10 20 30 50 80 100"; my $characters="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 1 2 3 4 5 6 7 8 9 0 ! $ % ^ & _ + = : ; @ # ~ , . ? "; ## Split the above by space into arrays my @chars=split(/ /, $characters); my @lens=split(/ /, $lengths); ## Work out how many characters we are allowed, so that when we ## come to pick one at random we can use this number as the maximum. my $chars_count = @chars; ## Spew out some html for pretty formatting: print "\n"; print "\t"; ## The loop! foreach (@lens){ my $length=$_; my $count; ## The first cell of the row, containing the length: print "\n\t\t\t\n"; } print "
length
".$_.""; for ($count = 1; $count < = $length; $count++){ ## Working backwards, $chars_count is the above-defined ## number of characters we have to play with, ## rand($chars_count) picks a random number between 0 and ## $chars_count, and int(rand($chars_count)) makes sure ## it's an integer. This in the square brackets after $chars ## means we're picking a random element out of the array ## @chars, which is effectively picking a random character ## out of the list of allowed ones. print $chars[int(rand($chars_count))]; } print "
\n\n"; print "sauce home"; print "";