contrib/libpcap/nametoaddr.c

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