kernel - Fix auto port assignment collision in network code

[dragonfly.git] / contrib / libpcap / nametoaddr.c

/*
 * Copyright (c) 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998
 *      The Regents of the University of California.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that: (1) source code distributions
 * retain the above copyright notice and this paragraph in its entirety, (2)
 * distributions including binary code include the above copyright notice and
 * this paragraph in its entirety in the documentation or other materials
 * provided with the distribution, and (3) all advertising materials mentioning
 * features or use of this software display the following acknowledgement:
 * ``This product includes software developed by the University of California,
 * Lawrence Berkeley Laboratory and its contributors.'' Neither the name of
 * the University nor the names of its contributors may be used to endorse
 * or promote products derived from this software without specific prior
 * written permission.
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
 * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 *
 * Name to id translation routines used by the scanner.
 * These functions are not time critical.
 */

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#ifdef DECNETLIB
#include <sys/types.h>
#include <netdnet/dnetdb.h>
#endif

#ifdef _WIN32
  #include <winsock2.h>
  #include <ws2tcpip.h>

  #ifdef INET6
    /*
     * To quote the MSDN page for getaddrinfo() at
     *
     *    https://msdn.microsoft.com/en-us/library/windows/desktop/ms738520(v=vs.85).aspx
     *
     * "Support for getaddrinfo on Windows 2000 and older versions
     * The getaddrinfo function was added to the Ws2_32.dll on Windows XP and
     * later. To execute an application that uses this function on earlier
     * versions of Windows, then you need to include the Ws2tcpip.h and
     * Wspiapi.h files. When the Wspiapi.h include file is added, the
     * getaddrinfo function is defined to the WspiapiGetAddrInfo inline
     * function in the Wspiapi.h file. At runtime, the WspiapiGetAddrInfo
     * function is implemented in such a way that if the Ws2_32.dll or the
     * Wship6.dll (the file containing getaddrinfo in the IPv6 Technology
     * Preview for Windows 2000) does not include getaddrinfo, then a
     * version of getaddrinfo is implemented inline based on code in the
     * Wspiapi.h header file. This inline code will be used on older Windows
     * platforms that do not natively support the getaddrinfo function."
     *
     * We use getaddrinfo(), so we include Wspiapi.h here.
     */
    #include <wspiapi.h>
  #endif /* INET6 */
#else /* _WIN32 */
  #include <sys/param.h>
  #include <sys/types.h>
  #include <sys/socket.h>
  #include <sys/time.h>

  #include <netinet/in.h>

  #ifdef HAVE_ETHER_HOSTTON
    #if defined(NET_ETHERNET_H_DECLARES_ETHER_HOSTTON)
      /*
       * OK, just include <net/ethernet.h>.
       */
      #include <net/ethernet.h>
    #elif defined(NETINET_ETHER_H_DECLARES_ETHER_HOSTTON)
      /*
       * OK, just include <netinet/ether.h>
       */
      #include <netinet/ether.h>
    #elif defined(SYS_ETHERNET_H_DECLARES_ETHER_HOSTTON)
      /*
       * OK, just include <sys/ethernet.h>
       */
      #include <sys/ethernet.h>
    #elif defined(ARPA_INET_H_DECLARES_ETHER_HOSTTON)
      /*
       * OK, just include <arpa/inet.h>
       */
      #include <arpa/inet.h>
    #elif defined(NETINET_IF_ETHER_H_DECLARES_ETHER_HOSTTON)
      /*
       * OK, include <netinet/if_ether.h>, after all the other stuff we
       * need to include or define for its benefit.
       */
      #define NEED_NETINET_IF_ETHER_H
    #else
      /*
       * We'll have to declare it ourselves.
       * If <netinet/if_ether.h> defines struct ether_addr, include
       * it.  Otherwise, define it ourselves.
       */
      #ifdef HAVE_STRUCT_ETHER_ADDR
        #define NEED_NETINET_IF_ETHER_H
      #else /* HAVE_STRUCT_ETHER_ADDR */
        struct ether_addr {
                unsigned char ether_addr_octet[6];
        };
      #endif /* HAVE_STRUCT_ETHER_ADDR */
    #endif /* what declares ether_hostton() */

    #ifdef NEED_NETINET_IF_ETHER_H
      #include <net/if.h>       /* Needed on some platforms */
      #include <netinet/in.h>   /* Needed on some platforms */
      #include <netinet/if_ether.h>
    #endif /* NEED_NETINET_IF_ETHER_H */

    #ifndef HAVE_DECL_ETHER_HOSTTON
      /*
       * No header declares it, so declare it ourselves.
       */
      extern int ether_hostton(const char *, struct ether_addr *);
    #endif /* !defined(HAVE_DECL_ETHER_HOSTTON) */
  #endif /* HAVE_ETHER_HOSTTON */

  #include <arpa/inet.h>
  #include <netdb.h>
#endif /* _WIN32 */

#include <errno.h>
#include <stdlib.h>
#include <string.h>
#include <stdio.h>

#include "pcap-int.h"

#include "diag-control.h"

#include "gencode.h"
#include <pcap/namedb.h>
#include "nametoaddr.h"

#ifdef HAVE_OS_PROTO_H
#include "os-proto.h"
#endif

#ifndef NTOHL
#define NTOHL(x) (x) = ntohl(x)
#define NTOHS(x) (x) = ntohs(x)
#endif

/*
 *  Convert host name to internet address.
 *  Return 0 upon failure.
 *  XXX - not thread-safe; don't use it inside libpcap.
 */
bpf_u_int32 **
pcap_nametoaddr(const char *name)
{
#ifndef h_addr
        static bpf_u_int32 *hlist[2];
#endif
        bpf_u_int32 **p;
        struct hostent *hp;

        /*
         * gethostbyname() is deprecated on Windows, perhaps because
         * it's not thread-safe, or because it doesn't support IPv6,
         * or both.
         *
         * We deprecate pcap_nametoaddr() on all platforms because
         * it's not thread-safe; we supply it for backwards compatibility,
         * so suppress the deprecation warning.  We could, I guess,
         * use getaddrinfo() and construct the array ourselves, but
         * that's probably not worth the effort, as that wouldn't make
         * this thread-safe - we can't change the API to require that
         * our caller free the address array, so we still have to reuse
         * a local array.
         */
DIAG_OFF_DEPRECATION
        if ((hp = gethostbyname(name)) != NULL) {
DIAG_ON_DEPRECATION
#ifndef h_addr
                hlist[0] = (bpf_u_int32 *)hp->h_addr;
                NTOHL(hp->h_addr);
                return hlist;
#else
                for (p = (bpf_u_int32 **)hp->h_addr_list; *p; ++p)
                        NTOHL(**p);
                return (bpf_u_int32 **)hp->h_addr_list;
#endif
        }
        else
                return 0;
}

struct addrinfo *
pcap_nametoaddrinfo(const char *name)
{
        struct addrinfo hints, *res;
        int error;

        memset(&hints, 0, sizeof(hints));
        hints.ai_family = PF_UNSPEC;
        hints.ai_socktype = SOCK_STREAM;        /*not really*/
        hints.ai_protocol = IPPROTO_TCP;        /*not really*/
        error = getaddrinfo(name, NULL, &hints, &res);
        if (error)
                return NULL;
        else
                return res;
}

/*
 *  Convert net name to internet address.
 *  Return 0 upon failure.
 *  XXX - not guaranteed to be thread-safe!  See below for platforms
 *  on which it is thread-safe and on which it isn't.
 */
#if defined(_WIN32) || defined(__CYGWIN__)
bpf_u_int32
pcap_nametonetaddr(const char *name _U_)
{
        /*
         * There's no "getnetbyname()" on Windows.
         *
         * XXX - I guess we could use the BSD code to read
         * C:\Windows\System32\drivers\etc/networks, assuming
         * that's its home on all the versions of Windows
         * we use, but that file probably just has the loopback
         * network on 127/24 on 99 44/100% of Windows machines.
         *
         * (Heck, these days it probably just has that on 99 44/100%
         * of *UN*X* machines.)
         */
        return 0;
}
#else /* _WIN32 */
bpf_u_int32
pcap_nametonetaddr(const char *name)
{
        /*
         * UN*X.
         */
        struct netent *np;
  #if defined(HAVE_LINUX_GETNETBYNAME_R)
        /*
         * We have Linux's reentrant getnetbyname_r().
         */
        struct netent result_buf;
        char buf[1024]; /* arbitrary size */
        int h_errnoval;
        int err;

        /*
         * Apparently, the man page at
         *
         *    http://man7.org/linux/man-pages/man3/getnetbyname_r.3.html
         *
         * lies when it says
         *
         *    If the function call successfully obtains a network record,
         *    then *result is set pointing to result_buf; otherwise, *result
         *    is set to NULL.
         *
         * and, in fact, at least in some versions of GNU libc, it does
         * *not* always get set if getnetbyname_r() succeeds.
         */
        np = NULL;
        err = getnetbyname_r(name, &result_buf, buf, sizeof buf, &np,
            &h_errnoval);
        if (err != 0) {
                /*
                 * XXX - dynamically allocate the buffer, and make it
                 * bigger if we get ERANGE back?
                 */
                return 0;
        }
  #elif defined(HAVE_SOLARIS_IRIX_GETNETBYNAME_R)
        /*
         * We have Solaris's and IRIX's reentrant getnetbyname_r().
         */
        struct netent result_buf;
        char buf[1024]; /* arbitrary size */

        np = getnetbyname_r(name, &result_buf, buf, (int)sizeof buf);
  #elif defined(HAVE_AIX_GETNETBYNAME_R)
        /*
         * We have AIX's reentrant getnetbyname_r().
         */
        struct netent result_buf;
        struct netent_data net_data;

        if (getnetbyname_r(name, &result_buf, &net_data) == -1)
                np = NULL;
        else
                np = &result_buf;
  #else
        /*
         * We don't have any getnetbyname_r(); either we have a
         * getnetbyname() that uses thread-specific data, in which
         * case we're thread-safe (sufficiently recent FreeBSD,
         * sufficiently recent Darwin-based OS, sufficiently recent
         * HP-UX, sufficiently recent Tru64 UNIX), or we have the
         * traditional getnetbyname() (everything else, including
         * current NetBSD and OpenBSD), in which case we're not
         * thread-safe.
         */
        np = getnetbyname(name);
  #endif
        if (np != NULL)
                return np->n_net;
        else
                return 0;
}
#endif /* _WIN32 */

/*
 * Convert a port name to its port and protocol numbers.
 * We assume only TCP or UDP.
 * Return 0 upon failure.
 */
int
pcap_nametoport(const char *name, int *port, int *proto)
{
        struct addrinfo hints, *res, *ai;
        int error;
        struct sockaddr_in *in4;
#ifdef INET6
        struct sockaddr_in6 *in6;
#endif
        int tcp_port = -1;
        int udp_port = -1;

        /*
         * We check for both TCP and UDP in case there are
         * ambiguous entries.
         */
        memset(&hints, 0, sizeof(hints));
        hints.ai_family = PF_UNSPEC;
        hints.ai_socktype = SOCK_STREAM;
        hints.ai_protocol = IPPROTO_TCP;
        error = getaddrinfo(NULL, name, &hints, &res);
        if (error != 0) {
                if (error != EAI_NONAME &&
                    error != EAI_SERVICE) {
                        /*
                         * This is a real error, not just "there's
                         * no such service name".
                         * XXX - this doesn't return an error string.
                         */
                        return 0;
                }
        } else {
                /*
                 * OK, we found it.  Did it find anything?
                 */
                for (ai = res; ai != NULL; ai = ai->ai_next) {
                        /*
                         * Does it have an address?
                         */
                        if (ai->ai_addr != NULL) {
                                /*
                                 * Yes.  Get a port number; we're done.
                                 */
                                if (ai->ai_addr->sa_family == AF_INET) {
                                        in4 = (struct sockaddr_in *)ai->ai_addr;
                                        tcp_port = ntohs(in4->sin_port);
                                        break;
                                }
#ifdef INET6
                                if (ai->ai_addr->sa_family == AF_INET6) {
                                        in6 = (struct sockaddr_in6 *)ai->ai_addr;
                                        tcp_port = ntohs(in6->sin6_port);
                                        break;
                                }
#endif
                        }
                }
                freeaddrinfo(res);
        }

        memset(&hints, 0, sizeof(hints));
        hints.ai_family = PF_UNSPEC;
        hints.ai_socktype = SOCK_DGRAM;
        hints.ai_protocol = IPPROTO_UDP;
        error = getaddrinfo(NULL, name, &hints, &res);
        if (error != 0) {
                if (error != EAI_NONAME &&
                    error != EAI_SERVICE) {
                        /*
                         * This is a real error, not just "there's
                         * no such service name".
                         * XXX - this doesn't return an error string.
                         */
                        return 0;
                }
        } else {
                /*
                 * OK, we found it.  Did it find anything?
                 */
                for (ai = res; ai != NULL; ai = ai->ai_next) {
                        /*
                         * Does it have an address?
                         */
                        if (ai->ai_addr != NULL) {
                                /*
                                 * Yes.  Get a port number; we're done.
                                 */
                                if (ai->ai_addr->sa_family == AF_INET) {
                                        in4 = (struct sockaddr_in *)ai->ai_addr;
                                        udp_port = ntohs(in4->sin_port);
                                        break;
                                }
#ifdef INET6
                                if (ai->ai_addr->sa_family == AF_INET6) {
                                        in6 = (struct sockaddr_in6 *)ai->ai_addr;
                                        udp_port = ntohs(in6->sin6_port);
                                        break;
                                }
#endif
                        }
                }
                freeaddrinfo(res);
        }

        /*
         * We need to check /etc/services for ambiguous entries.
         * If we find an ambiguous entry, and it has the
         * same port number, change the proto to PROTO_UNDEF
         * so both TCP and UDP will be checked.
         */
        if (tcp_port >= 0) {
                *port = tcp_port;
                *proto = IPPROTO_TCP;
                if (udp_port >= 0) {
                        if (udp_port == tcp_port)
                                *proto = PROTO_UNDEF;
#ifdef notdef
                        else
                                /* Can't handle ambiguous names that refer
                                   to different port numbers. */
                                warning("ambiguous port %s in /etc/services",
                                        name);
#endif
                }
                return 1;
        }
        if (udp_port >= 0) {
                *port = udp_port;
                *proto = IPPROTO_UDP;
                return 1;
        }
#if defined(ultrix) || defined(__osf__)
        /* Special hack in case NFS isn't in /etc/services */
        if (strcmp(name, "nfs") == 0) {
                *port = 2049;
                *proto = PROTO_UNDEF;
                return 1;
        }
#endif
        return 0;
}

/*
 * Convert a string in the form PPP-PPP, where correspond to ports, to
 * a starting and ending port in a port range.
 * Return 0 on failure.
 */
int
pcap_nametoportrange(const char *name, int *port1, int *port2, int *proto)
{
        u_int p1, p2;
        char *off, *cpy;
        int save_proto;

        if (sscanf(name, "%d-%d", &p1, &p2) != 2) {
                if ((cpy = strdup(name)) == NULL)
                        return 0;

                if ((off = strchr(cpy, '-')) == NULL) {
                        free(cpy);
                        return 0;
                }

                *off = '\0';

                if (pcap_nametoport(cpy, port1, proto) == 0) {
                        free(cpy);
                        return 0;
                }
                save_proto = *proto;

                if (pcap_nametoport(off + 1, port2, proto) == 0) {
                        free(cpy);
                        return 0;
                }
                free(cpy);

                if (*proto != save_proto)
                        *proto = PROTO_UNDEF;
        } else {
                *port1 = p1;
                *port2 = p2;
                *proto = PROTO_UNDEF;
        }

        return 1;
}

/*
 * XXX - not guaranteed to be thread-safe!  See below for platforms
 * on which it is thread-safe and on which it isn't.
 */
int
pcap_nametoproto(const char *str)
{
        struct protoent *p;
  #if defined(HAVE_LINUX_GETNETBYNAME_R)
        /*
         * We have Linux's reentrant getprotobyname_r().
         */
        struct protoent result_buf;
        char buf[1024]; /* arbitrary size */
        int err;

        err = getprotobyname_r(str, &result_buf, buf, sizeof buf, &p);
        if (err != 0) {
                /*
                 * XXX - dynamically allocate the buffer, and make it
                 * bigger if we get ERANGE back?
                 */
                return 0;
        }
  #elif defined(HAVE_SOLARIS_IRIX_GETNETBYNAME_R)
        /*
         * We have Solaris's and IRIX's reentrant getprotobyname_r().
         */
        struct protoent result_buf;
        char buf[1024]; /* arbitrary size */

        p = getprotobyname_r(str, &result_buf, buf, (int)sizeof buf);
  #elif defined(HAVE_AIX_GETNETBYNAME_R)
        /*
         * We have AIX's reentrant getprotobyname_r().
         */
        struct protoent result_buf;
        struct protoent_data proto_data;

        if (getprotobyname_r(str, &result_buf, &proto_data) == -1)
                p = NULL;
        else
                p = &result_buf;
  #else
        /*
         * We don't have any getprotobyname_r(); either we have a
         * getprotobyname() that uses thread-specific data, in which
         * case we're thread-safe (sufficiently recent FreeBSD,
         * sufficiently recent Darwin-based OS, sufficiently recent
         * HP-UX, sufficiently recent Tru64 UNIX, Windows), or we have
         * the traditional getprotobyname() (everything else, including
         * current NetBSD and OpenBSD), in which case we're not
         * thread-safe.
         */
        p = getprotobyname(str);
  #endif
        if (p != 0)
                return p->p_proto;
        else
                return PROTO_UNDEF;
}

#include "ethertype.h"

struct eproto {
        const char *s;
        u_short p;
};

/*
 * Static data base of ether protocol types.
 * tcpdump used to import this, and it's declared as an export on
 * Debian, at least, so make it a public symbol, even though we
 * don't officially export it by declaring it in a header file.
 * (Programs *should* do this themselves, as tcpdump now does.)
 *
 * We declare it here, right before defining it, to squelch any
 * warnings we might get from compilers about the lack of a
 * declaration.
 */
PCAP_API struct eproto eproto_db[];
PCAP_API_DEF struct eproto eproto_db[] = {
        { "aarp", ETHERTYPE_AARP },
        { "arp", ETHERTYPE_ARP },
        { "atalk", ETHERTYPE_ATALK },
        { "decnet", ETHERTYPE_DN },
        { "ip", ETHERTYPE_IP },
#ifdef INET6
        { "ip6", ETHERTYPE_IPV6 },
#endif
        { "lat", ETHERTYPE_LAT },
        { "loopback", ETHERTYPE_LOOPBACK },
        { "mopdl", ETHERTYPE_MOPDL },
        { "moprc", ETHERTYPE_MOPRC },
        { "rarp", ETHERTYPE_REVARP },
        { "sca", ETHERTYPE_SCA },
        { (char *)0, 0 }
};

int
pcap_nametoeproto(const char *s)
{
        struct eproto *p = eproto_db;

        while (p->s != 0) {
                if (strcmp(p->s, s) == 0)
                        return p->p;
                p += 1;
        }
        return PROTO_UNDEF;
}

#include "llc.h"

/* Static data base of LLC values. */
static struct eproto llc_db[] = {
        { "iso", LLCSAP_ISONS },
        { "stp", LLCSAP_8021D },
        { "ipx", LLCSAP_IPX },
        { "netbeui", LLCSAP_NETBEUI },
        { (char *)0, 0 }
};

int
pcap_nametollc(const char *s)
{
        struct eproto *p = llc_db;

        while (p->s != 0) {
                if (strcmp(p->s, s) == 0)
                        return p->p;
                p += 1;
        }
        return PROTO_UNDEF;
}

/* Hex digit to 8-bit unsigned integer. */
static inline u_char
xdtoi(u_char c)
{
        if (c >= '0' && c <= '9')
                return (u_char)(c - '0');
        else if (c >= 'a' && c <= 'f')
                return (u_char)(c - 'a' + 10);
        else
                return (u_char)(c - 'A' + 10);
}

int
__pcap_atoin(const char *s, bpf_u_int32 *addr)
{
        u_int n;
        int len;

        *addr = 0;
        len = 0;
        for (;;) {
                n = 0;
                while (*s && *s != '.') {
                        if (n > 25) {
                                /* The result will be > 255 */
                                return -1;
                        }
                        n = n * 10 + *s++ - '0';
                }
                if (n > 255)
                        return -1;
                *addr <<= 8;
                *addr |= n & 0xff;
                len += 8;
                if (*s == '\0')
                        return len;
                ++s;
        }
        /* NOTREACHED */
}

int
__pcap_atodn(const char *s, bpf_u_int32 *addr)
{
#define AREASHIFT 10
#define AREAMASK 0176000
#define NODEMASK 01777

        u_int node, area;

        if (sscanf(s, "%d.%d", &area, &node) != 2)
                return(0);

        *addr = (area << AREASHIFT) & AREAMASK;
        *addr |= (node & NODEMASK);

        return(32);
}

/*
 * Convert 's', which can have the one of the forms:
 *
 *      "xx:xx:xx:xx:xx:xx"
 *      "xx.xx.xx.xx.xx.xx"
 *      "xx-xx-xx-xx-xx-xx"
 *      "xxxx.xxxx.xxxx"
 *      "xxxxxxxxxxxx"
 *
 * (or various mixes of ':', '.', and '-') into a new
 * ethernet address.  Assumes 's' is well formed.
 */
u_char *
pcap_ether_aton(const char *s)
{
        register u_char *ep, *e;
        register u_char d;

        e = ep = (u_char *)malloc(6);
        if (e == NULL)
                return (NULL);

        while (*s) {
                if (*s == ':' || *s == '.' || *s == '-')
                        s += 1;
                d = xdtoi(*s++);
                if (PCAP_ISXDIGIT(*s)) {
                        d <<= 4;
                        d |= xdtoi(*s++);
                }
                *ep++ = d;
        }

        return (e);
}

#ifndef HAVE_ETHER_HOSTTON
/*
 * Roll our own.
 * XXX - not thread-safe, because pcap_next_etherent() isn't thread-
 * safe!  Needs a mutex or a thread-safe pcap_next_etherent().
 */
u_char *
pcap_ether_hostton(const char *name)
{
        register struct pcap_etherent *ep;
        register u_char *ap;
        static FILE *fp = NULL;
        static int init = 0;

        if (!init) {
                fp = fopen(PCAP_ETHERS_FILE, "r");
                ++init;
                if (fp == NULL)
                        return (NULL);
        } else if (fp == NULL)
                return (NULL);
        else
                rewind(fp);

        while ((ep = pcap_next_etherent(fp)) != NULL) {
                if (strcmp(ep->name, name) == 0) {
                        ap = (u_char *)malloc(6);
                        if (ap != NULL) {
                                memcpy(ap, ep->addr, 6);
                                return (ap);
                        }
                        break;
                }
        }
        return (NULL);
}
#else
/*
 * Use the OS-supplied routine.
 * This *should* be thread-safe; the API doesn't have a static buffer.
 */
u_char *
pcap_ether_hostton(const char *name)
{
        register u_char *ap;
        u_char a[6];

        ap = NULL;
        if (ether_hostton(name, (struct ether_addr *)a) == 0) {
                ap = (u_char *)malloc(6);
                if (ap != NULL)
                        memcpy((char *)ap, (char *)a, 6);
        }
        return (ap);
}
#endif

/*
 * XXX - not guaranteed to be thread-safe!
 */
int
#ifdef  DECNETLIB
__pcap_nametodnaddr(const char *name, u_short *res)
{
        struct nodeent *getnodebyname();
        struct nodeent *nep;

        nep = getnodebyname(name);
        if (nep == ((struct nodeent *)0))
                return(0);

        memcpy((char *)res, (char *)nep->n_addr, sizeof(unsigned short));
        return(1);
#else
__pcap_nametodnaddr(const char *name _U_, u_short *res _U_)
{
        return(0);
#endif
}