Parent Directory
|
Revision Log
don't filter \n and \r as we're now saving passphrase in hex
1 | boklm | 383 | #!/usr/bin/perl -w |
2 | use strict; | ||
3 | |||
4 | boklm | 389 | my $size = 100; |
5 | boklm | 383 | |
6 | binmode(STDOUT, ":utf8"); | ||
7 | |||
8 | open(my $rf, '<', '/dev/random'); | ||
9 | while ($size) { | ||
10 | my $o; | ||
11 | print STDERR "$size random bytes to read.\n"; | ||
12 | read $rf, $o, 1; | ||
13 | boklm | 403 | print unpack("H*", $o); |
14 | $size--; | ||
15 | boklm | 383 | } |
16 | close($rf); | ||
17 |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.30 |