home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / makerandom < prev    next >
Encoding:
Text File  |  2004-03-20  |  1.1 KB  |  51 lines
  1. #!/usr/bin/perl -sI../lib -Ilib/
  2. ##
  3. ## makerandom - interface to crypt::random
  4. ##
  5. ## Copyright (c) 1998, Vipul Ved Prakash.  All rights reserved.
  6. ## This code is free software; you can redistribute it and/or modify
  7. ## it under the same terms as Perl itself.
  8. ##
  9. ## $Id: makerandom,v 1.2 2004/03/20 23:00:27 joker Exp $
  10.  
  11. use Crypt::Random qw( makerandom makerandom_itv );
  12.  
  13. unless ( $size || $lower )  { 
  14.     my $name = $0; 
  15.     $name =~ s:.*/::;
  16.     print "usage: $name [options] \
  17.        -size=bitsize \
  18.        -strength=[01] \
  19.        -dev=device \ 
  20.        -lower=lower_bound \
  21.        -upper=upper_bound \
  22.        -num=quantity\n\n";
  23.     exit 0;
  24. }
  25.  
  26.  
  27. $strength = 0 unless $strength; 
  28. my $i     = 1; 
  29.    $num   = 1 unless $num; 
  30.  
  31. while ( $i++ <= $num ) { 
  32.  
  33. my $r; 
  34.  
  35. if ( $size ) { 
  36.     $r = makerandom Size => $size, 
  37.                     Strength => $strength,
  38.                     Device => $dev; 
  39. }
  40.  
  41. if ( $lower ) { 
  42.     $r = makerandom_itv Lower => $lower, 
  43.                         Upper => $upper, 
  44.                         Strength => $strength, 
  45.                         Device => $dev;
  46. }
  47.  
  48. print "$r\n";
  49.  
  50. }
  51.