From db1106ec73e9d3139cd24ebbf6c5e230a9cea51a Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Thu, 12 Nov 2020 22:24:21 -0800
Subject: [PATCH] Respect salt format if one was given

---
 acl/acl-lib.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/acl/acl-lib.pl b/acl/acl-lib.pl
index e95aa0190..e85bfde4a 100755
--- a/acl/acl-lib.pl
+++ b/acl/acl-lib.pl
@@ -1659,11 +1659,14 @@ is not given, a salt will be selected randomly.
 sub encrypt_password
 {
 my ($pass, $salt) = @_;
-if ($gconfig{'md5pass'} == 1) {
+my $mode = $salt =~ /^\$1\$/ ? 1 :
+	   $salt =~ /^\$6\$/ ? 2 :
+	   length($salt) == 13 ? 0 : $gconfig{'md5pass'};
+if ($mode == 1) {
 	# Use MD5 encryption
 	return &encrypt_md5($pass, $salt);
 	}
-elsif ($gconfig{'md5pass'} == 2) {
+elsif ($mode == 2) {
 	# Use SHA512 encryption
 	return &encrypt_sha512($pass, $salt);
 	}