From ff2b532e97f31b5dd5639cee11b9decc2d5deba3 Mon Sep 17 00:00:00 2001
From: Nicolas Vigier <boklm@mageia.org>
Date: Wed, 2 Feb 2011 23:59:35 +0000
Subject: add script to generate random passphrase without \n and \r

---
 random-passphrase | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100755 random-passphrase

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);
+
-- 
cgit v1.2.1