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

Diff of /gpg/random-passphrase

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

revision 402 by boklm, Thu Feb 3 11:36:18 2011 UTC revision 403 by boklm, Thu Feb 3 18:31:48 2011 UTC
# Line 10  while ($size) { Line 10  while ($size) {
10      my $o;      my $o;
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") {      print unpack("H*", $o);
14          print unpack("H*", $o);      $size--;
         $size--;  
     }  
15  }  }
16  close($rf);  close($rf);
17    

Legend:
Removed from v.402  
changed lines
  Added in v.403

  ViewVC Help
Powered by ViewVC 1.1.28