htpasswd Replacement: Perl Script To Create Password Using crypt()

in Web Server last updated October 6, 2008

Webserver such as Nginx / Lighttpd accepets passwords using encoded method i.e. function crypt(3) is needs. You can create the password file with the htpasswd program from Apache. Sometime Apache is not installed use the following perl script to create password.

How do I use crypt.pl?

Download script

Set permissions:
chmod +x crypt.pl ./crypt.pl mySecrete
Sample Output:

$1$mySecret$TQgDKW6xpDmEUyxm5ZDxv/

1	$1$mySecret$TQgDKW6xpDmEUyxm5ZDxv/

Now you can create htpasswd file for lighttpd or nginx:

user:$1$mySecret$TQgDKW6xpDmEUyxm5ZDxv/

1	user:$1$mySecret$TQgDKW6xpDmEUyxm5ZDxv/

Perl script to replace htpasswd

#!/usr/bin/perl
use strict;

my $passWord=$ARGV[0];
print crypt($passWord,$passWord)."\n";

#!/usr/bin/perl

use strict;

my $passWord=$ARGV[0];

print crypt($passWord,$passWord)."\n";

Tagged as: apache, crypt, htpasswd program, lighttpd, mysecret, nginx, password file, passwords, perl script, pl

5 comment

Thanks, this article and the anon comment inspired me to take it a step further:

#!/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 $!;
}

#!/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 $!;

}

This is now super easy to use and it will always append the record to the file. Enjoy!

Vivek Gite says:
April 6, 2012 at 6:03 pm
Thanks for sharing updated version :)

Thanks, this article and the anon comment inspired me to take it a step further:

#!/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 $!;
}

#!/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 $!;

}

This is now super easy to use and it will always append the record to the file. Enjoy!

anonymous says:
September 7, 2010 at 3:22 pm
I use this script:
#!/usr/bin/perl use strict; chomp(my $username=$ARGV[0]); chomp(my $password=$ARGV[1]); print $username.":".crypt($password,$username)."\n";
In this script $password – main string for password generation, and $username – salt.
You can use it like that:
./htpasswd.pl user password > .htpasswd cat .htpasswd user:usjRS48E8ZADM
Hans-Gunther Schmidt says:
May 27, 2009 at 4:07 pm
Thank you very much for this one. Worked perfectly.

Have a question? Post it on our forum!

nixCraft

nixCraft

htpasswd Replacement: Perl Script To Create Password Using crypt()

How do I use crypt.pl?

Perl script to replace htpasswd

Share this on:

5 comment