/[soft]/gpg/random-passphrase
ViewVC logotype

Contents of /gpg/random-passphrase

Parent Directory Parent Directory | Revision Log Revision Log


Revision 403 - (show annotations) (download)
Thu Feb 3 18:31:48 2011 UTC (10 years, 7 months ago) by boklm
File size: 264 byte(s)
don't filter \n and \r as we're now saving passphrase in hex
1 #!/usr/bin/perl -w
2 use strict;
3
4 my $size = 100;
5
6 binmode(STDOUT, ":utf8");
7
8 open(my $rf, '<', '/dev/random');
9 while ($size) {
10 my $o;
11 print STDERR "$size random bytes to read.\n";
12 read $rf, $o, 1;
13 print unpack("H*", $o);
14 $size--;
15 }
16 close($rf);
17

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.28