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 *
| 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 *
|
30#endif 31 32#ifdef HAVE_CONFIG_H 33#include "config.h" 34#endif 35 36#include <sys/param.h> 37#include <sys/types.h> /* concession to AIX */ 38#include <sys/socket.h> 39#include <sys/time.h> 40 41struct mbuf; 42struct rtentry; 43#include <net/if.h> 44#include <netinet/in.h> 45#ifdef HAVE_NETINET_IF_ETHER_H 46#include <netinet/if_ether.h> 47#endif 48#include <arpa/inet.h> 49#ifdef INET6 50#include <netdb.h> 51#include <sys/socket.h> 52#endif /*INET6*/ 53 54#include <ctype.h> 55#include <errno.h> 56#include <stdlib.h> 57#include <memory.h> 58#include <netdb.h> 59#include <stdio.h> 60 61#include "pcap-int.h" 62 63#include "gencode.h" 64#include <pcap-namedb.h> 65 66#ifdef HAVE_OS_PROTO_H 67#include "os-proto.h" 68#endif 69 70#ifndef NTOHL 71#define NTOHL(x) (x) = ntohl(x) 72#define NTOHS(x) (x) = ntohs(x) 73#endif 74 75static inline int xdtoi(int); 76 77/* 78 * Convert host name to internet address. 79 * Return 0 upon failure. 80 */ 81bpf_u_int32 ** 82pcap_nametoaddr(const char *name) 83{ 84#ifndef h_addr 85 static bpf_u_int32 *hlist[2]; 86#endif 87 bpf_u_int32 **p; 88 struct hostent *hp; 89 90 if ((hp = gethostbyname(name)) != NULL) { 91#ifndef h_addr 92 hlist[0] = (bpf_u_int32 *)hp->h_addr; 93 NTOHL(hp->h_addr); 94 return hlist; 95#else 96 for (p = (bpf_u_int32 **)hp->h_addr_list; *p; ++p) 97 NTOHL(**p); 98 return (bpf_u_int32 **)hp->h_addr_list; 99#endif 100 } 101 else 102 return 0; 103} 104 105#ifdef INET6 106struct addrinfo * 107pcap_nametoaddrinfo(const char *name) 108{ 109 struct addrinfo hints, *res; 110 int error; 111 112 memset(&hints, 0, sizeof(hints)); 113 hints.ai_family = PF_UNSPEC; 114 hints.ai_socktype = SOCK_STREAM; /*not really*/ 115 error = getaddrinfo(name, NULL, &hints, &res); 116 if (error) 117 return NULL; 118 else 119 return res; 120} 121#endif /*INET6*/ 122 123/* 124 * Convert net name to internet address. 125 * Return 0 upon failure. 126 */ 127bpf_u_int32 128pcap_nametonetaddr(const char *name) 129{ 130 struct netent *np; 131 132 if ((np = getnetbyname(name)) != NULL) 133 return np->n_net; 134 else 135 return 0; 136} 137 138/* 139 * Convert a port name to its port and protocol numbers. 140 * We assume only TCP or UDP. 141 * Return 0 upon failure. 142 */ 143int 144pcap_nametoport(const char *name, int *port, int *proto) 145{ 146 struct servent *sp; 147 char *other; 148 149 sp = getservbyname(name, (char *)0); 150 if (sp != NULL) { 151 NTOHS(sp->s_port); 152 *port = sp->s_port; 153 *proto = pcap_nametoproto(sp->s_proto); 154 /* 155 * We need to check /etc/services for ambiguous entries. 156 * If we find the ambiguous entry, and it has the 157 * same port number, change the proto to PROTO_UNDEF 158 * so both TCP and UDP will be checked. 159 */ 160 if (*proto == IPPROTO_TCP) 161 other = "udp"; 162 else 163 other = "tcp"; 164 165 sp = getservbyname(name, other); 166 if (sp != 0) { 167 NTOHS(sp->s_port); 168#ifdef notdef 169 if (*port != sp->s_port) 170 /* Can't handle ambiguous names that refer 171 to different port numbers. */ 172 warning("ambiguous port %s in /etc/services", 173 name); 174#endif 175 *proto = PROTO_UNDEF; 176 } 177 return 1; 178 } 179#if defined(ultrix) || defined(__osf__) 180 /* Special hack in case NFS isn't in /etc/services */ 181 if (strcmp(name, "nfs") == 0) { 182 *port = 2049; 183 *proto = PROTO_UNDEF; 184 return 1; 185 } 186#endif 187 return 0; 188} 189 190int 191pcap_nametoproto(const char *str) 192{ 193 struct protoent *p; 194 195 p = getprotobyname(str); 196 if (p != 0) 197 return p->p_proto; 198 else 199 return PROTO_UNDEF; 200} 201 202#include "ethertype.h" 203 204struct eproto { 205 char *s; 206 u_short p; 207}; 208 209/* Static data base of ether protocol types. */ 210struct eproto eproto_db[] = { 211#if 0 212 /* The FreeBSD elf linker generates a request to copy this array 213 * (including its size) when you link with -lpcap. In order to 214 * not bump the major version number of this libpcap.so, we need 215 * to ensure that the array stays the same size. Since PUP is 216 * likely never seen in real life any more, it's the first to 217 * be sacrificed (in favor of ip6). 218 */ 219 { "pup", ETHERTYPE_PUP }, 220#endif 221 { "xns", ETHERTYPE_NS }, 222 { "ip", ETHERTYPE_IP }, 223#ifdef INET6 224 { "ip6", ETHERTYPE_IPV6 }, 225#endif 226 { "arp", ETHERTYPE_ARP }, 227 { "rarp", ETHERTYPE_REVARP }, 228 { "sprite", ETHERTYPE_SPRITE }, 229 { "mopdl", ETHERTYPE_MOPDL }, 230 { "moprc", ETHERTYPE_MOPRC }, 231 { "decnet", ETHERTYPE_DN }, 232 { "lat", ETHERTYPE_LAT }, 233 { "sca", ETHERTYPE_SCA }, 234 { "lanbridge", ETHERTYPE_LANBRIDGE }, 235 { "vexp", ETHERTYPE_VEXP }, 236 { "vprod", ETHERTYPE_VPROD }, 237 { "atalk", ETHERTYPE_ATALK }, 238 { "atalkarp", ETHERTYPE_AARP }, 239 { "loopback", ETHERTYPE_LOOPBACK }, 240 { "decdts", ETHERTYPE_DECDTS }, 241 { "decdns", ETHERTYPE_DECDNS }, 242 { (char *)0, 0 } 243}; 244 245int 246pcap_nametoeproto(const char *s) 247{ 248 struct eproto *p = eproto_db; 249 250 while (p->s != 0) { 251 if (strcmp(p->s, s) == 0) 252 return p->p; 253 p += 1; 254 } 255 return PROTO_UNDEF; 256} 257 258/* Hex digit to integer. */ 259static inline int 260xdtoi(c) 261 register int c; 262{ 263 if (isdigit(c)) 264 return c - '0'; 265 else if (islower(c)) 266 return c - 'a' + 10; 267 else 268 return c - 'A' + 10; 269} 270 271int 272__pcap_atoin(const char *s, bpf_u_int32 *addr) 273{ 274 u_int n; 275 int len; 276 277 *addr = 0; 278 len = 0; 279 while (1) { 280 n = 0; 281 while (*s && *s != '.') 282 n = n * 10 + *s++ - '0'; 283 *addr <<= 8; 284 *addr |= n & 0xff; 285 len += 8; 286 if (*s == '\0') 287 return len; 288 ++s; 289 } 290 /* NOTREACHED */ 291} 292 293int 294__pcap_atodn(const char *s, bpf_u_int32 *addr) 295{ 296#define AREASHIFT 10 297#define AREAMASK 0176000 298#define NODEMASK 01777 299 300 u_int node, area; 301 302 if (sscanf((char *)s, "%d.%d", &area, &node) != 2) 303 bpf_error("malformed decnet address '%s'", s); 304 305 *addr = (area << AREASHIFT) & AREAMASK; 306 *addr |= (node & NODEMASK); 307 308 return(32); 309} 310 311/* 312 * Convert 's' which has the form "xx:xx:xx:xx:xx:xx" into a new 313 * ethernet address. Assumes 's' is well formed. 314 */ 315u_char * 316pcap_ether_aton(const char *s) 317{ 318 register u_char *ep, *e; 319 register u_int d; 320 321 e = ep = (u_char *)malloc(6); 322 323 while (*s) { 324 if (*s == ':') 325 s += 1; 326 d = xdtoi(*s++);
| 30#endif 31 32#ifdef HAVE_CONFIG_H 33#include "config.h" 34#endif 35 36#include <sys/param.h> 37#include <sys/types.h> /* concession to AIX */ 38#include <sys/socket.h> 39#include <sys/time.h> 40 41struct mbuf; 42struct rtentry; 43#include <net/if.h> 44#include <netinet/in.h> 45#ifdef HAVE_NETINET_IF_ETHER_H 46#include <netinet/if_ether.h> 47#endif 48#include <arpa/inet.h> 49#ifdef INET6 50#include <netdb.h> 51#include <sys/socket.h> 52#endif /*INET6*/ 53 54#include <ctype.h> 55#include <errno.h> 56#include <stdlib.h> 57#include <memory.h> 58#include <netdb.h> 59#include <stdio.h> 60 61#include "pcap-int.h" 62 63#include "gencode.h" 64#include <pcap-namedb.h> 65 66#ifdef HAVE_OS_PROTO_H 67#include "os-proto.h" 68#endif 69 70#ifndef NTOHL 71#define NTOHL(x) (x) = ntohl(x) 72#define NTOHS(x) (x) = ntohs(x) 73#endif 74 75static inline int xdtoi(int); 76 77/* 78 * Convert host name to internet address. 79 * Return 0 upon failure. 80 */ 81bpf_u_int32 ** 82pcap_nametoaddr(const char *name) 83{ 84#ifndef h_addr 85 static bpf_u_int32 *hlist[2]; 86#endif 87 bpf_u_int32 **p; 88 struct hostent *hp; 89 90 if ((hp = gethostbyname(name)) != NULL) { 91#ifndef h_addr 92 hlist[0] = (bpf_u_int32 *)hp->h_addr; 93 NTOHL(hp->h_addr); 94 return hlist; 95#else 96 for (p = (bpf_u_int32 **)hp->h_addr_list; *p; ++p) 97 NTOHL(**p); 98 return (bpf_u_int32 **)hp->h_addr_list; 99#endif 100 } 101 else 102 return 0; 103} 104 105#ifdef INET6 106struct addrinfo * 107pcap_nametoaddrinfo(const char *name) 108{ 109 struct addrinfo hints, *res; 110 int error; 111 112 memset(&hints, 0, sizeof(hints)); 113 hints.ai_family = PF_UNSPEC; 114 hints.ai_socktype = SOCK_STREAM; /*not really*/ 115 error = getaddrinfo(name, NULL, &hints, &res); 116 if (error) 117 return NULL; 118 else 119 return res; 120} 121#endif /*INET6*/ 122 123/* 124 * Convert net name to internet address. 125 * Return 0 upon failure. 126 */ 127bpf_u_int32 128pcap_nametonetaddr(const char *name) 129{ 130 struct netent *np; 131 132 if ((np = getnetbyname(name)) != NULL) 133 return np->n_net; 134 else 135 return 0; 136} 137 138/* 139 * Convert a port name to its port and protocol numbers. 140 * We assume only TCP or UDP. 141 * Return 0 upon failure. 142 */ 143int 144pcap_nametoport(const char *name, int *port, int *proto) 145{ 146 struct servent *sp; 147 char *other; 148 149 sp = getservbyname(name, (char *)0); 150 if (sp != NULL) { 151 NTOHS(sp->s_port); 152 *port = sp->s_port; 153 *proto = pcap_nametoproto(sp->s_proto); 154 /* 155 * We need to check /etc/services for ambiguous entries. 156 * If we find the ambiguous entry, and it has the 157 * same port number, change the proto to PROTO_UNDEF 158 * so both TCP and UDP will be checked. 159 */ 160 if (*proto == IPPROTO_TCP) 161 other = "udp"; 162 else 163 other = "tcp"; 164 165 sp = getservbyname(name, other); 166 if (sp != 0) { 167 NTOHS(sp->s_port); 168#ifdef notdef 169 if (*port != sp->s_port) 170 /* Can't handle ambiguous names that refer 171 to different port numbers. */ 172 warning("ambiguous port %s in /etc/services", 173 name); 174#endif 175 *proto = PROTO_UNDEF; 176 } 177 return 1; 178 } 179#if defined(ultrix) || defined(__osf__) 180 /* Special hack in case NFS isn't in /etc/services */ 181 if (strcmp(name, "nfs") == 0) { 182 *port = 2049; 183 *proto = PROTO_UNDEF; 184 return 1; 185 } 186#endif 187 return 0; 188} 189 190int 191pcap_nametoproto(const char *str) 192{ 193 struct protoent *p; 194 195 p = getprotobyname(str); 196 if (p != 0) 197 return p->p_proto; 198 else 199 return PROTO_UNDEF; 200} 201 202#include "ethertype.h" 203 204struct eproto { 205 char *s; 206 u_short p; 207}; 208 209/* Static data base of ether protocol types. */ 210struct eproto eproto_db[] = { 211#if 0 212 /* The FreeBSD elf linker generates a request to copy this array 213 * (including its size) when you link with -lpcap. In order to 214 * not bump the major version number of this libpcap.so, we need 215 * to ensure that the array stays the same size. Since PUP is 216 * likely never seen in real life any more, it's the first to 217 * be sacrificed (in favor of ip6). 218 */ 219 { "pup", ETHERTYPE_PUP }, 220#endif 221 { "xns", ETHERTYPE_NS }, 222 { "ip", ETHERTYPE_IP }, 223#ifdef INET6 224 { "ip6", ETHERTYPE_IPV6 }, 225#endif 226 { "arp", ETHERTYPE_ARP }, 227 { "rarp", ETHERTYPE_REVARP }, 228 { "sprite", ETHERTYPE_SPRITE }, 229 { "mopdl", ETHERTYPE_MOPDL }, 230 { "moprc", ETHERTYPE_MOPRC }, 231 { "decnet", ETHERTYPE_DN }, 232 { "lat", ETHERTYPE_LAT }, 233 { "sca", ETHERTYPE_SCA }, 234 { "lanbridge", ETHERTYPE_LANBRIDGE }, 235 { "vexp", ETHERTYPE_VEXP }, 236 { "vprod", ETHERTYPE_VPROD }, 237 { "atalk", ETHERTYPE_ATALK }, 238 { "atalkarp", ETHERTYPE_AARP }, 239 { "loopback", ETHERTYPE_LOOPBACK }, 240 { "decdts", ETHERTYPE_DECDTS }, 241 { "decdns", ETHERTYPE_DECDNS }, 242 { (char *)0, 0 } 243}; 244 245int 246pcap_nametoeproto(const char *s) 247{ 248 struct eproto *p = eproto_db; 249 250 while (p->s != 0) { 251 if (strcmp(p->s, s) == 0) 252 return p->p; 253 p += 1; 254 } 255 return PROTO_UNDEF; 256} 257 258/* Hex digit to integer. */ 259static inline int 260xdtoi(c) 261 register int c; 262{ 263 if (isdigit(c)) 264 return c - '0'; 265 else if (islower(c)) 266 return c - 'a' + 10; 267 else 268 return c - 'A' + 10; 269} 270 271int 272__pcap_atoin(const char *s, bpf_u_int32 *addr) 273{ 274 u_int n; 275 int len; 276 277 *addr = 0; 278 len = 0; 279 while (1) { 280 n = 0; 281 while (*s && *s != '.') 282 n = n * 10 + *s++ - '0'; 283 *addr <<= 8; 284 *addr |= n & 0xff; 285 len += 8; 286 if (*s == '\0') 287 return len; 288 ++s; 289 } 290 /* NOTREACHED */ 291} 292 293int 294__pcap_atodn(const char *s, bpf_u_int32 *addr) 295{ 296#define AREASHIFT 10 297#define AREAMASK 0176000 298#define NODEMASK 01777 299 300 u_int node, area; 301 302 if (sscanf((char *)s, "%d.%d", &area, &node) != 2) 303 bpf_error("malformed decnet address '%s'", s); 304 305 *addr = (area << AREASHIFT) & AREAMASK; 306 *addr |= (node & NODEMASK); 307 308 return(32); 309} 310 311/* 312 * Convert 's' which has the form "xx:xx:xx:xx:xx:xx" into a new 313 * ethernet address. Assumes 's' is well formed. 314 */ 315u_char * 316pcap_ether_aton(const char *s) 317{ 318 register u_char *ep, *e; 319 register u_int d; 320 321 e = ep = (u_char *)malloc(6); 322 323 while (*s) { 324 if (*s == ':') 325 s += 1; 326 d = xdtoi(*s++);
|
328 d <<= 4; 329 d |= xdtoi(*s++); 330 } 331 *ep++ = d; 332 } 333 334 return (e); 335} 336 337#ifndef HAVE_ETHER_HOSTTON 338/* Roll our own */ 339u_char * 340pcap_ether_hostton(const char *name) 341{ 342 register struct pcap_etherent *ep; 343 register u_char *ap; 344 static FILE *fp = NULL; 345 static int init = 0; 346 347 if (!init) { 348 fp = fopen(PCAP_ETHERS_FILE, "r"); 349 ++init; 350 if (fp == NULL) 351 return (NULL); 352 } else if (fp == NULL) 353 return (NULL); 354 else 355 rewind(fp); 356 357 while ((ep = pcap_next_etherent(fp)) != NULL) { 358 if (strcmp(ep->name, name) == 0) { 359 ap = (u_char *)malloc(6); 360 if (ap != NULL) { 361 memcpy(ap, ep->addr, 6); 362 return (ap); 363 } 364 break; 365 } 366 } 367 return (NULL); 368} 369#else 370 371/* 372 * XXX - perhaps this should, instead, be declared in "lbl/os-XXX.h" files, 373 * for those OS versions that don't declare it, rather than being declared 374 * here? That way, for example, we could declare it on FreeBSD 2.x (which 375 * doesn't declare it), but not on FreeBSD 3.x (which declares it like 376 * this) or FreeBSD 4.x (which declares it with its first argument as 377 * "const char *", so no matter how we declare it here, it'll fail to 378 * compile on one of 3.x or 4.x). 379 */ 380#if !defined(sgi) && !defined(__NetBSD__) && !defined(__FreeBSD__) 381extern int ether_hostton(char *, struct ether_addr *); 382#endif 383 384/* Use the os supplied routines */ 385u_char * 386pcap_ether_hostton(const char *name) 387{ 388 register u_char *ap; 389 u_char a[6]; 390 391 ap = NULL; 392 if (ether_hostton((char *)name, (struct ether_addr *)a) == 0) { 393 ap = (u_char *)malloc(6); 394 if (ap != NULL) 395 memcpy((char *)ap, (char *)a, 6); 396 } 397 return (ap); 398} 399#endif 400 401u_short 402__pcap_nametodnaddr(const char *name) 403{ 404#ifdef DECNETLIB 405 struct nodeent *getnodebyname(); 406 struct nodeent *nep; 407 unsigned short res; 408 409 nep = getnodebyname(name); 410 if (nep == ((struct nodeent *)0)) 411 bpf_error("unknown decnet host name '%s'\n", name); 412 413 memcpy((char *)&res, (char *)nep->n_addr, sizeof(unsigned short)); 414 return(res); 415#else 416 bpf_error("decnet name support not included, '%s' cannot be translated\n", 417 name);
| 328 d <<= 4; 329 d |= xdtoi(*s++); 330 } 331 *ep++ = d; 332 } 333 334 return (e); 335} 336 337#ifndef HAVE_ETHER_HOSTTON 338/* Roll our own */ 339u_char * 340pcap_ether_hostton(const char *name) 341{ 342 register struct pcap_etherent *ep; 343 register u_char *ap; 344 static FILE *fp = NULL; 345 static int init = 0; 346 347 if (!init) { 348 fp = fopen(PCAP_ETHERS_FILE, "r"); 349 ++init; 350 if (fp == NULL) 351 return (NULL); 352 } else if (fp == NULL) 353 return (NULL); 354 else 355 rewind(fp); 356 357 while ((ep = pcap_next_etherent(fp)) != NULL) { 358 if (strcmp(ep->name, name) == 0) { 359 ap = (u_char *)malloc(6); 360 if (ap != NULL) { 361 memcpy(ap, ep->addr, 6); 362 return (ap); 363 } 364 break; 365 } 366 } 367 return (NULL); 368} 369#else 370 371/* 372 * XXX - perhaps this should, instead, be declared in "lbl/os-XXX.h" files, 373 * for those OS versions that don't declare it, rather than being declared 374 * here? That way, for example, we could declare it on FreeBSD 2.x (which 375 * doesn't declare it), but not on FreeBSD 3.x (which declares it like 376 * this) or FreeBSD 4.x (which declares it with its first argument as 377 * "const char *", so no matter how we declare it here, it'll fail to 378 * compile on one of 3.x or 4.x). 379 */ 380#if !defined(sgi) && !defined(__NetBSD__) && !defined(__FreeBSD__) 381extern int ether_hostton(char *, struct ether_addr *); 382#endif 383 384/* Use the os supplied routines */ 385u_char * 386pcap_ether_hostton(const char *name) 387{ 388 register u_char *ap; 389 u_char a[6]; 390 391 ap = NULL; 392 if (ether_hostton((char *)name, (struct ether_addr *)a) == 0) { 393 ap = (u_char *)malloc(6); 394 if (ap != NULL) 395 memcpy((char *)ap, (char *)a, 6); 396 } 397 return (ap); 398} 399#endif 400 401u_short 402__pcap_nametodnaddr(const char *name) 403{ 404#ifdef DECNETLIB 405 struct nodeent *getnodebyname(); 406 struct nodeent *nep; 407 unsigned short res; 408 409 nep = getnodebyname(name); 410 if (nep == ((struct nodeent *)0)) 411 bpf_error("unknown decnet host name '%s'\n", name); 412 413 memcpy((char *)&res, (char *)nep->n_addr, sizeof(unsigned short)); 414 return(res); 415#else 416 bpf_error("decnet name support not included, '%s' cannot be translated\n", 417 name);
|