diff options
Diffstat (limited to 'contrib/syslinux/syslinux-4.03/utils/md5pass')
-rwxr-xr-x | contrib/syslinux/syslinux-4.03/utils/md5pass | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/contrib/syslinux/syslinux-4.03/utils/md5pass b/contrib/syslinux/syslinux-4.03/utils/md5pass deleted file mode 100755 index 3404f1d..0000000 --- a/contrib/syslinux/syslinux-4.03/utils/md5pass +++ /dev/null @@ -1,34 +0,0 @@ -#!/usr/bin/perl - -use bytes; -use Crypt::PasswdMD5; -use MIME::Base64; - -sub random_bytes($) { - my($n) = @_; - my($v, $i); - - if ( open(RANDOM, '<', '/dev/random') || - open(RANDOM, '<', '/dev/urandom') ) { - read(RANDOM, $v, $n); - } else { - # No real RNG available... - srand($$ ^ time); - $v = ''; - for ( $i = 0 ; $i < $n ; $i++ ) { - $v .= ord(int(rand() * 256)); - } - } - - return $v; -} - - -($pass, $salt) = @ARGV; - -unless (defined($salt)) { - $salt = MIME::Base64::encode(random_bytes(6), ''); - $salt =~ tr/\+/./; # . not + -} - -print unix_md5_crypt($pass, $salt), "\n"; |