| #!/usr/bin/perl |
| |
| use bytes; |
| use Digest::SHA1; |
| 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), ''); |
| } |
| $pass = Digest::SHA1::sha1_base64($salt, $pass); |
| |
| print '$4$', $salt, '$', $pass, "\$\n"; |
