Create a gist now

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Generate htpasswd compatible password.
#!/usr/bin/perl
use strict;
chomp(my $filename=$ARGV[0]);
chomp(my $username=$ARGV[1]);
chomp(my $password=$ARGV[2]);
if (!$filename || !$username || !$password) {
print "USAGE: ./crypt.pl filename username password\n\n";
} else {
open FILE, ">>", $filename or die $!;
print FILE $username . ":" . crypt($password, $username) . "\n";
close FILE or die $!;
}
@ggl

This comment has been minimized.

Show comment
Hide comment

ggl commented Feb 17, 2013

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment