#!/usr/bin/perl
######
# DES/MD5 password generator
# AltBlue 1999/02/10
######
# Usage:
#   ./mkpass [<password>]
# - if no password supplied, a random password will be picked up.
#########

use strict;
use Crypt::PasswdMD5;

my $password = defined $ARGV[0] ? $ARGV[0] : random_hash(8,32);
print "CLEAR:\t", $password,
	$/, "DES:\t", crypt($password,random_hash(2,2)),
	$/, "MD5:\t", unix_md5_crypt($password, random_hash(8,8)),
	$/;

sub random_hash {
	my ($ash,$ml) = ('',((defined$_[0]&&$_[0]>0)?$_[0]:4));
	my $Ml=(defined$_[1]&&$_[1]>=$ml)?$_[1]:$ml+5;
	$ash .= ('.','/',0..9,'A'..'Z','a'..'z')[rand 64]
			foreach(1..($ml+int(rand $Ml-$ml)));
	$ash;
}