- print passphrase in hex (as ssss doesn't like binary files)

- limit to 100 bytes (as ssss only accepts 128)

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--;
     }
 }