forked from pool/syslinux
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";
|