sys/netipsec/key_debug.c

   1 /*      $FreeBSD$       */
   2 /*      $KAME: key_debug.c,v 1.26 2001/06/27 10:46:50 sakane Exp $      */
   3
   4 /*-
   5  * Copyright (C) 1995, 1996, 1997, and 1998 WIDE Project.
   6  * All rights reserved.
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted provided that the following conditions
  10  * are met:
  11  * 1. Redistributions of source code must retain the above copyright
  12  *    notice, this list of conditions and the following disclaimer.
  13  * 2. Redistributions in binary form must reproduce the above copyright
  14  *    notice, this list of conditions and the following disclaimer in the
  15  *    documentation and/or other materials provided with the distribution.
  16  * 3. Neither the name of the project nor the names of its contributors
  17  *    may be used to endorse or promote products derived from this software
  18  *    without specific prior written permission.
  19  *
  20  * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND
  21  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  22  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  23  * ARE DISCLAIMED.  IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE
  24  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  25  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  26  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  27  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  28  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  29  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  30  * SUCH DAMAGE.
  31  */
  32
  33 #ifdef _KERNEL
  34 #include "opt_inet.h"
  35 #include "opt_inet6.h"
  36 #include "opt_ipsec.h"
  37 #endif
  38
  39 #include <sys/param.h>
  40 #ifdef _KERNEL
  41 #include <sys/systm.h>
  42 #include <sys/lock.h>
  43 #include <sys/malloc.h>
  44 #include <sys/mbuf.h>
  45 #include <sys/mutex.h>
  46 #include <sys/queue.h>
  47 #endif
  48 #include <sys/socket.h>
  49
  50 #include <net/vnet.h>
  51
  52 #include <netipsec/key_var.h>
  53 #include <netipsec/key_debug.h>
  54
  55 #include <netinet/in.h>
  56 #include <netipsec/ipsec.h>
  57 #ifdef _KERNEL
  58 #include <netipsec/keydb.h>
  59 #include <netipsec/xform.h>
  60 #endif
  61
  62 #ifndef _KERNEL
  63 #include <ctype.h>
  64 #include <stdio.h>
  65 #include <stdlib.h>
  66 #include <arpa/inet.h>
  67 #endif /* !_KERNEL */
  68
  69 static void kdebug_sadb_prop(struct sadb_ext *);
  70 static void kdebug_sadb_identity(struct sadb_ext *);
  71 static void kdebug_sadb_supported(struct sadb_ext *);
  72 static void kdebug_sadb_lifetime(struct sadb_ext *);
  73 static void kdebug_sadb_sa(struct sadb_ext *);
  74 static void kdebug_sadb_address(struct sadb_ext *);
  75 static void kdebug_sadb_key(struct sadb_ext *);
  76 static void kdebug_sadb_x_sa2(struct sadb_ext *);
  77 static void kdebug_sadb_x_sa_replay(struct sadb_ext *);
  78 static void kdebug_sadb_x_natt(struct sadb_ext *);
  79
  80 #ifndef _KERNEL
  81 #define panic(fmt, ...) { printf(fmt, ## __VA_ARGS__); exit(-1); }
  82 #endif
  83
  84 /* NOTE: host byte order */
  85
  86 /* %%%: about struct sadb_msg */
  87 void
  88 kdebug_sadb(struct sadb_msg *base)
  89 {
  90         struct sadb_ext *ext;
  91         int tlen, extlen;
  92
  93         /* sanity check */
  94         if (base == NULL)
  95                 panic("%s: NULL pointer was passed.\n", __func__);
  96
  97         printf("sadb_msg{ version=%u type=%u errno=%u satype=%u\n",
  98             base->sadb_msg_version, base->sadb_msg_type,
  99             base->sadb_msg_errno, base->sadb_msg_satype);
 100         printf("  len=%u reserved=%u seq=%u pid=%u\n",
 101             base->sadb_msg_len, base->sadb_msg_reserved,
 102             base->sadb_msg_seq, base->sadb_msg_pid);
 103
 104         tlen = PFKEY_UNUNIT64(base->sadb_msg_len) - sizeof(struct sadb_msg);
 105         ext = (struct sadb_ext *)((caddr_t)base + sizeof(struct sadb_msg));
 106
 107         while (tlen > 0) {
 108                 printf("sadb_ext{ len=%u type=%u }\n",
 109                     ext->sadb_ext_len, ext->sadb_ext_type);
 110
 111                 if (ext->sadb_ext_len == 0) {
 112                         printf("%s: invalid ext_len=0 was passed.\n", __func__);
 113                         return;
 114                 }
 115                 if (ext->sadb_ext_len > tlen) {
 116                         printf("%s: ext_len too big (%u > %u).\n",
 117                                 __func__, ext->sadb_ext_len, tlen);
 118                         return;
 119                 }
 120
 121                 switch (ext->sadb_ext_type) {
 122                 case SADB_EXT_SA:
 123                         kdebug_sadb_sa(ext);
 124                         break;
 125                 case SADB_EXT_LIFETIME_CURRENT:
 126                 case SADB_EXT_LIFETIME_HARD:
 127                 case SADB_EXT_LIFETIME_SOFT:
 128                         kdebug_sadb_lifetime(ext);
 129                         break;
 130                 case SADB_EXT_ADDRESS_SRC:
 131                 case SADB_EXT_ADDRESS_DST:
 132                 case SADB_EXT_ADDRESS_PROXY:
 133                 case SADB_X_EXT_NAT_T_OAI:
 134                 case SADB_X_EXT_NAT_T_OAR:
 135                 case SADB_X_EXT_NEW_ADDRESS_SRC:
 136                 case SADB_X_EXT_NEW_ADDRESS_DST:
 137                         kdebug_sadb_address(ext);
 138                         break;
 139                 case SADB_EXT_KEY_AUTH:
 140                 case SADB_EXT_KEY_ENCRYPT:
 141                         kdebug_sadb_key(ext);
 142                         break;
 143                 case SADB_EXT_IDENTITY_SRC:
 144                 case SADB_EXT_IDENTITY_DST:
 145                         kdebug_sadb_identity(ext);
 146                         break;
 147                 case SADB_EXT_SENSITIVITY:
 148                         break;
 149                 case SADB_EXT_PROPOSAL:
 150                         kdebug_sadb_prop(ext);
 151                         break;
 152                 case SADB_EXT_SUPPORTED_AUTH:
 153                 case SADB_EXT_SUPPORTED_ENCRYPT:
 154                         kdebug_sadb_supported(ext);
 155                         break;
 156                 case SADB_EXT_SPIRANGE:
 157                 case SADB_X_EXT_KMPRIVATE:
 158                         break;
 159                 case SADB_X_EXT_POLICY:
 160                         kdebug_sadb_x_policy(ext);
 161                         break;
 162                 case SADB_X_EXT_SA2:
 163                         kdebug_sadb_x_sa2(ext);
 164                         break;
 165                 case SADB_X_EXT_SA_REPLAY:
 166                         kdebug_sadb_x_sa_replay(ext);
 167                         break;
 168                 case SADB_X_EXT_NAT_T_TYPE:
 169                 case SADB_X_EXT_NAT_T_SPORT:
 170                 case SADB_X_EXT_NAT_T_DPORT:
 171                         kdebug_sadb_x_natt(ext);
 172                         break;
 173                 default:
 174                         printf("%s: invalid ext_type %u\n", __func__,
 175                             ext->sadb_ext_type);
 176                         return;
 177                 }
 178
 179                 extlen = PFKEY_UNUNIT64(ext->sadb_ext_len);
 180                 tlen -= extlen;
 181                 ext = (struct sadb_ext *)((caddr_t)ext + extlen);
 182         }
 183
 184         return;
 185 }
 186
 187 static void
 188 kdebug_sadb_prop(struct sadb_ext *ext)
 189 {
 190         struct sadb_prop *prop = (struct sadb_prop *)ext;
 191         struct sadb_comb *comb;
 192         int len;
 193
 194         /* sanity check */
 195         if (ext == NULL)
 196                 panic("%s: NULL pointer was passed.\n", __func__);
 197
 198         len = (PFKEY_UNUNIT64(prop->sadb_prop_len) - sizeof(*prop))
 199                 / sizeof(*comb);
 200         comb = (struct sadb_comb *)(prop + 1);
 201         printf("sadb_prop{ replay=%u\n", prop->sadb_prop_replay);
 202
 203         while (len--) {
 204                 printf("sadb_comb{ auth=%u encrypt=%u "
 205                         "flags=0x%04x reserved=0x%08x\n",
 206                         comb->sadb_comb_auth, comb->sadb_comb_encrypt,
 207                         comb->sadb_comb_flags, comb->sadb_comb_reserved);
 208
 209                 printf("  auth_minbits=%u auth_maxbits=%u "
 210                         "encrypt_minbits=%u encrypt_maxbits=%u\n",
 211                         comb->sadb_comb_auth_minbits,
 212                         comb->sadb_comb_auth_maxbits,
 213                         comb->sadb_comb_encrypt_minbits,
 214                         comb->sadb_comb_encrypt_maxbits);
 215
 216                 printf("  soft_alloc=%u hard_alloc=%u "
 217                         "soft_bytes=%lu hard_bytes=%lu\n",
 218                         comb->sadb_comb_soft_allocations,
 219                         comb->sadb_comb_hard_allocations,
 220                         (unsigned long)comb->sadb_comb_soft_bytes,
 221                         (unsigned long)comb->sadb_comb_hard_bytes);
 222
 223                 printf("  soft_alloc=%lu hard_alloc=%lu "
 224                         "soft_bytes=%lu hard_bytes=%lu }\n",
 225                         (unsigned long)comb->sadb_comb_soft_addtime,
 226                         (unsigned long)comb->sadb_comb_hard_addtime,
 227                         (unsigned long)comb->sadb_comb_soft_usetime,
 228                         (unsigned long)comb->sadb_comb_hard_usetime);
 229                 comb++;
 230         }
 231         printf("}\n");
 232
 233         return;
 234 }
 235
 236 static void
 237 kdebug_sadb_identity(struct sadb_ext *ext)
 238 {
 239         struct sadb_ident *id = (struct sadb_ident *)ext;
 240         int len;
 241
 242         /* sanity check */
 243         if (ext == NULL)
 244                 panic("%s: NULL pointer was passed.\n", __func__);
 245
 246         len = PFKEY_UNUNIT64(id->sadb_ident_len) - sizeof(*id);
 247         printf("sadb_ident_%s{",
 248             id->sadb_ident_exttype == SADB_EXT_IDENTITY_SRC ? "src" : "dst");
 249         switch (id->sadb_ident_type) {
 250         default:
 251                 printf(" type=%d id=%lu",
 252                         id->sadb_ident_type, (u_long)id->sadb_ident_id);
 253                 if (len) {
 254 #ifdef _KERNEL
 255                         ipsec_hexdump((caddr_t)(id + 1), len); /*XXX cast ?*/
 256 #else
 257                         char *p, *ep;
 258                         printf("\n  str=\"");
 259                         p = (char *)(id + 1);
 260                         ep = p + len;
 261                         for (/*nothing*/; *p && p < ep; p++) {
 262                                 if (isprint(*p))
 263                                         printf("%c", *p & 0xff);
 264                                 else
 265                                         printf("\\%03o", *p & 0xff);
 266                         }
 267 #endif
 268                         printf("\"");
 269                 }
 270                 break;
 271         }
 272
 273         printf(" }\n");
 274
 275         return;
 276 }
 277
 278 static void
 279 kdebug_sadb_supported(struct sadb_ext *ext)
 280 {
 281         struct sadb_supported *sup = (struct sadb_supported *)ext;
 282         struct sadb_alg *alg;
 283         int len;
 284
 285         /* sanity check */
 286         if (ext == NULL)
 287                 panic("%s: NULL pointer was passed.\n", __func__);
 288
 289         len = (PFKEY_UNUNIT64(sup->sadb_supported_len) - sizeof(*sup))
 290                 / sizeof(*alg);
 291         alg = (struct sadb_alg *)(sup + 1);
 292         printf("sadb_sup{\n");
 293         while (len--) {
 294                 printf("  { id=%d ivlen=%d min=%d max=%d }\n",
 295                         alg->sadb_alg_id, alg->sadb_alg_ivlen,
 296                         alg->sadb_alg_minbits, alg->sadb_alg_maxbits);
 297                 alg++;
 298         }
 299         printf("}\n");
 300
 301         return;
 302 }
 303
 304 static void
 305 kdebug_sadb_lifetime(struct sadb_ext *ext)
 306 {
 307         struct sadb_lifetime *lft = (struct sadb_lifetime *)ext;
 308
 309         /* sanity check */
 310         if (ext == NULL)
 311                 panic("%s: NULL pointer was passed.\n", __func__);
 312
 313         printf("sadb_lifetime{ alloc=%u, bytes=%u\n",
 314                 lft->sadb_lifetime_allocations,
 315                 (u_int32_t)lft->sadb_lifetime_bytes);
 316         printf("  addtime=%u, usetime=%u }\n",
 317                 (u_int32_t)lft->sadb_lifetime_addtime,
 318                 (u_int32_t)lft->sadb_lifetime_usetime);
 319
 320         return;
 321 }
 322
 323 static void
 324 kdebug_sadb_sa(struct sadb_ext *ext)
 325 {
 326         struct sadb_sa *sa = (struct sadb_sa *)ext;
 327
 328         /* sanity check */
 329         if (ext == NULL)
 330                 panic("%s: NULL pointer was passed.\n", __func__);
 331
 332         printf("sadb_sa{ spi=%u replay=%u state=%u\n",
 333             (u_int32_t)ntohl(sa->sadb_sa_spi), sa->sadb_sa_replay,
 334             sa->sadb_sa_state);
 335         printf("  auth=%u encrypt=%u flags=0x%08x }\n",
 336             sa->sadb_sa_auth, sa->sadb_sa_encrypt, sa->sadb_sa_flags);
 337
 338         return;
 339 }
 340
 341 static void
 342 kdebug_sadb_address(struct sadb_ext *ext)
 343 {
 344         struct sadb_address *addr = (struct sadb_address *)ext;
 345
 346         /* sanity check */
 347         if (ext == NULL)
 348                 panic("%s: NULL pointer was passed.\n", __func__);
 349
 350         printf("sadb_address{ proto=%u prefixlen=%u reserved=0x%02x%02x }\n",
 351             addr->sadb_address_proto, addr->sadb_address_prefixlen,
 352             ((u_char *)&addr->sadb_address_reserved)[0],
 353             ((u_char *)&addr->sadb_address_reserved)[1]);
 354
 355         kdebug_sockaddr((struct sockaddr *)((caddr_t)ext + sizeof(*addr)));
 356 }
 357
 358 static void
 359 kdebug_sadb_key(struct sadb_ext *ext)
 360 {
 361         struct sadb_key *key = (struct sadb_key *)ext;
 362
 363         /* sanity check */
 364         if (ext == NULL)
 365                 panic("%s: NULL pointer was passed.\n", __func__);
 366
 367         printf("sadb_key{ bits=%u reserved=%u\n",
 368             key->sadb_key_bits, key->sadb_key_reserved);
 369         printf("  key=");
 370
 371         /* sanity check 2 */
 372         if ((key->sadb_key_bits >> 3) >
 373                 (PFKEY_UNUNIT64(key->sadb_key_len) - sizeof(struct sadb_key))) {
 374                 printf("%s: key length mismatch, bit:%d len:%ld.\n",
 375                         __func__,
 376                         key->sadb_key_bits >> 3,
 377                         (long)PFKEY_UNUNIT64(key->sadb_key_len) - sizeof(struct sadb_key));
 378         }
 379
 380         ipsec_hexdump((caddr_t)key + sizeof(struct sadb_key),
 381                       key->sadb_key_bits >> 3);
 382         printf(" }\n");
 383         return;
 384 }
 385
 386 static void
 387 kdebug_sadb_x_sa2(struct sadb_ext *ext)
 388 {
 389         struct sadb_x_sa2 *sa2 = (struct sadb_x_sa2 *)ext;
 390
 391         /* sanity check */
 392         if (ext == NULL)
 393                 panic("%s: NULL pointer was passed.\n", __func__);
 394
 395         printf("sadb_x_sa2{ mode=%u reqid=%u\n",
 396             sa2->sadb_x_sa2_mode, sa2->sadb_x_sa2_reqid);
 397         printf("  reserved1=%u reserved2=%u sequence=%u }\n",
 398             sa2->sadb_x_sa2_reserved1, sa2->sadb_x_sa2_reserved2,
 399             sa2->sadb_x_sa2_sequence);
 400
 401         return;
 402 }
 403
 404 static void
 405 kdebug_sadb_x_sa_replay(struct sadb_ext *ext)
 406 {
 407         struct sadb_x_sa_replay *replay;
 408
 409         /* sanity check */
 410         if (ext == NULL)
 411                 panic("%s: NULL pointer was passed.\n", __func__);
 412
 413         replay = (struct sadb_x_sa_replay *)ext;
 414         printf("sadb_x_sa_replay{ replay=%u }\n",
 415             replay->sadb_x_sa_replay_replay);
 416 }
 417
 418 static void
 419 kdebug_sadb_x_natt(struct sadb_ext *ext)
 420 {
 421         struct sadb_x_nat_t_type *type;
 422         struct sadb_x_nat_t_port *port;
 423
 424         /* sanity check */
 425         if (ext == NULL)
 426                 panic("%s: NULL pointer was passed.\n", __func__);
 427
 428         if (ext->sadb_ext_type == SADB_X_EXT_NAT_T_TYPE) {
 429                 type = (struct sadb_x_nat_t_type *)ext;
 430                 printf("sadb_x_nat_t_type{ type=%u }\n",
 431                     type->sadb_x_nat_t_type_type);
 432         } else {
 433                 port = (struct sadb_x_nat_t_port *)ext;
 434                 printf("sadb_x_nat_t_port{ port=%u }\n",
 435                     ntohs(port->sadb_x_nat_t_port_port));
 436         }
 437 }
 438
 439 void
 440 kdebug_sadb_x_policy(struct sadb_ext *ext)
 441 {
 442         struct sadb_x_policy *xpl = (struct sadb_x_policy *)ext;
 443         struct sockaddr *addr;
 444
 445         /* sanity check */
 446         if (ext == NULL)
 447                 panic("%s: NULL pointer was passed.\n", __func__);
 448
 449         printf("sadb_x_policy{ type=%u dir=%u id=%x scope=%u %s=%u }\n",
 450                 xpl->sadb_x_policy_type, xpl->sadb_x_policy_dir,
 451                 xpl->sadb_x_policy_id, xpl->sadb_x_policy_scope,
 452                 xpl->sadb_x_policy_scope == IPSEC_POLICYSCOPE_IFNET ?
 453                 "ifindex": "priority", xpl->sadb_x_policy_priority);
 454
 455         if (xpl->sadb_x_policy_type == IPSEC_POLICY_IPSEC) {
 456                 int tlen;
 457                 struct sadb_x_ipsecrequest *xisr;
 458
 459                 tlen = PFKEY_UNUNIT64(xpl->sadb_x_policy_len) - sizeof(*xpl);
 460                 xisr = (struct sadb_x_ipsecrequest *)(xpl + 1);
 461
 462                 while (tlen > 0) {
 463                         printf(" { len=%u proto=%u mode=%u level=%u reqid=%u\n",
 464                                 xisr->sadb_x_ipsecrequest_len,
 465                                 xisr->sadb_x_ipsecrequest_proto,
 466                                 xisr->sadb_x_ipsecrequest_mode,
 467                                 xisr->sadb_x_ipsecrequest_level,
 468                                 xisr->sadb_x_ipsecrequest_reqid);
 469
 470                         if (xisr->sadb_x_ipsecrequest_len > sizeof(*xisr)) {
 471                                 addr = (struct sockaddr *)(xisr + 1);
 472                                 kdebug_sockaddr(addr);
 473                                 addr = (struct sockaddr *)((caddr_t)addr
 474                                                         + addr->sa_len);
 475                                 kdebug_sockaddr(addr);
 476                         }
 477
 478                         printf(" }\n");
 479
 480                         /* prevent infinite loop */
 481                         if (xisr->sadb_x_ipsecrequest_len <= 0) {
 482                                 printf("%s: wrong policy struct.\n", __func__);
 483                                 return;
 484                         }
 485                         /* prevent overflow */
 486                         if (xisr->sadb_x_ipsecrequest_len > tlen) {
 487                                 printf("%s: invalid ipsec policy length "
 488                                         "(%u > %u)\n", __func__,
 489                                         xisr->sadb_x_ipsecrequest_len, tlen);
 490                                 return;
 491                         }
 492
 493                         tlen -= xisr->sadb_x_ipsecrequest_len;
 494
 495                         xisr = (struct sadb_x_ipsecrequest *)((caddr_t)xisr
 496                                         + xisr->sadb_x_ipsecrequest_len);
 497                 }
 498
 499                 if (tlen != 0)
 500                         panic("%s: wrong policy struct.\n", __func__);
 501         }
 502
 503         return;
 504 }
 505
 506 #ifdef _KERNEL
 507 /* %%%: about SPD and SAD */
 508 const char*
 509 kdebug_secpolicy_state(u_int state)
 510 {
 511
 512         switch (state) {
 513         case IPSEC_SPSTATE_DEAD:
 514                 return ("dead");
 515         case IPSEC_SPSTATE_LARVAL:
 516                 return ("larval");
 517         case IPSEC_SPSTATE_ALIVE:
 518                 return ("alive");
 519         case IPSEC_SPSTATE_PCB:
 520                 return ("pcb");
 521         case IPSEC_SPSTATE_IFNET:
 522                 return ("ifnet");
 523         }
 524         return ("unknown");
 525 }
 526
 527 const char*
 528 kdebug_secpolicy_policy(u_int policy)
 529 {
 530
 531         switch (policy) {
 532         case IPSEC_POLICY_DISCARD:
 533                 return ("discard");
 534         case IPSEC_POLICY_NONE:
 535                 return ("none");
 536         case IPSEC_POLICY_IPSEC:
 537                 return ("ipsec");
 538         case IPSEC_POLICY_ENTRUST:
 539                 return ("entrust");
 540         case IPSEC_POLICY_BYPASS:
 541                 return ("bypass");
 542         }
 543         return ("unknown");
 544 }
 545
 546 const char*
 547 kdebug_secpolicyindex_dir(u_int dir)
 548 {
 549
 550         switch (dir) {
 551         case IPSEC_DIR_ANY:
 552                 return ("any");
 553         case IPSEC_DIR_INBOUND:
 554                 return ("in");
 555         case IPSEC_DIR_OUTBOUND:
 556                 return ("out");
 557         }
 558         return ("unknown");
 559 }
 560
 561 const char*
 562 kdebug_ipsecrequest_level(u_int level)
 563 {
 564
 565         switch (level) {
 566         case IPSEC_LEVEL_DEFAULT:
 567                 return ("default");
 568         case IPSEC_LEVEL_USE:
 569                 return ("use");
 570         case IPSEC_LEVEL_REQUIRE:
 571                 return ("require");
 572         case IPSEC_LEVEL_UNIQUE:
 573                 return ("unique");
 574         }
 575         return ("unknown");
 576 }
 577
 578 const char*
 579 kdebug_secasindex_mode(u_int mode)
 580 {
 581
 582         switch (mode) {
 583         case IPSEC_MODE_ANY:
 584                 return ("any");
 585         case IPSEC_MODE_TRANSPORT:
 586                 return ("transport");
 587         case IPSEC_MODE_TUNNEL:
 588                 return ("tunnel");
 589         case IPSEC_MODE_TCPMD5:
 590                 return ("tcp-md5");
 591         }
 592         return ("unknown");
 593 }
 594
 595 const char*
 596 kdebug_secasv_state(u_int state)
 597 {
 598
 599         switch (state) {
 600         case SADB_SASTATE_LARVAL:
 601                 return ("larval");
 602         case SADB_SASTATE_MATURE:
 603                 return ("mature");
 604         case SADB_SASTATE_DYING:
 605                 return ("dying");
 606         case SADB_SASTATE_DEAD:
 607                 return ("dead");
 608         }
 609         return ("unknown");
 610 }
 611
 612 static char*
 613 kdebug_port2str(const struct sockaddr *sa, char *buf, size_t len)
 614 {
 615         uint16_t port;
 616
 617         IPSEC_ASSERT(sa != NULL, ("null sa"));
 618         switch (sa->sa_family) {
 619 #ifdef INET
 620         case AF_INET:
 621                 port = ntohs(((const struct sockaddr_in *)sa)->sin_port);
 622                 break;
 623 #endif
 624 #ifdef INET6
 625         case AF_INET6:
 626                 port = ntohs(((const struct sockaddr_in6 *)sa)->sin6_port);
 627                 break;
 628 #endif
 629         default:
 630                 port = 0;
 631         }
 632         if (port == 0)
 633                 return ("*");
 634         snprintf(buf, len, "%u", port);
 635         return (buf);
 636 }
 637
 638 void
 639 kdebug_secpolicy(struct secpolicy *sp)
 640 {
 641         u_int idx;
 642
 643         IPSEC_ASSERT(sp != NULL, ("null sp"));
 644         printf("SP { refcnt=%u id=%u priority=%u state=%s policy=%s\n",
 645             sp->refcnt, sp->id, sp->priority,
 646             kdebug_secpolicy_state(sp->state),
 647             kdebug_secpolicy_policy(sp->policy));
 648         kdebug_secpolicyindex(&sp->spidx, "  ");
 649         for (idx = 0; idx < sp->tcount; idx++) {
 650                 printf("  req[%u]{ level=%s ", idx,
 651                     kdebug_ipsecrequest_level(sp->req[idx]->level));
 652                 kdebug_secasindex(&sp->req[idx]->saidx, NULL);
 653                 printf("  }\n");
 654         }
 655         printf("}\n");
 656 }
 657
 658 void
 659 kdebug_secpolicyindex(struct secpolicyindex *spidx, const char *indent)
 660 {
 661         char buf[IPSEC_ADDRSTRLEN];
 662
 663         IPSEC_ASSERT(spidx != NULL, ("null spidx"));
 664         if (indent != NULL)
 665                 printf("%s", indent);
 666         printf("spidx { dir=%s ul_proto=",
 667             kdebug_secpolicyindex_dir(spidx->dir));
 668         if (spidx->ul_proto == IPSEC_ULPROTO_ANY)
 669                 printf("* ");
 670         else
 671                 printf("%u ", spidx->ul_proto);
 672         printf("%s/%u -> ", ipsec_address(&spidx->src, buf, sizeof(buf)),
 673             spidx->prefs);
 674         printf("%s/%u }\n", ipsec_address(&spidx->dst, buf, sizeof(buf)),
 675             spidx->prefd);
 676 }
 677
 678 void
 679 kdebug_secasindex(const struct secasindex *saidx, const char *indent)
 680 {
 681         char buf[IPSEC_ADDRSTRLEN], port[6];
 682
 683         IPSEC_ASSERT(saidx != NULL, ("null saidx"));
 684         if (indent != NULL)
 685                 printf("%s", indent);
 686         printf("saidx { mode=%s proto=%u reqid=%u ",
 687             kdebug_secasindex_mode(saidx->mode), saidx->proto, saidx->reqid);
 688         printf("%s:%s -> ", ipsec_address(&saidx->src, buf, sizeof(buf)),
 689             kdebug_port2str(&saidx->src.sa, port, sizeof(port)));
 690         printf("%s:%s }\n", ipsec_address(&saidx->dst, buf, sizeof(buf)),
 691             kdebug_port2str(&saidx->dst.sa, port, sizeof(port)));
 692 }
 693
 694 static void
 695 kdebug_sec_lifetime(struct seclifetime *lft, const char *indent)
 696 {
 697
 698         IPSEC_ASSERT(lft != NULL, ("null lft"));
 699         if (indent != NULL)
 700                 printf("%s", indent);
 701         printf("lifetime { alloc=%u, bytes=%ju addtime=%ju usetime=%ju }\n",
 702             lft->allocations, (uintmax_t)lft->bytes, (uintmax_t)lft->addtime,
 703             (uintmax_t)lft->usetime);
 704 }
 705
 706 void
 707 kdebug_secash(struct secashead *sah, const char *indent)
 708 {
 709
 710         IPSEC_ASSERT(sah != NULL, ("null sah"));
 711         if (indent != NULL)
 712                 printf("%s", indent);
 713         printf("SAH { refcnt=%u state=%s\n", sah->refcnt,
 714             kdebug_secasv_state(sah->state));
 715         if (indent != NULL)
 716                 printf("%s", indent);
 717         kdebug_secasindex(&sah->saidx, indent);
 718         if (indent != NULL)
 719                 printf("%s", indent);
 720         printf("}\n");
 721 }
 722
 723 #ifdef IPSEC_DEBUG
 724 static void
 725 kdebug_secreplay(struct secreplay *rpl)
 726 {
 727         int len, l;
 728
 729         IPSEC_ASSERT(rpl != NULL, ("null rpl"));
 730         printf(" secreplay{ count=%u bitmap_size=%u wsize=%u seq=%u lastseq=%u",
 731             rpl->count, rpl->bitmap_size, rpl->wsize, rpl->seq, rpl->lastseq);
 732
 733         if (rpl->bitmap == NULL) {
 734                 printf("  }\n");
 735                 return;
 736         }
 737
 738         printf("\n    bitmap { ");
 739         for (len = 0; len < rpl->bitmap_size*4; len++) {
 740                 for (l = 7; l >= 0; l--)
 741                         printf("%u", (((rpl->bitmap)[len] >> l) & 1) ? 1 : 0);
 742         }
 743         printf("    }\n");
 744 }
 745 #endif /* IPSEC_DEBUG */
 746
 747 static void
 748 kdebug_secnatt(struct secnatt *natt)
 749 {
 750         char buf[IPSEC_ADDRSTRLEN];
 751
 752         IPSEC_ASSERT(natt != NULL, ("null natt"));
 753         printf("  natt{ sport=%u dport=%u ", ntohs(natt->sport),
 754             ntohs(natt->dport));
 755         if (natt->flags & IPSEC_NATT_F_OAI)
 756                 printf("oai=%s ", ipsec_address(&natt->oai, buf, sizeof(buf)));
 757         if (natt->flags & IPSEC_NATT_F_OAR)
 758                 printf("oar=%s ", ipsec_address(&natt->oar, buf, sizeof(buf)));
 759         printf("}\n");
 760 }
 761
 762 void
 763 kdebug_secasv(struct secasvar *sav)
 764 {
 765         struct seclifetime lft_c;
 766
 767         IPSEC_ASSERT(sav != NULL, ("null sav"));
 768
 769         printf("SA { refcnt=%u spi=%u seq=%u pid=%u flags=0x%x state=%s\n",
 770             sav->refcnt, ntohl(sav->spi), sav->seq, (uint32_t)sav->pid,
 771             sav->flags, kdebug_secasv_state(sav->state));
 772         kdebug_secash(sav->sah, "  ");
 773
 774         lft_c.addtime = sav->created;
 775         lft_c.allocations = (uint32_t)counter_u64_fetch(
 776             sav->lft_c_allocations);
 777         lft_c.bytes = counter_u64_fetch(sav->lft_c_bytes);
 778         lft_c.usetime = sav->firstused;
 779         kdebug_sec_lifetime(&lft_c, "  c_");
 780         if (sav->lft_h != NULL)
 781                 kdebug_sec_lifetime(sav->lft_h, "  h_");
 782         if (sav->lft_s != NULL)
 783                 kdebug_sec_lifetime(sav->lft_s, "  s_");
 784
 785         if (sav->tdb_authalgxform != NULL)
 786                 printf("  alg_auth=%s\n", sav->tdb_authalgxform->name);
 787         if (sav->key_auth != NULL)
 788                 KEYDBG(DUMP,
 789                     kdebug_sadb_key((struct sadb_ext *)sav->key_auth));
 790         if (sav->tdb_encalgxform != NULL)
 791                 printf("  alg_enc=%s\n", sav->tdb_encalgxform->name);
 792         if (sav->key_enc != NULL)
 793                 KEYDBG(DUMP,
 794                     kdebug_sadb_key((struct sadb_ext *)sav->key_enc));
 795         if (sav->natt != NULL)
 796                 kdebug_secnatt(sav->natt);
 797         if (sav->replay != NULL) {
 798                 KEYDBG(DUMP,
 799                     SECASVAR_LOCK(sav);
 800                     kdebug_secreplay(sav->replay);
 801                     SECASVAR_UNLOCK(sav));
 802         }
 803         printf("}\n");
 804 }
 805
 806 void
 807 kdebug_mbufhdr(const struct mbuf *m)
 808 {
 809         /* sanity check */
 810         if (m == NULL)
 811                 return;
 812
 813         printf("mbuf(%p){ m_next:%p m_nextpkt:%p m_data:%p "
 814                "m_len:%d m_type:0x%02x m_flags:0x%02x }\n",
 815                 m, m->m_next, m->m_nextpkt, m->m_data,
 816                 m->m_len, m->m_type, m->m_flags);
 817
 818         if (m->m_flags & M_PKTHDR) {
 819                 printf("  m_pkthdr{ len:%d rcvif:%p }\n",
 820                     m->m_pkthdr.len, m->m_pkthdr.rcvif);
 821         }
 822
 823         if (m->m_flags & M_EXT) {
 824                 printf("  m_ext{ ext_buf:%p ext_free:%p "
 825                        "ext_size:%u ext_cnt:%p }\n",
 826                         m->m_ext.ext_buf, m->m_ext.ext_free,
 827                         m->m_ext.ext_size, m->m_ext.ext_cnt);
 828         }
 829
 830         return;
 831 }
 832
 833 void
 834 kdebug_mbuf(const struct mbuf *m0)
 835 {
 836         const struct mbuf *m = m0;
 837         int i, j;
 838
 839         for (j = 0; m; m = m->m_next) {
 840                 kdebug_mbufhdr(m);
 841                 printf("  m_data:\n");
 842                 for (i = 0; i < m->m_len; i++) {
 843                         if (i && i % 32 == 0)
 844                                 printf("\n");
 845                         if (i % 4 == 0)
 846                                 printf(" ");
 847                         printf("%02x", mtod(m, const u_char *)[i]);
 848                         j++;
 849                 }
 850                 printf("\n");
 851         }
 852
 853         return;
 854 }
 855
 856 /* Return a printable string for the address. */
 857 char *
 858 ipsec_address(const union sockaddr_union* sa, char *buf, socklen_t size)
 859 {
 860
 861         switch (sa->sa.sa_family) {
 862 #ifdef INET
 863         case AF_INET:
 864                 return (inet_ntop(AF_INET, &sa->sin.sin_addr, buf, size));
 865 #endif /* INET */
 866 #ifdef INET6
 867         case AF_INET6:
 868                 if (IN6_IS_SCOPE_LINKLOCAL(&sa->sin6.sin6_addr)) {
 869                         snprintf(buf, size, "%s%%%u", inet_ntop(AF_INET6,
 870                             &sa->sin6.sin6_addr, buf, size),
 871                             sa->sin6.sin6_scope_id);
 872                         return (buf);
 873                 } else
 874                         return (inet_ntop(AF_INET6, &sa->sin6.sin6_addr,
 875                             buf, size));
 876 #endif /* INET6 */
 877         case 0:
 878                 return ("*");
 879         default:
 880                 return ("(unknown address family)");
 881         }
 882 }
 883
 884 char *
 885 ipsec_sa2str(struct secasvar *sav, char *buf, size_t size)
 886 {
 887         char sbuf[IPSEC_ADDRSTRLEN], dbuf[IPSEC_ADDRSTRLEN];
 888
 889         snprintf(buf, size, "SA(SPI=%08lx src=%s dst=%s)",
 890             (u_long)ntohl(sav->spi),
 891             ipsec_address(&sav->sah->saidx.src, sbuf, sizeof(sbuf)),
 892             ipsec_address(&sav->sah->saidx.dst, dbuf, sizeof(dbuf)));
 893         return (buf);
 894 }
 895
 896 #endif /* _KERNEL */
 897
 898 void
 899 kdebug_sockaddr(struct sockaddr *addr)
 900 {
 901         char buf[IPSEC_ADDRSTRLEN];
 902
 903         /* sanity check */
 904         if (addr == NULL)
 905                 panic("%s: NULL pointer was passed.\n", __func__);
 906
 907         switch (addr->sa_family) {
 908 #ifdef INET
 909         case AF_INET: {
 910                 struct sockaddr_in *sin;
 911
 912                 sin = (struct sockaddr_in *)addr;
 913                 inet_ntop(AF_INET, &sin->sin_addr, buf, sizeof(buf));
 914                 break;
 915         }
 916 #endif
 917 #ifdef INET6
 918         case AF_INET6: {
 919                 struct sockaddr_in6 *sin6;
 920
 921                 sin6 = (struct sockaddr_in6 *)addr;
 922                 if (IN6_IS_ADDR_LINKLOCAL(&sin6->sin6_addr)) {
 923                         snprintf(buf, sizeof(buf), "%s%%%u",
 924                             inet_ntop(AF_INET6, &sin6->sin6_addr, buf,
 925                             sizeof(buf)), sin6->sin6_scope_id);
 926                 } else
 927                         inet_ntop(AF_INET6, &sin6->sin6_addr, buf,
 928                             sizeof(buf));
 929                 break;
 930         }
 931 #endif
 932         default:
 933                 sprintf(buf, "unknown");
 934         }
 935         printf("sockaddr{ len=%u family=%u addr=%s }\n", addr->sa_len,
 936             addr->sa_family, buf);
 937 }
 938
 939 void
 940 ipsec_bindump(caddr_t buf, int len)
 941 {
 942         int i;
 943
 944         for (i = 0; i < len; i++)
 945                 printf("%c", (unsigned char)buf[i]);
 946
 947         return;
 948 }
 949
 950
 951 void
 952 ipsec_hexdump(caddr_t buf, int len)
 953 {
 954         int i;
 955
 956         for (i = 0; i < len; i++) {
 957                 if (i != 0 && i % 32 == 0) printf("\n");
 958                 if (i % 4 == 0) printf(" ");
 959                 printf("%02x", (unsigned char)buf[i]);
 960         }
 961 #if 0
 962         if (i % 32 != 0) printf("\n");
 963 #endif
 964
 965         return;
 966 }