Home | History | Annotate | Download | only in libipsec
      1 /*	$NetBSD: pfkey_dump.c,v 1.15.6.1 2007/08/01 11:52:18 vanhu Exp $	*/
      2 
      3 /*	$KAME: pfkey_dump.c,v 1.45 2003/09/08 10:14:56 itojun Exp $	*/
      4 
      5 /*
      6  * Copyright (C) 1995, 1996, 1997, 1998, and 1999 WIDE Project.
      7  * All rights reserved.
      8  *
      9  * Redistribution and use in source and binary forms, with or without
     10  * modification, are permitted provided that the following conditions
     11  * are met:
     12  * 1. Redistributions of source code must retain the above copyright
     13  *    notice, this list of conditions and the following disclaimer.
     14  * 2. Redistributions in binary form must reproduce the above copyright
     15  *    notice, this list of conditions and the following disclaimer in the
     16  *    documentation and/or other materials provided with the distribution.
     17  * 3. Neither the name of the project nor the names of its contributors
     18  *    may be used to endorse or promote products derived from this software
     19  *    without specific prior written permission.
     20  *
     21  * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND
     22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE
     25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     31  * SUCH DAMAGE.
     32  */
     33 
     34 #ifdef HAVE_CONFIG_H
     35 #include "config.h"
     36 #endif
     37 
     38 #include <sys/types.h>
     39 #include <sys/param.h>
     40 #include <sys/socket.h>
     41 #include PATH_IPSEC_H
     42 #include <net/pfkeyv2.h>
     43 
     44 #include <netinet/in.h>
     45 #include <arpa/inet.h>
     46 
     47 #include <stdlib.h>
     48 #include <unistd.h>
     49 #include <stdio.h>
     50 #include <string.h>
     51 #include <time.h>
     52 #include <netdb.h>
     53 
     54 #include "ipsec_strerror.h"
     55 #include "libpfkey.h"
     56 
     57 /* cope with old kame headers - ugly */
     58 #ifndef SADB_X_AALG_MD5
     59 #define SADB_X_AALG_MD5		SADB_AALG_MD5
     60 #endif
     61 #ifndef SADB_X_AALG_SHA
     62 #define SADB_X_AALG_SHA		SADB_AALG_SHA
     63 #endif
     64 #ifndef SADB_X_AALG_NULL
     65 #define SADB_X_AALG_NULL	SADB_AALG_NULL
     66 #endif
     67 
     68 #ifndef SADB_X_EALG_BLOWFISHCBC
     69 #define SADB_X_EALG_BLOWFISHCBC	SADB_EALG_BLOWFISHCBC
     70 #endif
     71 #ifndef SADB_X_EALG_CAST128CBC
     72 #define SADB_X_EALG_CAST128CBC	SADB_EALG_CAST128CBC
     73 #endif
     74 #ifndef SADB_X_EALG_RC5CBC
     75 #ifdef SADB_EALG_RC5CBC
     76 #define SADB_X_EALG_RC5CBC	SADB_EALG_RC5CBC
     77 #endif
     78 #endif
     79 #if defined(SADB_X_EALG_AES) && ! defined(SADB_X_EALG_AESCBC)
     80 #define SADB_X_EALG_AESCBC  SADB_X_EALG_AES
     81 #endif
     82 
     83 #define GETMSGSTR(str, num) \
     84 do { \
     85 	/*CONSTCOND*/ \
     86 	if (sizeof((str)[0]) == 0 \
     87 	 || num >= sizeof(str)/sizeof((str)[0])) \
     88 		printf("%u ", (num)); \
     89 	else if (strlen((str)[(num)]) == 0) \
     90 		printf("%u ", (num)); \
     91 	else \
     92 		printf("%s ", (str)[(num)]); \
     93 } while (/*CONSTCOND*/0)
     94 
     95 #define GETMSGV2S(v2s, num) \
     96 do { \
     97 	struct val2str *p;  \
     98 	for (p = (v2s); p && p->str; p++) { \
     99 		if (p->val == (num)) \
    100 			break; \
    101 	} \
    102 	if (p && p->str) \
    103 		printf("%s ", p->str); \
    104 	else \
    105 		printf("%u ", (num)); \
    106 } while (/*CONSTCOND*/0)
    107 
    108 static char *str_ipaddr __P((struct sockaddr *));
    109 static char *str_ipport __P((struct sockaddr *));
    110 static char *str_prefport __P((u_int, u_int, u_int, u_int));
    111 static void str_upperspec __P((u_int, u_int, u_int));
    112 static char *str_time __P((time_t));
    113 static void str_lifetime_byte __P((struct sadb_lifetime *, char *));
    114 static void pfkey_sadump1(struct sadb_msg *, int);
    115 static void pfkey_spdump1(struct sadb_msg *, int);
    116 
    117 struct val2str {
    118 	int val;
    119 	const char *str;
    120 };
    121 
    122 /*
    123  * Must to be re-written about following strings.
    124  */
    125 static char *str_satype[] = {
    126 	"unspec",
    127 	"unknown",
    128 	"ah",
    129 	"esp",
    130 	"unknown",
    131 	"rsvp",
    132 	"ospfv2",
    133 	"ripv2",
    134 	"mip",
    135 	"ipcomp",
    136 	"policy",
    137 	"tcp",
    138 };
    139 
    140 static char *str_mode[] = {
    141 	"any",
    142 	"transport",
    143 	"tunnel",
    144 };
    145 
    146 static char *str_state[] = {
    147 	"larval",
    148 	"mature",
    149 	"dying",
    150 	"dead",
    151 };
    152 
    153 static struct val2str str_alg_auth[] = {
    154 	{ SADB_AALG_NONE, "none", },
    155 	{ SADB_AALG_MD5HMAC, "hmac-md5", },
    156 	{ SADB_AALG_SHA1HMAC, "hmac-sha1", },
    157 	{ SADB_X_AALG_MD5, "md5", },
    158 	{ SADB_X_AALG_SHA, "sha", },
    159 	{ SADB_X_AALG_NULL, "null", },
    160 #ifdef SADB_X_AALG_TCP_MD5
    161 	{ SADB_X_AALG_TCP_MD5, "tcp-md5", },
    162 #endif
    163 #ifdef SADB_X_AALG_SHA2_256
    164 	{ SADB_X_AALG_SHA2_256, "hmac-sha256", },
    165 #endif
    166 #ifdef SADB_X_AALG_SHA2_384
    167 	{ SADB_X_AALG_SHA2_384, "hmac-sha384", },
    168 #endif
    169 #ifdef SADB_X_AALG_SHA2_512
    170 	{ SADB_X_AALG_SHA2_512, "hmac-sha512", },
    171 #endif
    172 #ifdef SADB_X_AALG_RIPEMD160HMAC
    173 	{ SADB_X_AALG_RIPEMD160HMAC, "hmac-ripemd160", },
    174 #endif
    175 #ifdef SADB_X_AALG_AES_XCBC_MAC
    176 	{ SADB_X_AALG_AES_XCBC_MAC, "aes-xcbc-mac", },
    177 #endif
    178 	{ -1, NULL, },
    179 };
    180 
    181 static struct val2str str_alg_enc[] = {
    182 	{ SADB_EALG_NONE, "none", },
    183 	{ SADB_EALG_DESCBC, "des-cbc", },
    184 	{ SADB_EALG_3DESCBC, "3des-cbc", },
    185 	{ SADB_EALG_NULL, "null", },
    186 #ifdef SADB_X_EALG_RC5CBC
    187 	{ SADB_X_EALG_RC5CBC, "rc5-cbc", },
    188 #endif
    189 	{ SADB_X_EALG_CAST128CBC, "cast128-cbc", },
    190 	{ SADB_X_EALG_BLOWFISHCBC, "blowfish-cbc", },
    191 #ifdef SADB_X_EALG_AESCBC
    192 	{ SADB_X_EALG_AESCBC, "aes-cbc", },
    193 #endif
    194 #ifdef SADB_X_EALG_TWOFISHCBC
    195 	{ SADB_X_EALG_TWOFISHCBC, "twofish-cbc", },
    196 #endif
    197 #ifdef SADB_X_EALG_AESCTR
    198 	{ SADB_X_EALG_AESCTR, "aes-ctr", },
    199 #endif
    200 #ifdef SADB_X_EALG_CAMELLIACBC
    201 	{ SADB_X_EALG_CAMELLIACBC, "camellia-cbc", },
    202 #endif
    203 	{ -1, NULL, },
    204 };
    205 
    206 static struct val2str str_alg_comp[] = {
    207 	{ SADB_X_CALG_NONE, "none", },
    208 	{ SADB_X_CALG_OUI, "oui", },
    209 	{ SADB_X_CALG_DEFLATE, "deflate", },
    210 	{ SADB_X_CALG_LZS, "lzs", },
    211 	{ -1, NULL, },
    212 };
    213 
    214 /*
    215  * dump SADB_MSG formated.  For debugging, you should use kdebug_sadb().
    216  */
    217 
    218 void
    219 pfkey_sadump(m)
    220 	struct sadb_msg *m;
    221 {
    222 	pfkey_sadump1(m, 0);
    223 }
    224 
    225 void
    226 pfkey_sadump_withports(m)
    227 	struct sadb_msg *m;
    228 {
    229 	pfkey_sadump1(m, 1);
    230 }
    231 
    232 void
    233 pfkey_sadump1(m, withports)
    234 	struct sadb_msg *m;
    235 	int withports;
    236 {
    237 	caddr_t mhp[SADB_EXT_MAX + 1];
    238 	struct sadb_sa *m_sa;
    239 	struct sadb_x_sa2 *m_sa2;
    240 	struct sadb_lifetime *m_lftc, *m_lfth, *m_lfts;
    241 	struct sadb_address *m_saddr, *m_daddr;
    242 #ifdef notdef
    243 	struct sadb_address *m_paddr;
    244 #endif
    245 	struct sadb_key *m_auth, *m_enc;
    246 #ifdef notdef
    247 	struct sadb_ident *m_sid, *m_did;
    248 	struct sadb_sens *m_sens;
    249 #endif
    250 #ifdef SADB_X_EXT_SEC_CTX
    251 	struct sadb_x_sec_ctx *m_sec_ctx;
    252 #endif
    253 #ifdef SADB_X_EXT_NAT_T_TYPE
    254 	struct sadb_x_nat_t_type *natt_type;
    255 	struct sadb_x_nat_t_port *natt_sport, *natt_dport;
    256 	struct sadb_address *natt_oa;
    257 
    258 	int use_natt = 0;
    259 #endif
    260 	struct sockaddr *sa;
    261 
    262 	/* check pfkey message. */
    263 	if (pfkey_align(m, mhp)) {
    264 		printf("%s\n", ipsec_strerror());
    265 		return;
    266 	}
    267 	if (pfkey_check(mhp)) {
    268 		printf("%s\n", ipsec_strerror());
    269 		return;
    270 	}
    271 
    272 	m_sa = (void *)mhp[SADB_EXT_SA];
    273 	m_sa2 = (void *)mhp[SADB_X_EXT_SA2];
    274 	m_lftc = (void *)mhp[SADB_EXT_LIFETIME_CURRENT];
    275 	m_lfth = (void *)mhp[SADB_EXT_LIFETIME_HARD];
    276 	m_lfts = (void *)mhp[SADB_EXT_LIFETIME_SOFT];
    277 	m_saddr = (void *)mhp[SADB_EXT_ADDRESS_SRC];
    278 	m_daddr = (void *)mhp[SADB_EXT_ADDRESS_DST];
    279 #ifdef notdef
    280 	m_paddr = (void *)mhp[SADB_EXT_ADDRESS_PROXY];
    281 #endif
    282 	m_auth = (void *)mhp[SADB_EXT_KEY_AUTH];
    283 	m_enc = (void *)mhp[SADB_EXT_KEY_ENCRYPT];
    284 #ifdef notdef
    285 	m_sid = (void *)mhp[SADB_EXT_IDENTITY_SRC];
    286 	m_did = (void *)mhp[SADB_EXT_IDENTITY_DST];
    287 	m_sens = (void *)mhp[SADB_EXT_SENSITIVITY];
    288 #endif
    289 #ifdef SADB_X_EXT_SEC_CTX
    290 	m_sec_ctx = (struct sadb_x_sec_ctx *)mhp[SADB_X_EXT_SEC_CTX];
    291 #endif
    292 #ifdef SADB_X_EXT_NAT_T_TYPE
    293 	natt_type = (void *)mhp[SADB_X_EXT_NAT_T_TYPE];
    294 	natt_sport = (void *)mhp[SADB_X_EXT_NAT_T_SPORT];
    295 	natt_dport = (void *)mhp[SADB_X_EXT_NAT_T_DPORT];
    296 	natt_oa = (void *)mhp[SADB_X_EXT_NAT_T_OA];
    297 
    298 	if (natt_type && natt_type->sadb_x_nat_t_type_type)
    299 		use_natt = 1;
    300 #endif
    301 	/* source address */
    302 	if (m_saddr == NULL) {
    303 		printf("no ADDRESS_SRC extension.\n");
    304 		return;
    305 	}
    306 	sa = (void *)(m_saddr + 1);
    307 	if (withports)
    308 		printf("%s[%s]", str_ipaddr(sa), str_ipport(sa));
    309 	else
    310 		printf("%s", str_ipaddr(sa));
    311 #ifdef SADB_X_EXT_NAT_T_TYPE
    312 	if (use_natt && natt_sport)
    313 		printf("[%u]", ntohs(natt_sport->sadb_x_nat_t_port_port));
    314 #endif
    315 	printf(" ");
    316 
    317 	/* destination address */
    318 	if (m_daddr == NULL) {
    319 		printf(" no ADDRESS_DST extension.\n");
    320 		return;
    321 	}
    322 	sa = (void *)(m_daddr + 1);
    323 	if (withports)
    324 		printf("%s[%s]", str_ipaddr(sa), str_ipport(sa));
    325 	else
    326 		printf("%s", str_ipaddr(sa));
    327 #ifdef SADB_X_EXT_NAT_T_TYPE
    328 	if (use_natt && natt_dport)
    329 		printf("[%u]", ntohs(natt_dport->sadb_x_nat_t_port_port));
    330 #endif
    331 	printf(" ");
    332 
    333 	/* SA type */
    334 	if (m_sa == NULL) {
    335 		printf("no SA extension.\n");
    336 		return;
    337 	}
    338 	if (m_sa2 == NULL) {
    339 		printf("no SA2 extension.\n");
    340 		return;
    341 	}
    342 	printf("\n\t");
    343 
    344 #ifdef SADB_X_EXT_NAT_T_TYPE
    345 	if (use_natt && m->sadb_msg_satype == SADB_SATYPE_ESP)
    346 		printf("esp-udp ");
    347 	else if (use_natt)
    348 		printf("natt+");
    349 
    350 	if (!use_natt || m->sadb_msg_satype != SADB_SATYPE_ESP)
    351 #endif
    352 	GETMSGSTR(str_satype, m->sadb_msg_satype);
    353 
    354 	printf("mode=");
    355 	GETMSGSTR(str_mode, m_sa2->sadb_x_sa2_mode);
    356 
    357 	printf("spi=%u(0x%08x) reqid=%u(0x%08x)\n",
    358 		(u_int32_t)ntohl(m_sa->sadb_sa_spi),
    359 		(u_int32_t)ntohl(m_sa->sadb_sa_spi),
    360 		(u_int32_t)m_sa2->sadb_x_sa2_reqid,
    361 		(u_int32_t)m_sa2->sadb_x_sa2_reqid);
    362 
    363 #ifdef SADB_X_EXT_NAT_T_TYPE
    364 	/* other NAT-T information */
    365 	if (use_natt && natt_oa)
    366 		printf("\tNAT OA=%s\n",
    367 		       str_ipaddr((void *)(natt_oa + 1)));
    368 #endif
    369 
    370 	/* encryption key */
    371 	if (m->sadb_msg_satype == SADB_X_SATYPE_IPCOMP) {
    372 		printf("\tC: ");
    373 		GETMSGV2S(str_alg_comp, m_sa->sadb_sa_encrypt);
    374 	} else if (m->sadb_msg_satype == SADB_SATYPE_ESP) {
    375 		if (m_enc != NULL) {
    376 			printf("\tE: ");
    377 			GETMSGV2S(str_alg_enc, m_sa->sadb_sa_encrypt);
    378 			ipsec_hexdump((caddr_t)(void *)m_enc + sizeof(*m_enc),
    379 				      m_enc->sadb_key_bits / 8);
    380 			printf("\n");
    381 		}
    382 	}
    383 
    384 	/* authentication key */
    385 	if (m_auth != NULL) {
    386 		printf("\tA: ");
    387 		GETMSGV2S(str_alg_auth, m_sa->sadb_sa_auth);
    388 		ipsec_hexdump((caddr_t)(void *)m_auth + sizeof(*m_auth),
    389 		              m_auth->sadb_key_bits / 8);
    390 		printf("\n");
    391 	}
    392 
    393 	/* replay windoe size & flags */
    394 	printf("\tseq=0x%08x replay=%u flags=0x%08x ",
    395 		m_sa2->sadb_x_sa2_sequence,
    396 		m_sa->sadb_sa_replay,
    397 		m_sa->sadb_sa_flags);
    398 
    399 	/* state */
    400 	printf("state=");
    401 	GETMSGSTR(str_state, m_sa->sadb_sa_state);
    402 	printf("\n");
    403 
    404 	/* lifetime */
    405 	if (m_lftc != NULL) {
    406 		time_t tmp_time = time(0);
    407 
    408 		printf("\tcreated: %s",
    409 			str_time((long)m_lftc->sadb_lifetime_addtime));
    410 		printf("\tcurrent: %s\n", str_time(tmp_time));
    411 		printf("\tdiff: %lu(s)",
    412 			(u_long)(m_lftc->sadb_lifetime_addtime == 0 ?
    413 			0 : (tmp_time - m_lftc->sadb_lifetime_addtime)));
    414 
    415 		printf("\thard: %lu(s)",
    416 			(u_long)(m_lfth == NULL ?
    417 			0 : m_lfth->sadb_lifetime_addtime));
    418 		printf("\tsoft: %lu(s)\n",
    419 			(u_long)(m_lfts == NULL ?
    420 			0 : m_lfts->sadb_lifetime_addtime));
    421 
    422 		printf("\tlast: %s",
    423 			str_time((long)m_lftc->sadb_lifetime_usetime));
    424 		printf("\thard: %lu(s)",
    425 			(u_long)(m_lfth == NULL ?
    426 			0 : m_lfth->sadb_lifetime_usetime));
    427 		printf("\tsoft: %lu(s)\n",
    428 			(u_long)(m_lfts == NULL ?
    429 			0 : m_lfts->sadb_lifetime_usetime));
    430 
    431 		str_lifetime_byte(m_lftc, "current");
    432 		str_lifetime_byte(m_lfth, "hard");
    433 		str_lifetime_byte(m_lfts, "soft");
    434 		printf("\n");
    435 
    436 		printf("\tallocated: %lu",
    437 			(unsigned long)m_lftc->sadb_lifetime_allocations);
    438 		printf("\thard: %lu",
    439 			(u_long)(m_lfth == NULL ?
    440 			0 : m_lfth->sadb_lifetime_allocations));
    441 		printf("\tsoft: %lu\n",
    442 			(u_long)(m_lfts == NULL ?
    443 			0 : m_lfts->sadb_lifetime_allocations));
    444 	}
    445 
    446 #ifdef SADB_X_EXT_SEC_CTX
    447 	if (m_sec_ctx != NULL) {
    448 		printf("\tsecurity context doi: %u\n",
    449 					m_sec_ctx->sadb_x_ctx_doi);
    450 		printf("\tsecurity context algorithm: %u\n",
    451 					m_sec_ctx->sadb_x_ctx_alg);
    452 		printf("\tsecurity context length: %u\n",
    453 					m_sec_ctx->sadb_x_ctx_len);
    454 		printf("\tsecurity context: %s\n",
    455 			(char *)m_sec_ctx + sizeof(struct sadb_x_sec_ctx));
    456 	}
    457 #endif
    458 
    459 	printf("\tsadb_seq=%lu pid=%lu ",
    460 		(u_long)m->sadb_msg_seq,
    461 		(u_long)m->sadb_msg_pid);
    462 
    463 	/* XXX DEBUG */
    464 	printf("refcnt=%u\n", m->sadb_msg_reserved);
    465 
    466 	return;
    467 }
    468 
    469 void
    470 pfkey_spdump(m)
    471 	struct sadb_msg *m;
    472 {
    473 	pfkey_spdump1(m, 0);
    474 }
    475 
    476 void
    477 pfkey_spdump_withports(m)
    478 	struct sadb_msg *m;
    479 {
    480 	pfkey_spdump1(m, 1);
    481 }
    482 
    483 static void
    484 pfkey_spdump1(m, withports)
    485 	struct sadb_msg *m;
    486 	int withports;
    487 {
    488 	char pbuf[NI_MAXSERV];
    489 	caddr_t mhp[SADB_EXT_MAX + 1];
    490 	struct sadb_address *m_saddr, *m_daddr;
    491 #ifdef SADB_X_EXT_TAG
    492 	struct sadb_x_tag *m_tag;
    493 #endif
    494 	struct sadb_x_policy *m_xpl;
    495 	struct sadb_lifetime *m_lftc = NULL, *m_lfth = NULL;
    496 #ifdef SADB_X_EXT_SEC_CTX
    497 	struct sadb_x_sec_ctx *m_sec_ctx;
    498 #endif
    499 	struct sockaddr *sa;
    500 	u_int16_t sport = 0, dport = 0;
    501 
    502 	/* check pfkey message. */
    503 	if (pfkey_align(m, mhp)) {
    504 		printf("%s\n", ipsec_strerror());
    505 		return;
    506 	}
    507 	if (pfkey_check(mhp)) {
    508 		printf("%s\n", ipsec_strerror());
    509 		return;
    510 	}
    511 
    512 	m_saddr = (void *)mhp[SADB_EXT_ADDRESS_SRC];
    513 	m_daddr = (void *)mhp[SADB_EXT_ADDRESS_DST];
    514 #ifdef SADB_X_EXT_TAG
    515 	m_tag = (void *)mhp[SADB_X_EXT_TAG];
    516 #endif
    517 	m_xpl = (void *)mhp[SADB_X_EXT_POLICY];
    518 	m_lftc = (void *)mhp[SADB_EXT_LIFETIME_CURRENT];
    519 	m_lfth = (void *)mhp[SADB_EXT_LIFETIME_HARD];
    520 
    521 #ifdef SADB_X_EXT_SEC_CTX
    522 	m_sec_ctx = (struct sadb_x_sec_ctx *)mhp[SADB_X_EXT_SEC_CTX];
    523 #endif
    524 #ifdef __linux__
    525 	/* *bsd indicates per-socket policies by omiting src and dst
    526 	 * extensions. Linux always includes them, but we can catch it
    527 	 * by checkin for policy id.
    528 	 */
    529 	if (m_xpl->sadb_x_policy_id % 8 >= 3) {
    530 		printf("(per-socket policy) ");
    531 	} else
    532 #endif
    533 	if (m_saddr && m_daddr) {
    534 		/* source address */
    535 		sa = (void *)(m_saddr + 1);
    536 		switch (sa->sa_family) {
    537 		case AF_INET:
    538 		case AF_INET6:
    539 			if (getnameinfo(sa, (socklen_t)sysdep_sa_len(sa), NULL,
    540 			    0, pbuf, sizeof(pbuf), NI_NUMERICSERV) != 0)
    541 				sport = 0;	/*XXX*/
    542 			else
    543 				sport = atoi(pbuf);
    544 			printf("%s%s ", str_ipaddr(sa),
    545 				str_prefport((u_int)sa->sa_family,
    546 				    (u_int)m_saddr->sadb_address_prefixlen,
    547 				    (u_int)sport,
    548 				    (u_int)m_saddr->sadb_address_proto));
    549 			break;
    550 		default:
    551 			printf("unknown-af ");
    552 			break;
    553 		}
    554 
    555 		/* destination address */
    556 		sa = (void *)(m_daddr + 1);
    557 		switch (sa->sa_family) {
    558 		case AF_INET:
    559 		case AF_INET6:
    560 			if (getnameinfo(sa, (socklen_t)sysdep_sa_len(sa), NULL,
    561 			    0, pbuf, sizeof(pbuf), NI_NUMERICSERV) != 0)
    562 				dport = 0;	/*XXX*/
    563 			else
    564 				dport = atoi(pbuf);
    565 			printf("%s%s ", str_ipaddr(sa),
    566 				str_prefport((u_int)sa->sa_family,
    567 				    (u_int)m_daddr->sadb_address_prefixlen,
    568 				    (u_int)dport,
    569 				    (u_int)m_saddr->sadb_address_proto));
    570 			break;
    571 		default:
    572 			printf("unknown-af ");
    573 			break;
    574 		}
    575 
    576 		/* upper layer protocol */
    577 		if (m_saddr->sadb_address_proto !=
    578 		    m_daddr->sadb_address_proto) {
    579 			printf("upper layer protocol mismatched.\n");
    580 			return;
    581 		}
    582 		str_upperspec((u_int)m_saddr->sadb_address_proto, (u_int)sport,
    583 		    (u_int)dport);
    584 	}
    585 #ifdef SADB_X_EXT_TAG
    586 	else if (m_tag)
    587 		printf("tagged \"%s\" ", m_tag->sadb_x_tag_name);
    588 #endif
    589 	else
    590 		printf("(no selector, probably per-socket policy) ");
    591 
    592 	/* policy */
    593     {
    594 	char *d_xpl;
    595 
    596 	if (m_xpl == NULL) {
    597 		printf("no X_POLICY extension.\n");
    598 		return;
    599 	}
    600 	if (withports)
    601 		d_xpl = ipsec_dump_policy_withports(m_xpl, "\n\t");
    602 	else
    603 		d_xpl = ipsec_dump_policy((ipsec_policy_t)m_xpl, "\n\t");
    604 
    605 	if (!d_xpl)
    606 		printf("\n\tPolicy:[%s]\n", ipsec_strerror());
    607 	else {
    608 		/* dump SPD */
    609 		printf("\n\t%s\n", d_xpl);
    610 		free(d_xpl);
    611 	}
    612     }
    613 
    614 	/* lifetime */
    615 	if (m_lftc) {
    616 		printf("\tcreated: %s  ",
    617 			str_time((long)m_lftc->sadb_lifetime_addtime));
    618 		printf("lastused: %s\n",
    619 			str_time((long)m_lftc->sadb_lifetime_usetime));
    620 	}
    621 	if (m_lfth) {
    622 		printf("\tlifetime: %lu(s) ",
    623 			(u_long)m_lfth->sadb_lifetime_addtime);
    624 		printf("validtime: %lu(s)\n",
    625 			(u_long)m_lfth->sadb_lifetime_usetime);
    626 	}
    627 
    628 #ifdef SADB_X_EXT_SEC_CTX
    629 	if (m_sec_ctx != NULL) {
    630 		printf("\tsecurity context doi: %u\n",
    631 					m_sec_ctx->sadb_x_ctx_doi);
    632 		printf("\tsecurity context algorithm: %u\n",
    633 					m_sec_ctx->sadb_x_ctx_alg);
    634 		printf("\tsecurity context length: %u\n",
    635 					m_sec_ctx->sadb_x_ctx_len);
    636 		printf("\tsecurity context: %s\n",
    637 			(char *)m_sec_ctx + sizeof(struct sadb_x_sec_ctx));
    638 	}
    639 #endif
    640 
    641 	printf("\tspid=%ld seq=%ld pid=%ld\n",
    642 		(u_long)m_xpl->sadb_x_policy_id,
    643 		(u_long)m->sadb_msg_seq,
    644 		(u_long)m->sadb_msg_pid);
    645 
    646 	/* XXX TEST */
    647 	printf("\trefcnt=%u\n", m->sadb_msg_reserved);
    648 
    649 	return;
    650 }
    651 
    652 /*
    653  * set "ipaddress" to buffer.
    654  */
    655 static char *
    656 str_ipaddr(sa)
    657 	struct sockaddr *sa;
    658 {
    659 	static char buf[NI_MAXHOST];
    660 	const int niflag = NI_NUMERICHOST;
    661 
    662 	if (sa == NULL)
    663 		return "";
    664 
    665 	if (getnameinfo(sa, (socklen_t)sysdep_sa_len(sa), buf, sizeof(buf),
    666 	    NULL, 0, niflag) == 0)
    667 		return buf;
    668 	return NULL;
    669 }
    670 
    671 /*
    672  * set "port" to buffer.
    673  */
    674 static char *
    675 str_ipport(sa)
    676 	struct sockaddr *sa;
    677 {
    678 	static char buf[NI_MAXHOST];
    679 	const int niflag = NI_NUMERICSERV;
    680 
    681 	if (sa == NULL)
    682 		return "";
    683 
    684 	if (getnameinfo(sa, (socklen_t)sysdep_sa_len(sa), NULL, 0,
    685 	    buf, sizeof(buf), niflag) == 0)
    686 		return buf;
    687 	return NULL;
    688 }
    689 
    690 
    691 /*
    692  * set "/prefix[port number]" to buffer.
    693  */
    694 static char *
    695 str_prefport(family, pref, port, ulp)
    696 	u_int family, pref, port, ulp;
    697 {
    698 	static char buf[128];
    699 	char prefbuf[128];
    700 	char portbuf[128];
    701 	int plen;
    702 
    703 	switch (family) {
    704 	case AF_INET:
    705 		plen = sizeof(struct in_addr) << 3;
    706 		break;
    707 	case AF_INET6:
    708 		plen = sizeof(struct in6_addr) << 3;
    709 		break;
    710 	default:
    711 		return "?";
    712 	}
    713 
    714 	if (pref == plen)
    715 		prefbuf[0] = '\0';
    716 	else
    717 		snprintf(prefbuf, sizeof(prefbuf), "/%u", pref);
    718 
    719 	if (ulp == IPPROTO_ICMPV6)
    720 		memset(portbuf, 0, sizeof(portbuf));
    721 	else {
    722 		if (port == IPSEC_PORT_ANY)
    723 			snprintf(portbuf, sizeof(portbuf), "[%s]", "any");
    724 		else
    725 			snprintf(portbuf, sizeof(portbuf), "[%u]", port);
    726 	}
    727 
    728 	snprintf(buf, sizeof(buf), "%s%s", prefbuf, portbuf);
    729 
    730 	return buf;
    731 }
    732 
    733 static void
    734 str_upperspec(ulp, p1, p2)
    735 	u_int ulp, p1, p2;
    736 {
    737 	if (ulp == IPSEC_ULPROTO_ANY)
    738 		printf("any");
    739 	else if (ulp == IPPROTO_ICMPV6) {
    740 		printf("icmp6");
    741 		if (!(p1 == IPSEC_PORT_ANY && p2 == IPSEC_PORT_ANY))
    742 			printf(" %u,%u", p1, p2);
    743 	} else {
    744 		struct protoent *ent;
    745 
    746 		switch (ulp) {
    747 		case IPPROTO_IPV4:
    748 			printf("ip4");
    749 			break;
    750 		default:
    751 			ent = getprotobynumber((int)ulp);
    752 			if (ent)
    753 				printf("%s", ent->p_name);
    754 			else
    755 				printf("%u", ulp);
    756 
    757 			endprotoent();
    758 			break;
    759 		}
    760 	}
    761 }
    762 
    763 /*
    764  * set "Mon Day Time Year" to buffer
    765  */
    766 static char *
    767 str_time(t)
    768 	time_t t;
    769 {
    770 	static char buf[128];
    771 
    772 	if (t == 0) {
    773 		int i = 0;
    774 		for (;i < 20;) buf[i++] = ' ';
    775 	} else {
    776 		char *t0;
    777 		t0 = ctime(&t);
    778 		memcpy(buf, t0 + 4, 20);
    779 	}
    780 
    781 	buf[20] = '\0';
    782 
    783 	return(buf);
    784 }
    785 
    786 static void
    787 str_lifetime_byte(x, str)
    788 	struct sadb_lifetime *x;
    789 	char *str;
    790 {
    791 	double y;
    792 	char *unit;
    793 	int w;
    794 
    795 	if (x == NULL) {
    796 		printf("\t%s: 0(bytes)", str);
    797 		return;
    798 	}
    799 
    800 #if 0
    801 	if ((x->sadb_lifetime_bytes) / 1024 / 1024) {
    802 		y = (x->sadb_lifetime_bytes) * 1.0 / 1024 / 1024;
    803 		unit = "M";
    804 		w = 1;
    805 	} else if ((x->sadb_lifetime_bytes) / 1024) {
    806 		y = (x->sadb_lifetime_bytes) * 1.0 / 1024;
    807 		unit = "K";
    808 		w = 1;
    809 	} else {
    810 		y = (x->sadb_lifetime_bytes) * 1.0;
    811 		unit = "";
    812 		w = 0;
    813 	}
    814 #else
    815 	y = (x->sadb_lifetime_bytes) * 1.0;
    816 	unit = "";
    817 	w = 0;
    818 #endif
    819 	printf("\t%s: %.*f(%sbytes)", str, w, y, unit);
    820 }
    821