vnet/vnet/ipsec/ikev2_cli.c

   1 /*
   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:
   6  *
   7  *     http://www.apache.org/licenses/LICENSE-2.0
   8  *
   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.
  14  */
  15 #include <vlib/vlib.h>
  16 #include <vnet/vnet.h>
  17 #include <vnet/pg/pg.h>
  18 #include <vppinfra/error.h>
  19 #include <vnet/ip/udp.h>
  20 #include <vnet/ipsec/ikev2.h>
  21 #include <vnet/ipsec/ikev2_priv.h>
  22
  23 u8 *
  24 format_ikev2_id_type_and_data (u8 * s, va_list * args)
  25 {
  26   ikev2_id_t *id = va_arg (*args, ikev2_id_t *);
  27
  28   if (id->type == 0 || vec_len (id->data) == 0)
  29     return format (s, "none");
  30
  31   s = format (s, "%U", format_ikev2_id_type, id->type);
  32
  33   if (id->type == IKEV2_ID_TYPE_ID_FQDN ||
  34       id->type == IKEV2_ID_TYPE_ID_RFC822_ADDR)
  35     {
  36       s = format (s, " %v", id->data);
  37     }
  38   else
  39     {
  40       s =
  41         format (s, " %U", format_hex_bytes, &id->data,
  42                 (uword) (vec_len (id->data)));
  43     }
  44
  45   return s;
  46 }
  47
  48
  49 static clib_error_t *
  50 show_ikev2_sa_command_fn (vlib_main_t * vm,
  51                           unformat_input_t * input, vlib_cli_command_t * cmd)
  52 {
  53   ikev2_main_t *km = &ikev2_main;
  54   ikev2_main_per_thread_data_t *tkm;
  55   ikev2_sa_t *sa;
  56   ikev2_ts_t *ts;
  57   ikev2_child_sa_t *child;
  58   ikev2_sa_transform_t *tr;
  59
  60   vec_foreach (tkm, km->per_thread_data)
  61   {
  62     /* *INDENT-OFF* */
  63     pool_foreach (sa, tkm->sas, ({
  64       u8 * s = 0;
  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);
  68
  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);
  71
  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);
  74
  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);
  77
  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);
  80
  81       vlib_cli_output(vm, " %v", s);
  82       vec_free(s);
  83
  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));
  87
  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));
  99
 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);
 104
 105       vec_foreach(child, sa->childs)
 106         {
 107           vlib_cli_output(vm, "  child sa %u:", child - sa->childs);
 108
 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);
 111
 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);
 114
 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);
 117
 118           vlib_cli_output(vm, "    %v", s);
 119           vec_free(s);
 120
 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);
 124
 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)
 133             {
 134               vlib_cli_output(vm, "      %u type %u protocol_id %u addr "
 135                               "%U - %U port %u - %u",
 136                               ts - child->tsi,
 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));
 142             }
 143           vlib_cli_output(vm, "    traffic selectors (r):");
 144           vec_foreach(ts, child->tsr)
 145             {
 146               vlib_cli_output(vm, "      %u type %u protocol_id %u addr "
 147                               "%U - %U port %u - %u",
 148                               ts - child->tsr,
 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));
 154             }
 155         }
 156       vlib_cli_output(vm, "");
 157     }));
 158     /* *INDENT-ON* */
 159   }
 160   return 0;
 161 }
 162
 163 /* *INDENT-OFF* */
 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,
 168 };
 169 /* *INDENT-ON* */
 170
 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)
 175 {
 176   unformat_input_t _line_input, *line_input = &_line_input;
 177   u8 *name = 0;
 178   clib_error_t *r = 0;
 179   u32 id_type;
 180   u8 *data = 0;
 181   u32 tmp1, tmp2, tmp3;
 182   ip4_address_t ip4;
 183   ip4_address_t end_addr;
 184
 185   const char *valid_chars = "a-zA-Z0-9_";
 186
 187   if (!unformat_user (input, unformat_line_input, line_input))
 188     return 0;
 189
 190   while (unformat_check_input (line_input) != UNFORMAT_END_OF_INPUT)
 191     {
 192       if (unformat (line_input, "add %U", unformat_token, valid_chars, &name))
 193         {
 194           r = ikev2_add_del_profile (vm, name, 1);
 195           goto done;
 196         }
 197       else
 198         if (unformat
 199             (line_input, "del %U", unformat_token, valid_chars, &name))
 200         {
 201           r = ikev2_add_del_profile (vm, name, 0);
 202           goto done;
 203         }
 204       else if (unformat (line_input, "set %U auth shared-key-mic string %v",
 205                          unformat_token, valid_chars, &name, &data))
 206         {
 207           r =
 208             ikev2_set_profile_auth (vm, name,
 209                                     IKEV2_AUTH_METHOD_SHARED_KEY_MIC, data,
 210                                     0);
 211           goto done;
 212         }
 213       else if (unformat (line_input, "set %U auth shared-key-mic hex %U",
 214                          unformat_token, valid_chars, &name,
 215                          unformat_hex_string, &data))
 216         {
 217           r =
 218             ikev2_set_profile_auth (vm, name,
 219                                     IKEV2_AUTH_METHOD_SHARED_KEY_MIC, data,
 220                                     1);
 221           goto done;
 222         }
 223       else if (unformat (line_input, "set %U auth rsa-sig cert-file %v",
 224                          unformat_token, valid_chars, &name, &data))
 225         {
 226           r =
 227             ikev2_set_profile_auth (vm, name, IKEV2_AUTH_METHOD_RSA_SIG, data,
 228                                     0);
 229           goto done;
 230         }
 231       else if (unformat (line_input, "set %U id local %U %U",
 232                          unformat_token, valid_chars, &name,
 233                          unformat_ikev2_id_type, &id_type,
 234                          unformat_ip4_address, &ip4))
 235         {
 236           data = vec_new (u8, 4);
 237           clib_memcpy (data, ip4.as_u8, 4);
 238           r =
 239             ikev2_set_profile_id (vm, name, (u8) id_type, data, /*local */ 1);
 240           goto done;
 241         }
 242       else if (unformat (line_input, "set %U id local %U 0x%U",
 243                          unformat_token, valid_chars, &name,
 244                          unformat_ikev2_id_type, &id_type,
 245                          unformat_hex_string, &data))
 246         {
 247           r =
 248             ikev2_set_profile_id (vm, name, (u8) id_type, data, /*local */ 1);
 249           goto done;
 250         }
 251       else if (unformat (line_input, "set %U id local %U %v",
 252                          unformat_token, valid_chars, &name,
 253                          unformat_ikev2_id_type, &id_type, &data))
 254         {
 255           r =
 256             ikev2_set_profile_id (vm, name, (u8) id_type, data, /*local */ 1);
 257           goto done;
 258         }
 259       else if (unformat (line_input, "set %U id remote %U %U",
 260                          unformat_token, valid_chars, &name,
 261                          unformat_ikev2_id_type, &id_type,
 262                          unformat_ip4_address, &ip4))
 263         {
 264           data = vec_new (u8, 4);
 265           clib_memcpy (data, ip4.as_u8, 4);
 266           r =
 267             ikev2_set_profile_id (vm, name, (u8) id_type, data, /*remote */
 268                                   0);
 269           goto done;
 270         }
 271       else if (unformat (line_input, "set %U id remote %U 0x%U",
 272                          unformat_token, valid_chars, &name,
 273                          unformat_ikev2_id_type, &id_type,
 274                          unformat_hex_string, &data))
 275         {
 276           r =
 277             ikev2_set_profile_id (vm, name, (u8) id_type, data, /*remote */
 278                                   0);
 279           goto done;
 280         }
 281       else if (unformat (line_input, "set %U id remote %U %v",
 282                          unformat_token, valid_chars, &name,
 283                          unformat_ikev2_id_type, &id_type, &data))
 284         {
 285           r =
 286             ikev2_set_profile_id (vm, name, (u8) id_type, data, /*remote */
 287                                   0);
 288           goto done;
 289         }
 290       else if (unformat (line_input, "set %U traffic-selector local "
 291                          "ip-range %U - %U port-range %u - %u protocol %u",
 292                          unformat_token, valid_chars, &name,
 293                          unformat_ip4_address, &ip4,
 294                          unformat_ip4_address, &end_addr,
 295                          &tmp1, &tmp2, &tmp3))
 296         {
 297           r =
 298             ikev2_set_profile_ts (vm, name, (u8) tmp3, (u16) tmp1, (u16) tmp2,
 299                                   ip4, end_addr, /*local */ 1);
 300           goto done;
 301         }
 302       else if (unformat (line_input, "set %U traffic-selector remote "
 303                          "ip-range %U - %U port-range %u - %u protocol %u",
 304                          unformat_token, valid_chars, &name,
 305                          unformat_ip4_address, &ip4,
 306                          unformat_ip4_address, &end_addr,
 307                          &tmp1, &tmp2, &tmp3))
 308         {
 309           r =
 310             ikev2_set_profile_ts (vm, name, (u8) tmp3, (u16) tmp1, (u16) tmp2,
 311                                   ip4, end_addr, /*remote */ 0);
 312           goto done;
 313         }
 314       else
 315         break;
 316     }
 317
 318   r = clib_error_return (0, "parse error: '%U'",
 319                          format_unformat_error, line_input);
 320
 321 done:
 322   vec_free (name);
 323   vec_free (data);
 324   unformat_free (line_input);
 325   return r;
 326 }
 327
 328 /* *INDENT-OFF* */
 329 VLIB_CLI_COMMAND (ikev2_profile_add_del_command, static) = {
 330     .path = "ikev2 profile",
 331     .short_help =
 332     "ikev2 profile [add|del] <id>\n"
 333     "ikev2 profile set <id> auth [rsa-sig|shared-key-mic] [cert-file|string|hex]"
 334     " <data>\n"
 335     "ikev2 profile set <id> id <local|remote> <type> <data>\n"
 336     "ikev2 profile set <id> traffic-selector <local|remote> ip-range "
 337     "<start-addr> - <end-addr> port-range <start-port> - <end-port> "
 338     "protocol <protocol-number>",
 339     .function = ikev2_profile_add_del_command_fn,
 340 };
 341 /* *INDENT-ON* */
 342
 343 static clib_error_t *
 344 show_ikev2_profile_command_fn (vlib_main_t * vm,
 345                                unformat_input_t * input,
 346                                vlib_cli_command_t * cmd)
 347 {
 348   ikev2_main_t *km = &ikev2_main;
 349   ikev2_profile_t *p;
 350
 351   /* *INDENT-OFF* */
 352   pool_foreach (p, km->profiles, ({
 353     vlib_cli_output(vm, "profile %v", p->name);
 354
 355     if (p->auth.data)
 356       {
 357         if (p->auth.hex)
 358           vlib_cli_output(vm, "  auth-method %U auth data 0x%U",
 359                           format_ikev2_auth_method, p->auth.method,
 360                           format_hex_bytes, p->auth.data, vec_len(p->auth.data));
 361         else
 362           vlib_cli_output(vm, "  auth-method %U auth data %v",
 363                    format_ikev2_auth_method, p->auth.method, p->auth.data);
 364       }
 365
 366     if (p->loc_id.data)
 367       {
 368         if (p->loc_id.type == IKEV2_ID_TYPE_ID_IPV4_ADDR)
 369           vlib_cli_output(vm, "  local id-type %U data %U",
 370                           format_ikev2_id_type, p->loc_id.type,
 371                           format_ip4_address, p->loc_id.data);
 372         else if (p->loc_id.type == IKEV2_ID_TYPE_ID_KEY_ID)
 373           vlib_cli_output(vm, "  local id-type %U data 0x%U",
 374                           format_ikev2_id_type, p->loc_id.type,
 375                           format_hex_bytes, p->loc_id.data,
 376                           vec_len(p->loc_id.data));
 377         else
 378           vlib_cli_output(vm, "  local id-type %U data %v",
 379                           format_ikev2_id_type, p->loc_id.type, p->loc_id.data);
 380       }
 381
 382     if (p->rem_id.data)
 383       {
 384         if (p->rem_id.type == IKEV2_ID_TYPE_ID_IPV4_ADDR)
 385           vlib_cli_output(vm, "  remote id-type %U data %U",
 386                           format_ikev2_id_type, p->rem_id.type,
 387                           format_ip4_address, p->rem_id.data);
 388         else if (p->rem_id.type == IKEV2_ID_TYPE_ID_KEY_ID)
 389           vlib_cli_output(vm, "  remote id-type %U data 0x%U",
 390                           format_ikev2_id_type, p->rem_id.type,
 391                           format_hex_bytes, p->rem_id.data,
 392                           vec_len(p->rem_id.data));
 393         else
 394           vlib_cli_output(vm, "  remote id-type %U data %v",
 395                           format_ikev2_id_type, p->rem_id.type, p->rem_id.data);
 396       }
 397
 398     if (p->loc_ts.end_addr.as_u32)
 399       vlib_cli_output(vm, "  local traffic-selector addr %U - %U port %u - %u"
 400                       " protocol %u",
 401                       format_ip4_address, &p->loc_ts.start_addr,
 402                       format_ip4_address, &p->loc_ts.end_addr,
 403                       p->loc_ts.start_port, p->loc_ts.end_port,
 404                       p->loc_ts.protocol_id);
 405
 406     if (p->rem_ts.end_addr.as_u32)
 407       vlib_cli_output(vm, "  remote traffic-selector addr %U - %U port %u - %u"
 408                       " protocol %u",
 409                       format_ip4_address, &p->rem_ts.start_addr,
 410                       format_ip4_address, &p->rem_ts.end_addr,
 411                       p->rem_ts.start_port, p->rem_ts.end_port,
 412                       p->rem_ts.protocol_id);
 413   }));
 414   /* *INDENT-ON* */
 415
 416   return 0;
 417 }
 418
 419 /* *INDENT-OFF* */
 420 VLIB_CLI_COMMAND (show_ikev2_profile_command, static) = {
 421     .path = "show ikev2 profile",
 422     .short_help = "show ikev2 profile",
 423     .function = show_ikev2_profile_command_fn,
 424 };
 425 /* *INDENT-ON* */
 426
 427 static clib_error_t *
 428 set_ikev2_local_key_command_fn (vlib_main_t * vm,
 429                                 unformat_input_t * input,
 430                                 vlib_cli_command_t * cmd)
 431 {
 432   unformat_input_t _line_input, *line_input = &_line_input;
 433   clib_error_t *r = 0;
 434   u8 *data = 0;
 435
 436   if (!unformat_user (input, unformat_line_input, line_input))
 437     return 0;
 438
 439   while (unformat_check_input (line_input) != UNFORMAT_END_OF_INPUT)
 440     {
 441       if (unformat (line_input, "%v", &data))
 442         {
 443           r = ikev2_set_local_key (vm, data);
 444           goto done;
 445         }
 446       else
 447         break;
 448     }
 449
 450   r = clib_error_return (0, "parse error: '%U'",
 451                          format_unformat_error, line_input);
 452
 453 done:
 454   vec_free (data);
 455   unformat_free (line_input);
 456   return r;
 457 }
 458
 459 /* *INDENT-OFF* */
 460 VLIB_CLI_COMMAND (set_ikev2_local_key_command, static) = {
 461     .path = "set ikev2 local key",
 462     .short_help =
 463     "set ikev2 local key <file>",
 464     .function = set_ikev2_local_key_command_fn,
 465 };
 466 /* *INDENT-ON* */
 467
 468 clib_error_t *
 469 ikev2_cli_init (vlib_main_t * vm)
 470 {
 471   return 0;
 472 }
 473
 474 VLIB_INIT_FUNCTION (ikev2_cli_init);
 475
 476 /*
 477  * fd.io coding-style-patch-verification: ON
 478  *
 479  * Local Variables:
 480  * eval: (c-set-style "gnu")
 481  * End:
 482  */