src/vnet/ipsec/ipsec_format.c - fdio/vpp - Gitiles

 /*
  * 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>

 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,
 	      clib_net_to_host_u16 (p->lport.start),
 	      clib_net_to_host_u16 (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,
 	      clib_net_to_host_u16 (p->rport.start),
 	      clib_net_to_host_u16 (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);

   if (0)
     ;
 #define _(v, f, str) else 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 0x%x spi %u mode %s%s protocol %s %U",
 	      sai, sa->id, sa->spi,
 	      ipsec_sa_is_set_IS_TUNNEL (sa) ? "tunnel" : "transport",
 	      ipsec_sa_is_set_IS_TUNNEL_V6 (sa) ? "-ip6" : "",
 	      sa->protocol ? "esp" : "ah", format_ipsec_sa_flags, sa->flags);

   if (!(flags & IPSEC_FORMAT_DETAIL))
     goto done;

   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)
     s = format (s, " key %U", format_ipsec_key, &sa->crypto_key);
   s = format (s, "\n   integrity alg %U",
 	      format_ipsec_integ_alg, sa->integ_alg);
   if (sa->integ_alg)
     s = format (s, " key %U", format_ipsec_key, &sa->integ_key);

   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_tunnel (u8 * s, va_list * args)
 {
   ipsec_main_t *im = &ipsec_main;
   u32 ti = va_arg (*args, u32);
   ipsec_tunnel_if_t *t;

   if (pool_is_free_index (im->tunnel_interfaces, ti))
     {
       s = format (s, "No such tunnel index: %d", ti);
       goto done;
     }

   t = pool_elt_at_index (im->tunnel_interfaces, ti);

   if (t->hw_if_index == ~0)
     goto done;

   s =
     format (s, "%U\n", format_vnet_hw_if_index_name, im->vnet_main,
 	    t->hw_if_index);

   s = format (s, "   out-bound sa: ");
   s = format (s, "%U\n", format_ipsec_sa, t->output_sa_index,
 	      IPSEC_FORMAT_BRIEF);

   s = format (s, "    in-bound sa: ");
   s = format (s, "%U\n", format_ipsec_sa, t->input_sa_index,
 	      IPSEC_FORMAT_BRIEF);

 done:
   return (s);
 }

 /*
  * fd.io coding-style-patch-verification: ON
  *
  * Local Variables:
  * eval: (c-set-style "gnu")
  * End:
  */
	/*
	* 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>

	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,
	clib_net_to_host_u16 (p->lport.start),
	clib_net_to_host_u16 (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,
	clib_net_to_host_u16 (p->rport.start),
	clib_net_to_host_u16 (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);

	if (0)
	;
	#define _(v, f, str) else 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 0x%x spi %u mode %s%s protocol %s %U",
	sai, sa->id, sa->spi,
	ipsec_sa_is_set_IS_TUNNEL (sa) ? "tunnel" : "transport",
	ipsec_sa_is_set_IS_TUNNEL_V6 (sa) ? "-ip6" : "",
	sa->protocol ? "esp" : "ah", format_ipsec_sa_flags, sa->flags);

	if (!(flags & IPSEC_FORMAT_DETAIL))
	goto done;

	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)
	s = format (s, " key %U", format_ipsec_key, &sa->crypto_key);
	s = format (s, "\n integrity alg %U",
	format_ipsec_integ_alg, sa->integ_alg);
	if (sa->integ_alg)
	s = format (s, " key %U", format_ipsec_key, &sa->integ_key);

	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_tunnel (u8 * s, va_list * args)
	{
	ipsec_main_t *im = &ipsec_main;
	u32 ti = va_arg (*args, u32);
	ipsec_tunnel_if_t *t;

	if (pool_is_free_index (im->tunnel_interfaces, ti))
	{
	s = format (s, "No such tunnel index: %d", ti);
	goto done;
	}

	t = pool_elt_at_index (im->tunnel_interfaces, ti);

	if (t->hw_if_index == ~0)
	goto done;

	s =
	format (s, "%U\n", format_vnet_hw_if_index_name, im->vnet_main,
	t->hw_if_index);

	s = format (s, " out-bound sa: ");
	s = format (s, "%U\n", format_ipsec_sa, t->output_sa_index,
	IPSEC_FORMAT_BRIEF);

	s = format (s, " in-bound sa: ");
	s = format (s, "%U\n", format_ipsec_sa, t->input_sa_index,
	IPSEC_FORMAT_BRIEF);

	done:
	return (s);
	}

	/*
	* fd.io coding-style-patch-verification: ON
	*
	* Local Variables:
	* eval: (c-set-style "gnu")
	* End:
	*/