File Manager

003 File Manager

Current Path: /usr/src/contrib/tcpdump

📁 ..
📄 CHANGES(57.87 KB)
📄 CONTRIBUTING(5.93 KB)
📄 CREDITS(14.57 KB)
📄 INSTALL.txt(5.25 KB)
📄 LICENSE(873 B)
📄 Makefile-devel-adds(614 B)
📄 Makefile.in(9.96 KB)
📄 PLATFORMS(567 B)
📄 README(9.04 KB)
📄 README.md(9.04 KB)
📄 VERSION(6 B)
📄 addrtoname.c(33.19 KB)
📄 addrtoname.h(2.78 KB)
📄 addrtostr.c(5.64 KB)
📄 addrtostr.h(2.03 KB)
📄 af.c(1.96 KB)
📄 af.h(1.81 KB)
📄 ah.h(2.34 KB)
📄 appletalk.h(4.06 KB)
📄 ascii_strcasecmp.c(3.5 KB)
📄 ascii_strcasecmp.h(1.49 KB)
📄 atime.awk(529 B)
📄 atm.h(1.14 KB)
📄 bpf_dump.c(1.9 KB)
📄 chdlc.h(1.31 KB)
📄 checksum.c(5.25 KB)
📄 config.guess(43.17 KB)
📄 config.h.in(11.19 KB)
📄 config.sub(34.93 KB)
📄 configure(255.88 KB)
📄 configure.ac(25.05 KB)
📄 configure.in(25.66 KB)
📄 cpack.c(3.92 KB)
📄 cpack.h(2.37 KB)
📄 ether.h(2.34 KB)
📄 ethertype.h(5.58 KB)
📄 extract.h(11.48 KB)
📄 funcattrs.h(4.42 KB)
📄 getopt_long.h(2.52 KB)
📄 gmpls.c(5.82 KB)
📄 gmpls.h(1.38 KB)
📄 gmt2local.c(2.01 KB)
📄 gmt2local.h(1.21 KB)
📄 in_cksum.c(6.44 KB)
📄 install-sh(5.45 KB)
📄 interface.h(2.29 KB)
📄 ip.h(5.75 KB)
📄 ip6.h(7.6 KB)
📄 ipproto.c(16.49 KB)
📄 ipproto.h(4.72 KB)
📄 l2vpn.c(3.36 KB)
📄 l2vpn.h(781 B)
📁 lbl
📄 llc.h(3.72 KB)
📄 machdep.c(2.58 KB)
📄 machdep.h(1.24 KB)
📄 makemib(6.41 KB)
📄 mib.h(26.33 KB)
📁 missing
📄 mkdep(2.43 KB)
📄 mpls.h(1.93 KB)
📄 nameser.h(10.8 KB)
📄 netdissect-stdinc.h(9.93 KB)
📄 netdissect.c(3.38 KB)
📄 netdissect.h(30.13 KB)
📄 nfs.h(13.37 KB)
📄 nfsfh.h(2.57 KB)
📄 nlpid.c(1.27 KB)
📄 nlpid.h(1.3 KB)
📄 openflow.h(2.14 KB)
📄 ospf.h(10.21 KB)
📄 oui.c(3.83 KB)
📄 oui.h(4.06 KB)
📄 packetdat.awk(1.39 KB)
📄 parsenfsfh.c(12.87 KB)
📄 pcap-missing.h(1.8 KB)
📄 pcap_dump_ftell.c(1.29 KB)
📄 ppp.h(3.07 KB)
📄 print-802_11.c(91.47 KB)
📄 print-802_15_4.c(5.5 KB)
📄 print-ah.c(2.02 KB)
📄 print-ahcp.c(10.73 KB)
📄 print-aodv.c(15.98 KB)
📄 print-aoe.c(11.13 KB)
📄 print-ap1394.c(4 KB)
📄 print-arcnet.c(8.83 KB)
📄 print-arp.c(14.57 KB)
📄 print-ascii.c(6.23 KB)
📄 print-atalk.c(16.76 KB)
📄 print-atm.c(16.81 KB)
📄 print-babel.c(23.79 KB)
📄 print-beep.c(1.71 KB)
📄 print-bfd.c(16.5 KB)
📄 print-bgp.c(99.77 KB)
📄 print-bootp.c(30.07 KB)
📄 print-bt.c(2.21 KB)
📄 print-calm-fast.c(1.81 KB)
📄 print-carp.c(2.43 KB)
📄 print-cdp.c(11.16 KB)
📄 print-cfm.c(24.19 KB)
📄 print-chdlc.c(5.88 KB)
📄 print-cip.c(2.5 KB)
📄 print-cnfp.c(13.69 KB)
📄 print-dccp.c(17.75 KB)
📄 print-decnet.c(37.63 KB)
📄 print-dhcp6.c(23.22 KB)
📄 print-domain.c(18.44 KB)
📄 print-dtp.c(3.03 KB)
📄 print-dvmrp.c(8.98 KB)
📄 print-eap.c(9.26 KB)
📄 print-egp.c(8.69 KB)
📄 print-eigrp.c(19.49 KB)
📄 print-enc.c(4.2 KB)
📄 print-esp.c(21.46 KB)
📄 print-ether.c(12.91 KB)
📄 print-fddi.c(10.51 KB)
📄 print-forces.c(45.01 KB)
📄 print-fr.c(31.99 KB)
📄 print-frag6.c(2.36 KB)
📄 print-ftp.c(973 B)
📄 print-geneve.c(6.13 KB)
📄 print-geonet.c(6.72 KB)
📄 print-gre.c(9.72 KB)
📄 print-hncp.c(26.39 KB)
📄 print-hsrp.c(4.57 KB)
📄 print-http.c(1.51 KB)
📄 print-icmp.c(22.7 KB)
📄 print-icmp6.c(59.81 KB)
📄 print-igmp.c(10.05 KB)
📄 print-igrp.c(4.64 KB)
📄 print-ip.c(17.04 KB)
📄 print-ip6.c(10.57 KB)
📄 print-ip6opts.c(5.53 KB)
📄 print-ipcomp.c(2.32 KB)
📄 print-ipfc.c(4.41 KB)
📄 print-ipnet.c(2.78 KB)
📄 print-ipx.c(6.42 KB)
📄 print-isakmp.c(81.72 KB)
📄 print-isoclns.c(107.61 KB)
📄 print-juniper.c(48.42 KB)
📄 print-krb.c(6.26 KB)
📄 print-l2tp.c(23.94 KB)
📄 print-lane.c(3.04 KB)
📄 print-ldp.c(24.35 KB)
📄 print-lisp.c(15.23 KB)
📄 print-llc.c(16.68 KB)
📄 print-lldp.c(57.26 KB)
📄 print-lmp.c(38.11 KB)
📄 print-loopback.c(3.63 KB)
📄 print-lspping.c(51.64 KB)
📄 print-lwapp.c(13.01 KB)
📄 print-lwres.c(14.08 KB)
📄 print-m3ua.c(10.92 KB)
📄 print-medsa.c(5.57 KB)
📄 print-mobile.c(3.28 KB)
📄 print-mobility.c(9.74 KB)
📄 print-mpcp.c(7.87 KB)
📄 print-mpls.c(5.31 KB)
📄 print-mptcp.c(13.68 KB)
📄 print-msdp.c(2.69 KB)
📄 print-msnlb.c(2.39 KB)
📄 print-nflog.c(4.4 KB)
📄 print-nfs.c(42.84 KB)
📄 print-nsh.c(5.39 KB)
📄 print-ntp.c(13.34 KB)
📄 print-null.c(4.01 KB)
📄 print-olsr.c(23.42 KB)
📄 print-openflow-1.0.c(76.63 KB)
📄 print-openflow.c(4.77 KB)
📄 print-ospf.c(39.49 KB)
📄 print-ospf6.c(29.86 KB)
📄 print-otv.c(2.1 KB)
📄 print-pflog.c(4.86 KB)
📄 print-pfsync.c(12.53 KB)
📄 print-pgm.c(22.17 KB)
📄 print-pim.c(32.59 KB)
📄 print-pktap.c(5.18 KB)
📄 print-ppi.c(2.68 KB)
📄 print-ppp.c(46.16 KB)
📄 print-pppoe.c(5.65 KB)
📄 print-pptp.c(25.9 KB)
📄 print-radius.c(35.1 KB)
📄 print-raw.c(1.52 KB)
📄 print-resp.c(16.5 KB)
📄 print-rip.c(9.19 KB)
📄 print-ripng.c(6 KB)
📄 print-rpki-rtr.c(10.83 KB)
📄 print-rrcp.c(4.56 KB)
📄 print-rsvp.c(78.61 KB)
📄 print-rt6.c(2.66 KB)
📄 print-rtsp.c(1.16 KB)
📄 print-rx.c(66.92 KB)
📄 print-sctp.c(23.13 KB)
📄 print-sflow.c(31.91 KB)
📄 print-sip.c(1.29 KB)
📄 print-sl.c(6.95 KB)
📄 print-sll.c(9.2 KB)
📄 print-slow.c(25.17 KB)
📄 print-smb.c(43.19 KB)
📄 print-smtp.c(983 B)
📄 print-snmp.c(43.17 KB)
📄 print-stp.c(17.18 KB)
📄 print-sunatm.c(3.27 KB)
📄 print-sunrpc.c(7.85 KB)
📄 print-symantec.c(3.78 KB)
📄 print-syslog.c(3.96 KB)
📄 print-tcp.c(35.84 KB)
📄 print-telnet.c(15.02 KB)
📄 print-tftp.c(5.2 KB)
📄 print-timed.c(4.74 KB)
📄 print-tipc.c(11.53 KB)
📄 print-token.c(7.96 KB)
📄 print-udld.c(5.47 KB)
📄 print-udp.c(21.28 KB)
📄 print-usb.c(4.18 KB)
📄 print-vjc.c(4.45 KB)
📄 print-vqp.c(6.8 KB)
📄 print-vrrp.c(6.37 KB)
📄 print-vtp.c(13.56 KB)
📄 print-vxlan-gpe.c(3.46 KB)
📄 print-vxlan.c(2.21 KB)
📄 print-wb.c(10.93 KB)
📄 print-zephyr.c(8.03 KB)
📄 print-zeromq.c(7.5 KB)
📄 print.c(11.54 KB)
📄 print.h(1.78 KB)
📄 rpc_auth.h(2.77 KB)
📄 rpc_msg.h(3.19 KB)
📄 rpl.h(4.88 KB)
📄 send-ack.awk(1.56 KB)
📄 setsignal.c(3.27 KB)
📄 setsignal.h(1.24 KB)
📄 signature.c(5.58 KB)
📄 signature.h(1.12 KB)
📄 slcompress.h(3.55 KB)
📄 smb.h(5.38 KB)
📄 smbutil.c(63.88 KB)
📄 stime.awk(567 B)
📄 strtoaddr.c(5.34 KB)
📄 strtoaddr.h(992 B)
📄 tcp.h(5.02 KB)
📄 tcpdump.1.in(60.82 KB)
📄 tcpdump.c(69.76 KB)
📄 timeval-operations.h(3.19 KB)
📄 udp.h(8.25 KB)
📄 util-print.c(23.75 KB)
📄 vfprintf.c(1.62 KB)

Editing: print-esp.c

/*	$NetBSD: print-ah.c,v 1.4 1996/05/20 00:41:16 fvdl Exp $	*/

/*
 * Copyright (c) 1988, 1989, 1990, 1991, 1992, 1993, 1994
 *	The Regents of the University of California.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that: (1) source code distributions
 * retain the above copyright notice and this paragraph in its entirety, (2)
 * distributions including binary code include the above copyright notice and
 * this paragraph in its entirety in the documentation or other materials
 * provided with the distribution, and (3) all advertising materials mentioning
 * features or use of this software display the following acknowledgement:
 * ``This product includes software developed by the University of California,
 * Lawrence Berkeley Laboratory and its contributors.'' Neither the name of
 * the University nor the names of its contributors may be used to endorse
 * or promote products derived from this software without specific prior
 * written permission.
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
 * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 */

/* \summary: IPSEC Encapsulating Security Payload (ESP) printer */

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include <netdissect-stdinc.h>

#include <string.h>
#include <stdlib.h>

/* Any code in this file that depends on HAVE_LIBCRYPTO depends on
 * HAVE_OPENSSL_EVP_H too. Undefining the former when the latter isn't defined
 * is the simplest way of handling the dependency.
 */
#ifdef HAVE_LIBCRYPTO
#ifdef HAVE_OPENSSL_EVP_H
#include <openssl/evp.h>
#else
#undef HAVE_LIBCRYPTO
#endif
#endif

#include "netdissect.h"
#include "strtoaddr.h"
#include "extract.h"

#include "ascii_strcasecmp.h"

#include "ip.h"
#include "ip6.h"

/*
 * Copyright (C) 1995, 1996, 1997, and 1998 WIDE Project.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. Neither the name of the project nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

/*
 * RFC1827/2406 Encapsulated Security Payload.
 */

struct newesp {
	uint32_t	esp_spi;	/* ESP */
	uint32_t	esp_seq;	/* Sequence number */
	/*variable size*/		/* (IV and) Payload data */
	/*variable size*/		/* padding */
	/*8bit*/			/* pad size */
	/*8bit*/			/* next header */
	/*8bit*/			/* next header */
	/*variable size, 32bit bound*/	/* Authentication data */
};

#ifdef HAVE_LIBCRYPTO
union inaddr_u {
	struct in_addr in4;
	struct in6_addr in6;
};
struct sa_list {
	struct sa_list	*next;
	u_int		daddr_version;
	union inaddr_u	daddr;
	uint32_t	spi;          /* if == 0, then IKEv2 */
	int             initiator;
	u_char          spii[8];      /* for IKEv2 */
	u_char          spir[8];
	const EVP_CIPHER *evp;
	int		ivlen;
	int		authlen;
	u_char          authsecret[256];
	int             authsecret_len;
	u_char		secret[256];  /* is that big enough for all secrets? */
	int		secretlen;
};

#ifndef HAVE_EVP_CIPHER_CTX_NEW
/*
 * Allocate an EVP_CIPHER_CTX.
 * Used if we have an older version of OpenSSL that doesn't provide
 * routines to allocate and free them.
 */
static EVP_CIPHER_CTX *
EVP_CIPHER_CTX_new(void)
{
	EVP_CIPHER_CTX *ctx;

ctx = malloc(sizeof(*ctx));
	if (ctx == NULL)
		return (NULL);
	memset(ctx, 0, sizeof(*ctx));
	return (ctx);
}

static void
EVP_CIPHER_CTX_free(EVP_CIPHER_CTX *ctx)
{
	EVP_CIPHER_CTX_cleanup(ctx);
	free(ctx);
}
#endif

#ifdef HAVE_EVP_CIPHERINIT_EX
/*
 * Initialize the cipher by calling EVP_CipherInit_ex(), because
 * calling EVP_CipherInit() will reset the cipher context, clearing
 * the cipher, so calling it twice, with the second call having a
 * null cipher, will clear the already-set cipher.  EVP_CipherInit_ex(),
 * however, won't reset the cipher context, so you can use it to specify
 * the IV oin a second call after a first call to EVP_CipherInit_ex()
 * to set the cipher and the key.
 *
 * XXX - is there some reason why we need to make two calls?
 */
static int
set_cipher_parameters(EVP_CIPHER_CTX *ctx, const EVP_CIPHER *cipher,
		      const unsigned char *key,
		      const unsigned char *iv, int enc)
{
	return EVP_CipherInit_ex(ctx, cipher, NULL, key, iv, enc);
}
#else
/*
 * Initialize the cipher by calling EVP_CipherInit(), because we don't
 * have EVP_CipherInit_ex(); we rely on it not trashing the context.
 */
static int
set_cipher_parameters(EVP_CIPHER_CTX *ctx, const EVP_CIPHER *cipher,
		      const unsigned char *key,
		      const unsigned char *iv, int enc)
{
	return EVP_CipherInit(ctx, cipher, key, iv, enc);
}
#endif

/*
 * this will adjust ndo_packetp and ndo_snapend to new buffer!
 */
USES_APPLE_DEPRECATED_API
int esp_print_decrypt_buffer_by_ikev2(netdissect_options *ndo,
				      int initiator,
				      u_char spii[8], u_char spir[8],
				      const u_char *buf, const u_char *end)
{
	struct sa_list *sa;
	const u_char *iv;
	unsigned int len;
	EVP_CIPHER_CTX *ctx;
	unsigned int block_size, buffer_size;
	u_char *input_buffer, *output_buffer;

/* initiator arg is any non-zero value */
	if(initiator) initiator=1;

/* see if we can find the SA, and if so, decode it */
	for (sa = ndo->ndo_sa_list_head; sa != NULL; sa = sa->next) {
		if (sa->spi == 0
		    && initiator == sa->initiator
		    && memcmp(spii, sa->spii, 8) == 0
		    && memcmp(spir, sa->spir, 8) == 0)
			break;
	}

if(sa == NULL) return 0;
	if(sa->evp == NULL) return 0;

/*
	 * remove authenticator, and see if we still have something to
	 * work with
	 */
	end = end - sa->authlen;
	iv  = buf;
	buf = buf + sa->ivlen;
	len = end-buf;

if(end <= buf) return 0;

ctx = EVP_CIPHER_CTX_new();
	if (ctx == NULL)
		return 0;
	if (set_cipher_parameters(ctx, sa->evp, sa->secret, NULL, 0) < 0)
		(*ndo->ndo_warning)(ndo, "espkey init failed");
	set_cipher_parameters(ctx, NULL, NULL, iv, 0);
	/*
	 * Allocate buffers for the encrypted and decrypted data.
	 * Both buffers' sizes must be a multiple of the cipher block
	 * size, and the output buffer must be separate from the input
	 * buffer.
	 */
	block_size = (unsigned int)EVP_CIPHER_CTX_block_size(ctx);
	buffer_size = len + (block_size - len % block_size);

/*
	 * Attempt to allocate the input buffer.
	 */
	input_buffer = (u_char *)malloc(buffer_size);
	if (input_buffer == NULL) {
		EVP_CIPHER_CTX_free(ctx);
		(*ndo->ndo_error)(ndo, "can't allocate memory for encrypted data buffer");
	}
	/*
	 * Copy the input data to the encrypted data buffer, and pad it
	 * with zeroes.
	 */
	memcpy(input_buffer, buf, len);
	memset(input_buffer + len, 0, buffer_size - len);

/*
	 * Attempt to allocate the output buffer.
	 */
	output_buffer = (u_char *)malloc(buffer_size);
	if (output_buffer == NULL) {
		free(input_buffer);
		EVP_CIPHER_CTX_free(ctx);
		(*ndo->ndo_error)(ndo, "can't allocate memory for decryption buffer");
	}
	EVP_Cipher(ctx, output_buffer, input_buffer, len);
	EVP_CIPHER_CTX_free(ctx);

/*
	 * XXX - of course this is wrong, because buf is a const buffer,
	 * but changing this would require a more complicated fix.
	 */
	memcpy(__DECONST(u_char *, buf), output_buffer, len);
	free(input_buffer);
	free(output_buffer);

ndo->ndo_packetp = buf;
	ndo->ndo_snapend = end;

return 1;
}
USES_APPLE_RST

static void esp_print_addsa(netdissect_options *ndo,
			    struct sa_list *sa, int sa_def)
{
	/* copy the "sa" */

struct sa_list *nsa;

nsa = (struct sa_list *)malloc(sizeof(struct sa_list));
	if (nsa == NULL)
		(*ndo->ndo_error)(ndo, "ran out of memory to allocate sa structure");

*nsa = *sa;

if (sa_def)
		ndo->ndo_sa_default = nsa;

nsa->next = ndo->ndo_sa_list_head;
	ndo->ndo_sa_list_head = nsa;
}

static u_int hexdigit(netdissect_options *ndo, char hex)
{
	if (hex >= '0' && hex <= '9')
		return (hex - '0');
	else if (hex >= 'A' && hex <= 'F')
		return (hex - 'A' + 10);
	else if (hex >= 'a' && hex <= 'f')
		return (hex - 'a' + 10);
	else {
		(*ndo->ndo_error)(ndo, "invalid hex digit %c in espsecret\n", hex);
	}
}

static u_int hex2byte(netdissect_options *ndo, char *hexstring)
{
	u_int byte;

byte = (hexdigit(ndo, hexstring[0]) << 4) + hexdigit(ndo, hexstring[1]);
	return byte;
}

/*
 * returns size of binary, 0 on failure.
 */
static
int espprint_decode_hex(netdissect_options *ndo,
			u_char *binbuf, unsigned int binbuf_len,
			char *hex)
{
	unsigned int len;
	int i;

len = strlen(hex) / 2;

if (len > binbuf_len) {
		(*ndo->ndo_warning)(ndo, "secret is too big: %d\n", len);
		return 0;
	}

i = 0;
	while (hex[0] != '\0' && hex[1]!='\0') {
		binbuf[i] = hex2byte(ndo, hex);
		hex += 2;
		i++;
	}

return i;
}

/*
 * decode the form:    SPINUM@IP <tab> ALGONAME:0xsecret
 */

USES_APPLE_DEPRECATED_API
static int
espprint_decode_encalgo(netdissect_options *ndo,
			char *decode, struct sa_list *sa)
{
	size_t i;
	const EVP_CIPHER *evp;
	int authlen = 0;
	char *colon, *p;

colon = strchr(decode, ':');
	if (colon == NULL) {
		(*ndo->ndo_warning)(ndo, "failed to decode espsecret: %s\n", decode);
		return 0;
	}
	*colon = '\0';

if (strlen(decode) > strlen("-hmac96") &&
	    !strcmp(decode + strlen(decode) - strlen("-hmac96"),
		    "-hmac96")) {
		p = strstr(decode, "-hmac96");
		*p = '\0';
		authlen = 12;
	}
	if (strlen(decode) > strlen("-cbc") &&
	    !strcmp(decode + strlen(decode) - strlen("-cbc"), "-cbc")) {
		p = strstr(decode, "-cbc");
		*p = '\0';
	}
	evp = EVP_get_cipherbyname(decode);

if (!evp) {
		(*ndo->ndo_warning)(ndo, "failed to find cipher algo %s\n", decode);
		sa->evp = NULL;
		sa->authlen = 0;
		sa->ivlen = 0;
		return 0;
	}

sa->evp = evp;
	sa->authlen = authlen;
	sa->ivlen = EVP_CIPHER_iv_length(evp);

colon++;
	if (colon[0] == '0' && colon[1] == 'x') {
		/* decode some hex! */

colon += 2;
		sa->secretlen = espprint_decode_hex(ndo, sa->secret, sizeof(sa->secret), colon);
		if(sa->secretlen == 0) return 0;
	} else {
		i = strlen(colon);

if (i < sizeof(sa->secret)) {
			memcpy(sa->secret, colon, i);
			sa->secretlen = i;
		} else {
			memcpy(sa->secret, colon, sizeof(sa->secret));
			sa->secretlen = sizeof(sa->secret);
		}
	}

return 1;
}
USES_APPLE_RST

/*
 * for the moment, ignore the auth algorithm, just hard code the authenticator
 * length. Need to research how openssl looks up HMAC stuff.
 */
static int
espprint_decode_authalgo(netdissect_options *ndo,
			 char *decode, struct sa_list *sa)
{
	char *colon;

colon = strchr(decode, ':');
	if (colon == NULL) {
		(*ndo->ndo_warning)(ndo, "failed to decode espsecret: %s\n", decode);
		return 0;
	}
	*colon = '\0';

if(ascii_strcasecmp(colon,"sha1") == 0 ||
	   ascii_strcasecmp(colon,"md5") == 0) {
		sa->authlen = 12;
	}
	return 1;
}

static void esp_print_decode_ikeline(netdissect_options *ndo, char *line,
				     const char *file, int lineno)
{
	/* it's an IKEv2 secret, store it instead */
	struct sa_list sa1;

char *init;
	char *icookie, *rcookie;
	int   ilen, rlen;
	char *authkey;
	char *enckey;

init = strsep(&line, " \t");
	icookie = strsep(&line, " \t");
	rcookie = strsep(&line, " \t");
	authkey = strsep(&line, " \t");
	enckey  = strsep(&line, " \t");

/* if any fields are missing */
	if(!init || !icookie || !rcookie || !authkey || !enckey) {
		(*ndo->ndo_warning)(ndo, "print_esp: failed to find all fields for ikev2 at %s:%u",
				    file, lineno);

return;
	}

ilen = strlen(icookie);
	rlen = strlen(rcookie);

if((init[0]!='I' && init[0]!='R')
	   || icookie[0]!='0' || icookie[1]!='x'
	   || rcookie[0]!='0' || rcookie[1]!='x'
	   || ilen!=18
	   || rlen!=18) {
		(*ndo->ndo_warning)(ndo, "print_esp: line %s:%u improperly formatted.",
				    file, lineno);

(*ndo->ndo_warning)(ndo, "init=%s icookie=%s(%u) rcookie=%s(%u)",
				    init, icookie, ilen, rcookie, rlen);

return;
	}

sa1.spi = 0;
	sa1.initiator = (init[0] == 'I');
	if(espprint_decode_hex(ndo, sa1.spii, sizeof(sa1.spii), icookie+2)!=8)
		return;

if(espprint_decode_hex(ndo, sa1.spir, sizeof(sa1.spir), rcookie+2)!=8)
		return;

if(!espprint_decode_encalgo(ndo, enckey, &sa1)) return;

if(!espprint_decode_authalgo(ndo, authkey, &sa1)) return;

esp_print_addsa(ndo, &sa1, FALSE);
}

/*
 *
 * special form: file /name
 * causes us to go read from this file instead.
 *
 */
static void esp_print_decode_onesecret(netdissect_options *ndo, char *line,
				       const char *file, int lineno)
{
	struct sa_list sa1;
	int sa_def;

char *spikey;
	char *decode;

spikey = strsep(&line, " \t");
	sa_def = 0;
	memset(&sa1, 0, sizeof(struct sa_list));

/* if there is only one token, then it is an algo:key token */
	if (line == NULL) {
		decode = spikey;
		spikey = NULL;
		/* sa1.daddr.version = 0; */
		/* memset(&sa1.daddr, 0, sizeof(sa1.daddr)); */
		/* sa1.spi = 0; */
		sa_def    = 1;
	} else
		decode = line;

if (spikey && ascii_strcasecmp(spikey, "file") == 0) {
		/* open file and read it */
		FILE *secretfile;
		char  fileline[1024];
		int   subfile_lineno=0;
		char  *nl;
		char *filename = line;

secretfile = fopen(filename, FOPEN_READ_TXT);
		if (secretfile == NULL) {
			(*ndo->ndo_error)(ndo, "print_esp: can't open %s: %s\n",
			    filename, strerror(errno));
		}

while (fgets(fileline, sizeof(fileline)-1, secretfile) != NULL) {
			subfile_lineno++;
			/* remove newline from the line */
			nl = strchr(fileline, '\n');
			if (nl)
				*nl = '\0';
			if (fileline[0] == '#') continue;
			if (fileline[0] == '\0') continue;

esp_print_decode_onesecret(ndo, fileline, filename, subfile_lineno);
		}
		fclose(secretfile);

return;
	}

if (spikey && ascii_strcasecmp(spikey, "ikev2") == 0) {
		esp_print_decode_ikeline(ndo, line, file, lineno);
		return;
	}

if (spikey) {

char *spistr, *foo;
		uint32_t spino;

spistr = strsep(&spikey, "@");
		if (spistr == NULL) {
			(*ndo->ndo_warning)(ndo, "print_esp: failed to find the @ token");
			return;
		}

spino = strtoul(spistr, &foo, 0);
		if (spistr == foo || !spikey) {
			(*ndo->ndo_warning)(ndo, "print_esp: failed to decode spi# %s\n", foo);
			return;
		}

sa1.spi = spino;

if (strtoaddr6(spikey, &sa1.daddr.in6) == 1) {
			sa1.daddr_version = 6;
		} else if (strtoaddr(spikey, &sa1.daddr.in4) == 1) {
			sa1.daddr_version = 4;
		} else {
			(*ndo->ndo_warning)(ndo, "print_esp: can not decode IP# %s\n", spikey);
			return;
		}
	}

if (decode) {
		/* skip any blank spaces */
		while (isspace((unsigned char)*decode))
			decode++;

if(!espprint_decode_encalgo(ndo, decode, &sa1)) {
			return;
		}
	}

esp_print_addsa(ndo, &sa1, sa_def);
}

USES_APPLE_DEPRECATED_API
static void esp_init(netdissect_options *ndo _U_)
{
	/*
	 * 0.9.6 doesn't appear to define OPENSSL_API_COMPAT, so
	 * we check whether it's undefined or it's less than the
	 * value for 1.1.0.
	 */
#if !defined(OPENSSL_API_COMPAT) || OPENSSL_API_COMPAT < 0x10100000L
	OpenSSL_add_all_algorithms();
#endif
	EVP_add_cipher_alias(SN_des_ede3_cbc, "3des");
}
USES_APPLE_RST

void esp_print_decodesecret(netdissect_options *ndo)
{
	char *line;
	char *p;
	static int initialized = 0;

if (!initialized) {
		esp_init(ndo);
		initialized = 1;
	}

p = ndo->ndo_espsecret;

while (p && p[0] != '\0') {
		/* pick out the first line or first thing until a comma */
		if ((line = strsep(&p, "\n,")) == NULL) {
			line = p;
			p = NULL;
		}

esp_print_decode_onesecret(ndo, line, "cmdline", 0);
	}

ndo->ndo_espsecret = NULL;
}

#endif

#ifdef HAVE_LIBCRYPTO
USES_APPLE_DEPRECATED_API
#endif
int
esp_print(netdissect_options *ndo,
	  const u_char *bp, const int length, const u_char *bp2
#ifndef HAVE_LIBCRYPTO
	_U_
#endif
	,
	int *nhdr
#ifndef HAVE_LIBCRYPTO
	_U_
#endif
	,
	int *padlen
#ifndef HAVE_LIBCRYPTO
	_U_
#endif
	)
{
	register const struct newesp *esp;
	register const u_char *ep;
#ifdef HAVE_LIBCRYPTO
	const struct ip *ip;
	struct sa_list *sa = NULL;
	const struct ip6_hdr *ip6 = NULL;
	int advance;
	int len;
	u_char *secret;
	int ivlen = 0;
	const u_char *ivoff;
	const u_char *p;
	EVP_CIPHER_CTX *ctx;
	unsigned int block_size, buffer_size;
	u_char *input_buffer, *output_buffer;
#endif

esp = (const struct newesp *)bp;

#ifdef HAVE_LIBCRYPTO
	secret = NULL;
	advance = 0;
#endif

#if 0
	/* keep secret out of a register */
	p = (u_char *)&secret;
#endif

/* 'ep' points to the end of available data. */
	ep = ndo->ndo_snapend;

if ((const u_char *)(esp + 1) >= ep) {
		ND_PRINT((ndo, "[|ESP]"));
		goto fail;
	}
	ND_PRINT((ndo, "ESP(spi=0x%08x", EXTRACT_32BITS(&esp->esp_spi)));
	ND_PRINT((ndo, ",seq=0x%x)", EXTRACT_32BITS(&esp->esp_seq)));
	ND_PRINT((ndo, ", length %u", length));

#ifndef HAVE_LIBCRYPTO
	goto fail;
#else
	/* initiailize SAs */
	if (ndo->ndo_sa_list_head == NULL) {
		if (!ndo->ndo_espsecret)
			goto fail;

esp_print_decodesecret(ndo);
	}

if (ndo->ndo_sa_list_head == NULL)
		goto fail;

ip = (const struct ip *)bp2;
	switch (IP_V(ip)) {
	case 6:
		ip6 = (const struct ip6_hdr *)bp2;
		/* we do not attempt to decrypt jumbograms */
		if (!EXTRACT_16BITS(&ip6->ip6_plen))
			goto fail;
		/* if we can't get nexthdr, we do not need to decrypt it */
		len = sizeof(struct ip6_hdr) + EXTRACT_16BITS(&ip6->ip6_plen);

/* see if we can find the SA, and if so, decode it */
		for (sa = ndo->ndo_sa_list_head; sa != NULL; sa = sa->next) {
			if (sa->spi == EXTRACT_32BITS(&esp->esp_spi) &&
			    sa->daddr_version == 6 &&
			    UNALIGNED_MEMCMP(&sa->daddr.in6, &ip6->ip6_dst,
				   sizeof(struct in6_addr)) == 0) {
				break;
			}
		}
		break;
	case 4:
		/* nexthdr & padding are in the last fragment */
		if (EXTRACT_16BITS(&ip->ip_off) & IP_MF)
			goto fail;
		len = EXTRACT_16BITS(&ip->ip_len);

/* see if we can find the SA, and if so, decode it */
		for (sa = ndo->ndo_sa_list_head; sa != NULL; sa = sa->next) {
			if (sa->spi == EXTRACT_32BITS(&esp->esp_spi) &&
			    sa->daddr_version == 4 &&
			    UNALIGNED_MEMCMP(&sa->daddr.in4, &ip->ip_dst,
				   sizeof(struct in_addr)) == 0) {
				break;
			}
		}
		break;
	default:
		goto fail;
	}

/* if we didn't find the specific one, then look for
	 * an unspecified one.
	 */
	if (sa == NULL)
		sa = ndo->ndo_sa_default;

/* if not found fail */
	if (sa == NULL)
		goto fail;

/* if we can't get nexthdr, we do not need to decrypt it */
	if (ep - bp2 < len)
		goto fail;
	if (ep - bp2 > len) {
		/* FCS included at end of frame (NetBSD 1.6 or later) */
		ep = bp2 + len;
	}

/* pointer to the IV, if there is one */
	ivoff = (const u_char *)(esp + 1) + 0;
	/* length of the IV, if there is one; 0, if there isn't */
	ivlen = sa->ivlen;
	secret = sa->secret;
	ep = ep - sa->authlen;

if (sa->evp) {
		ctx = EVP_CIPHER_CTX_new();
		if (ctx != NULL) {
			if (set_cipher_parameters(ctx, sa->evp, secret, NULL, 0) < 0)
				(*ndo->ndo_warning)(ndo, "espkey init failed");

p = ivoff;
			set_cipher_parameters(ctx, NULL, NULL, p, 0);
			len = ep - (p + ivlen);

/*
			 * Allocate buffers for the encrypted and decrypted
			 * data.  Both buffers' sizes must be a multiple of
			 * the cipher block size, and the output buffer must
			 * be separate from the input buffer.
			 */
			block_size = (unsigned int)EVP_CIPHER_CTX_block_size(ctx);
			buffer_size = len + (block_size - len % block_size);

/*
			 * Attempt to allocate the input buffer.
			 */
			input_buffer = (u_char *)malloc(buffer_size);
			if (input_buffer == NULL) {
				EVP_CIPHER_CTX_free(ctx);
				(*ndo->ndo_error)(ndo, "can't allocate memory for encrypted data buffer");
			}
			/*
			 * Copy the input data to the encrypted data buffer,
			 * and pad it with zeroes.
			 */
			memcpy(input_buffer, p + ivlen, len);
			memset(input_buffer + len, 0, buffer_size - len);

/*
			 * Attempt to allocate the output buffer.
			 */
			output_buffer = (u_char *)malloc(buffer_size);
			if (output_buffer == NULL) {
				free(input_buffer);
				EVP_CIPHER_CTX_free(ctx);
				(*ndo->ndo_error)(ndo, "can't allocate memory for decryption buffer");
			}

EVP_Cipher(ctx, output_buffer, input_buffer, len);
			free(input_buffer);
			EVP_CIPHER_CTX_free(ctx);
			/*
			 * XXX - of course this is wrong, because buf is a
			 * const buffer, but changing this would require a
			 * more complicated fix.
			 */
			memcpy(__DECONST(u_char *, p + ivlen), output_buffer, len);
			free(output_buffer);
			advance = ivoff - (const u_char *)esp + ivlen;
		} else
			advance = sizeof(struct newesp);
	} else
		advance = sizeof(struct newesp);

/* sanity check for pad length */
	if (ep - bp < *(ep - 2))
		goto fail;

if (padlen)
		*padlen = *(ep - 2) + 2;

if (nhdr)
		*nhdr = *(ep - 1);

ND_PRINT((ndo, ": "));
	return advance;
#endif

fail:
	return -1;
}
#ifdef HAVE_LIBCRYPTO
USES_APPLE_RST
#endif

/*
 * Local Variables:
 * c-style: whitesmith
 * c-basic-offset: 8
 * End:
 */

003 File Manager

Editing: print-esp.c

Upload File

Create Folder