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 * $FreeBSD$
25 */
26
27#ifndef lint
28static const char rcsid[] _U_ =
29    "@(#) $Header: /tcpdump/master/libpcap/nametoaddr.c,v 1.83 2008-02-06 10:21:30 guy Exp $ (LBL)";
30#endif
31
32#ifdef HAVE_CONFIG_H
33#include "config.h"
34#endif
35
36#ifdef DECNETLIB
37#include <sys/types.h>
38#include <netdnet/dnetdb.h>
39#endif
40
41#ifdef WIN32
42#include <pcap-stdinc.h>
43
44#else /* WIN32 */
45
46#include <sys/param.h>
47#include <sys/types.h>				/* concession to AIX */
48#include <sys/socket.h>
49#include <sys/time.h>
50
51#include <netinet/in.h>
52#endif /* WIN32 */
53
54#ifndef WIN32
55#ifdef HAVE_ETHER_HOSTTON
56/*
57 * XXX - do we need any of this if <netinet/if_ether.h> doesn't declare
58 * ether_hostton()?
59 */
60#ifdef HAVE_NETINET_IF_ETHER_H
61struct mbuf;		/* Squelch compiler warnings on some platforms for */
62struct rtentry;		/* declarations in <net/if.h> */
63#include <net/if.h>	/* for "struct ifnet" in "struct arpcom" on Solaris */
64#include <netinet/if_ether.h>
65#endif /* HAVE_NETINET_IF_ETHER_H */
66#ifdef NETINET_ETHER_H_DECLARES_ETHER_HOSTTON
67#include <netinet/ether.h>
68#endif /* NETINET_ETHER_H_DECLARES_ETHER_HOSTTON */
69#endif /* HAVE_ETHER_HOSTTON */
70#include <arpa/inet.h>
71#include <netdb.h>
72#endif /* WIN32 */
73
74#include <ctype.h>
75#include <errno.h>
76#include <stdlib.h>
77#include <string.h>
78#include <stdio.h>
79
80#include "pcap-int.h"
81
82#include "gencode.h"
83#include <pcap/namedb.h>
84
85#ifdef HAVE_OS_PROTO_H
86#include "os-proto.h"
87#endif
88
89#ifndef NTOHL
90#define NTOHL(x) (x) = ntohl(x)
91#define NTOHS(x) (x) = ntohs(x)
92#endif
93
94static inline int xdtoi(int);
95
96/*
97 *  Convert host name to internet address.
98 *  Return 0 upon failure.
99 */
100bpf_u_int32 **
101pcap_nametoaddr(const char *name)
102{
103#ifndef h_addr
104	static bpf_u_int32 *hlist[2];
105#endif
106	bpf_u_int32 **p;
107	struct hostent *hp;
108
109	if ((hp = gethostbyname(name)) != NULL) {
110#ifndef h_addr
111		hlist[0] = (bpf_u_int32 *)hp->h_addr;
112		NTOHL(hp->h_addr);
113		return hlist;
114#else
115		for (p = (bpf_u_int32 **)hp->h_addr_list; *p; ++p)
116			NTOHL(**p);
117		return (bpf_u_int32 **)hp->h_addr_list;
118#endif
119	}
120	else
121		return 0;
122}
123
124#ifdef INET6
125struct addrinfo *
126pcap_nametoaddrinfo(const char *name)
127{
128	struct addrinfo hints, *res;
129	int error;
130
131	memset(&hints, 0, sizeof(hints));
132	hints.ai_family = PF_UNSPEC;
133	hints.ai_socktype = SOCK_STREAM;	/*not really*/
134	hints.ai_protocol = IPPROTO_TCP;	/*not really*/
135	error = getaddrinfo(name, NULL, &hints, &res);
136	if (error)
137		return NULL;
138	else
139		return res;
140}
141#endif /*INET6*/
142
143/*
144 *  Convert net name to internet address.
145 *  Return 0 upon failure.
146 */
147bpf_u_int32
148pcap_nametonetaddr(const char *name)
149{
150#ifndef WIN32
151	struct netent *np;
152
153	if ((np = getnetbyname(name)) != NULL)
154		return np->n_net;
155	else
156		return 0;
157#else
158	/*
159	 * There's no "getnetbyname()" on Windows.
160	 */
161	return 0;
162#endif
163}
164
165/*
166 * Convert a port name to its port and protocol numbers.
167 * We assume only TCP or UDP.
168 * Return 0 upon failure.
169 */
170int
171pcap_nametoport(const char *name, int *port, int *proto)
172{
173	struct servent *sp;
174	int tcp_port = -1;
175	int udp_port = -1;
176
177	/*
178	 * We need to check /etc/services for ambiguous entries.
179	 * If we find the ambiguous entry, and it has the
180	 * same port number, change the proto to PROTO_UNDEF
181	 * so both TCP and UDP will be checked.
182	 */
183	sp = getservbyname(name, "tcp");
184	if (sp != NULL) tcp_port = ntohs(sp->s_port);
185	sp = getservbyname(name, "udp");
186	if (sp != NULL) udp_port = ntohs(sp->s_port);
187	if (tcp_port >= 0) {
188		*port = tcp_port;
189		*proto = IPPROTO_TCP;
190		if (udp_port >= 0) {
191			if (udp_port == tcp_port)
192				*proto = PROTO_UNDEF;
193#ifdef notdef
194			else
195				/* Can't handle ambiguous names that refer
196				   to different port numbers. */
197				warning("ambiguous port %s in /etc/services",
198					name);
199#endif
200		}
201		return 1;
202	}
203	if (udp_port >= 0) {
204		*port = udp_port;
205		*proto = IPPROTO_UDP;
206		return 1;
207	}
208#if defined(ultrix) || defined(__osf__)
209	/* Special hack in case NFS isn't in /etc/services */
210	if (strcmp(name, "nfs") == 0) {
211		*port = 2049;
212		*proto = PROTO_UNDEF;
213		return 1;
214	}
215#endif
216	return 0;
217}
218
219/*
220 * Convert a string in the form PPP-PPP, where correspond to ports, to
221 * a starting and ending port in a port range.
222 * Return 0 on failure.
223 */
224int
225pcap_nametoportrange(const char *name, int *port1, int *port2, int *proto)
226{
227	u_int p1, p2;
228	char *off, *cpy;
229	int save_proto;
230
231	if (sscanf(name, "%d-%d", &p1, &p2) != 2) {
232		if ((cpy = strdup(name)) == NULL)
233			return 0;
234
235		if ((off = strchr(cpy, '-')) == NULL) {
236			free(cpy);
237			return 0;
238		}
239
240		*off = '\0';
241
242		if (pcap_nametoport(cpy, port1, proto) == 0) {
243			free(cpy);
244			return 0;
245		}
246		save_proto = *proto;
247
248		if (pcap_nametoport(off + 1, port2, proto) == 0) {
249			free(cpy);
250			return 0;
251		}
252		free(cpy);
253
254		if (*proto != save_proto)
255			*proto = PROTO_UNDEF;
256	} else {
257		*port1 = p1;
258		*port2 = p2;
259		*proto = PROTO_UNDEF;
260	}
261
262	return 1;
263}
264
265int
266pcap_nametoproto(const char *str)
267{
268	struct protoent *p;
269
270	p = getprotobyname(str);
271	if (p != 0)
272		return p->p_proto;
273	else
274		return PROTO_UNDEF;
275}
276
277#include "ethertype.h"
278
279struct eproto {
280	const char *s;
281	u_short p;
282};
283
284/* Static data base of ether protocol types. */
285struct eproto eproto_db[] = {
286#if 0
287	/* The FreeBSD elf linker generates a request to copy this array
288	 * (including its size) when you link with -lpcap.  In order to
289	 * not bump the major version number of this libpcap.so, we need
290	 * to ensure that the array stays the same size.  Since PUP is
291	 * likely never seen in real life any more, it's the first to
292	 * be sacrificed (in favor of ip6).
293	 */
294	{ "pup", ETHERTYPE_PUP },
295#endif
296	{ "xns", ETHERTYPE_NS },
297	{ "ip", ETHERTYPE_IP },
298#ifdef INET6
299	{ "ip6", ETHERTYPE_IPV6 },
300#endif
301	{ "arp", ETHERTYPE_ARP },
302	{ "rarp", ETHERTYPE_REVARP },
303	{ "sprite", ETHERTYPE_SPRITE },
304	{ "mopdl", ETHERTYPE_MOPDL },
305	{ "moprc", ETHERTYPE_MOPRC },
306	{ "decnet", ETHERTYPE_DN },
307	{ "lat", ETHERTYPE_LAT },
308	{ "sca", ETHERTYPE_SCA },
309	{ "lanbridge", ETHERTYPE_LANBRIDGE },
310	{ "vexp", ETHERTYPE_VEXP },
311	{ "vprod", ETHERTYPE_VPROD },
312	{ "atalk", ETHERTYPE_ATALK },
313	{ "atalkarp", ETHERTYPE_AARP },
314	{ "loopback", ETHERTYPE_LOOPBACK },
315	{ "decdts", ETHERTYPE_DECDTS },
316	{ "decdns", ETHERTYPE_DECDNS },
317	{ (char *)0, 0 }
318};
319
320int
321pcap_nametoeproto(const char *s)
322{
323	struct eproto *p = eproto_db;
324
325	while (p->s != 0) {
326		if (strcmp(p->s, s) == 0)
327			return p->p;
328		p += 1;
329	}
330	return PROTO_UNDEF;
331}
332
333#include "llc.h"
334
335/* Static data base of LLC values. */
336static struct eproto llc_db[] = {
337	{ "iso", LLCSAP_ISONS },
338	{ "stp", LLCSAP_8021D },
339	{ "ipx", LLCSAP_IPX },
340	{ "netbeui", LLCSAP_NETBEUI },
341	{ (char *)0, 0 }
342};
343
344int
345pcap_nametollc(const char *s)
346{
347	struct eproto *p = llc_db;
348
349	while (p->s != 0) {
350		if (strcmp(p->s, s) == 0)
351			return p->p;
352		p += 1;
353	}
354	return PROTO_UNDEF;
355}
356
357/* Hex digit to integer. */
358static inline int
359xdtoi(c)
360	register int c;
361{
362	if (isdigit(c))
363		return c - '0';
364	else if (islower(c))
365		return c - 'a' + 10;
366	else
367		return c - 'A' + 10;
368}
369
370int
371__pcap_atoin(const char *s, bpf_u_int32 *addr)
372{
373	u_int n;
374	int len;
375
376	*addr = 0;
377	len = 0;
378	while (1) {
379		n = 0;
380		while (*s && *s != '.')
381			n = n * 10 + *s++ - '0';
382		*addr <<= 8;
383		*addr |= n & 0xff;
384		len += 8;
385		if (*s == '\0')
386			return len;
387		++s;
388	}
389	/* NOTREACHED */
390}
391
392int
393__pcap_atodn(const char *s, bpf_u_int32 *addr)
394{
395#define AREASHIFT 10
396#define AREAMASK 0176000
397#define NODEMASK 01777
398
399	u_int node, area;
400
401	if (sscanf(s, "%d.%d", &area, &node) != 2)
402		bpf_error("malformed decnet address '%s'", s);
403
404	*addr = (area << AREASHIFT) & AREAMASK;
405	*addr |= (node & NODEMASK);
406
407	return(32);
408}
409
410/*
411 * Convert 's', which can have the one of the forms:
412 *
413 *	"xx:xx:xx:xx:xx:xx"
414 *	"xx.xx.xx.xx.xx.xx"
415 *	"xx-xx-xx-xx-xx-xx"
416 *	"xxxx.xxxx.xxxx"
417 *	"xxxxxxxxxxxx"
418 *
419 * (or various mixes of ':', '.', and '-') into a new
420 * ethernet address.  Assumes 's' is well formed.
421 */
422u_char *
423pcap_ether_aton(const char *s)
424{
425	register u_char *ep, *e;
426	register u_int d;
427
428	e = ep = (u_char *)malloc(6);
429
430	while (*s) {
431		if (*s == ':' || *s == '.' || *s == '-')
432			s += 1;
433		d = xdtoi(*s++);
434		if (isxdigit((unsigned char)*s)) {
435			d <<= 4;
436			d |= xdtoi(*s++);
437		}
438		*ep++ = d;
439	}
440
441	return (e);
442}
443
444#ifndef HAVE_ETHER_HOSTTON
445/* Roll our own */
446u_char *
447pcap_ether_hostton(const char *name)
448{
449	register struct pcap_etherent *ep;
450	register u_char *ap;
451	static FILE *fp = NULL;
452	static int init = 0;
453
454	if (!init) {
455		fp = fopen(PCAP_ETHERS_FILE, "r");
456		++init;
457		if (fp == NULL)
458			return (NULL);
459	} else if (fp == NULL)
460		return (NULL);
461	else
462		rewind(fp);
463
464	while ((ep = pcap_next_etherent(fp)) != NULL) {
465		if (strcmp(ep->name, name) == 0) {
466			ap = (u_char *)malloc(6);
467			if (ap != NULL) {
468				memcpy(ap, ep->addr, 6);
469				return (ap);
470			}
471			break;
472		}
473	}
474	return (NULL);
475}
476#else
477
478#if !defined(HAVE_DECL_ETHER_HOSTTON) || !HAVE_DECL_ETHER_HOSTTON
479#ifndef HAVE_STRUCT_ETHER_ADDR
480struct ether_addr {
481	unsigned char ether_addr_octet[6];
482};
483#endif
484extern int ether_hostton(const char *, struct ether_addr *);
485#endif
486
487/* Use the os supplied routines */
488u_char *
489pcap_ether_hostton(const char *name)
490{
491	register u_char *ap;
492	u_char a[6];
493
494	ap = NULL;
495	if (ether_hostton(name, (struct ether_addr *)a) == 0) {
496		ap = (u_char *)malloc(6);
497		if (ap != NULL)
498			memcpy((char *)ap, (char *)a, 6);
499	}
500	return (ap);
501}
502#endif
503
504u_short
505__pcap_nametodnaddr(const char *name)
506{
507#ifdef	DECNETLIB
508	struct nodeent *getnodebyname();
509	struct nodeent *nep;
510	unsigned short res;
511
512	nep = getnodebyname(name);
513	if (nep == ((struct nodeent *)0))
514		bpf_error("unknown decnet host name '%s'\n", name);
515
516	memcpy((char *)&res, (char *)nep->n_addr, sizeof(unsigned short));
517	return(res);
518#else
519	bpf_error("decnet name support not included, '%s' cannot be translated\n",
520		name);
521	return(0);
522#endif
523}
524