[thirdparty/openssl.git] / crypto / rand / rand_unix.c

/* crypto/rand/rand_unix.c */
/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
 * All rights reserved.
 *
 * This package is an SSL implementation written
 * by Eric Young (eay@cryptsoft.com).
 * The implementation was written so as to conform with Netscapes SSL.
 * 
 * This library is free for commercial and non-commercial use as long as
 * the following conditions are aheared to.  The following conditions
 * apply to all code found in this distribution, be it the RC4, RSA,
 * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
 * included with this distribution is covered by the same copyright terms
 * except that the holder is Tim Hudson (tjh@cryptsoft.com).
 * 
 * Copyright remains Eric Young's, and as such any Copyright notices in
 * the code are not to be removed.
 * If this package is used in a product, Eric Young should be given attribution
 * as the author of the parts of the library used.
 * This can be in the form of a textual message at program startup or
 * in documentation (online or textual) provided with the package.
 * 
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *    "This product includes cryptographic software written by
 *     Eric Young (eay@cryptsoft.com)"
 *    The word 'cryptographic' can be left out if the rouines from the library
 *    being used are not cryptographic related :-).
 * 4. If you include any Windows specific code (or a derivative thereof) from 
 *    the apps directory (application code) you must include an acknowledgement:
 *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
 * 
 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 * 
 * The licence and distribution terms for any publically available version or
 * derivative of this code cannot be changed.  i.e. this code cannot simply be
 * copied and put under another distribution licence
 * [including the GNU Public Licence.]
 */
/* ====================================================================
 * Copyright (c) 1998-2006 The OpenSSL Project.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer. 
 *
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in
 *    the documentation and/or other materials provided with the
 *    distribution.
 *
 * 3. All advertising materials mentioning features or use of this
 *    software must display the following acknowledgment:
 *    "This product includes software developed by the OpenSSL Project
 *    for use in the OpenSSL Toolkit. (http://www.openssl.org/)"
 *
 * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
 *    endorse or promote products derived from this software without
 *    prior written permission. For written permission, please contact
 *    openssl-core@openssl.org.
 *
 * 5. Products derived from this software may not be called "OpenSSL"
 *    nor may "OpenSSL" appear in their names without prior written
 *    permission of the OpenSSL Project.
 *
 * 6. Redistributions of any form whatsoever must retain the following
 *    acknowledgment:
 *    "This product includes software developed by the OpenSSL Project
 *    for use in the OpenSSL Toolkit (http://www.openssl.org/)"
 *
 * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
 * OF THE POSSIBILITY OF SUCH DAMAGE.
 * ====================================================================
 *
 * This product includes cryptographic software written by Eric Young
 * (eay@cryptsoft.com).  This product includes software written by Tim
 * Hudson (tjh@cryptsoft.com).
 *
 */
#include <stdio.h>

#define USE_SOCKETS
#include "e_os.h"
#include "cryptlib.h"
#include <openssl/rand.h>
#include "rand_lcl.h"

#if !(defined(OPENSSL_SYS_WINDOWS) || defined(OPENSSL_SYS_WIN32) || defined(OPENSSL_SYS_VMS) || defined(OPENSSL_SYS_OS2) || defined(OPENSSL_SYS_VXWORKS) || defined(OPENSSL_SYS_NETWARE))

#include <sys/types.h>
#include <sys/time.h>
#include <sys/times.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <unistd.h>
#include <time.h>
#if defined(OPENSSL_SYS_LINUX) /* should actually be available virtually everywhere */
# include <poll.h>
#endif
#include <limits.h>
#ifndef FD_SETSIZE
# define FD_SETSIZE (8*sizeof(fd_set))
#endif

#ifdef __OpenBSD__
int RAND_poll(void)
{
	u_int32_t rnd = 0, i;
	unsigned char buf[ENTROPY_NEEDED];

	for (i = 0; i < sizeof(buf); i++) {
		if (i % 4 == 0)
			rnd = arc4random();
		buf[i] = rnd;
		rnd >>= 8;
	}
	RAND_add(buf, sizeof(buf), ENTROPY_NEEDED);
	memset(buf, 0, sizeof(buf));

	return 1;
}
#else /* !defined(__OpenBSD__) */
int RAND_poll(void)
{
	unsigned long l;
	pid_t curr_pid = getpid();
#if defined(DEVRANDOM) || defined(DEVRANDOM_EGD)
	unsigned char tmpbuf[ENTROPY_NEEDED];
	int n = 0;
#endif
#ifdef DEVRANDOM
	static const char *randomfiles[] = { DEVRANDOM };
	struct stat randomstats[sizeof(randomfiles)/sizeof(randomfiles[0])];
	int fd;
	unsigned int i;
#endif
#ifdef DEVRANDOM_EGD
	static const char *egdsockets[] = { DEVRANDOM_EGD, NULL };
	const char **egdsocket = NULL;
#endif

#ifdef DEVRANDOM
	memset(randomstats,0,sizeof(randomstats));
	/* Use a random entropy pool device. Linux, FreeBSD and OpenBSD
	 * have this. Use /dev/urandom if you can as /dev/random may block
	 * if it runs out of random entries.  */

	for (i = 0; (i < sizeof(randomfiles)/sizeof(randomfiles[0])) &&
			(n < ENTROPY_NEEDED); i++)
		{
		if ((fd = open(randomfiles[i], O_RDONLY
#ifdef O_NONBLOCK
			|O_NONBLOCK
#endif
#ifdef O_BINARY
			|O_BINARY
#endif
#ifdef O_NOCTTY /* If it happens to be a TTY (god forbid), do not make it
		   our controlling tty */
			|O_NOCTTY
#endif
			)) >= 0)
			{
			int usec = 10*1000; /* spend 10ms on each file */
			int r;
			unsigned int j;
			struct stat *st=&randomstats[i];

			/* Avoid using same input... Used to be O_NOFOLLOW
			 * above, but it's not universally appropriate... */
			if (fstat(fd,st) != 0)	{ close(fd); continue; }
			for (j=0;j<i;j++)
				{
				if (randomstats[j].st_ino==st->st_ino &&
				    randomstats[j].st_dev==st->st_dev)
					break;
				}
			if (j<i)		{ close(fd); continue; }

			do
				{
				int try_read = 0;

#if defined(OPENSSL_SYS_BEOS_R5)
				/* select() is broken in BeOS R5, so we simply
				 *  try to read something and snooze if we couldn't */
				try_read = 1;

#elif defined(OPENSSL_SYS_LINUX)
				/* use poll() */
				struct pollfd pset;
				
				pset.fd = fd;
				pset.events = POLLIN;
				pset.revents = 0;

				if (poll(&pset, 1, usec / 1000) < 0)
					usec = 0;
				else
					try_read = (pset.revents & POLLIN) != 0;

#else
				/* use select() */
				fd_set fset;
				struct timeval t;
				
				t.tv_sec = 0;
				t.tv_usec = usec;

				if (FD_SETSIZE > 0 && fd >= FD_SETSIZE)
					{
					/* can't use select, so just try to read once anyway */
					try_read = 1;
					}
				else
					{
					FD_ZERO(&fset);
					FD_SET(fd, &fset);
					
					if (select(fd+1,&fset,NULL,NULL,&t) >= 0)
						{
						usec = t.tv_usec;
						if (FD_ISSET(fd, &fset))
							try_read = 1;
						}
					else
						usec = 0;
					}
#endif
				
				if (try_read)
					{
					r = read(fd,(unsigned char *)tmpbuf+n, ENTROPY_NEEDED-n);
					if (r > 0)
						n += r;
#if defined(OPENSSL_SYS_BEOS_R5)
					if (r == 0)
						snooze(t.tv_usec);
#endif
					}
				else
					r = -1;
				
				/* Some Unixen will update t in select(), some
				   won't.  For those who won't, or if we
				   didn't use select() in the first place,
				   give up here, otherwise, we will do
				   this once again for the remaining
				   time. */
				if (usec == 10*1000)
					usec = 0;
				}
			while ((r > 0 ||
			       (errno == EINTR || errno == EAGAIN)) && usec != 0 && n < ENTROPY_NEEDED);

			close(fd);
			}
		}
#endif /* defined(DEVRANDOM) */

#ifdef DEVRANDOM_EGD
	/* Use an EGD socket to read entropy from an EGD or PRNGD entropy
	 * collecting daemon. */

	for (egdsocket = egdsockets; *egdsocket && n < ENTROPY_NEEDED; egdsocket++)
		{
		int r;

		r = RAND_query_egd_bytes(*egdsocket, (unsigned char *)tmpbuf+n,
					 ENTROPY_NEEDED-n);
		if (r > 0)
			n += r;
		}
#endif /* defined(DEVRANDOM_EGD) */

#if defined(DEVRANDOM) || defined(DEVRANDOM_EGD)
	if (n > 0)
		{
		RAND_add(tmpbuf,sizeof tmpbuf,(double)n);
		OPENSSL_cleanse(tmpbuf,n);
		}
#endif

	/* put in some default random data, we need more than just this */
	l=curr_pid;
	RAND_add(&l,sizeof(l),0.0);
	l=getuid();
	RAND_add(&l,sizeof(l),0.0);

	l=time(NULL);
	RAND_add(&l,sizeof(l),0.0);

#if defined(OPENSSL_SYS_BEOS)
	{
	system_info sysInfo;
	get_system_info(&sysInfo);
	RAND_add(&sysInfo,sizeof(sysInfo),0);
	}
#endif

#if defined(DEVRANDOM) || defined(DEVRANDOM_EGD)
	return 1;
#else
	return 0;
#endif
}

#endif /* defined(__OpenBSD__) */
#endif /* !(defined(OPENSSL_SYS_WINDOWS) || defined(OPENSSL_SYS_WIN32) || defined(OPENSSL_SYS_VMS) || defined(OPENSSL_SYS_OS2) || defined(OPENSSL_SYS_VXWORKS) || defined(OPENSSL_SYS_NETWARE)) */


#if defined(OPENSSL_SYS_VXWORKS)
int RAND_poll(void)
	{
	return 0;
	}
#endif
Commit	Line	Data
0c61e299 RL	1	/* crypto/rand/rand_unix.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	/* ====================================================================
e34aa5a3	59	* Copyright (c) 1998-2006 The OpenSSL Project. All rights reserved.
0c61e299 RL	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	*/
4d8743f4	111	#include <stdio.h>
0c61e299	112
a947f2d2	113	#define USE_SOCKETS
da0616cd	114	#include "e_os.h"
0c61e299 RL	115	#include "cryptlib.h"
	116	#include <openssl/rand.h>
	117	#include "rand_lcl.h"
	118
e34aa5a3	119	#if !(defined(OPENSSL_SYS_WINDOWS) \|\| defined(OPENSSL_SYS_WIN32) \|\| defined(OPENSSL_SYS_VMS) \|\| defined(OPENSSL_SYS_OS2) \|\| defined(OPENSSL_SYS_VXWORKS) \|\| defined(OPENSSL_SYS_NETWARE))
0c61e299 RL	120
	121	#include <sys/types.h>
	122	#include <sys/time.h>
	123	#include <sys/times.h>
108159ff	124	#include <sys/stat.h>
0c61e299 RL	125	#include <fcntl.h>
0c61e299 RL	126	#include <unistd.h>
4901b416	127	#include <time.h>
3df760b8 BM	128	#if defined(OPENSSL_SYS_LINUX) /* should actually be available virtually everywhere */
3df760b8 BM	129	# include <poll.h>
e34aa5a3 BM	130	#endif
	131	#include <limits.h>
	132	#ifndef FD_SETSIZE
	133	# define FD_SETSIZE (8*sizeof(fd_set))
27a3d9f9 RL	134	#endif
27a3d9f9 RL	135
de02ec27 RL	136	#ifdef __OpenBSD__
	137	int RAND_poll(void)
	138	{
	139	u_int32_t rnd = 0, i;
	140	unsigned char buf[ENTROPY_NEEDED];
	141
	142	for (i = 0; i < sizeof(buf); i++) {
	143	if (i % 4 == 0)
	144	rnd = arc4random();
	145	buf[i] = rnd;
	146	rnd >>= 8;
	147	}
	148	RAND_add(buf, sizeof(buf), ENTROPY_NEEDED);
	149	memset(buf, 0, sizeof(buf));
	150
	151	return 1;
	152	}
e34aa5a3	153	#else /* !defined(__OpenBSD__) */
0c61e299 RL	154	int RAND_poll(void)
	155	{
	156	unsigned long l;
	157	pid_t curr_pid = getpid();
599c0353	158	#if defined(DEVRANDOM) \|\| defined(DEVRANDOM_EGD)
0c61e299	159	unsigned char tmpbuf[ENTROPY_NEEDED];
6343829a	160	int n = 0;
599c0353 LJ	161	#endif
599c0353 LJ	162	#ifdef DEVRANDOM
4bd46774	163	static const char *randomfiles[] = { DEVRANDOM };
108159ff	164	struct stat randomstats[sizeof(randomfiles)/sizeof(randomfiles[0])];
20a90e3a GT	165	int fd;
20a90e3a GT	166	unsigned int i;
0c61e299	167	#endif
599c0353 LJ	168	#ifdef DEVRANDOM_EGD
	169	static const char *egdsockets[] = { DEVRANDOM_EGD, NULL };
	170	const char **egdsocket = NULL;
	171	#endif
0c61e299 RL	172
0c61e299 RL	173	#ifdef DEVRANDOM
108159ff	174	memset(randomstats,0,sizeof(randomstats));
0c61e299 RL	175	/* Use a random entropy pool device. Linux, FreeBSD and OpenBSD
	176	* have this. Use /dev/urandom if you can as /dev/random may block
	177	* if it runs out of random entries. */
	178
20a90e3a GT	179	for (i = 0; (i < sizeof(randomfiles)/sizeof(randomfiles[0])) &&
20a90e3a GT	180	(n < ENTROPY_NEEDED); i++)
0c61e299	181	{
108159ff	182	if ((fd = open(randomfiles[i], O_RDONLY
02a00bb0 AP	183	#ifdef O_NONBLOCK
	184	\|O_NONBLOCK
	185	#endif
	186	#ifdef O_BINARY
	187	\|O_BINARY
	188	#endif
0c61e299 RL	189	#ifdef O_NOCTTY /* If it happens to be a TTY (god forbid), do not make it
	190	our controlling tty */
	191	\|O_NOCTTY
0c61e299 RL	192	#endif
	193	)) >= 0)
	194	{
e34aa5a3	195	int usec = 101000; / spend 10ms on each file */
20a90e3a GT	196	int r;
20a90e3a GT	197	unsigned int j;
108159ff AP	198	struct stat *st=&randomstats[i];
	199
	200	/* Avoid using same input... Used to be O_NOFOLLOW
	201	* above, but it's not universally appropriate... */
	202	if (fstat(fd,st) != 0) { close(fd); continue; }
	203	for (j=0;j<i;j++)
	204	{
	205	if (randomstats[j].st_ino==st->st_ino &&
5d727078	206	randomstats[j].st_dev==st->st_dev)
108159ff AP	207	break;
	208	}
	209	if (j<i) { close(fd); continue; }
0c61e299 RL	210
	211	do
	212	{
e34aa5a3 BM	213	int try_read = 0;
e34aa5a3 BM	214
4700aea9	215	#if defined(OPENSSL_SYS_BEOS_R5)
e34aa5a3 BM	216	/* select() is broken in BeOS R5, so we simply
	217	* try to read something and snooze if we couldn't */
	218	try_read = 1;
	219
	220	#elif defined(OPENSSL_SYS_LINUX)
	221	/* use poll() */
	222	struct pollfd pset;
	223
	224	pset.fd = fd;
	225	pset.events = POLLIN;
	226	pset.revents = 0;
	227
	228	if (poll(&pset, 1, usec / 1000) < 0)
	229	usec = 0;
	230	else
	231	try_read = (pset.revents & POLLIN) != 0;
	232
4700aea9	233	#else
e34aa5a3 BM	234	/* use select() */
	235	fd_set fset;
	236	struct timeval t;
	237
	238	t.tv_sec = 0;
	239	t.tv_usec = usec;
0c61e299	240
e34aa5a3 BM	241	if (FD_SETSIZE > 0 && fd >= FD_SETSIZE)
	242	{
	243	/* can't use select, so just try to read once anyway */
	244	try_read = 1;
	245	}
	246	else
	247	{
	248	FD_ZERO(&fset);
	249	FD_SET(fd, &fset);
	250
	251	if (select(fd+1,&fset,NULL,NULL,&t) >= 0)
	252	{
	253	usec = t.tv_usec;
	254	if (FD_ISSET(fd, &fset))
	255	try_read = 1;
	256	}
	257	else
	258	usec = 0;
	259	}
	260	#endif
	261
	262	if (try_read)
0c61e299	263	{
6343829a	264	r = read(fd,(unsigned char *)tmpbuf+n, ENTROPY_NEEDED-n);
0c61e299 RL	265	if (r > 0)
0c61e299 RL	266	n += r;
e34aa5a3 BM	267	#if defined(OPENSSL_SYS_BEOS_R5)
	268	if (r == 0)
	269	snooze(t.tv_usec);
4700aea9	270	#endif
e34aa5a3 BM	271	}
	272	else
	273	r = -1;
	274
	275	/* Some Unixen will update t in select(), some
	276	won't. For those who won't, or if we
	277	didn't use select() in the first place,
	278	give up here, otherwise, we will do
0c61e299 RL	279	this once again for the remaining
0c61e299 RL	280	time. */
e34aa5a3 BM	281	if (usec == 10*1000)
e34aa5a3 BM	282	usec = 0;
0c61e299	283	}
e34aa5a3 BM	284	while ((r > 0 \|\|
e34aa5a3 BM	285	(errno == EINTR \|\| errno == EAGAIN)) && usec != 0 && n < ENTROPY_NEEDED);
0c61e299 RL	286
0c61e299 RL	287	close(fd);
0c61e299 RL	288	}
0c61e299 RL	289	}
e34aa5a3	290	#endif /* defined(DEVRANDOM) */
599c0353 LJ	291
	292	#ifdef DEVRANDOM_EGD
	293	/* Use an EGD socket to read entropy from an EGD or PRNGD entropy
	294	* collecting daemon. */
	295
	296	for (egdsocket = egdsockets; *egdsocket && n < ENTROPY_NEEDED; egdsocket++)
	297	{
	298	int r;
	299
	300	r = RAND_query_egd_bytes(egdsocket, (unsigned char )tmpbuf+n,
	301	ENTROPY_NEEDED-n);
	302	if (r > 0)
	303	n += r;
	304	}
e34aa5a3	305	#endif /* defined(DEVRANDOM_EGD) */
599c0353 LJ	306
599c0353 LJ	307	#if defined(DEVRANDOM) \|\| defined(DEVRANDOM_EGD)
28e5428d LJ	308	if (n > 0)
28e5428d LJ	309	{
ec37635c	310	RAND_add(tmpbuf,sizeof tmpbuf,(double)n);
4579924b	311	OPENSSL_cleanse(tmpbuf,n);
28e5428d	312	}
0c61e299 RL	313	#endif
	314
	315	/* put in some default random data, we need more than just this */
	316	l=curr_pid;
fd836aee	317	RAND_add(&l,sizeof(l),0.0);
0c61e299	318	l=getuid();
fd836aee	319	RAND_add(&l,sizeof(l),0.0);
0c61e299 RL	320
0c61e299 RL	321	l=time(NULL);
fd836aee	322	RAND_add(&l,sizeof(l),0.0);
0c61e299	323
4700aea9 UM	324	#if defined(OPENSSL_SYS_BEOS)
	325	{
	326	system_info sysInfo;
	327	get_system_info(&sysInfo);
	328	RAND_add(&sysInfo,sizeof(sysInfo),0);
	329	}
	330	#endif
	331
599c0353	332	#if defined(DEVRANDOM) \|\| defined(DEVRANDOM_EGD)
0c61e299	333	return 1;
6e6d04e2	334	#else
0c61e299	335	return 0;
6e6d04e2	336	#endif
0c61e299 RL	337	}
0c61e299 RL	338
e34aa5a3 BM	339	#endif /* defined(__OpenBSD__) */
	340	#endif /* !(defined(OPENSSL_SYS_WINDOWS) \|\| defined(OPENSSL_SYS_WIN32) \|\| defined(OPENSSL_SYS_VMS) \|\| defined(OPENSSL_SYS_OS2) \|\| defined(OPENSSL_SYS_VXWORKS) \|\| defined(OPENSSL_SYS_NETWARE)) */
	341
57d8ff79 RL	342
	343	#if defined(OPENSSL_SYS_VXWORKS)
	344	int RAND_poll(void)
e34aa5a3 BM	345	{
	346	return 0;
	347	}
57d8ff79	348	#endif