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 #ifndef lint
26 static const char rcsid[] _U_ =
27 "@(#) $Header: /tcpdump/master/libpcap/nametoaddr.c,v 1.77.2.4 2007/06/11 09:52:05 guy Exp $ (LBL)";
28 #endif
29
30 #ifdef HAVE_CONFIG_H
31 #include "config.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 /*
48 * XXX - why was this included even on UNIX?
49 */
50 #ifdef __MINGW32__
51 #include "IP6_misc.h"
52 #endif
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 **
pcap_nametoaddr(const char * name)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 *
pcap_nametoaddrinfo(const char * name)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
pcap_nametonetaddr(const char * name)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
pcap_nametoport(const char * name,int * port,int * proto)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
pcap_nametoportrange(const char * name,int * port1,int * port2,int * proto)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
pcap_nametoproto(const char * str)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 { "pup", ETHERTYPE_PUP },
286 { "xns", ETHERTYPE_NS },
287 { "ip", ETHERTYPE_IP },
288 #ifdef INET6
289 { "ip6", ETHERTYPE_IPV6 },
290 #endif
291 { "arp", ETHERTYPE_ARP },
292 { "rarp", ETHERTYPE_REVARP },
293 { "sprite", ETHERTYPE_SPRITE },
294 { "mopdl", ETHERTYPE_MOPDL },
295 { "moprc", ETHERTYPE_MOPRC },
296 { "decnet", ETHERTYPE_DN },
297 { "lat", ETHERTYPE_LAT },
298 { "sca", ETHERTYPE_SCA },
299 { "lanbridge", ETHERTYPE_LANBRIDGE },
300 { "vexp", ETHERTYPE_VEXP },
301 { "vprod", ETHERTYPE_VPROD },
302 { "atalk", ETHERTYPE_ATALK },
303 { "atalkarp", ETHERTYPE_AARP },
304 { "loopback", ETHERTYPE_LOOPBACK },
305 { "decdts", ETHERTYPE_DECDTS },
306 { "decdns", ETHERTYPE_DECDNS },
307 { (char *)0, 0 }
308 };
309
310 int
pcap_nametoeproto(const char * s)311 pcap_nametoeproto(const char *s)
312 {
313 struct eproto *p = eproto_db;
314
315 while (p->s != 0) {
316 if (strcmp(p->s, s) == 0)
317 return p->p;
318 p += 1;
319 }
320 return PROTO_UNDEF;
321 }
322
323 #include "llc.h"
324
325 /* Static data base of LLC values. */
326 static struct eproto llc_db[] = {
327 { "iso", LLCSAP_ISONS },
328 { "stp", LLCSAP_8021D },
329 { "ipx", LLCSAP_IPX },
330 { "netbeui", LLCSAP_NETBEUI },
331 { (char *)0, 0 }
332 };
333
334 int
pcap_nametollc(const char * s)335 pcap_nametollc(const char *s)
336 {
337 struct eproto *p = llc_db;
338
339 while (p->s != 0) {
340 if (strcmp(p->s, s) == 0)
341 return p->p;
342 p += 1;
343 }
344 return PROTO_UNDEF;
345 }
346
347 /* Hex digit to integer. */
348 static inline int
xdtoi(c)349 xdtoi(c)
350 register int c;
351 {
352 if (isdigit(c))
353 return c - '0';
354 else if (islower(c))
355 return c - 'a' + 10;
356 else
357 return c - 'A' + 10;
358 }
359
360 int
__pcap_atoin(const char * s,bpf_u_int32 * addr)361 __pcap_atoin(const char *s, bpf_u_int32 *addr)
362 {
363 u_int n;
364 int len;
365
366 *addr = 0;
367 len = 0;
368 while (1) {
369 n = 0;
370 while (*s && *s != '.')
371 n = n * 10 + *s++ - '0';
372 *addr <<= 8;
373 *addr |= n & 0xff;
374 len += 8;
375 if (*s == '\0')
376 return len;
377 ++s;
378 }
379 /* NOTREACHED */
380 }
381
382 int
__pcap_atodn(const char * s,bpf_u_int32 * addr)383 __pcap_atodn(const char *s, bpf_u_int32 *addr)
384 {
385 #define AREASHIFT 10
386 #define AREAMASK 0176000
387 #define NODEMASK 01777
388
389 u_int node, area;
390
391 if (sscanf(s, "%d.%d", &area, &node) != 2)
392 bpf_error("malformed decnet address '%s'", s);
393
394 *addr = (area << AREASHIFT) & AREAMASK;
395 *addr |= (node & NODEMASK);
396
397 return(32);
398 }
399
400 /*
401 * Convert 's' which has the form "xx:xx:xx:xx:xx:xx" into a new
402 * ethernet address. Assumes 's' is well formed.
403 */
404 u_char *
pcap_ether_aton(const char * s)405 pcap_ether_aton(const char *s)
406 {
407 register u_char *ep, *e;
408 register u_int d;
409
410 e = ep = (u_char *)malloc(6);
411
412 while (*s) {
413 if (*s == ':')
414 s += 1;
415 d = xdtoi(*s++);
416 if (isxdigit((unsigned char)*s)) {
417 d <<= 4;
418 d |= xdtoi(*s++);
419 }
420 *ep++ = d;
421 }
422
423 return (e);
424 }
425
426 #ifndef HAVE_ETHER_HOSTTON
427 /* Roll our own */
428 u_char *
pcap_ether_hostton(const char * name)429 pcap_ether_hostton(const char *name)
430 {
431 register struct pcap_etherent *ep;
432 register u_char *ap;
433 static FILE *fp = NULL;
434 static int init = 0;
435
436 if (!init) {
437 fp = fopen(PCAP_ETHERS_FILE, "r");
438 ++init;
439 if (fp == NULL)
440 return (NULL);
441 } else if (fp == NULL)
442 return (NULL);
443 else
444 rewind(fp);
445
446 while ((ep = pcap_next_etherent(fp)) != NULL) {
447 if (strcmp(ep->name, name) == 0) {
448 ap = (u_char *)malloc(6);
449 if (ap != NULL) {
450 memcpy(ap, ep->addr, 6);
451 return (ap);
452 }
453 break;
454 }
455 }
456 return (NULL);
457 }
458 #else
459
460 #if !defined(HAVE_DECL_ETHER_HOSTTON) || !HAVE_DECL_ETHER_HOSTTON
461 #ifndef HAVE_STRUCT_ETHER_ADDR
462 struct ether_addr {
463 unsigned char ether_addr_octet[6];
464 };
465 #endif
466 extern int ether_hostton(const char *, struct ether_addr *);
467 #endif
468
469 /* Use the os supplied routines */
470 u_char *
pcap_ether_hostton(const char * name)471 pcap_ether_hostton(const char *name)
472 {
473 register u_char *ap;
474 u_char a[6];
475
476 ap = NULL;
477 if (ether_hostton(name, (struct ether_addr *)a) == 0) {
478 ap = (u_char *)malloc(6);
479 if (ap != NULL)
480 memcpy((char *)ap, (char *)a, 6);
481 }
482 return (ap);
483 }
484 #endif
485
486 u_short
__pcap_nametodnaddr(const char * name)487 __pcap_nametodnaddr(const char *name)
488 {
489 #ifdef DECNETLIB
490 struct nodeent *getnodebyname();
491 struct nodeent *nep;
492 unsigned short res;
493
494 nep = getnodebyname(name);
495 if (nep == ((struct nodeent *)0))
496 bpf_error("unknown decnet host name '%s'\n", name);
497
498 memcpy((char *)&res, (char *)nep->n_addr, sizeof(unsigned short));
499 return(res);
500 #else
501 bpf_error("decnet name support not included, '%s' cannot be translated\n",
502 name);
503 return(0);
504 #endif
505 }
506