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

Diff of /gpg/random-passphrase

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 385 by boklm, Thu Feb 3 00:11:58 2011 UTC revision 389 by boklm, Thu Feb 3 11:36:18 2011 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2  use strict;  use strict;
3    
4  my $size = 200;  my $size = 100;
5    
6  binmode(STDOUT, ":utf8");  binmode(STDOUT, ":utf8");
7    
# Line 11  while ($size) { Line 11  while ($size) {
11      print STDERR "$size random bytes to read.\n";      print STDERR "$size random bytes to read.\n";
12      read $rf, $o, 1;      read $rf, $o, 1;
13      if ($o ne "\n" && $o ne "\r") {      if ($o ne "\n" && $o ne "\r") {
14          print $o;          print unpack("H*", $o);
15          $size--;          $size--;
16      }      }
17  }  }
Legend:
Removed from v.385  
changed lines
  Added in v.389
  ViewVC Help
Powered by ViewVC 1.1.30