add script to generate random passphrase without \n and \r

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);
+