passwd.pl

#=======================================================================================#
# Written by: Toast									#
#											#
# Name : passwdgen.pl									#
#											#
# Random password generator will let the user choose how long the passwd will be if not #
# specified it will default to 10 characters						#
#											#
# It will also print the MD5 Hash and SHA1 Hash of the password				#
#											#
# Written under Slackware 12.2 tested and working					#
#=======================================================================================#
 
use strict;
use warnings;
 
use Digest::MD5 qw(md5_hex);
use Digest::SHA1 qw(sha1_hex);
 
my $passwd;
my $rand;
 
# Password Length
my $passwd_length = $ARGV[0] ;
	if (!$passwd_length ) {
		$passwd_length = 10;
	}
 
# Characters that will be used to generate the random password
my @chars = split ( " ", "q w e r t y u i o p a s d f g h j k l z x c v b n m Q W E R T Y U I O P A S D F G H J K L Z X C V B N M 1 2 3 4 5 6 7 8 9 0 ! @ $ % ^ & # * ( ) + - = | / < > ~ ` : ; [ ] { } | , . ? _") ;
 
for (my $i=0; $i<$passwd_length ;$i++) { 
	$rand = int(rand 91);
	$passwd .= $chars[$rand];
}
# Prints the generated password to the screen
print "Your new password is: $passwd\n";
 
# Hashes the password to MD5 and print to screen.
my $md5_hash = md5_hex($passwd);
print "The MD5 Hash is: $md5_hash\n";
 
# Hashes the password to SHA1 and prints to the screen.
my $sha1_hash = sha1_hex($passwd);
print "The SHA1 Hash is: $sha1_hash\n";