| /* |
| * decap.c : IPSec tunnel support |
| * |
| * 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 <vnet/vnet.h> |
| #include <vnet/api_errno.h> |
| #include <vnet/ip/ip.h> |
| #include <vnet/interface.h> |
| #include <vnet/fib/fib_table.h> |
| |
| #include <vnet/ipsec/ipsec.h> |
| #include <vnet/ipsec/ipsec_tun.h> |
| |
| u8 * |
| format_ipsec_policy_action (u8 * s, va_list * args) |
| { |
| u32 i = va_arg (*args, u32); |
| char *t = 0; |
| |
| switch (i) |
| { |
| #define _(v,f,str) case IPSEC_POLICY_ACTION_##f: t = str; break; |
| foreach_ipsec_policy_action |
| #undef _ |
| default: |
| s = format (s, "unknown"); |
| } |
| s = format (s, "%s", t); |
| return s; |
| } |
| |
| u8 * |
| format_ipsec_policy_type (u8 * s, va_list * args) |
| { |
| u32 i = va_arg (*args, u32); |
| char *t = 0; |
| |
| switch (i) |
| { |
| #define _(f,str) case IPSEC_SPD_POLICY_##f: t = str; break; |
| foreach_ipsec_spd_policy_type |
| #undef _ |
| default: |
| s = format (s, "unknown"); |
| } |
| s = format (s, "%s", t); |
| return s; |
| } |
| |
| uword |
| unformat_ipsec_policy_action (unformat_input_t * input, va_list * args) |
| { |
| u32 *r = va_arg (*args, u32 *); |
| |
| if (0); |
| #define _(v,f,s) else if (unformat (input, s)) *r = IPSEC_POLICY_ACTION_##f; |
| foreach_ipsec_policy_action |
| #undef _ |
| else |
| return 0; |
| return 1; |
| } |
| |
| u8 * |
| format_ipsec_crypto_alg (u8 * s, va_list * args) |
| { |
| u32 i = va_arg (*args, u32); |
| u8 *t = 0; |
| |
| switch (i) |
| { |
| #define _(v,f,str) case IPSEC_CRYPTO_ALG_##f: t = (u8 *) str; break; |
| foreach_ipsec_crypto_alg |
| #undef _ |
| default: |
| s = format (s, "unknown"); |
| } |
| s = format (s, "%s", t); |
| return s; |
| } |
| |
| uword |
| unformat_ipsec_crypto_alg (unformat_input_t * input, va_list * args) |
| { |
| u32 *r = va_arg (*args, u32 *); |
| |
| if (0); |
| #define _(v,f,s) else if (unformat (input, s)) *r = IPSEC_CRYPTO_ALG_##f; |
| foreach_ipsec_crypto_alg |
| #undef _ |
| else |
| return 0; |
| return 1; |
| } |
| |
| u8 * |
| format_ipsec_integ_alg (u8 * s, va_list * args) |
| { |
| u32 i = va_arg (*args, u32); |
| u8 *t = 0; |
| |
| switch (i) |
| { |
| #define _(v,f,str) case IPSEC_INTEG_ALG_##f: t = (u8 *) str; break; |
| foreach_ipsec_integ_alg |
| #undef _ |
| default: |
| s = format (s, "unknown"); |
| } |
| s = format (s, "%s", t); |
| return s; |
| } |
| |
| uword |
| unformat_ipsec_integ_alg (unformat_input_t * input, va_list * args) |
| { |
| u32 *r = va_arg (*args, u32 *); |
| |
| if (0); |
| #define _(v,f,s) else if (unformat (input, s)) *r = IPSEC_INTEG_ALG_##f; |
| foreach_ipsec_integ_alg |
| #undef _ |
| else |
| return 0; |
| return 1; |
| } |
| |
| u8 * |
| format_ipsec_replay_window (u8 * s, va_list * args) |
| { |
| u64 w = va_arg (*args, u64); |
| u8 i; |
| |
| for (i = 0; i < 64; i++) |
| { |
| s = format (s, "%u", w & (1ULL << i) ? 1 : 0); |
| } |
| |
| return s; |
| } |
| |
| u8 * |
| format_ipsec_policy (u8 * s, va_list * args) |
| { |
| u32 pi = va_arg (*args, u32); |
| ip46_type_t ip_type = IP46_TYPE_IP4; |
| ipsec_main_t *im = &ipsec_main; |
| ipsec_policy_t *p; |
| vlib_counter_t counts; |
| |
| p = pool_elt_at_index (im->policies, pi); |
| |
| s = format (s, " [%d] priority %d action %U type %U protocol ", |
| pi, p->priority, |
| format_ipsec_policy_action, p->policy, |
| format_ipsec_policy_type, p->type); |
| if (p->protocol) |
| { |
| s = format (s, "%U", format_ip_protocol, p->protocol); |
| } |
| else |
| { |
| s = format (s, "any"); |
| } |
| if (p->policy == IPSEC_POLICY_ACTION_PROTECT) |
| { |
| s = format (s, " sa %u", p->sa_id); |
| } |
| if (p->is_ipv6) |
| { |
| ip_type = IP46_TYPE_IP6; |
| } |
| |
| s = format (s, "\n local addr range %U - %U port range %u - %u", |
| format_ip46_address, &p->laddr.start, ip_type, |
| format_ip46_address, &p->laddr.stop, ip_type, |
| p->lport.start, p->lport.stop); |
| s = format (s, "\n remote addr range %U - %U port range %u - %u", |
| format_ip46_address, &p->raddr.start, ip_type, |
| format_ip46_address, &p->raddr.stop, ip_type, |
| p->rport.start, p->rport.stop); |
| |
| vlib_get_combined_counter (&ipsec_spd_policy_counters, pi, &counts); |
| s = format (s, "\n packets %u bytes %u", counts.packets, counts.bytes); |
| |
| return (s); |
| } |
| |
| u8 * |
| format_ipsec_spd (u8 * s, va_list * args) |
| { |
| u32 si = va_arg (*args, u32); |
| ipsec_main_t *im = &ipsec_main; |
| ipsec_spd_t *spd; |
| u32 *i; |
| |
| if (pool_is_free_index (im->spds, si)) |
| { |
| s = format (s, "No such SPD index: %d", si); |
| goto done; |
| } |
| |
| spd = pool_elt_at_index (im->spds, si); |
| |
| s = format (s, "spd %u", spd->id); |
| |
| #define _(v, n) \ |
| s = format (s, "\n %s:", n); \ |
| vec_foreach(i, spd->policies[IPSEC_SPD_POLICY_##v]) \ |
| { \ |
| s = format (s, "\n %U", format_ipsec_policy, *i); \ |
| } |
| foreach_ipsec_spd_policy_type; |
| #undef _ |
| |
| done: |
| return (s); |
| } |
| |
| u8 * |
| format_ipsec_key (u8 * s, va_list * args) |
| { |
| ipsec_key_t *key = va_arg (*args, ipsec_key_t *); |
| |
| return (format (s, "%U", format_hex_bytes, key->data, key->len)); |
| } |
| |
| uword |
| unformat_ipsec_key (unformat_input_t * input, va_list * args) |
| { |
| ipsec_key_t *key = va_arg (*args, ipsec_key_t *); |
| u8 *data; |
| |
| if (unformat (input, "%U", unformat_hex_string, &data)) |
| { |
| ipsec_mk_key (key, data, vec_len (data)); |
| vec_free (data); |
| } |
| else |
| return 0; |
| return 1; |
| } |
| |
| u8 * |
| format_ipsec_sa_flags (u8 * s, va_list * args) |
| { |
| ipsec_sa_flags_t flags = va_arg (*args, int); |
| |
| #define _(v, f, str) if (flags & IPSEC_SA_FLAG_##f) s = format(s, "%s ", str); |
| foreach_ipsec_sa_flags |
| #undef _ |
| return (s); |
| } |
| |
| u8 * |
| format_ipsec_sa (u8 * s, va_list * args) |
| { |
| u32 sai = va_arg (*args, u32); |
| ipsec_format_flags_t flags = va_arg (*args, ipsec_format_flags_t); |
| ipsec_main_t *im = &ipsec_main; |
| vlib_counter_t counts; |
| u32 tx_table_id; |
| ipsec_sa_t *sa; |
| |
| if (pool_is_free_index (im->sad, sai)) |
| { |
| s = format (s, "No such SA index: %d", sai); |
| goto done; |
| } |
| |
| sa = pool_elt_at_index (im->sad, sai); |
| |
| s = format (s, "[%d] sa %u (0x%x) spi %u (0x%08x) protocol:%s flags:[%U]", |
| sai, sa->id, sa->id, sa->spi, sa->spi, |
| sa->protocol ? "esp" : "ah", format_ipsec_sa_flags, sa->flags); |
| |
| if (!(flags & IPSEC_FORMAT_DETAIL)) |
| goto done; |
| |
| s = format (s, "\n locks %d", sa->node.fn_locks); |
| s = format (s, "\n salt 0x%x", clib_net_to_host_u32 (sa->salt)); |
| s = format (s, "\n seq %u seq-hi %u", sa->seq, sa->seq_hi); |
| s = format (s, "\n last-seq %u last-seq-hi %u window %U", |
| sa->last_seq, sa->last_seq_hi, |
| format_ipsec_replay_window, sa->replay_window); |
| s = format (s, "\n crypto alg %U", |
| format_ipsec_crypto_alg, sa->crypto_alg); |
| if (sa->crypto_alg && (flags & IPSEC_FORMAT_INSECURE)) |
| s = format (s, " key %U", format_ipsec_key, &sa->crypto_key); |
| else |
| s = format (s, " key [redacted]"); |
| s = format (s, "\n integrity alg %U", |
| format_ipsec_integ_alg, sa->integ_alg); |
| if (sa->integ_alg && (flags & IPSEC_FORMAT_INSECURE)) |
| s = format (s, " key %U", format_ipsec_key, &sa->integ_key); |
| else |
| s = format (s, " key [redacted]"); |
| |
| vlib_get_combined_counter (&ipsec_sa_counters, sai, &counts); |
| s = format (s, "\n packets %u bytes %u", counts.packets, counts.bytes); |
| |
| if (ipsec_sa_is_set_IS_TUNNEL (sa)) |
| { |
| tx_table_id = fib_table_get_table_id (sa->tx_fib_index, |
| FIB_PROTOCOL_IP4); |
| s = format (s, "\n table-ID %d tunnel src %U dst %U", |
| tx_table_id, |
| format_ip46_address, &sa->tunnel_src_addr, IP46_TYPE_ANY, |
| format_ip46_address, &sa->tunnel_dst_addr, IP46_TYPE_ANY); |
| if (!ipsec_sa_is_set_IS_INBOUND (sa)) |
| { |
| s = |
| format (s, "\n resovle via fib-entry: %d", |
| sa->fib_entry_index); |
| s = format (s, "\n stacked on:"); |
| s = format (s, "\n %U", format_dpo_id, &sa->dpo, 6); |
| } |
| } |
| |
| done: |
| return (s); |
| } |
| |
| u8 * |
| format_ipsec_tun_protect (u8 * s, va_list * args) |
| { |
| u32 itpi = va_arg (*args, u32); |
| ipsec_tun_protect_t *itp; |
| u32 sai; |
| |
| if (pool_is_free_index (ipsec_protect_pool, itpi)) |
| { |
| s = format (s, "No such tunnel index: %d", itpi); |
| goto done; |
| } |
| |
| itp = pool_elt_at_index (ipsec_protect_pool, itpi); |
| |
| s = format (s, "%U", format_vnet_sw_if_index_name, |
| vnet_get_main (), itp->itp_sw_if_index); |
| s = format (s, "\n output-sa:"); |
| s = |
| format (s, "\n %U", format_ipsec_sa, itp->itp_out_sa, |
| IPSEC_FORMAT_BRIEF); |
| |
| s = format (s, "\n input-sa:"); |
| /* *INDENT-OFF* */ |
| FOR_EACH_IPSEC_PROTECT_INPUT_SAI(itp, sai, |
| ({ |
| s = format (s, "\n %U", format_ipsec_sa, sai, IPSEC_FORMAT_BRIEF); |
| })); |
| /* *INDENT-ON* */ |
| |
| done: |
| return (s); |
| } |
| |
| u8 * |
| format_ipsec4_tunnel_key (u8 * s, va_list * args) |
| { |
| ipsec4_tunnel_key_t *key = va_arg (*args, ipsec4_tunnel_key_t *); |
| |
| s = format (s, "remote:%U spi:%u (0x%08x)", |
| format_ip4_address, &key->remote_ip, |
| clib_net_to_host_u32 (key->spi), |
| clib_net_to_host_u32 (key->spi)); |
| |
| return (s); |
| } |
| |
| u8 * |
| format_ipsec6_tunnel_key (u8 * s, va_list * args) |
| { |
| ipsec6_tunnel_key_t *key = va_arg (*args, ipsec6_tunnel_key_t *); |
| |
| s = format (s, "remote:%U spi:%u (0x%08x)", |
| format_ip6_address, &key->remote_ip, |
| clib_net_to_host_u32 (key->spi), |
| clib_net_to_host_u32 (key->spi)); |
| |
| return (s); |
| } |
| |
| /* |
| * fd.io coding-style-patch-verification: ON |
| * |
| * Local Variables: |
| * eval: (c-set-style "gnu") |
| * End: |
| */ |