[thirdparty/strongswan.git] / src / libcharon / plugins / socket_raw / socket_raw_socket.c

/*
 * Copyright (C) 2006-2010 Tobias Brunner
 * Copyright (C) 2005-2010 Martin Willi
 * Copyright (C) 2006 Daniel Roethlisberger
 * Copyright (C) 2005 Jan Hutter
 * Hochschule fuer Technik Rapperswil
 *
 * This program is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by the
 * Free Software Foundation; either version 2 of the License, or (at your
 * option) any later version.  See <http://www.fsf.org/copyleft/gpl.txt>.
 *
 * This program is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
 * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
 * for more details.
 */

/* for struct in6_pktinfo */
#define _GNU_SOURCE

#include "socket_raw_socket.h"

#include <sys/types.h>
#include <sys/socket.h>
#include <string.h>
#include <errno.h>
#include <unistd.h>
#include <stdlib.h>
#include <fcntl.h>
#include <sys/ioctl.h>
#include <netinet/in.h>
#include <netinet/ip.h>
#include <netinet/udp.h>
#include <linux/types.h>
#include <linux/filter.h>
#include <net/if.h>

#include <hydra.h>
#include <daemon.h>
#include <threading/thread.h>

/* Maximum size of a packet */
#define MAX_PACKET 10000

/* constants for packet handling */
#define IP_LEN sizeof(struct iphdr)
#define IP6_LEN sizeof(struct ip6_hdr)
#define UDP_LEN sizeof(struct udphdr)
#define MARKER_LEN sizeof(u_int32_t)

/* offsets for packet handling */
#define IP_PROTO_OFFSET 9
#define IP6_PROTO_OFFSET 6
#define IKE_VERSION_OFFSET 17
#define IKE_LENGTH_OFFSET 24

/* from linux/udp.h */
#ifndef UDP_ENCAP
#define UDP_ENCAP 100
#endif /*UDP_ENCAP*/

#ifndef UDP_ENCAP_ESPINUDP
#define UDP_ENCAP_ESPINUDP 2
#endif /*UDP_ENCAP_ESPINUDP*/

/* needed for older kernel headers */
#ifndef IPV6_2292PKTINFO
#define IPV6_2292PKTINFO 2
#endif /*IPV6_2292PKTINFO*/

typedef struct private_socket_raw_socket_t private_socket_raw_socket_t;

/**
 * Private data of an socket_t object
 */
struct private_socket_raw_socket_t {

	/**
	 * public functions
	 */
	 socket_raw_socket_t public;

	/**
	 * regular port
	 */
	int port;

	/**
	 * port used for nat-t
	 */
	int natt_port;

	/**
	 * raw receiver socket for IPv4
	 */
	int recv4;

	/**
	 * raw receiver socket for IPv6
	 */
	int recv6;

	/**
	 * send socket on regular port for IPv4
	 */
	int send4;

	/**
	 * send socket on regular port for IPv6
	 */
	int send6;

	/**
	 * send socket on nat-t port for IPv4
	 */
	int send4_natt;

	/**
	 * send socket on nat-t port for IPv6
	 */
	int send6_natt;

	/**
	 * Maximum packet size to receive
	 */
	int max_packet;
};

METHOD(socket_t, receiver, status_t,
	private_socket_raw_socket_t *this, packet_t **packet)
{
	char buffer[this->max_packet];
	chunk_t data;
	packet_t *pkt;
	struct udphdr *udp;
	host_t *source = NULL, *dest = NULL;
	int bytes_read = 0, data_offset;
	bool oldstate;
	fd_set rfds;

	FD_ZERO(&rfds);

	if (this->recv4)
	{
		FD_SET(this->recv4, &rfds);
	}
	if (this->recv6)
	{
		FD_SET(this->recv6, &rfds);
	}

	DBG2(DBG_NET, "waiting for data on raw sockets");

	oldstate = thread_cancelability(TRUE);
	if (select(max(this->recv4, this->recv6) + 1, &rfds, NULL, NULL, NULL) <= 0)
	{
		thread_cancelability(oldstate);
		return FAILED;
	}
	thread_cancelability(oldstate);

	if (this->recv4 && FD_ISSET(this->recv4, &rfds))
	{
		/* IPv4 raw sockets return the IP header. We read src/dest
		 * information directly from the raw header */
		struct iphdr *ip;
		struct sockaddr_in src, dst;

		bytes_read = recv(this->recv4, buffer, this->max_packet, 0);
		if (bytes_read < 0)
		{
			DBG1(DBG_NET, "error reading from IPv4 socket: %s", strerror(errno));
			return FAILED;
		}
		if (bytes_read == this->max_packet)
		{
			DBG1(DBG_NET, "receive buffer too small, packet discarded");
			return FAILED;
		}
		DBG3(DBG_NET, "received IPv4 packet %b", buffer, bytes_read);

		/* read source/dest from raw IP/UDP header */
		if (bytes_read < IP_LEN + UDP_LEN + MARKER_LEN)
		{
			DBG1(DBG_NET, "received IPv4 packet too short (%d bytes)",
				 bytes_read);
			return FAILED;
		}
		ip = (struct iphdr*) buffer;
		udp = (struct udphdr*) (buffer + IP_LEN);
		src.sin_family = AF_INET;
		src.sin_addr.s_addr = ip->saddr;
		src.sin_port = udp->source;
		dst.sin_family = AF_INET;
		dst.sin_addr.s_addr = ip->daddr;
		dst.sin_port = udp->dest;
		source = host_create_from_sockaddr((sockaddr_t*)&src);
		dest = host_create_from_sockaddr((sockaddr_t*)&dst);

		pkt = packet_create();
		pkt->set_source(pkt, source);
		pkt->set_destination(pkt, dest);
		DBG2(DBG_NET, "received packet: from %#H to %#H", source, dest);
		data_offset = IP_LEN + UDP_LEN;
		/* remove non esp marker */
		if (dest->get_port(dest) == CHARON_NATT_PORT)
		{
			data_offset += MARKER_LEN;
		}
		/* fill in packet */
		data.len = bytes_read - data_offset;
		data.ptr = malloc(data.len);
		memcpy(data.ptr, buffer + data_offset, data.len);
		pkt->set_data(pkt, data);
	}
	else if (this->recv6 && FD_ISSET(this->recv6, &rfds))
	{
		/* IPv6 raw sockets return no IP header. We must query
		 * src/dest via socket options/ancillary data */
		struct msghdr msg;
		struct cmsghdr *cmsgptr;
		struct sockaddr_in6 src, dst;
		struct iovec iov;
		char ancillary[64];

		msg.msg_name = &src;
		msg.msg_namelen = sizeof(src);
		iov.iov_base = buffer;
		iov.iov_len = this->max_packet;
		msg.msg_iov = &iov;
		msg.msg_iovlen = 1;
		msg.msg_control = ancillary;
		msg.msg_controllen = sizeof(ancillary);
		msg.msg_flags = 0;

		bytes_read = recvmsg(this->recv6, &msg, 0);
		if (bytes_read < 0)
		{
			DBG1(DBG_NET, "error reading from IPv6 socket: %s", strerror(errno));
			return FAILED;
		}
		DBG3(DBG_NET, "received IPv6 packet %b", buffer, bytes_read);

		if (bytes_read < IP_LEN + UDP_LEN + MARKER_LEN)
		{
			DBG3(DBG_NET, "received IPv6 packet too short (%d bytes)",
				 bytes_read);
			return FAILED;
		}

		/* read ancillary data to get destination address */
		for (cmsgptr = CMSG_FIRSTHDR(&msg); cmsgptr != NULL;
			 cmsgptr = CMSG_NXTHDR(&msg, cmsgptr))
		{
			if (cmsgptr->cmsg_len == 0)
			{
				DBG1(DBG_NET, "error reading IPv6 ancillary data");
				return FAILED;
			}

#ifdef HAVE_IN6_PKTINFO
			if (cmsgptr->cmsg_level == SOL_IPV6 &&
				cmsgptr->cmsg_type == IPV6_2292PKTINFO)
			{
				struct in6_pktinfo *pktinfo;
				pktinfo = (struct in6_pktinfo*)CMSG_DATA(cmsgptr);

				memset(&dst, 0, sizeof(dst));
				memcpy(&dst.sin6_addr, &pktinfo->ipi6_addr, sizeof(dst.sin6_addr));
				dst.sin6_family = AF_INET6;
				udp = (struct udphdr*) (buffer);
				dst.sin6_port = udp->dest;
				src.sin6_port = udp->source;
				dest = host_create_from_sockaddr((sockaddr_t*)&dst);
			}
#endif /* HAVE_IN6_PKTINFO */
		}
		/* ancillary data missing? */
		if (dest == NULL)
		{
			DBG1(DBG_NET, "error reading IPv6 packet header");
			return FAILED;
		}

		source = host_create_from_sockaddr((sockaddr_t*)&src);

		pkt = packet_create();
		pkt->set_source(pkt, source);
		pkt->set_destination(pkt, dest);
		DBG2(DBG_NET, "received packet: from %#H to %#H", source, dest);
		data_offset = UDP_LEN;
		/* remove non esp marker */
		if (dest->get_port(dest) == CHARON_NATT_PORT)
		{
			data_offset += MARKER_LEN;
		}
		/* fill in packet */
		data.len = bytes_read - data_offset;
		data.ptr = malloc(data.len);
		memcpy(data.ptr, buffer + data_offset, data.len);
		pkt->set_data(pkt, data);
	}
	else
	{
		/* oops, shouldn't happen */
		return FAILED;
	}

	/* return packet */
	*packet = pkt;
	return SUCCESS;
}

METHOD(socket_t, sender, status_t,
	private_socket_raw_socket_t *this, packet_t *packet)
{
	int sport, skt, family;
	ssize_t bytes_sent;
	chunk_t data, marked;
	host_t *src, *dst;
	struct msghdr msg;
	struct cmsghdr *cmsg;
	struct iovec iov;

	src = packet->get_source(packet);
	dst = packet->get_destination(packet);
	data = packet->get_data(packet);

	DBG2(DBG_NET, "sending packet: from %#H to %#H", src, dst);

	/* send data */
	sport = src->get_port(src);
	family = dst->get_family(dst);
	if (sport == CHARON_UDP_PORT)
	{
		if (family == AF_INET)
		{
			skt = this->send4;
		}
		else
		{
			skt = this->send6;
		}
	}
	else if (sport == CHARON_NATT_PORT)
	{
		if (family == AF_INET)
		{
			skt = this->send4_natt;
		}
		else
		{
			skt = this->send6_natt;
		}
		/* NAT keepalives without marker */
		if (data.len != 1 || data.ptr[0] != 0xFF)
		{
			/* add non esp marker to packet */
			marked = chunk_alloc(data.len + MARKER_LEN);
			memset(marked.ptr, 0, MARKER_LEN);
			memcpy(marked.ptr + MARKER_LEN, data.ptr, data.len);
			/* let the packet do the clean up for us */
			packet->set_data(packet, marked);
			data = marked;
		}
	}
	else
	{
		DBG1(DBG_NET, "unable to locate a send socket for port %d", sport);
		return FAILED;
	}

	memset(&msg, 0, sizeof(struct msghdr));
	msg.msg_name = dst->get_sockaddr(dst);;
	msg.msg_namelen = *dst->get_sockaddr_len(dst);
	iov.iov_base = data.ptr;
	iov.iov_len = data.len;
	msg.msg_iov = &iov;
	msg.msg_iovlen = 1;
	msg.msg_flags = 0;

	if (!src->is_anyaddr(src))
	{
		if (family == AF_INET)
		{
			char buf[CMSG_SPACE(sizeof(struct in_pktinfo))];
			struct in_pktinfo *pktinfo;
			struct sockaddr_in *sin;

			msg.msg_control = buf;
			msg.msg_controllen = sizeof(buf);
			cmsg = CMSG_FIRSTHDR(&msg);
			cmsg->cmsg_level = SOL_IP;
			cmsg->cmsg_type = IP_PKTINFO;
			cmsg->cmsg_len = CMSG_LEN(sizeof(struct in_pktinfo));
			pktinfo = (struct in_pktinfo*)CMSG_DATA(cmsg);
			memset(pktinfo, 0, sizeof(struct in_pktinfo));
			sin = (struct sockaddr_in*)src->get_sockaddr(src);
			memcpy(&pktinfo->ipi_spec_dst, &sin->sin_addr, sizeof(struct in_addr));
		}
#ifdef HAVE_IN6_PKTINFO
		else
		{
			char buf[CMSG_SPACE(sizeof(struct in6_pktinfo))];
			struct in6_pktinfo *pktinfo;
			struct sockaddr_in6 *sin;

			msg.msg_control = buf;
			msg.msg_controllen = sizeof(buf);
			cmsg = CMSG_FIRSTHDR(&msg);
			cmsg->cmsg_level = SOL_IPV6;
			cmsg->cmsg_type = IPV6_2292PKTINFO;
			cmsg->cmsg_len = CMSG_LEN(sizeof(struct in6_pktinfo));
			pktinfo = (struct in6_pktinfo*)CMSG_DATA(cmsg);
			memset(pktinfo, 0, sizeof(struct in6_pktinfo));
			sin = (struct sockaddr_in6*)src->get_sockaddr(src);
			memcpy(&pktinfo->ipi6_addr, &sin->sin6_addr, sizeof(struct in6_addr));
		}
#endif /* HAVE_IN6_PKTINFO */
	}

	bytes_sent = sendmsg(skt, &msg, 0);

	if (bytes_sent != data.len)
	{
		DBG1(DBG_NET, "error writing to socket: %s", strerror(errno));
		return FAILED;
	}
	return SUCCESS;
}

/**
 * open a socket to send packets
 */
static int open_send_socket(private_socket_raw_socket_t *this,
							int family, u_int16_t port)
{
	int on = TRUE;
	int type = UDP_ENCAP_ESPINUDP;
	struct sockaddr_storage addr;
	int skt;

	memset(&addr, 0, sizeof(addr));
	addr.ss_family = family;
	/* precalculate constants depending on address family */
	switch (family)
	{
		case AF_INET:
		{
			struct sockaddr_in *sin = (struct sockaddr_in *)&addr;
			htoun32(&sin->sin_addr.s_addr, INADDR_ANY);
			htoun16(&sin->sin_port, port);
			break;
		}
		case AF_INET6:
		{
			struct sockaddr_in6 *sin6 = (struct sockaddr_in6 *)&addr;
			memcpy(&sin6->sin6_addr, &in6addr_any, sizeof(in6addr_any));
			htoun16(&sin6->sin6_port, port);
			break;
		}
		default:
			return 0;
	}

	skt = socket(family, SOCK_DGRAM, IPPROTO_UDP);
	if (skt < 0)
	{
		DBG1(DBG_NET, "could not open send socket: %s", strerror(errno));
		return 0;
	}

	if (setsockopt(skt, SOL_SOCKET, SO_REUSEADDR, (void*)&on, sizeof(on)) < 0)
	{
		DBG1(DBG_NET, "unable to set SO_REUSEADDR on send socket: %s",
			 strerror(errno));
		close(skt);
		return 0;
	}

	/* bind the send socket */
	if (bind(skt, (struct sockaddr *)&addr, sizeof(addr)) < 0)
	{
		DBG1(DBG_NET, "unable to bind send socket: %s",
			 strerror(errno));
		close(skt);
		return 0;
	}

	if (family == AF_INET)
	{
		/* enable UDP decapsulation globally, only for one socket needed */
		if (setsockopt(skt, SOL_UDP, UDP_ENCAP, &type, sizeof(type)) < 0)
		{
			DBG1(DBG_NET, "unable to set UDP_ENCAP: %s; NAT-T may fail",
				 strerror(errno));
		}
	}

	if (!hydra->kernel_interface->bypass_socket(hydra->kernel_interface,
												skt, family))
	{
		DBG1(DBG_NET, "installing bypass policy on send socket failed");
	}

	return skt;
}

/**
 * open a socket to receive packets
 */
static int open_recv_socket(private_socket_raw_socket_t *this, int family)
{
	int skt;
	int on = TRUE;
	u_int ip_len, sol, udp_header, ike_header;

	/* precalculate constants depending on address family */
	switch (family)
	{
		case AF_INET:
			ip_len = IP_LEN;
			sol = SOL_IP;
			break;
		case AF_INET6:
			ip_len = 0; /* IPv6 raw sockets contain no IP header */
			sol = SOL_IPV6;
			break;
		default:
			return 0;
	}
	udp_header = ip_len;
	ike_header = ip_len + UDP_LEN;

	/* This filter code filters out all non-IKEv2 traffic on
	 * a SOCK_RAW IP_PROTP_UDP socket. Handling of other
	 * IKE versions is done in pluto.
	 */
	struct sock_filter ikev2_filter_code[] =
	{
		/* Destination Port must be either port or natt_port */
		BPF_STMT(BPF_LD+BPF_H+BPF_ABS, udp_header + 2),
		BPF_JUMP(BPF_JMP+BPF_JEQ+BPF_K, CHARON_UDP_PORT, 1, 0),
		BPF_JUMP(BPF_JMP+BPF_JEQ+BPF_K, CHARON_NATT_PORT, 6, 14),
		/* port */
			/* IKE version must be 2.x */
			BPF_STMT(BPF_LD+BPF_B+BPF_ABS, ike_header + IKE_VERSION_OFFSET),
			BPF_STMT(BPF_ALU+BPF_RSH+BPF_K, 4),
			BPF_JUMP(BPF_JMP+BPF_JEQ+BPF_K, 2, 0, 11),
			/* packet length is length in IKEv2 header + ip header + udp header */
			BPF_STMT(BPF_LD+BPF_W+BPF_ABS, ike_header + IKE_LENGTH_OFFSET),
			BPF_STMT(BPF_ALU+BPF_ADD+BPF_K, ip_len + UDP_LEN),
			BPF_STMT(BPF_RET+BPF_A, 0),
		/* natt_port */
			/* nat-t: check for marker */
			BPF_STMT(BPF_LD+BPF_W+BPF_ABS, ike_header),
			BPF_JUMP(BPF_JMP+BPF_JEQ+BPF_K, 0, 0, 6),
			/* nat-t: IKE version must be 2.x */
			BPF_STMT(BPF_LD+BPF_B+BPF_ABS, ike_header + MARKER_LEN + IKE_VERSION_OFFSET),
			BPF_STMT(BPF_ALU+BPF_RSH+BPF_K, 4),
			BPF_JUMP(BPF_JMP+BPF_JEQ+BPF_K, 2, 0, 3),
			/* nat-t: packet length is length in IKEv2 header + ip header + udp header + non esp marker */
			BPF_STMT(BPF_LD+BPF_W+BPF_ABS, ike_header + MARKER_LEN + IKE_LENGTH_OFFSET),
			BPF_STMT(BPF_ALU+BPF_ADD+BPF_K, ip_len + UDP_LEN + MARKER_LEN),
			BPF_STMT(BPF_RET+BPF_A, 0),
		/* packet doesn't match, ignore */
		BPF_STMT(BPF_RET+BPF_K, 0),
	};

	/* Filter struct to use with setsockopt */
	struct sock_fprog ikev2_filter = {
		sizeof(ikev2_filter_code) / sizeof(struct sock_filter),
		ikev2_filter_code
	};

	/* set up a raw socket */
	skt = socket(family, SOCK_RAW, IPPROTO_UDP);
	if (skt < 0)
	{
		DBG1(DBG_NET, "unable to create raw socket: %s", strerror(errno));
		return 0;
	}

	if (setsockopt(skt, SOL_SOCKET, SO_ATTACH_FILTER,
				   &ikev2_filter, sizeof(ikev2_filter)) < 0)
	{
		DBG1(DBG_NET, "unable to attach IKEv2 filter to raw socket: %s",
			 strerror(errno));
		close(skt);
		return 0;
	}

	if (family == AF_INET6 &&
		/* we use IPV6_2292PKTINFO, as IPV6_PKTINFO is defined as
		 * 2 or 50 depending on kernel header version */
		setsockopt(skt, sol, IPV6_2292PKTINFO, &on, sizeof(on)) < 0)
	{
		DBG1(DBG_NET, "unable to set IPV6_PKTINFO on raw socket: %s",
			 strerror(errno));
		close(skt);
		return 0;
	}

	if (!hydra->kernel_interface->bypass_socket(hydra->kernel_interface,
												skt, family))
	{
		DBG1(DBG_NET, "installing bypass policy on receive socket failed");
	}

	return skt;
}

METHOD(socket_t, destroy, void,
	private_socket_raw_socket_t *this)
{
	if (this->recv4)
	{
		close(this->recv4);
	}
	if (this->recv6)
	{
		close(this->recv6);
	}
	if (this->send4)
	{
		close(this->send4);
	}
	if (this->send6)
	{
		close(this->send6);
	}
	if (this->send4_natt)
	{
		close(this->send4_natt);
	}
	if (this->send6_natt)
	{
		close(this->send6_natt);
	}
	free(this);
}

/*
 * See header for description
 */
socket_raw_socket_t *socket_raw_socket_create()
{
	private_socket_raw_socket_t *this;

	INIT(this,
		.public = {
			.socket = {
				.send = _sender,
				.receive = _receiver,
				.destroy = _destroy,
			},
		},
		.max_packet = lib->settings->get_int(lib->settings,
									"%s.max_packet", MAX_PACKET, charon->name),
	);

	this->recv4 = open_recv_socket(this, AF_INET);
	if (this->recv4 == 0)
	{
		DBG1(DBG_NET, "could not open IPv4 receive socket, IPv4 disabled");
	}
	else
	{
		this->send4 = open_send_socket(this, AF_INET, CHARON_UDP_PORT);
		if (this->send4 == 0)
		{
			DBG1(DBG_NET, "could not open IPv4 send socket, IPv4 disabled");
			close(this->recv4);
		}
		else
		{
			this->send4_natt = open_send_socket(this, AF_INET, CHARON_NATT_PORT);
			if (this->send4_natt == 0)
			{
				DBG1(DBG_NET, "could not open IPv4 NAT-T send socket");
			}
		}
	}

	this->recv6 = open_recv_socket(this, AF_INET6);
	if (this->recv6 == 0)
	{
		DBG1(DBG_NET, "could not open IPv6 receive socket, IPv6 disabled");
	}
	else
	{
		this->send6 = open_send_socket(this, AF_INET6, CHARON_UDP_PORT);
		if (this->send6 == 0)
		{
			DBG1(DBG_NET, "could not open IPv6 send socket, IPv6 disabled");
			close(this->recv6);
		}
		else
		{
			this->send6_natt = open_send_socket(this, AF_INET6, CHARON_NATT_PORT);
			if (this->send6_natt == 0)
			{
				DBG1(DBG_NET, "could not open IPv6 NAT-T send socket");
			}
		}
	}

	if (!(this->send4 || this->send6) || !(this->recv4 || this->recv6))
	{
		DBG1(DBG_NET, "could not create any sockets");
		destroy(this);
		return NULL;
	}

	return &this->public;
}
Commit	Line	Data
733f336a	1	/*
fa208494	2	* Copyright (C) 2006-2010 Tobias Brunner
dab05604	3	* Copyright (C) 2005-2010 Martin Willi
fa208494	4	* Copyright (C) 2006 Daniel Roethlisberger
733f336a MW	5	* Copyright (C) 2005 Jan Hutter
	6	* Hochschule fuer Technik Rapperswil
	7	*
	8	* This program is free software; you can redistribute it and/or modify it
	9	* under the terms of the GNU General Public License as published by the
	10	* Free Software Foundation; either version 2 of the License, or (at your
	11	* option) any later version. See <http://www.fsf.org/copyleft/gpl.txt>.
	12	*
	13	* This program is distributed in the hope that it will be useful, but
	14	* WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
	15	* or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
	16	* for more details.
	17	*/
	18
5e6bbf4f MW	19	/* for struct in6_pktinfo */
	20	#define _GNU_SOURCE
	21
dab05604 MW	22	#include "socket_raw_socket.h"
dab05604 MW	23
733f336a MW	24	#include <sys/types.h>
	25	#include <sys/socket.h>
	26	#include <string.h>
	27	#include <errno.h>
	28	#include <unistd.h>
	29	#include <stdlib.h>
	30	#include <fcntl.h>
	31	#include <sys/ioctl.h>
	32	#include <netinet/in.h>
	33	#include <netinet/ip.h>
733f336a	34	#include <netinet/udp.h>
81209435	35	#include <linux/types.h>
733f336a MW	36	#include <linux/filter.h>
	37	#include <net/if.h>
	38
f6659688	39	#include <hydra.h>
733f336a	40	#include <daemon.h>
4a5a5dd2	41	#include <threading/thread.h>
733f336a	42
dab05604	43	/* Maximum size of a packet */
897c7a72	44	#define MAX_PACKET 10000
dab05604	45
733f336a MW	46	/* constants for packet handling */
	47	#define IP_LEN sizeof(struct iphdr)
	48	#define IP6_LEN sizeof(struct ip6_hdr)
	49	#define UDP_LEN sizeof(struct udphdr)
	50	#define MARKER_LEN sizeof(u_int32_t)
	51
	52	/* offsets for packet handling */
	53	#define IP_PROTO_OFFSET 9
	54	#define IP6_PROTO_OFFSET 6
	55	#define IKE_VERSION_OFFSET 17
	56	#define IKE_LENGTH_OFFSET 24
	57
733f336a MW	58	/* from linux/udp.h */
	59	#ifndef UDP_ENCAP
	60	#define UDP_ENCAP 100
	61	#endif /UDP_ENCAP/
	62
	63	#ifndef UDP_ENCAP_ESPINUDP
	64	#define UDP_ENCAP_ESPINUDP 2
	65	#endif /UDP_ENCAP_ESPINUDP/
	66
	67	/* needed for older kernel headers */
	68	#ifndef IPV6_2292PKTINFO
	69	#define IPV6_2292PKTINFO 2
	70	#endif /IPV6_2292PKTINFO/
	71
dab05604	72	typedef struct private_socket_raw_socket_t private_socket_raw_socket_t;
733f336a MW	73
	74	/**
	75	* Private data of an socket_t object
	76	*/
dab05604 MW	77	struct private_socket_raw_socket_t {
dab05604 MW	78
733f336a MW	79	/**
	80	* public functions
	81	*/
dab05604 MW	82	socket_raw_socket_t public;
	83
	84	/**
	85	* regular port
	86	*/
	87	int port;
	88
	89	/**
	90	* port used for nat-t
	91	*/
	92	int natt_port;
	93
	94	/**
	95	* raw receiver socket for IPv4
	96	*/
	97	int recv4;
	98
	99	/**
	100	* raw receiver socket for IPv6
	101	*/
	102	int recv6;
	103
	104	/**
	105	* send socket on regular port for IPv4
	106	*/
	107	int send4;
	108
	109	/**
	110	* send socket on regular port for IPv6
	111	*/
	112	int send6;
	113
	114	/**
	115	* send socket on nat-t port for IPv4
	116	*/
	117	int send4_natt;
	118
	119	/**
	120	* send socket on nat-t port for IPv6
	121	*/
	122	int send6_natt;
10a2e09b MW	123
	124	/**
	125	* Maximum packet size to receive
	126	*/
	127	int max_packet;
733f336a MW	128	};
733f336a MW	129
dab05604 MW	130	METHOD(socket_t, receiver, status_t,
dab05604 MW	131	private_socket_raw_socket_t this, packet_t *packet)
733f336a	132	{
10a2e09b	133	char buffer[this->max_packet];
733f336a MW	134	chunk_t data;
	135	packet_t *pkt;
	136	struct udphdr *udp;
	137	host_t source = NULL, dest = NULL;
4a5a5dd2 TB	138	int bytes_read = 0, data_offset;
4a5a5dd2 TB	139	bool oldstate;
733f336a MW	140	fd_set rfds;
	141
	142	FD_ZERO(&rfds);
7daf5226	143
733f336a MW	144	if (this->recv4)
	145	{
	146	FD_SET(this->recv4, &rfds);
	147	}
	148	if (this->recv6)
	149	{
	150	FD_SET(this->recv6, &rfds);
	151	}
7daf5226	152
733f336a	153	DBG2(DBG_NET, "waiting for data on raw sockets");
7daf5226	154
4a5a5dd2	155	oldstate = thread_cancelability(TRUE);
733f336a MW	156	if (select(max(this->recv4, this->recv6) + 1, &rfds, NULL, NULL, NULL) <= 0)
733f336a MW	157	{
4a5a5dd2	158	thread_cancelability(oldstate);
733f336a MW	159	return FAILED;
733f336a MW	160	}
4a5a5dd2	161	thread_cancelability(oldstate);
7daf5226	162
733f336a MW	163	if (this->recv4 && FD_ISSET(this->recv4, &rfds))
	164	{
	165	/* IPv4 raw sockets return the IP header. We read src/dest
	166	* information directly from the raw header */
	167	struct iphdr *ip;
	168	struct sockaddr_in src, dst;
7daf5226	169
10a2e09b	170	bytes_read = recv(this->recv4, buffer, this->max_packet, 0);
733f336a MW	171	if (bytes_read < 0)
	172	{
	173	DBG1(DBG_NET, "error reading from IPv4 socket: %s", strerror(errno));
	174	return FAILED;
	175	}
aea735ef MW	176	if (bytes_read == this->max_packet)
	177	{
	178	DBG1(DBG_NET, "receive buffer too small, packet discarded");
	179	return FAILED;
	180	}
733f336a	181	DBG3(DBG_NET, "received IPv4 packet %b", buffer, bytes_read);
7daf5226	182
733f336a MW	183	/* read source/dest from raw IP/UDP header */
	184	if (bytes_read < IP_LEN + UDP_LEN + MARKER_LEN)
	185	{
	186	DBG1(DBG_NET, "received IPv4 packet too short (%d bytes)",
	187	bytes_read);
	188	return FAILED;
	189	}
	190	ip = (struct iphdr*) buffer;
	191	udp = (struct udphdr*) (buffer + IP_LEN);
	192	src.sin_family = AF_INET;
	193	src.sin_addr.s_addr = ip->saddr;
	194	src.sin_port = udp->source;
	195	dst.sin_family = AF_INET;
	196	dst.sin_addr.s_addr = ip->daddr;
	197	dst.sin_port = udp->dest;
	198	source = host_create_from_sockaddr((sockaddr_t*)&src);
	199	dest = host_create_from_sockaddr((sockaddr_t*)&dst);
7daf5226	200
733f336a MW	201	pkt = packet_create();
	202	pkt->set_source(pkt, source);
	203	pkt->set_destination(pkt, dest);
	204	DBG2(DBG_NET, "received packet: from %#H to %#H", source, dest);
	205	data_offset = IP_LEN + UDP_LEN;
7daf5226	206	/* remove non esp marker */
e7ea057f	207	if (dest->get_port(dest) == CHARON_NATT_PORT)
733f336a MW	208	{
	209	data_offset += MARKER_LEN;
	210	}
	211	/* fill in packet */
	212	data.len = bytes_read - data_offset;
	213	data.ptr = malloc(data.len);
	214	memcpy(data.ptr, buffer + data_offset, data.len);
	215	pkt->set_data(pkt, data);
	216	}
	217	else if (this->recv6 && FD_ISSET(this->recv6, &rfds))
	218	{
	219	/* IPv6 raw sockets return no IP header. We must query
	220	* src/dest via socket options/ancillary data */
	221	struct msghdr msg;
	222	struct cmsghdr *cmsgptr;
	223	struct sockaddr_in6 src, dst;
	224	struct iovec iov;
	225	char ancillary[64];
7daf5226	226
733f336a MW	227	msg.msg_name = &src;
	228	msg.msg_namelen = sizeof(src);
	229	iov.iov_base = buffer;
10a2e09b	230	iov.iov_len = this->max_packet;
733f336a MW	231	msg.msg_iov = &iov;
	232	msg.msg_iovlen = 1;
	233	msg.msg_control = ancillary;
	234	msg.msg_controllen = sizeof(ancillary);
	235	msg.msg_flags = 0;
7daf5226	236
733f336a MW	237	bytes_read = recvmsg(this->recv6, &msg, 0);
	238	if (bytes_read < 0)
	239	{
	240	DBG1(DBG_NET, "error reading from IPv6 socket: %s", strerror(errno));
	241	return FAILED;
	242	}
	243	DBG3(DBG_NET, "received IPv6 packet %b", buffer, bytes_read);
7daf5226	244
733f336a MW	245	if (bytes_read < IP_LEN + UDP_LEN + MARKER_LEN)
	246	{
	247	DBG3(DBG_NET, "received IPv6 packet too short (%d bytes)",
	248	bytes_read);
	249	return FAILED;
	250	}
7daf5226	251
733f336a MW	252	/* read ancillary data to get destination address */
	253	for (cmsgptr = CMSG_FIRSTHDR(&msg); cmsgptr != NULL;
	254	cmsgptr = CMSG_NXTHDR(&msg, cmsgptr))
	255	{
	256	if (cmsgptr->cmsg_len == 0)
	257	{
	258	DBG1(DBG_NET, "error reading IPv6 ancillary data");
	259	return FAILED;
7daf5226	260	}
03ef4e34 TB	261
03ef4e34 TB	262	#ifdef HAVE_IN6_PKTINFO
733f336a MW	263	if (cmsgptr->cmsg_level == SOL_IPV6 &&
	264	cmsgptr->cmsg_type == IPV6_2292PKTINFO)
	265	{
	266	struct in6_pktinfo *pktinfo;
	267	pktinfo = (struct in6_pktinfo*)CMSG_DATA(cmsgptr);
7daf5226	268
733f336a MW	269	memset(&dst, 0, sizeof(dst));
	270	memcpy(&dst.sin6_addr, &pktinfo->ipi6_addr, sizeof(dst.sin6_addr));
	271	dst.sin6_family = AF_INET6;
	272	udp = (struct udphdr*) (buffer);
	273	dst.sin6_port = udp->dest;
	274	src.sin6_port = udp->source;
	275	dest = host_create_from_sockaddr((sockaddr_t*)&dst);
	276	}
03ef4e34	277	#endif /* HAVE_IN6_PKTINFO */
733f336a MW	278	}
	279	/* ancillary data missing? */
	280	if (dest == NULL)
	281	{
	282	DBG1(DBG_NET, "error reading IPv6 packet header");
	283	return FAILED;
	284	}
7daf5226	285
733f336a	286	source = host_create_from_sockaddr((sockaddr_t*)&src);
7daf5226	287
733f336a MW	288	pkt = packet_create();
	289	pkt->set_source(pkt, source);
	290	pkt->set_destination(pkt, dest);
	291	DBG2(DBG_NET, "received packet: from %#H to %#H", source, dest);
	292	data_offset = UDP_LEN;
7daf5226	293	/* remove non esp marker */
e7ea057f	294	if (dest->get_port(dest) == CHARON_NATT_PORT)
733f336a MW	295	{
	296	data_offset += MARKER_LEN;
	297	}
	298	/* fill in packet */
	299	data.len = bytes_read - data_offset;
	300	data.ptr = malloc(data.len);
	301	memcpy(data.ptr, buffer + data_offset, data.len);
	302	pkt->set_data(pkt, data);
	303	}
	304	else
	305	{
	306	/* oops, shouldn't happen */
	307	return FAILED;
	308	}
7daf5226	309
733f336a MW	310	/* return packet */
	311	*packet = pkt;
	312	return SUCCESS;
	313	}
	314
dab05604 MW	315	METHOD(socket_t, sender, status_t,
dab05604 MW	316	private_socket_raw_socket_t this, packet_t packet)
733f336a MW	317	{
	318	int sport, skt, family;
	319	ssize_t bytes_sent;
	320	chunk_t data, marked;
	321	host_t src, dst;
	322	struct msghdr msg;
	323	struct cmsghdr *cmsg;
	324	struct iovec iov;
7daf5226	325
733f336a MW	326	src = packet->get_source(packet);
	327	dst = packet->get_destination(packet);
	328	data = packet->get_data(packet);
	329
	330	DBG2(DBG_NET, "sending packet: from %#H to %#H", src, dst);
7daf5226	331
733f336a MW	332	/* send data */
	333	sport = src->get_port(src);
	334	family = dst->get_family(dst);
e7ea057f	335	if (sport == CHARON_UDP_PORT)
733f336a MW	336	{
	337	if (family == AF_INET)
	338	{
	339	skt = this->send4;
	340	}
	341	else
	342	{
	343	skt = this->send6;
	344	}
	345	}
e7ea057f	346	else if (sport == CHARON_NATT_PORT)
733f336a MW	347	{
	348	if (family == AF_INET)
	349	{
	350	skt = this->send4_natt;
	351	}
	352	else
	353	{
	354	skt = this->send6_natt;
	355	}
	356	/* NAT keepalives without marker */
	357	if (data.len != 1 \|\| data.ptr[0] != 0xFF)
	358	{
	359	/* add non esp marker to packet */
733f336a MW	360	marked = chunk_alloc(data.len + MARKER_LEN);
	361	memset(marked.ptr, 0, MARKER_LEN);
	362	memcpy(marked.ptr + MARKER_LEN, data.ptr, data.len);
	363	/* let the packet do the clean up for us */
	364	packet->set_data(packet, marked);
	365	data = marked;
	366	}
	367	}
	368	else
	369	{
	370	DBG1(DBG_NET, "unable to locate a send socket for port %d", sport);
	371	return FAILED;
	372	}
7daf5226	373
733f336a MW	374	memset(&msg, 0, sizeof(struct msghdr));
	375	msg.msg_name = dst->get_sockaddr(dst);;
	376	msg.msg_namelen = *dst->get_sockaddr_len(dst);
	377	iov.iov_base = data.ptr;
	378	iov.iov_len = data.len;
	379	msg.msg_iov = &iov;
	380	msg.msg_iovlen = 1;
	381	msg.msg_flags = 0;
7daf5226	382
2fdca5e3	383	if (!src->is_anyaddr(src))
733f336a MW	384	{
	385	if (family == AF_INET)
	386	{
	387	char buf[CMSG_SPACE(sizeof(struct in_pktinfo))];
	388	struct in_pktinfo *pktinfo;
	389	struct sockaddr_in *sin;
7daf5226	390
733f336a MW	391	msg.msg_control = buf;
	392	msg.msg_controllen = sizeof(buf);
	393	cmsg = CMSG_FIRSTHDR(&msg);
	394	cmsg->cmsg_level = SOL_IP;
	395	cmsg->cmsg_type = IP_PKTINFO;
	396	cmsg->cmsg_len = CMSG_LEN(sizeof(struct in_pktinfo));
	397	pktinfo = (struct in_pktinfo*)CMSG_DATA(cmsg);
	398	memset(pktinfo, 0, sizeof(struct in_pktinfo));
	399	sin = (struct sockaddr_in*)src->get_sockaddr(src);
	400	memcpy(&pktinfo->ipi_spec_dst, &sin->sin_addr, sizeof(struct in_addr));
	401	}
03ef4e34	402	#ifdef HAVE_IN6_PKTINFO
733f336a MW	403	else
	404	{
	405	char buf[CMSG_SPACE(sizeof(struct in6_pktinfo))];
	406	struct in6_pktinfo *pktinfo;
	407	struct sockaddr_in6 *sin;
7daf5226	408
733f336a MW	409	msg.msg_control = buf;
	410	msg.msg_controllen = sizeof(buf);
	411	cmsg = CMSG_FIRSTHDR(&msg);
	412	cmsg->cmsg_level = SOL_IPV6;
	413	cmsg->cmsg_type = IPV6_2292PKTINFO;
	414	cmsg->cmsg_len = CMSG_LEN(sizeof(struct in6_pktinfo));
	415	pktinfo = (struct in6_pktinfo*)CMSG_DATA(cmsg);
	416	memset(pktinfo, 0, sizeof(struct in6_pktinfo));
	417	sin = (struct sockaddr_in6*)src->get_sockaddr(src);
	418	memcpy(&pktinfo->ipi6_addr, &sin->sin6_addr, sizeof(struct in6_addr));
	419	}
03ef4e34	420	#endif /* HAVE_IN6_PKTINFO */
733f336a	421	}
7daf5226	422
733f336a MW	423	bytes_sent = sendmsg(skt, &msg, 0);
	424
	425	if (bytes_sent != data.len)
	426	{
	427	DBG1(DBG_NET, "error writing to socket: %s", strerror(errno));
	428	return FAILED;
	429	}
	430	return SUCCESS;
	431	}
	432
	433	/**
	434	* open a socket to send packets
	435	*/
dab05604 MW	436	static int open_send_socket(private_socket_raw_socket_t *this,
dab05604 MW	437	int family, u_int16_t port)
733f336a MW	438	{
	439	int on = TRUE;
	440	int type = UDP_ENCAP_ESPINUDP;
	441	struct sockaddr_storage addr;
733f336a	442	int skt;
7daf5226	443
733f336a	444	memset(&addr, 0, sizeof(addr));
3fcacd28	445	addr.ss_family = family;
733f336a MW	446	/* precalculate constants depending on address family */
	447	switch (family)
	448	{
	449	case AF_INET:
	450	{
	451	struct sockaddr_in sin = (struct sockaddr_in )&addr;
3fcacd28 MW	452	htoun32(&sin->sin_addr.s_addr, INADDR_ANY);
3fcacd28 MW	453	htoun16(&sin->sin_port, port);
733f336a MW	454	break;
	455	}
	456	case AF_INET6:
	457	{
	458	struct sockaddr_in6 sin6 = (struct sockaddr_in6 )&addr;
733f336a	459	memcpy(&sin6->sin6_addr, &in6addr_any, sizeof(in6addr_any));
3fcacd28	460	htoun16(&sin6->sin6_port, port);
733f336a MW	461	break;
	462	}
	463	default:
	464	return 0;
	465	}
7daf5226	466
733f336a MW	467	skt = socket(family, SOCK_DGRAM, IPPROTO_UDP);
	468	if (skt < 0)
	469	{
	470	DBG1(DBG_NET, "could not open send socket: %s", strerror(errno));
	471	return 0;
	472	}
7daf5226	473
733f336a MW	474	if (setsockopt(skt, SOL_SOCKET, SO_REUSEADDR, (void*)&on, sizeof(on)) < 0)
	475	{
	476	DBG1(DBG_NET, "unable to set SO_REUSEADDR on send socket: %s",
	477	strerror(errno));
	478	close(skt);
	479	return 0;
	480	}
7daf5226	481
733f336a MW	482	/* bind the send socket */
	483	if (bind(skt, (struct sockaddr *)&addr, sizeof(addr)) < 0)
	484	{
	485	DBG1(DBG_NET, "unable to bind send socket: %s",
	486	strerror(errno));
	487	close(skt);
	488	return 0;
	489	}
7daf5226	490
733f336a MW	491	if (family == AF_INET)
	492	{
	493	/* enable UDP decapsulation globally, only for one socket needed */
	494	if (setsockopt(skt, SOL_UDP, UDP_ENCAP, &type, sizeof(type)) < 0)
	495	{
	496	DBG1(DBG_NET, "unable to set UDP_ENCAP: %s; NAT-T may fail",
	497	strerror(errno));
	498	}
	499	}
7daf5226	500
f6659688 TB	501	if (!hydra->kernel_interface->bypass_socket(hydra->kernel_interface,
f6659688 TB	502	skt, family))
54f81859 MW	503	{
	504	DBG1(DBG_NET, "installing bypass policy on send socket failed");
	505	}
	506
733f336a MW	507	return skt;
	508	}
	509
	510	/**
	511	* open a socket to receive packets
	512	*/
dab05604	513	static int open_recv_socket(private_socket_raw_socket_t *this, int family)
733f336a MW	514	{
	515	int skt;
	516	int on = TRUE;
513701f4	517	u_int ip_len, sol, udp_header, ike_header;
7daf5226	518
733f336a MW	519	/* precalculate constants depending on address family */
	520	switch (family)
	521	{
	522	case AF_INET:
733f336a MW	523	ip_len = IP_LEN;
733f336a MW	524	sol = SOL_IP;
733f336a MW	525	break;
733f336a MW	526	case AF_INET6:
733f336a MW	527	ip_len = 0; /* IPv6 raw sockets contain no IP header */
733f336a MW	528	sol = SOL_IPV6;
733f336a MW	529	break;
	530	default:
	531	return 0;
	532	}
	533	udp_header = ip_len;
	534	ike_header = ip_len + UDP_LEN;
7daf5226	535
733f336a MW	536	/* This filter code filters out all non-IKEv2 traffic on
	537	* a SOCK_RAW IP_PROTP_UDP socket. Handling of other
	538	* IKE versions is done in pluto.
	539	*/
	540	struct sock_filter ikev2_filter_code[] =
	541	{
	542	/* Destination Port must be either port or natt_port */
	543	BPF_STMT(BPF_LD+BPF_H+BPF_ABS, udp_header + 2),
e7ea057f TB	544	BPF_JUMP(BPF_JMP+BPF_JEQ+BPF_K, CHARON_UDP_PORT, 1, 0),
e7ea057f TB	545	BPF_JUMP(BPF_JMP+BPF_JEQ+BPF_K, CHARON_NATT_PORT, 6, 14),
733f336a	546	/* port */
169eae52	547	/* IKE version must be 2.x */
733f336a	548	BPF_STMT(BPF_LD+BPF_B+BPF_ABS, ike_header + IKE_VERSION_OFFSET),
169eae52 MW	549	BPF_STMT(BPF_ALU+BPF_RSH+BPF_K, 4),
169eae52 MW	550	BPF_JUMP(BPF_JMP+BPF_JEQ+BPF_K, 2, 0, 11),
733f336a MW	551	/* packet length is length in IKEv2 header + ip header + udp header */
	552	BPF_STMT(BPF_LD+BPF_W+BPF_ABS, ike_header + IKE_LENGTH_OFFSET),
	553	BPF_STMT(BPF_ALU+BPF_ADD+BPF_K, ip_len + UDP_LEN),
	554	BPF_STMT(BPF_RET+BPF_A, 0),
	555	/* natt_port */
	556	/* nat-t: check for marker */
	557	BPF_STMT(BPF_LD+BPF_W+BPF_ABS, ike_header),
169eae52 MW	558	BPF_JUMP(BPF_JMP+BPF_JEQ+BPF_K, 0, 0, 6),
169eae52 MW	559	/* nat-t: IKE version must be 2.x */
733f336a	560	BPF_STMT(BPF_LD+BPF_B+BPF_ABS, ike_header + MARKER_LEN + IKE_VERSION_OFFSET),
169eae52 MW	561	BPF_STMT(BPF_ALU+BPF_RSH+BPF_K, 4),
169eae52 MW	562	BPF_JUMP(BPF_JMP+BPF_JEQ+BPF_K, 2, 0, 3),
733f336a MW	563	/* nat-t: packet length is length in IKEv2 header + ip header + udp header + non esp marker */
	564	BPF_STMT(BPF_LD+BPF_W+BPF_ABS, ike_header + MARKER_LEN + IKE_LENGTH_OFFSET),
	565	BPF_STMT(BPF_ALU+BPF_ADD+BPF_K, ip_len + UDP_LEN + MARKER_LEN),
	566	BPF_STMT(BPF_RET+BPF_A, 0),
	567	/* packet doesn't match, ignore */
	568	BPF_STMT(BPF_RET+BPF_K, 0),
	569	};
	570
	571	/* Filter struct to use with setsockopt */
	572	struct sock_fprog ikev2_filter = {
	573	sizeof(ikev2_filter_code) / sizeof(struct sock_filter),
	574	ikev2_filter_code
	575	};
7daf5226	576
733f336a MW	577	/* set up a raw socket */
	578	skt = socket(family, SOCK_RAW, IPPROTO_UDP);
	579	if (skt < 0)
	580	{
	581	DBG1(DBG_NET, "unable to create raw socket: %s", strerror(errno));
	582	return 0;
	583	}
7daf5226	584
733f336a MW	585	if (setsockopt(skt, SOL_SOCKET, SO_ATTACH_FILTER,
	586	&ikev2_filter, sizeof(ikev2_filter)) < 0)
	587	{
	588	DBG1(DBG_NET, "unable to attach IKEv2 filter to raw socket: %s",
	589	strerror(errno));
	590	close(skt);
	591	return 0;
	592	}
7daf5226	593
733f336a MW	594	if (family == AF_INET6 &&
	595	/* we use IPV6_2292PKTINFO, as IPV6_PKTINFO is defined as
	596	* 2 or 50 depending on kernel header version */
	597	setsockopt(skt, sol, IPV6_2292PKTINFO, &on, sizeof(on)) < 0)
	598	{
	599	DBG1(DBG_NET, "unable to set IPV6_PKTINFO on raw socket: %s",
	600	strerror(errno));
	601	close(skt);
	602	return 0;
	603	}
7daf5226	604
f6659688 TB	605	if (!hydra->kernel_interface->bypass_socket(hydra->kernel_interface,
f6659688 TB	606	skt, family))
733f336a	607	{
54f81859	608	DBG1(DBG_NET, "installing bypass policy on receive socket failed");
733f336a	609	}
81209435	610
54f81859	611	return skt;
733f336a MW	612	}
733f336a MW	613
fa208494	614	METHOD(socket_t, destroy, void,
dab05604	615	private_socket_raw_socket_t *this)
733f336a MW	616	{
	617	if (this->recv4)
	618	{
	619	close(this->recv4);
	620	}
	621	if (this->recv6)
	622	{
	623	close(this->recv6);
	624	}
	625	if (this->send4)
	626	{
	627	close(this->send4);
	628	}
	629	if (this->send6)
	630	{
	631	close(this->send6);
	632	}
	633	if (this->send4_natt)
	634	{
	635	close(this->send4_natt);
	636	}
	637	if (this->send6_natt)
	638	{
	639	close(this->send6_natt);
	640	}
	641	free(this);
	642	}
	643
	644	/*
	645	* See header for description
	646	*/
dab05604	647	socket_raw_socket_t *socket_raw_socket_create()
733f336a	648	{
dab05604 MW	649	private_socket_raw_socket_t *this;
	650
	651	INIT(this,
	652	.public = {
	653	.socket = {
	654	.send = _sender,
	655	.receive = _receiver,
fa208494	656	.destroy = _destroy,
dab05604	657	},
dab05604	658	},
10a2e09b	659	.max_packet = lib->settings->get_int(lib->settings,
42500c27	660	"%s.max_packet", MAX_PACKET, charon->name),
dab05604	661	);
7daf5226	662
733f336a MW	663	this->recv4 = open_recv_socket(this, AF_INET);
	664	if (this->recv4 == 0)
	665	{
	666	DBG1(DBG_NET, "could not open IPv4 receive socket, IPv4 disabled");
	667	}
	668	else
	669	{
e7ea057f	670	this->send4 = open_send_socket(this, AF_INET, CHARON_UDP_PORT);
733f336a MW	671	if (this->send4 == 0)
	672	{
	673	DBG1(DBG_NET, "could not open IPv4 send socket, IPv4 disabled");
	674	close(this->recv4);
	675	}
	676	else
	677	{
e7ea057f	678	this->send4_natt = open_send_socket(this, AF_INET, CHARON_NATT_PORT);
733f336a MW	679	if (this->send4_natt == 0)
	680	{
	681	DBG1(DBG_NET, "could not open IPv4 NAT-T send socket");
	682	}
	683	}
	684	}
7daf5226	685
733f336a MW	686	this->recv6 = open_recv_socket(this, AF_INET6);
	687	if (this->recv6 == 0)
	688	{
	689	DBG1(DBG_NET, "could not open IPv6 receive socket, IPv6 disabled");
	690	}
	691	else
	692	{
e7ea057f	693	this->send6 = open_send_socket(this, AF_INET6, CHARON_UDP_PORT);
733f336a MW	694	if (this->send6 == 0)
	695	{
	696	DBG1(DBG_NET, "could not open IPv6 send socket, IPv6 disabled");
	697	close(this->recv6);
	698	}
	699	else
	700	{
e7ea057f	701	this->send6_natt = open_send_socket(this, AF_INET6, CHARON_NATT_PORT);
733f336a MW	702	if (this->send6_natt == 0)
	703	{
	704	DBG1(DBG_NET, "could not open IPv6 NAT-T send socket");
	705	}
	706	}
	707	}
7daf5226	708
733f336a MW	709	if (!(this->send4 \|\| this->send6) \|\| !(this->recv4 \|\| this->recv6))
	710	{
	711	DBG1(DBG_NET, "could not create any sockets");
	712	destroy(this);
dab05604	713	return NULL;
733f336a	714	}
7daf5226	715
dab05604	716	return &this->public;
733f336a	717	}