Home | History | Annotate | Line # | Download | only in netipsec
xform_ipcomp.c revision 1.38.2.2
      1  1.38.2.2    martin /*	$NetBSD: xform_ipcomp.c,v 1.38.2.2 2018/02/26 13:10:52 martin Exp $	*/
      2       1.1  jonathan /*	$FreeBSD: src/sys/netipsec/xform_ipcomp.c,v 1.1.4.1 2003/01/24 05:11:36 sam Exp $	*/
      3       1.1  jonathan /* $OpenBSD: ip_ipcomp.c,v 1.1 2001/07/05 12:08:52 jjbg Exp $ */
      4       1.1  jonathan 
      5       1.1  jonathan /*
      6       1.1  jonathan  * Copyright (c) 2001 Jean-Jacques Bernard-Gundol (jj (at) wabbitt.org)
      7       1.1  jonathan  *
      8       1.1  jonathan  * Redistribution and use in source and binary forms, with or without
      9       1.1  jonathan  * modification, are permitted provided that the following conditions
     10       1.1  jonathan  * are met:
     11       1.1  jonathan  *
     12       1.1  jonathan  * 1. Redistributions of source code must retain the above copyright
     13       1.1  jonathan  *   notice, this list of conditions and the following disclaimer.
     14       1.1  jonathan  * 2. Redistributions in binary form must reproduce the above copyright
     15       1.1  jonathan  *   notice, this list of conditions and the following disclaimer in the
     16       1.1  jonathan  *   documentation and/or other materials provided with the distribution.
     17       1.1  jonathan  * 3. The name of the author may not be used to endorse or promote products
     18       1.1  jonathan  *   derived from this software without specific prior written permission.
     19       1.1  jonathan  *
     20       1.1  jonathan  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
     21       1.1  jonathan  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
     22       1.1  jonathan  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
     23       1.1  jonathan  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
     24       1.1  jonathan  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
     25       1.1  jonathan  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
     26       1.1  jonathan  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
     27       1.1  jonathan  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
     28       1.1  jonathan  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
     29       1.1  jonathan  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     30       1.1  jonathan  */
     31       1.1  jonathan 
     32       1.1  jonathan #include <sys/cdefs.h>
     33  1.38.2.2    martin __KERNEL_RCSID(0, "$NetBSD: xform_ipcomp.c,v 1.38.2.2 2018/02/26 13:10:52 martin Exp $");
     34       1.1  jonathan 
     35       1.1  jonathan /* IP payload compression protocol (IPComp), see RFC 2393 */
     36      1.32     ozaki #if defined(_KERNEL_OPT)
     37       1.1  jonathan #include "opt_inet.h"
     38      1.32     ozaki #endif
     39       1.1  jonathan 
     40       1.1  jonathan #include <sys/param.h>
     41       1.1  jonathan #include <sys/systm.h>
     42       1.1  jonathan #include <sys/mbuf.h>
     43       1.1  jonathan #include <sys/socket.h>
     44       1.1  jonathan #include <sys/kernel.h>
     45       1.1  jonathan #include <sys/protosw.h>
     46       1.1  jonathan #include <sys/sysctl.h>
     47  1.38.2.1       snj #include <sys/pool.h>
     48  1.38.2.1       snj #include <sys/pserialize.h>
     49       1.1  jonathan 
     50       1.1  jonathan #include <netinet/in.h>
     51       1.1  jonathan #include <netinet/in_systm.h>
     52       1.1  jonathan #include <netinet/ip.h>
     53       1.1  jonathan #include <netinet/ip_var.h>
     54       1.1  jonathan 
     55       1.1  jonathan #include <net/route.h>
     56       1.1  jonathan #include <netipsec/ipsec.h>
     57      1.18   thorpej #include <netipsec/ipsec_private.h>
     58       1.1  jonathan #include <netipsec/xform.h>
     59       1.1  jonathan 
     60       1.1  jonathan #ifdef INET6
     61       1.1  jonathan #include <netinet/ip6.h>
     62       1.1  jonathan #include <netipsec/ipsec6.h>
     63       1.1  jonathan #endif
     64       1.1  jonathan 
     65       1.1  jonathan #include <netipsec/ipcomp.h>
     66       1.1  jonathan #include <netipsec/ipcomp_var.h>
     67       1.1  jonathan 
     68       1.4       tls #include <netipsec/key.h>
     69       1.4       tls #include <netipsec/key_debug.h>
     70       1.1  jonathan 
     71       1.1  jonathan #include <opencrypto/cryptodev.h>
     72       1.1  jonathan #include <opencrypto/deflate.h>
     73       1.1  jonathan #include <opencrypto/xform.h>
     74       1.1  jonathan 
     75      1.18   thorpej percpu_t *ipcompstat_percpu;
     76      1.18   thorpej 
     77       1.9  degroote int	ipcomp_enable = 1;
     78       1.1  jonathan 
     79       1.4       tls #ifdef __FreeBSD__
     80       1.1  jonathan SYSCTL_DECL(_net_inet_ipcomp);
     81       1.1  jonathan SYSCTL_INT(_net_inet_ipcomp, OID_AUTO,
     82       1.1  jonathan 	ipcomp_enable,	CTLFLAG_RW,	&ipcomp_enable,	0, "");
     83       1.1  jonathan SYSCTL_STRUCT(_net_inet_ipcomp, IPSECCTL_STATS,
     84       1.1  jonathan 	stats,		CTLFLAG_RD,	&ipcompstat,	ipcompstat, "");
     85       1.4       tls #endif /* __FreeBSD__ */
     86       1.1  jonathan 
     87       1.1  jonathan static int ipcomp_input_cb(struct cryptop *crp);
     88       1.1  jonathan static int ipcomp_output_cb(struct cryptop *crp);
     89       1.1  jonathan 
     90      1.33  christos const uint8_t ipcomp_stats[256] = { SADB_CALG_STATS_INIT };
     91      1.33  christos 
     92  1.38.2.1       snj static pool_cache_t ipcomp_tdb_crypto_pool_cache;
     93  1.38.2.1       snj 
     94      1.24  drochner const struct comp_algo *
     95       1.1  jonathan ipcomp_algorithm_lookup(int alg)
     96       1.1  jonathan {
     97       1.1  jonathan 	switch (alg) {
     98       1.1  jonathan 	case SADB_X_CALG_DEFLATE:
     99      1.25  drochner 		return &comp_algo_deflate_nogrow;
    100       1.1  jonathan 	}
    101       1.1  jonathan 	return NULL;
    102       1.1  jonathan }
    103       1.1  jonathan 
    104       1.1  jonathan /*
    105       1.1  jonathan  * ipcomp_init() is called when an CPI is being set up.
    106       1.1  jonathan  */
    107       1.1  jonathan static int
    108      1.24  drochner ipcomp_init(struct secasvar *sav, const struct xformsw *xsp)
    109       1.1  jonathan {
    110      1.24  drochner 	const struct comp_algo *tcomp;
    111       1.1  jonathan 	struct cryptoini cric;
    112      1.17       tls 	int ses;
    113       1.1  jonathan 
    114       1.1  jonathan 	/* NB: algorithm really comes in alg_enc and not alg_comp! */
    115       1.1  jonathan 	tcomp = ipcomp_algorithm_lookup(sav->alg_enc);
    116       1.1  jonathan 	if (tcomp == NULL) {
    117      1.34  christos 		DPRINTF(("%s: unsupported compression algorithm %d\n",
    118      1.34  christos 		    __func__, sav->alg_comp));
    119       1.1  jonathan 		return EINVAL;
    120       1.1  jonathan 	}
    121       1.1  jonathan 	sav->alg_comp = sav->alg_enc;		/* set for doing histogram */
    122       1.1  jonathan 	sav->tdb_xform = xsp;
    123       1.1  jonathan 	sav->tdb_compalgxform = tcomp;
    124       1.1  jonathan 
    125       1.1  jonathan 	/* Initialize crypto session */
    126      1.34  christos 	memset(&cric, 0, sizeof(cric));
    127       1.1  jonathan 	cric.cri_alg = sav->tdb_compalgxform->type;
    128       1.1  jonathan 
    129      1.17       tls 	ses = crypto_newsession(&sav->tdb_cryptoid, &cric, crypto_support);
    130      1.17       tls 	return ses;
    131       1.1  jonathan }
    132       1.1  jonathan 
    133       1.1  jonathan /*
    134       1.1  jonathan  * ipcomp_zeroize() used when IPCA is deleted
    135       1.1  jonathan  */
    136       1.1  jonathan static int
    137       1.1  jonathan ipcomp_zeroize(struct secasvar *sav)
    138       1.1  jonathan {
    139       1.1  jonathan 	int err;
    140       1.1  jonathan 
    141       1.1  jonathan 	err = crypto_freesession(sav->tdb_cryptoid);
    142       1.1  jonathan 	sav->tdb_cryptoid = 0;
    143       1.1  jonathan 	return err;
    144       1.1  jonathan }
    145       1.1  jonathan 
    146       1.1  jonathan /*
    147       1.1  jonathan  * ipcomp_input() gets called to uncompress an input packet
    148       1.1  jonathan  */
    149       1.1  jonathan static int
    150  1.38.2.1       snj ipcomp_input(struct mbuf *m, struct secasvar *sav, int skip, int protoff)
    151       1.1  jonathan {
    152       1.1  jonathan 	struct tdb_crypto *tc;
    153       1.1  jonathan 	struct cryptodesc *crdc;
    154       1.1  jonathan 	struct cryptop *crp;
    155  1.38.2.2    martin 	int error, hlen = IPCOMP_HLENGTH, stat = IPCOMP_STAT_CRYPTO;
    156       1.1  jonathan 
    157      1.34  christos 	IPSEC_SPLASSERT_SOFTNET(__func__);
    158       1.1  jonathan 
    159       1.1  jonathan 	/* Get crypto descriptors */
    160       1.1  jonathan 	crp = crypto_getreq(1);
    161       1.1  jonathan 	if (crp == NULL) {
    162      1.34  christos 		DPRINTF(("%s: no crypto descriptors\n", __func__));
    163  1.38.2.2    martin 		error = ENOBUFS;
    164  1.38.2.2    martin 		goto error_m;
    165       1.1  jonathan 	}
    166       1.1  jonathan 	/* Get IPsec-specific opaque pointer */
    167  1.38.2.1       snj 	tc = pool_cache_get(ipcomp_tdb_crypto_pool_cache, PR_NOWAIT);
    168       1.1  jonathan 	if (tc == NULL) {
    169      1.34  christos 		DPRINTF(("%s: cannot allocate tdb_crypto\n", __func__));
    170  1.38.2.2    martin 		error = ENOBUFS;
    171  1.38.2.2    martin 		goto error_crp;
    172       1.1  jonathan 	}
    173      1.29  drochner 
    174      1.29  drochner 	error = m_makewritable(&m, 0, m->m_pkthdr.len, M_NOWAIT);
    175      1.29  drochner 	if (error) {
    176      1.34  christos 		DPRINTF(("%s: m_makewritable failed\n", __func__));
    177  1.38.2.2    martin 		goto error_tc;
    178      1.29  drochner 	}
    179      1.29  drochner 
    180  1.38.2.1       snj     {
    181  1.38.2.1       snj 	int s = pserialize_read_enter();
    182  1.38.2.1       snj 
    183  1.38.2.1       snj 	/*
    184  1.38.2.1       snj 	 * Take another reference to the SA for opencrypto callback.
    185  1.38.2.1       snj 	 */
    186  1.38.2.1       snj 	if (__predict_false(sav->state == SADB_SASTATE_DEAD)) {
    187  1.38.2.1       snj 		pserialize_read_exit(s);
    188  1.38.2.2    martin 		stat = IPCOMP_STAT_NOTDB;
    189  1.38.2.2    martin 		error = ENOENT;
    190  1.38.2.2    martin 		goto error_tc;
    191  1.38.2.1       snj 	}
    192  1.38.2.1       snj 	KEY_SA_REF(sav);
    193  1.38.2.1       snj 	pserialize_read_exit(s);
    194  1.38.2.1       snj     }
    195  1.38.2.1       snj 
    196       1.1  jonathan 	crdc = crp->crp_desc;
    197       1.1  jonathan 
    198       1.1  jonathan 	crdc->crd_skip = skip + hlen;
    199       1.1  jonathan 	crdc->crd_len = m->m_pkthdr.len - (skip + hlen);
    200      1.29  drochner 	crdc->crd_inject = 0; /* unused */
    201       1.1  jonathan 
    202       1.1  jonathan 	/* Decompression operation */
    203       1.1  jonathan 	crdc->crd_alg = sav->tdb_compalgxform->type;
    204       1.1  jonathan 
    205       1.1  jonathan 	/* Crypto operation descriptor */
    206       1.1  jonathan 	crp->crp_ilen = m->m_pkthdr.len - (skip + hlen);
    207      1.25  drochner 	crp->crp_olen = MCLBYTES; /* hint to decompression code */
    208       1.1  jonathan 	crp->crp_flags = CRYPTO_F_IMBUF;
    209      1.13  degroote 	crp->crp_buf = m;
    210       1.1  jonathan 	crp->crp_callback = ipcomp_input_cb;
    211       1.1  jonathan 	crp->crp_sid = sav->tdb_cryptoid;
    212      1.13  degroote 	crp->crp_opaque = tc;
    213       1.1  jonathan 
    214       1.1  jonathan 	/* These are passed as-is to the callback */
    215       1.1  jonathan 	tc->tc_spi = sav->spi;
    216       1.1  jonathan 	tc->tc_dst = sav->sah->saidx.dst;
    217       1.1  jonathan 	tc->tc_proto = sav->sah->saidx.proto;
    218       1.1  jonathan 	tc->tc_protoff = protoff;
    219       1.1  jonathan 	tc->tc_skip = skip;
    220  1.38.2.1       snj 	tc->tc_sav = sav;
    221       1.1  jonathan 
    222       1.1  jonathan 	return crypto_dispatch(crp);
    223  1.38.2.2    martin 
    224  1.38.2.2    martin error_tc:
    225  1.38.2.2    martin 	pool_cache_put(ipcomp_tdb_crypto_pool_cache, tc);
    226  1.38.2.2    martin error_crp:
    227  1.38.2.2    martin 	crypto_freereq(crp);
    228  1.38.2.2    martin error_m:
    229  1.38.2.2    martin 	m_freem(m);
    230  1.38.2.2    martin 	IPCOMP_STATINC(stat);
    231  1.38.2.2    martin 	return error;
    232       1.1  jonathan }
    233       1.1  jonathan 
    234       1.1  jonathan #ifdef INET6
    235  1.38.2.1       snj #define	IPSEC_COMMON_INPUT_CB(m, sav, skip, protoff) do {		     \
    236       1.1  jonathan 	if (saidx->dst.sa.sa_family == AF_INET6) {			     \
    237  1.38.2.1       snj 		error = ipsec6_common_input_cb(m, sav, skip, protoff);	     \
    238       1.1  jonathan 	} else {							     \
    239  1.38.2.1       snj 		error = ipsec4_common_input_cb(m, sav, skip, protoff);       \
    240       1.1  jonathan 	}								     \
    241       1.1  jonathan } while (0)
    242       1.1  jonathan #else
    243  1.38.2.1       snj #define	IPSEC_COMMON_INPUT_CB(m, sav, skip, protoff)			     \
    244  1.38.2.1       snj 	(error = ipsec4_common_input_cb(m, sav, skip, protoff))
    245       1.1  jonathan #endif
    246       1.1  jonathan 
    247       1.1  jonathan /*
    248       1.1  jonathan  * IPComp input callback from the crypto driver.
    249       1.1  jonathan  */
    250       1.1  jonathan static int
    251       1.1  jonathan ipcomp_input_cb(struct cryptop *crp)
    252       1.1  jonathan {
    253      1.38       ryo 	char buf[IPSEC_ADDRSTRLEN];
    254       1.1  jonathan 	struct tdb_crypto *tc;
    255       1.1  jonathan 	int skip, protoff;
    256       1.1  jonathan 	struct mbuf *m;
    257       1.1  jonathan 	struct secasvar *sav;
    258      1.31       mrg 	struct secasindex *saidx __diagused;
    259  1.38.2.1       snj 	int hlen = IPCOMP_HLENGTH, error, clen;
    260      1.34  christos 	uint8_t nproto;
    261      1.11  christos 	void *addr;
    262      1.34  christos 	uint16_t dport;
    263      1.34  christos 	uint16_t sport;
    264  1.38.2.1       snj 	IPSEC_DECLARE_LOCK_VARIABLE;
    265       1.1  jonathan 
    266      1.36     ozaki 	KASSERT(crp->crp_opaque != NULL);
    267      1.34  christos 	tc = crp->crp_opaque;
    268       1.1  jonathan 	skip = tc->tc_skip;
    269       1.1  jonathan 	protoff = tc->tc_protoff;
    270      1.34  christos 	m = crp->crp_buf;
    271       1.1  jonathan 
    272      1.14  degroote 	/* find the source port for NAT-T */
    273      1.30  christos 	nat_t_ports_get(m, &dport, &sport);
    274      1.14  degroote 
    275  1.38.2.1       snj 	IPSEC_ACQUIRE_GLOBAL_LOCKS();
    276       1.1  jonathan 
    277  1.38.2.1       snj 	sav = tc->tc_sav;
    278       1.1  jonathan 	saidx = &sav->sah->saidx;
    279      1.36     ozaki 	KASSERTMSG(saidx->dst.sa.sa_family == AF_INET ||
    280      1.36     ozaki 	    saidx->dst.sa.sa_family == AF_INET6,
    281      1.36     ozaki 	    "unexpected protocol family %u", saidx->dst.sa.sa_family);
    282       1.1  jonathan 
    283       1.1  jonathan 	/* Check for crypto errors */
    284       1.1  jonathan 	if (crp->crp_etype) {
    285       1.1  jonathan 		/* Reset the session ID */
    286       1.1  jonathan 		if (sav->tdb_cryptoid != 0)
    287       1.1  jonathan 			sav->tdb_cryptoid = crp->crp_sid;
    288       1.1  jonathan 
    289       1.1  jonathan 		if (crp->crp_etype == EAGAIN) {
    290  1.38.2.1       snj 			KEY_SA_UNREF(&sav);
    291  1.38.2.1       snj 			IPSEC_RELEASE_GLOBAL_LOCKS();
    292       1.1  jonathan 			return crypto_dispatch(crp);
    293       1.1  jonathan 		}
    294       1.1  jonathan 
    295      1.18   thorpej 		IPCOMP_STATINC(IPCOMP_STAT_NOXFORM);
    296      1.34  christos 		DPRINTF(("%s: crypto error %d\n", __func__, crp->crp_etype));
    297       1.1  jonathan 		error = crp->crp_etype;
    298       1.1  jonathan 		goto bad;
    299       1.1  jonathan 	}
    300  1.38.2.1       snj 
    301      1.33  christos 	IPCOMP_STATINC(IPCOMP_STAT_HIST + ipcomp_stats[sav->alg_comp]);
    302       1.1  jonathan 
    303      1.20  degroote 	/* Update the counters */
    304      1.20  degroote 	IPCOMP_STATADD(IPCOMP_STAT_IBYTES, m->m_pkthdr.len - skip - hlen);
    305      1.20  degroote 
    306      1.20  degroote 
    307       1.1  jonathan 	clen = crp->crp_olen;		/* Length of data after processing */
    308       1.1  jonathan 
    309       1.1  jonathan 	/* Release the crypto descriptors */
    310  1.38.2.1       snj 	pool_cache_put(ipcomp_tdb_crypto_pool_cache, tc);
    311  1.38.2.1       snj 	tc = NULL;
    312       1.1  jonathan 	crypto_freereq(crp), crp = NULL;
    313       1.1  jonathan 
    314       1.1  jonathan 	/* In case it's not done already, adjust the size of the mbuf chain */
    315       1.1  jonathan 	m->m_pkthdr.len = clen + hlen + skip;
    316       1.1  jonathan 
    317       1.1  jonathan 	if (m->m_len < skip + hlen && (m = m_pullup(m, skip + hlen)) == 0) {
    318      1.18   thorpej 		IPCOMP_STATINC(IPCOMP_STAT_HDROPS);	/*XXX*/
    319      1.34  christos 		DPRINTF(("%s: m_pullup failed\n", __func__));
    320       1.1  jonathan 		error = EINVAL;				/*XXX*/
    321       1.1  jonathan 		goto bad;
    322       1.1  jonathan 	}
    323       1.1  jonathan 
    324       1.1  jonathan 	/* Keep the next protocol field */
    325      1.15  degroote 	addr = (uint8_t*) mtod(m, struct ip *) + skip;
    326       1.1  jonathan 	nproto = ((struct ipcomp *) addr)->comp_nxt;
    327      1.34  christos 	switch (nproto) {
    328      1.34  christos 	case IPPROTO_IPCOMP:
    329      1.34  christos 	case IPPROTO_AH:
    330      1.34  christos 	case IPPROTO_ESP:
    331      1.26       spz 		IPCOMP_STATINC(IPCOMP_STAT_HDROPS);
    332      1.34  christos 		DPRINTF(("%s: nested ipcomp, IPCA %s/%08lx\n", __func__,
    333      1.38       ryo 		    ipsec_address(&sav->sah->saidx.dst, buf, sizeof(buf)),
    334      1.34  christos 		    (u_long) ntohl(sav->spi)));
    335      1.26       spz 		error = EINVAL;
    336      1.26       spz 		goto bad;
    337      1.34  christos 	default:
    338      1.34  christos 		break;
    339      1.26       spz 	}
    340       1.1  jonathan 
    341       1.1  jonathan 	/* Remove the IPCOMP header */
    342       1.1  jonathan 	error = m_striphdr(m, skip, hlen);
    343       1.1  jonathan 	if (error) {
    344      1.18   thorpej 		IPCOMP_STATINC(IPCOMP_STAT_HDROPS);
    345      1.34  christos 		DPRINTF(("%s: bad mbuf chain, IPCA %s/%08lx\n", __func__,
    346      1.38       ryo 		    ipsec_address(&sav->sah->saidx.dst, buf, sizeof(buf)),
    347      1.38       ryo 		    (u_long) ntohl(sav->spi)));
    348       1.1  jonathan 		goto bad;
    349       1.1  jonathan 	}
    350       1.1  jonathan 
    351       1.1  jonathan 	/* Restore the Next Protocol field */
    352      1.34  christos 	m_copyback(m, protoff, sizeof(uint8_t), (uint8_t *) &nproto);
    353       1.1  jonathan 
    354  1.38.2.1       snj 	IPSEC_COMMON_INPUT_CB(m, sav, skip, protoff);
    355       1.1  jonathan 
    356  1.38.2.1       snj 	KEY_SA_UNREF(&sav);
    357  1.38.2.1       snj 	IPSEC_RELEASE_GLOBAL_LOCKS();
    358       1.1  jonathan 	return error;
    359       1.1  jonathan bad:
    360       1.1  jonathan 	if (sav)
    361  1.38.2.1       snj 		KEY_SA_UNREF(&sav);
    362  1.38.2.1       snj 	IPSEC_RELEASE_GLOBAL_LOCKS();
    363       1.1  jonathan 	if (m)
    364       1.1  jonathan 		m_freem(m);
    365       1.1  jonathan 	if (tc != NULL)
    366  1.38.2.1       snj 		pool_cache_put(ipcomp_tdb_crypto_pool_cache, tc);
    367       1.1  jonathan 	if (crp)
    368       1.1  jonathan 		crypto_freereq(crp);
    369       1.1  jonathan 	return error;
    370       1.1  jonathan }
    371       1.1  jonathan 
    372       1.1  jonathan /*
    373       1.1  jonathan  * IPComp output routine, called by ipsec[46]_process_packet()
    374       1.1  jonathan  */
    375       1.1  jonathan static int
    376       1.1  jonathan ipcomp_output(
    377       1.7  christos     struct mbuf *m,
    378  1.38.2.1       snj     const struct ipsecrequest *isr,
    379  1.38.2.1       snj     struct secasvar *sav,
    380       1.8  christos     struct mbuf **mp,
    381       1.7  christos     int skip,
    382       1.7  christos     int protoff
    383       1.1  jonathan )
    384       1.1  jonathan {
    385      1.38       ryo 	char buf[IPSEC_ADDRSTRLEN];
    386      1.24  drochner 	const struct comp_algo *ipcompx;
    387       1.9  degroote 	int error, ralen, hlen, maxpacketsize;
    388       1.1  jonathan 	struct cryptodesc *crdc;
    389       1.1  jonathan 	struct cryptop *crp;
    390       1.1  jonathan 	struct tdb_crypto *tc;
    391       1.1  jonathan 
    392      1.34  christos 	IPSEC_SPLASSERT_SOFTNET(__func__);
    393  1.38.2.1       snj 	KASSERT(sav != NULL);
    394      1.36     ozaki 	KASSERT(sav->tdb_compalgxform != NULL);
    395       1.1  jonathan 	ipcompx = sav->tdb_compalgxform;
    396       1.1  jonathan 
    397       1.1  jonathan 	ralen = m->m_pkthdr.len - skip;	/* Raw payload length before comp. */
    398       1.9  degroote 
    399       1.9  degroote     /* Don't process the packet if it is too short */
    400       1.9  degroote 	if (ralen < ipcompx->minlen) {
    401      1.18   thorpej 		IPCOMP_STATINC(IPCOMP_STAT_MINLEN);
    402  1.38.2.1       snj 		return ipsec_process_done(m, isr, sav);
    403       1.9  degroote 	}
    404       1.9  degroote 
    405       1.1  jonathan 	hlen = IPCOMP_HLENGTH;
    406       1.1  jonathan 
    407      1.18   thorpej 	IPCOMP_STATINC(IPCOMP_STAT_OUTPUT);
    408       1.1  jonathan 
    409       1.1  jonathan 	/* Check for maximum packet size violations. */
    410       1.1  jonathan 	switch (sav->sah->saidx.dst.sa.sa_family) {
    411       1.1  jonathan #ifdef INET
    412       1.1  jonathan 	case AF_INET:
    413       1.1  jonathan 		maxpacketsize =  IP_MAXPACKET;
    414       1.1  jonathan 		break;
    415       1.1  jonathan #endif /* INET */
    416       1.1  jonathan #ifdef INET6
    417       1.1  jonathan 	case AF_INET6:
    418       1.1  jonathan 		maxpacketsize =  IPV6_MAXPACKET;
    419       1.1  jonathan 		break;
    420       1.1  jonathan #endif /* INET6 */
    421       1.1  jonathan 	default:
    422      1.18   thorpej 		IPCOMP_STATINC(IPCOMP_STAT_NOPF);
    423      1.34  christos 		DPRINTF(("%s: unknown/unsupported protocol family %d"
    424      1.34  christos 		    ", IPCA %s/%08lx\n", __func__,
    425       1.1  jonathan 		    sav->sah->saidx.dst.sa.sa_family,
    426      1.38       ryo 		    ipsec_address(&sav->sah->saidx.dst, buf, sizeof(buf)),
    427       1.1  jonathan 		    (u_long) ntohl(sav->spi)));
    428       1.1  jonathan 		error = EPFNOSUPPORT;
    429       1.1  jonathan 		goto bad;
    430       1.1  jonathan 	}
    431       1.1  jonathan 	if (skip + hlen + ralen > maxpacketsize) {
    432      1.18   thorpej 		IPCOMP_STATINC(IPCOMP_STAT_TOOBIG);
    433      1.34  christos 		DPRINTF(("%s: packet in IPCA %s/%08lx got too big "
    434      1.34  christos 		    "(len %u, max len %u)\n", __func__,
    435      1.38       ryo 		    ipsec_address(&sav->sah->saidx.dst, buf, sizeof(buf)),
    436       1.1  jonathan 		    (u_long) ntohl(sav->spi),
    437       1.1  jonathan 		    skip + hlen + ralen, maxpacketsize));
    438       1.1  jonathan 		error = EMSGSIZE;
    439       1.1  jonathan 		goto bad;
    440       1.1  jonathan 	}
    441       1.1  jonathan 
    442       1.1  jonathan 	/* Update the counters */
    443      1.18   thorpej 	IPCOMP_STATADD(IPCOMP_STAT_OBYTES, m->m_pkthdr.len - skip);
    444       1.1  jonathan 
    445       1.1  jonathan 	m = m_clone(m);
    446       1.1  jonathan 	if (m == NULL) {
    447      1.18   thorpej 		IPCOMP_STATINC(IPCOMP_STAT_HDROPS);
    448      1.34  christos 		DPRINTF(("%s: cannot clone mbuf chain, IPCA %s/%08lx\n",
    449      1.38       ryo 		    __func__,
    450      1.38       ryo 		    ipsec_address(&sav->sah->saidx.dst, buf, sizeof(buf)),
    451       1.1  jonathan 		    (u_long) ntohl(sav->spi)));
    452       1.1  jonathan 		error = ENOBUFS;
    453       1.1  jonathan 		goto bad;
    454       1.1  jonathan 	}
    455       1.1  jonathan 
    456       1.1  jonathan 	/* Ok now, we can pass to the crypto processing */
    457       1.1  jonathan 
    458       1.1  jonathan 	/* Get crypto descriptors */
    459       1.1  jonathan 	crp = crypto_getreq(1);
    460       1.1  jonathan 	if (crp == NULL) {
    461      1.18   thorpej 		IPCOMP_STATINC(IPCOMP_STAT_CRYPTO);
    462      1.34  christos 		DPRINTF(("%s: failed to acquire crypto descriptor\n",
    463      1.34  christos 		    __func__));
    464       1.1  jonathan 		error = ENOBUFS;
    465       1.1  jonathan 		goto bad;
    466       1.1  jonathan 	}
    467       1.1  jonathan 	crdc = crp->crp_desc;
    468       1.1  jonathan 
    469       1.1  jonathan 	/* Compression descriptor */
    470       1.9  degroote 	crdc->crd_skip = skip;
    471       1.9  degroote 	crdc->crd_len = m->m_pkthdr.len - skip;
    472       1.1  jonathan 	crdc->crd_flags = CRD_F_COMP;
    473       1.9  degroote 	crdc->crd_inject = skip;
    474       1.1  jonathan 
    475       1.1  jonathan 	/* Compression operation */
    476       1.1  jonathan 	crdc->crd_alg = ipcompx->type;
    477       1.1  jonathan 
    478       1.1  jonathan 	/* IPsec-specific opaque crypto info */
    479  1.38.2.1       snj 	tc = pool_cache_get(ipcomp_tdb_crypto_pool_cache, PR_NOWAIT);
    480       1.1  jonathan 	if (tc == NULL) {
    481      1.18   thorpej 		IPCOMP_STATINC(IPCOMP_STAT_CRYPTO);
    482      1.34  christos 		DPRINTF(("%s: failed to allocate tdb_crypto\n", __func__));
    483       1.1  jonathan 		crypto_freereq(crp);
    484       1.1  jonathan 		error = ENOBUFS;
    485       1.1  jonathan 		goto bad;
    486       1.1  jonathan 	}
    487       1.1  jonathan 
    488  1.38.2.1       snj     {
    489  1.38.2.1       snj 	int s = pserialize_read_enter();
    490  1.38.2.1       snj 
    491  1.38.2.1       snj 	/*
    492  1.38.2.1       snj 	 * Take another reference to the SP and the SA for opencrypto callback.
    493  1.38.2.1       snj 	 */
    494  1.38.2.1       snj 	if (__predict_false(isr->sp->state == IPSEC_SPSTATE_DEAD ||
    495  1.38.2.1       snj 	    sav->state == SADB_SASTATE_DEAD)) {
    496  1.38.2.1       snj 		pserialize_read_exit(s);
    497  1.38.2.1       snj 		pool_cache_put(ipcomp_tdb_crypto_pool_cache, tc);
    498  1.38.2.1       snj 		crypto_freereq(crp);
    499  1.38.2.1       snj 		IPCOMP_STATINC(IPCOMP_STAT_NOTDB);
    500  1.38.2.1       snj 		error = ENOENT;
    501  1.38.2.1       snj 		goto bad;
    502  1.38.2.1       snj 	}
    503  1.38.2.1       snj 	KEY_SP_REF(isr->sp);
    504  1.38.2.1       snj 	KEY_SA_REF(sav);
    505  1.38.2.1       snj 	pserialize_read_exit(s);
    506  1.38.2.1       snj     }
    507  1.38.2.1       snj 
    508       1.1  jonathan 	tc->tc_isr = isr;
    509       1.1  jonathan 	tc->tc_spi = sav->spi;
    510       1.1  jonathan 	tc->tc_dst = sav->sah->saidx.dst;
    511       1.1  jonathan 	tc->tc_proto = sav->sah->saidx.proto;
    512      1.10  degroote 	tc->tc_skip = skip;
    513      1.10  degroote 	tc->tc_protoff = protoff;
    514  1.38.2.1       snj 	tc->tc_sav = sav;
    515       1.1  jonathan 
    516       1.1  jonathan 	/* Crypto operation descriptor */
    517       1.1  jonathan 	crp->crp_ilen = m->m_pkthdr.len;	/* Total input length */
    518       1.1  jonathan 	crp->crp_flags = CRYPTO_F_IMBUF;
    519      1.13  degroote 	crp->crp_buf = m;
    520       1.1  jonathan 	crp->crp_callback = ipcomp_output_cb;
    521      1.13  degroote 	crp->crp_opaque = tc;
    522       1.1  jonathan 	crp->crp_sid = sav->tdb_cryptoid;
    523       1.1  jonathan 
    524       1.1  jonathan 	return crypto_dispatch(crp);
    525       1.1  jonathan bad:
    526       1.1  jonathan 	if (m)
    527       1.1  jonathan 		m_freem(m);
    528       1.1  jonathan 	return (error);
    529       1.1  jonathan }
    530       1.1  jonathan 
    531       1.1  jonathan /*
    532       1.1  jonathan  * IPComp output callback from the crypto driver.
    533       1.1  jonathan  */
    534       1.1  jonathan static int
    535       1.1  jonathan ipcomp_output_cb(struct cryptop *crp)
    536       1.1  jonathan {
    537      1.38       ryo 	char buf[IPSEC_ADDRSTRLEN];
    538       1.1  jonathan 	struct tdb_crypto *tc;
    539  1.38.2.1       snj 	const struct ipsecrequest *isr;
    540       1.1  jonathan 	struct secasvar *sav;
    541       1.9  degroote 	struct mbuf *m, *mo;
    542  1.38.2.1       snj 	int error, skip, rlen, roff;
    543      1.34  christos 	uint8_t prot;
    544      1.34  christos 	uint16_t cpi;
    545       1.9  degroote 	struct ipcomp * ipcomp;
    546  1.38.2.1       snj 	IPSEC_DECLARE_LOCK_VARIABLE;
    547       1.9  degroote 
    548      1.36     ozaki 	KASSERT(crp->crp_opaque != NULL);
    549      1.34  christos 	tc = crp->crp_opaque;
    550      1.34  christos 	m = crp->crp_buf;
    551       1.1  jonathan 	skip = tc->tc_skip;
    552       1.1  jonathan 	rlen = crp->crp_ilen - skip;
    553       1.1  jonathan 
    554  1.38.2.1       snj 	IPSEC_ACQUIRE_GLOBAL_LOCKS();
    555       1.1  jonathan 
    556       1.1  jonathan 	isr = tc->tc_isr;
    557  1.38.2.1       snj 	sav = tc->tc_sav;
    558       1.1  jonathan 
    559       1.1  jonathan 	/* Check for crypto errors */
    560       1.1  jonathan 	if (crp->crp_etype) {
    561       1.1  jonathan 		/* Reset session ID */
    562       1.1  jonathan 		if (sav->tdb_cryptoid != 0)
    563       1.1  jonathan 			sav->tdb_cryptoid = crp->crp_sid;
    564       1.1  jonathan 
    565       1.1  jonathan 		if (crp->crp_etype == EAGAIN) {
    566  1.38.2.1       snj 			IPSEC_RELEASE_GLOBAL_LOCKS();
    567       1.1  jonathan 			return crypto_dispatch(crp);
    568       1.1  jonathan 		}
    569      1.18   thorpej 		IPCOMP_STATINC(IPCOMP_STAT_NOXFORM);
    570      1.34  christos 		DPRINTF(("%s: crypto error %d\n", __func__, crp->crp_etype));
    571       1.1  jonathan 		error = crp->crp_etype;
    572       1.1  jonathan 		goto bad;
    573       1.1  jonathan 	}
    574  1.38.2.1       snj 
    575      1.33  christos 	IPCOMP_STATINC(IPCOMP_STAT_HIST + ipcomp_stats[sav->alg_comp]);
    576       1.1  jonathan 
    577       1.1  jonathan 	if (rlen > crp->crp_olen) {
    578       1.9  degroote 		/* Inject IPCOMP header */
    579       1.9  degroote 		mo = m_makespace(m, skip, IPCOMP_HLENGTH, &roff);
    580       1.9  degroote 		if (mo == NULL) {
    581      1.18   thorpej 			IPCOMP_STATINC(IPCOMP_STAT_WRAP);
    582      1.34  christos 			DPRINTF(("%s: failed to inject IPCOMP header for "
    583      1.34  christos 			    "IPCA %s/%08lx\n", __func__,
    584      1.38       ryo 			    ipsec_address(&sav->sah->saidx.dst, buf,
    585      1.38       ryo 			    sizeof(buf)), (u_long) ntohl(sav->spi)));
    586       1.9  degroote 			error = ENOBUFS;
    587       1.9  degroote 			goto bad;
    588       1.9  degroote 		}
    589      1.12  degroote 		ipcomp = (struct ipcomp *)(mtod(mo, char *) + roff);
    590       1.9  degroote 
    591       1.9  degroote 		/* Initialize the IPCOMP header */
    592       1.9  degroote 		/* XXX alignment always correct? */
    593       1.9  degroote 		switch (sav->sah->saidx.dst.sa.sa_family) {
    594       1.9  degroote #ifdef INET
    595       1.9  degroote 		case AF_INET:
    596       1.9  degroote 			ipcomp->comp_nxt = mtod(m, struct ip *)->ip_p;
    597       1.9  degroote 			 break;
    598       1.9  degroote #endif /* INET */
    599       1.9  degroote #ifdef INET6
    600       1.9  degroote 		case AF_INET6:
    601       1.9  degroote 			ipcomp->comp_nxt = mtod(m, struct ip6_hdr *)->ip6_nxt;
    602       1.9  degroote 		break;
    603       1.9  degroote #endif
    604       1.9  degroote 		}
    605       1.9  degroote 		ipcomp->comp_flags = 0;
    606       1.9  degroote 
    607       1.9  degroote 		if ((sav->flags & SADB_X_EXT_RAWCPI) == 0)
    608       1.9  degroote 			 cpi = sav->alg_enc;
    609       1.9  degroote 		else
    610       1.9  degroote 			cpi = ntohl(sav->spi) & 0xffff;
    611       1.9  degroote 		ipcomp->comp_cpi = htons(cpi);
    612       1.9  degroote 
    613       1.9  degroote 		/* Fix Next Protocol in IPv4/IPv6 header */
    614       1.9  degroote 		prot = IPPROTO_IPCOMP;
    615      1.34  christos 		m_copyback(m, tc->tc_protoff, sizeof(uint8_t), (u_char *)&prot);
    616       1.9  degroote 
    617       1.1  jonathan 		/* Adjust the length in the IP header */
    618       1.1  jonathan 		switch (sav->sah->saidx.dst.sa.sa_family) {
    619       1.1  jonathan #ifdef INET
    620       1.1  jonathan 		case AF_INET:
    621       1.1  jonathan 			mtod(m, struct ip *)->ip_len = htons(m->m_pkthdr.len);
    622       1.1  jonathan 			break;
    623       1.1  jonathan #endif /* INET */
    624       1.1  jonathan #ifdef INET6
    625       1.1  jonathan 		case AF_INET6:
    626       1.1  jonathan 			mtod(m, struct ip6_hdr *)->ip6_plen =
    627       1.1  jonathan 				htons(m->m_pkthdr.len) - sizeof(struct ip6_hdr);
    628       1.1  jonathan 			break;
    629       1.1  jonathan #endif /* INET6 */
    630       1.1  jonathan 		default:
    631      1.18   thorpej 			IPCOMP_STATINC(IPCOMP_STAT_NOPF);
    632       1.1  jonathan 			DPRINTF(("ipcomp_output: unknown/unsupported protocol "
    633       1.5     perry 			    "family %d, IPCA %s/%08lx\n",
    634       1.1  jonathan 			    sav->sah->saidx.dst.sa.sa_family,
    635      1.38       ryo 			    ipsec_address(&sav->sah->saidx.dst, buf,
    636      1.38       ryo 			    sizeof(buf)), (u_long) ntohl(sav->spi)));
    637       1.1  jonathan 			error = EPFNOSUPPORT;
    638       1.1  jonathan 			goto bad;
    639       1.1  jonathan 		}
    640       1.1  jonathan 	} else {
    641       1.1  jonathan 		/* compression was useless, we have lost time */
    642      1.18   thorpej 		IPCOMP_STATINC(IPCOMP_STAT_USELESS);
    643      1.16  degroote 		DPRINTF(("ipcomp_output_cb: compression was useless : initial size was %d"
    644      1.16  degroote 				   	"and compressed size is %d\n", rlen, crp->crp_olen));
    645       1.1  jonathan 	}
    646       1.1  jonathan 
    647      1.16  degroote 
    648       1.1  jonathan 	/* Release the crypto descriptor */
    649  1.38.2.1       snj 	pool_cache_put(ipcomp_tdb_crypto_pool_cache, tc);
    650       1.1  jonathan 	crypto_freereq(crp);
    651       1.1  jonathan 
    652       1.1  jonathan 	/* NB: m is reclaimed by ipsec_process_done. */
    653  1.38.2.1       snj 	error = ipsec_process_done(m, isr, sav);
    654  1.38.2.1       snj 	KEY_SA_UNREF(&sav);
    655  1.38.2.1       snj 	KEY_SP_UNREF(&isr->sp);
    656  1.38.2.1       snj 	IPSEC_RELEASE_GLOBAL_LOCKS();
    657       1.1  jonathan 	return error;
    658       1.1  jonathan bad:
    659       1.1  jonathan 	if (sav)
    660  1.38.2.1       snj 		KEY_SA_UNREF(&sav);
    661  1.38.2.1       snj 	KEY_SP_UNREF(&isr->sp);
    662  1.38.2.1       snj 	IPSEC_RELEASE_GLOBAL_LOCKS();
    663       1.1  jonathan 	if (m)
    664       1.1  jonathan 		m_freem(m);
    665  1.38.2.1       snj 	pool_cache_put(ipcomp_tdb_crypto_pool_cache, tc);
    666       1.1  jonathan 	crypto_freereq(crp);
    667       1.1  jonathan 	return error;
    668       1.1  jonathan }
    669       1.1  jonathan 
    670       1.1  jonathan static struct xformsw ipcomp_xformsw = {
    671  1.38.2.1       snj 	.xf_type	= XF_IPCOMP,
    672  1.38.2.1       snj 	.xf_flags	= XFT_COMP,
    673  1.38.2.1       snj 	.xf_name	= "IPcomp",
    674  1.38.2.1       snj 	.xf_init	= ipcomp_init,
    675  1.38.2.1       snj 	.xf_zeroize	= ipcomp_zeroize,
    676  1.38.2.1       snj 	.xf_input	= ipcomp_input,
    677  1.38.2.1       snj 	.xf_output	= ipcomp_output,
    678  1.38.2.1       snj 	.xf_next	= NULL,
    679       1.1  jonathan };
    680       1.1  jonathan 
    681      1.37     ozaki void
    682       1.1  jonathan ipcomp_attach(void)
    683       1.1  jonathan {
    684      1.18   thorpej 	ipcompstat_percpu = percpu_alloc(sizeof(uint64_t) * IPCOMP_NSTATS);
    685  1.38.2.1       snj 	ipcomp_tdb_crypto_pool_cache = pool_cache_init(sizeof(struct tdb_crypto),
    686  1.38.2.1       snj 	    coherency_unit, 0, 0, "ipcomp_tdb_crypto", NULL, IPL_SOFTNET,
    687  1.38.2.1       snj 	    NULL, NULL, NULL);
    688       1.1  jonathan 	xform_register(&ipcomp_xformsw);
    689       1.1  jonathan }
    690