diff options
-rwxr-xr-x | random-passphrase | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/random-passphrase b/random-passphrase index 2673e34..777f10c 100755 --- a/random-passphrase +++ b/random-passphrase @@ -1,7 +1,7 @@ #!/usr/bin/perl -w use strict; -my $size = 200; +my $size = 100; binmode(STDOUT, ":utf8"); @@ -11,7 +11,7 @@ while ($size) { print STDERR "$size random bytes to read.\n"; read $rf, $o, 1; if ($o ne "\n" && $o ne "\r") { - print $o; + print unpack("H*", $o); $size--; } } |