1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
#!/usr/bin/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";
}
|
