]> The Tcpdump Group git mirrors - tcpdump/blob - print-lwres.c
projects / tcpdump / blob
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Handle (GRE-encapsulated) PPTP
[tcpdump] / print-lwres.c
1 /*
2 * Copyright (C) 2001 WIDE Project.
3 * All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 * notice, this list of conditions and the following disclaimer in the
12 * documentation and/or other materials provided with the distribution.
13 * 3. Neither the name of the project nor the names of its contributors
14 * may be used to endorse or promote products derived from this software
15 * without specific prior written permission.
16 *
17 * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND
18 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
19 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20 * ARE DISCLAIMED. IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE
21 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
22 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
23 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
24 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
25 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
26 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
27 * SUCH DAMAGE.
28 */
29
30 #ifndef lint
31 static const char rcsid[] =
32 "@(#) $Header: /tcpdump/master/tcpdump/print-lwres.c,v 1.3 2001-02-02 19:13:42 itojun Exp $ (LBL)";
33 #endif
34
35 #ifdef HAVE_CONFIG_H
36 #include "config.h"
37 #endif
38
39 #include <sys/param.h>
40 #include <sys/time.h>
41
42 #include <netinet/in.h>
43
44 #ifdef NOERROR
45 #undef NOERROR /* Solaris sucks */
46 #endif
47 #ifdef NOERROR
48 #undef T_UNSPEC /* SINIX does too */
49 #endif
50 #include "nameser.h"
51
52 #include <stdio.h>
53 #include <string.h>
54
55 #include "interface.h"
56 #include "addrtoname.h"
57 #include "extract.h" /* must come after interface.h */
58
59 /* BIND9 lib/lwres/include/lwres */
60 typedef u_int32_t lwres_uint32_t;
61 typedef u_int16_t lwres_uint16_t;
62 typedef u_int8_t lwres_uint8_t;
63
64 struct lwres_lwpacket {
65 lwres_uint32_t length;
66 lwres_uint16_t version;
67 lwres_uint16_t pktflags;
68 lwres_uint32_t serial;
69 lwres_uint32_t opcode;
70 lwres_uint32_t result;
71 lwres_uint32_t recvlength;
72 lwres_uint16_t authtype;
73 lwres_uint16_t authlength;
74 };
75
76 #define LWRES_LWPACKETFLAG_RESPONSE 0x0001U /* if set, pkt is a response */
77
78 #define LWRES_LWPACKETVERSION_0 0
79
80 #define LWRES_FLAG_TRUSTNOTREQUIRED 0x00000001U
81 #define LWRES_FLAG_SECUREDATA 0x00000002U
82
83 /*
84 * no-op
85 */
86 #define LWRES_OPCODE_NOOP 0x00000000U
87
88 typedef struct {
89 /* public */
90 lwres_uint16_t datalength;
91 /* data follows */
92 } lwres_nooprequest_t;
93
94 typedef struct {
95 /* public */
96 lwres_uint16_t datalength;
97 /* data follows */
98 } lwres_noopresponse_t;
99
100 /*
101 * get addresses by name
102 */
103 #define LWRES_OPCODE_GETADDRSBYNAME 0x00010001U
104
105 typedef struct lwres_addr lwres_addr_t;
106
107 struct lwres_addr {
108 lwres_uint32_t family;
109 lwres_uint16_t length;
110 /* address folows */
111 };
112
113 typedef struct {
114 /* public */
115 lwres_uint32_t flags;
116 lwres_uint32_t addrtypes;
117 lwres_uint16_t namelen;
118 /* name follows */
119 } lwres_gabnrequest_t;
120
121 typedef struct {
122 /* public */
123 lwres_uint32_t flags;
124 lwres_uint16_t naliases;
125 lwres_uint16_t naddrs;
126 lwres_uint16_t realnamelen;
127 /* aliases follows */
128 /* addrs follows */
129 /* realname follows */
130 } lwres_gabnresponse_t;
131
132 /*
133 * get name by address
134 */
135 #define LWRES_OPCODE_GETNAMEBYADDR 0x00010002U
136 typedef struct {
137 /* public */
138 lwres_uint32_t flags;
139 lwres_addr_t addr;
140 /* addr body follows */
141 } lwres_gnbarequest_t;
142
143 typedef struct {
144 /* public */
145 lwres_uint32_t flags;
146 lwres_uint16_t naliases;
147 lwres_uint16_t realnamelen;
148 /* aliases follows */
149 /* realname follows */
150 } lwres_gnbaresponse_t;
151
152 /*
153 * get rdata by name
154 */
155 #define LWRES_OPCODE_GETRDATABYNAME 0x00010003U
156
157 typedef struct {
158 /* public */
159 lwres_uint32_t flags;
160 lwres_uint16_t rdclass;
161 lwres_uint16_t rdtype;
162 lwres_uint16_t namelen;
163 /* name follows */
164 } lwres_grbnrequest_t;
165
166 typedef struct {
167 /* public */
168 lwres_uint32_t flags;
169 lwres_uint16_t rdclass;
170 lwres_uint16_t rdtype;
171 lwres_uint32_t ttl;
172 lwres_uint16_t nrdatas;
173 lwres_uint16_t nsigs;
174 /* realname here (len + name) */
175 /* rdata here (len + name) */
176 /* signatures here (len + name) */
177 } lwres_grbnresponse_t;
178
179 #define LWRDATA_VALIDATED 0x00000001
180
181 #define LWRES_ADDRTYPE_V4 0x00000001U /* ipv4 */
182 #define LWRES_ADDRTYPE_V6 0x00000002U /* ipv6 */
183
184 #define LWRES_MAX_ALIASES 16 /* max # of aliases */
185 #define LWRES_MAX_ADDRS 64 /* max # of addrs */
186
187 struct tok opcode[] = {
188 { LWRES_OPCODE_NOOP, "noop", },
189 { LWRES_OPCODE_GETADDRSBYNAME, "getaddrsbyname", },
190 { LWRES_OPCODE_GETNAMEBYADDR, "getnamebyaddr", },
191 { LWRES_OPCODE_GETRDATABYNAME, "getrdatabyname", },
192 { 0, NULL, },
193 };
194
195 /* print-domain.c */
196 extern struct tok ns_type2str[];
197 extern struct tok ns_class2str[];
198
199 static int lwres_printname(size_t, const char *);
200 static int lwres_printnamelen(const char *);
201 static int lwres_printbinlen(const char *);
202 static int lwres_printaddr(lwres_addr_t *);
203
204 static int
205 lwres_printname(size_t l, const char *p0)
206 {
207 const char *p;
208 int i;
209
210 p = p0;
211 /* + 1 for terminating \0 */
212 if (p + l + 1 > (const char *)snapend)
213 goto trunc;
214
215 printf(" ");
216 for (i = 0; i < l; i++)
217 safeputchar(*p++);
218 p++; /* skip terminating \0 */
219
220 return p - p0;
221
222 trunc:
223 return -1;
224 }
225
226 static int
227 lwres_printnamelen(const char *p)
228 {
229 u_int16_t l;
230 int advance;
231
232 if (p + 2 > (const char *)snapend)
233 goto trunc;
234 l = EXTRACT_16BITS(p);
235 advance = lwres_printname(l, p + 2);
236 if (advance < 0)
237 goto trunc;
238 return 2 + advance;
239
240 trunc:
241 return -1;
242 }
243
244 static int
245 lwres_printbinlen(const char *p0)
246 {
247 const char *p;
248 u_int16_t l;
249 int i;
250
251 p = p0;
252 if (p + 2 > (const char *)snapend)
253 goto trunc;
254 l = EXTRACT_16BITS(p);
255 if (p + 2 + l > (const char *)snapend)
256 goto trunc;
257 p += 2;
258 for (i = 0; i < l; i++)
259 printf("%02x", *p++);
260 return p - p0;
261
262 trunc:
263 return -1;
264 }
265
266 static int
267 lwres_printaddr(lwres_addr_t *ap)
268 {
269 u_int16_t l;
270 const char *p;
271 int i;
272
273 TCHECK(ap->length);
274 l = ntohs(ap->length);
275 /* XXX ap points to packed struct */
276 p = (const char *)&ap->length + sizeof(ap->length);
277 if (p + l > (const char *)snapend)
278 goto trunc;
279
280 switch (ntohl(ap->family)) {
281 case 1: /* IPv4 */
282 printf(" %s", ipaddr_string(p));
283 p += sizeof(struct in_addr);
284 break;
285 #ifdef INET6
286 case 2: /* IPv6 */
287 printf(" %s", ip6addr_string(p));
288 p += sizeof(struct in6_addr);
289 break;
290 #endif
291 default:
292 printf(" %lu/", (unsigned long)ntohl(ap->family));
293 for (i = 0; i < l; i++)
294 printf("%02x", *p++);
295 }
296
297 return p - (const char *)ap;
298
299 trunc:
300 return -1;
301 }
302
303 void
304 lwres_print(register const u_char *bp, u_int length)
305 {
306 const struct lwres_lwpacket *np;
307 u_int32_t v;
308 const char *s;
309 int response;
310 int advance;
311 int unsupported;
312
313 np = (const struct lwres_lwpacket *)bp;
314 TCHECK(np->authlength);
315
316 printf(" lwres");
317 v = ntohs(np->version);
318 if (vflag || v != LWRES_LWPACKETVERSION_0)
319 printf(" v%u", v);
320 if (v != LWRES_LWPACKETVERSION_0) {
321 s = (const char *)np + ntohl(np->length);
322 goto tail;
323 }
324
325 response = ntohs(np->pktflags) & LWRES_LWPACKETFLAG_RESPONSE;
326 unsupported = 0;
327
328 /* opcode and pktflags */
329 v = (u_int32_t)ntohl(np->opcode);
330 s = tok2str(opcode, "#0x%x", v);
331 printf(" %s%s", s, response ? "" : "?");
332
333 /* pktflags */
334 v = ntohs(np->pktflags);
335 if (v & ~LWRES_LWPACKETFLAG_RESPONSE)
336 printf("[0x%x]", v);
337
338 if (vflag > 1) {
339 printf(" ("); /*)*/
340 printf("serial:0x%lx", (unsigned long)ntohl(np->serial));
341 printf(" result:0x%lx", (unsigned long)ntohl(np->result));
342 printf(" recvlen:%lu", (unsigned long)ntohl(np->recvlength));
343 /* BIND910: not used */
344 if (vflag > 2) {
345 printf(" authtype:0x%x", ntohs(np->authtype));
346 printf(" authlen:%u", ntohs(np->authlength));
347 }
348 /*(*/
349 printf(")");
350 }
351
352 /* per-opcode content */
353 if (!response) {
354 /*
355 * queries
356 */
357 lwres_gabnrequest_t *gabn;
358 lwres_gnbarequest_t *gnba;
359 lwres_grbnrequest_t *grbn;
360 u_int32_t l;
361
362 gabn = NULL;
363 gnba = NULL;
364 grbn = NULL;
365
366 switch (ntohl(np->opcode)) {
367 case LWRES_OPCODE_NOOP:
368 break;
369 case LWRES_OPCODE_GETADDRSBYNAME:
370 gabn = (lwres_gabnrequest_t *)(np + 1);
371 TCHECK(gabn->namelen);
372 /* XXX gabn points to packed struct */
373 s = (const char *)&gabn->namelen +
374 sizeof(gabn->namelen);
375 l = ntohs(gabn->namelen);
376
377 /* BIND910: not used */
378 if (vflag > 2) {
379 printf(" flags:0x%lx",
380 (unsigned long)ntohl(gabn->flags));
381 }
382
383 v = (u_int32_t)ntohl(gabn->addrtypes);
384 switch (v & (LWRES_ADDRTYPE_V4 | LWRES_ADDRTYPE_V6)) {
385 case LWRES_ADDRTYPE_V4:
386 printf(" IPv4");
387 break;
388 case LWRES_ADDRTYPE_V6:
389 printf(" IPv6");
390 break;
391 case LWRES_ADDRTYPE_V4 | LWRES_ADDRTYPE_V6:
392 printf(" IPv4/6");
393 break;
394 }
395 if (v & ~(LWRES_ADDRTYPE_V4 | LWRES_ADDRTYPE_V6))
396 printf("[0x%x]", v);
397
398 advance = lwres_printname(l, s);
399 if (advance < 0)
400 goto trunc;
401 s += advance;
402 break;
403 case LWRES_OPCODE_GETNAMEBYADDR:
404 gnba = (lwres_gnbarequest_t *)(np + 1);
405 TCHECK(gnba->addr);
406
407 /* BIND910: not used */
408 if (vflag > 2) {
409 printf(" flags:0x%lx",
410 (unsigned long)ntohl(gnba->flags));
411 }
412
413 s = (const char *)&gnba->addr;
414
415 advance = lwres_printaddr(&gnba->addr);
416 if (advance < 0)
417 goto trunc;
418 s += advance;
419 break;
420 case LWRES_OPCODE_GETRDATABYNAME:
421 /* XXX no trace, not tested */
422 grbn = (lwres_grbnrequest_t *)(np + 1);
423 TCHECK(grbn->namelen);
424
425 /* BIND910: not used */
426 if (vflag > 2) {
427 printf(" flags:0x%lx",
428 (unsigned long)ntohl(grbn->flags));
429 }
430
431 printf(" %s", tok2str(ns_type2str, "Type%d",
432 ntohs(grbn->rdtype)));
433 if (ntohs(grbn->rdclass) != C_IN);
434 printf(" %s", tok2str(ns_class2str, "Class%d",
435 ntohs(grbn->rdclass)));
436
437 /* XXX grbn points to packed struct */
438 s = (const char *)&grbn->namelen +
439 sizeof(grbn->namelen);
440 l = ntohs(gabn->namelen);
441
442 advance = lwres_printname(l, s);
443 if (advance < 0)
444 goto trunc;
445 s += advance;
446 break;
447 default:
448 unsupported++;
449 break;
450 }
451 } else {
452 /*
453 * responses
454 */
455 lwres_gabnresponse_t *gabn;
456 lwres_gnbaresponse_t *gnba;
457 lwres_grbnresponse_t *grbn;
458 u_int32_t l, na;
459 int i;
460
461 gabn = NULL;
462 gnba = NULL;
463 grbn = NULL;
464
465 switch (ntohl(np->opcode)) {
466 case LWRES_OPCODE_NOOP:
467 break;
468 case LWRES_OPCODE_GETADDRSBYNAME:
469 gabn = (lwres_gabnresponse_t *)(np + 1);
470 TCHECK(gabn->realnamelen);
471 /* XXX gabn points to packed struct */
472 s = (const char *)&gabn->realnamelen +
473 sizeof(gabn->realnamelen);
474 l = ntohs(gabn->realnamelen);
475
476 /* BIND910: not used */
477 if (vflag > 2) {
478 printf(" flags:0x%lx",
479 (unsigned long)ntohl(gabn->flags));
480 }
481
482 printf(" %u/%u", ntohs(gabn->naliases),
483 ntohs(gabn->naddrs));
484
485 advance = lwres_printname(l, s);
486 if (advance < 0)
487 goto trunc;
488 s += advance;
489
490 /* aliases */
491 na = ntohs(gabn->naliases);
492 for (i = 0; i < na; i++) {
493 advance = lwres_printnamelen(s);
494 if (advance < 0)
495 goto trunc;
496 s += advance;
497 }
498
499 /* addrs */
500 na = ntohs(gabn->naddrs);
501 for (i = 0; i < na; i++) {
502 advance = lwres_printaddr((lwres_addr_t *)s);
503 if (advance < 0)
504 goto trunc;
505 s += advance;
506 }
507 break;
508 case LWRES_OPCODE_GETNAMEBYADDR:
509 gnba = (lwres_gnbaresponse_t *)(np + 1);
510 TCHECK(gnba->realnamelen);
511 /* XXX gnba points to packed struct */
512 s = (const char *)&gnba->realnamelen +
513 sizeof(gnba->realnamelen);
514 l = ntohs(gnba->realnamelen);
515
516 /* BIND910: not used */
517 if (vflag > 2) {
518 printf(" flags:0x%lx",
519 (unsigned long)ntohl(gnba->flags));
520 }
521
522 printf(" %u", ntohs(gnba->naliases));
523
524 advance = lwres_printname(l, s);
525 if (advance < 0)
526 goto trunc;
527 s += advance;
528
529 /* aliases */
530 na = ntohs(gnba->naliases);
531 for (i = 0; i < na; i++) {
532 advance = lwres_printnamelen(s);
533 if (advance < 0)
534 goto trunc;
535 s += advance;
536 }
537 break;
538 case LWRES_OPCODE_GETRDATABYNAME:
539 /* XXX no trace, not tested */
540 grbn = (lwres_grbnresponse_t *)(np + 1);
541 TCHECK(grbn->nsigs);
542
543 /* BIND910: not used */
544 if (vflag > 2) {
545 printf(" flags:0x%lx",
546 (unsigned long)ntohl(grbn->flags));
547 }
548
549 printf(" %s", tok2str(ns_type2str, "Type%d",
550 ntohs(grbn->rdtype)));
551 if (ntohs(grbn->rdclass) != C_IN);
552 printf(" %s", tok2str(ns_class2str, "Class%d",
553 ntohs(grbn->rdclass)));
554 printf(" TTL ");
555 relts_print(ntohl(grbn->ttl));
556 printf(" %u/%u", ntohs(grbn->nrdatas),
557 ntohs(grbn->nsigs));
558
559 /* XXX grbn points to packed struct */
560 s = (const char *)&grbn->nsigs+ sizeof(grbn->nsigs);
561
562 advance = lwres_printnamelen(s);
563 if (advance < 0)
564 goto trunc;
565 s += advance;
566
567 /* rdatas */
568 na = ntohs(grbn->nrdatas);
569 for (i = 0; i < na; i++) {
570 /* XXX should decode resource data */
571 advance = lwres_printbinlen(s);
572 if (advance < 0)
573 goto trunc;
574 s += advance;
575 }
576
577 /* sigs */
578 na = ntohs(grbn->nsigs);
579 for (i = 0; i < na; i++) {
580 /* XXX how should we print it? */
581 advance = lwres_printbinlen(s);
582 if (advance < 0)
583 goto trunc;
584 s += advance;
585 }
586 break;
587 default:
588 unsupported++;
589 break;
590 }
591 }
592
593 tail:
594 /* length mismatch */
595 if (ntohl(np->length) != length) {
596 printf(" [len: %lu != %u]", (unsigned long)ntohl(np->length),
597 length);
598 }
599 if (!unsupported && s < (const char *)np + ntohl(np->length))
600 printf("[extra]");
601 return;
602
603 trunc:
604 printf("[|lwres]");
605 return;
606 }
[mirror] the TCPdump network dissector