xref: /freebsd/contrib/libpcap/nametoaddr.c (revision 6472ac3d8a86336899b6cfb789a4cd9897e3fab5) 
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 
253 		if (*proto != save_proto)
254 			*proto = PROTO_UNDEF;
255 	} else {
256 		*port1 = p1;
257 		*port2 = p2;
258 		*proto = PROTO_UNDEF;
259 	}
260 
261 	return 1;
262 }
263 
264 int
265 pcap_nametoproto(const char *str)
266 {
267 	struct protoent *p;
268 
269 	p = getprotobyname(str);
270 	if (p != 0)
271 		return p->p_proto;
272 	else
273 		return PROTO_UNDEF;
274 }
275 
276 #include "ethertype.h"
277 
278 struct eproto {
279 	const char *s;
280 	u_short p;
281 };
282 
283 /* Static data base of ether protocol types. */
284 struct eproto eproto_db[] = {
285 #if 0
286 	/* The FreeBSD elf linker generates a request to copy this array
287 	 * (including its size) when you link with -lpcap.  In order to
288 	 * not bump the major version number of this libpcap.so, we need
289 	 * to ensure that the array stays the same size.  Since PUP is
290 	 * likely never seen in real life any more, it's the first to
291 	 * be sacrificed (in favor of ip6).
292 	 */
293 	{ "pup", ETHERTYPE_PUP },
294 #endif
295 	{ "xns", ETHERTYPE_NS },
296 	{ "ip", ETHERTYPE_IP },
297 #ifdef INET6
298 	{ "ip6", ETHERTYPE_IPV6 },
299 #endif
300 	{ "arp", ETHERTYPE_ARP },
301 	{ "rarp", ETHERTYPE_REVARP },
302 	{ "sprite", ETHERTYPE_SPRITE },
303 	{ "mopdl", ETHERTYPE_MOPDL },
304 	{ "moprc", ETHERTYPE_MOPRC },
305 	{ "decnet", ETHERTYPE_DN },
306 	{ "lat", ETHERTYPE_LAT },
307 	{ "sca", ETHERTYPE_SCA },
308 	{ "lanbridge", ETHERTYPE_LANBRIDGE },
309 	{ "vexp", ETHERTYPE_VEXP },
310 	{ "vprod", ETHERTYPE_VPROD },
311 	{ "atalk", ETHERTYPE_ATALK },
312 	{ "atalkarp", ETHERTYPE_AARP },
313 	{ "loopback", ETHERTYPE_LOOPBACK },
314 	{ "decdts", ETHERTYPE_DECDTS },
315 	{ "decdns", ETHERTYPE_DECDNS },
316 	{ (char *)0, 0 }
317 };
318 
319 int
320 pcap_nametoeproto(const char *s)
321 {
322 	struct eproto *p = eproto_db;
323 
324 	while (p->s != 0) {
325 		if (strcmp(p->s, s) == 0)
326 			return p->p;
327 		p += 1;
328 	}
329 	return PROTO_UNDEF;
330 }
331 
332 #include "llc.h"
333 
334 /* Static data base of LLC values. */
335 static struct eproto llc_db[] = {
336 	{ "iso", LLCSAP_ISONS },
337 	{ "stp", LLCSAP_8021D },
338 	{ "ipx", LLCSAP_IPX },
339 	{ "netbeui", LLCSAP_NETBEUI },
340 	{ (char *)0, 0 }
341 };
342 
343 int
344 pcap_nametollc(const char *s)
345 {
346 	struct eproto *p = llc_db;
347 
348 	while (p->s != 0) {
349 		if (strcmp(p->s, s) == 0)
350 			return p->p;
351 		p += 1;
352 	}
353 	return PROTO_UNDEF;
354 }
355 
356 /* Hex digit to integer. */
357 static inline int
358 xdtoi(c)
359 	register int c;
360 {
361 	if (isdigit(c))
362 		return c - '0';
363 	else if (islower(c))
364 		return c - 'a' + 10;
365 	else
366 		return c - 'A' + 10;
367 }
368 
369 int
370 __pcap_atoin(const char *s, bpf_u_int32 *addr)
371 {
372 	u_int n;
373 	int len;
374 
375 	*addr = 0;
376 	len = 0;
377 	while (1) {
378 		n = 0;
379 		while (*s && *s != '.')
380 			n = n * 10 + *s++ - '0';
381 		*addr <<= 8;
382 		*addr |= n & 0xff;
383 		len += 8;
384 		if (*s == '\0')
385 			return len;
386 		++s;
387 	}
388 	/* NOTREACHED */
389 }
390 
391 int
392 __pcap_atodn(const char *s, bpf_u_int32 *addr)
393 {
394 #define AREASHIFT 10
395 #define AREAMASK 0176000
396 #define NODEMASK 01777
397 
398 	u_int node, area;
399 
400 	if (sscanf(s, "%d.%d", &area, &node) != 2)
401 		bpf_error("malformed decnet address '%s'", s);
402 
403 	*addr = (area << AREASHIFT) & AREAMASK;
404 	*addr |= (node & NODEMASK);
405 
406 	return(32);
407 }
408 
409 /*
410  * Convert 's', which can have the one of the forms:
411  *
412  *	"xx:xx:xx:xx:xx:xx"
413  *	"xx.xx.xx.xx.xx.xx"
414  *	"xx-xx-xx-xx-xx-xx"
415  *	"xxxx.xxxx.xxxx"
416  *	"xxxxxxxxxxxx"
417  *
418  * (or various mixes of ':', '.', and '-') into a new
419  * ethernet address.  Assumes 's' is well formed.
420  */
421 u_char *
422 pcap_ether_aton(const char *s)
423 {
424 	register u_char *ep, *e;
425 	register u_int d;
426 
427 	e = ep = (u_char *)malloc(6);
428 
429 	while (*s) {
430 		if (*s == ':' || *s == '.' || *s == '-')
431 			s += 1;
432 		d = xdtoi(*s++);
433 		if (isxdigit((unsigned char)*s)) {
434 			d <<= 4;
435 			d |= xdtoi(*s++);
436 		}
437 		*ep++ = d;
438 	}
439 
440 	return (e);
441 }
442 
443 #ifndef HAVE_ETHER_HOSTTON
444 /* Roll our own */
445 u_char *
446 pcap_ether_hostton(const char *name)
447 {
448 	register struct pcap_etherent *ep;
449 	register u_char *ap;
450 	static FILE *fp = NULL;
451 	static int init = 0;
452 
453 	if (!init) {
454 		fp = fopen(PCAP_ETHERS_FILE, "r");
455 		++init;
456 		if (fp == NULL)
457 			return (NULL);
458 	} else if (fp == NULL)
459 		return (NULL);
460 	else
461 		rewind(fp);
462 
463 	while ((ep = pcap_next_etherent(fp)) != NULL) {
464 		if (strcmp(ep->name, name) == 0) {
465 			ap = (u_char *)malloc(6);
466 			if (ap != NULL) {
467 				memcpy(ap, ep->addr, 6);
468 				return (ap);
469 			}
470 			break;
471 		}
472 	}
473 	return (NULL);
474 }
475 #else
476 
477 #if !defined(HAVE_DECL_ETHER_HOSTTON) || !HAVE_DECL_ETHER_HOSTTON
478 #ifndef HAVE_STRUCT_ETHER_ADDR
479 struct ether_addr {
480 	unsigned char ether_addr_octet[6];
481 };
482 #endif
483 extern int ether_hostton(const char *, struct ether_addr *);
484 #endif
485 
486 /* Use the os supplied routines */
487 u_char *
488 pcap_ether_hostton(const char *name)
489 {
490 	register u_char *ap;
491 	u_char a[6];
492 
493 	ap = NULL;
494 	if (ether_hostton(name, (struct ether_addr *)a) == 0) {
495 		ap = (u_char *)malloc(6);
496 		if (ap != NULL)
497 			memcpy((char *)ap, (char *)a, 6);
498 	}
499 	return (ap);
500 }
501 #endif
502 
503 u_short
504 __pcap_nametodnaddr(const char *name)
505 {
506 #ifdef	DECNETLIB
507 	struct nodeent *getnodebyname();
508 	struct nodeent *nep;
509 	unsigned short res;
510 
511 	nep = getnodebyname(name);
512 	if (nep == ((struct nodeent *)0))
513 		bpf_error("unknown decnet host name '%s'\n", name);
514 
515 	memcpy((char *)&res, (char *)nep->n_addr, sizeof(unsigned short));
516 	return(res);
517 #else
518 	bpf_error("decnet name support not included, '%s' cannot be translated\n",
519 		name);
520 	return(0);
521 #endif
522 }
523