ikev2_cli.c

Go to the documentation of this file.

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