/* -*-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
*
/*----- 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.
*
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;
fputc('\n', stderr);
}
- mp_drop(p);
- mp_drop(q);
mp_drop(bp.p);
mp_drop(bp.q);
}