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.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 }