| /* |
| * Copyright (c) 2015 Cisco and/or its affiliates. |
| * Licensed under the Apache License, Version 2.0 (the "License"); |
| * you may not use this file except in compliance with the License. |
| * You may obtain a copy of the License at: |
| * |
| * http://www.apache.org/licenses/LICENSE-2.0 |
| * |
| * Unless required by applicable law or agreed to in writing, software |
| * distributed under the License is distributed on an "AS IS" BASIS, |
| * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. |
| * See the License for the specific language governing permissions and |
| * limitations under the License. |
| */ |
| #include <vlib/vlib.h> |
| #include <vnet/vnet.h> |
| #include <vnet/pg/pg.h> |
| #include <vppinfra/error.h> |
| #include <vnet/ip/udp.h> |
| #include <vnet/ipsec/ikev2.h> |
| #include <vnet/ipsec/ikev2_priv.h> |
| |
| u8 * |
| format_ikev2_id_type_and_data (u8 * s, va_list * args) |
| { |
| ikev2_id_t * id = va_arg (*args, ikev2_id_t *); |
| |
| if (id->type == 0 || vec_len(id->data) == 0) |
| return format(s, "none"); |
| |
| s = format(s, "%U", format_ikev2_id_type, id->type); |
| |
| if (id->type == IKEV2_ID_TYPE_ID_FQDN || |
| id->type == IKEV2_ID_TYPE_ID_RFC822_ADDR) |
| { |
| s = format(s, " %v", id->data); |
| } |
| else |
| { |
| s = format(s, " %U", format_hex_bytes, &id->data, (uword) (vec_len(id->data))); |
| } |
| |
| return s; |
| } |
| |
| |
| static clib_error_t * |
| show_ikev2_sa_command_fn (vlib_main_t * vm, |
| unformat_input_t * input, |
| vlib_cli_command_t * cmd) |
| { |
| ikev2_main_t * km = &ikev2_main; |
| ikev2_sa_t * sa; |
| ikev2_ts_t * ts; |
| ikev2_child_sa_t * child; |
| ikev2_sa_transform_t * tr; |
| |
| pool_foreach (sa, km->sas, ({ |
| u8 * s = 0; |
| vlib_cli_output(vm, " iip %U ispi %lx rip %U rspi %lx", |
| format_ip4_address, &sa->iaddr, sa->ispi, |
| format_ip4_address, &sa->raddr, sa->rspi); |
| |
| tr = ikev2_sa_get_td_for_type(sa->r_proposals, IKEV2_TRANSFORM_TYPE_ENCR); |
| s = format(s, "%U ", format_ikev2_sa_transform, tr); |
| |
| tr = ikev2_sa_get_td_for_type(sa->r_proposals, IKEV2_TRANSFORM_TYPE_PRF); |
| s = format(s, "%U ", format_ikev2_sa_transform, tr); |
| |
| tr = ikev2_sa_get_td_for_type(sa->r_proposals, IKEV2_TRANSFORM_TYPE_INTEG); |
| s = format(s, "%U ", format_ikev2_sa_transform, tr); |
| |
| tr = ikev2_sa_get_td_for_type(sa->r_proposals, IKEV2_TRANSFORM_TYPE_DH); |
| s = format(s, "%U ", format_ikev2_sa_transform, tr); |
| |
| vlib_cli_output(vm, " %v", s); |
| vec_free(s); |
| |
| vlib_cli_output(vm, " nonce i:%U\n r:%U", |
| format_hex_bytes, sa->i_nonce, vec_len(sa->i_nonce), |
| format_hex_bytes, sa->r_nonce, vec_len(sa->r_nonce)); |
| |
| vlib_cli_output(vm, " SK_d %U", |
| format_hex_bytes, sa->sk_d, vec_len(sa->sk_d)); |
| vlib_cli_output(vm, " SK_a i:%U\n r:%U", |
| format_hex_bytes, sa->sk_ai, vec_len(sa->sk_ai), |
| format_hex_bytes, sa->sk_ar, vec_len(sa->sk_ar)); |
| vlib_cli_output(vm, " SK_e i:%U\n r:%U", |
| format_hex_bytes, sa->sk_ei, vec_len(sa->sk_ei), |
| format_hex_bytes, sa->sk_er, vec_len(sa->sk_er)); |
| vlib_cli_output(vm, " SK_p i:%U\n r:%U", |
| format_hex_bytes, sa->sk_pi, vec_len(sa->sk_pi), |
| format_hex_bytes, sa->sk_pr, vec_len(sa->sk_pr)); |
| |
| vlib_cli_output(vm, " identifier (i) %U", |
| format_ikev2_id_type_and_data, &sa->i_id); |
| vlib_cli_output(vm, " identifier (r) %U", |
| format_ikev2_id_type_and_data, &sa->r_id); |
| |
| vec_foreach(child, sa->childs) |
| { |
| vlib_cli_output(vm, " child sa %u:", child - sa->childs); |
| |
| tr = ikev2_sa_get_td_for_type(child->r_proposals, IKEV2_TRANSFORM_TYPE_ENCR); |
| s = format(s, "%U ", format_ikev2_sa_transform, tr); |
| |
| tr = ikev2_sa_get_td_for_type(child->r_proposals, IKEV2_TRANSFORM_TYPE_INTEG); |
| s = format(s, "%U ", format_ikev2_sa_transform, tr); |
| |
| tr = ikev2_sa_get_td_for_type(child->r_proposals, IKEV2_TRANSFORM_TYPE_ESN); |
| s = format(s, "%U ", format_ikev2_sa_transform, tr); |
| |
| vlib_cli_output(vm, " %v", s); |
| vec_free(s); |
| |
| vlib_cli_output(vm, " spi(i) %lx spi(r) %lx", |
| child->i_proposals ? child->i_proposals[0].spi : 0, |
| child->r_proposals ? child->r_proposals[0].spi : 0); |
| |
| vlib_cli_output(vm, " SK_e i:%U\n r:%U", |
| format_hex_bytes, child->sk_ei, vec_len(child->sk_ei), |
| format_hex_bytes, child->sk_er, vec_len(child->sk_er)); |
| vlib_cli_output(vm, " SK_a i:%U\n r:%U", |
| format_hex_bytes, child->sk_ai, vec_len(child->sk_ai), |
| format_hex_bytes, child->sk_ar, vec_len(child->sk_ar)); |
| vlib_cli_output(vm, " traffic selectors (i):"); |
| vec_foreach(ts, child->tsi) |
| { |
| vlib_cli_output(vm, " %u type %u protocol_id %u addr " |
| "%U - %U port %u - %u", |
| ts - child->tsi, |
| ts->ts_type, ts->protocol_id, |
| format_ip4_address, &ts->start_addr, |
| format_ip4_address, &ts->end_addr, |
| clib_net_to_host_u16( ts->start_port), |
| clib_net_to_host_u16( ts->end_port)); |
| } |
| vlib_cli_output(vm, " traffic selectors (r):"); |
| vec_foreach(ts, child->tsr) |
| { |
| vlib_cli_output(vm, " %u type %u protocol_id %u addr " |
| "%U - %U port %u - %u", |
| ts - child->tsr, |
| ts->ts_type, ts->protocol_id, |
| format_ip4_address, &ts->start_addr, |
| format_ip4_address, &ts->end_addr, |
| clib_net_to_host_u16( ts->start_port), |
| clib_net_to_host_u16( ts->end_port)); |
| } |
| } |
| vlib_cli_output(vm, ""); |
| })); |
| return 0; |
| } |
| |
| VLIB_CLI_COMMAND (show_ikev2_sa_command, static) = { |
| .path = "show ikev2 sa", |
| .short_help = "show ikev2 sa", |
| .function = show_ikev2_sa_command_fn, |
| }; |
| |
| static clib_error_t * |
| ikev2_profile_add_del_command_fn (vlib_main_t * vm, |
| unformat_input_t * input, |
| vlib_cli_command_t * cmd) |
| { |
| unformat_input_t _line_input, * line_input = &_line_input; |
| u8 * name = 0; |
| clib_error_t * r = 0; |
| u32 id_type; |
| u8 * data = 0; |
| u32 tmp1, tmp2, tmp3; |
| ip4_address_t ip4; |
| ip4_address_t end_addr; |
| |
| const char * valid_chars = "a-zA-Z0-9_"; |
| |
| if (! unformat_user (input, unformat_line_input, line_input)) |
| return 0; |
| |
| while (unformat_check_input (line_input) != UNFORMAT_END_OF_INPUT) { |
| if (unformat (line_input, "add %U", unformat_token, valid_chars, &name)) |
| { |
| r = ikev2_add_del_profile(vm, name, 1); |
| goto done; |
| } |
| else if (unformat (line_input, "del %U", unformat_token, valid_chars, &name)) |
| { |
| r = ikev2_add_del_profile(vm, name, 0); |
| goto done; |
| } |
| else if (unformat (line_input, "set %U auth shared-key-mic string %v", |
| unformat_token, valid_chars, &name, &data)) |
| { |
| r = ikev2_set_profile_auth(vm, name, IKEV2_AUTH_METHOD_SHARED_KEY_MIC, |
| data, 0); |
| goto done; |
| } |
| else if (unformat (line_input, "set %U auth shared-key-mic hex %U", |
| unformat_token, valid_chars, &name, |
| unformat_hex_string, &data)) |
| { |
| r = ikev2_set_profile_auth(vm, name, IKEV2_AUTH_METHOD_SHARED_KEY_MIC, |
| data, 1); |
| goto done; |
| } |
| else if (unformat (line_input, "set %U auth rsa-sig cert-file %v", |
| unformat_token, valid_chars, &name, |
| &data)) |
| { |
| r = ikev2_set_profile_auth(vm, name, IKEV2_AUTH_METHOD_RSA_SIG, data, 0); |
| goto done; |
| } |
| else if (unformat (line_input, "set %U id local %U %U", |
| unformat_token, valid_chars, &name, |
| unformat_ikev2_id_type, &id_type, |
| unformat_ip4_address, &ip4)) |
| { |
| data = vec_new(u8, 4); |
| clib_memcpy(data, ip4.as_u8, 4); |
| r = ikev2_set_profile_id(vm, name, (u8) id_type, data, /*local*/ 1); |
| goto done; |
| } |
| else if (unformat (line_input, "set %U id local %U 0x%U", |
| unformat_token, valid_chars, &name, |
| unformat_ikev2_id_type, &id_type, |
| unformat_hex_string, &data)) |
| { |
| r = ikev2_set_profile_id(vm, name, (u8) id_type, data, /*local*/ 1); |
| goto done; |
| } |
| else if (unformat (line_input, "set %U id local %U %v", |
| unformat_token, valid_chars, &name, |
| unformat_ikev2_id_type, &id_type, &data)) |
| { |
| r = ikev2_set_profile_id(vm, name, (u8) id_type, data, /*local*/ 1); |
| goto done; |
| } |
| else if (unformat (line_input, "set %U id remote %U %U", |
| unformat_token, valid_chars, &name, |
| unformat_ikev2_id_type, &id_type, |
| unformat_ip4_address, &ip4)) |
| { |
| data = vec_new(u8, 4); |
| clib_memcpy(data, ip4.as_u8, 4); |
| r = ikev2_set_profile_id(vm, name, (u8) id_type, data, /*remote*/ 0); |
| goto done; |
| } |
| else if (unformat (line_input, "set %U id remote %U 0x%U", |
| unformat_token, valid_chars, &name, |
| unformat_ikev2_id_type, &id_type, |
| unformat_hex_string, &data)) |
| { |
| r = ikev2_set_profile_id(vm, name, (u8) id_type, data, /*remote*/ 0); |
| goto done; |
| } |
| else if (unformat (line_input, "set %U id remote %U %v", |
| unformat_token, valid_chars, &name, |
| unformat_ikev2_id_type, &id_type, &data)) |
| { |
| r = ikev2_set_profile_id(vm, name, (u8) id_type, data, /*remote*/ 0); |
| goto done; |
| } |
| else if (unformat (line_input, "set %U traffic-selector local " |
| "ip-range %U - %U port-range %u - %u protocol %u", |
| unformat_token, valid_chars, &name, |
| unformat_ip4_address, &ip4, |
| unformat_ip4_address, &end_addr, |
| &tmp1, &tmp2, &tmp3)) |
| { |
| r = ikev2_set_profile_ts(vm, name, (u8)tmp3, (u16)tmp1, (u16)tmp2, |
| ip4, end_addr, /*local*/ 1); |
| goto done; |
| } |
| else if (unformat (line_input, "set %U traffic-selector remote " |
| "ip-range %U - %U port-range %u - %u protocol %u", |
| unformat_token, valid_chars, &name, |
| unformat_ip4_address, &ip4, |
| unformat_ip4_address, &end_addr, |
| &tmp1, &tmp2, &tmp3)) |
| { |
| r = ikev2_set_profile_ts(vm, name, (u8)tmp3, (u16)tmp1, (u16)tmp2, |
| ip4, end_addr, /*remote*/ 0); |
| goto done; |
| } |
| else |
| break; |
| } |
| |
| r = clib_error_return (0, "parse error: '%U'", |
| format_unformat_error, line_input); |
| |
| done: |
| vec_free(name); |
| vec_free(data); |
| unformat_free (line_input); |
| return r; |
| } |
| |
| VLIB_CLI_COMMAND (ikev2_profile_add_del_command, static) = { |
| .path = "ikev2 profile", |
| .short_help = |
| "ikev2 profile [add|del] <id>\n" |
| "ikev2 profile set <id> auth [rsa-sig|shared-key-mic] [cert-file|string|hex]" |
| " <data>\n" |
| "ikev2 profile set <id> id <local|remote> <type> <data>\n" |
| "ikev2 profile set <id> traffic-selector <local|remote> ip-range " |
| "<start-addr> - <end-addr> port-range <start-port> - <end-port> " |
| "protocol <protocol-number>", |
| .function = ikev2_profile_add_del_command_fn, |
| }; |
| |
| static clib_error_t * |
| show_ikev2_profile_command_fn (vlib_main_t * vm, |
| unformat_input_t * input, |
| vlib_cli_command_t * cmd) |
| { |
| ikev2_main_t * km = &ikev2_main; |
| ikev2_profile_t * p; |
| |
| pool_foreach (p, km->profiles, ({ |
| vlib_cli_output(vm, "profile %v", p->name); |
| |
| if (p->auth.data) |
| { |
| if (p->auth.hex) |
| vlib_cli_output(vm, " auth-method %U auth data 0x%U", |
| format_ikev2_auth_method, p->auth.method, |
| format_hex_bytes, p->auth.data, vec_len(p->auth.data)); |
| else |
| vlib_cli_output(vm, " auth-method %U auth data %v", |
| format_ikev2_auth_method, p->auth.method, p->auth.data); |
| } |
| |
| if (p->loc_id.data) |
| { |
| if (p->loc_id.type == IKEV2_ID_TYPE_ID_IPV4_ADDR) |
| vlib_cli_output(vm, " local id-type %U data %U", |
| format_ikev2_id_type, p->loc_id.type, |
| format_ip4_address, p->loc_id.data); |
| else if (p->loc_id.type == IKEV2_ID_TYPE_ID_KEY_ID) |
| vlib_cli_output(vm, " local id-type %U data 0x%U", |
| format_ikev2_id_type, p->loc_id.type, |
| format_hex_bytes, p->loc_id.data, |
| vec_len(p->loc_id.data)); |
| else |
| vlib_cli_output(vm, " local id-type %U data %v", |
| format_ikev2_id_type, p->loc_id.type, p->loc_id.data); |
| } |
| |
| if (p->rem_id.data) |
| { |
| if (p->rem_id.type == IKEV2_ID_TYPE_ID_IPV4_ADDR) |
| vlib_cli_output(vm, " remote id-type %U data %U", |
| format_ikev2_id_type, p->rem_id.type, |
| format_ip4_address, p->rem_id.data); |
| else if (p->rem_id.type == IKEV2_ID_TYPE_ID_KEY_ID) |
| vlib_cli_output(vm, " remote id-type %U data 0x%U", |
| format_ikev2_id_type, p->rem_id.type, |
| format_hex_bytes, p->rem_id.data, |
| vec_len(p->rem_id.data)); |
| else |
| vlib_cli_output(vm, " remote id-type %U data %v", |
| format_ikev2_id_type, p->rem_id.type, p->rem_id.data); |
| } |
| |
| if (p->loc_ts.end_addr.as_u32) |
| vlib_cli_output(vm, " local traffic-selector addr %U - %U port %u - %u" |
| " protocol %u", |
| format_ip4_address, &p->loc_ts.start_addr, |
| format_ip4_address, &p->loc_ts.end_addr, |
| p->loc_ts.start_port, p->loc_ts.end_port, |
| p->loc_ts.protocol_id); |
| |
| if (p->rem_ts.end_addr.as_u32) |
| vlib_cli_output(vm, " remote traffic-selector addr %U - %U port %u - %u" |
| " protocol %u", |
| format_ip4_address, &p->rem_ts.start_addr, |
| format_ip4_address, &p->rem_ts.end_addr, |
| p->rem_ts.start_port, p->rem_ts.end_port, |
| p->rem_ts.protocol_id); |
| })); |
| |
| return 0; |
| } |
| |
| VLIB_CLI_COMMAND (show_ikev2_profile_command, static) = { |
| .path = "show ikev2 profile", |
| .short_help = "show ikev2 profile", |
| .function = show_ikev2_profile_command_fn, |
| }; |
| |
| static clib_error_t * |
| set_ikev2_local_key_command_fn (vlib_main_t * vm, |
| unformat_input_t * input, |
| vlib_cli_command_t * cmd) |
| { |
| unformat_input_t _line_input, * line_input = &_line_input; |
| clib_error_t * r = 0; |
| u8 * data = 0; |
| |
| if (! unformat_user (input, unformat_line_input, line_input)) |
| return 0; |
| |
| while (unformat_check_input (line_input) != UNFORMAT_END_OF_INPUT) { |
| if (unformat (line_input, "%v", &data)) |
| { |
| r = ikev2_set_local_key(vm, data); |
| goto done; |
| } |
| else |
| break; |
| } |
| |
| r = clib_error_return (0, "parse error: '%U'", |
| format_unformat_error, line_input); |
| |
| done: |
| vec_free(data); |
| unformat_free (line_input); |
| return r; |
| } |
| |
| VLIB_CLI_COMMAND (set_ikev2_local_key_command, static) = { |
| .path = "set ikev2 local key", |
| .short_help = |
| "set ikev2 local key <file>", |
| .function = set_ikev2_local_key_command_fn, |
| }; |
| |
| clib_error_t * |
| ikev2_cli_init (vlib_main_t * vm) |
| { |
| return 0; |
| } |
| |
| VLIB_INIT_FUNCTION (ikev2_cli_init); |