SHA256
1
0
forked from pool/syslinux
syslinux/syslinux-4.04-md5pass.diff

17 lines
324 B
Diff
Raw Normal View History

--- 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";