summaryrefslogtreecommitdiff
path: root/src/lib/libcrypto/rand
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib/libcrypto/rand')
-rw-r--r--src/lib/libcrypto/rand/md_rand.c27
-rw-r--r--src/lib/libcrypto/rand/rand.h (renamed from src/lib/libcrypto/rand/rand_eng.c)169
-rw-r--r--src/lib/libcrypto/rand/rand_err.c100
-rw-r--r--src/lib/libcrypto/rand/rand_lib.c295
-rw-r--r--src/lib/libcrypto/rand/rand_nw.c183
-rw-r--r--src/lib/libcrypto/rand/rand_unix.c10
-rw-r--r--src/lib/libcrypto/rand/rand_win.c2
-rw-r--r--src/lib/libcrypto/rand/randfile.c326
8 files changed, 996 insertions, 116 deletions
diff --git a/src/lib/libcrypto/rand/md_rand.c b/src/lib/libcrypto/rand/md_rand.c
index aee1c30b0a..fcdd3f2a84 100644
--- a/src/lib/libcrypto/rand/md_rand.c
+++ b/src/lib/libcrypto/rand/md_rand.c
@@ -123,10 +123,10 @@
123 123
124#include "e_os.h" 124#include "e_os.h"
125 125
126#include <openssl/crypto.h>
127#include <openssl/rand.h> 126#include <openssl/rand.h>
128#include "rand_lcl.h" 127#include "rand_lcl.h"
129 128
129#include <openssl/crypto.h>
130#include <openssl/err.h> 130#include <openssl/err.h>
131 131
132#ifdef BN_DEBUG 132#ifdef BN_DEBUG
@@ -198,9 +198,6 @@ static void ssleay_rand_add(const void *buf, int num, double add)
198 EVP_MD_CTX m; 198 EVP_MD_CTX m;
199 int do_not_lock; 199 int do_not_lock;
200 200
201 if (!num)
202 return;
203
204 /* 201 /*
205 * (Based on the rand(3) manpage) 202 * (Based on the rand(3) manpage)
206 * 203 *
@@ -383,11 +380,8 @@ static int ssleay_rand_bytes(unsigned char *buf, int num, int pseudo)
383 * are fed into the hash function and the results are kept in the 380 * are fed into the hash function and the results are kept in the
384 * global 'md'. 381 * global 'md'.
385 */ 382 */
386#ifdef OPENSSL_FIPS 383
387 /* NB: in FIPS mode we are already under a lock */ 384 CRYPTO_w_lock(CRYPTO_LOCK_RAND);
388 if (!FIPS_mode())
389#endif
390 CRYPTO_w_lock(CRYPTO_LOCK_RAND);
391 385
392 /* prevent ssleay_rand_bytes() from trying to obtain the lock again */ 386 /* prevent ssleay_rand_bytes() from trying to obtain the lock again */
393 CRYPTO_w_lock(CRYPTO_LOCK_RAND2); 387 CRYPTO_w_lock(CRYPTO_LOCK_RAND2);
@@ -466,10 +460,7 @@ static int ssleay_rand_bytes(unsigned char *buf, int num, int pseudo)
466 460
467 /* before unlocking, we must clear 'crypto_lock_rand' */ 461 /* before unlocking, we must clear 'crypto_lock_rand' */
468 crypto_lock_rand = 0; 462 crypto_lock_rand = 0;
469#ifdef OPENSSL_FIPS 463 CRYPTO_w_unlock(CRYPTO_LOCK_RAND);
470 if (!FIPS_mode())
471#endif
472 CRYPTO_w_unlock(CRYPTO_LOCK_RAND);
473 464
474 while (num > 0) 465 while (num > 0)
475 { 466 {
@@ -521,16 +512,10 @@ static int ssleay_rand_bytes(unsigned char *buf, int num, int pseudo)
521 MD_Init(&m); 512 MD_Init(&m);
522 MD_Update(&m,(unsigned char *)&(md_c[0]),sizeof(md_c)); 513 MD_Update(&m,(unsigned char *)&(md_c[0]),sizeof(md_c));
523 MD_Update(&m,local_md,MD_DIGEST_LENGTH); 514 MD_Update(&m,local_md,MD_DIGEST_LENGTH);
524#ifdef OPENSSL_FIPS 515 CRYPTO_w_lock(CRYPTO_LOCK_RAND);
525 if (!FIPS_mode())
526#endif
527 CRYPTO_w_lock(CRYPTO_LOCK_RAND);
528 MD_Update(&m,md,MD_DIGEST_LENGTH); 516 MD_Update(&m,md,MD_DIGEST_LENGTH);
529 MD_Final(&m,md); 517 MD_Final(&m,md);
530#ifdef OPENSSL_FIPS 518 CRYPTO_w_unlock(CRYPTO_LOCK_RAND);
531 if (!FIPS_mode())
532#endif
533 CRYPTO_w_unlock(CRYPTO_LOCK_RAND);
534 519
535 EVP_MD_CTX_cleanup(&m); 520 EVP_MD_CTX_cleanup(&m);
536 if (ok) 521 if (ok)
diff --git a/src/lib/libcrypto/rand/rand_eng.c b/src/lib/libcrypto/rand/rand.h
index 1669cef43c..dc8fcf94c5 100644
--- a/src/lib/libcrypto/rand/rand_eng.c
+++ b/src/lib/libcrypto/rand/rand.h
@@ -1,4 +1,4 @@
1/* crypto/rand/rand_lib.c */ 1/* crypto/rand/rand.h */
2/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) 2/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
3 * All rights reserved. 3 * All rights reserved.
4 * 4 *
@@ -56,97 +56,94 @@
56 * [including the GNU Public Licence.] 56 * [including the GNU Public Licence.]
57 */ 57 */
58 58
59#include <stdio.h> 59#ifndef HEADER_RAND_H
60#include <time.h> 60#define HEADER_RAND_H
61#include "cryptlib.h" 61
62#include "rand_lcl.h" 62#include <stdlib.h>
63#include <openssl/rand.h> 63#include <openssl/ossl_typ.h>
64#ifdef OPENSSL_FIPS 64#include <openssl/e_os2.h>
65#include <openssl/fips.h> 65
66#include <openssl/fips_rand.h> 66#if defined(OPENSSL_SYS_WINDOWS)
67#include <windows.h>
67#endif 68#endif
68 69
69#ifndef OPENSSL_NO_ENGINE 70#ifdef __cplusplus
70#include <openssl/engine.h> 71extern "C" {
71#endif 72#endif
72 73
73#if defined(OPENSSL_FIPS) && !defined(OPENSSL_NO_ENGINE) 74#if defined(OPENSSL_FIPS)
75#define FIPS_RAND_SIZE_T size_t
76#endif
74 77
75/* non-NULL if default_RAND_meth is ENGINE-provided */ 78/* Already defined in ossl_typ.h */
76static ENGINE *funct_ref =NULL; 79/* typedef struct rand_meth_st RAND_METHOD; */
77 80
78int eng_RAND_set_rand_method(const RAND_METHOD *meth, const RAND_METHOD **pmeth) 81struct rand_meth_st
79 {
80 if(funct_ref)
81 {
82 ENGINE_finish(funct_ref);
83 funct_ref = NULL;
84 }
85 *pmeth = meth;
86 return 1;
87 }
88
89const RAND_METHOD *eng_RAND_get_rand_method(const RAND_METHOD **pmeth)
90 {
91 if (!*pmeth)
92 {
93 ENGINE *e = ENGINE_get_default_RAND();
94 if(e)
95 {
96 *pmeth = ENGINE_get_RAND(e);
97 if(!*pmeth)
98 {
99 ENGINE_finish(e);
100 e = NULL;
101 }
102 }
103 if(e)
104 funct_ref = e;
105 else
106 if(FIPS_mode())
107 *pmeth=FIPS_rand_method();
108 else
109 *pmeth = RAND_SSLeay();
110 }
111
112 if(FIPS_mode()
113 && *pmeth != FIPS_rand_check())
114 {
115 RANDerr(RAND_F_ENG_RAND_GET_RAND_METHOD,RAND_R_NON_FIPS_METHOD);
116 return 0;
117 }
118
119 return *pmeth;
120 }
121
122int RAND_set_rand_engine(ENGINE *engine)
123 { 82 {
124 const RAND_METHOD *tmp_meth = NULL; 83 void (*seed)(const void *buf, int num);
125 if(engine) 84 int (*bytes)(unsigned char *buf, int num);
126 { 85 void (*cleanup)(void);
127 if(!ENGINE_init(engine)) 86 void (*add)(const void *buf, int num, double entropy);
128 return 0; 87 int (*pseudorand)(unsigned char *buf, int num);
129 tmp_meth = ENGINE_get_RAND(engine); 88 int (*status)(void);
130 if(!tmp_meth) 89 };
131 { 90
132 ENGINE_finish(engine); 91#ifdef BN_DEBUG
133 return 0; 92extern int rand_predictable;
134 } 93#endif
135 } 94
136 /* This function releases any prior ENGINE so call it first */ 95int RAND_set_rand_method(const RAND_METHOD *meth);
137 RAND_set_rand_method(tmp_meth); 96const RAND_METHOD *RAND_get_rand_method(void);
138 funct_ref = engine; 97#ifndef OPENSSL_NO_ENGINE
139 return 1; 98int RAND_set_rand_engine(ENGINE *engine);
140 } 99#endif
141 100RAND_METHOD *RAND_SSLeay(void);
142void int_RAND_init_engine_callbacks(void) 101void RAND_cleanup(void );
143 { 102int RAND_bytes(unsigned char *buf,int num);
144 static int done = 0; 103int RAND_pseudo_bytes(unsigned char *buf,int num);
145 if (done) 104void RAND_seed(const void *buf,int num);
146 return; 105void RAND_add(const void *buf,int num,double entropy);
147 int_RAND_set_callbacks(eng_RAND_set_rand_method, 106int RAND_load_file(const char *file,long max_bytes);
148 eng_RAND_get_rand_method); 107int RAND_write_file(const char *file);
149 done = 1; 108const char *RAND_file_name(char *file,size_t num);
150 } 109int RAND_status(void);
110int RAND_query_egd_bytes(const char *path, unsigned char *buf, int bytes);
111int RAND_egd(const char *path);
112int RAND_egd_bytes(const char *path,int bytes);
113int RAND_poll(void);
151 114
115#if defined(OPENSSL_SYS_WINDOWS) || defined(OPENSSL_SYS_WIN32)
116
117void RAND_screen(void);
118int RAND_event(UINT, WPARAM, LPARAM);
119
120#endif
121
122#ifdef OPENSSL_FIPS
123void RAND_set_fips_drbg_type(int type, int flags);
124int RAND_init_fips(void);
125#endif
126
127/* BEGIN ERROR CODES */
128/* The following lines are auto generated by the script mkerr.pl. Any changes
129 * made after this point may be overwritten when the script is next run.
130 */
131void ERR_load_RAND_strings(void);
132
133/* Error codes for the RAND functions. */
134
135/* Function codes. */
136#define RAND_F_RAND_GET_RAND_METHOD 101
137#define RAND_F_RAND_INIT_FIPS 102
138#define RAND_F_SSLEAY_RAND_BYTES 100
139
140/* Reason codes. */
141#define RAND_R_ERROR_INITIALISING_DRBG 102
142#define RAND_R_ERROR_INSTANTIATING_DRBG 103
143#define RAND_R_NO_FIPS_RANDOM_METHOD_SET 101
144#define RAND_R_PRNG_NOT_SEEDED 100
145
146#ifdef __cplusplus
147}
148#endif
152#endif 149#endif
diff --git a/src/lib/libcrypto/rand/rand_err.c b/src/lib/libcrypto/rand/rand_err.c
new file mode 100644
index 0000000000..b8586c8f4a
--- /dev/null
+++ b/src/lib/libcrypto/rand/rand_err.c
@@ -0,0 +1,100 @@
1/* crypto/rand/rand_err.c */
2/* ====================================================================
3 * Copyright (c) 1999-2011 The OpenSSL Project. All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 *
9 * 1. Redistributions of source code must retain the above copyright
10 * notice, this list of conditions and the following disclaimer.
11 *
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in
14 * the documentation and/or other materials provided with the
15 * distribution.
16 *
17 * 3. All advertising materials mentioning features or use of this
18 * software must display the following acknowledgment:
19 * "This product includes software developed by the OpenSSL Project
20 * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
21 *
22 * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
23 * endorse or promote products derived from this software without
24 * prior written permission. For written permission, please contact
25 * openssl-core@OpenSSL.org.
26 *
27 * 5. Products derived from this software may not be called "OpenSSL"
28 * nor may "OpenSSL" appear in their names without prior written
29 * permission of the OpenSSL Project.
30 *
31 * 6. Redistributions of any form whatsoever must retain the following
32 * acknowledgment:
33 * "This product includes software developed by the OpenSSL Project
34 * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
35 *
36 * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
37 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
38 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
39 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR
40 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
41 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
42 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
43 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
44 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
45 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
46 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
47 * OF THE POSSIBILITY OF SUCH DAMAGE.
48 * ====================================================================
49 *
50 * This product includes cryptographic software written by Eric Young
51 * (eay@cryptsoft.com). This product includes software written by Tim
52 * Hudson (tjh@cryptsoft.com).
53 *
54 */
55
56/* NOTE: this file was auto generated by the mkerr.pl script: any changes
57 * made to it will be overwritten when the script next updates this file,
58 * only reason strings will be preserved.
59 */
60
61#include <stdio.h>
62#include <openssl/err.h>
63#include <openssl/rand.h>
64
65/* BEGIN ERROR CODES */
66#ifndef OPENSSL_NO_ERR
67
68#define ERR_FUNC(func) ERR_PACK(ERR_LIB_RAND,func,0)
69#define ERR_REASON(reason) ERR_PACK(ERR_LIB_RAND,0,reason)
70
71static ERR_STRING_DATA RAND_str_functs[]=
72 {
73{ERR_FUNC(RAND_F_RAND_GET_RAND_METHOD), "RAND_get_rand_method"},
74{ERR_FUNC(RAND_F_RAND_INIT_FIPS), "RAND_init_fips"},
75{ERR_FUNC(RAND_F_SSLEAY_RAND_BYTES), "SSLEAY_RAND_BYTES"},
76{0,NULL}
77 };
78
79static ERR_STRING_DATA RAND_str_reasons[]=
80 {
81{ERR_REASON(RAND_R_ERROR_INITIALISING_DRBG),"error initialising drbg"},
82{ERR_REASON(RAND_R_ERROR_INSTANTIATING_DRBG),"error instantiating drbg"},
83{ERR_REASON(RAND_R_NO_FIPS_RANDOM_METHOD_SET),"no fips random method set"},
84{ERR_REASON(RAND_R_PRNG_NOT_SEEDED) ,"PRNG not seeded"},
85{0,NULL}
86 };
87
88#endif
89
90void ERR_load_RAND_strings(void)
91 {
92#ifndef OPENSSL_NO_ERR
93
94 if (ERR_func_error_string(RAND_str_functs[0].error) == NULL)
95 {
96 ERR_load_strings(0,RAND_str_functs);
97 ERR_load_strings(0,RAND_str_reasons);
98 }
99#endif
100 }
diff --git a/src/lib/libcrypto/rand/rand_lib.c b/src/lib/libcrypto/rand/rand_lib.c
new file mode 100644
index 0000000000..daf1dab973
--- /dev/null
+++ b/src/lib/libcrypto/rand/rand_lib.c
@@ -0,0 +1,295 @@
1/* crypto/rand/rand_lib.c */
2/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
3 * All rights reserved.
4 *
5 * This package is an SSL implementation written
6 * by Eric Young (eay@cryptsoft.com).
7 * The implementation was written so as to conform with Netscapes SSL.
8 *
9 * This library is free for commercial and non-commercial use as long as
10 * the following conditions are aheared to. The following conditions
11 * apply to all code found in this distribution, be it the RC4, RSA,
12 * lhash, DES, etc., code; not just the SSL code. The SSL documentation
13 * included with this distribution is covered by the same copyright terms
14 * except that the holder is Tim Hudson (tjh@cryptsoft.com).
15 *
16 * Copyright remains Eric Young's, and as such any Copyright notices in
17 * the code are not to be removed.
18 * If this package is used in a product, Eric Young should be given attribution
19 * as the author of the parts of the library used.
20 * This can be in the form of a textual message at program startup or
21 * in documentation (online or textual) provided with the package.
22 *
23 * Redistribution and use in source and binary forms, with or without
24 * modification, are permitted provided that the following conditions
25 * are met:
26 * 1. Redistributions of source code must retain the copyright
27 * notice, this list of conditions and the following disclaimer.
28 * 2. Redistributions in binary form must reproduce the above copyright
29 * notice, this list of conditions and the following disclaimer in the
30 * documentation and/or other materials provided with the distribution.
31 * 3. All advertising materials mentioning features or use of this software
32 * must display the following acknowledgement:
33 * "This product includes cryptographic software written by
34 * Eric Young (eay@cryptsoft.com)"
35 * The word 'cryptographic' can be left out if the rouines from the library
36 * being used are not cryptographic related :-).
37 * 4. If you include any Windows specific code (or a derivative thereof) from
38 * the apps directory (application code) you must include an acknowledgement:
39 * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
40 *
41 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
42 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
43 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
44 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
45 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
46 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
47 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
48 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
49 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
50 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
51 * SUCH DAMAGE.
52 *
53 * The licence and distribution terms for any publically available version or
54 * derivative of this code cannot be changed. i.e. this code cannot simply be
55 * copied and put under another distribution licence
56 * [including the GNU Public Licence.]
57 */
58
59#include <stdio.h>
60#include <time.h>
61#include "cryptlib.h"
62#include <openssl/rand.h>
63
64#ifndef OPENSSL_NO_ENGINE
65#include <openssl/engine.h>
66#endif
67
68#ifdef OPENSSL_FIPS
69#include <openssl/fips.h>
70#include <openssl/fips_rand.h>
71#endif
72
73#ifndef OPENSSL_NO_ENGINE
74/* non-NULL if default_RAND_meth is ENGINE-provided */
75static ENGINE *funct_ref =NULL;
76#endif
77static const RAND_METHOD *default_RAND_meth = NULL;
78
79int RAND_set_rand_method(const RAND_METHOD *meth)
80 {
81#ifndef OPENSSL_NO_ENGINE
82 if(funct_ref)
83 {
84 ENGINE_finish(funct_ref);
85 funct_ref = NULL;
86 }
87#endif
88 default_RAND_meth = meth;
89 return 1;
90 }
91
92const RAND_METHOD *RAND_get_rand_method(void)
93 {
94 if (!default_RAND_meth)
95 {
96#ifndef OPENSSL_NO_ENGINE
97 ENGINE *e = ENGINE_get_default_RAND();
98 if(e)
99 {
100 default_RAND_meth = ENGINE_get_RAND(e);
101 if(!default_RAND_meth)
102 {
103 ENGINE_finish(e);
104 e = NULL;
105 }
106 }
107 if(e)
108 funct_ref = e;
109 else
110#endif
111 default_RAND_meth = RAND_SSLeay();
112 }
113 return default_RAND_meth;
114 }
115
116#ifndef OPENSSL_NO_ENGINE
117int RAND_set_rand_engine(ENGINE *engine)
118 {
119 const RAND_METHOD *tmp_meth = NULL;
120 if(engine)
121 {
122 if(!ENGINE_init(engine))
123 return 0;
124 tmp_meth = ENGINE_get_RAND(engine);
125 if(!tmp_meth)
126 {
127 ENGINE_finish(engine);
128 return 0;
129 }
130 }
131 /* This function releases any prior ENGINE so call it first */
132 RAND_set_rand_method(tmp_meth);
133 funct_ref = engine;
134 return 1;
135 }
136#endif
137
138void RAND_cleanup(void)
139 {
140 const RAND_METHOD *meth = RAND_get_rand_method();
141 if (meth && meth->cleanup)
142 meth->cleanup();
143 RAND_set_rand_method(NULL);
144 }
145
146void RAND_seed(const void *buf, int num)
147 {
148 const RAND_METHOD *meth = RAND_get_rand_method();
149 if (meth && meth->seed)
150 meth->seed(buf,num);
151 }
152
153void RAND_add(const void *buf, int num, double entropy)
154 {
155 const RAND_METHOD *meth = RAND_get_rand_method();
156 if (meth && meth->add)
157 meth->add(buf,num,entropy);
158 }
159
160int RAND_bytes(unsigned char *buf, int num)
161 {
162 const RAND_METHOD *meth = RAND_get_rand_method();
163 if (meth && meth->bytes)
164 return meth->bytes(buf,num);
165 return(-1);
166 }
167
168int RAND_pseudo_bytes(unsigned char *buf, int num)
169 {
170 const RAND_METHOD *meth = RAND_get_rand_method();
171 if (meth && meth->pseudorand)
172 return meth->pseudorand(buf,num);
173 return(-1);
174 }
175
176int RAND_status(void)
177 {
178 const RAND_METHOD *meth = RAND_get_rand_method();
179 if (meth && meth->status)
180 return meth->status();
181 return 0;
182 }
183
184#ifdef OPENSSL_FIPS
185
186/* FIPS DRBG initialisation code. This sets up the DRBG for use by the
187 * rest of OpenSSL.
188 */
189
190/* Entropy gatherer: use standard OpenSSL PRNG to seed (this will gather
191 * entropy internally through RAND_poll().
192 */
193
194static size_t drbg_get_entropy(DRBG_CTX *ctx, unsigned char **pout,
195 int entropy, size_t min_len, size_t max_len)
196 {
197 /* Round up request to multiple of block size */
198 min_len = ((min_len + 19) / 20) * 20;
199 *pout = OPENSSL_malloc(min_len);
200 if (!*pout)
201 return 0;
202 if (RAND_SSLeay()->bytes(*pout, min_len) <= 0)
203 {
204 OPENSSL_free(*pout);
205 *pout = NULL;
206 return 0;
207 }
208 return min_len;
209 }
210
211static void drbg_free_entropy(DRBG_CTX *ctx, unsigned char *out, size_t olen)
212 {
213 OPENSSL_cleanse(out, olen);
214 OPENSSL_free(out);
215 }
216
217/* Set "additional input" when generating random data. This uses the
218 * current PID, a time value and a counter.
219 */
220
221static size_t drbg_get_adin(DRBG_CTX *ctx, unsigned char **pout)
222 {
223 /* Use of static variables is OK as this happens under a lock */
224 static unsigned char buf[16];
225 static unsigned long counter;
226 FIPS_get_timevec(buf, &counter);
227 *pout = buf;
228 return sizeof(buf);
229 }
230
231/* RAND_add() and RAND_seed() pass through to OpenSSL PRNG so it is
232 * correctly seeded by RAND_poll().
233 */
234
235static int drbg_rand_add(DRBG_CTX *ctx, const void *in, int inlen,
236 double entropy)
237 {
238 RAND_SSLeay()->add(in, inlen, entropy);
239 return 1;
240 }
241
242static int drbg_rand_seed(DRBG_CTX *ctx, const void *in, int inlen)
243 {
244 RAND_SSLeay()->seed(in, inlen);
245 return 1;
246 }
247
248#ifndef OPENSSL_DRBG_DEFAULT_TYPE
249#define OPENSSL_DRBG_DEFAULT_TYPE NID_aes_256_ctr
250#endif
251#ifndef OPENSSL_DRBG_DEFAULT_FLAGS
252#define OPENSSL_DRBG_DEFAULT_FLAGS DRBG_FLAG_CTR_USE_DF
253#endif
254
255static int fips_drbg_type = OPENSSL_DRBG_DEFAULT_TYPE;
256static int fips_drbg_flags = OPENSSL_DRBG_DEFAULT_FLAGS;
257
258void RAND_set_fips_drbg_type(int type, int flags)
259 {
260 fips_drbg_type = type;
261 fips_drbg_flags = flags;
262 }
263
264int RAND_init_fips(void)
265 {
266 DRBG_CTX *dctx;
267 size_t plen;
268 unsigned char pers[32], *p;
269 dctx = FIPS_get_default_drbg();
270 if (FIPS_drbg_init(dctx, fips_drbg_type, fips_drbg_flags) <= 0)
271 {
272 RANDerr(RAND_F_RAND_INIT_FIPS, RAND_R_ERROR_INITIALISING_DRBG);
273 return 0;
274 }
275
276 FIPS_drbg_set_callbacks(dctx,
277 drbg_get_entropy, drbg_free_entropy, 20,
278 drbg_get_entropy, drbg_free_entropy);
279 FIPS_drbg_set_rand_callbacks(dctx, drbg_get_adin, 0,
280 drbg_rand_seed, drbg_rand_add);
281 /* Personalisation string: a string followed by date time vector */
282 strcpy((char *)pers, "OpenSSL DRBG2.0");
283 plen = drbg_get_adin(dctx, &p);
284 memcpy(pers + 16, p, plen);
285
286 if (FIPS_drbg_instantiate(dctx, pers, sizeof(pers)) <= 0)
287 {
288 RANDerr(RAND_F_RAND_INIT_FIPS, RAND_R_ERROR_INSTANTIATING_DRBG);
289 return 0;
290 }
291 FIPS_rand_set_method(FIPS_drbg_method());
292 return 1;
293 }
294
295#endif
diff --git a/src/lib/libcrypto/rand/rand_nw.c b/src/lib/libcrypto/rand/rand_nw.c
new file mode 100644
index 0000000000..8d5b8d2e32
--- /dev/null
+++ b/src/lib/libcrypto/rand/rand_nw.c
@@ -0,0 +1,183 @@
1/* crypto/rand/rand_nw.c */
2/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
3 * All rights reserved.
4 *
5 * This package is an SSL implementation written
6 * by Eric Young (eay@cryptsoft.com).
7 * The implementation was written so as to conform with Netscapes SSL.
8 *
9 * This library is free for commercial and non-commercial use as long as
10 * the following conditions are aheared to. The following conditions
11 * apply to all code found in this distribution, be it the RC4, RSA,
12 * lhash, DES, etc., code; not just the SSL code. The SSL documentation
13 * included with this distribution is covered by the same copyright terms
14 * except that the holder is Tim Hudson (tjh@cryptsoft.com).
15 *
16 * Copyright remains Eric Young's, and as such any Copyright notices in
17 * the code are not to be removed.
18 * If this package is used in a product, Eric Young should be given attribution
19 * as the author of the parts of the library used.
20 * This can be in the form of a textual message at program startup or
21 * in documentation (online or textual) provided with the package.
22 *
23 * Redistribution and use in source and binary forms, with or without
24 * modification, are permitted provided that the following conditions
25 * are met:
26 * 1. Redistributions of source code must retain the copyright
27 * notice, this list of conditions and the following disclaimer.
28 * 2. Redistributions in binary form must reproduce the above copyright
29 * notice, this list of conditions and the following disclaimer in the
30 * documentation and/or other materials provided with the distribution.
31 * 3. All advertising materials mentioning features or use of this software
32 * must display the following acknowledgement:
33 * "This product includes cryptographic software written by
34 * Eric Young (eay@cryptsoft.com)"
35 * The word 'cryptographic' can be left out if the rouines from the library
36 * being used are not cryptographic related :-).
37 * 4. If you include any Windows specific code (or a derivative thereof) from
38 * the apps directory (application code) you must include an acknowledgement:
39 * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
40 *
41 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
42 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
43 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
44 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
45 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
46 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
47 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
48 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
49 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
50 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
51 * SUCH DAMAGE.
52 *
53 * The licence and distribution terms for any publically available version or
54 * derivative of this code cannot be changed. i.e. this code cannot simply be
55 * copied and put under another distribution licence
56 * [including the GNU Public Licence.]
57 */
58/* ====================================================================
59 * Copyright (c) 1998-2000 The OpenSSL Project. All rights reserved.
60 *
61 * Redistribution and use in source and binary forms, with or without
62 * modification, are permitted provided that the following conditions
63 * are met:
64 *
65 * 1. Redistributions of source code must retain the above copyright
66 * notice, this list of conditions and the following disclaimer.
67 *
68 * 2. Redistributions in binary form must reproduce the above copyright
69 * notice, this list of conditions and the following disclaimer in
70 * the documentation and/or other materials provided with the
71 * distribution.
72 *
73 * 3. All advertising materials mentioning features or use of this
74 * software must display the following acknowledgment:
75 * "This product includes software developed by the OpenSSL Project
76 * for use in the OpenSSL Toolkit. (http://www.openssl.org/)"
77 *
78 * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
79 * endorse or promote products derived from this software without
80 * prior written permission. For written permission, please contact
81 * openssl-core@openssl.org.
82 *
83 * 5. Products derived from this software may not be called "OpenSSL"
84 * nor may "OpenSSL" appear in their names without prior written
85 * permission of the OpenSSL Project.
86 *
87 * 6. Redistributions of any form whatsoever must retain the following
88 * acknowledgment:
89 * "This product includes software developed by the OpenSSL Project
90 * for use in the OpenSSL Toolkit (http://www.openssl.org/)"
91 *
92 * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
93 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
94 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
95 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR
96 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
97 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
98 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
99 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
100 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
101 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
102 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
103 * OF THE POSSIBILITY OF SUCH DAMAGE.
104 * ====================================================================
105 *
106 * This product includes cryptographic software written by Eric Young
107 * (eay@cryptsoft.com). This product includes software written by Tim
108 * Hudson (tjh@cryptsoft.com).
109 *
110 */
111
112#include "cryptlib.h"
113#include <openssl/rand.h>
114#include "rand_lcl.h"
115
116#if defined (OPENSSL_SYS_NETWARE)
117
118#if defined(NETWARE_LIBC)
119#include <nks/thread.h>
120#else
121#include <nwthread.h>
122#endif
123
124extern int GetProcessSwitchCount(void);
125#if !defined(NETWARE_LIBC) || (CURRENT_NDK_THRESHOLD < 509220000)
126extern void *RunningProcess; /* declare here same as found in newer NDKs */
127extern unsigned long GetSuperHighResolutionTimer(void);
128#endif
129
130 /* the FAQ indicates we need to provide at least 20 bytes (160 bits) of seed
131 */
132int RAND_poll(void)
133{
134 unsigned long l;
135 unsigned long tsc;
136 int i;
137
138 /* There are several options to gather miscellaneous data
139 * but for now we will loop checking the time stamp counter (rdtsc) and
140 * the SuperHighResolutionTimer. Each iteration will collect 8 bytes
141 * of data but it is treated as only 1 byte of entropy. The call to
142 * ThreadSwitchWithDelay() will introduce additional variability into
143 * the data returned by rdtsc.
144 *
145 * Applications can agument the seed material by adding additional
146 * stuff with RAND_add() and should probably do so.
147 */
148 l = GetProcessSwitchCount();
149 RAND_add(&l,sizeof(l),1);
150
151 /* need to cast the void* to unsigned long here */
152 l = (unsigned long)RunningProcess;
153 RAND_add(&l,sizeof(l),1);
154
155 for( i=2; i<ENTROPY_NEEDED; i++)
156 {
157#ifdef __MWERKS__
158 asm
159 {
160 rdtsc
161 mov tsc, eax
162 }
163#elif defined(__GNUC__) && __GNUC__>=2 && !defined(OPENSSL_NO_ASM) && !defined(OPENSSL_NO_INLINE_ASM)
164 asm volatile("rdtsc":"=a"(tsc)::"edx");
165#endif
166
167 RAND_add(&tsc, sizeof(tsc), 1);
168
169 l = GetSuperHighResolutionTimer();
170 RAND_add(&l, sizeof(l), 0);
171
172# if defined(NETWARE_LIBC)
173 NXThreadYield();
174# else /* NETWARE_CLIB */
175 ThreadSwitchWithDelay();
176# endif
177 }
178
179 return 1;
180}
181
182#endif
183
diff --git a/src/lib/libcrypto/rand/rand_unix.c b/src/lib/libcrypto/rand/rand_unix.c
index e3a65571c8..3316388443 100644
--- a/src/lib/libcrypto/rand/rand_unix.c
+++ b/src/lib/libcrypto/rand/rand_unix.c
@@ -219,16 +219,10 @@ int RAND_poll(void)
219#elif defined __OpenBSD__ 219#elif defined __OpenBSD__
220int RAND_poll(void) 220int RAND_poll(void)
221{ 221{
222 u_int32_t rnd = 0, i;
223 unsigned char buf[ENTROPY_NEEDED]; 222 unsigned char buf[ENTROPY_NEEDED];
224 223
225 for (i = 0; i < sizeof(buf); i++) { 224 arc4random_buf(buf, sizeof(buf));
226 if (i % 4 == 0) 225 RAND_add(buf, sizeof(buf), sizeof(buf));
227 rnd = arc4random();
228 buf[i] = rnd;
229 rnd >>= 8;
230 }
231 RAND_add(buf, sizeof(buf), ENTROPY_NEEDED);
232 memset(buf, 0, sizeof(buf)); 226 memset(buf, 0, sizeof(buf));
233 227
234 return 1; 228 return 1;
diff --git a/src/lib/libcrypto/rand/rand_win.c b/src/lib/libcrypto/rand/rand_win.c
index 34ffcd23f9..5d134e186b 100644
--- a/src/lib/libcrypto/rand/rand_win.c
+++ b/src/lib/libcrypto/rand/rand_win.c
@@ -750,7 +750,7 @@ static void readscreen(void)
750 int y; /* y-coordinate of screen lines to grab */ 750 int y; /* y-coordinate of screen lines to grab */
751 int n = 16; /* number of screen lines to grab at a time */ 751 int n = 16; /* number of screen lines to grab at a time */
752 752
753 if (check_winnt() && OPENSSL_isservice()>0) 753 if (GetVersion() < 0x80000000 && OPENSSL_isservice()>0)
754 return; 754 return;
755 755
756 /* Create a screen DC and a memory DC compatible to screen DC */ 756 /* Create a screen DC and a memory DC compatible to screen DC */
diff --git a/src/lib/libcrypto/rand/randfile.c b/src/lib/libcrypto/rand/randfile.c
new file mode 100644
index 0000000000..030e07f418
--- /dev/null
+++ b/src/lib/libcrypto/rand/randfile.c
@@ -0,0 +1,326 @@
1/* crypto/rand/randfile.c */
2/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
3 * All rights reserved.
4 *
5 * This package is an SSL implementation written
6 * by Eric Young (eay@cryptsoft.com).
7 * The implementation was written so as to conform with Netscapes SSL.
8 *
9 * This library is free for commercial and non-commercial use as long as
10 * the following conditions are aheared to. The following conditions
11 * apply to all code found in this distribution, be it the RC4, RSA,
12 * lhash, DES, etc., code; not just the SSL code. The SSL documentation
13 * included with this distribution is covered by the same copyright terms
14 * except that the holder is Tim Hudson (tjh@cryptsoft.com).
15 *
16 * Copyright remains Eric Young's, and as such any Copyright notices in
17 * the code are not to be removed.
18 * If this package is used in a product, Eric Young should be given attribution
19 * as the author of the parts of the library used.
20 * This can be in the form of a textual message at program startup or
21 * in documentation (online or textual) provided with the package.
22 *
23 * Redistribution and use in source and binary forms, with or without
24 * modification, are permitted provided that the following conditions
25 * are met:
26 * 1. Redistributions of source code must retain the copyright
27 * notice, this list of conditions and the following disclaimer.
28 * 2. Redistributions in binary form must reproduce the above copyright
29 * notice, this list of conditions and the following disclaimer in the
30 * documentation and/or other materials provided with the distribution.
31 * 3. All advertising materials mentioning features or use of this software
32 * must display the following acknowledgement:
33 * "This product includes cryptographic software written by
34 * Eric Young (eay@cryptsoft.com)"
35 * The word 'cryptographic' can be left out if the rouines from the library
36 * being used are not cryptographic related :-).
37 * 4. If you include any Windows specific code (or a derivative thereof) from
38 * the apps directory (application code) you must include an acknowledgement:
39 * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
40 *
41 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
42 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
43 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
44 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
45 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
46 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
47 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
48 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
49 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
50 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
51 * SUCH DAMAGE.
52 *
53 * The licence and distribution terms for any publically available version or
54 * derivative of this code cannot be changed. i.e. this code cannot simply be
55 * copied and put under another distribution licence
56 * [including the GNU Public Licence.]
57 */
58
59/* We need to define this to get macros like S_IFBLK and S_IFCHR */
60#define _XOPEN_SOURCE 500
61
62#include <errno.h>
63#include <stdio.h>
64#include <stdlib.h>
65#include <string.h>
66
67#include "e_os.h"
68#include <openssl/crypto.h>
69#include <openssl/rand.h>
70#include <openssl/buffer.h>
71
72#ifdef OPENSSL_SYS_VMS
73#include <unixio.h>
74#endif
75#ifndef NO_SYS_TYPES_H
76# include <sys/types.h>
77#endif
78#ifndef OPENSSL_NO_POSIX_IO
79# include <sys/stat.h>
80#endif
81
82#ifdef _WIN32
83#define stat _stat
84#define chmod _chmod
85#define open _open
86#define fdopen _fdopen
87#endif
88
89#undef BUFSIZE
90#define BUFSIZE 1024
91#define RAND_DATA 1024
92
93#ifdef OPENSSL_SYS_VMS
94/* This declaration is a nasty hack to get around vms' extension to fopen
95 * for passing in sharing options being disabled by our /STANDARD=ANSI89 */
96static FILE *(*const vms_fopen)(const char *, const char *, ...) =
97 (FILE *(*)(const char *, const char *, ...))fopen;
98#define VMS_OPEN_ATTRS "shr=get,put,upd,del","ctx=bin,stm","rfm=stm","rat=none","mrs=0"
99#endif
100
101/* #define RFILE ".rnd" - defined in ../../e_os.h */
102
103/* Note that these functions are intended for seed files only.
104 * Entropy devices and EGD sockets are handled in rand_unix.c */
105
106int RAND_load_file(const char *file, long bytes)
107 {
108 /* If bytes >= 0, read up to 'bytes' bytes.
109 * if bytes == -1, read complete file. */
110
111 MS_STATIC unsigned char buf[BUFSIZE];
112#ifndef OPENSSL_NO_POSIX_IO
113 struct stat sb;
114#endif
115 int i,ret=0,n;
116 FILE *in;
117
118 if (file == NULL) return(0);
119
120#ifndef OPENSSL_NO_POSIX_IO
121#ifdef PURIFY
122 /* struct stat can have padding and unused fields that may not be
123 * initialized in the call to stat(). We need to clear the entire
124 * structure before calling RAND_add() to avoid complaints from
125 * applications such as Valgrind.
126 */
127 memset(&sb, 0, sizeof(sb));
128#endif
129 if (stat(file,&sb) < 0) return(0);
130 RAND_add(&sb,sizeof(sb),0.0);
131#endif
132 if (bytes == 0) return(ret);
133
134#ifdef OPENSSL_SYS_VMS
135 in=vms_fopen(file,"rb",VMS_OPEN_ATTRS);
136#else
137 in=fopen(file,"rb");
138#endif
139 if (in == NULL) goto err;
140#if defined(S_IFBLK) && defined(S_IFCHR) && !defined(OPENSSL_NO_POSIX_IO)
141 if (sb.st_mode & (S_IFBLK | S_IFCHR)) {
142 /* this file is a device. we don't want read an infinite number
143 * of bytes from a random device, nor do we want to use buffered
144 * I/O because we will waste system entropy.
145 */
146 bytes = (bytes == -1) ? 2048 : bytes; /* ok, is 2048 enough? */
147#ifndef OPENSSL_NO_SETVBUF_IONBF
148 setvbuf(in, NULL, _IONBF, 0); /* don't do buffered reads */
149#endif /* ndef OPENSSL_NO_SETVBUF_IONBF */
150 }
151#endif
152 for (;;)
153 {
154 if (bytes > 0)
155 n = (bytes < BUFSIZE)?(int)bytes:BUFSIZE;
156 else
157 n = BUFSIZE;
158 i=fread(buf,1,n,in);
159 if (i <= 0) break;
160#ifdef PURIFY
161 RAND_add(buf,i,(double)i);
162#else
163 /* even if n != i, use the full array */
164 RAND_add(buf,n,(double)i);
165#endif
166 ret+=i;
167 if (bytes > 0)
168 {
169 bytes-=n;
170 if (bytes <= 0) break;
171 }
172 }
173 fclose(in);
174 OPENSSL_cleanse(buf,BUFSIZE);
175err:
176 return(ret);
177 }
178
179int RAND_write_file(const char *file)
180 {
181 unsigned char buf[BUFSIZE];
182 int i,ret=0,rand_err=0;
183 FILE *out = NULL;
184 int n;
185#ifndef OPENSSL_NO_POSIX_IO
186 struct stat sb;
187
188 i=stat(file,&sb);
189 if (i != -1) {
190#if defined(S_ISBLK) && defined(S_ISCHR)
191 if (S_ISBLK(sb.st_mode) || S_ISCHR(sb.st_mode)) {
192 /* this file is a device. we don't write back to it.
193 * we "succeed" on the assumption this is some sort
194 * of random device. Otherwise attempting to write to
195 * and chmod the device causes problems.
196 */
197 return(1);
198 }
199#endif
200 }
201#endif
202
203#if defined(O_CREAT) && !defined(OPENSSL_NO_POSIX_IO) && !defined(OPENSSL_SYS_VMS)
204 {
205#ifndef O_BINARY
206#define O_BINARY 0
207#endif
208 /* chmod(..., 0600) is too late to protect the file,
209 * permissions should be restrictive from the start */
210 int fd = open(file, O_WRONLY|O_CREAT|O_BINARY, 0600);
211 if (fd != -1)
212 out = fdopen(fd, "wb");
213 }
214#endif
215
216#ifdef OPENSSL_SYS_VMS
217 /* VMS NOTE: Prior versions of this routine created a _new_
218 * version of the rand file for each call into this routine, then
219 * deleted all existing versions named ;-1, and finally renamed
220 * the current version as ';1'. Under concurrent usage, this
221 * resulted in an RMS race condition in rename() which could
222 * orphan files (see vms message help for RMS$_REENT). With the
223 * fopen() calls below, openssl/VMS now shares the top-level
224 * version of the rand file. Note that there may still be
225 * conditions where the top-level rand file is locked. If so, this
226 * code will then create a new version of the rand file. Without
227 * the delete and rename code, this can result in ascending file
228 * versions that stop at version 32767, and this routine will then
229 * return an error. The remedy for this is to recode the calling
230 * application to avoid concurrent use of the rand file, or
231 * synchronize usage at the application level. Also consider
232 * whether or not you NEED a persistent rand file in a concurrent
233 * use situation.
234 */
235
236 out = vms_fopen(file,"rb+",VMS_OPEN_ATTRS);
237 if (out == NULL)
238 out = vms_fopen(file,"wb",VMS_OPEN_ATTRS);
239#else
240 if (out == NULL)
241 out = fopen(file,"wb");
242#endif
243 if (out == NULL) goto err;
244
245#ifndef NO_CHMOD
246 chmod(file,0600);
247#endif
248 n=RAND_DATA;
249 for (;;)
250 {
251 i=(n > BUFSIZE)?BUFSIZE:n;
252 n-=BUFSIZE;
253 if (RAND_bytes(buf,i) <= 0)
254 rand_err=1;
255 i=fwrite(buf,1,i,out);
256 if (i <= 0)
257 {
258 ret=0;
259 break;
260 }
261 ret+=i;
262 if (n <= 0) break;
263 }
264
265 fclose(out);
266 OPENSSL_cleanse(buf,BUFSIZE);
267err:
268 return (rand_err ? -1 : ret);
269 }
270
271const char *RAND_file_name(char *buf, size_t size)
272 {
273 char *s=NULL;
274#ifdef __OpenBSD__
275 struct stat sb;
276#endif
277
278 if (OPENSSL_issetugid() == 0)
279 s=getenv("RANDFILE");
280 if (s != NULL && *s && strlen(s) + 1 < size)
281 {
282 if (BUF_strlcpy(buf,s,size) >= size)
283 return NULL;
284 }
285 else
286 {
287 if (OPENSSL_issetugid() == 0)
288 s=getenv("HOME");
289#ifdef DEFAULT_HOME
290 if (s == NULL)
291 {
292 s = DEFAULT_HOME;
293 }
294#endif
295 if (s && *s && strlen(s)+strlen(RFILE)+2 < size)
296 {
297 BUF_strlcpy(buf,s,size);
298#ifndef OPENSSL_SYS_VMS
299 BUF_strlcat(buf,"/",size);
300#endif
301 BUF_strlcat(buf,RFILE,size);
302 }
303 else
304 buf[0] = '\0'; /* no file name */
305 }
306
307#ifdef __OpenBSD__
308 /* given that all random loads just fail if the file can't be
309 * seen on a stat, we stat the file we're returning, if it
310 * fails, use /dev/arandom instead. this allows the user to
311 * use their own source for good random data, but defaults
312 * to something hopefully decent if that isn't available.
313 */
314
315 if (!buf[0])
316 if (BUF_strlcpy(buf,"/dev/arandom",size) >= size) {
317 return(NULL);
318 }
319 if (stat(buf,&sb) == -1)
320 if (BUF_strlcpy(buf,"/dev/arandom",size) >= size) {
321 return(NULL);
322 }
323
324#endif
325 return(buf);
326 }
generated by cgit v1.2.3-55-g6feb (git 2.39.1) at 2026-01-04 13:51:36 +0000