Mercurial > dropbear
comparison libtomcrypt/src/misc/mpi/rand_prime.c @ 285:1b9e69c058d2
propagate from branch 'au.asn.ucc.matt.ltc.dropbear' (head 20dccfc09627970a312d77fb41dc2970b62689c3)
to branch 'au.asn.ucc.matt.dropbear' (head fdf4a7a3b97ae5046139915de7e40399cceb2c01)
author | Matt Johnston <matt@ucc.asn.au> |
---|---|
date | Wed, 08 Mar 2006 13:23:58 +0000 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
281:997e6f7dc01e | 285:1b9e69c058d2 |
---|---|
1 /* LibTomCrypt, modular cryptographic library -- Tom St Denis | |
2 * | |
3 * LibTomCrypt is a library that provides various cryptographic | |
4 * algorithms in a highly modular and flexible manner. | |
5 * | |
6 * The library is free for all purposes without any express | |
7 * guarantee it works. | |
8 * | |
9 * Tom St Denis, [email protected], http://libtomcrypt.org | |
10 */ | |
11 #include "tomcrypt.h" | |
12 | |
13 /** | |
14 @file rand_prime.c | |
15 Generate a random prime, Tom St Denis | |
16 */ | |
17 #ifdef MPI | |
18 | |
19 struct rng_data { | |
20 prng_state *prng; | |
21 int wprng; | |
22 }; | |
23 | |
24 static int rand_prime_helper(unsigned char *dst, int len, void *dat) | |
25 { | |
26 return (int)prng_descriptor[((struct rng_data *)dat)->wprng].read(dst, len, ((struct rng_data *)dat)->prng); | |
27 } | |
28 | |
29 int rand_prime(mp_int *N, long len, prng_state *prng, int wprng) | |
30 { | |
31 struct rng_data rng; | |
32 int type, err; | |
33 | |
34 LTC_ARGCHK(N != NULL); | |
35 | |
36 /* allow sizes between 2 and 256 bytes for a prime size */ | |
37 if (len < 16 || len > 4096) { | |
38 return CRYPT_INVALID_PRIME_SIZE; | |
39 } | |
40 | |
41 /* valid PRNG? Better be! */ | |
42 if ((err = prng_is_valid(wprng)) != CRYPT_OK) { | |
43 return err; | |
44 } | |
45 | |
46 /* setup our callback data, then world domination! */ | |
47 rng.prng = prng; | |
48 rng.wprng = wprng; | |
49 | |
50 /* get type */ | |
51 if (len < 0) { | |
52 type = LTM_PRIME_BBS; | |
53 len = -len; | |
54 } else { | |
55 type = 0; | |
56 } | |
57 type |= LTM_PRIME_2MSB_ON; | |
58 | |
59 /* New prime generation makes the code even more cryptoish-insane. Do you know what this means!!! | |
60 -- Gir: Yeah, oh wait, er, no. | |
61 */ | |
62 return mpi_to_ltc_error(mp_prime_random_ex(N, mp_prime_rabin_miller_trials(len), len, type, rand_prime_helper, &rng)); | |
63 } | |
64 | |
65 #endif | |
66 | |
67 | |
68 /* $Source: /cvs/libtom/libtomcrypt/src/misc/mpi/rand_prime.c,v $ */ | |
69 /* $Revision: 1.3 $ */ | |
70 /* $Date: 2005/05/05 14:35:59 $ */ |