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