Home | History | Annotate | Download | only in libpcap
      1 /*
      2  * Copyright (c) 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998
      3  *	The Regents of the University of California.  All rights reserved.
      4  *
      5  * Redistribution and use in source and binary forms, with or without
      6  * modification, are permitted provided that: (1) source code distributions
      7  * retain the above copyright notice and this paragraph in its entirety, (2)
      8  * distributions including binary code include the above copyright notice and
      9  * this paragraph in its entirety in the documentation or other materials
     10  * provided with the distribution, and (3) all advertising materials mentioning
     11  * features or use of this software display the following acknowledgement:
     12  * ``This product includes software developed by the University of California,
     13  * Lawrence Berkeley Laboratory and its contributors.'' Neither the name of
     14  * the University nor the names of its contributors may be used to endorse
     15  * or promote products derived from this software without specific prior
     16  * written permission.
     17  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
     18  * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
     19  * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
     20  *
     21  * Name to id translation routines used by the scanner.
     22  * These functions are not time critical.
     23  */
     24 
     25 #ifdef HAVE_CONFIG_H
     26 #include <config.h>
     27 #endif
     28 
     29 #ifdef DECNETLIB
     30 #include <sys/types.h>
     31 #include <netdnet/dnetdb.h>
     32 #endif
     33 
     34 #ifdef _WIN32
     35   #include <winsock2.h>
     36   #include <ws2tcpip.h>
     37 
     38   #ifdef INET6
     39     /*
     40      * To quote the MSDN page for getaddrinfo() at
     41      *
     42      *    https://msdn.microsoft.com/en-us/library/windows/desktop/ms738520(v=vs.85).aspx
     43      *
     44      * "Support for getaddrinfo on Windows 2000 and older versions
     45      * The getaddrinfo function was added to the Ws2_32.dll on Windows XP and
     46      * later. To execute an application that uses this function on earlier
     47      * versions of Windows, then you need to include the Ws2tcpip.h and
     48      * Wspiapi.h files. When the Wspiapi.h include file is added, the
     49      * getaddrinfo function is defined to the WspiapiGetAddrInfo inline
     50      * function in the Wspiapi.h file. At runtime, the WspiapiGetAddrInfo
     51      * function is implemented in such a way that if the Ws2_32.dll or the
     52      * Wship6.dll (the file containing getaddrinfo in the IPv6 Technology
     53      * Preview for Windows 2000) does not include getaddrinfo, then a
     54      * version of getaddrinfo is implemented inline based on code in the
     55      * Wspiapi.h header file. This inline code will be used on older Windows
     56      * platforms that do not natively support the getaddrinfo function."
     57      *
     58      * We use getaddrinfo(), so we include Wspiapi.h here.
     59      */
     60     #include <wspiapi.h>
     61   #endif /* INET6 */
     62 #else /* _WIN32 */
     63   #include <sys/param.h>
     64   #include <sys/types.h>
     65   #include <sys/socket.h>
     66   #include <sys/time.h>
     67 
     68   #include <netinet/in.h>
     69 
     70   #ifdef HAVE_ETHER_HOSTTON
     71     #if defined(NET_ETHERNET_H_DECLARES_ETHER_HOSTTON)
     72       /*
     73        * OK, just include <net/ethernet.h>.
     74        */
     75       #include <net/ethernet.h>
     76     #elif defined(NETINET_ETHER_H_DECLARES_ETHER_HOSTTON)
     77       /*
     78        * OK, just include <netinet/ether.h>
     79        */
     80       #include <netinet/ether.h>
     81     #elif defined(SYS_ETHERNET_H_DECLARES_ETHER_HOSTTON)
     82       /*
     83        * OK, just include <sys/ethernet.h>
     84        */
     85       #include <sys/ethernet.h>
     86     #elif defined(ARPA_INET_H_DECLARES_ETHER_HOSTTON)
     87       /*
     88        * OK, just include <arpa/inet.h>
     89        */
     90       #include <arpa/inet.h>
     91     #elif defined(NETINET_IF_ETHER_H_DECLARES_ETHER_HOSTTON)
     92       /*
     93        * OK, include <netinet/if_ether.h>, after all the other stuff we
     94        * need to include or define for its benefit.
     95        */
     96       #define NEED_NETINET_IF_ETHER_H
     97     #else
     98       /*
     99        * We'll have to declare it ourselves.
    100        * If <netinet/if_ether.h> defines struct ether_addr, include
    101        * it.  Otherwise, define it ourselves.
    102        */
    103       #ifdef HAVE_STRUCT_ETHER_ADDR
    104         #define NEED_NETINET_IF_ETHER_H
    105       #else /* HAVE_STRUCT_ETHER_ADDR */
    106 	struct ether_addr {
    107 		unsigned char ether_addr_octet[6];
    108 	};
    109       #endif /* HAVE_STRUCT_ETHER_ADDR */
    110     #endif /* what declares ether_hostton() */
    111 
    112     #ifdef NEED_NETINET_IF_ETHER_H
    113       #include <net/if.h>	/* Needed on some platforms */
    114       #include <netinet/in.h>	/* Needed on some platforms */
    115       #include <netinet/if_ether.h>
    116     #endif /* NEED_NETINET_IF_ETHER_H */
    117 
    118     #ifndef HAVE_DECL_ETHER_HOSTTON
    119       /*
    120        * No header declares it, so declare it ourselves.
    121        */
    122       extern int ether_hostton(const char *, struct ether_addr *);
    123     #endif /* !defined(HAVE_DECL_ETHER_HOSTTON) */
    124   #endif /* HAVE_ETHER_HOSTTON */
    125 
    126   #include <arpa/inet.h>
    127   #include <netdb.h>
    128 #endif /* _WIN32 */
    129 
    130 #include <ctype.h>
    131 #include <errno.h>
    132 #include <stdlib.h>
    133 #include <string.h>
    134 #include <stdio.h>
    135 
    136 #include "pcap-int.h"
    137 
    138 #include "gencode.h"
    139 #include <pcap/namedb.h>
    140 #include "nametoaddr.h"
    141 
    142 #ifdef HAVE_OS_PROTO_H
    143 #include "os-proto.h"
    144 #endif
    145 
    146 #ifndef NTOHL
    147 #define NTOHL(x) (x) = ntohl(x)
    148 #define NTOHS(x) (x) = ntohs(x)
    149 #endif
    150 
    151 /*
    152  *  Convert host name to internet address.
    153  *  Return 0 upon failure.
    154  *  XXX - not thread-safe; don't use it inside libpcap.
    155  */
    156 bpf_u_int32 **
    157 pcap_nametoaddr(const char *name)
    158 {
    159 #ifndef h_addr
    160 	static bpf_u_int32 *hlist[2];
    161 #endif
    162 	bpf_u_int32 **p;
    163 	struct hostent *hp;
    164 
    165 	if ((hp = gethostbyname(name)) != NULL) {
    166 #ifndef h_addr
    167 		hlist[0] = (bpf_u_int32 *)hp->h_addr;
    168 		NTOHL(hp->h_addr);
    169 		return hlist;
    170 #else
    171 		for (p = (bpf_u_int32 **)hp->h_addr_list; *p; ++p)
    172 			NTOHL(**p);
    173 		return (bpf_u_int32 **)hp->h_addr_list;
    174 #endif
    175 	}
    176 	else
    177 		return 0;
    178 }
    179 
    180 struct addrinfo *
    181 pcap_nametoaddrinfo(const char *name)
    182 {
    183 	struct addrinfo hints, *res;
    184 	int error;
    185 
    186 	memset(&hints, 0, sizeof(hints));
    187 	hints.ai_family = PF_UNSPEC;
    188 	hints.ai_socktype = SOCK_STREAM;	/*not really*/
    189 	hints.ai_protocol = IPPROTO_TCP;	/*not really*/
    190 	error = getaddrinfo(name, NULL, &hints, &res);
    191 	if (error)
    192 		return NULL;
    193 	else
    194 		return res;
    195 }
    196 
    197 /*
    198  *  Convert net name to internet address.
    199  *  Return 0 upon failure.
    200  *  XXX - not guaranteed to be thread-safe!  See below for platforms
    201  *  on which it is thread-safe and on which it isn't.
    202  */
    203 bpf_u_int32
    204 pcap_nametonetaddr(const char *name)
    205 {
    206 #ifdef _WIN32
    207 	/*
    208 	 * There's no "getnetbyname()" on Windows.
    209 	 *
    210 	 * XXX - I guess we could use the BSD code to read
    211 	 * C:\Windows\System32\drivers\etc/networks, assuming
    212 	 * that's its home on all the versions of Windows
    213 	 * we use, but that file probably just has the loopback
    214 	 * network on 127/24 on 99 44/100% of Windows machines.
    215 	 *
    216 	 * (Heck, these days it probably just has that on 99 44/100%
    217 	 * of *UN*X* machines.)
    218 	 */
    219 	return 0;
    220 #else
    221 	/*
    222 	 * UN*X.
    223 	 */
    224 	struct netent *np;
    225   #if defined(HAVE_LINUX_GETNETBYNAME_R)
    226 	/*
    227 	 * We have Linux's reentrant getnetbyname_r().
    228 	 */
    229 	struct netent result_buf;
    230 	char buf[1024];	/* arbitrary size */
    231 	int h_errnoval;
    232 	int err;
    233 
    234 	err = getnetbyname_r(name, &result_buf, buf, sizeof buf, &np,
    235 	    &h_errnoval);
    236 	if (err != 0) {
    237 		/*
    238 		 * XXX - dynamically allocate the buffer, and make it
    239 		 * bigger if we get ERANGE back?
    240 		 */
    241 		return 0;
    242 	}
    243   #elif defined(HAVE_SOLARIS_IRIX_GETNETBYNAME_R)
    244 	/*
    245 	 * We have Solaris's and IRIX's reentrant getnetbyname_r().
    246 	 */
    247 	struct netent result_buf;
    248 	char buf[1024];	/* arbitrary size */
    249 
    250 	np = getnetbyname_r(name, &result_buf, buf, (int)sizeof buf);
    251   #elif defined(HAVE_AIX_GETNETBYNAME_R)
    252 	/*
    253 	 * We have AIX's reentrant getnetbyname_r().
    254 	 */
    255 	struct netent result_buf;
    256 	struct netent_data net_data;
    257 
    258 	if (getnetbyname_r(name, &result_buf, &net_data) == -1)
    259 		np = NULL;
    260 	else
    261 		np = &result_buf;
    262   #else
    263  	/*
    264  	 * We don't have any getnetbyname_r(); either we have a
    265  	 * getnetbyname() that uses thread-specific data, in which
    266  	 * case we're thread-safe (sufficiently recent FreeBSD,
    267  	 * sufficiently recent Darwin-based OS, sufficiently recent
    268  	 * HP-UX, sufficiently recent Tru64 UNIX), or we have the
    269  	 * traditional getnetbyname() (everything else, including
    270  	 * current NetBSD and OpenBSD), in which case we're not
    271  	 * thread-safe.
    272  	 */
    273 	np = getnetbyname(name);
    274   #endif
    275 	if (np != NULL)
    276 		return np->n_net;
    277 	else
    278 		return 0;
    279 #endif /* _WIN32 */
    280 }
    281 
    282 /*
    283  * Convert a port name to its port and protocol numbers.
    284  * We assume only TCP or UDP.
    285  * Return 0 upon failure.
    286  */
    287 int
    288 pcap_nametoport(const char *name, int *port, int *proto)
    289 {
    290 	struct addrinfo hints, *res, *ai;
    291 	int error;
    292 	struct sockaddr_in *in4;
    293 #ifdef INET6
    294 	struct sockaddr_in6 *in6;
    295 #endif
    296 	int tcp_port = -1;
    297 	int udp_port = -1;
    298 
    299 	/*
    300 	 * We check for both TCP and UDP in case there are
    301 	 * ambiguous entries.
    302 	 */
    303 	memset(&hints, 0, sizeof(hints));
    304 	hints.ai_family = PF_UNSPEC;
    305 	hints.ai_socktype = SOCK_STREAM;
    306 	hints.ai_protocol = IPPROTO_TCP;
    307 	error = getaddrinfo(NULL, name, &hints, &res);
    308 	if (error != 0) {
    309 		if (error != EAI_NONAME &&
    310 		    error != EAI_SERVICE) {
    311 			/*
    312 			 * This is a real error, not just "there's
    313 			 * no such service name".
    314 			 * XXX - this doesn't return an error string.
    315 			 */
    316 			return 0;
    317 		}
    318 	} else {
    319 		/*
    320 		 * OK, we found it.  Did it find anything?
    321 		 */
    322 		for (ai = res; ai != NULL; ai = ai->ai_next) {
    323 			/*
    324 			 * Does it have an address?
    325 			 */
    326 			if (ai->ai_addr != NULL) {
    327 				/*
    328 				 * Yes.  Get a port number; we're done.
    329 				 */
    330 				if (ai->ai_addr->sa_family == AF_INET) {
    331 					in4 = (struct sockaddr_in *)ai->ai_addr;
    332 					tcp_port = ntohs(in4->sin_port);
    333 					break;
    334 				}
    335 #ifdef INET6
    336 				if (ai->ai_addr->sa_family == AF_INET6) {
    337 					in6 = (struct sockaddr_in6 *)ai->ai_addr;
    338 					tcp_port = ntohs(in6->sin6_port);
    339 					break;
    340 				}
    341 #endif
    342 			}
    343 		}
    344 		freeaddrinfo(res);
    345 	}
    346 
    347 	memset(&hints, 0, sizeof(hints));
    348 	hints.ai_family = PF_UNSPEC;
    349 	hints.ai_socktype = SOCK_DGRAM;
    350 	hints.ai_protocol = IPPROTO_UDP;
    351 	error = getaddrinfo(NULL, name, &hints, &res);
    352 	if (error != 0) {
    353 		if (error != EAI_NONAME &&
    354 		    error != EAI_SERVICE) {
    355 			/*
    356 			 * This is a real error, not just "there's
    357 			 * no such service name".
    358 			 * XXX - this doesn't return an error string.
    359 			 */
    360 			return 0;
    361 		}
    362 	} else {
    363 		/*
    364 		 * OK, we found it.  Did it find anything?
    365 		 */
    366 		for (ai = res; ai != NULL; ai = ai->ai_next) {
    367 			/*
    368 			 * Does it have an address?
    369 			 */
    370 			if (ai->ai_addr != NULL) {
    371 				/*
    372 				 * Yes.  Get a port number; we're done.
    373 				 */
    374 				if (ai->ai_addr->sa_family == AF_INET) {
    375 					in4 = (struct sockaddr_in *)ai->ai_addr;
    376 					udp_port = ntohs(in4->sin_port);
    377 					break;
    378 				}
    379 #ifdef INET6
    380 				if (ai->ai_addr->sa_family == AF_INET6) {
    381 					in6 = (struct sockaddr_in6 *)ai->ai_addr;
    382 					udp_port = ntohs(in6->sin6_port);
    383 					break;
    384 				}
    385 #endif
    386 			}
    387 		}
    388 		freeaddrinfo(res);
    389 	}
    390 
    391 	/*
    392 	 * We need to check /etc/services for ambiguous entries.
    393 	 * If we find an ambiguous entry, and it has the
    394 	 * same port number, change the proto to PROTO_UNDEF
    395 	 * so both TCP and UDP will be checked.
    396 	 */
    397 	if (tcp_port >= 0) {
    398 		*port = tcp_port;
    399 		*proto = IPPROTO_TCP;
    400 		if (udp_port >= 0) {
    401 			if (udp_port == tcp_port)
    402 				*proto = PROTO_UNDEF;
    403 #ifdef notdef
    404 			else
    405 				/* Can't handle ambiguous names that refer
    406 				   to different port numbers. */
    407 				warning("ambiguous port %s in /etc/services",
    408 					name);
    409 #endif
    410 		}
    411 		return 1;
    412 	}
    413 	if (udp_port >= 0) {
    414 		*port = udp_port;
    415 		*proto = IPPROTO_UDP;
    416 		return 1;
    417 	}
    418 #if defined(ultrix) || defined(__osf__)
    419 	/* Special hack in case NFS isn't in /etc/services */
    420 	if (strcmp(name, "nfs") == 0) {
    421 		*port = 2049;
    422 		*proto = PROTO_UNDEF;
    423 		return 1;
    424 	}
    425 #endif
    426 	return 0;
    427 }
    428 
    429 /*
    430  * Convert a string in the form PPP-PPP, where correspond to ports, to
    431  * a starting and ending port in a port range.
    432  * Return 0 on failure.
    433  */
    434 int
    435 pcap_nametoportrange(const char *name, int *port1, int *port2, int *proto)
    436 {
    437 	u_int p1, p2;
    438 	char *off, *cpy;
    439 	int save_proto;
    440 
    441 	if (sscanf(name, "%d-%d", &p1, &p2) != 2) {
    442 		if ((cpy = strdup(name)) == NULL)
    443 			return 0;
    444 
    445 		if ((off = strchr(cpy, '-')) == NULL) {
    446 			free(cpy);
    447 			return 0;
    448 		}
    449 
    450 		*off = '\0';
    451 
    452 		if (pcap_nametoport(cpy, port1, proto) == 0) {
    453 			free(cpy);
    454 			return 0;
    455 		}
    456 		save_proto = *proto;
    457 
    458 		if (pcap_nametoport(off + 1, port2, proto) == 0) {
    459 			free(cpy);
    460 			return 0;
    461 		}
    462 		free(cpy);
    463 
    464 		if (*proto != save_proto)
    465 			*proto = PROTO_UNDEF;
    466 	} else {
    467 		*port1 = p1;
    468 		*port2 = p2;
    469 		*proto = PROTO_UNDEF;
    470 	}
    471 
    472 	return 1;
    473 }
    474 
    475 /*
    476  * XXX - not guaranteed to be thread-safe!  See below for platforms
    477  * on which it is thread-safe and on which it isn't.
    478  */
    479 int
    480 pcap_nametoproto(const char *str)
    481 {
    482 	struct protoent *p;
    483   #if defined(HAVE_LINUX_GETNETBYNAME_R)
    484 	/*
    485 	 * We have Linux's reentrant getprotobyname_r().
    486 	 */
    487 	struct protoent result_buf;
    488 	char buf[1024];	/* arbitrary size */
    489 	int err;
    490 
    491 	err = getprotobyname_r(str, &result_buf, buf, sizeof buf, &p);
    492 	if (err != 0) {
    493 		/*
    494 		 * XXX - dynamically allocate the buffer, and make it
    495 		 * bigger if we get ERANGE back?
    496 		 */
    497 		return 0;
    498 	}
    499   #elif defined(HAVE_SOLARIS_IRIX_GETNETBYNAME_R)
    500 	/*
    501 	 * We have Solaris's and IRIX's reentrant getprotobyname_r().
    502 	 */
    503 	struct protoent result_buf;
    504 	char buf[1024];	/* arbitrary size */
    505 
    506 	p = getprotobyname_r(str, &result_buf, buf, (int)sizeof buf);
    507   #elif defined(HAVE_AIX_GETNETBYNAME_R)
    508 	/*
    509 	 * We have AIX's reentrant getprotobyname_r().
    510 	 */
    511 	struct protoent result_buf;
    512 	struct protoent_data proto_data;
    513 
    514 	if (getprotobyname_r(str, &result_buf, &proto_data) == -1)
    515 		p = NULL;
    516 	else
    517 		p = &result_buf;
    518   #else
    519  	/*
    520  	 * We don't have any getprotobyname_r(); either we have a
    521  	 * getprotobyname() that uses thread-specific data, in which
    522  	 * case we're thread-safe (sufficiently recent FreeBSD,
    523  	 * sufficiently recent Darwin-based OS, sufficiently recent
    524  	 * HP-UX, sufficiently recent Tru64 UNIX, Windows), or we have
    525 	 * the traditional getprotobyname() (everything else, including
    526  	 * current NetBSD and OpenBSD), in which case we're not
    527  	 * thread-safe.
    528  	 */
    529 	p = getprotobyname(str);
    530   #endif
    531 	if (p != 0)
    532 		return p->p_proto;
    533 	else
    534 		return PROTO_UNDEF;
    535 }
    536 
    537 #include "ethertype.h"
    538 
    539 struct eproto {
    540 	const char *s;
    541 	u_short p;
    542 };
    543 
    544 /*
    545  * Static data base of ether protocol types.
    546  * tcpdump used to import this, and it's declared as an export on
    547  * Debian, at least, so make it a public symbol, even though we
    548  * don't officially export it by declaring it in a header file.
    549  * (Programs *should* do this themselves, as tcpdump now does.)
    550  *
    551  * We declare it here, right before defining it, to squelch any
    552  * warnings we might get from compilers about the lack of a
    553  * declaration.
    554  */
    555 PCAP_API struct eproto eproto_db[];
    556 PCAP_API_DEF struct eproto eproto_db[] = {
    557 	{ "pup", ETHERTYPE_PUP },
    558 	{ "xns", ETHERTYPE_NS },
    559 	{ "ip", ETHERTYPE_IP },
    560 #ifdef INET6
    561 	{ "ip6", ETHERTYPE_IPV6 },
    562 #endif
    563 	{ "arp", ETHERTYPE_ARP },
    564 	{ "rarp", ETHERTYPE_REVARP },
    565 	{ "sprite", ETHERTYPE_SPRITE },
    566 	{ "mopdl", ETHERTYPE_MOPDL },
    567 	{ "moprc", ETHERTYPE_MOPRC },
    568 	{ "decnet", ETHERTYPE_DN },
    569 	{ "lat", ETHERTYPE_LAT },
    570 	{ "sca", ETHERTYPE_SCA },
    571 	{ "lanbridge", ETHERTYPE_LANBRIDGE },
    572 	{ "vexp", ETHERTYPE_VEXP },
    573 	{ "vprod", ETHERTYPE_VPROD },
    574 	{ "atalk", ETHERTYPE_ATALK },
    575 	{ "atalkarp", ETHERTYPE_AARP },
    576 	{ "loopback", ETHERTYPE_LOOPBACK },
    577 	{ "decdts", ETHERTYPE_DECDTS },
    578 	{ "decdns", ETHERTYPE_DECDNS },
    579 	{ (char *)0, 0 }
    580 };
    581 
    582 int
    583 pcap_nametoeproto(const char *s)
    584 {
    585 	struct eproto *p = eproto_db;
    586 
    587 	while (p->s != 0) {
    588 		if (strcmp(p->s, s) == 0)
    589 			return p->p;
    590 		p += 1;
    591 	}
    592 	return PROTO_UNDEF;
    593 }
    594 
    595 #include "llc.h"
    596 
    597 /* Static data base of LLC values. */
    598 static struct eproto llc_db[] = {
    599 	{ "iso", LLCSAP_ISONS },
    600 	{ "stp", LLCSAP_8021D },
    601 	{ "ipx", LLCSAP_IPX },
    602 	{ "netbeui", LLCSAP_NETBEUI },
    603 	{ (char *)0, 0 }
    604 };
    605 
    606 int
    607 pcap_nametollc(const char *s)
    608 {
    609 	struct eproto *p = llc_db;
    610 
    611 	while (p->s != 0) {
    612 		if (strcmp(p->s, s) == 0)
    613 			return p->p;
    614 		p += 1;
    615 	}
    616 	return PROTO_UNDEF;
    617 }
    618 
    619 /* Hex digit to 8-bit unsigned integer. */
    620 static inline u_char
    621 xdtoi(u_char c)
    622 {
    623 	if (isdigit(c))
    624 		return (u_char)(c - '0');
    625 	else if (islower(c))
    626 		return (u_char)(c - 'a' + 10);
    627 	else
    628 		return (u_char)(c - 'A' + 10);
    629 }
    630 
    631 int
    632 __pcap_atoin(const char *s, bpf_u_int32 *addr)
    633 {
    634 	u_int n;
    635 	int len;
    636 
    637 	*addr = 0;
    638 	len = 0;
    639 	for (;;) {
    640 		n = 0;
    641 		while (*s && *s != '.')
    642 			n = n * 10 + *s++ - '0';
    643 		*addr <<= 8;
    644 		*addr |= n & 0xff;
    645 		len += 8;
    646 		if (*s == '\0')
    647 			return len;
    648 		++s;
    649 	}
    650 	/* NOTREACHED */
    651 }
    652 
    653 int
    654 __pcap_atodn(const char *s, bpf_u_int32 *addr)
    655 {
    656 #define AREASHIFT 10
    657 #define AREAMASK 0176000
    658 #define NODEMASK 01777
    659 
    660 	u_int node, area;
    661 
    662 	if (sscanf(s, "%d.%d", &area, &node) != 2)
    663 		return(0);
    664 
    665 	*addr = (area << AREASHIFT) & AREAMASK;
    666 	*addr |= (node & NODEMASK);
    667 
    668 	return(32);
    669 }
    670 
    671 /*
    672  * Convert 's', which can have the one of the forms:
    673  *
    674  *	"xx:xx:xx:xx:xx:xx"
    675  *	"xx.xx.xx.xx.xx.xx"
    676  *	"xx-xx-xx-xx-xx-xx"
    677  *	"xxxx.xxxx.xxxx"
    678  *	"xxxxxxxxxxxx"
    679  *
    680  * (or various mixes of ':', '.', and '-') into a new
    681  * ethernet address.  Assumes 's' is well formed.
    682  */
    683 u_char *
    684 pcap_ether_aton(const char *s)
    685 {
    686 	register u_char *ep, *e;
    687 	register u_char d;
    688 
    689 	e = ep = (u_char *)malloc(6);
    690 	if (e == NULL)
    691 		return (NULL);
    692 
    693 	while (*s) {
    694 		if (*s == ':' || *s == '.' || *s == '-')
    695 			s += 1;
    696 		d = xdtoi(*s++);
    697 		if (isxdigit((unsigned char)*s)) {
    698 			d <<= 4;
    699 			d |= xdtoi(*s++);
    700 		}
    701 		*ep++ = d;
    702 	}
    703 
    704 	return (e);
    705 }
    706 
    707 #ifndef HAVE_ETHER_HOSTTON
    708 /*
    709  * Roll our own.
    710  * XXX - not thread-safe, because pcap_next_etherent() isn't thread-
    711  * safe!  Needs a mutex or a thread-safe pcap_next_etherent().
    712  */
    713 u_char *
    714 pcap_ether_hostton(const char *name)
    715 {
    716 	register struct pcap_etherent *ep;
    717 	register u_char *ap;
    718 	static FILE *fp = NULL;
    719 	static int init = 0;
    720 
    721 	if (!init) {
    722 		fp = fopen(PCAP_ETHERS_FILE, "r");
    723 		++init;
    724 		if (fp == NULL)
    725 			return (NULL);
    726 	} else if (fp == NULL)
    727 		return (NULL);
    728 	else
    729 		rewind(fp);
    730 
    731 	while ((ep = pcap_next_etherent(fp)) != NULL) {
    732 		if (strcmp(ep->name, name) == 0) {
    733 			ap = (u_char *)malloc(6);
    734 			if (ap != NULL) {
    735 				memcpy(ap, ep->addr, 6);
    736 				return (ap);
    737 			}
    738 			break;
    739 		}
    740 	}
    741 	return (NULL);
    742 }
    743 #else
    744 /*
    745  * Use the OS-supplied routine.
    746  * This *should* be thread-safe; the API doesn't have a static buffer.
    747  */
    748 u_char *
    749 pcap_ether_hostton(const char *name)
    750 {
    751 	register u_char *ap;
    752 	u_char a[6];
    753 
    754 	ap = NULL;
    755 	if (ether_hostton(name, (struct ether_addr *)a) == 0) {
    756 		ap = (u_char *)malloc(6);
    757 		if (ap != NULL)
    758 			memcpy((char *)ap, (char *)a, 6);
    759 	}
    760 	return (ap);
    761 }
    762 #endif
    763 
    764 /*
    765  * XXX - not guaranteed to be thread-safe!
    766  */
    767 int
    768 #ifdef	DECNETLIB
    769 __pcap_nametodnaddr(const char *name, u_short *res)
    770 {
    771 	struct nodeent *getnodebyname();
    772 	struct nodeent *nep;
    773 
    774 	nep = getnodebyname(name);
    775 	if (nep == ((struct nodeent *)0))
    776 		return(0);
    777 
    778 	memcpy((char *)res, (char *)nep->n_addr, sizeof(unsigned short));
    779 	return(1);
    780 #else
    781 __pcap_nametodnaddr(const char *name _U_, u_short *res _U_)
    782 {
    783 	return(0);
    784 #endif
    785 }
    786