[Mageia-sysadm] [383] add script to generate random passphrase without \n and \r

[root at mageia.org]

Revision: 383
Author:   boklm
Date:     2011-02-03 00:59:35 +0100 (Thu, 03 Feb 2011)
Log Message:
-----------
add script to generate random passphrase without \n and \r

Added Paths:
-----------
    gpg/random-passphrase

Added: gpg/random-passphrase
===================================================================
--- gpg/random-passphrase	                        (rev 0)
+++ gpg/random-passphrase	2011-02-02 23:59:35 UTC (rev 383)
@@ -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);
+


Property changes on: gpg/random-passphrase
___________________________________________________________________
Added: svn:executable
   + *
-------------- next part --------------
An HTML attachment was scrubbed...
URL: </pipermail/mageia-sysadm/attachments/20110203/6ff1ef16/attachment-0001.html>