aboutsummaryrefslogtreecommitdiffstats
path: root/utils
diff options
context:
space:
mode:
authorSalvatore Bonaccorso <carnil@debian.org>2017-11-04 11:46:46 -0400
committerGene Cumm <gene.cumm@gmail.com>2017-11-04 11:47:21 -0400
commit1efb5bfe949b41d16054ae856914388f1afa23d1 (patch)
tree7fc30b3aa6d53d48dda67aa13ec268c75ba5d307 /utils
parent523250bbd841597bfd60009771f9afa09a324dc7 (diff)
downloadsyslinux-1efb5bfe949b41d16054ae856914388f1afa23d1.tar.gz
syslinux-1efb5bfe949b41d16054ae856914388f1afa23d1.tar.xz
syslinux-1efb5bfe949b41d16054ae856914388f1afa23d1.zip
utils: use Digest::SHA for sha1pass
Debian (Closes: #625812) Author: Salvatore Bonaccorso <carnil@debian.org> Logic can be added if we need to check between these. Signed-off-by: Gene Cumm <gene.cumm@gmail.com>
Diffstat (limited to 'utils')
-rwxr-xr-xutils/sha1pass4
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/sha1pass b/utils/sha1pass
index 3be2dbc1..34cc99c0 100755
--- a/utils/sha1pass
+++ b/utils/sha1pass
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use bytes;
-use Digest::SHA1;
+use Digest::SHA;
use MIME::Base64;
sub random_bytes($) {
@@ -29,6 +29,6 @@ sub random_bytes($) {
unless (defined($salt)) {
$salt = MIME::Base64::encode(random_bytes(6), '');
}
-$pass = Digest::SHA1::sha1_base64($salt, $pass);
+$pass = Digest::SHA::sha1_base64($salt, $pass);
print '$4$', $salt, '$', $pass, "\$\n";