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 / largeprimes.bat < prev    next >
Encoding:
DOS Batch File  |  2004-03-20  |  2.0 KB  |  85 lines
  1. @rem = '--*-Perl-*--
  2. @echo off
  3. if "%OS%" == "Windows_NT" goto WinNT
  4. perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
  5. goto endofperl
  6. :WinNT
  7. perl -x -S %0 %*
  8. if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
  9. if %errorlevel% == 9009 echo You do not have Perl in your PATH.
  10. if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
  11. goto endofperl
  12. @rem ';
  13. #!/usr/bin/perl -sI.. -I../lib/ -Ilib/
  14. #line 15
  15. ##
  16. ## largeprimes -- generates large provable primes, uniformally distributed
  17. ##                in random intervals, with maurer's recursive algorithm.
  18. ##
  19. ## Copyright (c) 1998, Vipul Ved Prakash.  All rights reserved.
  20. ## This code is free software; you can redistribute it and/or modify
  21. ## it under the same terms as Perl itself.
  22. ##
  23. ## $Id: largeprimes.bat,v 1.3 2004/03/20 23:00:26 joker Exp $
  24.  
  25.  
  26. use Crypt::Primes; 
  27.  
  28. unless ( $bitsize ) { 
  29.     print "$0 -bitsize=bits -num=number_of_primes -v=verbosity\n\n";
  30.     exit 0;
  31. }
  32.  
  33. for ( $i=0; $i <= $num; $i++ ) { 
  34.     my $prime = Crypt::Primes::maurer Size => $bitsize, 
  35.                                       Verbosity => $v, 
  36.                                       Generator => $generator;
  37.     my $g = 0;
  38.     if ( ref $prime eq 'HASH') { 
  39.         $g = $prime->{Generator};
  40.         $prime = $prime->{Prime};
  41.     }
  42.  
  43.     if ($t) { print "$prime\n" } else { 
  44.         print "\n" if $v;
  45.         print "random $bitsize bit prime: $prime";
  46.         print ", $g" if $g;
  47.         print "\n";
  48.     }
  49. }
  50.  
  51. =head1 NAME
  52.  
  53. largeprimes -- generate large, random primes using Crypt::Primes.
  54.  
  55. =head1 SYNOPSIS
  56.  
  57.     largeprimes -bitsize=128 -v
  58.     largeprimes -bitsize=512 -v=2
  59.     largeprimes -bitsize=512 -v -num=10
  60.     largeprimes -bitsize=1024 -generator -v
  61.  
  62. =head1 DESCRIPTION
  63.  
  64. largeprimes generates a provable prime of specified bitsize and prints it on
  65. STDOUT.  For more details see Crypt::Primes(3) manpage.
  66.  
  67. =head1 SEE ALSO
  68.  
  69. Crypt::Primes(3)
  70.  
  71. =head1 AUTHOR
  72.  
  73. Vipul Ved Prakash, mail@vipul.net
  74.  
  75. =head1 LICENSE
  76.  
  77. Artistic.
  78.  
  79. =cut
  80.  
  81.  
  82.  
  83. __END__
  84. :endofperl
  85.