1ebfedea0SLionel Sambuc /* apps/app_rand.c */
2ebfedea0SLionel Sambuc /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
3ebfedea0SLionel Sambuc * All rights reserved.
4ebfedea0SLionel Sambuc *
5ebfedea0SLionel Sambuc * This package is an SSL implementation written
6ebfedea0SLionel Sambuc * by Eric Young (eay@cryptsoft.com).
7ebfedea0SLionel Sambuc * The implementation was written so as to conform with Netscapes SSL.
8ebfedea0SLionel Sambuc *
9ebfedea0SLionel Sambuc * This library is free for commercial and non-commercial use as long as
10ebfedea0SLionel Sambuc * the following conditions are aheared to. The following conditions
11ebfedea0SLionel Sambuc * apply to all code found in this distribution, be it the RC4, RSA,
12ebfedea0SLionel Sambuc * lhash, DES, etc., code; not just the SSL code. The SSL documentation
13ebfedea0SLionel Sambuc * included with this distribution is covered by the same copyright terms
14ebfedea0SLionel Sambuc * except that the holder is Tim Hudson (tjh@cryptsoft.com).
15ebfedea0SLionel Sambuc *
16ebfedea0SLionel Sambuc * Copyright remains Eric Young's, and as such any Copyright notices in
17ebfedea0SLionel Sambuc * the code are not to be removed.
18ebfedea0SLionel Sambuc * If this package is used in a product, Eric Young should be given attribution
19ebfedea0SLionel Sambuc * as the author of the parts of the library used.
20ebfedea0SLionel Sambuc * This can be in the form of a textual message at program startup or
21ebfedea0SLionel Sambuc * in documentation (online or textual) provided with the package.
22ebfedea0SLionel Sambuc *
23ebfedea0SLionel Sambuc * Redistribution and use in source and binary forms, with or without
24ebfedea0SLionel Sambuc * modification, are permitted provided that the following conditions
25ebfedea0SLionel Sambuc * are met:
26ebfedea0SLionel Sambuc * 1. Redistributions of source code must retain the copyright
27ebfedea0SLionel Sambuc * notice, this list of conditions and the following disclaimer.
28ebfedea0SLionel Sambuc * 2. Redistributions in binary form must reproduce the above copyright
29ebfedea0SLionel Sambuc * notice, this list of conditions and the following disclaimer in the
30ebfedea0SLionel Sambuc * documentation and/or other materials provided with the distribution.
31ebfedea0SLionel Sambuc * 3. All advertising materials mentioning features or use of this software
32ebfedea0SLionel Sambuc * must display the following acknowledgement:
33ebfedea0SLionel Sambuc * "This product includes cryptographic software written by
34ebfedea0SLionel Sambuc * Eric Young (eay@cryptsoft.com)"
35ebfedea0SLionel Sambuc * The word 'cryptographic' can be left out if the rouines from the library
36ebfedea0SLionel Sambuc * being used are not cryptographic related :-).
37ebfedea0SLionel Sambuc * 4. If you include any Windows specific code (or a derivative thereof) from
38ebfedea0SLionel Sambuc * the apps directory (application code) you must include an acknowledgement:
39ebfedea0SLionel Sambuc * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
40ebfedea0SLionel Sambuc *
41ebfedea0SLionel Sambuc * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
42ebfedea0SLionel Sambuc * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
43ebfedea0SLionel Sambuc * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
44ebfedea0SLionel Sambuc * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
45ebfedea0SLionel Sambuc * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
46ebfedea0SLionel Sambuc * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
47ebfedea0SLionel Sambuc * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
48ebfedea0SLionel Sambuc * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
49ebfedea0SLionel Sambuc * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
50ebfedea0SLionel Sambuc * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
51ebfedea0SLionel Sambuc * SUCH DAMAGE.
52ebfedea0SLionel Sambuc *
53ebfedea0SLionel Sambuc * The licence and distribution terms for any publically available version or
54ebfedea0SLionel Sambuc * derivative of this code cannot be changed. i.e. this code cannot simply be
55ebfedea0SLionel Sambuc * copied and put under another distribution licence
56ebfedea0SLionel Sambuc * [including the GNU Public Licence.]
57ebfedea0SLionel Sambuc */
58ebfedea0SLionel Sambuc /* ====================================================================
59ebfedea0SLionel Sambuc * Copyright (c) 1998-2000 The OpenSSL Project. All rights reserved.
60ebfedea0SLionel Sambuc *
61ebfedea0SLionel Sambuc * Redistribution and use in source and binary forms, with or without
62ebfedea0SLionel Sambuc * modification, are permitted provided that the following conditions
63ebfedea0SLionel Sambuc * are met:
64ebfedea0SLionel Sambuc *
65ebfedea0SLionel Sambuc * 1. Redistributions of source code must retain the above copyright
66ebfedea0SLionel Sambuc * notice, this list of conditions and the following disclaimer.
67ebfedea0SLionel Sambuc *
68ebfedea0SLionel Sambuc * 2. Redistributions in binary form must reproduce the above copyright
69ebfedea0SLionel Sambuc * notice, this list of conditions and the following disclaimer in
70ebfedea0SLionel Sambuc * the documentation and/or other materials provided with the
71ebfedea0SLionel Sambuc * distribution.
72ebfedea0SLionel Sambuc *
73ebfedea0SLionel Sambuc * 3. All advertising materials mentioning features or use of this
74ebfedea0SLionel Sambuc * software must display the following acknowledgment:
75ebfedea0SLionel Sambuc * "This product includes software developed by the OpenSSL Project
76ebfedea0SLionel Sambuc * for use in the OpenSSL Toolkit. (http://www.openssl.org/)"
77ebfedea0SLionel Sambuc *
78ebfedea0SLionel Sambuc * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
79ebfedea0SLionel Sambuc * endorse or promote products derived from this software without
80ebfedea0SLionel Sambuc * prior written permission. For written permission, please contact
81ebfedea0SLionel Sambuc * openssl-core@openssl.org.
82ebfedea0SLionel Sambuc *
83ebfedea0SLionel Sambuc * 5. Products derived from this software may not be called "OpenSSL"
84ebfedea0SLionel Sambuc * nor may "OpenSSL" appear in their names without prior written
85ebfedea0SLionel Sambuc * permission of the OpenSSL Project.
86ebfedea0SLionel Sambuc *
87ebfedea0SLionel Sambuc * 6. Redistributions of any form whatsoever must retain the following
88ebfedea0SLionel Sambuc * acknowledgment:
89ebfedea0SLionel Sambuc * "This product includes software developed by the OpenSSL Project
90ebfedea0SLionel Sambuc * for use in the OpenSSL Toolkit (http://www.openssl.org/)"
91ebfedea0SLionel Sambuc *
92ebfedea0SLionel Sambuc * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
93ebfedea0SLionel Sambuc * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
94ebfedea0SLionel Sambuc * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
95ebfedea0SLionel Sambuc * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR
96ebfedea0SLionel Sambuc * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
97ebfedea0SLionel Sambuc * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
98ebfedea0SLionel Sambuc * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
99ebfedea0SLionel Sambuc * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
100ebfedea0SLionel Sambuc * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
101ebfedea0SLionel Sambuc * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
102ebfedea0SLionel Sambuc * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
103ebfedea0SLionel Sambuc * OF THE POSSIBILITY OF SUCH DAMAGE.
104ebfedea0SLionel Sambuc * ====================================================================
105ebfedea0SLionel Sambuc *
106ebfedea0SLionel Sambuc * This product includes cryptographic software written by Eric Young
107ebfedea0SLionel Sambuc * (eay@cryptsoft.com). This product includes software written by Tim
108ebfedea0SLionel Sambuc * Hudson (tjh@cryptsoft.com).
109ebfedea0SLionel Sambuc *
110ebfedea0SLionel Sambuc */
111ebfedea0SLionel Sambuc
112ebfedea0SLionel Sambuc #define NON_MAIN
113ebfedea0SLionel Sambuc #include "apps.h"
114ebfedea0SLionel Sambuc #undef NON_MAIN
115ebfedea0SLionel Sambuc #include <openssl/bio.h>
116ebfedea0SLionel Sambuc #include <openssl/rand.h>
117ebfedea0SLionel Sambuc
118ebfedea0SLionel Sambuc static int seeded = 0;
119ebfedea0SLionel Sambuc static int egdsocket = 0;
120ebfedea0SLionel Sambuc
app_RAND_load_file(const char * file,BIO * bio_e,int dont_warn)121ebfedea0SLionel Sambuc int app_RAND_load_file(const char *file, BIO *bio_e, int dont_warn)
122ebfedea0SLionel Sambuc {
123ebfedea0SLionel Sambuc int consider_randfile = (file == NULL);
124ebfedea0SLionel Sambuc char buffer[200];
125ebfedea0SLionel Sambuc
126ebfedea0SLionel Sambuc #ifdef OPENSSL_SYS_WINDOWS
127ebfedea0SLionel Sambuc BIO_printf(bio_e, "Loading 'screen' into random state -");
128ebfedea0SLionel Sambuc BIO_flush(bio_e);
129ebfedea0SLionel Sambuc RAND_screen();
130ebfedea0SLionel Sambuc BIO_printf(bio_e, " done\n");
131ebfedea0SLionel Sambuc #endif
132ebfedea0SLionel Sambuc
133ebfedea0SLionel Sambuc if (file == NULL)
134ebfedea0SLionel Sambuc file = RAND_file_name(buffer, sizeof buffer);
135*0a6a1f1dSLionel Sambuc else if (RAND_egd(file) > 0) {
136*0a6a1f1dSLionel Sambuc /*
137*0a6a1f1dSLionel Sambuc * we try if the given filename is an EGD socket. if it is, we don't
138*0a6a1f1dSLionel Sambuc * write anything back to the file.
139*0a6a1f1dSLionel Sambuc */
140ebfedea0SLionel Sambuc egdsocket = 1;
141ebfedea0SLionel Sambuc return 1;
142ebfedea0SLionel Sambuc }
143*0a6a1f1dSLionel Sambuc if (file == NULL || !RAND_load_file(file, -1)) {
144*0a6a1f1dSLionel Sambuc if (RAND_status() == 0) {
145*0a6a1f1dSLionel Sambuc if (!dont_warn) {
146ebfedea0SLionel Sambuc BIO_printf(bio_e, "unable to load 'random state'\n");
147*0a6a1f1dSLionel Sambuc BIO_printf(bio_e,
148*0a6a1f1dSLionel Sambuc "This means that the random number generator has not been seeded\n");
149ebfedea0SLionel Sambuc BIO_printf(bio_e, "with much random data.\n");
150*0a6a1f1dSLionel Sambuc if (consider_randfile) { /* explanation does not apply when a
151*0a6a1f1dSLionel Sambuc * file is explicitly named */
152*0a6a1f1dSLionel Sambuc BIO_printf(bio_e,
153*0a6a1f1dSLionel Sambuc "Consider setting the RANDFILE environment variable to point at a file that\n");
154*0a6a1f1dSLionel Sambuc BIO_printf(bio_e,
155*0a6a1f1dSLionel Sambuc "'random' data can be kept in (the file will be overwritten).\n");
156ebfedea0SLionel Sambuc }
157ebfedea0SLionel Sambuc }
158ebfedea0SLionel Sambuc return 0;
159ebfedea0SLionel Sambuc }
160ebfedea0SLionel Sambuc }
161ebfedea0SLionel Sambuc seeded = 1;
162ebfedea0SLionel Sambuc return 1;
163ebfedea0SLionel Sambuc }
164ebfedea0SLionel Sambuc
app_RAND_load_files(char * name)165ebfedea0SLionel Sambuc long app_RAND_load_files(char *name)
166ebfedea0SLionel Sambuc {
167ebfedea0SLionel Sambuc char *p, *n;
168ebfedea0SLionel Sambuc int last;
169ebfedea0SLionel Sambuc long tot = 0;
170ebfedea0SLionel Sambuc int egd;
171ebfedea0SLionel Sambuc
172*0a6a1f1dSLionel Sambuc for (;;) {
173ebfedea0SLionel Sambuc last = 0;
174ebfedea0SLionel Sambuc for (p = name; ((*p != '\0') && (*p != LIST_SEPARATOR_CHAR)); p++) ;
175*0a6a1f1dSLionel Sambuc if (*p == '\0')
176*0a6a1f1dSLionel Sambuc last = 1;
177ebfedea0SLionel Sambuc *p = '\0';
178ebfedea0SLionel Sambuc n = name;
179ebfedea0SLionel Sambuc name = p + 1;
180*0a6a1f1dSLionel Sambuc if (*n == '\0')
181*0a6a1f1dSLionel Sambuc break;
182ebfedea0SLionel Sambuc
183ebfedea0SLionel Sambuc egd = RAND_egd(n);
184ebfedea0SLionel Sambuc if (egd > 0)
185ebfedea0SLionel Sambuc tot += egd;
186ebfedea0SLionel Sambuc else
187ebfedea0SLionel Sambuc tot += RAND_load_file(n, -1);
188*0a6a1f1dSLionel Sambuc if (last)
189*0a6a1f1dSLionel Sambuc break;
190ebfedea0SLionel Sambuc }
191ebfedea0SLionel Sambuc if (tot > 512)
192ebfedea0SLionel Sambuc app_RAND_allow_write_file();
193ebfedea0SLionel Sambuc return (tot);
194ebfedea0SLionel Sambuc }
195ebfedea0SLionel Sambuc
app_RAND_write_file(const char * file,BIO * bio_e)196ebfedea0SLionel Sambuc int app_RAND_write_file(const char *file, BIO *bio_e)
197ebfedea0SLionel Sambuc {
198ebfedea0SLionel Sambuc char buffer[200];
199ebfedea0SLionel Sambuc
200ebfedea0SLionel Sambuc if (egdsocket || !seeded)
201*0a6a1f1dSLionel Sambuc /*
202*0a6a1f1dSLionel Sambuc * If we did not manage to read the seed file, we should not write a
203*0a6a1f1dSLionel Sambuc * low-entropy seed file back -- it would suppress a crucial warning
204*0a6a1f1dSLionel Sambuc * the next time we want to use it.
205*0a6a1f1dSLionel Sambuc */
206ebfedea0SLionel Sambuc return 0;
207ebfedea0SLionel Sambuc
208ebfedea0SLionel Sambuc if (file == NULL)
209ebfedea0SLionel Sambuc file = RAND_file_name(buffer, sizeof buffer);
210*0a6a1f1dSLionel Sambuc if (file == NULL || !RAND_write_file(file)) {
211ebfedea0SLionel Sambuc BIO_printf(bio_e, "unable to write 'random state'\n");
212ebfedea0SLionel Sambuc return 0;
213ebfedea0SLionel Sambuc }
214ebfedea0SLionel Sambuc return 1;
215ebfedea0SLionel Sambuc }
216ebfedea0SLionel Sambuc
app_RAND_allow_write_file(void)217ebfedea0SLionel Sambuc void app_RAND_allow_write_file(void)
218ebfedea0SLionel Sambuc {
219ebfedea0SLionel Sambuc seeded = 1;
220ebfedea0SLionel Sambuc }
221