[thirdparty/openssl.git] / apps / s_socket.c

/* apps/s_socket.c -  socket-related functions used by s_client and s_server */
/* 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.]
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <signal.h>

#ifdef FLAT_INC
#include "e_os2.h"
#else
#include "../e_os2.h"
#endif

/* With IPv6, it looks like Digital has mixed up the proper order of
   recursive header file inclusion, resulting in the compiler complaining
   that u_int isn't defined, but only if _POSIX_C_SOURCE is defined, which
   is needed to have fileno() declared correctly...  So let's define u_int */
#if defined(OPENSSL_SYS_VMS_DECC) && !defined(__U_INT)
#define __U_INT
typedef unsigned int u_int;
#endif

#define USE_SOCKETS
#define NON_MAIN
#include "apps.h"
#undef USE_SOCKETS
#undef NON_MAIN
#include "s_apps.h"
#include <openssl/ssl.h>

#ifdef FLAT_INC
#include "e_os.h"
#else
#include "../e_os.h"
#endif

#ifndef OPENSSL_NO_SOCK

#if defined(OPENSSL_SYS_NETWARE) && defined(NETWARE_BSDSOCK)
#include "netdb.h"
#endif

static struct hostent *GetHostByName(char *name);
#if defined(OPENSSL_SYS_WINDOWS) || (defined(OPENSSL_SYS_NETWARE) && !defined(NETWARE_BSDSOCK))
static void ssl_sock_cleanup(void);
#endif
static int ssl_sock_init(void);
static int init_client_ip(int *sock,unsigned char ip[4], int port, int type);
static int init_server(int *sock, int port, int type);
static int init_server_long(int *sock, int port,char *ip, int type);
static int do_accept(int acc_sock, int *sock, char **host);
static int host_ip(char *str, unsigned char ip[4]);

#ifdef OPENSSL_SYS_WIN16
#define SOCKET_PROTOCOL	0 /* more microsoft stupidity */
#else
#define SOCKET_PROTOCOL	IPPROTO_TCP
#endif

#if defined(OPENSSL_SYS_NETWARE) && !defined(NETWARE_BSDSOCK)
static int wsa_init_done=0;
#endif

#ifdef OPENSSL_SYS_WINDOWS
static struct WSAData wsa_state;
static int wsa_init_done=0;

#ifdef OPENSSL_SYS_WIN16
static HWND topWnd=0;
static FARPROC lpTopWndProc=NULL;
static FARPROC lpTopHookProc=NULL;
extern HINSTANCE _hInstance;  /* nice global CRT provides */

static LONG FAR PASCAL topHookProc(HWND hwnd, UINT message, WPARAM wParam,
	     LPARAM lParam)
	{
	if (hwnd == topWnd)
		{
		switch(message)
			{
		case WM_DESTROY:
		case WM_CLOSE:
			SetWindowLong(topWnd,GWL_WNDPROC,(LONG)lpTopWndProc);
			ssl_sock_cleanup();
			break;
			}
		}
	return CallWindowProc(lpTopWndProc,hwnd,message,wParam,lParam);
	}

static BOOL CALLBACK enumproc(HWND hwnd,LPARAM lParam)
	{
	topWnd=hwnd;
	return(FALSE);
	}

#endif /* OPENSSL_SYS_WIN32 */
#endif /* OPENSSL_SYS_WINDOWS */

#ifdef OPENSSL_SYS_WINDOWS
static void ssl_sock_cleanup(void)
	{
	if (wsa_init_done)
		{
		wsa_init_done=0;
#ifndef OPENSSL_SYS_WINCE
		WSACancelBlockingCall();
#endif
		WSACleanup();
		}
	}
#elif defined(OPENSSL_SYS_NETWARE) && !defined(NETWARE_BSDSOCK)
static void sock_cleanup(void)
    {
    if (wsa_init_done)
        {
        wsa_init_done=0;
		WSACleanup();
		}
	}
#endif

static int ssl_sock_init(void)
	{
#ifdef WATT32
	extern int _watt_do_exit;
	_watt_do_exit = 0;
	if (sock_init())
		return (0);
#elif defined(OPENSSL_SYS_WINDOWS)
	if (!wsa_init_done)
		{
		int err;
	  
#ifdef SIGINT
		signal(SIGINT,(void (*)(int))ssl_sock_cleanup);
#endif
		wsa_init_done=1;
		memset(&wsa_state,0,sizeof(wsa_state));
		if (WSAStartup(0x0101,&wsa_state)!=0)
			{
			err=WSAGetLastError();
			BIO_printf(bio_err,"unable to start WINSOCK, error code=%d\n",err);
			return(0);
			}

#ifdef OPENSSL_SYS_WIN16
		EnumTaskWindows(GetCurrentTask(),enumproc,0L);
		lpTopWndProc=(FARPROC)GetWindowLong(topWnd,GWL_WNDPROC);
		lpTopHookProc=MakeProcInstance((FARPROC)topHookProc,_hInstance);

		SetWindowLong(topWnd,GWL_WNDPROC,(LONG)lpTopHookProc);
#endif /* OPENSSL_SYS_WIN16 */
		}
#elif defined(OPENSSL_SYS_NETWARE) && !defined(NETWARE_BSDSOCK)
   WORD wVerReq;
   WSADATA wsaData;
   int err;

   if (!wsa_init_done)
      {
   
# ifdef SIGINT
      signal(SIGINT,(void (*)(int))sock_cleanup);
# endif

      wsa_init_done=1;
      wVerReq = MAKEWORD( 2, 0 );
      err = WSAStartup(wVerReq,&wsaData);
      if (err != 0)
         {
         BIO_printf(bio_err,"unable to start WINSOCK2, error code=%d\n",err);
         return(0);
         }
      }
#endif /* OPENSSL_SYS_WINDOWS */
	return(1);
	}

int init_client(int *sock, char *host, int port, int type)
	{
	unsigned char ip[4];

	memset(ip, '\0', sizeof ip);
	if (!host_ip(host,&(ip[0])))
		return 0;
	return init_client_ip(sock,ip,port,type);
	}

static int init_client_ip(int *sock, unsigned char ip[4], int port, int type)
	{
	unsigned long addr;
	struct sockaddr_in them;
	int s,i;

	if (!ssl_sock_init()) return(0);

	memset((char *)&them,0,sizeof(them));
	them.sin_family=AF_INET;
	them.sin_port=htons((unsigned short)port);
	addr=(unsigned long)
		((unsigned long)ip[0]<<24L)|
		((unsigned long)ip[1]<<16L)|
		((unsigned long)ip[2]<< 8L)|
		((unsigned long)ip[3]);
	them.sin_addr.s_addr=htonl(addr);

	if (type == SOCK_STREAM)
		s=socket(AF_INET,SOCK_STREAM,SOCKET_PROTOCOL);
	else /* ( type == SOCK_DGRAM) */
		s=socket(AF_INET,SOCK_DGRAM,IPPROTO_UDP);
			
	if (s == INVALID_SOCKET) { perror("socket"); return(0); }

#if defined(SO_KEEPALIVE) && !defined(OPENSSL_SYS_MPE)
	if (type == SOCK_STREAM)
		{
		i=0;
		i=setsockopt(s,SOL_SOCKET,SO_KEEPALIVE,(char *)&i,sizeof(i));
		if (i < 0) { closesocket(s); perror("keepalive"); return(0); }
		}
#endif

	if (connect(s,(struct sockaddr *)&them,sizeof(them)) == -1)
		{ closesocket(s); perror("connect"); return(0); }
	*sock=s;
	return(1);
	}

int do_server(int port, int type, int *ret, int (*cb)(char *hostname, int s, unsigned char *context), unsigned char *context)
	{
	int sock;
	char *name = NULL;
	int accept_socket = 0;
	int i;

	if (!init_server(&accept_socket,port,type)) return(0);

	if (ret != NULL)
		{
		*ret=accept_socket;
		/* return(1);*/
		}
  	for (;;)
  		{
		if (type==SOCK_STREAM)
			{
			if (do_accept(accept_socket,&sock,&name) == 0)
				{
				SHUTDOWN(accept_socket);
				return(0);
				}
			}
		else
			sock = accept_socket;
		i=(*cb)(name,sock, context);
		if (name != NULL) OPENSSL_free(name);
		if (type==SOCK_STREAM)
			SHUTDOWN2(sock);
		if (i < 0)
			{
			SHUTDOWN2(accept_socket);
			return(i);
			}
		}
	}

static int init_server_long(int *sock, int port, char *ip, int type)
	{
	int ret=0;
	struct sockaddr_in server;
	int s= -1;

	if (!ssl_sock_init()) return(0);

	memset((char *)&server,0,sizeof(server));
	server.sin_family=AF_INET;
	server.sin_port=htons((unsigned short)port);
	if (ip == NULL)
		server.sin_addr.s_addr=INADDR_ANY;
	else
/* Added for T3E, address-of fails on bit field (beckman@acl.lanl.gov) */
#ifndef BIT_FIELD_LIMITS
		memcpy(&server.sin_addr.s_addr,ip,4);
#else
		memcpy(&server.sin_addr,ip,4);
#endif
	
		if (type == SOCK_STREAM)
			s=socket(AF_INET,SOCK_STREAM,SOCKET_PROTOCOL);
		else /* type == SOCK_DGRAM */
			s=socket(AF_INET, SOCK_DGRAM,IPPROTO_UDP);

	if (s == INVALID_SOCKET) goto err;
#if defined SOL_SOCKET && defined SO_REUSEADDR
		{
		int j = 1;
		setsockopt(s, SOL_SOCKET, SO_REUSEADDR,
			   (void *) &j, sizeof j);
		}
#endif
	if (bind(s,(struct sockaddr *)&server,sizeof(server)) == -1)
		{
#ifndef OPENSSL_SYS_WINDOWS
		perror("bind");
#endif
		goto err;
		}
	/* Make it 128 for linux */
	if (type==SOCK_STREAM && listen(s,128) == -1) goto err;
	*sock=s;
	ret=1;
err:
	if ((ret == 0) && (s != -1))
		{
		SHUTDOWN(s);
		}
	return(ret);
	}

static int init_server(int *sock, int port, int type)
	{
	return(init_server_long(sock, port, NULL, type));
	}

static int do_accept(int acc_sock, int *sock, char **host)
	{
	int ret;
	struct hostent *h1,*h2;
	static struct sockaddr_in from;
	int len;
/*	struct linger ling; */

	if (!ssl_sock_init()) return(0);

#ifndef OPENSSL_SYS_WINDOWS
redoit:
#endif

	memset((char *)&from,0,sizeof(from));
	len=sizeof(from);
	/* Note: under VMS with SOCKETSHR the fourth parameter is currently
	 * of type (int *) whereas under other systems it is (void *) if
	 * you don't have a cast it will choke the compiler: if you do
	 * have a cast then you can either go for (int *) or (void *).
	 */
	ret=accept(acc_sock,(struct sockaddr *)&from,(void *)&len);
	if (ret == INVALID_SOCKET)
		{
#if defined(OPENSSL_SYS_WINDOWS) || (defined(OPENSSL_SYS_NETWARE) && !defined(NETWARE_BSDSOCK))
		int i;
		i=WSAGetLastError();
		BIO_printf(bio_err,"accept error %d\n",i);
#else
		if (errno == EINTR)
			{
			/*check_timeout(); */
			goto redoit;
			}
		fprintf(stderr,"errno=%d ",errno);
		perror("accept");
#endif
		return(0);
		}

/*-
	ling.l_onoff=1;
	ling.l_linger=0;
	i=setsockopt(ret,SOL_SOCKET,SO_LINGER,(char *)&ling,sizeof(ling));
	if (i < 0) { perror("linger"); return(0); }
	i=0;
	i=setsockopt(ret,SOL_SOCKET,SO_KEEPALIVE,(char *)&i,sizeof(i));
	if (i < 0) { perror("keepalive"); return(0); }
*/

	if (host == NULL) goto end;
#ifndef BIT_FIELD_LIMITS
	/* I should use WSAAsyncGetHostByName() under windows */
	h1=gethostbyaddr((char *)&from.sin_addr.s_addr,
		sizeof(from.sin_addr.s_addr),AF_INET);
#else
	h1=gethostbyaddr((char *)&from.sin_addr,
		sizeof(struct in_addr),AF_INET);
#endif
	if (h1 == NULL)
		{
		BIO_printf(bio_err,"bad gethostbyaddr\n");
		*host=NULL;
		/* return(0); */
		}
	else
		{
		if ((*host=(char *)OPENSSL_malloc(strlen(h1->h_name)+1)) == NULL)
			{
			perror("OPENSSL_malloc");
			closesocket(ret);
			return(0);
			}
		BUF_strlcpy(*host,h1->h_name,strlen(h1->h_name)+1);

		h2=GetHostByName(*host);
		if (h2 == NULL)
			{
			BIO_printf(bio_err,"gethostbyname failure\n");
			closesocket(ret);
			return(0);
			}
		if (h2->h_addrtype != AF_INET)
			{
			BIO_printf(bio_err,"gethostbyname addr is not AF_INET\n");
			closesocket(ret);
			return(0);
			}
		}
end:
	*sock=ret;
	return(1);
	}

int extract_host_port(char *str, char **host_ptr, unsigned char *ip,
	     short *port_ptr)
	{
	char *h,*p;

	h=str;
	p=strchr(str,':');
	if (p == NULL)
		{
		BIO_printf(bio_err,"no port defined\n");
		return(0);
		}
	*(p++)='\0';

	if ((ip != NULL) && !host_ip(str,ip))
		goto err;
	if (host_ptr != NULL) *host_ptr=h;

	if (!extract_port(p,port_ptr))
		goto err;
	return(1);
err:
	return(0);
	}

static int host_ip(char *str, unsigned char ip[4])
	{
	unsigned int in[4]; 
	int i;

	if (sscanf(str,"%u.%u.%u.%u",&(in[0]),&(in[1]),&(in[2]),&(in[3])) == 4)
		{
		for (i=0; i<4; i++)
			if (in[i] > 255)
				{
				BIO_printf(bio_err,"invalid IP address\n");
				goto err;
				}
		ip[0]=in[0];
		ip[1]=in[1];
		ip[2]=in[2];
		ip[3]=in[3];
		}
	else
		{ /* do a gethostbyname */
		struct hostent *he;

		if (!ssl_sock_init()) return(0);

		he=GetHostByName(str);
		if (he == NULL)
			{
			BIO_printf(bio_err,"gethostbyname failure\n");
			goto err;
			}
		/* cast to short because of win16 winsock definition */
		if ((short)he->h_addrtype != AF_INET)
			{
			BIO_printf(bio_err,"gethostbyname addr is not AF_INET\n");
			return(0);
			}
		ip[0]=he->h_addr_list[0][0];
		ip[1]=he->h_addr_list[0][1];
		ip[2]=he->h_addr_list[0][2];
		ip[3]=he->h_addr_list[0][3];
		}
	return(1);
err:
	return(0);
	}

int extract_port(char *str, short *port_ptr)
	{
	int i;
	struct servent *s;

	i=atoi(str);
	if (i != 0)
		*port_ptr=(unsigned short)i;
	else
		{
		s=getservbyname(str,"tcp");
		if (s == NULL)
			{
			BIO_printf(bio_err,"getservbyname failure for %s\n",str);
			return(0);
			}
		*port_ptr=ntohs((unsigned short)s->s_port);
		}
	return(1);
	}

#define GHBN_NUM	4
static struct ghbn_cache_st
	{
	char name[128];
	struct hostent ent;
	unsigned long order;
	} ghbn_cache[GHBN_NUM];

static unsigned long ghbn_hits=0L;
static unsigned long ghbn_miss=0L;

static struct hostent *GetHostByName(char *name)
	{
	struct hostent *ret;
	int i,lowi=0;
	unsigned long low= (unsigned long)-1;

	for (i=0; i<GHBN_NUM; i++)
		{
		if (low > ghbn_cache[i].order)
			{
			low=ghbn_cache[i].order;
			lowi=i;
			}
		if (ghbn_cache[i].order > 0)
			{
			if (strncmp(name,ghbn_cache[i].name,128) == 0)
				break;
			}
		}
	if (i == GHBN_NUM) /* no hit*/
		{
		ghbn_miss++;
		ret=gethostbyname(name);
		if (ret == NULL) return(NULL);
		/* else add to cache */
		if(strlen(name) < sizeof ghbn_cache[0].name)
			{
			strcpy(ghbn_cache[lowi].name,name);
			memcpy((char *)&(ghbn_cache[lowi].ent),ret,sizeof(struct hostent));
			ghbn_cache[lowi].order=ghbn_miss+ghbn_hits;
			}
		return(ret);
		}
	else
		{
		ghbn_hits++;
		ret= &(ghbn_cache[i].ent);
		ghbn_cache[i].order=ghbn_miss+ghbn_hits;
		return(ret);
		}
	}

#endif
Commit	Line	Data
863fe2ec	1	/* apps/s_socket.c - socket-related functions used by s_client and s_server */
58964a49	2	/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
d02b48c6 RE	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
8c197cc5 UM	59	#include <stdio.h>
	60	#include <stdlib.h>
	61	#include <string.h>
	62	#include <errno.h>
	63	#include <signal.h>
	64
f49353b4	65	#ifdef FLAT_INC
82f35daa	66	#include "e_os2.h"
f49353b4	67	#else
82f35daa	68	#include "../e_os2.h"
f49353b4 RL	69	#endif
f49353b4 RL	70
7d7d2cbc UM	71	/* With IPv6, it looks like Digital has mixed up the proper order of
	72	recursive header file inclusion, resulting in the compiler complaining
	73	that u_int isn't defined, but only if _POSIX_C_SOURCE is defined, which
	74	is needed to have fileno() declared correctly... So let's define u_int */
bc36ee62	75	#if defined(OPENSSL_SYS_VMS_DECC) && !defined(__U_INT)
7d7d2cbc UM	76	#define __U_INT
	77	typedef unsigned int u_int;
	78	#endif
	79
02cc82ff RL	80	#define USE_SOCKETS
	81	#define NON_MAIN
	82	#include "apps.h"
	83	#undef USE_SOCKETS
	84	#undef NON_MAIN
	85	#include "s_apps.h"
	86	#include <openssl/ssl.h>
	87
82f35daa RL	88	#ifdef FLAT_INC
	89	#include "e_os.h"
	90	#else
	91	#include "../e_os.h"
	92	#endif
	93
4579924b RL	94	#ifndef OPENSSL_NO_SOCK
4579924b RL	95
b764ab95 RL	96	#if defined(OPENSSL_SYS_NETWARE) && defined(NETWARE_BSDSOCK)
	97	#include "netdb.h"
	98	#endif
	99
d02b48c6	100	static struct hostent GetHostByName(char name);
b764ab95	101	#if defined(OPENSSL_SYS_WINDOWS) \|\| (defined(OPENSSL_SYS_NETWARE) && !defined(NETWARE_BSDSOCK))
8d6e6048	102	static void ssl_sock_cleanup(void);
cc497fb0	103	#endif
8d6e6048	104	static int ssl_sock_init(void);
36d16f8e BL	105	static int init_client_ip(int *sock,unsigned char ip[4], int port, int type);
	106	static int init_server(int *sock, int port, int type);
	107	static int init_server_long(int sock, int port,char ip, int type);
863fe2ec BM	108	static int do_accept(int acc_sock, int sock, char *host);
	109	static int host_ip(char *str, unsigned char ip[4]);
	110
bc36ee62	111	#ifdef OPENSSL_SYS_WIN16
d02b48c6 RE	112	#define SOCKET_PROTOCOL 0 /* more microsoft stupidity */
	113	#else
	114	#define SOCKET_PROTOCOL IPPROTO_TCP
	115	#endif
	116
b764ab95	117	#if defined(OPENSSL_SYS_NETWARE) && !defined(NETWARE_BSDSOCK)
4d8743f4 RL	118	static int wsa_init_done=0;
	119	#endif
	120
bc36ee62	121	#ifdef OPENSSL_SYS_WINDOWS
d02b48c6 RE	122	static struct WSAData wsa_state;
	123	static int wsa_init_done=0;
	124
bc36ee62	125	#ifdef OPENSSL_SYS_WIN16
d02b48c6 RE	126	static HWND topWnd=0;
	127	static FARPROC lpTopWndProc=NULL;
	128	static FARPROC lpTopHookProc=NULL;
	129	extern HINSTANCE _hInstance; /* nice global CRT provides */
	130
6b691a5c UM	131	static LONG FAR PASCAL topHookProc(HWND hwnd, UINT message, WPARAM wParam,
6b691a5c UM	132	LPARAM lParam)
d02b48c6 RE	133	{
	134	if (hwnd == topWnd)
	135	{
	136	switch(message)
	137	{
	138	case WM_DESTROY:
	139	case WM_CLOSE:
	140	SetWindowLong(topWnd,GWL_WNDPROC,(LONG)lpTopWndProc);
8d6e6048	141	ssl_sock_cleanup();
d02b48c6 RE	142	break;
	143	}
	144	}
	145	return CallWindowProc(lpTopWndProc,hwnd,message,wParam,lParam);
	146	}
	147
	148	static BOOL CALLBACK enumproc(HWND hwnd,LPARAM lParam)
	149	{
	150	topWnd=hwnd;
	151	return(FALSE);
	152	}
	153
bc36ee62 RL	154	#endif /* OPENSSL_SYS_WIN32 */
bc36ee62 RL	155	#endif /* OPENSSL_SYS_WINDOWS */
d02b48c6	156
bc36ee62	157	#ifdef OPENSSL_SYS_WINDOWS
8d6e6048	158	static void ssl_sock_cleanup(void)
d02b48c6	159	{
d02b48c6 RE	160	if (wsa_init_done)
	161	{
	162	wsa_init_done=0;
0bf23d9b	163	#ifndef OPENSSL_SYS_WINCE
d02b48c6	164	WSACancelBlockingCall();
0bf23d9b	165	#endif
d02b48c6 RE	166	WSACleanup();
d02b48c6 RE	167	}
d02b48c6	168	}
b764ab95	169	#elif defined(OPENSSL_SYS_NETWARE) && !defined(NETWARE_BSDSOCK)
4d8743f4 RL	170	static void sock_cleanup(void)
	171	{
	172	if (wsa_init_done)
	173	{
	174	wsa_init_done=0;
	175	WSACleanup();
	176	}
	177	}
cc497fb0	178	#endif
d02b48c6	179
8d6e6048	180	static int ssl_sock_init(void)
d02b48c6	181	{
8d6e6048 RL	182	#ifdef WATT32
	183	extern int _watt_do_exit;
	184	_watt_do_exit = 0;
8d6e6048 RL	185	if (sock_init())
	186	return (0);
	187	#elif defined(OPENSSL_SYS_WINDOWS)
d02b48c6 RE	188	if (!wsa_init_done)
	189	{
	190	int err;
	191
	192	#ifdef SIGINT
8d6e6048	193	signal(SIGINT,(void (*)(int))ssl_sock_cleanup);
d02b48c6 RE	194	#endif
	195	wsa_init_done=1;
	196	memset(&wsa_state,0,sizeof(wsa_state));
	197	if (WSAStartup(0x0101,&wsa_state)!=0)
	198	{
	199	err=WSAGetLastError();
	200	BIO_printf(bio_err,"unable to start WINSOCK, error code=%d\n",err);
	201	return(0);
	202	}
	203
bc36ee62	204	#ifdef OPENSSL_SYS_WIN16
d02b48c6 RE	205	EnumTaskWindows(GetCurrentTask(),enumproc,0L);
	206	lpTopWndProc=(FARPROC)GetWindowLong(topWnd,GWL_WNDPROC);
	207	lpTopHookProc=MakeProcInstance((FARPROC)topHookProc,_hInstance);
	208
	209	SetWindowLong(topWnd,GWL_WNDPROC,(LONG)lpTopHookProc);
bc36ee62	210	#endif /* OPENSSL_SYS_WIN16 */
d02b48c6	211	}
b764ab95	212	#elif defined(OPENSSL_SYS_NETWARE) && !defined(NETWARE_BSDSOCK)
4d8743f4 RL	213	WORD wVerReq;
	214	WSADATA wsaData;
	215	int err;
	216
	217	if (!wsa_init_done)
	218	{
	219
	220	# ifdef SIGINT
	221	signal(SIGINT,(void (*)(int))sock_cleanup);
	222	# endif
	223
	224	wsa_init_done=1;
	225	wVerReq = MAKEWORD( 2, 0 );
	226	err = WSAStartup(wVerReq,&wsaData);
	227	if (err != 0)
	228	{
	229	BIO_printf(bio_err,"unable to start WINSOCK2, error code=%d\n",err);
	230	return(0);
	231	}
	232	}
bc36ee62	233	#endif /* OPENSSL_SYS_WINDOWS */
d02b48c6 RE	234	return(1);
	235	}
	236
36d16f8e	237	int init_client(int sock, char host, int port, int type)
d02b48c6 RE	238	{
d02b48c6 RE	239	unsigned char ip[4];
d02b48c6	240
825e1a7c	241	memset(ip, '\0', sizeof ip);
d02b48c6	242	if (!host_ip(host,&(ip[0])))
825e1a7c BL	243	return 0;
825e1a7c BL	244	return init_client_ip(sock,ip,port,type);
d02b48c6 RE	245	}
d02b48c6 RE	246
36d16f8e	247	static int init_client_ip(int *sock, unsigned char ip[4], int port, int type)
d02b48c6 RE	248	{
	249	unsigned long addr;
	250	struct sockaddr_in them;
	251	int s,i;
	252
8d6e6048	253	if (!ssl_sock_init()) return(0);
d02b48c6 RE	254
	255	memset((char *)&them,0,sizeof(them));
	256	them.sin_family=AF_INET;
	257	them.sin_port=htons((unsigned short)port);
	258	addr=(unsigned long)
	259	((unsigned long)ip[0]<<24L)\|
	260	((unsigned long)ip[1]<<16L)\|
	261	((unsigned long)ip[2]<< 8L)\|
	262	((unsigned long)ip[3]);
	263	them.sin_addr.s_addr=htonl(addr);
	264
36d16f8e BL	265	if (type == SOCK_STREAM)
	266	s=socket(AF_INET,SOCK_STREAM,SOCKET_PROTOCOL);
	267	else /* ( type == SOCK_DGRAM) */
	268	s=socket(AF_INET,SOCK_DGRAM,IPPROTO_UDP);
	269
d02b48c6 RE	270	if (s == INVALID_SOCKET) { perror("socket"); return(0); }
d02b48c6 RE	271
36e77b10	272	#if defined(SO_KEEPALIVE) && !defined(OPENSSL_SYS_MPE)
36d16f8e BL	273	if (type == SOCK_STREAM)
	274	{
	275	i=0;
	276	i=setsockopt(s,SOL_SOCKET,SO_KEEPALIVE,(char *)&i,sizeof(i));
f179e2b8	277	if (i < 0) { closesocket(s); perror("keepalive"); return(0); }
36d16f8e	278	}
c5f8bbbc	279	#endif
d02b48c6 RE	280
d02b48c6 RE	281	if (connect(s,(struct sockaddr *)&them,sizeof(them)) == -1)
36e77b10	282	{ closesocket(s); perror("connect"); return(0); }
d02b48c6 RE	283	*sock=s;
	284	return(1);
	285	}
	286
6343829a	287	int do_server(int port, int type, int ret, int (cb)(char hostname, int s, unsigned char context), unsigned char *context)
d02b48c6 RE	288	{
d02b48c6 RE	289	int sock;
36d16f8e	290	char *name = NULL;
224328e4	291	int accept_socket = 0;
d02b48c6 RE	292	int i;
d02b48c6 RE	293
36d16f8e	294	if (!init_server(&accept_socket,port,type)) return(0);
d02b48c6 RE	295
	296	if (ret != NULL)
	297	{
	298	*ret=accept_socket;
	299	/* return(1);*/
	300	}
36d16f8e BL	301	for (;;)
	302	{
	303	if (type==SOCK_STREAM)
d02b48c6	304	{
36d16f8e BL	305	if (do_accept(accept_socket,&sock,&name) == 0)
	306	{
	307	SHUTDOWN(accept_socket);
	308	return(0);
	309	}
d02b48c6	310	}
36d16f8e BL	311	else
	312	sock = accept_socket;
	313	i=(*cb)(name,sock, context);
26a3a48d	314	if (name != NULL) OPENSSL_free(name);
36d16f8e BL	315	if (type==SOCK_STREAM)
36d16f8e BL	316	SHUTDOWN2(sock);
d02b48c6 RE	317	if (i < 0)
d02b48c6 RE	318	{
58964a49	319	SHUTDOWN2(accept_socket);
d02b48c6 RE	320	return(i);
	321	}
	322	}
	323	}
	324
36d16f8e	325	static int init_server_long(int sock, int port, char ip, int type)
d02b48c6 RE	326	{
	327	int ret=0;
	328	struct sockaddr_in server;
e9735943	329	int s= -1;
d02b48c6	330
8d6e6048	331	if (!ssl_sock_init()) return(0);
d02b48c6 RE	332
	333	memset((char *)&server,0,sizeof(server));
	334	server.sin_family=AF_INET;
	335	server.sin_port=htons((unsigned short)port);
58964a49 RE	336	if (ip == NULL)
	337	server.sin_addr.s_addr=INADDR_ANY;
	338	else
13e91dd3 RE	339	/* Added for T3E, address-of fails on bit field (beckman@acl.lanl.gov) */
13e91dd3 RE	340	#ifndef BIT_FIELD_LIMITS
58964a49	341	memcpy(&server.sin_addr.s_addr,ip,4);
13e91dd3 RE	342	#else
	343	memcpy(&server.sin_addr,ip,4);
	344	#endif
36d16f8e BL	345
	346	if (type == SOCK_STREAM)
	347	s=socket(AF_INET,SOCK_STREAM,SOCKET_PROTOCOL);
	348	else /* type == SOCK_DGRAM */
	349	s=socket(AF_INET, SOCK_DGRAM,IPPROTO_UDP);
d02b48c6 RE	350
d02b48c6 RE	351	if (s == INVALID_SOCKET) goto err;
cf897932 BM	352	#if defined SOL_SOCKET && defined SO_REUSEADDR
cf897932 BM	353	{
121bd68d	354	int j = 1;
f0f1b4e4	355	setsockopt(s, SOL_SOCKET, SO_REUSEADDR,
7d7d2cbc	356	(void *) &j, sizeof j);
cf897932 BM	357	}
cf897932 BM	358	#endif
d02b48c6 RE	359	if (bind(s,(struct sockaddr *)&server,sizeof(server)) == -1)
d02b48c6 RE	360	{
bc36ee62	361	#ifndef OPENSSL_SYS_WINDOWS
d02b48c6 RE	362	perror("bind");
	363	#endif
	364	goto err;
	365	}
58964a49	366	/* Make it 128 for linux */
36d16f8e	367	if (type==SOCK_STREAM && listen(s,128) == -1) goto err;
d02b48c6 RE	368	*sock=s;
	369	ret=1;
	370	err:
	371	if ((ret == 0) && (s != -1))
	372	{
	373	SHUTDOWN(s);
	374	}
	375	return(ret);
	376	}
	377
36d16f8e	378	static int init_server(int *sock, int port, int type)
58964a49	379	{
36d16f8e	380	return(init_server_long(sock, port, NULL, type));
58964a49 RE	381	}
58964a49 RE	382
863fe2ec	383	static int do_accept(int acc_sock, int sock, char *host)
d02b48c6	384	{
e9735943	385	int ret;
d02b48c6 RE	386	struct hostent h1,h2;
d02b48c6 RE	387	static struct sockaddr_in from;
61f5b6f3	388	int len;
d02b48c6 RE	389	/* struct linger ling; */
d02b48c6 RE	390
8d6e6048	391	if (!ssl_sock_init()) return(0);
d02b48c6	392
bc36ee62	393	#ifndef OPENSSL_SYS_WINDOWS
d02b48c6 RE	394	redoit:
	395	#endif
	396
	397	memset((char *)&from,0,sizeof(from));
	398	len=sizeof(from);
75e0770d	399	/* Note: under VMS with SOCKETSHR the fourth parameter is currently
7d7d2cbc UM	400	* of type (int ) whereas under other systems it is (void ) if
	401	* you don't have a cast it will choke the compiler: if you do
	402	* have a cast then you can either go for (int ) or (void ).
	403	*/
	404	ret=accept(acc_sock,(struct sockaddr )&from,(void )&len);
d02b48c6 RE	405	if (ret == INVALID_SOCKET)
d02b48c6 RE	406	{
b764ab95	407	#if defined(OPENSSL_SYS_WINDOWS) \|\| (defined(OPENSSL_SYS_NETWARE) && !defined(NETWARE_BSDSOCK))
497b4f92	408	int i;
d02b48c6 RE	409	i=WSAGetLastError();
	410	BIO_printf(bio_err,"accept error %d\n",i);
	411	#else
	412	if (errno == EINTR)
	413	{
	414	/check_timeout(); /
	415	goto redoit;
	416	}
	417	fprintf(stderr,"errno=%d ",errno);
	418	perror("accept");
	419	#endif
	420	return(0);
	421	}
	422
3e9a08ec	423	/*-
d02b48c6 RE	424	ling.l_onoff=1;
	425	ling.l_linger=0;
	426	i=setsockopt(ret,SOL_SOCKET,SO_LINGER,(char *)&ling,sizeof(ling));
	427	if (i < 0) { perror("linger"); return(0); }
	428	i=0;
	429	i=setsockopt(ret,SOL_SOCKET,SO_KEEPALIVE,(char *)&i,sizeof(i));
	430	if (i < 0) { perror("keepalive"); return(0); }
	431	*/
	432
	433	if (host == NULL) goto end;
58964a49	434	#ifndef BIT_FIELD_LIMITS
d02b48c6 RE	435	/* I should use WSAAsyncGetHostByName() under windows */
	436	h1=gethostbyaddr((char *)&from.sin_addr.s_addr,
	437	sizeof(from.sin_addr.s_addr),AF_INET);
58964a49 RE	438	#else
	439	h1=gethostbyaddr((char *)&from.sin_addr,
	440	sizeof(struct in_addr),AF_INET);
	441	#endif
d02b48c6 RE	442	if (h1 == NULL)
	443	{
	444	BIO_printf(bio_err,"bad gethostbyaddr\n");
	445	*host=NULL;
	446	/* return(0); */
	447	}
	448	else
	449	{
26a3a48d	450	if ((host=(char )OPENSSL_malloc(strlen(h1->h_name)+1)) == NULL)
d02b48c6	451	{
26a3a48d	452	perror("OPENSSL_malloc");
9e456a85	453	closesocket(ret);
d02b48c6 RE	454	return(0);
d02b48c6 RE	455	}
d420ac2c	456	BUF_strlcpy(*host,h1->h_name,strlen(h1->h_name)+1);
d02b48c6 RE	457
	458	h2=GetHostByName(*host);
	459	if (h2 == NULL)
	460	{
	461	BIO_printf(bio_err,"gethostbyname failure\n");
9e456a85	462	closesocket(ret);
d02b48c6 RE	463	return(0);
d02b48c6 RE	464	}
d02b48c6 RE	465	if (h2->h_addrtype != AF_INET)
	466	{
	467	BIO_printf(bio_err,"gethostbyname addr is not AF_INET\n");
9e456a85	468	closesocket(ret);
d02b48c6 RE	469	return(0);
	470	}
	471	}
	472	end:
	473	*sock=ret;
	474	return(1);
	475	}
	476
6b691a5c UM	477	int extract_host_port(char str, char host_ptr, unsigned char ip,
6b691a5c UM	478	short *port_ptr)
d02b48c6 RE	479	{
	480	char h,p;
	481
	482	h=str;
	483	p=strchr(str,':');
	484	if (p == NULL)
	485	{
	486	BIO_printf(bio_err,"no port defined\n");
	487	return(0);
	488	}
	489	*(p++)='\0';
	490
	491	if ((ip != NULL) && !host_ip(str,ip))
	492	goto err;
	493	if (host_ptr != NULL) *host_ptr=h;
	494
	495	if (!extract_port(p,port_ptr))
	496	goto err;
	497	return(1);
	498	err:
	499	return(0);
	500	}
	501
863fe2ec	502	static int host_ip(char *str, unsigned char ip[4])
d02b48c6 RE	503	{
	504	unsigned int in[4];
	505	int i;
	506
d58d092b	507	if (sscanf(str,"%u.%u.%u.%u",&(in[0]),&(in[1]),&(in[2]),&(in[3])) == 4)
d02b48c6 RE	508	{
	509	for (i=0; i<4; i++)
	510	if (in[i] > 255)
	511	{
	512	BIO_printf(bio_err,"invalid IP address\n");
	513	goto err;
	514	}
	515	ip[0]=in[0];
	516	ip[1]=in[1];
	517	ip[2]=in[2];
	518	ip[3]=in[3];
	519	}
	520	else
	521	{ /* do a gethostbyname */
	522	struct hostent *he;
	523
8d6e6048	524	if (!ssl_sock_init()) return(0);
d02b48c6 RE	525
	526	he=GetHostByName(str);
	527	if (he == NULL)
	528	{
	529	BIO_printf(bio_err,"gethostbyname failure\n");
	530	goto err;
	531	}
	532	/* cast to short because of win16 winsock definition */
	533	if ((short)he->h_addrtype != AF_INET)
	534	{
	535	BIO_printf(bio_err,"gethostbyname addr is not AF_INET\n");
	536	return(0);
	537	}
	538	ip[0]=he->h_addr_list[0][0];
	539	ip[1]=he->h_addr_list[0][1];
	540	ip[2]=he->h_addr_list[0][2];
	541	ip[3]=he->h_addr_list[0][3];
	542	}
	543	return(1);
	544	err:
	545	return(0);
	546	}
	547
6b691a5c	548	int extract_port(char str, short port_ptr)
d02b48c6 RE	549	{
	550	int i;
	551	struct servent *s;
	552
	553	i=atoi(str);
	554	if (i != 0)
	555	*port_ptr=(unsigned short)i;
	556	else
	557	{
	558	s=getservbyname(str,"tcp");
	559	if (s == NULL)
	560	{
	561	BIO_printf(bio_err,"getservbyname failure for %s\n",str);
	562	return(0);
	563	}
	564	*port_ptr=ntohs((unsigned short)s->s_port);
	565	}
	566	return(1);
	567	}
	568
	569	#define GHBN_NUM 4
	570	static struct ghbn_cache_st
	571	{
	572	char name[128];
	573	struct hostent ent;
	574	unsigned long order;
	575	} ghbn_cache[GHBN_NUM];
	576
	577	static unsigned long ghbn_hits=0L;
	578	static unsigned long ghbn_miss=0L;
	579
6b691a5c	580	static struct hostent GetHostByName(char name)
d02b48c6 RE	581	{
	582	struct hostent *ret;
	583	int i,lowi=0;
	584	unsigned long low= (unsigned long)-1;
	585
	586	for (i=0; i<GHBN_NUM; i++)
	587	{
	588	if (low > ghbn_cache[i].order)
	589	{
	590	low=ghbn_cache[i].order;
	591	lowi=i;
	592	}
	593	if (ghbn_cache[i].order > 0)
	594	{
	595	if (strncmp(name,ghbn_cache[i].name,128) == 0)
	596	break;
	597	}
	598	}
	599	if (i == GHBN_NUM) /* no hit*/
	600	{
	601	ghbn_miss++;
	602	ret=gethostbyname(name);
	603	if (ret == NULL) return(NULL);
	604	/* else add to cache */
54a656ef BL	605	if(strlen(name) < sizeof ghbn_cache[0].name)
	606	{
	607	strcpy(ghbn_cache[lowi].name,name);
	608	memcpy((char *)&(ghbn_cache[lowi].ent),ret,sizeof(struct hostent));
	609	ghbn_cache[lowi].order=ghbn_miss+ghbn_hits;
	610	}
d02b48c6 RE	611	return(ret);
	612	}
	613	else
	614	{
	615	ghbn_hits++;
	616	ret= &(ghbn_cache[i].ent);
	617	ghbn_cache[i].order=ghbn_miss+ghbn_hits;
	618	return(ret);
	619	}
	620	}
19aa3705 RL	621
19aa3705 RL	622	#endif