forked from pool/syslinux
0ea294216b
- don't use Crypt::PasswdMD5 (bnc #701279, bnc #475370) OBS-URL: https://build.opensuse.org/request/show/74300 OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/syslinux?expand=0&rev=34
17 lines
324 B
Diff
17 lines
324 B
Diff
--- a/utils/md5pass
|
|
+++ b/utils/md5pass
|
|
@@ -1,7 +1,6 @@
|
|
#!/usr/bin/perl
|
|
|
|
use bytes;
|
|
-use Crypt::PasswdMD5;
|
|
use MIME::Base64;
|
|
|
|
sub random_bytes($) {
|
|
@@ -31,4 +30,4 @@ unless (defined($salt)) {
|
|
$salt =~ tr/\+/./; # . not +
|
|
}
|
|
|
|
-print unix_md5_crypt($pass, $salt), "\n";
|
|
+print crypt($pass, "\$1\$$salt\$"), "\n";
|