xref: /freebsd/contrib/libpcap/nametoaddr.c (revision 3f0164abf32b9b761e0a2cb4bdca3a8b84f156d4) 
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
28 static 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
61 struct mbuf;		/* Squelch compiler warnings on some platforms for */
62 struct 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 
94 static inline int xdtoi(int);
95 
96 /*
97  *  Convert host name to internet address.
98  *  Return 0 upon failure.
99  */
100 bpf_u_int32 **
101 pcap_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
125 struct addrinfo *
126 pcap_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  */
147 bpf_u_int32
148 pcap_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  */
170 int
171 pcap_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  */
224 int
225 pcap_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 
265 int
266 pcap_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 
279 struct eproto {
280 	const char *s;
281 	u_short p;
282 };
283 
284 /* Static data base of ether protocol types. */
285 struct 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 
320 int
321 pcap_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. */
336 static 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 
344 int
345 pcap_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. */
358 static inline int
359 xdtoi(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 
370 int
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 
392 int
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  */
422 u_char *
423 pcap_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 */
446 u_char *
447 pcap_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
480 struct ether_addr {
481 	unsigned char ether_addr_octet[6];
482 };
483 #endif
484 extern int ether_hostton(const char *, struct ether_addr *);
485 #endif
486 
487 /* Use the os supplied routines */
488 u_char *
489 pcap_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 
504 u_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