Parent Directory
|
Revision Log
generate 200 bytes passphrase
1 | boklm | 383 | #!/usr/bin/perl -w |
2 | use strict; | ||
3 | |||
4 | boklm | 385 | my $size = 200; |
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 | if ($o ne "\n" && $o ne "\r") { | ||
14 | print $o; | ||
15 | $size--; | ||
16 | } | ||
17 | } | ||
18 | close($rf); | ||
19 |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.30 |