[libmath-prime-util-perl] 09/43: Don't let ST random prime give up so easily
Partha P. Mukherjee
ppm-guest at moszumanska.debian.org
Thu May 21 18:53:06 UTC 2015
This is an automated email from the git hooks/post-receive script.
ppm-guest pushed a commit to annotated tag v0.40
in repository libmath-prime-util-perl.
commit 2f3f0f84719039bf2403c9dcd08176939c3da84f
Author: Dana Jacobsen <dana at acm.org>
Date: Thu Mar 6 12:35:23 2014 -0800
Don't let ST random prime give up so easily
---
lib/Math/Prime/Util/RandomPrimes.pm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/Math/Prime/Util/RandomPrimes.pm b/lib/Math/Prime/Util/RandomPrimes.pm
index 88f2e05..6c6b4d2 100644
--- a/lib/Math/Prime/Util/RandomPrimes.pm
+++ b/lib/Math/Prime/Util/RandomPrimes.pm
@@ -894,7 +894,7 @@ sub _ST_Random_prime { # From FIPS 186-4
# c is small so we can provably test it.
my ($isp, $cert) = is_provable_prime_with_cert($c);
return (1,$c,$seed,$prime_gen_counter,$cert) if $isp;
- return (0,0,0,0) if $prime_gen_counter > 4*$k;
+ return (0,0,0,0) if $prime_gen_counter > 10000 + 16*$k;
}
}
my($status,$c0,$seed,$prime_gen_counter,$cert)
@@ -956,7 +956,7 @@ sub _ST_Random_prime { # From FIPS 186-4
return (1, $c, $seed, $prime_gen_counter, $cert);
}
}
- return (0,0,0,0) if $prime_gen_counter > 4*$k + $old_counter;
+ return (0,0,0,0) if $prime_gen_counter > 10000 + 16*$k + $old_counter;
$t++;
}
}
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmath-prime-util-perl.git
More information about the Pkg-perl-cvs-commits
mailing list