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.
15 #include <vlib/vlib.h>
16 #include <vnet/vnet.h>
17 #include <vnet/pg/pg.h>
18 #include <vppinfra/error.h>
19 #include <vnet/udp/udp.h>
20 #include <plugins/ikev2/ikev2.h>
21 #include <plugins/ikev2/ikev2_priv.h>
24 format_ikev2_id_type_and_data (u8 * s, va_list * args)
26 ikev2_id_t *id = va_arg (*args, ikev2_id_t *);
28 if (id->type == 0 || vec_len (id->data) == 0)
29 return format (s, "none");
31 s = format (s, "%U", format_ikev2_id_type, id->type);
33 if (id->type == IKEV2_ID_TYPE_ID_FQDN ||
34 id->type == IKEV2_ID_TYPE_ID_RFC822_ADDR)
36 s = format (s, " %v", id->data);
41 format (s, " %U", format_hex_bytes, &id->data,
42 (uword) (vec_len (id->data)));
50 show_ikev2_sa_command_fn (vlib_main_t * vm,
51 unformat_input_t * input, vlib_cli_command_t * cmd)
53 ikev2_main_t *km = &ikev2_main;
54 ikev2_main_per_thread_data_t *tkm;
57 ikev2_child_sa_t *child;
58 ikev2_sa_transform_t *tr;
60 vec_foreach (tkm, km->per_thread_data)
63 pool_foreach (sa, tkm->sas, ({
65 vlib_cli_output(vm, " iip %U ispi %lx rip %U rspi %lx",
66 format_ip4_address, &sa->iaddr, sa->ispi,
67 format_ip4_address, &sa->raddr, sa->rspi);
69 tr = ikev2_sa_get_td_for_type(sa->r_proposals, IKEV2_TRANSFORM_TYPE_ENCR);
70 s = format(s, "%U ", format_ikev2_sa_transform, tr);
72 tr = ikev2_sa_get_td_for_type(sa->r_proposals, IKEV2_TRANSFORM_TYPE_PRF);
73 s = format(s, "%U ", format_ikev2_sa_transform, tr);
75 tr = ikev2_sa_get_td_for_type(sa->r_proposals, IKEV2_TRANSFORM_TYPE_INTEG);
76 s = format(s, "%U ", format_ikev2_sa_transform, tr);
78 tr = ikev2_sa_get_td_for_type(sa->r_proposals, IKEV2_TRANSFORM_TYPE_DH);
79 s = format(s, "%U ", format_ikev2_sa_transform, tr);
81 vlib_cli_output(vm, " %v", s);
84 vlib_cli_output(vm, " nonce i:%U\n r:%U",
85 format_hex_bytes, sa->i_nonce, vec_len(sa->i_nonce),
86 format_hex_bytes, sa->r_nonce, vec_len(sa->r_nonce));
88 vlib_cli_output(vm, " SK_d %U",
89 format_hex_bytes, sa->sk_d, vec_len(sa->sk_d));
90 vlib_cli_output(vm, " SK_a i:%U\n r:%U",
91 format_hex_bytes, sa->sk_ai, vec_len(sa->sk_ai),
92 format_hex_bytes, sa->sk_ar, vec_len(sa->sk_ar));
93 vlib_cli_output(vm, " SK_e i:%U\n r:%U",
94 format_hex_bytes, sa->sk_ei, vec_len(sa->sk_ei),
95 format_hex_bytes, sa->sk_er, vec_len(sa->sk_er));
96 vlib_cli_output(vm, " SK_p i:%U\n r:%U",
97 format_hex_bytes, sa->sk_pi, vec_len(sa->sk_pi),
98 format_hex_bytes, sa->sk_pr, vec_len(sa->sk_pr));
100 vlib_cli_output(vm, " identifier (i) %U",
101 format_ikev2_id_type_and_data, &sa->i_id);
102 vlib_cli_output(vm, " identifier (r) %U",
103 format_ikev2_id_type_and_data, &sa->r_id);
105 vec_foreach(child, sa->childs)
107 vlib_cli_output(vm, " child sa %u:", child - sa->childs);
109 tr = ikev2_sa_get_td_for_type(child->r_proposals, IKEV2_TRANSFORM_TYPE_ENCR);
110 s = format(s, "%U ", format_ikev2_sa_transform, tr);
112 tr = ikev2_sa_get_td_for_type(child->r_proposals, IKEV2_TRANSFORM_TYPE_INTEG);
113 s = format(s, "%U ", format_ikev2_sa_transform, tr);
115 tr = ikev2_sa_get_td_for_type(child->r_proposals, IKEV2_TRANSFORM_TYPE_ESN);
116 s = format(s, "%U ", format_ikev2_sa_transform, tr);
118 vlib_cli_output(vm, " %v", s);
121 vlib_cli_output(vm, " spi(i) %lx spi(r) %lx",
122 child->i_proposals ? child->i_proposals[0].spi : 0,
123 child->r_proposals ? child->r_proposals[0].spi : 0);
125 vlib_cli_output(vm, " SK_e i:%U\n r:%U",
126 format_hex_bytes, child->sk_ei, vec_len(child->sk_ei),
127 format_hex_bytes, child->sk_er, vec_len(child->sk_er));
128 vlib_cli_output(vm, " SK_a i:%U\n r:%U",
129 format_hex_bytes, child->sk_ai, vec_len(child->sk_ai),
130 format_hex_bytes, child->sk_ar, vec_len(child->sk_ar));
131 vlib_cli_output(vm, " traffic selectors (i):");
132 vec_foreach(ts, child->tsi)
134 vlib_cli_output(vm, " %u type %u protocol_id %u addr "
135 "%U - %U port %u - %u",
137 ts->ts_type, ts->protocol_id,
138 format_ip4_address, &ts->start_addr,
139 format_ip4_address, &ts->end_addr,
140 clib_net_to_host_u16( ts->start_port),
141 clib_net_to_host_u16( ts->end_port));
143 vlib_cli_output(vm, " traffic selectors (r):");
144 vec_foreach(ts, child->tsr)
146 vlib_cli_output(vm, " %u type %u protocol_id %u addr "
147 "%U - %U port %u - %u",
149 ts->ts_type, ts->protocol_id,
150 format_ip4_address, &ts->start_addr,
151 format_ip4_address, &ts->end_addr,
152 clib_net_to_host_u16( ts->start_port),
153 clib_net_to_host_u16( ts->end_port));
156 vlib_cli_output(vm, "");
164 VLIB_CLI_COMMAND (show_ikev2_sa_command, static) = {
165 .path = "show ikev2 sa",
166 .short_help = "show ikev2 sa",
167 .function = show_ikev2_sa_command_fn,
171 static clib_error_t *
172 ikev2_profile_add_del_command_fn (vlib_main_t * vm,
173 unformat_input_t * input,
174 vlib_cli_command_t * cmd)
176 vnet_main_t *vnm = vnet_get_main ();
177 unformat_input_t _line_input, *line_input = &_line_input;
182 u32 tmp1, tmp2, tmp3;
185 ip4_address_t end_addr;
186 u32 responder_sw_if_index = (u32) ~ 0;
187 u32 tun_sw_if_index = (u32) ~ 0;
188 ip4_address_t responder_ip4;
189 ikev2_transform_encr_type_t crypto_alg;
190 ikev2_transform_integ_type_t integ_alg;
191 ikev2_transform_dh_type_t dh_type;
193 const char *valid_chars = "a-zA-Z0-9_";
195 if (!unformat_user (input, unformat_line_input, line_input))
198 while (unformat_check_input (line_input) != UNFORMAT_END_OF_INPUT)
200 if (unformat (line_input, "add %U", unformat_token, valid_chars, &name))
202 r = ikev2_add_del_profile (vm, name, 1);
207 (line_input, "del %U", unformat_token, valid_chars, &name))
209 r = ikev2_add_del_profile (vm, name, 0);
212 else if (unformat (line_input, "set %U auth shared-key-mic string %v",
213 unformat_token, valid_chars, &name, &data))
216 ikev2_set_profile_auth (vm, name,
217 IKEV2_AUTH_METHOD_SHARED_KEY_MIC, data,
221 else if (unformat (line_input, "set %U auth shared-key-mic hex %U",
222 unformat_token, valid_chars, &name,
223 unformat_hex_string, &data))
226 ikev2_set_profile_auth (vm, name,
227 IKEV2_AUTH_METHOD_SHARED_KEY_MIC, data,
231 else if (unformat (line_input, "set %U auth rsa-sig cert-file %v",
232 unformat_token, valid_chars, &name, &data))
235 ikev2_set_profile_auth (vm, name, IKEV2_AUTH_METHOD_RSA_SIG, data,
239 else if (unformat (line_input, "set %U id local %U %U",
240 unformat_token, valid_chars, &name,
241 unformat_ikev2_id_type, &id_type,
242 unformat_ip4_address, &ip4))
244 data = vec_new (u8, 4);
245 clib_memcpy (data, ip4.as_u8, 4);
247 ikev2_set_profile_id (vm, name, (u8) id_type, data, /*local */ 1);
250 else if (unformat (line_input, "set %U id local %U 0x%U",
251 unformat_token, valid_chars, &name,
252 unformat_ikev2_id_type, &id_type,
253 unformat_hex_string, &data))
256 ikev2_set_profile_id (vm, name, (u8) id_type, data, /*local */ 1);
259 else if (unformat (line_input, "set %U id local %U %v",
260 unformat_token, valid_chars, &name,
261 unformat_ikev2_id_type, &id_type, &data))
264 ikev2_set_profile_id (vm, name, (u8) id_type, data, /*local */ 1);
267 else if (unformat (line_input, "set %U id remote %U %U",
268 unformat_token, valid_chars, &name,
269 unformat_ikev2_id_type, &id_type,
270 unformat_ip4_address, &ip4))
272 data = vec_new (u8, 4);
273 clib_memcpy (data, ip4.as_u8, 4);
274 r = ikev2_set_profile_id (vm, name, (u8) id_type, data, /*remote */
278 else if (unformat (line_input, "set %U id remote %U 0x%U",
279 unformat_token, valid_chars, &name,
280 unformat_ikev2_id_type, &id_type,
281 unformat_hex_string, &data))
283 r = ikev2_set_profile_id (vm, name, (u8) id_type, data, /*remote */
287 else if (unformat (line_input, "set %U id remote %U %v",
288 unformat_token, valid_chars, &name,
289 unformat_ikev2_id_type, &id_type, &data))
291 r = ikev2_set_profile_id (vm, name, (u8) id_type, data, /*remote */
295 else if (unformat (line_input, "set %U traffic-selector local "
296 "ip-range %U - %U port-range %u - %u protocol %u",
297 unformat_token, valid_chars, &name,
298 unformat_ip4_address, &ip4,
299 unformat_ip4_address, &end_addr,
300 &tmp1, &tmp2, &tmp3))
303 ikev2_set_profile_ts (vm, name, (u8) tmp3, (u16) tmp1, (u16) tmp2,
304 ip4, end_addr, /*local */ 1);
307 else if (unformat (line_input, "set %U traffic-selector remote "
308 "ip-range %U - %U port-range %u - %u protocol %u",
309 unformat_token, valid_chars, &name,
310 unformat_ip4_address, &ip4,
311 unformat_ip4_address, &end_addr,
312 &tmp1, &tmp2, &tmp3))
315 ikev2_set_profile_ts (vm, name, (u8) tmp3, (u16) tmp1, (u16) tmp2,
316 ip4, end_addr, /*remote */ 0);
319 else if (unformat (line_input, "set %U responder %U %U",
320 unformat_token, valid_chars, &name,
321 unformat_vnet_sw_interface, vnm,
322 &responder_sw_if_index, unformat_ip4_address,
326 ikev2_set_profile_responder (vm, name, responder_sw_if_index,
330 else if (unformat (line_input, "set %U tunnel %U",
331 unformat_token, valid_chars, &name,
332 unformat_vnet_sw_interface, vnm, &tun_sw_if_index))
334 r = ikev2_set_profile_tunnel_interface (vm, name, tun_sw_if_index);
340 "set %U ike-crypto-alg %U %u ike-integ-alg %U ike-dh %U",
341 unformat_token, valid_chars, &name,
342 unformat_ikev2_transform_encr_type, &crypto_alg, &tmp1,
343 unformat_ikev2_transform_integ_type, &integ_alg,
344 unformat_ikev2_transform_dh_type, &dh_type))
347 ikev2_set_profile_ike_transforms (vm, name, crypto_alg, integ_alg,
354 "set %U esp-crypto-alg %U %u esp-integ-alg %U esp-dh %U",
355 unformat_token, valid_chars, &name,
356 unformat_ikev2_transform_encr_type, &crypto_alg, &tmp1,
357 unformat_ikev2_transform_integ_type, &integ_alg,
358 unformat_ikev2_transform_dh_type, &dh_type))
361 ikev2_set_profile_esp_transforms (vm, name, crypto_alg, integ_alg,
365 else if (unformat (line_input, "set %U sa-lifetime %lu %u %u %lu",
366 unformat_token, valid_chars, &name,
367 &tmp4, &tmp1, &tmp2, &tmp5))
370 ikev2_set_profile_sa_lifetime (vm, name, tmp4, tmp1, tmp2, tmp5);
373 else if (unformat (line_input, "set %U udp-encap",
374 unformat_token, valid_chars, &name))
376 r = ikev2_set_profile_udp_encap (vm, name);
383 r = clib_error_return (0, "parse error: '%U'",
384 format_unformat_error, line_input);
389 unformat_free (line_input);
394 VLIB_CLI_COMMAND (ikev2_profile_add_del_command, static) = {
395 .path = "ikev2 profile",
397 "ikev2 profile [add|del] <id>\n"
398 "ikev2 profile set <id> auth [rsa-sig|shared-key-mic] [cert-file|string|hex]"
400 "ikev2 profile set <id> id <local|remote> <type> <data>\n"
401 "ikev2 profile set <id> tunnel <interface>\n"
402 "ikev2 profile set <id> udp-encap\n"
403 "ikev2 profile set <id> traffic-selector <local|remote> ip-range "
404 "<start-addr> - <end-addr> port-range <start-port> - <end-port> "
405 "protocol <protocol-number>\n"
406 "ikev2 profile set <id> responder <interface> <addr>\n"
407 "ikev2 profile set <id> ike-crypto-alg <crypto alg> <key size> ike-integ-alg <integ alg> ike-dh <dh type>\n"
408 "ikev2 profile set <id> esp-crypto-alg <crypto alg> <key size> esp-integ-alg <integ alg> esp-dh <dh type>\n"
409 "ikev2 profile set <id> sa-lifetime <seconds> <jitter> <handover> <max bytes>",
410 .function = ikev2_profile_add_del_command_fn,
414 static clib_error_t *
415 show_ikev2_profile_command_fn (vlib_main_t * vm,
416 unformat_input_t * input,
417 vlib_cli_command_t * cmd)
419 ikev2_main_t *km = &ikev2_main;
423 pool_foreach (p, km->profiles, ({
424 vlib_cli_output(vm, "profile %v", p->name);
429 vlib_cli_output(vm, " auth-method %U auth data 0x%U",
430 format_ikev2_auth_method, p->auth.method,
431 format_hex_bytes, p->auth.data, vec_len(p->auth.data));
433 vlib_cli_output(vm, " auth-method %U auth data %v",
434 format_ikev2_auth_method, p->auth.method, p->auth.data);
439 if (p->loc_id.type == IKEV2_ID_TYPE_ID_IPV4_ADDR)
440 vlib_cli_output(vm, " local id-type %U data %U",
441 format_ikev2_id_type, p->loc_id.type,
442 format_ip4_address, p->loc_id.data);
443 else if (p->loc_id.type == IKEV2_ID_TYPE_ID_KEY_ID)
444 vlib_cli_output(vm, " local id-type %U data 0x%U",
445 format_ikev2_id_type, p->loc_id.type,
446 format_hex_bytes, p->loc_id.data,
447 vec_len(p->loc_id.data));
449 vlib_cli_output(vm, " local id-type %U data %v",
450 format_ikev2_id_type, p->loc_id.type, p->loc_id.data);
455 if (p->rem_id.type == IKEV2_ID_TYPE_ID_IPV4_ADDR)
456 vlib_cli_output(vm, " remote id-type %U data %U",
457 format_ikev2_id_type, p->rem_id.type,
458 format_ip4_address, p->rem_id.data);
459 else if (p->rem_id.type == IKEV2_ID_TYPE_ID_KEY_ID)
460 vlib_cli_output(vm, " remote id-type %U data 0x%U",
461 format_ikev2_id_type, p->rem_id.type,
462 format_hex_bytes, p->rem_id.data,
463 vec_len(p->rem_id.data));
465 vlib_cli_output(vm, " remote id-type %U data %v",
466 format_ikev2_id_type, p->rem_id.type, p->rem_id.data);
469 if (p->loc_ts.end_addr.as_u32)
470 vlib_cli_output(vm, " local traffic-selector addr %U - %U port %u - %u"
472 format_ip4_address, &p->loc_ts.start_addr,
473 format_ip4_address, &p->loc_ts.end_addr,
474 p->loc_ts.start_port, p->loc_ts.end_port,
475 p->loc_ts.protocol_id);
477 if (p->rem_ts.end_addr.as_u32)
478 vlib_cli_output(vm, " remote traffic-selector addr %U - %U port %u - %u"
480 format_ip4_address, &p->rem_ts.start_addr,
481 format_ip4_address, &p->rem_ts.end_addr,
482 p->rem_ts.start_port, p->rem_ts.end_port,
483 p->rem_ts.protocol_id);
484 if (~0 != p->tun_itf)
485 vlib_cli_output(vm, " protected tunnel %U",
486 format_vnet_sw_if_index_name, vnet_get_main(), p->tun_itf);
488 vlib_cli_output(vm, " udp-encap");
496 VLIB_CLI_COMMAND (show_ikev2_profile_command, static) = {
497 .path = "show ikev2 profile",
498 .short_help = "show ikev2 profile",
499 .function = show_ikev2_profile_command_fn,
503 static clib_error_t *
504 set_ikev2_local_key_command_fn (vlib_main_t * vm,
505 unformat_input_t * input,
506 vlib_cli_command_t * cmd)
508 unformat_input_t _line_input, *line_input = &_line_input;
512 if (!unformat_user (input, unformat_line_input, line_input))
515 while (unformat_check_input (line_input) != UNFORMAT_END_OF_INPUT)
517 if (unformat (line_input, "%s", &data))
519 r = ikev2_set_local_key (vm, data);
526 r = clib_error_return (0, "parse error: '%U'",
527 format_unformat_error, line_input);
531 unformat_free (line_input);
536 VLIB_CLI_COMMAND (set_ikev2_local_key_command, static) = {
537 .path = "set ikev2 local key",
539 "set ikev2 local key <file>",
540 .function = set_ikev2_local_key_command_fn,
545 static clib_error_t *
546 ikev2_initiate_command_fn (vlib_main_t * vm,
547 unformat_input_t * input, vlib_cli_command_t * cmd)
549 unformat_input_t _line_input, *line_input = &_line_input;
555 const char *valid_chars = "a-zA-Z0-9_";
557 if (!unformat_user (input, unformat_line_input, line_input))
560 while (unformat_check_input (line_input) != UNFORMAT_END_OF_INPUT)
563 (line_input, "sa-init %U", unformat_token, valid_chars, &name))
565 r = ikev2_initiate_sa_init (vm, name);
568 else if (unformat (line_input, "del-child-sa %x", &tmp1))
570 r = ikev2_initiate_delete_child_sa (vm, tmp1);
573 else if (unformat (line_input, "del-sa %lx", &tmp2))
575 r = ikev2_initiate_delete_ike_sa (vm, tmp2);
578 else if (unformat (line_input, "rekey-child-sa %x", &tmp1))
580 r = ikev2_initiate_rekey_child_sa (vm, tmp1);
587 r = clib_error_return (0, "parse error: '%U'",
588 format_unformat_error, line_input);
592 unformat_free (line_input);
597 VLIB_CLI_COMMAND (ikev2_initiate_command, static) = {
598 .path = "ikev2 initiate",
600 "ikev2 initiate sa-init <profile id>\n"
601 "ikev2 initiate del-child-sa <child sa ispi>\n"
602 "ikev2 initiate del-sa <sa ispi>\n"
603 "ikev2 initiate rekey-child-sa <profile id> <child sa ispi>\n",
604 .function = ikev2_initiate_command_fn,
609 ikev2_cli_reference (void)
613 static clib_error_t *
614 ikev2_set_log_level_command_fn (vlib_main_t * vm,
615 unformat_input_t * input,
616 vlib_cli_command_t * cmd)
618 unformat_input_t _line_input, *line_input = &_line_input;
619 u8 log_level = IKEV2_LOG_NONE;
620 clib_error_t *error = 0;
622 /* Get a line of input. */
623 if (!unformat_user (input, unformat_line_input, line_input))
626 if (!unformat (line_input, "%d", &log_level))
628 error = clib_error_return (0, "unknown input '%U'",
629 format_unformat_error, line_input);
632 int rc = ikev2_set_log_level (log_level);
634 error = clib_error_return (0, "setting log level failed!");
637 unformat_free (line_input);
642 VLIB_CLI_COMMAND (ikev2_set_log_level_command, static) = {
643 .path = "ikev2 set logging level",
644 .function = ikev2_set_log_level_command_fn,
645 .short_help = "ikev2 set logging level <0-5>",
650 * fd.io coding-style-patch-verification: ON
653 * eval: (c-set-style "gnu")