1 /* fips/rand/fips_drbg_lib.c */
2 /* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL
5 /* ====================================================================
6 * Copyright (c) 2011 The OpenSSL Project. All rights reserved.
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
12 * 1. Redistributions of source code must retain the above copyright
13 * notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 * notice, this list of conditions and the following disclaimer in
17 * the documentation and/or other materials provided with the
20 * 3. All advertising materials mentioning features or use of this
21 * software must display the following acknowledgment:
22 * "This product includes software developed by the OpenSSL Project
23 * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
25 * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
26 * endorse or promote products derived from this software without
27 * prior written permission. For written permission, please contact
28 * licensing@OpenSSL.org.
30 * 5. Products derived from this software may not be called "OpenSSL"
31 * nor may "OpenSSL" appear in their names without prior written
32 * permission of the OpenSSL Project.
34 * 6. Redistributions of any form whatsoever must retain the following
36 * "This product includes software developed by the OpenSSL Project
37 * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
39 * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
40 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
41 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
42 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR
43 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
44 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
45 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
46 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
47 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
48 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
49 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
50 * OF THE POSSIBILITY OF SUCH DAMAGE.
51 * ====================================================================
54 #define OPENSSL_FIPSAPI
57 #include <openssl/crypto.h>
58 #include <openssl/evp.h>
59 #include <openssl/aes.h>
60 #include <openssl/fips_rand.h>
61 #include "fips_rand_lcl.h"
63 /* Support framework for SP800-90 DRBGs */
65 static int fips_drbg_init(DRBG_CTX *dctx, int type, unsigned int flags)
68 memset(dctx, 0, sizeof(DRBG_CTX));
69 dctx->status = DRBG_STATUS_UNINITIALISED;
73 rv = fips_drbg_hash_init(dctx);
76 rv = fips_drbg_ctr_init(dctx);
81 DRBG_CTX *FIPS_drbg_new(int type, unsigned int flags)
84 dctx = OPENSSL_malloc(sizeof(DRBG_CTX));
87 if (fips_drbg_init(dctx, type, flags) <= 0)
95 void FIPS_drbg_free(DRBG_CTX *dctx)
97 dctx->uninstantiate(dctx);
98 OPENSSL_cleanse(dctx, sizeof(DRBG_CTX));
102 int FIPS_drbg_instantiate(DRBG_CTX *dctx,
104 const unsigned char *pers, size_t perslen)
106 size_t entlen, noncelen;
108 if (perslen > dctx->max_pers)
111 if (dctx->status != DRBG_STATUS_UNINITIALISED)
117 dctx->status = DRBG_STATUS_ERROR;
119 entlen = dctx->get_entropy(dctx, dctx->entropy, dctx->strength,
120 dctx->min_entropy, dctx->max_entropy);
122 if (entlen < dctx->min_entropy || entlen > dctx->max_entropy)
125 if (dctx->max_nonce > 0)
128 noncelen = dctx->get_nonce(dctx, dctx->nonce,
130 dctx->min_nonce, dctx->max_nonce);
132 if (noncelen < dctx->min_nonce || noncelen > dctx->max_nonce)
139 if (!dctx->instantiate(dctx,
140 dctx->entropy, entlen,
141 dctx->nonce, noncelen,
146 dctx->status = DRBG_STATUS_READY;
147 dctx->reseed_counter = 1;
148 /* Initial test value for reseed interval */
149 dctx->reseed_interval = 1<<24;
153 OPENSSL_cleanse(dctx->entropy, sizeof(dctx->entropy));
154 OPENSSL_cleanse(dctx->nonce, sizeof(dctx->nonce));
156 if (dctx->status == DRBG_STATUS_READY)
163 int FIPS_drbg_reseed(DRBG_CTX *dctx,
164 const unsigned char *adin, size_t adinlen)
167 if (dctx->status != DRBG_STATUS_READY
168 && dctx->status != DRBG_STATUS_RESEED)
176 else if (adinlen > dctx->max_adin)
182 dctx->status = DRBG_STATUS_ERROR;
184 entlen = dctx->get_entropy(dctx, dctx->entropy, dctx->strength,
185 dctx->min_entropy, dctx->max_entropy);
187 if (entlen < dctx->min_entropy || entlen > dctx->max_entropy)
190 if (!dctx->reseed(dctx, dctx->entropy, entlen, adin, adinlen))
193 dctx->status = DRBG_STATUS_READY;
194 dctx->reseed_counter = 1;
196 OPENSSL_cleanse(dctx->entropy, sizeof(dctx->entropy));
197 if (dctx->status == DRBG_STATUS_READY)
203 int FIPS_drbg_generate(DRBG_CTX *dctx, unsigned char *out, size_t outlen,
204 int prediction_resistance,
205 const unsigned char *adin, size_t adinlen)
207 if (outlen > dctx->max_request)
212 if (dctx->status == DRBG_STATUS_RESEED || prediction_resistance)
214 if (!FIPS_drbg_reseed(dctx, adin, adinlen))
219 if (dctx->status != DRBG_STATUS_READY)
224 if (!dctx->generate(dctx, out, outlen, adin, adinlen))
227 dctx->status = DRBG_STATUS_ERROR;
230 if (dctx->reseed_counter > dctx->reseed_interval)
231 dctx->status = DRBG_STATUS_RESEED;
233 dctx->reseed_counter++;
238 int FIPS_drbg_uninstantiate(DRBG_CTX *dctx)
240 int save_type, save_flags, rv;
241 save_type = dctx->type;
242 save_flags = dctx->flags;
243 rv = dctx->uninstantiate(dctx);
244 OPENSSL_cleanse(dctx, sizeof(DRBG_CTX));
245 /* If method has problems uninstantiating, return error */
248 return fips_drbg_init(dctx, save_type, save_flags);
251 int FIPS_drbg_set_test_mode(DRBG_CTX *dctx,
252 size_t (*get_entropy)(DRBG_CTX *ctx, unsigned char *out,
253 int entropy, size_t min_len, size_t max_len),
254 size_t (*get_nonce)(DRBG_CTX *ctx, unsigned char *out,
255 int entropy, size_t min_len, size_t max_len))
257 if (dctx->status != DRBG_STATUS_UNINITIALISED)
259 dctx->flags |= DRBG_FLAG_TEST;
260 dctx->get_entropy = get_entropy;
261 dctx->get_nonce = get_nonce;
265 void *FIPS_drbg_get_app_data(DRBG_CTX *dctx)
267 return dctx->app_data;
270 void FIPS_drbg_set_app_data(DRBG_CTX *dctx, void *app_data)
272 dctx->app_data = app_data;
275 size_t FIPS_drbg_get_blocklength(DRBG_CTX *dctx)
277 return dctx->blocklength;