2 * Copyright (c) 2015 Cisco and/or its affiliates.
3 * Licensed under the Apache License, Version 2.0 (the "License");
4 * you may not use this file except in compliance with the License.
5 * You may obtain a copy of the License at:
7 * http://www.apache.org/licenses/LICENSE-2.0
9 * Unless required by applicable law or agreed to in writing, software
10 * distributed under the License is distributed on an "AS IS" BASIS,
11 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
12 * See the License for the specific language governing permissions and
13 * limitations under the License.
18 #include <vnet/vnet.h>
19 #include <vnet/api_errno.h>
20 #include <vnet/ip/ip.h>
21 #include <vnet/interface.h>
23 #include <vnet/ipsec/ipsec.h>
24 #include <plugins/ikev2/ikev2.h>
25 #include <plugins/ikev2/ikev2_priv.h>
28 typedef CLIB_PACKED (struct {
36 }) ike_notify_payload_header_t;
40 typedef CLIB_PACKED (struct {
46 ip4_address_t start_addr;
47 ip4_address_t end_addr;
48 }) ikev2_ts_payload_entry_t;
52 typedef CLIB_PACKED (struct {
58 ikev2_ts_payload_entry_t ts[0];
59 }) ike_ts_payload_header_t;
63 typedef CLIB_PACKED (struct {
70 u8 num_transforms; u32 spi[0];
71 }) ike_sa_proposal_data_t;
75 typedef CLIB_PACKED (struct {
83 }) ike_sa_transform_data_t;
87 typedef CLIB_PACKED (struct {
95 }) ike_delete_payload_header_t;
98 static ike_payload_header_t *
99 ikev2_payload_add_hdr (ikev2_payload_chain_t * c, u8 payload_type, int len)
101 ike_payload_header_t *hdr =
102 (ike_payload_header_t *) & c->data[c->last_hdr_off];
106 hdr->nextpayload = payload_type;
108 c->first_payload_type = payload_type;
110 c->last_hdr_off = vec_len (c->data);
111 vec_add2 (c->data, tmp, len);
112 hdr = (ike_payload_header_t *) tmp;
113 clib_memset (hdr, 0, len);
115 hdr->length = clib_host_to_net_u16 (len);
121 ikev2_payload_add_data (ikev2_payload_chain_t * c, u8 * data)
124 ike_payload_header_t *hdr;
126 vec_append (c->data, data);
127 hdr = (ike_payload_header_t *) & c->data[c->last_hdr_off];
128 len = clib_net_to_host_u16 (hdr->length);
129 hdr->length = clib_host_to_net_u16 (len + vec_len (data));
133 ikev2_payload_add_notify (ikev2_payload_chain_t * c, u16 msg_type, u8 * data)
135 ikev2_payload_add_notify_2(c, msg_type, data, 0);
139 ikev2_payload_add_notify_2 (ikev2_payload_chain_t * c, u16 msg_type,
140 u8 * data, ikev2_notify_t * notify)
142 ike_notify_payload_header_t *n;
145 (ike_notify_payload_header_t *) ikev2_payload_add_hdr (c,
146 IKEV2_PAYLOAD_NOTIFY,
148 n->msg_type = clib_host_to_net_u16 (msg_type);
151 n->protocol_id = notify->protocol_id;
157 ikev2_payload_add_data (c, data);
161 ikev2_payload_add_sa (ikev2_payload_chain_t * c,
162 ikev2_sa_proposal_t * proposals)
164 ike_payload_header_t *ph;
165 ike_sa_proposal_data_t *prop;
166 ike_sa_transform_data_t *tr;
167 ikev2_sa_proposal_t *p;
168 ikev2_sa_transform_t *t;
174 ikev2_payload_add_hdr (c, IKEV2_PAYLOAD_SA, sizeof (*ph));
176 vec_foreach (p, proposals)
178 int spi_size = (p->protocol_id == IKEV2_PROTOCOL_ESP) ? 4 : 0;
179 pr_data = vec_new (u8, sizeof (ike_sa_proposal_data_t) + spi_size);
180 prop = (ike_sa_proposal_data_t *) pr_data;
181 prop->last_or_more = proposals - p + 1 < vec_len (proposals) ? 2 : 0;
182 prop->protocol_id = p->protocol_id;
183 prop->proposal_num = p->proposal_num;
184 prop->spi_size = spi_size;
185 prop->num_transforms = vec_len (p->transforms);
188 prop->spi[0] = clib_host_to_net_u32 (p->spi);
190 DBG_PLD ("proposal num %u protocol_id %u last_or_more %u spi_size %u%s%U",
191 prop->proposal_num, prop->protocol_id, prop->last_or_more,
192 prop->spi_size, prop->spi_size ? " spi_data " : "",
193 format_hex_bytes, prop->spi, prop->spi_size);
195 vec_foreach (t, p->transforms)
197 vec_add2 (tr_data, tmp, sizeof (*tr) + vec_len (t->attrs));
198 tr = (ike_sa_transform_data_t *) tmp;
200 ((t - p->transforms) + 1 < vec_len (p->transforms)) ? 3 : 0;
201 tr->transform_type = t->type;
202 tr->transform_id = clib_host_to_net_u16 (t->transform_id);
204 clib_host_to_net_u16 (sizeof (*tr) + vec_len (t->attrs));
206 if (vec_len (t->attrs) > 0)
207 clib_memcpy_fast (tr->attributes, t->attrs, vec_len (t->attrs));
210 ("transform type %U transform_id %u last_or_more %u attr_size %u%s%U",
211 format_ikev2_transform_type, tr->transform_type, t->transform_id,
212 tr->last_or_more, vec_len (t->attrs),
213 vec_len (t->attrs) ? " attrs " : "", format_hex_bytes,
214 tr->attributes, vec_len (t->attrs));
218 clib_host_to_net_u16 (vec_len (tr_data) + vec_len (pr_data));
219 ikev2_payload_add_data (c, pr_data);
220 ikev2_payload_add_data (c, tr_data);
227 ikev2_payload_add_ke (ikev2_payload_chain_t * c, u16 dh_group, u8 * dh_data)
229 ike_ke_payload_header_t *ke;
230 ke = (ike_ke_payload_header_t *) ikev2_payload_add_hdr (c, IKEV2_PAYLOAD_KE,
233 ke->dh_group = clib_host_to_net_u16 (dh_group);
234 ikev2_payload_add_data (c, dh_data);
238 ikev2_payload_add_nonce (ikev2_payload_chain_t * c, u8 * nonce)
240 ikev2_payload_add_hdr (c, IKEV2_PAYLOAD_NONCE,
241 sizeof (ike_payload_header_t));
242 ikev2_payload_add_data (c, nonce);
246 ikev2_payload_add_id (ikev2_payload_chain_t * c, ikev2_id_t * id, u8 type)
248 ike_id_payload_header_t *idp;
250 (ike_id_payload_header_t *) ikev2_payload_add_hdr (c, type,
253 idp->id_type = id->type;
254 ikev2_payload_add_data (c, id->data);
258 ikev2_payload_add_delete (ikev2_payload_chain_t * c, ikev2_delete_t * d)
260 ike_delete_payload_header_t *dp;
261 u16 num_of_spi = vec_len (d);
264 (ike_delete_payload_header_t *) ikev2_payload_add_hdr (c,
265 IKEV2_PAYLOAD_DELETE,
268 if (d[0].protocol_id == IKEV2_PROTOCOL_IKE)
274 dp->protocol_id = d[0].protocol_id;
276 dp->num_of_spi = clib_host_to_net_u16 (num_of_spi);
279 u8 *data = vec_new (u8, 4);
280 u32 spi = clib_host_to_net_u32 (d2->spi);
281 clib_memcpy (data, &spi, 4);
282 ikev2_payload_add_data (c, data);
289 ikev2_payload_add_auth (ikev2_payload_chain_t * c, ikev2_auth_t * auth)
291 ike_auth_payload_header_t *ap;
293 (ike_auth_payload_header_t *) ikev2_payload_add_hdr (c,
297 ap->auth_method = auth->method;
298 ikev2_payload_add_data (c, auth->data);
302 ikev2_payload_add_ts (ikev2_payload_chain_t * c, ikev2_ts_t * ts, u8 type)
304 ike_ts_payload_header_t *tsh;
309 (ike_ts_payload_header_t *) ikev2_payload_add_hdr (c, type,
311 tsh->num_ts = vec_len (ts);
313 vec_foreach (ts2, ts)
315 ASSERT (ts2->ts_type == 7); /*TS_IPV4_ADDR_RANGE */
316 ikev2_ts_payload_entry_t *entry;
317 vec_add2 (data, tmp, sizeof (*entry));
318 entry = (ikev2_ts_payload_entry_t *) tmp;
319 entry->ts_type = ts2->ts_type;
320 entry->protocol_id = ts2->protocol_id;
321 entry->selector_len = clib_host_to_net_u16 (16);
322 entry->start_port = clib_host_to_net_u16 (ts2->start_port);
323 entry->end_port = clib_host_to_net_u16 (ts2->end_port);
324 entry->start_addr.as_u32 = ts2->start_addr.as_u32;
325 entry->end_addr.as_u32 = ts2->end_addr.as_u32;
328 ikev2_payload_add_data (c, data);
333 ikev2_payload_chain_add_padding (ikev2_payload_chain_t * c, int bs)
335 u8 *tmp __attribute__ ((unused));
336 u8 pad_len = (vec_len (c->data) / bs + 1) * bs - vec_len (c->data);
337 vec_add2 (c->data, tmp, pad_len);
338 c->data[vec_len (c->data) - 1] = pad_len - 1;
341 ikev2_sa_proposal_t *
342 ikev2_parse_sa_payload (ike_payload_header_t * ikep)
344 ikev2_sa_proposal_t *v = 0;
345 ikev2_sa_proposal_t *proposal;
346 ikev2_sa_transform_t *transform;
348 u32 plen = clib_net_to_host_u16 (ikep->length);
350 ike_sa_proposal_data_t *sap;
351 int proposal_ptr = 0;
355 sap = (ike_sa_proposal_data_t *) & ikep->payload[proposal_ptr];
359 DBG_PLD ("proposal num %u len %u last_or_more %u id %u "
360 "spi_size %u num_transforms %u",
361 sap->proposal_num, clib_net_to_host_u16 (sap->proposal_len),
362 sap->last_or_more, sap->protocol_id, sap->spi_size,
363 sap->num_transforms);
365 /* IKE proposal should not have SPI */
366 if (sap->protocol_id == IKEV2_PROTOCOL_IKE && sap->spi_size != 0)
369 /* IKE proposal should not have SPI */
370 if (sap->protocol_id == IKEV2_PROTOCOL_ESP && sap->spi_size != 4)
373 transform_ptr = proposal_ptr + sizeof (*sap) + sap->spi_size;
375 vec_add2 (v, proposal, 1);
376 proposal->proposal_num = sap->proposal_num;
377 proposal->protocol_id = sap->protocol_id;
379 if (sap->spi_size == 4)
381 proposal->spi = clib_net_to_host_u32 (sap->spi[0]);
384 for (i = 0; i < sap->num_transforms; i++)
386 ike_sa_transform_data_t *tr =
387 (ike_sa_transform_data_t *) & ikep->payload[transform_ptr];
388 u16 tlen = clib_net_to_host_u16 (tr->transform_len);
390 if (tlen < sizeof (*tr))
393 vec_add2 (proposal->transforms, transform, 1);
395 transform->type = tr->transform_type;
396 transform->transform_id = clib_net_to_host_u16 (tr->transform_id);
397 if (tlen > sizeof (*tr))
398 vec_add (transform->attrs, tr->attributes, tlen - sizeof (*tr));
401 ("transform num %u len %u last_or_more %u type %U id %u%s%U", i,
402 tlen, tr->last_or_more, format_ikev2_sa_transform, transform,
403 clib_net_to_host_u16 (tr->transform_id),
404 tlen > sizeof (*tr) ? " attrs " : "", format_hex_bytes,
405 tr->attributes, tlen - sizeof (*tr));
407 transform_ptr += tlen;
410 proposal_ptr += clib_net_to_host_u16 (sap->proposal_len);
412 while (proposal_ptr < (plen - sizeof (*ikep)) && sap->last_or_more == 2);
414 /* data validation */
415 if (proposal_ptr != (plen - sizeof (*ikep)) || sap->last_or_more)
421 DBG_PLD ("SA payload data corrupted");
422 ikev2_sa_free_proposal_vector (&v);
427 ikev2_parse_ts_payload (ike_payload_header_t * ikep)
429 ike_ts_payload_header_t *tsp = (ike_ts_payload_header_t *) ikep;
430 ikev2_ts_t *r = 0, *ts;
433 for (i = 0; i < tsp->num_ts; i++)
435 if (tsp->ts[i].ts_type != 7) /* TS_IPV4_ADDR_RANGE */
437 DBG_PLD ("unsupported TS type received (%u)", tsp->ts[i].ts_type);
442 ts->ts_type = tsp->ts[i].ts_type;
443 ts->protocol_id = tsp->ts[i].protocol_id;
444 ts->start_port = tsp->ts[i].start_port;
445 ts->end_port = tsp->ts[i].end_port;
446 ts->start_addr.as_u32 = tsp->ts[i].start_addr.as_u32;
447 ts->end_addr.as_u32 = tsp->ts[i].end_addr.as_u32;
453 ikev2_parse_notify_payload (ike_payload_header_t * ikep)
455 ike_notify_payload_header_t *n = (ike_notify_payload_header_t *) ikep;
456 u32 plen = clib_net_to_host_u16 (ikep->length);
457 ikev2_notify_t *r = 0;
460 DBG_PLD ("msg_type %U len %u%s%U",
461 format_ikev2_notify_msg_type, clib_net_to_host_u16 (n->msg_type),
462 plen, plen > sizeof (*n) ? " data " : "",
463 format_hex_bytes, n->payload, plen - sizeof (*n));
465 r = vec_new (ikev2_notify_t, 1);
466 r->msg_type = clib_net_to_host_u16 (n->msg_type);
467 r->protocol_id = n->protocol_id;
469 if (n->spi_size == 4)
471 clib_memcpy (&spi, n->payload, n->spi_size);
472 r->spi = clib_net_to_host_u32 (spi);
473 DBG_PLD ("spi %lx", r->spi);
475 else if (n->spi_size == 0)
481 clib_warning ("invalid SPI Size %d", n->spi_size);
484 if (plen > (sizeof (*n) + n->spi_size))
486 vec_add (r->data, n->payload + n->spi_size,
487 plen - sizeof (*n) - n->spi_size);
494 ikev2_parse_vendor_payload (ike_payload_header_t * ikep)
496 u32 plen = clib_net_to_host_u16 (ikep->length);
500 for (i = 0; i < plen - 4; i++)
501 if (!isprint (ikep->payload[i]))
504 DBG_PLD ("len %u data %s:%U",
506 is_string ? "string" : "hex",
507 is_string ? format_ascii_bytes : format_hex_bytes,
508 ikep->payload, plen - sizeof (*ikep));
512 ikev2_parse_delete_payload (ike_payload_header_t * ikep)
514 ike_delete_payload_header_t *d = (ike_delete_payload_header_t *) ikep;
515 u32 plen = clib_net_to_host_u16 (ikep->length);
516 ikev2_delete_t *r = 0, *del;
517 u16 num_of_spi = clib_net_to_host_u16 (d->num_of_spi);
520 DBG_PLD ("protocol_id %u spi_size %u num_of_spi %u len %u%s%U",
521 d->protocol_id, d->spi_size, num_of_spi,
522 plen, plen > sizeof (d) ? " data " : "",
523 format_hex_bytes, d->spi, plen - sizeof (*d));
525 if (d->protocol_id == IKEV2_PROTOCOL_IKE)
527 r = vec_new (ikev2_delete_t, 1);
532 r = vec_new (ikev2_delete_t, num_of_spi);
535 del->protocol_id = d->protocol_id;
536 del->spi = clib_net_to_host_u32 (d->spi[i++]);
544 * fd.io coding-style-patch-verification: ON
547 * eval: (c-set-style "gnu")