This is an automated email from the git hooks/post-receive script.
gregoa pushed a commit to annotated tag v1.030099_001
in repository libnet-openid-common-perl.
commit 970adfd229f3281e79f04ebdb14539edb56cb1e0
Author: Robert Norris <r...@eatenbyagrue.org>
Date: Thu Nov 4 20:29:13 2010 +1100
default crypt::dh
---
dist.ini | 1 +
lib/Net/OpenID/Common.pm | 16 ++++++++++++++++
2 files changed, 17 insertions(+)
diff --git a/dist.ini b/dist.ini
index da61ea6..468c2fa 100644
--- a/dist.ini
+++ b/dist.ini
@@ -19,6 +19,7 @@ Time::Local = 0
Digest::SHA1 = 0
MIME::Base64 = 0
Math::BigInt = 0
+Crypt::DH::GMP = 0
[Prereqs / TestRequires]
Test::More = 0
diff --git a/lib/Net/OpenID/Common.pm b/lib/Net/OpenID/Common.pm
index 9a57e46..c464c59 100644
--- a/lib/Net/OpenID/Common.pm
+++ b/lib/Net/OpenID/Common.pm
@@ -26,6 +26,8 @@ Maintained by Martin Atkins <m...@degeneration.co.uk>
# like this to avoid confusion.
package OpenID::util;
+use Crypt::DH::GMP;
+
use constant VERSION_1_NAMESPACE => "http://openid.net/signon/1.1";;
use constant VERSION_2_NAMESPACE => "http://specs.openid.net/auth/2.0";;
@@ -219,4 +221,18 @@ sub timing_indep_eq {
return !$result;
}
+sub get_dh {
+ my ($p, $g) = @_;
+
+ $p ||=
"155172898181473697471232257763715539915724801966915404479707795314057629378541917580651227423698188993727816152646631438561595825688188889951272158842675419950341258706556549803580104870537681476726513255747040765857479291291572334510643245094715007229621094194349783925984760375594985848253359305585439638443";
+ $g ||= "2";
+
+ return if $p <= 10 or $g <= 1;
+
+ my $dh = Crypt::DH::GMP->new(p => $p, g => $g);
+ $dh->generate_keys;
+
+ return $dh;
+}
+
1;
--
Alioth's /usr/local/bin/git-commit-notice on
/srv/git.debian.org/git/pkg-perl/packages/libnet-openid-common-perl.git
_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
