ElGamal: key's p can be a large integer, use Bigint

Fixes btrott#30
timlegge · Sep 29, 2024 · 4221098 · 4221098
1 parent f3f20a0
commit 4221098
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Crypt/OpenPGP/Key/Public/ElGamal.pm b/lib/Crypt/OpenPGP/Key/Public/ElGamal.pm
@@ -53,7 +53,7 @@ sub gen_k {
     my($p) = @_;
     ## XXX choose bitsize based on bitsize of $p
     my $bits = 198;
-    my $p_minus1 = $p - 1;
+    my $p_minus1 = Math::BigInt->new($p) - 1;
 
     my $k = Crypt::OpenPGP::Util::get_random_bigint($bits);
     while (1) {