Overhaul of key management (again).

[u/mdw/catacomb] / rspit.c

diff --git a/rspit.c b/rspit.c
index 3c14ab4..ec55707 100644 (file)
--- a/rspit.c
+++ b/rspit.c
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
- * $Id: rspit.c,v 1.2 1999/12/22 15:59:51 mdw Exp $
+ * $Id: rspit.c,v 1.3 2000/02/12 18:21:03 mdw Exp $
  *
  * Spit out random numbers
  *
@@ -30,6 +30,9 @@
 /*----- Revision history --------------------------------------------------* 
  *
  * $Log: rspit.c,v $
+ * Revision 1.3  2000/02/12 18:21:03  mdw
+ * Overhaul of key management (again).
+ *
  * Revision 1.2  1999/12/22 15:59:51  mdw
  * New prime-search system.  Read BBS keys from key files.
  *
@@ -441,11 +444,10 @@ static grand *gen_bbs(unsigned i)
     m = MP_COPY(kd->u.m);
     key_close(&kf);
   } else {
-    mp *p = mprand(MP_NEW, bits / 2, &rand_global, 3);
-    mp *q = mprand(MP_NEW, bits - bits / 2, &rand_global, 3);
     bbs_param bp;
 
-    if (bbs_gen(&bp, p, q, 0, (flags & f_progress) ? pgen_ev : 0, 0))
+    if (bbs_gen(&bp, bits, &rand_global, 0,
+               (flags & f_progress) ? pgen_ev : 0, 0))
       die(EXIT_FAILURE, "modulus generation failed");
     m = bp.n;
 
@@ -459,8 +461,6 @@ static grand *gen_bbs(unsigned i)
       fputc('\n', stderr);
     }
 
-    mp_drop(p);
-    mp_drop(q);
     mp_drop(bp.p);
     mp_drop(bp.q);
   }