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