1863026bd56a8aff6dcf691d5f8d21bd09173a47
[openssl.git] / fips / rand / fips_drbg_rand.c
1 /* fips/rand/fips_drbg_rand.c */
2 /* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL
3  * project.
4  */
5 /* ====================================================================
6  * Copyright (c) 2011 The OpenSSL Project.  All rights reserved.
7  *
8  * Redistribution and use in source and binary forms, with or without
9  * modification, are permitted provided that the following conditions
10  * are met:
11  *
12  * 1. Redistributions of source code must retain the above copyright
13  *    notice, this list of conditions and the following disclaimer. 
14  *
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
18  *    distribution.
19  *
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/)"
24  *
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.
29  *
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.
33  *
34  * 6. Redistributions of any form whatsoever must retain the following
35  *    acknowledgment:
36  *    "This product includes software developed by the OpenSSL Project
37  *    for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
38  *
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  * ====================================================================
52  */
53
54 #define OPENSSL_FIPSAPI
55
56 #include <string.h>
57 #include <openssl/crypto.h>
58 #include <openssl/evp.h>
59 #include <openssl/aes.h>
60 #include <openssl/err.h>
61 #include <openssl/rand.h>
62 #include <openssl/fips_rand.h>
63 #include "fips_rand_lcl.h"
64
65 /* Mapping of SP800-90 DRBGs to OpenSSL RAND_METHOD */
66
67 /* Since we only have one global PRNG used at any time in OpenSSL use a global
68  * variable to store context.
69  */
70
71 static DRBG_CTX ossl_dctx;
72
73 DRBG_CTX *FIPS_get_default_drbg(void)
74         {
75         return &ossl_dctx;
76         }
77
78 static int fips_drbg_bytes(unsigned char *out, int count)
79         {
80         DRBG_CTX *dctx = &ossl_dctx;
81         int rv = 0;
82         unsigned char *adin = NULL;
83         size_t adinlen = 0;
84         CRYPTO_w_lock(CRYPTO_LOCK_RAND);
85         do 
86                 {
87                 size_t rcnt;
88                 if (count > (int)dctx->max_request)
89                         rcnt = dctx->max_request;
90                 else
91                         rcnt = count;
92                 if (dctx->get_adin)
93                         {
94                         adinlen = dctx->get_adin(dctx, &adin);
95                         if (adinlen && !adin)
96                                 {
97                                 FIPSerr(FIPS_F_FIPS_DRBG_BYTES, FIPS_R_ERROR_RETRIEVING_ADDITIONAL_INPUT);
98                                 goto err;
99                                 }
100                         }
101                 rv = FIPS_drbg_generate(dctx, out, rcnt, 0, 0, adin, adinlen);
102                 if (adin)
103                         {
104                         if (dctx->cleanup_adin)
105                                 dctx->cleanup_adin(dctx, adin, adinlen);
106                         adin = NULL;
107                         }
108                 if (!rv)
109                         goto err;
110                 out += rcnt;
111                 count -= rcnt;
112                 }
113         while (count);
114         rv = 1;
115         err:
116         CRYPTO_w_unlock(CRYPTO_LOCK_RAND);
117         return rv;
118         }
119
120 static int fips_drbg_pseudo(unsigned char *out, int count)
121         {
122         if (fips_drbg_bytes(out, count) <= 0)
123                 return -1;
124         return 1;
125         }
126
127 static int fips_drbg_status(void)
128         {
129         DRBG_CTX *dctx = &ossl_dctx;
130         int rv;
131         CRYPTO_r_lock(CRYPTO_LOCK_RAND);
132         rv = dctx->status == DRBG_STATUS_READY ? 1 : 0;
133         CRYPTO_r_unlock(CRYPTO_LOCK_RAND);
134         return rv;
135         }
136
137 static void fips_drbg_cleanup(void)
138         {
139         DRBG_CTX *dctx = &ossl_dctx;
140         CRYPTO_w_lock(CRYPTO_LOCK_RAND);
141         FIPS_drbg_uninstantiate(dctx);
142         CRYPTO_w_unlock(CRYPTO_LOCK_RAND);
143         }
144
145 static int fips_drbg_seed(const void *seed, int seedlen)
146         {
147         DRBG_CTX *dctx = &ossl_dctx;
148         int rv = 1;
149         if (dctx->rand_seed_cb)
150                 {
151                 CRYPTO_w_lock(CRYPTO_LOCK_RAND);
152                 rv = dctx->rand_seed_cb(dctx, seed, seedlen);
153                 CRYPTO_w_unlock(CRYPTO_LOCK_RAND);
154                 }
155         return rv;
156         }
157
158 static int fips_drbg_add(const void *seed, int seedlen,
159                                         double add_entropy)
160         {
161         DRBG_CTX *dctx = &ossl_dctx;
162         int rv = 1;
163         if (dctx->rand_add_cb)
164                 {
165                 CRYPTO_w_lock(CRYPTO_LOCK_RAND);
166                 rv = dctx->rand_add_cb(dctx, seed, seedlen, add_entropy);
167                 CRYPTO_w_unlock(CRYPTO_LOCK_RAND);
168                 }
169         return rv;
170         }
171
172 static const RAND_METHOD rand_drbg_meth =
173         {
174         fips_drbg_seed,
175         fips_drbg_bytes,
176         fips_drbg_cleanup,
177         fips_drbg_add,
178         fips_drbg_pseudo,
179         fips_drbg_status
180         };
181
182 const RAND_METHOD *FIPS_drbg_method(void)
183         {
184         return &rand_drbg_meth;
185         }
186