Move files out of root into core, dos, and utils
[profile/ivi/syslinux.git] / utils / sha1pass
1 #!/usr/bin/perl
2
3 use bytes;
4 use Digest::SHA1;
5 use MIME::Base64;
6
7 sub random_bytes($) {
8     my($n) = @_;
9     my($v, $i);
10
11     if ( open(RANDOM, '<', '/dev/random') ||
12          open(RANDOM, '<', '/dev/urandom') ) {
13         read(RANDOM, $v, $n);
14     } else {
15         # No real RNG available...
16         srand($$ ^ time);
17         $v = '';
18         for ( $i = 0 ; $i < $n ; $i++ ) {
19             $v .= ord(int(rand() * 256));
20         }
21     }
22
23     return $v;
24 }
25
26
27 ($pass, $salt) = @ARGV;
28
29 unless (defined($salt)) {
30     $salt = MIME::Base64::encode(random_bytes(6), '');
31 }
32 $pass = Digest::SHA1::sha1_base64($salt, $pass);
33
34 print '$4$', $salt, '$', $pass, "\$\n";