mirrors
/
Monitorix
mirror of https://github.com/mikaku/Monitorix.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Added the script 'htpasswd.pl' to be able to encrypt passwords. [#14]

This commit is contained in:
Jordi Sanfeliu 2013-05-15 12:55:06 +02:00
parent 97e2647bde
commit ae9198e8a3
1 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
docs/htpasswd.pl Executable file
View File

@ -0,0 +1,31 @@
#!/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.
#
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: ";
chomp($word = <STDIN>);
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";
}