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/
Now you can create htpasswd file for lighttpd or nginx:
user:$1$mySecret$TQgDKW6xpDmEUyxm5ZDxv/
Perl script to replace htpasswd
#!/usr/bin/perl use strict; my $passWord=$ARGV[0]; print crypt($passWord,$passWord)."\n";
Get the latest tutorials on SysAdmin, Linux/Unix, Open Source, and DevOps topics:
- RSS feed or Weekly email newsletter
- Share to Twitter • Facebook • 5 comments... add one ↓
Related Shell Scripts:
Shell script to Finding Accounts with No Password ( null password account )
Shell Script accept password using read commnad
Script to update user password in batch mode using pwgen and chpasswd
Shell script to create list of backup files in ~/.mybackup file. Use…
Shell Script To Create Files and Directories That Do Not Exist
Shell Script To Create BIND Zone Files
| Category | List of Unix and Linux commands |
|---|---|
| File Management | cat |
| Firewall | Alpine Awall • CentOS 8 • OpenSUSE • RHEL 8 • Ubuntu 16.04 • Ubuntu 18.04 • Ubuntu 20.04 |
| Network Utilities | dig • host • ip • nmap |
| OpenVPN | CentOS 7 • CentOS 8 • Debian 10 • Debian 8/9 • Ubuntu 18.04 • Ubuntu 20.04 |
| Package Manager | apk • apt |
| Processes Management | bg • chroot • cron • disown • fg • jobs • killall • kill • pidof • pstree • pwdx • time |
| Searching | grep • whereis • which |
| User Information | groups • id • lastcomm • last • lid/libuser-lid • logname • members • users • whoami • who • w |
| WireGuard VPN | CentOS 8 • Debian 10 • Firewall • Ubuntu 20.04 |
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 $!; }This is now super easy to use and it will always append the record to the file. Enjoy!
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 $!; }This is now super easy to use and it will always append the record to the file. Enjoy!
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
Thank you very much for this one. Worked perfectly.