Permalink
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
executable file 37 lines (32 sloc) 891 Bytes
#!/usr/bin/env perl
#
# Usage: htpasswd.pl [encrypted_password]
#
# If no arguments are given then it will ask for a password and will show its
# encrypted form to be saved on a file.
#
# If the argument is an encrypted password it will ask the password and will
# verify if it's valid.
#
# WARNING: don't use the character colon ':' as part of your name or password
# since this character is used as field separator.
#
use strict;
use warnings;
my $word;
if(!$ARGV[0]) {
my $salt = join('', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64]);
print "Password to encrypt: ";
system("stty -echo");
chomp($word = <STDIN>);
system("stty echo");
print crypt($word, $salt) . "\n";
} else {
system("stty -echo");
print "Password: ";
chomp($word = <STDIN>);
system("stty echo");
print "\n";
die "Sorry, do not match.\n" if crypt($word, $ARGV[0]) ne $ARGV[0];
print "Ok!\n";
}