#!/usr/bin/perl -w
# by andrew wales

$vowels="aeiouy";
$consonant="bcdfghjklmnpqrstvwxz";
$end="0123456789";
$saltchar="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789./";

$times=$ARGV[0]||'1';

srand();
for (1..$times) {
	$pw="";
	for (1..2) {
		$pw.=substr($consonant,rand(length($consonant)),1);
		$pw.=substr($vowels,rand(length($vowels)),1);
		$pw.=substr($consonant,rand(length($consonant)),1);
	}
	$pw.=substr($end,rand(length($end)),1);
	$pw.=substr($end,rand(length($end)),1);
	$salt=substr($saltchar,rand(length($saltchar)),1);
	$salt.=substr($saltchar,rand(length($saltchar)),1);
	print $pw," (",crypt($pw,$salt),")\n";
}