diff options
Diffstat (limited to 'Master/tlpkg/tlperl0/bin/largeprimes')
-rwxr-xr-x | Master/tlpkg/tlperl0/bin/largeprimes | 68 |
1 files changed, 68 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl0/bin/largeprimes b/Master/tlpkg/tlperl0/bin/largeprimes new file mode 100755 index 00000000000..498bfbe9462 --- /dev/null +++ b/Master/tlpkg/tlperl0/bin/largeprimes @@ -0,0 +1,68 @@ +#!/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 + + |