diff options
Diffstat (limited to 'random-passphrase')
-rwxr-xr-x | random-passphrase | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/random-passphrase b/random-passphrase new file mode 100755 index 0000000..514c3ac --- /dev/null +++ b/random-passphrase @@ -0,0 +1,19 @@ +#!/usr/bin/perl -w +use strict; + +my $size = 50; + +binmode(STDOUT, ":utf8"); + +open(my $rf, '<', '/dev/random'); +while ($size) { + my $o; + print STDERR "$size random bytes to read.\n"; + read $rf, $o, 1; + if ($o ne "\n" && $o ne "\r") { + print $o; + $size--; + } +} +close($rf); + |