/* -*-c-*-
*
- * $Id: bbs-rand.c,v 1.2 1999/12/13 15:34:01 mdw Exp $
+ * $Id: bbs-rand.c,v 1.3 2000/06/17 10:45:21 mdw Exp $
*
* Blum-Blum-Shub secure random number generator
*
/*----- Revision history --------------------------------------------------*
*
* $Log: bbs-rand.c,v $
+ * Revision 1.3 2000/06/17 10:45:21 mdw
+ * Typesetting fixes. Advertise random number generator strength. Use
+ * secure arena for memory allocation.
+ *
* Revision 1.2 1999/12/13 15:34:01 mdw
* Add support for seeding from a generic pseudorandom source.
*
#include <mLib/bits.h>
#include <mLib/sub.h>
+#include "arena.h"
#include "bbs.h"
#include "grand.h"
#include "mp.h"
#include "mpbarrett.h"
#include "mpint.h"
#include "mprand.h"
+#include "paranoia.h"
/*----- Main code ---------------------------------------------------------*/
*
* If a generator is seeded, %$b$% bits are extracted, and then
* @bbs_wrap@ is called, the generator will have been stepped
- * %$\lceil b/k \rceil% times.
+ * %$\lceil b/k \rceil$% times.
*/
void bbs_wrap(bbs *b)
{
gctx *g = (gctx *)r;
bbs_destroy(&g->b);
- DESTROY(g);
+ BURN(*g);
+ S_DESTROY(g);
}
static int gmisc(grand *r, unsigned op, ...)
static const grand_ops gops = {
"bbs",
- 0,
+ GRAND_CRYPTO, 0,
gmisc, gdestroy,
gword, gbyte, gword, grand_range, grand_fill
};
grand *bbs_rand(mp *m, mp *x)
{
- gctx *g = CREATE(gctx);
+ gctx *g = S_CREATE(gctx);
g->r.ops = &gops;
bbs_create(&g->b, m, x);
return (&g->r);