Differential D26137 Diff 80071 sys/dev/if_wg/module/if_wg_session.c

Changeset View

Standalone View

sys/dev/if_wg/module/if_wg_session.c

This file was added.

				/*
				* Copyright (C) 2015-2020 Jason A. Donenfeld <Jason@zx2c4.com>. All Rights Reserved.
				* Copyright (C) 2019-2020 Matt Dunwoodie <ncon@noconroy.net>
				* Copyright (c) 2019-2020 Netgate, Inc.
				*
				* Permission to use, copy, modify, and distribute this software for any
				* purpose with or without fee is hereby granted, provided that the above
				* copyright notice and this permission notice appear in all copies.
				*
				* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
				* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
				* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
				* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
				* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
				* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
				* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
				*/

				#include "opt_inet.h"
				#include "opt_inet6.h"

				#include <sys/param.h>
				#include <sys/types.h>
				#include <sys/systm.h>
				#include <vm/uma.h>

				#include <sys/mbuf.h>
				#include <sys/socket.h>
				#include <sys/kernel.h>

				#include <sys/sockio.h>
				#include <sys/socketvar.h>
				#include <sys/errno.h>
				#include <sys/proc.h>
				#include <sys/lock.h>
				#include <sys/rwlock.h>
				#include <sys/protosw.h>
				#include <sys/endian.h>
				#include <sys/kdb.h>
				#include <sys/sysctl.h>

				#include <net/bpf.h>


				#include <sys/support.h>
				#include <sys/if_wg_session.h>
				#include <sys/if_wg_session_vars.h>
				//#include <sys/wg_module.h>
				#include <sys/syslog.h>

				#include <netinet/in.h>
				#include <netinet/in_var.h>
				#include <netinet/ip.h>
				#include <netinet/ip_var.h>
				#include <netinet/ip6.h>
				#include <netinet6/ip6_var.h>
				#include <netinet6/scope6_var.h>
				#include <netinet/udp.h>
				#include <netinet/ip_icmp.h>
				#include <netinet/icmp6.h>
				#include <netinet/in_pcb.h>
				#include <netinet6/in6_pcb.h>
				#include <netinet/udp_var.h>

				#include <crypto/blake2s.h>
				#include <crypto/curve25519.h>
				//#include <crypto/chachapoly.h>
				#include <machine/in_cksum.h>

				#define MAX_STAGED_PKT 128
				#define MAX_QUEUED_PKT 512

				#define GROUPTASK_DRAIN(gtask) \
				gtaskqueue_drain((gtask)->gt_taskqueue, &(gtask)->gt_task)
				TASKQGROUP_DECLARE(if_io_tqg);

				struct wg_pkt_initiation {
				uint32_t t;
				struct noise_initiation init;
				struct cookie_macs m;
				} __packed;

				struct wg_pkt_response {
				uint32_t t;
				struct noise_response resp;
				struct cookie_macs m;
				} __packed;

				struct wg_pkt_cookie {
				uint32_t t;
				uint32_t r_idx;
				uint8_t nonce[COOKIE_XNONCE_SIZE];
				uint8_t ec[COOKIE_ENCRYPTED_SIZE];
				} __packed;

				struct wg_pkt_data {
				uint32_t t;
				struct noise_data data;
				} __packed;

				#define MTAG_WIREGUARD 0xBEAD
				#define WG_PKT_WITH_PADDING(n) (((n) + (16-1)) & (~(16-1)))

				SYSCTL_NODE(_net, OID_AUTO, wg, CTLFLAG_RW, 0, "Wireguard");
				static int wireguard_debug;
				SYSCTL_INT(_net_wg, OID_AUTO, debug, CTLFLAG_RWTUN, &wireguard_debug, 0,
				"enable debug logging");


				#define DPRINTF(sc, ...) if (wireguard_debug) if_printf(sc->sc_ifp, ##__VA_ARGS__)

				/* Socket */
				int wg_socket_close(struct wg_socket *);
				static int wg_socket_bind(struct wg_softc sc, struct wg_socket );
				static int wg_send(struct wg_softc , struct wg_endpoint , struct mbuf *);

				/* Timers */
				static int wg_timers_expired_handshake_last_sent(struct wg_timers *);


				static void wg_timers_event_data_sent(struct wg_timers *);
				static void wg_timers_event_data_received(struct wg_timers *);
				static void wg_timers_event_any_authenticated_packet_sent(struct wg_timers *);
				static void wg_timers_event_any_authenticated_packet_received(struct wg_timers *);
				static void wg_timers_event_handshake_initiated(struct wg_timers *);
				static void wg_timers_event_handshake_responded(struct wg_timers *);
				static void wg_timers_event_handshake_complete(struct wg_timers *);
				static void wg_timers_event_session_derived(struct wg_timers *);
				static void wg_timers_event_any_authenticated_packet_traversal(struct wg_timers *);
				static void wg_timers_event_want_initiation(struct wg_timers *);

				static void wg_timers_run_send_initiation(struct wg_timers *, int);
				static void wg_timers_run_retry_handshake(struct wg_timers *);
				static void wg_timers_run_send_keepalive(struct wg_timers *);
				static void wg_timers_run_new_handshake(struct wg_timers *);
				static void wg_timers_run_zero_key_material(struct wg_timers *);
				static void wg_timers_run_persistent_keepalive(struct wg_timers *);

				static void wg_peer_timers_init(struct wg_peer *);
				static void wg_timers_disable(struct wg_timers *);

				/* Queue */
				static int wg_queue_in(struct wg_peer , struct mbuf );
				static struct mbuf wg_queue_dequeue(struct wg_queue , struct wg_tag **);

				/* Route */
				void wg_route_destroy(struct wg_route_table *);

				/* Hashtable */

				/* Cookie */

				static int wg_cookie_validate_packet(struct cookie_checker , struct mbuf ,
				int);

				/* Peer */
				static void wg_send_initiation(struct wg_peer *);
				static void wg_send_cookie(struct wg_softc , struct cookie_macs , uint32_t, struct mbuf *);

				static void wg_peer_set_endpoint_from_tag(struct wg_peer , struct wg_tag );
				static void wg_peer_clear_src(struct wg_peer *);
				static void wg_peer_get_endpoint(struct wg_peer , struct wg_endpoint );

				static void wg_deliver_out(struct wg_peer *);
				static void wg_deliver_in(struct wg_peer *);
				static void wg_send_buf(struct wg_softc , struct wg_endpoint , uint8_t *, size_t);


				static void wg_send_keepalive(struct wg_peer *);

				/* Packet */
				static struct wg_endpoint wg_mbuf_endpoint_get(struct mbuf );

				static void wg_handshake(struct wg_softc , struct mbuf );
				static void wg_encap(struct wg_softc , struct mbuf );
				static void wg_decap(struct wg_softc , struct mbuf );

				/* Interface */
				static void wg_input(struct mbuf m, int offset, struct inpcb inpcb,
				const struct sockaddr srcsa, void _sc);

				/* Globals */

				#define UNDERLOAD_TIMEOUT 1

				static volatile unsigned long peer_counter = 0;
				static struct timeval underload_interval = { UNDERLOAD_TIMEOUT, 0 };

				#define M_ENQUEUED M_PROTO1

				static void
				wg_m_freem(struct mbuf *m)
				{
				MPASS((m->m_flags & M_ENQUEUED) == 0);
				m_freem(m);
				}

				static void
				m_calchdrlen(struct mbuf *m)
				{
				struct mbuf *n;
				int plen = 0;

				MPASS(m->m_flags & M_PKTHDR);
				for (n = m; n; n = n->m_next)
				plen += n->m_len;
				m->m_pkthdr.len = plen;
				}

				static inline int
				callout_del(struct callout *c)
				{
				return (callout_stop(c) > 0);
				}

				struct wg_tag *
				wg_tag_get(struct mbuf *m)
				{
				struct m_tag *tag;

				tag = m_tag_find(m, MTAG_WIREGUARD, NULL);
				if (tag == NULL) {
				tag = m_tag_get(MTAG_WIREGUARD, sizeof(struct wg_tag), M_NOWAIT\|M_ZERO);
				m_tag_prepend(m, tag);
				MPASS(!SLIST_EMPTY(&m->m_pkthdr.tags));
				MPASS(m_tag_locate(m, MTAG_ABI_COMPAT, MTAG_WIREGUARD, NULL) == tag);
				}
				return (struct wg_tag *)tag;
				}

				static struct wg_endpoint *
				wg_mbuf_endpoint_get(struct mbuf *m)
				{
				struct wg_tag *hdr;

				if ((hdr = wg_tag_get(m)) == NULL)
				return (NULL);

				return (&hdr->t_endpoint);
				}


				/*
				* Magic values baked in to handshake protocol
				*/
				//static atomic64_t keypair_counter = ATOMIC64_INIT(0);

				/* Socket */

				static int
				wg_socket_reuse(struct wg_softc sc, struct socket so)
				{
				struct sockopt sopt;
				int error, val = 1;
				struct ifnet *ifp;

				bzero(&sopt, sizeof(sopt));
				sopt.sopt_dir = SOPT_SET;
				sopt.sopt_level = SOL_SOCKET;
				sopt.sopt_name = SO_REUSEPORT;
				sopt.sopt_val = &val;
				sopt.sopt_valsize = sizeof(val);
				error = sosetopt(so, &sopt);
				if (error) {
				ifp = iflib_get_ifp(sc->wg_ctx);
				if_printf(ifp,
				"cannot set REUSEPORT socket opt: %d\n", error);
				}
				sopt.sopt_name = SO_REUSEADDR;
				error = sosetopt(so, &sopt);
				if (error) {
				ifp = iflib_get_ifp(sc->wg_ctx);
				if_printf(ifp,
				"cannot set REUSEADDDR socket opt: %d\n", error);
				}
				return (error);
				}

				int
				wg_socket_init(struct wg_softc *sc)
				{
				struct thread *td;
				struct wg_socket *so;
				struct ifnet *ifp;
				int rc;

				so = &sc->sc_socket;
				td = curthread;
				ifp = iflib_get_ifp(sc->wg_ctx);
				rc = socreate(AF_INET, &so->so_so4, SOCK_DGRAM, IPPROTO_UDP, td->td_ucred, td);
				if (rc) {
				if_printf(ifp, "can't create AF_INET socket\n");
				return (rc);
				}
				rc = wg_socket_reuse(sc, so->so_so4);
				if (rc)
				goto fail;
				rc = udp_set_kernel_tunneling(so->so_so4, wg_input, NULL, sc);
				if_printf(ifp, "sc=%p\n", sc);
				/*
				* udp_set_kernel_tunneling can only fail if there is already a tunneling function set.
				* This should never happen with a new socket.
				*/
				MPASS(rc == 0);

				rc = socreate(AF_INET6, &so->so_so6, SOCK_DGRAM, IPPROTO_UDP, td->td_ucred, td);
				if (rc) {
				if_printf(ifp, "can't create AF_INET6 socket\n");

				goto fail;
				}
				rc = wg_socket_reuse(sc, so->so_so6);
				if (rc) {
				SOCK_LOCK(so->so_so6);
				sofree(so->so_so6);
				goto fail;
				}
				rc = udp_set_kernel_tunneling(so->so_so6, wg_input, NULL, sc);
				MPASS(rc == 0);

				rc = wg_socket_bind(sc, so);
				return (rc);
				fail:
				SOCK_LOCK(so->so_so4);
				sofree(so->so_so4);
				return (rc);
				}

				void
				wg_socket_reinit(struct wg_softc sc, struct socket new4,
				struct socket *new6)
				{
				struct wg_socket *so;

				so = &sc->sc_socket;

				if (so->so_so4)
				soclose(so->so_so4);
				so->so_so4 = new4;
				if (so->so_so6)
				soclose(so->so_so6);
				so->so_so6 = new6;
				}

				int
				wg_socket_close(struct wg_socket *so)
				{
				int ret = 0;
				if ((ret = soclose(so->so_so4)) != 0)
				goto leave;
				if ((ret = soclose(so->so_so6)) != 0)
				goto leave;
				leave:
				return ret;
				}

				union wg_sockaddr {
				struct sockaddr sa;
				struct sockaddr_in in4;
				struct sockaddr_in6 in6;
				};

				int
				wg_socket_bind(struct wg_softc sc, struct wg_socket so)
				{
				int rc;
				struct thread *td;
				union wg_sockaddr laddr;
				struct sockaddr_in *sin;
				struct sockaddr_in6 *sin6;
				struct ifnet *ifp;

				if (so->so_port == 0)
				return (0);
				td = curthread;
				bzero(&laddr, sizeof(laddr));
				ifp = iflib_get_ifp(sc->wg_ctx);
				sin = &laddr.in4;
				sin->sin_len = sizeof(laddr.in4);
				sin->sin_family = AF_INET;
				sin->sin_port = htons(so->so_port);
				sin->sin_addr = (struct in_addr) { 0 };

				if ((rc = sobind(so->so_so4, &laddr.sa, td)) != 0) {
				if_printf(ifp, "can't bind AF_INET socket %d\n", rc);
				return (rc);
				}
				sin6 = &laddr.in6;
				sin6->sin6_len = sizeof(laddr.in6);
				sin6->sin6_family = AF_INET6;
				sin6->sin6_port = htons(so->so_port);
				sin6->sin6_addr = (struct in6_addr) { .s6_addr = { 0 } };

				rc = sobind(so->so_so6, &laddr.sa, td);
				if (rc)
				if_printf(ifp, "can't bind AF_INET6 socket %d\n", rc);
				return (rc);
				}

				static int
				wg_send(struct wg_softc sc, struct wg_endpoint e, struct mbuf *m)
				{
				struct epoch_tracker et;
				struct sockaddr *sa;
				struct wg_socket *so = &sc->sc_socket;
				struct mbuf *control = NULL;
				int ret = 0;

				/* Get local control address before locking */
				if (e->e_remote.r_sa.sa_family == AF_INET) {
				if (e->e_local.l_in.s_addr != INADDR_ANY)
				control = sbcreatecontrol((caddr_t)&e->e_local.l_in,
				sizeof(struct in_addr), IP_SENDSRCADDR,
				IPPROTO_IP);
				} else if (e->e_remote.r_sa.sa_family == AF_INET6) {
				if (!IN6_IS_ADDR_UNSPECIFIED(&e->e_local.l_in6))
				control = sbcreatecontrol((caddr_t)&e->e_local.l_pktinfo6,
				sizeof(struct in6_pktinfo), IPV6_PKTINFO,
				IPPROTO_IPV6);
				} else {
				return EAFNOSUPPORT;
				}

				/* Get remote address */
				sa = &e->e_remote.r_sa;

				NET_EPOCH_ENTER(et);
				if (sc->sc_ifp->if_link_state == LINK_STATE_DOWN)
				goto done;
				if (e->e_remote.r_sa.sa_family == AF_INET && so->so_so4 != NULL)
				ret = sosend(so->so_so4, sa, NULL, m, control, 0, curthread);
				else if (e->e_remote.r_sa.sa_family == AF_INET6 && so->so_so6 != NULL)
				ret = sosend(so->so_so6, sa, NULL, m, control, 0, curthread);
				else {
				ret = ENOTCONN;
				wg_m_freem(control);
				wg_m_freem(m);
				}
				done:
				NET_EPOCH_EXIT(et);
				return (ret);
				}

				/* Timers */
				/* Should be called after an authenticated data packet is sent. */
				static void
				wg_timers_event_data_sent(struct wg_timers *t)
				{
				struct epoch_tracker et;

				NET_EPOCH_ENTER(et);

				if (!t->t_disabled && !callout_pending(&t->t_new_handshake))
				callout_reset(&t->t_new_handshake,
				NEW_HANDSHAKE_TIMEOUT * hz + (random() % REKEY_TIMEOUT_JITTER),
				(timeout_t *)wg_timers_run_new_handshake, t);
				NET_EPOCH_EXIT(et);
				}

				/* Should be called after an authenticated data packet is received. */
				static void
				wg_timers_event_data_received(struct wg_timers *t)
				{
				struct epoch_tracker et;

				if (t->t_disabled)
				return;
				NET_EPOCH_ENTER(et);
				if (!callout_pending(&t->t_send_keepalive)) {
				callout_reset(&t->t_send_keepalive, KEEPALIVE_TIMEOUT*hz,
				(timeout_t *)wg_timers_run_send_keepalive, t);
				} else {
				t->t_need_another_keepalive = 1;
				}
				NET_EPOCH_EXIT(et);
				}

				/*
				* Should be called after any type of authenticated packet is sent, whether
				* keepalive, data, or handshake.
				*/
				static void
				wg_timers_event_any_authenticated_packet_sent(struct wg_timers *t)
				{
				callout_del(&t->t_send_keepalive);
				}

				/*
				* Should be called after any type of authenticated packet is received, whether
				* keepalive, data, or handshake.
				*/
				static void
				wg_timers_event_any_authenticated_packet_received(struct wg_timers *t)
				{

				callout_del(&t->t_new_handshake);
				}

				/*
				* Should be called before a packet with authentication, whether
				* keepalive, data, or handshake is sent, or after one is received.
				*/
				static void
				wg_timers_event_any_authenticated_packet_traversal(struct wg_timers *t)
				{
				struct epoch_tracker et;

				NET_EPOCH_ENTER(et);
				if (!t->t_disabled && t->t_persistent_keepalive_interval > 0)
				callout_reset(&t->t_persistent_keepalive,
				t->t_persistent_keepalive_interval *hz,
				(timeout_t *)wg_timers_run_persistent_keepalive, t);
				NET_EPOCH_EXIT(et);
				}

				/* Should be called after a handshake initiation message is sent. */
				static void
				wg_timers_event_handshake_initiated(struct wg_timers *t)
				{

				if (t->t_disabled)
				return;
				callout_reset(&t->t_retry_handshake,
				REKEY_TIMEOUT * hz + random() % REKEY_TIMEOUT_JITTER,
				(timeout_t *)wg_timers_run_retry_handshake, t);
				}

				static void
				wg_timers_event_handshake_responded(struct wg_timers *t)
				{
				getnanouptime(&t->t_handshake_last_sent);
				}

				/*
				* Should be called after a handshake response message is received and processed
				* or when getting key confirmation via the first data message.
				*/
				static void
				wg_timers_event_handshake_complete(struct wg_timers *t)
				{
				if (t->t_disabled)
				return;
				callout_del(&t->t_retry_handshake);
				t->t_handshake_retries = 0;
				getnanotime(&t->t_handshake_complete);
				wg_timers_run_send_keepalive(t);
				}

				/*
				* Should be called after an ephemeral key is created, which is before sending a
				* handshake response or after receiving a handshake response.
				*/
				static void
				wg_timers_event_session_derived(struct wg_timers *t)
				{

				if (t->t_disabled)
				return;
				callout_reset(&t->t_zero_key_material,
				REJECT_AFTER_TIME * 3 * hz,
				(timeout_t *)wg_timers_run_zero_key_material, t);
				}

				static void
				wg_timers_event_want_initiation(struct wg_timers *t)
				{

				if (t->t_disabled)
				return;
				wg_timers_run_send_initiation(t, 0);
				}

				static void
				wg_grouptask_enqueue(struct wg_peer peer, struct grouptask task)
				{
				if (peer->p_sc->sc_ifp->if_link_state == LINK_STATE_UP)
				GROUPTASK_ENQUEUE(task);
				}

				static void
				wg_timers_run_send_initiation(struct wg_timers *t, int is_retry)
				{
				struct wg_peer *peer = CONTAINER_OF(t, struct wg_peer, p_timers);
				if (!is_retry)
				t->t_handshake_retries = 0;
				if (wg_timers_expired_handshake_last_sent(t) == ETIMEDOUT)
				wg_grouptask_enqueue(peer, &peer->p_send_initiation);
				}

				static void
				wg_timers_run_retry_handshake(struct wg_timers *t)
				{
				struct wg_peer *peer = CONTAINER_OF(t, struct wg_peer, p_timers);
				int retries;

				retries = atomic_fetchadd_int(&t->t_handshake_retries, 1);

				if (retries <= MAX_TIMER_HANDSHAKES) {
				DPRINTF(peer->p_sc, "Handshake for peer %lu did not complete "
				"after %d seconds, retrying (try %d)\n", peer->p_id,
				REKEY_TIMEOUT, t->t_handshake_retries + 1);
				wg_peer_clear_src(peer);
				wg_timers_run_send_initiation(t, 1);
				} else {
				DPRINTF(peer->p_sc, "Handshake for peer %lu did not complete "
				"after %d retries, giving up\n", peer->p_id,
				MAX_TIMER_HANDSHAKES + 2);

				callout_del(&t->t_send_keepalive);
				if (!callout_pending(&t->t_zero_key_material))
				callout_reset(&t->t_zero_key_material, REJECT_AFTER_TIME * 3 * hz,
				(timeout_t *)wg_timers_run_zero_key_material, t);
				}
				}

				static void
				wg_timers_run_send_keepalive(struct wg_timers *t)
				{
				struct wg_peer *peer = CONTAINER_OF(t, struct wg_peer, p_timers);

				wg_grouptask_enqueue(peer, &peer->p_send_keepalive);
				if (t->t_need_another_keepalive) {
				t->t_need_another_keepalive = 0;
				callout_reset(&t->t_send_keepalive,
				KEEPALIVE_TIMEOUT*hz,
				(timeout_t *)wg_timers_run_send_keepalive, t);
				}
				}

				static void
				wg_timers_run_new_handshake(struct wg_timers *t)
				{
				struct wg_peer *peer = CONTAINER_OF(t, struct wg_peer, p_timers);

				DPRINTF(peer->p_sc, "Retrying handshake with peer %lu because we "
				"stopped hearing back after %d seconds\n",
				peer->p_id, NEW_HANDSHAKE_TIMEOUT);
				wg_peer_clear_src(peer);

				wg_timers_run_send_initiation(t, 0);
				}

				static void
				wg_timers_run_zero_key_material(struct wg_timers *t)
				{
				struct wg_peer *peer = CONTAINER_OF(t, struct wg_peer, p_timers);

				DPRINTF(peer->p_sc, "Zeroing out all keys for peer %lu, since we "
				"haven't received a new one in %d seconds\n",
				peer->p_id, REJECT_AFTER_TIME * 3);
				GROUPTASK_ENQUEUE(&peer->p_clear_secrets);
				}

				static void
				wg_timers_run_persistent_keepalive(struct wg_timers *t)
				{
				struct wg_peer *peer = CONTAINER_OF(t, struct wg_peer, p_timers);

				if (t->t_persistent_keepalive_interval != 0)
				wg_grouptask_enqueue(peer, &peer->p_send_keepalive);
				}

				static void
				wg_peer_timers_init(struct wg_peer *peer)
				{
				struct wg_timers *t = &peer->p_timers;

				bzero(t, sizeof(*t));

				rw_init(&peer->p_timers.t_lock, "wg_peer_timers");
				callout_init(&t->t_retry_handshake, true);
				callout_init(&t->t_send_keepalive, true);
				callout_init(&t->t_new_handshake, true);
				callout_init(&t->t_zero_key_material, true);
				callout_init(&t->t_persistent_keepalive, true);
				}

				static void
				wg_timers_disable(struct wg_timers *t)
				{
				rw_wlock(&t->t_lock);
				t->t_disabled = 1;
				t->t_need_another_keepalive = 0;
				rw_wunlock(&t->t_lock);

				callout_del(&t->t_retry_handshake);
				callout_del(&t->t_send_keepalive);
				callout_del(&t->t_new_handshake);
				callout_del(&t->t_zero_key_material);
				callout_del(&t->t_persistent_keepalive);
				}

				void
				wg_timers_set_persistent_keepalive(struct wg_timers *t, uint16_t interval)
				{
				if (t->t_disabled)
				return;
				t->t_persistent_keepalive_interval = interval;
				wg_timers_run_persistent_keepalive(t);
				}

				int
				wg_timers_get_persistent_keepalive(struct wg_timers t, uint16_t interval)
				{
				*interval = t->t_persistent_keepalive_interval;
				return *interval > 0 ? 0 : ENOENT;
				}

				void
				wg_timers_get_last_handshake(struct wg_timers t, struct timespec time)
				{
				time->tv_sec = t->t_handshake_complete.tv_sec;
				time->tv_nsec = t->t_handshake_complete.tv_nsec;
				}

				static int
				wg_timers_expired_handshake_last_sent(struct wg_timers *t)
				{
				struct timespec uptime;
				struct timespec expire = { .tv_sec = REKEY_TIMEOUT, .tv_nsec = 0 };

				getnanouptime(&uptime);
				timespecadd(&t->t_handshake_last_sent, &expire, &expire);
				return timespeccmp(&uptime, &expire, >) ? ETIMEDOUT : 0;
				}

				static int
				wg_timers_check_handshake_last_sent(struct wg_timers *t)
				{
				int ret;

				if ((ret = wg_timers_expired_handshake_last_sent(t)) == ETIMEDOUT)
				getnanouptime(&t->t_handshake_last_sent);
				return (ret);
				}

				/* Queue */
				void
				wg_queue_init(struct wg_queue q, const char name)
				{
				mtx_init(&q->q_mtx, name, NULL, MTX_DEF);
				mbufq_init(&q->q, MAX_QUEUED_PKT);
				}

				void
				wg_queue_deinit(struct wg_queue*q)
				{
				mtx_lock(&q->q_mtx);
				mbufq_drain(&q->q);
				mtx_unlock(&q->q_mtx);
				mtx_destroy(&q->q_mtx);
				}

				static struct mbuf *
				wg_queue_dequeue(struct wg_queue q, struct wg_tag *t)
				{
				struct mbuf m_, m;

				m = NULL;
				mtx_lock(&q->q_mtx);
				m_ = mbufq_first(&q->q);
				if (m_ != NULL && (*t = wg_tag_get(m_))->t_done) {
				m = mbufq_dequeue(&q->q);
				m->m_flags &= ~M_ENQUEUED;
				}
				mtx_unlock(&q->q_mtx);
				return (m);
				}

				static int
				wg_queue_len(struct wg_queue *q)
				{

				return (mbufq_len(&q->q));
				}

				static int
				wg_queue_in(struct wg_peer peer, struct mbuf m)
				{
				struct buf_ring *parallel = peer->p_sc->sc_decap_ring;
				struct wg_queue *serial = &peer->p_decap_queue;
				struct wg_tag *t;
				int rc;

				MPASS(wg_tag_get(m) != NULL);

				mtx_lock(&serial->q_mtx);
				if ((rc = mbufq_enqueue(&serial->q, m)) == ENOBUFS) {
				wg_m_freem(m);
				if_inc_counter(peer->p_sc->sc_ifp, IFCOUNTER_OQDROPS, 1);
				} else {
				m->m_flags \|= M_ENQUEUED;
				rc = buf_ring_enqueue(parallel, m);
				if (rc == ENOBUFS) {
				t = wg_tag_get(m);
				t->t_done = 1;
				}
				}
				mtx_unlock(&serial->q_mtx);
				return (rc);
				}

				int
				wg_queue_out(struct wg_peer peer, struct mbuf m)
				{
				struct buf_ring *parallel = peer->p_sc->sc_encap_ring;
				struct wg_queue *serial = &peer->p_encap_queue;
				struct wg_tag *t;
				int rc;

				if ((t = wg_tag_get(m)) == NULL) {
				wg_m_freem(m);
				return (ENOMEM);
				}
				t->t_peer = peer;
				mtx_lock(&serial->q_mtx);
				if ((rc = mbufq_enqueue(&serial->q, m)) == ENOBUFS) {
				wg_m_freem(m);
				if_inc_counter(peer->p_sc->sc_ifp, IFCOUNTER_OQDROPS, 1);
				} else {
				m->m_flags \|= M_ENQUEUED;
				rc = buf_ring_enqueue(parallel, m);
				if (rc == ENOBUFS) {
				t = wg_tag_get(m);
				t->t_done = 1;
				}
				}
				mtx_unlock(&serial->q_mtx);
				return (rc);
				}

				/* Route */
				int
				wg_route_init(struct wg_route_table *tbl)
				{
				int rc;

				tbl->t_count = 0;
				rc = rn_inithead((void **)&tbl->t_ip,
				offsetof(struct sockaddr_in, sin_addr) * NBBY);

				if (rc == 0)
				return (ENOMEM);
				RADIX_NODE_HEAD_LOCK_INIT(tbl->t_ip);
				#ifdef INET6
				rc = rn_inithead((void **)&tbl->t_ip6,
				offsetof(struct sockaddr_in6, sin6_addr) * NBBY);
				if (rc == 0) {
				free(tbl->t_ip, M_RTABLE);
				return (ENOMEM);
				}
				RADIX_NODE_HEAD_LOCK_INIT(tbl->t_ip6);
				#endif
				return (0);
				}

				void
				wg_route_destroy(struct wg_route_table *tbl)
				{
				RADIX_NODE_HEAD_DESTROY(tbl->t_ip);
				free(tbl->t_ip, M_RTABLE);
				#ifdef INET6
				RADIX_NODE_HEAD_DESTROY(tbl->t_ip6);
				free(tbl->t_ip6, M_RTABLE);
				#endif
				}

				int
				wg_route_add(struct wg_route_table tbl, struct wg_peer peer,
				const struct wg_allowedip *cidr_)
				{
				struct radix_node *node;
				struct radix_node_head *root;
				struct wg_route *route;
				sa_family_t family;
				struct wg_allowedip *cidr;
				bool needfree = false;

				family = cidr_->a_addr.ss_family;
				if (family == AF_INET) {
				root = tbl->t_ip;
				} else if (family == AF_INET6) {
				root = tbl->t_ip6;
				} else {
				printf("bad sa_family %d\n", cidr_->a_addr.ss_family);
				return (EINVAL);
				}
				route = malloc(sizeof(*route), M_WG, M_WAITOK\|M_ZERO);
				route->r_cidr = *cidr_;
				route->r_peer = peer;
				cidr = &route->r_cidr;

				RADIX_NODE_HEAD_LOCK(root);
				// printf("addaddr(%16D, %16D)\n",
				// &cidr->a_addr, ":", &cidr->a_mask, ":");
				node = root->rnh_addaddr(&cidr->a_addr, &cidr->a_mask, &root->rh,
				route->r_nodes);
				if (node == route->r_nodes) {
				tbl->t_count++;
				CK_LIST_INSERT_HEAD(&peer->p_routes, route, r_entry);
				} else {
				needfree = true;
				}
				RADIX_NODE_HEAD_UNLOCK(root);
				if (needfree) {
				free(route, M_WG);
				}
				return (0);
				}

				struct peer_del_arg {
				struct radix_node_head * pda_head;
				struct wg_peer *pda_peer;
				struct wg_route_table *pda_tbl;
				};

				static int
				wg_peer_remove(struct radix_node rn, void arg)
				{
				struct peer_del_arg *pda = arg;
				struct wg_peer *peer = pda->pda_peer;
				struct radix_node_head * rnh = pda->pda_head;
				struct wg_route_table *tbl = pda->pda_tbl;
				struct wg_route route = (struct wg_route )rn;
				struct radix_node *x;

				if (route->r_peer != peer)
				return (0);
				x = (struct radix_node *)rnh->rnh_deladdr(&route->r_cidr.a_addr, NULL, &rnh->rh);
				if (x != NULL) {
				tbl->t_count--;
				CK_LIST_REMOVE(route, r_entry);
				free(route, M_WG);
				}
				return (0);
				}

				int
				wg_route_delete(struct wg_route_table tbl, struct wg_peer peer)
				{
				struct peer_del_arg pda;

				pda.pda_peer = peer;
				pda.pda_tbl = tbl;
				RADIX_NODE_HEAD_LOCK(tbl->t_ip);
				pda.pda_head = tbl->t_ip;
				rn_walktree(&tbl->t_ip->rh, wg_peer_remove, &pda);
				RADIX_NODE_HEAD_UNLOCK(tbl->t_ip);

				RADIX_NODE_HEAD_LOCK(tbl->t_ip6);
				pda.pda_head = tbl->t_ip6;
				rn_walktree(&tbl->t_ip6->rh, wg_peer_remove, &pda);
				RADIX_NODE_HEAD_UNLOCK(tbl->t_ip6);
				return (0);
				}

				struct wg_peer *
				wg_route_lookup(struct wg_route_table tbl, struct mbuf m,
				enum route_direction dir)
				{
				RADIX_NODE_HEAD_RLOCK_TRACKER;
				struct ip *iphdr;
				struct ip6_hdr *ip6hdr;
				struct radix_node_head *root;
				struct radix_node *node;
				struct wg_peer *peer = NULL;
				struct sockaddr_in sin;
				struct sockaddr_in6 sin6;
				void *addr;
				int version;

				NET_EPOCH_ASSERT();
				iphdr = mtod(m, struct ip *);
				version = iphdr->ip_v;

				if (__predict_false(dir != IN && dir != OUT))
				panic("invalid route dir: %d\n", dir);

				if (version == 4) {
				root = tbl->t_ip;
				memset(&sin, 0, sizeof(sin));
				sin.sin_len = sizeof(struct sockaddr_in);
				if (dir == IN)
				sin.sin_addr = iphdr->ip_src;
				else
				sin.sin_addr = iphdr->ip_dst;
				addr = &sin;
				} else if (version == 6) {
				ip6hdr = mtod(m, struct ip6_hdr *);
				memset(&sin6, 0, sizeof(sin6));
				sin6.sin6_len = sizeof(struct sockaddr_in6);

				root = tbl->t_ip6;
				if (dir == IN)
				addr = &ip6hdr->ip6_src;
				else
				addr = &ip6hdr->ip6_dst;
				memcpy(&sin6.sin6_addr, addr, sizeof(sin6.sin6_addr));
				addr = &sin6;
				} else {
				log(LOG_WARNING, "%s bad version %d\n", __func__, version);
				return (NULL);
				}
				RADIX_NODE_HEAD_RLOCK(root);
				if ((node = root->rnh_matchaddr(addr, &root->rh)) != NULL) {
				peer = ((struct wg_route *) node)->r_peer;
				} else {
				log(LOG_WARNING, "matchaddr failed\n");
				}
				RADIX_NODE_HEAD_RUNLOCK(root);
				return (peer);
				}

				/* Hashtable */
				#define WG_HASHTABLE_PEER_FOREACH(peer, i, ht) \
				for (i = 0; i < HASHTABLE_PEER_SIZE; i++) \
				LIST_FOREACH(peer, &(ht)->h_peers[i], p_hash_entry)

				#define WG_HASHTABLE_PEER_FOREACH_SAFE(peer, i, ht, tpeer) \
				for (i = 0; i < HASHTABLE_PEER_SIZE; i++) \
				CK_LIST_FOREACH_SAFE(peer, &(ht)->h_peers[i], p_hash_entry, tpeer)

				void
				wg_hashtable_init(struct wg_hashtable *ht)
				{
				mtx_init(&ht->h_mtx, "hash lock", NULL, MTX_DEF);
				arc4random_buf(&ht->h_secret, sizeof(ht->h_secret));
				ht->h_num_peers = 0;
				ht->h_num_keys = 0;
				ht->h_peers = hashinit(HASHTABLE_PEER_SIZE, M_DEVBUF,
				&ht->h_peers_mask);
				ht->h_keys = hashinit(HASHTABLE_INDEX_SIZE, M_DEVBUF,
				&ht->h_keys_mask);
				}

				void
				wg_hashtable_destroy(struct wg_hashtable *ht)
				{
				MPASS(ht->h_num_peers == 0);
				MPASS(ht->h_num_keys == 0);
				mtx_destroy(&ht->h_mtx);
				hashdestroy(ht->h_peers, M_DEVBUF, ht->h_peers_mask);
				hashdestroy(ht->h_keys, M_DEVBUF, ht->h_keys_mask);
				}

				void
				wg_hashtable_peer_insert(struct wg_hashtable ht, struct wg_peer peer)
				{
				uint64_t key;

				key = siphash24(&ht->h_secret, peer->p_remote.r_public,
				sizeof(peer->p_remote.r_public));

				mtx_lock(&ht->h_mtx);
				ht->h_num_peers++;
				CK_LIST_INSERT_HEAD(&ht->h_peers[key & ht->h_peers_mask], peer, p_hash_entry);
				CK_LIST_INSERT_HEAD(&ht->h_peers_list, peer, p_entry);
				mtx_unlock(&ht->h_mtx);
				}

				struct wg_peer *
				wg_peer_lookup(struct wg_softc *sc,
				const uint8_t pubkey[WG_KEY_SIZE])
				{
				struct wg_hashtable *ht = &sc->sc_hashtable;
				uint64_t key;
				struct wg_peer *i = NULL;

				key = siphash24(&ht->h_secret, pubkey, WG_KEY_SIZE);

				mtx_lock(&ht->h_mtx);
				CK_LIST_FOREACH(i, &ht->h_peers[key & ht->h_peers_mask], p_hash_entry) {
				if (timingsafe_bcmp(i->p_remote.r_public, pubkey,
				WG_KEY_SIZE) == 0)
				break;
				}
				mtx_unlock(&ht->h_mtx);

				return i;
				}

				void
				wg_hashtable_peer_remove(struct wg_hashtable ht, struct wg_peer peer)
				{
				mtx_lock(&ht->h_mtx);
				ht->h_num_peers--;
				CK_LIST_REMOVE(peer, p_hash_entry);
				CK_LIST_REMOVE(peer, p_entry);
				mtx_unlock(&ht->h_mtx);
				}

				/* Cookie */
				static int
				wg_cookie_validate_packet(struct cookie_checker checker, struct mbuf m,
				int under_load)
				{
				struct wg_endpoint *e;
				void *data;
				struct wg_pkt_initiation *init;
				struct wg_pkt_response *resp;
				struct cookie_macs *macs;
				int type, size;

				type = le32toh(mtod(m, uint32_t ));
				data = m->m_data;
				e = wg_mbuf_endpoint_get(m);
				if (type == MESSAGE_HANDSHAKE_INITIATION) {
				init = mtod(m, struct wg_pkt_initiation *);
				macs = &init->m;
				size = sizeof(init) - sizeof(macs);
				} else if (type == MESSAGE_HANDSHAKE_RESPONSE) {
				resp = mtod(m, struct wg_pkt_response *);
				macs = &resp->m;
				size = sizeof(resp) - sizeof(macs);
				} else
				return EINVAL;

				return (cookie_checker_validate_macs(checker, macs, data, size,
				under_load, &e->e_remote.r_sa));
				}

				/* Peer */
				struct wg_peer *
				wg_peer_alloc(struct wg_softc *sc)
				{
				struct wg_peer *peer;
				device_t dev;

				dev = iflib_get_dev(sc->wg_ctx);
				peer = malloc(sizeof(*peer), M_WG, M_WAITOK\|M_ZERO);
				peer->p_sc = sc;
				peer->p_id = atomic_fetchadd_long(&peer_counter, 1);
				CK_LIST_INIT(&peer->p_routes);

				rw_init(&peer->p_endpoint_lock, "wg_peer_endpoint");
				wg_queue_init(&peer->p_encap_queue, "sendq");
				wg_queue_init(&peer->p_decap_queue, "rxq");

				GROUPTASK_INIT(&peer->p_send_initiation, 0, (gtask_fn_t *)wg_send_initiation, peer);
				taskqgroup_attach(qgroup_if_io_tqg, &peer->p_send_initiation, peer, dev, NULL, "wg initiation");
				GROUPTASK_INIT(&peer->p_send_keepalive, 0, (gtask_fn_t *)wg_send_keepalive, peer);
				taskqgroup_attach(qgroup_if_io_tqg, &peer->p_send_keepalive, peer, dev, NULL, "wg keepalive");
				GROUPTASK_INIT(&peer->p_clear_secrets, 0, (gtask_fn_t *)noise_remote_clear, &peer->p_remote);
				taskqgroup_attach(qgroup_if_io_tqg, &peer->p_clear_secrets, &peer->p_remote, dev, NULL, "wg clear secrets");

				GROUPTASK_INIT(&peer->p_send, 0, (gtask_fn_t *)wg_deliver_out, peer);
				taskqgroup_attach(qgroup_if_io_tqg, &peer->p_send, peer, dev, NULL, "wg send");
				GROUPTASK_INIT(&peer->p_recv, 0, (gtask_fn_t *)wg_deliver_in, peer);
				taskqgroup_attach(qgroup_if_io_tqg, &peer->p_recv, peer, dev, NULL, "wg recv");

				wg_peer_timers_init(peer);

				peer->p_tx_bytes = counter_u64_alloc(M_WAITOK);
				peer->p_rx_bytes = counter_u64_alloc(M_WAITOK);

				SLIST_INIT(&peer->p_unused_index);
				SLIST_INSERT_HEAD(&peer->p_unused_index, &peer->p_index[0],
				i_unused_entry);
				SLIST_INSERT_HEAD(&peer->p_unused_index, &peer->p_index[1],
				i_unused_entry);
				SLIST_INSERT_HEAD(&peer->p_unused_index, &peer->p_index[2],
				i_unused_entry);

				return (peer);
				}

				static void
				wg_peer_free_deferred(epoch_context_t ctx)
				{
				struct wg_peer *peer;

				peer = __containerof(ctx, struct wg_peer, p_ctx);
				counter_u64_free(peer->p_tx_bytes);
				counter_u64_free(peer->p_rx_bytes);

				DPRINTF(peer->p_sc, "Peer %lu destroyed\n", peer->p_id);
				rw_destroy(&peer->p_timers.t_lock);
				rw_destroy(&peer->p_endpoint_lock);
				zfree(peer, M_WG);
				}

				void
				wg_peer_destroy(struct wg_peer *peer)
				{

				/* We first remove the peer from the hash table and route table, so
				* that it cannot be referenced again */
				wg_route_delete(&peer->p_sc->sc_routes, peer);
				MPASS(CK_LIST_EMPTY(&peer->p_routes));

				/* TODO currently, if there is a timer added after here, then the peer
				* can hang around for longer than we want. */
				wg_timers_disable(&peer->p_timers);
				GROUPTASK_DRAIN(&peer->p_clear_secrets);
				GROUPTASK_DRAIN(&peer->p_send_initiation);
				GROUPTASK_DRAIN(&peer->p_send_keepalive);
				GROUPTASK_DRAIN(&peer->p_recv);
				GROUPTASK_DRAIN(&peer->p_send);
				taskqgroup_detach(qgroup_if_io_tqg, &peer->p_clear_secrets);
				taskqgroup_detach(qgroup_if_io_tqg, &peer->p_send_initiation);
				taskqgroup_detach(qgroup_if_io_tqg, &peer->p_send_keepalive);
				taskqgroup_detach(qgroup_if_io_tqg, &peer->p_recv);
				taskqgroup_detach(qgroup_if_io_tqg, &peer->p_send);
				wg_queue_deinit(&peer->p_encap_queue);
				wg_queue_deinit(&peer->p_decap_queue);
				NET_EPOCH_CALL(wg_peer_free_deferred, &peer->p_ctx);
				}

				static void
				wg_peer_send_buf(struct wg_peer peer, uint8_t buf, size_t len)
				{
				struct wg_endpoint endpoint;

				counter_u64_add(peer->p_tx_bytes, len);
				wg_timers_event_any_authenticated_packet_traversal(&peer->p_timers);
				wg_timers_event_any_authenticated_packet_sent(&peer->p_timers);
				wg_peer_get_endpoint(peer, &endpoint);
				wg_send_buf(peer->p_sc, &endpoint, buf, len);
				}

				static void
				wg_send_initiation(struct wg_peer *peer)
				{
				struct wg_pkt_initiation pkt;
				struct epoch_tracker et;
				int ret;

				if (wg_timers_check_handshake_last_sent(&peer->p_timers) != ETIMEDOUT)
				return;

				NET_EPOCH_ENTER(et);
				ret = noise_create_initiation(&peer->p_remote, &pkt.init);
				if (ret)
				goto out;
				pkt.t = le32toh(MESSAGE_HANDSHAKE_INITIATION);
				cookie_maker_mac(&peer->p_cookie, &pkt.m, &pkt,
				sizeof(pkt)-sizeof(pkt.m));
				wg_peer_send_buf(peer, (uint8_t *)&pkt, sizeof(pkt));
				wg_timers_event_handshake_initiated(&peer->p_timers);
				out:
				NET_EPOCH_EXIT(et);
				}

				static int
				wg_send_response(struct wg_peer *peer)
				{
				struct wg_pkt_response pkt;
				struct epoch_tracker et;
				int ret;

				NET_EPOCH_ENTER(et);

				DPRINTF(peer->p_sc, "Sending handshake response to peer %lu\n",
				peer->p_id);

				ret = noise_create_response(&peer->p_remote, &pkt.resp);
				if (ret)
				goto out;
				pkt.t = MESSAGE_HANDSHAKE_RESPONSE;
				cookie_maker_mac(&peer->p_cookie, &pkt.m, &pkt,
				sizeof(pkt)-sizeof(pkt.m));
				wg_peer_send_buf(peer, (uint8_t*)&pkt, sizeof(pkt));
				wg_timers_event_handshake_responded(&peer->p_timers);
				out:
				NET_EPOCH_EXIT(et);
				return (ret);
				}

				static void
				wg_send_cookie(struct wg_softc sc, struct cookie_macs cm, uint32_t idx,
				struct mbuf *m)
				{
				struct wg_pkt_cookie pkt;
				struct wg_endpoint *e;

				DPRINTF(sc, "Sending cookie response for denied handshake message\n");

				pkt.t = le32toh(MESSAGE_HANDSHAKE_COOKIE);
				pkt.r_idx = idx;

				e = wg_mbuf_endpoint_get(m);
				cookie_checker_create_payload(&sc->sc_cookie, cm, pkt.nonce,
				pkt.ec, &e->e_remote.r_sa);
				wg_send_buf(sc, e, (uint8_t *)&pkt, sizeof(pkt));
				}

				static void
				wg_peer_set_endpoint_from_tag(struct wg_peer peer, struct wg_tag t)
				{
				struct wg_endpoint *e = &t->t_endpoint;

				MPASS(e->e_remote.r_sa.sa_family != 0);
				if (memcmp(e, &peer->p_endpoint, sizeof(*e)) == 0)
				return;

				peer->p_endpoint = *e;
				}

				static void
				wg_peer_clear_src(struct wg_peer *peer)
				{
				rw_rlock(&peer->p_endpoint_lock);
				bzero(&peer->p_endpoint.e_local, sizeof(peer->p_endpoint.e_local));
				rw_runlock(&peer->p_endpoint_lock);
				}

				static void
				wg_peer_get_endpoint(struct wg_peer p, struct wg_endpoint e)
				{
				memcpy(e, &p->p_endpoint, sizeof(*e));
				}

				static void
				wg_deliver_out(struct wg_peer *peer)
				{
				struct epoch_tracker et;
				struct wg_tag *t;
				struct mbuf *m;
				struct wg_endpoint endpoint;
				int ret;

				NET_EPOCH_ENTER(et);
				if (peer->p_sc->sc_ifp->if_link_state == LINK_STATE_DOWN)
				goto done;

				wg_peer_get_endpoint(peer, &endpoint);

				while ((m = wg_queue_dequeue(&peer->p_encap_queue, &t)) != NULL) {
				/* t_mbuf will contain the encrypted packet */
				if (t->t_mbuf == NULL){
				if_inc_counter(peer->p_sc->sc_ifp, IFCOUNTER_OERRORS, 1);
				wg_m_freem(m);
				continue;
				}
				M_MOVE_PKTHDR(t->t_mbuf, m);
				ret = wg_send(peer->p_sc, &endpoint, t->t_mbuf);

				if (ret == 0) {
				wg_timers_event_any_authenticated_packet_traversal(
				&peer->p_timers);
				wg_timers_event_any_authenticated_packet_sent(
				&peer->p_timers);

				if (m->m_pkthdr.len != 0)
				wg_timers_event_data_sent(&peer->p_timers);
				} else if (ret == EADDRNOTAVAIL) {
				wg_peer_clear_src(peer);
				wg_peer_get_endpoint(peer, &endpoint);
				}
				wg_m_freem(m);
				}
				done:
				NET_EPOCH_EXIT(et);
				}

				static void
				wg_deliver_in(struct wg_peer *peer)
				{
				struct mbuf *m;
				struct wg_softc *sc;
				struct wg_socket *so;
				struct epoch_tracker et;
				struct wg_tag *t;
				struct inpcb *inp;
				uint32_t af;
				int version;


				NET_EPOCH_ENTER(et);
				sc = peer->p_sc;
				if (sc->sc_ifp->if_link_state == LINK_STATE_DOWN)
				goto done;

				so = &sc->sc_socket;

				while ((m = wg_queue_dequeue(&peer->p_decap_queue, &t)) != NULL) {
				/* t_mbuf will contain the encrypted packet */
				if (t->t_mbuf == NULL){
				if_inc_counter(peer->p_sc->sc_ifp, IFCOUNTER_IERRORS, 1);
				wg_m_freem(m);
				continue;
				}
				MPASS(m == t->t_mbuf);

				wg_timers_event_any_authenticated_packet_received(
				&peer->p_timers);
				wg_timers_event_any_authenticated_packet_traversal(
				&peer->p_timers);

				if (m->m_pkthdr.len == 0) {
				wg_m_freem(m);
				continue;
				}
				counter_u64_add(peer->p_rx_bytes, m->m_pkthdr.len);

				m->m_flags &= ~(M_MCAST \| M_BCAST);
				m->m_pkthdr.rcvif = sc->sc_ifp;
				version = mtod(m, struct ip *)->ip_v;
				if (version == IPVERSION) {
				af = AF_INET;
				BPF_MTAP2(sc->sc_ifp, &af, sizeof(af), m);
				inp = sotoinpcb(so->so_so4);
				CURVNET_SET(inp->inp_vnet);
				ip_input(m);
				CURVNET_RESTORE();
				} else if (version == 6) {
				af = AF_INET;
				BPF_MTAP2(sc->sc_ifp, &af, sizeof(af), m);
				inp = sotoinpcb(so->so_so6);
				CURVNET_SET(inp->inp_vnet);
				ip6_input(m);
				CURVNET_RESTORE();
				} else
				wg_m_freem(m);

				wg_timers_event_data_received(&peer->p_timers);
				}
				done:
				NET_EPOCH_EXIT(et);
				}

				static void
				wg_send_buf(struct wg_softc sc, struct wg_endpoint e, uint8_t *buf,
				size_t len)
				{
				struct mbuf *m;
				int ret = 0;

				retry:
				m = m_gethdr(M_WAITOK, MT_DATA);
				m->m_len = 0;
				m_copyback(m, 0, len, buf);

				if (ret == 0) {
				ret = wg_send(sc, e, m);
				/* Retry if we couldn't bind to e->e_local */
				if (ret == EADDRNOTAVAIL) {
				bzero(&e->e_local, sizeof(e->e_local));
				goto retry;
				}
				} else {
				wg_send(sc, e, m);
				}
				}

				static void
				wg_send_keepalive(struct wg_peer *peer)
				{
				struct mbuf *m = NULL;
				struct wg_tag *t;
				struct epoch_tracker et;

				if (wg_queue_len(&peer->p_encap_queue) != 0)
				goto send;
				if ((m = m_gethdr(M_NOWAIT, MT_DATA)) == NULL)
				return;
				if ((t = wg_tag_get(m)) == NULL) {
				wg_m_freem(m);
				return;
				}
				t->t_peer = peer;
				t->t_mbuf = NULL;
				t->t_done = 0;
				t->t_mtu = 0; /* MTU == 0 OK for keepalive */
				send:
				NET_EPOCH_ENTER(et);
				if (m != NULL)
				wg_queue_out(peer, m);
				if (noise_remote_ready(&peer->p_remote) == 0) {
				wg_encrypt_dispatch(peer->p_sc);
				} else {
				wg_timers_event_want_initiation(&peer->p_timers);
				}
				NET_EPOCH_EXIT(et);
				}

				/* Packet */
				static void
				verify_endpoint(struct mbuf *m)
				{
				#ifdef INVARIANTS
				struct wg_endpoint *e = wg_mbuf_endpoint_get(m);

				MPASS(e->e_remote.r_sa.sa_family != 0);
				#endif
				}

				static void
				wg_handshake(struct wg_softc sc, struct mbuf m)
				{
				struct wg_pkt_initiation *init;
				struct wg_pkt_response *resp;
				struct noise_remote *remote;
				struct wg_pkt_cookie *cook;
				struct wg_peer *peer;
				struct wg_tag *t;

				/* This is global, so that our load calculation applies to the whole
				* system. We don't care about races with it at all.
				*/
				static struct timeval wg_last_underload;
				int packet_needs_cookie;
				int underload, res;

				underload = mbufq_len(&sc->sc_handshake_queue) >=
				MAX_QUEUED_INCOMING_HANDSHAKES / 8;
				if (underload)
				getmicrouptime(&wg_last_underload);
				else if (wg_last_underload.tv_sec != 0) {
				if (!ratecheck(&wg_last_underload, &underload_interval))
				underload = 1;
				else
				bzero(&wg_last_underload, sizeof(wg_last_underload));
				}

				res = wg_cookie_validate_packet(&sc->sc_cookie, m,
				underload);

				if (res && res != EAGAIN) {
				printf("validate_packet got %d\n", res);
				goto free;
				}
				packet_needs_cookie = (res == EAGAIN);

				t = wg_tag_get(m);
				switch (le32toh(mtod(m, uint32_t ))) {
				case MESSAGE_HANDSHAKE_INITIATION:
				init = mtod(m, struct wg_pkt_initiation *);

				if (packet_needs_cookie) {
				wg_send_cookie(sc, &init->m, init->init.s_idx, m);
				return;
				}
				if (noise_consume_initiation(&sc->sc_local, &remote,
				&init->init) != 0) {
				DPRINTF(sc, "Invalid handshake initiation");
				goto free;
				}

				peer = CONTAINER_OF(remote, struct wg_peer, p_remote);
				DPRINTF(sc, "Receiving handshake initiation from peer %lu\n",
				peer->p_id);
				res = wg_send_response(peer);
				if (res == 0 && noise_remote_begin_session(&peer->p_remote) == 0)
				wg_timers_event_session_derived(&peer->p_timers);
				break;
				case MESSAGE_HANDSHAKE_RESPONSE:
				resp = mtod(m, struct wg_pkt_response *);

				if (packet_needs_cookie) {
				wg_send_cookie(sc, &resp->m, resp->resp.s_idx, m);
				return;
				}

				if ((remote = wg_index_get(sc, resp->resp.r_idx)) == NULL) {
				DPRINTF(sc, "Unknown handshake response\n");
				goto free;
				}
				peer = CONTAINER_OF(remote, struct wg_peer, p_remote);

				if (noise_consume_response(remote, &resp->resp) != 0) {
				DPRINTF(sc, "Invalid handshake response\n");
				goto free;
				}

				DPRINTF(sc, "Receiving handshake response from peer %lu\n",
				peer->p_id);
				counter_u64_add(peer->p_rx_bytes, sizeof(*resp));
				wg_peer_set_endpoint_from_tag(peer, t);
				if (noise_remote_begin_session(&peer->p_remote) == 0) {
				wg_timers_event_session_derived(&peer->p_timers);
				wg_timers_event_handshake_complete(&peer->p_timers);
				}
				break;
				case MESSAGE_HANDSHAKE_COOKIE:
				cook = mtod(m, struct wg_pkt_cookie *);

				if ((remote = wg_index_get(sc, cook->r_idx)) == NULL) {
				DPRINTF(sc, "Unknown cookie index\n");
				goto free;
				}

				peer = CONTAINER_OF(remote, struct wg_peer, p_remote);

				if (cookie_maker_consume_payload(&peer->p_cookie,
				cook->nonce, cook->ec) != 0) {
				DPRINTF(sc, "Could not decrypt cookie response\n");
				goto free;
				}

				DPRINTF(sc, "Receiving cookie response\n");
				goto free;
				default:
				goto free;
				}
				MPASS(peer != NULL);
				wg_timers_event_any_authenticated_packet_received(&peer->p_timers);
				wg_timers_event_any_authenticated_packet_traversal(&peer->p_timers);

				free:
				wg_m_freem(m);
				}

				static void
				wg_encap(struct wg_softc sc, struct mbuf m)
				{
				struct wg_pkt_data *data;
				size_t padding_len, plaintext_len, out_len;
				struct mbuf *mc;
				struct wg_peer *peer;
				struct wg_tag *t;
				int res;

				if (sc->sc_ifp->if_link_state == LINK_STATE_DOWN)
				return;

				NET_EPOCH_ASSERT();
				t = wg_tag_get(m);
				peer = t->t_peer;

				plaintext_len = MIN(WG_PKT_WITH_PADDING(m->m_pkthdr.len), t->t_mtu);
				padding_len = plaintext_len - m->m_pkthdr.len;
				out_len = sizeof(struct wg_pkt_data) + plaintext_len + NOISE_MAC_SIZE;

				if ((mc = m_getjcl(M_NOWAIT, MT_DATA, M_PKTHDR, MCLBYTES)) == NULL)
				goto error;

				data = mtod(mc, struct wg_pkt_data *);
				m_copydata(m, 0, m->m_pkthdr.len, data->data.buf);
				bzero(data->data.buf + m->m_pkthdr.len, padding_len);

				data->t = htole32(MESSAGE_DATA);

				res = noise_remote_encrypt(&peer->p_remote, &data->data, plaintext_len);

				if (__predict_false(res)) {
				if (res == EINVAL) {
				wg_timers_event_want_initiation(&peer->p_timers);
				wg_m_freem(mc);
				goto error;
				} else if (res == ESTALE) {
				wg_timers_event_want_initiation(&peer->p_timers);
				} else
				panic("unexpected result: %d\n", res);
				}

				/* A packet with length 0 is a keepalive packet */
				if (m->m_pkthdr.len == 0)
				DPRINTF(sc, "Sending keepalive packet to peer %lu\n",
				peer->p_id);
				/*
				* Set the correct output value here since it will be copied
				* when we move the pkthdr in send.
				*/
				m->m_pkthdr.len = out_len;
				mc->m_flags &= ~(M_MCAST \| M_BCAST);
				mc->m_len = out_len;
				m_calchdrlen(mc);

				counter_u64_add(peer->p_tx_bytes, m->m_pkthdr.len);

				t->t_mbuf = mc;
				error:
				/* XXX membar ? */
				t->t_done = 1;
				GROUPTASK_ENQUEUE(&peer->p_send);
				}

				static void
				wg_decap(struct wg_softc sc, struct mbuf m)
				{
				struct wg_pkt_data *data;
				struct wg_peer peer, routed_peer;
				struct wg_tag *t;
				size_t plaintext_len;
				uint8_t version;
				int res;

				if (sc->sc_ifp->if_link_state == LINK_STATE_DOWN)
				return;

				NET_EPOCH_ASSERT();
				data = mtod(m, struct wg_pkt_data *);
				plaintext_len = m->m_pkthdr.len - sizeof(struct wg_pkt_data);

				t = wg_tag_get(m);
				peer = t->t_peer;

				res = noise_remote_decrypt(&peer->p_remote, &data->data, plaintext_len);
				if (__predict_false(res)) {
				DPRINTF(sc, "noise_remote_decrypt fail %d \n", res);
				if (res == EINVAL) {
				goto error;
				} else if (res == ECONNRESET) {
				wg_timers_event_handshake_complete(&peer->p_timers);
				} else if (res == ESTALE) {
				wg_timers_event_want_initiation(&peer->p_timers);
				} else {
				panic("unexpected response: %d\n", res);
				}
				}
				wg_peer_set_endpoint_from_tag(peer, t);
				counter_u64_add(peer->p_rx_bytes, m->m_pkthdr.len);

				/* Remove the data header, and crypto mac tail from the packet */
				m_adj(m, sizeof(struct wg_pkt_data));
				m_adj(m, -NOISE_MAC_SIZE);

				/* A packet with length 0 is a keepalive packet */
				if (m->m_pkthdr.len == 0) {
				DPRINTF(peer->p_sc, "Receiving keepalive packet from peer "
				"%lu\n", peer->p_id);
				goto done;
				}

				version = mtod(m, struct ip *)->ip_v;
				if (version != IPVERSION && version != 6) {
				DPRINTF(peer->p_sc, "Packet is neither ipv4 nor ipv6 from peer "
				"%lu\n", peer->p_id);
				goto error;
				}

				routed_peer = wg_route_lookup(&peer->p_sc->sc_routes, m, IN);
				if (routed_peer != peer) {
				DPRINTF(peer->p_sc, "Packet has unallowed src IP from peer "
				"%lu\n", peer->p_id);
				goto error;
				}

				done:
				t->t_mbuf = m;
				error:
				t->t_done = 1;
				GROUPTASK_ENQUEUE(&peer->p_recv);
				}

				void
				wg_softc_handshake_receive(struct wg_softc *sc)
				{
				struct mbuf *m;

				while ((m = mbufq_dequeue(&sc->sc_handshake_queue)) != NULL) {
				verify_endpoint(m);
				wg_handshake(sc, m);
				}
				}

				void
				wg_softc_decrypt(struct wg_softc *sc)
				{
				struct epoch_tracker et;
				struct mbuf *m;

				#if defined(__aarch64__) \|\| defined(__amd64__) \|\| defined(__i386__)
				if (__predict_false(!is_fpu_kern_thread(0)))
				fpu_kern_thread(FPU_KERN_NORMAL);
				#endif
				NET_EPOCH_ENTER(et);
				while ((m = buf_ring_dequeue_mc(sc->sc_decap_ring)) != NULL)
				wg_decap(sc, m);
				NET_EPOCH_EXIT(et);
				}

				void
				wg_softc_encrypt(struct wg_softc *sc)
				{
				struct mbuf *m;
				struct epoch_tracker et;

				#if defined(__aarch64__) \|\| defined(__amd64__) \|\| defined(__i386__)
				if (__predict_false(!is_fpu_kern_thread(0)))
				fpu_kern_thread(FPU_KERN_NORMAL);
				#endif
				NET_EPOCH_ENTER(et);
				while ((m = buf_ring_dequeue_mc(sc->sc_encap_ring)) != NULL)
				wg_encap(sc, m);
				NET_EPOCH_EXIT(et);
				}

				struct noise_remote *
				wg_remote_get(struct wg_softc *sc, uint8_t public[NOISE_KEY_SIZE])
				{
				struct wg_peer *peer;

				if ((peer = wg_peer_lookup(sc, public)) == NULL)
				return (NULL);
				return (&peer->p_remote);
				}

				uint32_t
				wg_index_set(struct wg_softc sc, struct noise_remote remote)
				{
				struct wg_index index, iter;
				struct wg_peer *peer;
				uint32_t key;

				/* We can modify this without a lock as wg_index_set, wg_index_drop are
				* guaranteed to be serialised (per remote). */
				peer = CONTAINER_OF(remote, struct wg_peer, p_remote);
				index = SLIST_FIRST(&peer->p_unused_index);
				MPASS(index != NULL);
				SLIST_REMOVE_HEAD(&peer->p_unused_index, i_unused_entry);

				index->i_value = remote;

				rw_wlock(&sc->sc_index_lock);
				assign_id:
				key = index->i_key = arc4random();
				key &= sc->sc_index_mask;
				LIST_FOREACH(iter, &sc->sc_index[key], i_entry)
				if (iter->i_key == index->i_key)
				goto assign_id;

				LIST_INSERT_HEAD(&sc->sc_index[key], index, i_entry);

				rw_wunlock(&sc->sc_index_lock);

				/* Likewise, no need to lock for index here. */
				return index->i_key;
				}

				struct noise_remote *
				wg_index_get(struct wg_softc *sc, uint32_t key0)
				{
				struct wg_index *iter;
				struct noise_remote *remote = NULL;
				uint32_t key = key0 & sc->sc_index_mask;

				rw_enter_read(&sc->sc_index_lock);
				LIST_FOREACH(iter, &sc->sc_index[key], i_entry)
				if (iter->i_key == key0) {
				remote = iter->i_value;
				break;
				}
				rw_exit_read(&sc->sc_index_lock);
				return remote;
				}

				void
				wg_index_drop(struct wg_softc *sc, uint32_t key0)
				{
				struct wg_index *iter;
				struct wg_peer *peer = NULL;
				uint32_t key = key0 & sc->sc_index_mask;

				rw_enter_write(&sc->sc_index_lock);
				LIST_FOREACH(iter, &sc->sc_index[key], i_entry)
				if (iter->i_key == key0) {
				LIST_REMOVE(iter, i_entry);
				break;
				}
				rw_exit_write(&sc->sc_index_lock);

				if (iter == NULL)
				return;

				/* We expect a peer */
				peer = CONTAINER_OF(iter->i_value, struct wg_peer, p_remote);
				MPASS(peer != NULL);
				SLIST_INSERT_HEAD(&peer->p_unused_index, iter, i_unused_entry);
				}

				static void
				wg_input(struct mbuf m0, int offset, struct inpcb inpcb,
				const struct sockaddr srcsa, void _sc)
				{
				struct wg_pkt_data *pkt_data;
				struct wg_endpoint *e;
				struct wg_softc *sc = _sc;
				struct udphdr *uh;
				struct mbuf *m;
				int pktlen, pkttype, hlen;
				struct noise_remote *remote;
				struct wg_tag *t;
				void *data;

				uh = (struct udphdr *)(m0->m_data + offset);
				hlen = offset + sizeof(struct udphdr);

				m_adj(m0, hlen);

				if ((m = m_defrag(m0, M_NOWAIT)) == NULL) {
				DPRINTF(sc, "DEFRAG fail\n");
				return;
				}
				data = mtod(m, void *);
				pkttype = le32toh((uint32_t)data);
				t = wg_tag_get(m);
				if (t == NULL) {
				DPRINTF(sc, "no tag\n");
				goto free;
				}
				e = wg_mbuf_endpoint_get(m);
				e->e_remote.r_sa = *srcsa;
				verify_endpoint(m);

				if_inc_counter(sc->sc_ifp, IFCOUNTER_IPACKETS, 1);
				if_inc_counter(sc->sc_ifp, IFCOUNTER_IBYTES, m->m_pkthdr.len);
				pktlen = m->m_pkthdr.len;

				if ((pktlen == sizeof(struct wg_pkt_initiation) &&
				pkttype == MESSAGE_HANDSHAKE_INITIATION) \|\|
				(pktlen == sizeof(struct wg_pkt_response) &&
				pkttype == MESSAGE_HANDSHAKE_RESPONSE) \|\|
				(pktlen == sizeof(struct wg_pkt_cookie) &&
				pkttype == MESSAGE_HANDSHAKE_COOKIE)) {
				verify_endpoint(m);
				if (mbufq_enqueue(&sc->sc_handshake_queue, m) == 0) {
				GROUPTASK_ENQUEUE(&sc->sc_handshake);
				} else
				DPRINTF(sc, "Dropping handshake packet\n");
				} else if (pktlen >= sizeof(struct wg_pkt_data) + NOISE_MAC_SIZE
				&& pkttype == MESSAGE_DATA) {

				pkt_data = data;
				remote = wg_index_get(sc, pkt_data->data.r_idx);
				val_packett.coolUnsubmitted Not Done Inline Actions `PCB_USER_FPU(curpcb)` is not actually available on aarch64, this breaks the build. val_packett.cool: `PCB_USER_FPU(curpcb)` is not actually available on aarch64, this breaks the build.
				if (remote == NULL) {
				DPRINTF(sc, "no remote\n");
				if_inc_counter(sc->sc_ifp, IFCOUNTER_IERRORS, 1);
				wg_m_freem(m);
				} else if (buf_ring_count(sc->sc_decap_ring) > MAX_QUEUED_PACKETS) {
				DPRINTF(sc, "freeing excess packet on input\n");
				if_inc_counter(sc->sc_ifp, IFCOUNTER_IQDROPS, 1);
				wg_m_freem(m);
				} else {
				t->t_peer = CONTAINER_OF(remote, struct wg_peer,
				p_remote);
				t->t_mbuf = NULL;
				t->t_done = 0;

				wg_queue_in(t->t_peer, m);
				wg_decrypt_dispatch(sc);
				}
				} else {
				DPRINTF(sc, "Invalid packet\n");
				free:
				wg_m_freem(m);
				}
				}
				/*
				* XXX
				*/
				uint16_t default_port = 5000;


				void
				wg_peer_remove_all(struct wg_softc *sc)
				{
				struct wg_peer peer, tpeer;

				CK_LIST_FOREACH_SAFE(peer, &sc->sc_hashtable.h_peers_list,
				p_entry, tpeer) {
				wg_hashtable_peer_remove(&peer->p_sc->sc_hashtable, peer);
				/* FIXME -- needs to be deferred */
				wg_peer_destroy(peer);
				}
				}