diff options
Diffstat (limited to 'Master/tlpkg/tlperl0/bin/largeprimes')
-rwxr-xr-x | Master/tlpkg/tlperl0/bin/largeprimes | 68 |
1 files changed, 0 insertions, 68 deletions
diff --git a/Master/tlpkg/tlperl0/bin/largeprimes b/Master/tlpkg/tlperl0/bin/largeprimes deleted file mode 100755 index 498bfbe9462..00000000000 --- a/Master/tlpkg/tlperl0/bin/largeprimes +++ /dev/null @@ -1,68 +0,0 @@ -#!/usr/bin/perl -sI.. -I../lib/ -Ilib/ -## -## largeprimes -- generates large provable primes, uniformally distributed -## in random intervals, with maurer's recursive algorithm. -## -## Copyright (c) 1998, Vipul Ved Prakash. All rights reserved. -## This code is free software; you can redistribute it and/or modify -## it under the same terms as Perl itself. -## -## $Id$ - - -use Crypt::Primes; - -unless ( $bitsize ) { - print "$0 -bitsize=bits -num=number_of_primes -v=verbosity\n\n"; - exit 0; -} - -for ( $i=0; $i <= $num; $i++ ) { - my $prime = Crypt::Primes::maurer Size => $bitsize, - Verbosity => $v, - Generator => $generator; - my $g = 0; - if ( ref $prime eq 'HASH') { - $g = $prime->{Generator}; - $prime = $prime->{Prime}; - } - - if ($t) { print "$prime\n" } else { - print "\n" if $v; - print "random $bitsize bit prime: $prime"; - print ", $g" if $g; - print "\n"; - } -} - -=head1 NAME - -largeprimes -- generate large, random primes using Crypt::Primes. - -=head1 SYNOPSIS - - largeprimes -bitsize=128 -v - largeprimes -bitsize=512 -v=2 - largeprimes -bitsize=512 -v -num=10 - largeprimes -bitsize=1024 -generator -v - -=head1 DESCRIPTION - -largeprimes generates a provable prime of specified bitsize and prints it on -STDOUT. For more details see Crypt::Primes(3) manpage. - -=head1 SEE ALSO - -Crypt::Primes(3) - -=head1 AUTHOR - -Vipul Ved Prakash, mail@vipul.net - -=head1 LICENSE - -Artistic. - -=cut - - |