diff options
author | Salvatore Bonaccorso <carnil@debian.org> | 2017-11-04 11:46:46 -0400 |
---|---|---|
committer | Gene Cumm <gene.cumm@gmail.com> | 2017-11-04 11:47:21 -0400 |
commit | 1efb5bfe949b41d16054ae856914388f1afa23d1 (patch) | |
tree | 7fc30b3aa6d53d48dda67aa13ec268c75ba5d307 | |
parent | 523250bbd841597bfd60009771f9afa09a324dc7 (diff) | |
download | syslinux-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>
-rwxr-xr-x | utils/sha1pass | 4 |
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"; |