xref: /minix3/crypto/external/bsd/openssl/dist/apps/app_rand.c (revision 0a6a1f1d05b60e214de2f05a7310ddd1f0e590e7)
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