Changeset 9472 for lang/perl/Crypt-DH-GMP

Timestamp:

04/15/08 13:25:45 (5 years ago)

Author:

daisuke

Message:

lang/perl/Crypt-DH-GMP; initialize priv_key to be zero

Files:

• lang/perl/Crypt-DH-GMP/trunk/GMP.xs (modified) (2 diffs)

lang/perl/Crypt-DH-GMP/trunk/GMP.xs

@@ -59 +59 @@
             mpz_init_set_str(ptr->priv_key, priv_key, 10);
         } else {
-            mpz_init(ptr->priv_key);
-            DH_mpz_rand_set(&(ptr->priv_key), mpz_sizeinbase(ptr->p, 2));
+            mpz_init_set_ui(ptr->priv_key, 0);
         } 
 
@@ -73 +72 @@
         if (mpz_cmp_ui(dh->priv_key, 0) == 0) {
             /* not initialized, eh? */
-            DH_mpz_rand_set(&(dh->priv_key), mpz_sizeinbase(dh->p, 2));
+            DH_mpz_rand_set(&(dh->priv_key), mpz_sizeinbase(dh->p, 2) - 1);
         }