]> CyberLeo.Net >> Repos - FreeBSD/FreeBSD.git/blob - contrib/tcpdump/print-ppp.c
MFV r285191: tcpdump 4.7.4.
[FreeBSD/FreeBSD.git] / contrib / tcpdump / print-ppp.c
1 /*
2  * Copyright (c) 1990, 1991, 1993, 1994, 1995, 1996, 1997
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  * Extensively modified by Motonori Shindo (mshindo@mshindo.net) for more
22  * complete PPP support.
23  *
24  * $FreeBSD$
25  */
26
27 /*
28  * TODO:
29  * o resolve XXX as much as possible
30  * o MP support
31  * o BAP support
32  */
33
34 #define NETDISSECT_REWORKED
35 #ifdef HAVE_CONFIG_H
36 #include "config.h"
37 #endif
38
39 #include <tcpdump-stdinc.h>
40
41 #ifdef __bsdi__
42 #include <net/slcompress.h>
43 #include <net/if_ppp.h>
44 #endif
45
46 #include <stdlib.h>
47
48 #include "interface.h"
49 #include "extract.h"
50 #include "addrtoname.h"
51 #include "ppp.h"
52 #include "chdlc.h"
53 #include "ethertype.h"
54 #include "oui.h"
55
56 /*
57  * The following constatns are defined by IANA. Please refer to
58  *    http://www.isi.edu/in-notes/iana/assignments/ppp-numbers
59  * for the up-to-date information.
60  */
61
62 /* Protocol Codes defined in ppp.h */
63
64 static const struct tok ppptype2str[] = {
65         { PPP_IP,         "IP" },
66         { PPP_OSI,        "OSI" },
67         { PPP_NS,         "NS" },
68         { PPP_DECNET,     "DECNET" },
69         { PPP_APPLE,      "APPLE" },
70         { PPP_IPX,        "IPX" },
71         { PPP_VJC,        "VJC IP" },
72         { PPP_VJNC,       "VJNC IP" },
73         { PPP_BRPDU,      "BRPDU" },
74         { PPP_STII,       "STII" },
75         { PPP_VINES,      "VINES" },
76         { PPP_MPLS_UCAST, "MPLS" },
77         { PPP_MPLS_MCAST, "MPLS" },
78         { PPP_COMP,       "Compressed"},
79         { PPP_ML,         "MLPPP"},
80         { PPP_IPV6,       "IP6"},
81
82         { PPP_HELLO,      "HELLO" },
83         { PPP_LUXCOM,     "LUXCOM" },
84         { PPP_SNS,        "SNS" },
85         { PPP_IPCP,       "IPCP" },
86         { PPP_OSICP,      "OSICP" },
87         { PPP_NSCP,       "NSCP" },
88         { PPP_DECNETCP,   "DECNETCP" },
89         { PPP_APPLECP,    "APPLECP" },
90         { PPP_IPXCP,      "IPXCP" },
91         { PPP_STIICP,     "STIICP" },
92         { PPP_VINESCP,    "VINESCP" },
93         { PPP_IPV6CP,     "IP6CP" },
94         { PPP_MPLSCP,     "MPLSCP" },
95
96         { PPP_LCP,        "LCP" },
97         { PPP_PAP,        "PAP" },
98         { PPP_LQM,        "LQM" },
99         { PPP_CHAP,       "CHAP" },
100         { PPP_EAP,        "EAP" },
101         { PPP_SPAP,       "SPAP" },
102         { PPP_SPAP_OLD,   "Old-SPAP" },
103         { PPP_BACP,       "BACP" },
104         { PPP_BAP,        "BAP" },
105         { PPP_MPCP,       "MLPPP-CP" },
106         { PPP_CCP,        "CCP" },
107         { 0,              NULL }
108 };
109
110 /* Control Protocols (LCP/IPCP/CCP etc.) Codes defined in RFC 1661 */
111
112 #define CPCODES_VEXT            0       /* Vendor-Specific (RFC2153) */
113 #define CPCODES_CONF_REQ        1       /* Configure-Request */
114 #define CPCODES_CONF_ACK        2       /* Configure-Ack */
115 #define CPCODES_CONF_NAK        3       /* Configure-Nak */
116 #define CPCODES_CONF_REJ        4       /* Configure-Reject */
117 #define CPCODES_TERM_REQ        5       /* Terminate-Request */
118 #define CPCODES_TERM_ACK        6       /* Terminate-Ack */
119 #define CPCODES_CODE_REJ        7       /* Code-Reject */
120 #define CPCODES_PROT_REJ        8       /* Protocol-Reject (LCP only) */
121 #define CPCODES_ECHO_REQ        9       /* Echo-Request (LCP only) */
122 #define CPCODES_ECHO_RPL        10      /* Echo-Reply (LCP only) */
123 #define CPCODES_DISC_REQ        11      /* Discard-Request (LCP only) */
124 #define CPCODES_ID              12      /* Identification (LCP only) RFC1570 */
125 #define CPCODES_TIME_REM        13      /* Time-Remaining (LCP only) RFC1570 */
126 #define CPCODES_RESET_REQ       14      /* Reset-Request (CCP only) RFC1962 */
127 #define CPCODES_RESET_REP       15      /* Reset-Reply (CCP only) */
128
129 static const struct tok cpcodes[] = {
130         {CPCODES_VEXT,      "Vendor-Extension"}, /* RFC2153 */
131         {CPCODES_CONF_REQ,  "Conf-Request"},
132         {CPCODES_CONF_ACK,  "Conf-Ack"},
133         {CPCODES_CONF_NAK,  "Conf-Nack"},
134         {CPCODES_CONF_REJ,  "Conf-Reject"},
135         {CPCODES_TERM_REQ,  "Term-Request"},
136         {CPCODES_TERM_ACK,  "Term-Ack"},
137         {CPCODES_CODE_REJ,  "Code-Reject"},
138         {CPCODES_PROT_REJ,  "Prot-Reject"},
139         {CPCODES_ECHO_REQ,  "Echo-Request"},
140         {CPCODES_ECHO_RPL,  "Echo-Reply"},
141         {CPCODES_DISC_REQ,  "Disc-Req"},
142         {CPCODES_ID,        "Ident"},            /* RFC1570 */
143         {CPCODES_TIME_REM,  "Time-Rem"},         /* RFC1570 */
144         {CPCODES_RESET_REQ, "Reset-Req"},        /* RFC1962 */
145         {CPCODES_RESET_REP, "Reset-Ack"},        /* RFC1962 */
146         {0,                 NULL}
147 };
148
149 /* LCP Config Options */
150
151 #define LCPOPT_VEXT     0
152 #define LCPOPT_MRU      1
153 #define LCPOPT_ACCM     2
154 #define LCPOPT_AP       3
155 #define LCPOPT_QP       4
156 #define LCPOPT_MN       5
157 #define LCPOPT_DEP6     6
158 #define LCPOPT_PFC      7
159 #define LCPOPT_ACFC     8
160 #define LCPOPT_FCSALT   9
161 #define LCPOPT_SDP      10
162 #define LCPOPT_NUMMODE  11
163 #define LCPOPT_DEP12    12
164 #define LCPOPT_CBACK    13
165 #define LCPOPT_DEP14    14
166 #define LCPOPT_DEP15    15
167 #define LCPOPT_DEP16    16
168 #define LCPOPT_MLMRRU   17
169 #define LCPOPT_MLSSNHF  18
170 #define LCPOPT_MLED     19
171 #define LCPOPT_PROP     20
172 #define LCPOPT_DCEID    21
173 #define LCPOPT_MPP      22
174 #define LCPOPT_LD       23
175 #define LCPOPT_LCPAOPT  24
176 #define LCPOPT_COBS     25
177 #define LCPOPT_PE       26
178 #define LCPOPT_MLHF     27
179 #define LCPOPT_I18N     28
180 #define LCPOPT_SDLOS    29
181 #define LCPOPT_PPPMUX   30
182
183 #define LCPOPT_MIN LCPOPT_VEXT
184 #define LCPOPT_MAX LCPOPT_PPPMUX
185
186 static const char *lcpconfopts[] = {
187         "Vend-Ext",             /* (0) */
188         "MRU",                  /* (1) */
189         "ACCM",                 /* (2) */
190         "Auth-Prot",            /* (3) */
191         "Qual-Prot",            /* (4) */
192         "Magic-Num",            /* (5) */
193         "deprecated(6)",        /* used to be a Quality Protocol */
194         "PFC",                  /* (7) */
195         "ACFC",                 /* (8) */
196         "FCS-Alt",              /* (9) */
197         "SDP",                  /* (10) */
198         "Num-Mode",             /* (11) */
199         "deprecated(12)",       /* used to be a Multi-Link-Procedure*/
200         "Call-Back",            /* (13) */
201         "deprecated(14)",       /* used to be a Connect-Time */
202         "deprecated(15)",       /* used to be a Compund-Frames */
203         "deprecated(16)",       /* used to be a Nominal-Data-Encap */
204         "MRRU",                 /* (17) */
205         "12-Bit seq #",         /* (18) */
206         "End-Disc",             /* (19) */
207         "Proprietary",          /* (20) */
208         "DCE-Id",               /* (21) */
209         "MP+",                  /* (22) */
210         "Link-Disc",            /* (23) */
211         "LCP-Auth-Opt",         /* (24) */
212         "COBS",                 /* (25) */
213         "Prefix-elision",       /* (26) */
214         "Multilink-header-Form",/* (27) */
215         "I18N",                 /* (28) */
216         "SDL-over-SONET/SDH",   /* (29) */
217         "PPP-Muxing",           /* (30) */
218 };
219
220 /* ECP - to be supported */
221
222 /* CCP Config Options */
223
224 #define CCPOPT_OUI      0       /* RFC1962 */
225 #define CCPOPT_PRED1    1       /* RFC1962 */
226 #define CCPOPT_PRED2    2       /* RFC1962 */
227 #define CCPOPT_PJUMP    3       /* RFC1962 */
228 /* 4-15 unassigned */
229 #define CCPOPT_HPPPC    16      /* RFC1962 */
230 #define CCPOPT_STACLZS  17      /* RFC1974 */
231 #define CCPOPT_MPPC     18      /* RFC2118 */
232 #define CCPOPT_GFZA     19      /* RFC1962 */
233 #define CCPOPT_V42BIS   20      /* RFC1962 */
234 #define CCPOPT_BSDCOMP  21      /* RFC1977 */
235 /* 22 unassigned */
236 #define CCPOPT_LZSDCP   23      /* RFC1967 */
237 #define CCPOPT_MVRCA    24      /* RFC1975 */
238 #define CCPOPT_DEC      25      /* RFC1976 */
239 #define CCPOPT_DEFLATE  26      /* RFC1979 */
240 /* 27-254 unassigned */
241 #define CCPOPT_RESV     255     /* RFC1962 */
242
243 static const struct tok ccpconfopts_values[] = {
244         { CCPOPT_OUI, "OUI" },
245         { CCPOPT_PRED1, "Pred-1" },
246         { CCPOPT_PRED2, "Pred-2" },
247         { CCPOPT_PJUMP, "Puddle" },
248         { CCPOPT_HPPPC, "HP-PPC" },
249         { CCPOPT_STACLZS, "Stac-LZS" },
250         { CCPOPT_MPPC, "MPPC" },
251         { CCPOPT_GFZA, "Gand-FZA" },
252         { CCPOPT_V42BIS, "V.42bis" },
253         { CCPOPT_BSDCOMP, "BSD-Comp" },
254         { CCPOPT_LZSDCP, "LZS-DCP" },
255         { CCPOPT_MVRCA, "MVRCA" },
256         { CCPOPT_DEC, "DEC" },
257         { CCPOPT_DEFLATE, "Deflate" },
258         { CCPOPT_RESV, "Reserved"},
259         {0,                 NULL}
260 };
261
262 /* BACP Config Options */
263
264 #define BACPOPT_FPEER   1       /* RFC2125 */
265
266 static const struct tok bacconfopts_values[] = {
267         { BACPOPT_FPEER, "Favored-Peer" },
268         {0,                 NULL}
269 };
270
271
272 /* SDCP - to be supported */
273
274 /* IPCP Config Options */
275 #define IPCPOPT_2ADDR   1       /* RFC1172, RFC1332 (deprecated) */
276 #define IPCPOPT_IPCOMP  2       /* RFC1332 */
277 #define IPCPOPT_ADDR    3       /* RFC1332 */
278 #define IPCPOPT_MOBILE4 4       /* RFC2290 */
279 #define IPCPOPT_PRIDNS  129     /* RFC1877 */
280 #define IPCPOPT_PRINBNS 130     /* RFC1877 */
281 #define IPCPOPT_SECDNS  131     /* RFC1877 */
282 #define IPCPOPT_SECNBNS 132     /* RFC1877 */
283
284 static const struct tok ipcpopt_values[] = {
285         { IPCPOPT_2ADDR, "IP-Addrs" },
286         { IPCPOPT_IPCOMP, "IP-Comp" },
287         { IPCPOPT_ADDR, "IP-Addr" },
288         { IPCPOPT_MOBILE4, "Home-Addr" },
289         { IPCPOPT_PRIDNS, "Pri-DNS" },
290         { IPCPOPT_PRINBNS, "Pri-NBNS" },
291         { IPCPOPT_SECDNS, "Sec-DNS" },
292         { IPCPOPT_SECNBNS, "Sec-NBNS" },
293         { 0,              NULL }
294 };
295
296 #define IPCPOPT_IPCOMP_HDRCOMP 0x61  /* rfc3544 */
297 #define IPCPOPT_IPCOMP_MINLEN    14
298
299 static const struct tok ipcpopt_compproto_values[] = {
300         { PPP_VJC, "VJ-Comp" },
301         { IPCPOPT_IPCOMP_HDRCOMP, "IP Header Compression" },
302         { 0,              NULL }
303 };
304
305 static const struct tok ipcpopt_compproto_subopt_values[] = {
306         { 1, "RTP-Compression" },
307         { 2, "Enhanced RTP-Compression" },
308         { 0,              NULL }
309 };
310
311 /* IP6CP Config Options */
312 #define IP6CP_IFID      1
313
314 static const struct tok ip6cpopt_values[] = {
315         { IP6CP_IFID, "Interface-ID" },
316         { 0,              NULL }
317 };
318
319 /* ATCP - to be supported */
320 /* OSINLCP - to be supported */
321 /* BVCP - to be supported */
322 /* BCP - to be supported */
323 /* IPXCP - to be supported */
324 /* MPLSCP - to be supported */
325
326 /* Auth Algorithms */
327
328 /* 0-4 Reserved (RFC1994) */
329 #define AUTHALG_CHAPMD5 5       /* RFC1994 */
330 #define AUTHALG_MSCHAP1 128     /* RFC2433 */
331 #define AUTHALG_MSCHAP2 129     /* RFC2795 */
332
333 static const struct tok authalg_values[] = {
334         { AUTHALG_CHAPMD5, "MD5" },
335         { AUTHALG_MSCHAP1, "MS-CHAPv1" },
336         { AUTHALG_MSCHAP2, "MS-CHAPv2" },
337         { 0,              NULL }
338 };
339
340 /* FCS Alternatives - to be supported */
341
342 /* Multilink Endpoint Discriminator (RFC1717) */
343 #define MEDCLASS_NULL   0       /* Null Class */
344 #define MEDCLASS_LOCAL  1       /* Locally Assigned */
345 #define MEDCLASS_IPV4   2       /* Internet Protocol (IPv4) */
346 #define MEDCLASS_MAC    3       /* IEEE 802.1 global MAC address */
347 #define MEDCLASS_MNB    4       /* PPP Magic Number Block */
348 #define MEDCLASS_PSNDN  5       /* Public Switched Network Director Number */
349
350 /* PPP LCP Callback */
351 #define CALLBACK_AUTH   0       /* Location determined by user auth */
352 #define CALLBACK_DSTR   1       /* Dialing string */
353 #define CALLBACK_LID    2       /* Location identifier */
354 #define CALLBACK_E164   3       /* E.164 number */
355 #define CALLBACK_X500   4       /* X.500 distinguished name */
356 #define CALLBACK_CBCP   6       /* Location is determined during CBCP nego */
357
358 static const struct tok ppp_callback_values[] = {
359         { CALLBACK_AUTH, "UserAuth" },
360         { CALLBACK_DSTR, "DialString" },
361         { CALLBACK_LID, "LocalID" },
362         { CALLBACK_E164, "E.164" },
363         { CALLBACK_X500, "X.500" },
364         { CALLBACK_CBCP, "CBCP" },
365         { 0,              NULL }
366 };
367
368 /* CHAP */
369
370 #define CHAP_CHAL       1
371 #define CHAP_RESP       2
372 #define CHAP_SUCC       3
373 #define CHAP_FAIL       4
374
375 static const struct tok chapcode_values[] = {
376         { CHAP_CHAL, "Challenge" },
377         { CHAP_RESP, "Response" },
378         { CHAP_SUCC, "Success" },
379         { CHAP_FAIL, "Fail" },
380         { 0, NULL}
381 };
382
383 /* PAP */
384
385 #define PAP_AREQ        1
386 #define PAP_AACK        2
387 #define PAP_ANAK        3
388
389 static const struct tok papcode_values[] = {
390         { PAP_AREQ, "Auth-Req" },
391         { PAP_AACK, "Auth-ACK" },
392         { PAP_ANAK, "Auth-NACK" },
393         { 0, NULL }
394 };
395
396 /* BAP */
397 #define BAP_CALLREQ     1
398 #define BAP_CALLRES     2
399 #define BAP_CBREQ       3
400 #define BAP_CBRES       4
401 #define BAP_LDQREQ      5
402 #define BAP_LDQRES      6
403 #define BAP_CSIND       7
404 #define BAP_CSRES       8
405
406 static int print_lcp_config_options(netdissect_options *, const u_char *p, int);
407 static int print_ipcp_config_options(netdissect_options *, const u_char *p, int);
408 static int print_ip6cp_config_options(netdissect_options *, const u_char *p, int);
409 static int print_ccp_config_options(netdissect_options *, const u_char *p, int);
410 static int print_bacp_config_options(netdissect_options *, const u_char *p, int);
411 static void handle_ppp(netdissect_options *, u_int proto, const u_char *p, int length);
412
413 /* generic Control Protocol (e.g. LCP, IPCP, CCP, etc.) handler */
414 static void
415 handle_ctrl_proto(netdissect_options *ndo,
416                   u_int proto, const u_char *pptr, int length)
417 {
418         const char *typestr;
419         u_int code, len;
420         int (*pfunc)(netdissect_options *, const u_char *, int);
421         int x, j;
422         const u_char *tptr;
423
424         tptr=pptr;
425
426         typestr = tok2str(ppptype2str, "unknown ctrl-proto (0x%04x)", proto);
427         ND_PRINT((ndo, "%s, ", typestr));
428
429         if (length < 4) /* FIXME weak boundary checking */
430                 goto trunc;
431         ND_TCHECK2(*tptr, 2);
432
433         code = *tptr++;
434
435         ND_PRINT((ndo, "%s (0x%02x), id %u, length %u",
436                   tok2str(cpcodes, "Unknown Opcode",code),
437                   code,
438                   *tptr++, /* ID */
439                   length + 2));
440
441         if (!ndo->ndo_vflag)
442                 return;
443
444         if (length <= 4)
445                 return;    /* there may be a NULL confreq etc. */
446
447         ND_TCHECK2(*tptr, 2);
448         len = EXTRACT_16BITS(tptr);
449         tptr += 2;
450
451         ND_PRINT((ndo, "\n\tencoded length %u (=Option(s) length %u)", len, len - 4));
452
453         if (ndo->ndo_vflag > 1)
454                 print_unknown_data(ndo, pptr - 2, "\n\t", 6);
455
456
457         switch (code) {
458         case CPCODES_VEXT:
459                 if (length < 11)
460                         break;
461                 ND_TCHECK2(*tptr, 4);
462                 ND_PRINT((ndo, "\n\t  Magic-Num 0x%08x", EXTRACT_32BITS(tptr)));
463                 tptr += 4;
464                 ND_TCHECK2(*tptr, 3);
465                 ND_PRINT((ndo, " Vendor: %s (%u)",
466                        tok2str(oui_values,"Unknown",EXTRACT_24BITS(tptr)),
467                        EXTRACT_24BITS(tptr)));
468                 /* XXX: need to decode Kind and Value(s)? */
469                 break;
470         case CPCODES_CONF_REQ:
471         case CPCODES_CONF_ACK:
472         case CPCODES_CONF_NAK:
473         case CPCODES_CONF_REJ:
474                 x = len - 4;    /* Code(1), Identifier(1) and Length(2) */
475                 do {
476                         switch (proto) {
477                         case PPP_LCP:
478                                 pfunc = print_lcp_config_options;
479                                 break;
480                         case PPP_IPCP:
481                                 pfunc = print_ipcp_config_options;
482                                 break;
483                         case PPP_IPV6CP:
484                                 pfunc = print_ip6cp_config_options;
485                                 break;
486                         case PPP_CCP:
487                                 pfunc = print_ccp_config_options;
488                                 break;
489                         case PPP_BACP:
490                                 pfunc = print_bacp_config_options;
491                                 break;
492                         default:
493                                 /*
494                                  * No print routine for the options for
495                                  * this protocol.
496                                  */
497                                 pfunc = NULL;
498                                 break;
499                         }
500
501                         if (pfunc == NULL) /* catch the above null pointer if unknown CP */
502                                 break;
503
504                         if ((j = (*pfunc)(ndo, tptr, len)) == 0)
505                                 break;
506                         x -= j;
507                         tptr += j;
508                 } while (x > 0);
509                 break;
510
511         case CPCODES_TERM_REQ:
512         case CPCODES_TERM_ACK:
513                 /* XXX: need to decode Data? */
514                 break;
515         case CPCODES_CODE_REJ:
516                 /* XXX: need to decode Rejected-Packet? */
517                 break;
518         case CPCODES_PROT_REJ:
519                 if (length < 6)
520                         break;
521                 ND_TCHECK2(*tptr, 2);
522                 ND_PRINT((ndo, "\n\t  Rejected %s Protocol (0x%04x)",
523                        tok2str(ppptype2str,"unknown", EXTRACT_16BITS(tptr)),
524                        EXTRACT_16BITS(tptr)));
525                 /* XXX: need to decode Rejected-Information? - hexdump for now */
526                 if (len > 6) {
527                         ND_PRINT((ndo, "\n\t  Rejected Packet"));
528                         print_unknown_data(ndo, tptr + 2, "\n\t    ", len - 2);
529                 }
530                 break;
531         case CPCODES_ECHO_REQ:
532         case CPCODES_ECHO_RPL:
533         case CPCODES_DISC_REQ:
534                 if (length < 8)
535                         break;
536                 ND_TCHECK2(*tptr, 4);
537                 ND_PRINT((ndo, "\n\t  Magic-Num 0x%08x", EXTRACT_32BITS(tptr)));
538                 /* XXX: need to decode Data? - hexdump for now */
539                 if (len > 8) {
540                         ND_PRINT((ndo, "\n\t  -----trailing data-----"));
541                         ND_TCHECK2(tptr[4], len - 8);
542                         print_unknown_data(ndo, tptr + 4, "\n\t  ", len - 8);
543                 }
544                 break;
545         case CPCODES_ID:
546                 if (length < 8)
547                         break;
548                 ND_TCHECK2(*tptr, 4);
549                 ND_PRINT((ndo, "\n\t  Magic-Num 0x%08x", EXTRACT_32BITS(tptr)));
550                 /* RFC 1661 says this is intended to be human readable */
551                 if (len > 8) {
552                         ND_PRINT((ndo, "\n\t  Message\n\t    "));
553                         if (fn_printn(ndo, tptr + 4, len - 4, ndo->ndo_snapend))
554                                 goto trunc;
555                 }
556                 break;
557         case CPCODES_TIME_REM:
558                 if (length < 12)
559                         break;
560                 ND_TCHECK2(*tptr, 4);
561                 ND_PRINT((ndo, "\n\t  Magic-Num 0x%08x", EXTRACT_32BITS(tptr)));
562                 ND_TCHECK2(*(tptr + 4), 4);
563                 ND_PRINT((ndo, ", Seconds-Remaining %us", EXTRACT_32BITS(tptr + 4)));
564                 /* XXX: need to decode Message? */
565                 break;
566         default:
567                 /* XXX this is dirty but we do not get the
568                  * original pointer passed to the begin
569                  * the PPP packet */
570                 if (ndo->ndo_vflag <= 1)
571                         print_unknown_data(ndo, pptr - 2, "\n\t  ", length + 2);
572                 break;
573         }
574         return;
575
576 trunc:
577         ND_PRINT((ndo, "[|%s]", typestr));
578 }
579
580 /* LCP config options */
581 static int
582 print_lcp_config_options(netdissect_options *ndo,
583                          const u_char *p, int length)
584 {
585         int len, opt;
586
587         if (length < 2)
588                 return 0;
589         ND_TCHECK2(*p, 2);
590         len = p[1];
591         opt = p[0];
592         if (length < len)
593                 return 0;
594         if (len < 2) {
595                 if ((opt >= LCPOPT_MIN) && (opt <= LCPOPT_MAX))
596                         ND_PRINT((ndo, "\n\t  %s Option (0x%02x), length %u (length bogus, should be >= 2)",
597                                   lcpconfopts[opt], opt, len));
598                 else
599                         ND_PRINT((ndo, "\n\tunknown LCP option 0x%02x", opt));
600                 return 0;
601         }
602         if ((opt >= LCPOPT_MIN) && (opt <= LCPOPT_MAX))
603                 ND_PRINT((ndo, "\n\t  %s Option (0x%02x), length %u", lcpconfopts[opt], opt, len));
604         else {
605                 ND_PRINT((ndo, "\n\tunknown LCP option 0x%02x", opt));
606                 return len;
607         }
608
609         switch (opt) {
610         case LCPOPT_VEXT:
611                 if (len < 6) {
612                         ND_PRINT((ndo, " (length bogus, should be >= 6)"));
613                         return len;
614                 }
615                 ND_TCHECK2(*(p + 2), 3);
616                 ND_PRINT((ndo, ": Vendor: %s (%u)",
617                         tok2str(oui_values,"Unknown",EXTRACT_24BITS(p+2)),
618                         EXTRACT_24BITS(p + 2)));
619 #if 0
620                 ND_TCHECK(p[5]);
621                 ND_PRINT((ndo, ", kind: 0x%02x", p[5]));
622                 ND_PRINT((ndo, ", Value: 0x"));
623                 for (i = 0; i < len - 6; i++) {
624                         ND_TCHECK(p[6 + i]);
625                         ND_PRINT((ndo, "%02x", p[6 + i]));
626                 }
627 #endif
628                 break;
629         case LCPOPT_MRU:
630                 if (len != 4) {
631                         ND_PRINT((ndo, " (length bogus, should be = 4)"));
632                         return len;
633                 }
634                 ND_TCHECK2(*(p + 2), 2);
635                 ND_PRINT((ndo, ": %u", EXTRACT_16BITS(p + 2)));
636                 break;
637         case LCPOPT_ACCM:
638                 if (len != 6) {
639                         ND_PRINT((ndo, " (length bogus, should be = 6)"));
640                         return len;
641                 }
642                 ND_TCHECK2(*(p + 2), 4);
643                 ND_PRINT((ndo, ": 0x%08x", EXTRACT_32BITS(p + 2)));
644                 break;
645         case LCPOPT_AP:
646                 if (len < 4) {
647                         ND_PRINT((ndo, " (length bogus, should be >= 4)"));
648                         return len;
649                 }
650                 ND_TCHECK2(*(p + 2), 2);
651                 ND_PRINT((ndo, ": %s", tok2str(ppptype2str, "Unknown Auth Proto (0x04x)", EXTRACT_16BITS(p + 2))));
652
653                 switch (EXTRACT_16BITS(p+2)) {
654                 case PPP_CHAP:
655                         ND_TCHECK(p[4]);
656                         ND_PRINT((ndo, ", %s", tok2str(authalg_values, "Unknown Auth Alg %u", p[4])));
657                         break;
658                 case PPP_PAP: /* fall through */
659                 case PPP_EAP:
660                 case PPP_SPAP:
661                 case PPP_SPAP_OLD:
662                         break;
663                 default:
664                         print_unknown_data(ndo, p, "\n\t", len);
665                 }
666                 break;
667         case LCPOPT_QP:
668                 if (len < 4) {
669                         ND_PRINT((ndo, " (length bogus, should be >= 4)"));
670                         return 0;
671                 }
672                 ND_TCHECK2(*(p + 2), 2);
673                 if (EXTRACT_16BITS(p+2) == PPP_LQM)
674                         ND_PRINT((ndo, ": LQR"));
675                 else
676                         ND_PRINT((ndo, ": unknown"));
677                 break;
678         case LCPOPT_MN:
679                 if (len != 6) {
680                         ND_PRINT((ndo, " (length bogus, should be = 6)"));
681                         return 0;
682                 }
683                 ND_TCHECK2(*(p + 2), 4);
684                 ND_PRINT((ndo, ": 0x%08x", EXTRACT_32BITS(p + 2)));
685                 break;
686         case LCPOPT_PFC:
687                 break;
688         case LCPOPT_ACFC:
689                 break;
690         case LCPOPT_LD:
691                 if (len != 4) {
692                         ND_PRINT((ndo, " (length bogus, should be = 4)"));
693                         return 0;
694                 }
695                 ND_TCHECK2(*(p + 2), 2);
696                 ND_PRINT((ndo, ": 0x%04x", EXTRACT_16BITS(p + 2)));
697                 break;
698         case LCPOPT_CBACK:
699                 if (len < 3) {
700                         ND_PRINT((ndo, " (length bogus, should be >= 3)"));
701                         return 0;
702                 }
703                 ND_PRINT((ndo, ": "));
704                 ND_TCHECK(p[2]);
705                 ND_PRINT((ndo, ": Callback Operation %s (%u)",
706                        tok2str(ppp_callback_values, "Unknown", p[2]),
707                        p[2]));
708                 break;
709         case LCPOPT_MLMRRU:
710                 if (len != 4) {
711                         ND_PRINT((ndo, " (length bogus, should be = 4)"));
712                         return 0;
713                 }
714                 ND_TCHECK2(*(p + 2), 2);
715                 ND_PRINT((ndo, ": %u", EXTRACT_16BITS(p + 2)));
716                 break;
717         case LCPOPT_MLED:
718                 if (len < 3) {
719                         ND_PRINT((ndo, " (length bogus, should be >= 3)"));
720                         return 0;
721                 }
722                 ND_TCHECK(p[2]);
723                 switch (p[2]) {         /* class */
724                 case MEDCLASS_NULL:
725                         ND_PRINT((ndo, ": Null"));
726                         break;
727                 case MEDCLASS_LOCAL:
728                         ND_PRINT((ndo, ": Local")); /* XXX */
729                         break;
730                 case MEDCLASS_IPV4:
731                         if (len != 7) {
732                                 ND_PRINT((ndo, " (length bogus, should be = 7)"));
733                                 return 0;
734                         }
735                         ND_TCHECK2(*(p + 3), 4);
736                         ND_PRINT((ndo, ": IPv4 %s", ipaddr_string(ndo, p + 3)));
737                         break;
738                 case MEDCLASS_MAC:
739                         if (len != 9) {
740                                 ND_PRINT((ndo, " (length bogus, should be = 9)"));
741                                 return 0;
742                         }
743                         ND_TCHECK2(*(p + 3), 6);
744                         ND_PRINT((ndo, ": MAC %s", etheraddr_string(ndo, p + 3)));
745                         break;
746                 case MEDCLASS_MNB:
747                         ND_PRINT((ndo, ": Magic-Num-Block")); /* XXX */
748                         break;
749                 case MEDCLASS_PSNDN:
750                         ND_PRINT((ndo, ": PSNDN")); /* XXX */
751                         break;
752                 default:
753                         ND_PRINT((ndo, ": Unknown class %u", p[2]));
754                         break;
755                 }
756                 break;
757
758 /* XXX: to be supported */
759 #if 0
760         case LCPOPT_DEP6:
761         case LCPOPT_FCSALT:
762         case LCPOPT_SDP:
763         case LCPOPT_NUMMODE:
764         case LCPOPT_DEP12:
765         case LCPOPT_DEP14:
766         case LCPOPT_DEP15:
767         case LCPOPT_DEP16:
768         case LCPOPT_MLSSNHF:
769         case LCPOPT_PROP:
770         case LCPOPT_DCEID:
771         case LCPOPT_MPP:
772         case LCPOPT_LCPAOPT:
773         case LCPOPT_COBS:
774         case LCPOPT_PE:
775         case LCPOPT_MLHF:
776         case LCPOPT_I18N:
777         case LCPOPT_SDLOS:
778         case LCPOPT_PPPMUX:
779                 break;
780 #endif
781         default:
782                 /*
783                  * Unknown option; dump it as raw bytes now if we're
784                  * not going to do so below.
785                  */
786                 if (ndo->ndo_vflag < 2)
787                         print_unknown_data(ndo, &p[2], "\n\t    ", len - 2);
788                 break;
789         }
790
791         if (ndo->ndo_vflag > 1)
792                 print_unknown_data(ndo, &p[2], "\n\t    ", len - 2); /* exclude TLV header */
793
794         return len;
795
796 trunc:
797         ND_PRINT((ndo, "[|lcp]"));
798         return 0;
799 }
800
801 /* ML-PPP*/
802 static const struct tok ppp_ml_flag_values[] = {
803     { 0x80, "begin" },
804     { 0x40, "end" },
805     { 0, NULL }
806 };
807
808 static void
809 handle_mlppp(netdissect_options *ndo,
810              const u_char *p, int length)
811 {
812     if (!ndo->ndo_eflag)
813         ND_PRINT((ndo, "MLPPP, "));
814
815     ND_PRINT((ndo, "seq 0x%03x, Flags [%s], length %u",
816            (EXTRACT_16BITS(p))&0x0fff, /* only support 12-Bit sequence space for now */
817            bittok2str(ppp_ml_flag_values, "none", *p & 0xc0),
818            length));
819 }
820
821 /* CHAP */
822 static void
823 handle_chap(netdissect_options *ndo,
824             const u_char *p, int length)
825 {
826         u_int code, len;
827         int val_size, name_size, msg_size;
828         const u_char *p0;
829         int i;
830
831         p0 = p;
832         if (length < 1) {
833                 ND_PRINT((ndo, "[|chap]"));
834                 return;
835         } else if (length < 4) {
836                 ND_TCHECK(*p);
837                 ND_PRINT((ndo, "[|chap 0x%02x]", *p));
838                 return;
839         }
840
841         ND_TCHECK(*p);
842         code = *p;
843         ND_PRINT((ndo, "CHAP, %s (0x%02x)",
844                tok2str(chapcode_values,"unknown",code),
845                code));
846         p++;
847
848         ND_TCHECK(*p);
849         ND_PRINT((ndo, ", id %u", *p));         /* ID */
850         p++;
851
852         ND_TCHECK2(*p, 2);
853         len = EXTRACT_16BITS(p);
854         p += 2;
855
856         /*
857          * Note that this is a generic CHAP decoding routine. Since we
858          * don't know which flavor of CHAP (i.e. CHAP-MD5, MS-CHAPv1,
859          * MS-CHAPv2) is used at this point, we can't decode packet
860          * specifically to each algorithms. Instead, we simply decode
861          * the GCD (Gratest Common Denominator) for all algorithms.
862          */
863         switch (code) {
864         case CHAP_CHAL:
865         case CHAP_RESP:
866                 if (length - (p - p0) < 1)
867                         return;
868                 ND_TCHECK(*p);
869                 val_size = *p;          /* value size */
870                 p++;
871                 if (length - (p - p0) < val_size)
872                         return;
873                 ND_PRINT((ndo, ", Value "));
874                 for (i = 0; i < val_size; i++) {
875                         ND_TCHECK(*p);
876                         ND_PRINT((ndo, "%02x", *p++));
877                 }
878                 name_size = len - (p - p0);
879                 ND_PRINT((ndo, ", Name "));
880                 for (i = 0; i < name_size; i++) {
881                         ND_TCHECK(*p);
882                         safeputchar(ndo, *p++);
883                 }
884                 break;
885         case CHAP_SUCC:
886         case CHAP_FAIL:
887                 msg_size = len - (p - p0);
888                 ND_PRINT((ndo, ", Msg "));
889                 for (i = 0; i< msg_size; i++) {
890                         ND_TCHECK(*p);
891                         safeputchar(ndo, *p++);
892                 }
893                 break;
894         }
895         return;
896
897 trunc:
898         ND_PRINT((ndo, "[|chap]"));
899 }
900
901 /* PAP (see RFC 1334) */
902 static void
903 handle_pap(netdissect_options *ndo,
904            const u_char *p, int length)
905 {
906         u_int code, len;
907         int peerid_len, passwd_len, msg_len;
908         const u_char *p0;
909         int i;
910
911         p0 = p;
912         if (length < 1) {
913                 ND_PRINT((ndo, "[|pap]"));
914                 return;
915         } else if (length < 4) {
916                 ND_TCHECK(*p);
917                 ND_PRINT((ndo, "[|pap 0x%02x]", *p));
918                 return;
919         }
920
921         ND_TCHECK(*p);
922         code = *p;
923         ND_PRINT((ndo, "PAP, %s (0x%02x)",
924                   tok2str(papcode_values, "unknown", code),
925                   code));
926         p++;
927
928         ND_TCHECK(*p);
929         ND_PRINT((ndo, ", id %u", *p));         /* ID */
930         p++;
931
932         ND_TCHECK2(*p, 2);
933         len = EXTRACT_16BITS(p);
934         p += 2;
935
936         if ((int)len > length) {
937                 ND_PRINT((ndo, ", length %u > packet size", len));
938                 return;
939         }
940         length = len;
941         if (length < (p - p0)) {
942                 ND_PRINT((ndo, ", length %u < PAP header length", length));
943                 return;
944         }
945
946         switch (code) {
947         case PAP_AREQ:
948                 if (length - (p - p0) < 1)
949                         return;
950                 ND_TCHECK(*p);
951                 peerid_len = *p;        /* Peer-ID Length */
952                 p++;
953                 if (length - (p - p0) < peerid_len)
954                         return;
955                 ND_PRINT((ndo, ", Peer "));
956                 for (i = 0; i < peerid_len; i++) {
957                         ND_TCHECK(*p);
958                         safeputchar(ndo, *p++);
959                 }
960
961                 if (length - (p - p0) < 1)
962                         return;
963                 ND_TCHECK(*p);
964                 passwd_len = *p;        /* Password Length */
965                 p++;
966                 if (length - (p - p0) < passwd_len)
967                         return;
968                 ND_PRINT((ndo, ", Name "));
969                 for (i = 0; i < passwd_len; i++) {
970                         ND_TCHECK(*p);
971                         safeputchar(ndo, *p++);
972                 }
973                 break;
974         case PAP_AACK:
975         case PAP_ANAK:
976                 if (length - (p - p0) < 1)
977                         return;
978                 ND_TCHECK(*p);
979                 msg_len = *p;           /* Msg-Length */
980                 p++;
981                 if (length - (p - p0) < msg_len)
982                         return;
983                 ND_PRINT((ndo, ", Msg "));
984                 for (i = 0; i< msg_len; i++) {
985                         ND_TCHECK(*p);
986                         safeputchar(ndo, *p++);
987                 }
988                 break;
989         }
990         return;
991
992 trunc:
993         ND_PRINT((ndo, "[|pap]"));
994 }
995
996 /* BAP */
997 static void
998 handle_bap(netdissect_options *ndo _U_,
999            const u_char *p _U_, int length _U_)
1000 {
1001         /* XXX: to be supported!! */
1002 }
1003
1004
1005 /* IPCP config options */
1006 static int
1007 print_ipcp_config_options(netdissect_options *ndo,
1008                           const u_char *p, int length)
1009 {
1010         int len, opt;
1011         u_int compproto, ipcomp_subopttotallen, ipcomp_subopt, ipcomp_suboptlen;
1012
1013         if (length < 2)
1014                 return 0;
1015         ND_TCHECK2(*p, 2);
1016         len = p[1];
1017         opt = p[0];
1018         if (length < len)
1019                 return 0;
1020         if (len < 2) {
1021                 ND_PRINT((ndo, "\n\t  %s Option (0x%02x), length %u (length bogus, should be >= 2)",
1022                        tok2str(ipcpopt_values,"unknown",opt),
1023                        opt,
1024                        len));
1025                 return 0;
1026         }
1027
1028         ND_PRINT((ndo, "\n\t  %s Option (0x%02x), length %u",
1029                tok2str(ipcpopt_values,"unknown",opt),
1030                opt,
1031                len));
1032
1033         switch (opt) {
1034         case IPCPOPT_2ADDR:             /* deprecated */
1035                 if (len != 10) {
1036                         ND_PRINT((ndo, " (length bogus, should be = 10)"));
1037                         return len;
1038                 }
1039                 ND_TCHECK2(*(p + 6), 4);
1040                 ND_PRINT((ndo, ": src %s, dst %s",
1041                        ipaddr_string(ndo, p + 2),
1042                        ipaddr_string(ndo, p + 6)));
1043                 break;
1044         case IPCPOPT_IPCOMP:
1045                 if (len < 4) {
1046                         ND_PRINT((ndo, " (length bogus, should be >= 4)"));
1047                         return 0;
1048                 }
1049                 ND_TCHECK2(*(p + 2), 2);
1050                 compproto = EXTRACT_16BITS(p+2);
1051
1052                 ND_PRINT((ndo, ": %s (0x%02x):",
1053                           tok2str(ipcpopt_compproto_values, "Unknown", compproto),
1054                           compproto));
1055
1056                 switch (compproto) {
1057                 case PPP_VJC:
1058                         /* XXX: VJ-Comp parameters should be decoded */
1059                         break;
1060                 case IPCPOPT_IPCOMP_HDRCOMP:
1061                         if (len < IPCPOPT_IPCOMP_MINLEN) {
1062                                 ND_PRINT((ndo, " (length bogus, should be >= %u)",
1063                                         IPCPOPT_IPCOMP_MINLEN));
1064                                 return 0;
1065                         }
1066
1067                         ND_TCHECK2(*(p + 2), IPCPOPT_IPCOMP_MINLEN);
1068                         ND_PRINT((ndo, "\n\t    TCP Space %u, non-TCP Space %u" \
1069                                ", maxPeriod %u, maxTime %u, maxHdr %u",
1070                                EXTRACT_16BITS(p+4),
1071                                EXTRACT_16BITS(p+6),
1072                                EXTRACT_16BITS(p+8),
1073                                EXTRACT_16BITS(p+10),
1074                                EXTRACT_16BITS(p+12)));
1075
1076                         /* suboptions present ? */
1077                         if (len > IPCPOPT_IPCOMP_MINLEN) {
1078                                 ipcomp_subopttotallen = len - IPCPOPT_IPCOMP_MINLEN;
1079                                 p += IPCPOPT_IPCOMP_MINLEN;
1080
1081                                 ND_PRINT((ndo, "\n\t      Suboptions, length %u", ipcomp_subopttotallen));
1082
1083                                 while (ipcomp_subopttotallen >= 2) {
1084                                         ND_TCHECK2(*p, 2);
1085                                         ipcomp_subopt = *p;
1086                                         ipcomp_suboptlen = *(p+1);
1087
1088                                         /* sanity check */
1089                                         if (ipcomp_subopt == 0 ||
1090                                             ipcomp_suboptlen == 0 )
1091                                                 break;
1092
1093                                         /* XXX: just display the suboptions for now */
1094                                         ND_PRINT((ndo, "\n\t\t%s Suboption #%u, length %u",
1095                                                tok2str(ipcpopt_compproto_subopt_values,
1096                                                        "Unknown",
1097                                                        ipcomp_subopt),
1098                                                ipcomp_subopt,
1099                                                ipcomp_suboptlen));
1100
1101                                         ipcomp_subopttotallen -= ipcomp_suboptlen;
1102                                         p += ipcomp_suboptlen;
1103                                 }
1104                         }
1105                         break;
1106                 default:
1107                         break;
1108                 }
1109                 break;
1110
1111         case IPCPOPT_ADDR:     /* those options share the same format - fall through */
1112         case IPCPOPT_MOBILE4:
1113         case IPCPOPT_PRIDNS:
1114         case IPCPOPT_PRINBNS:
1115         case IPCPOPT_SECDNS:
1116         case IPCPOPT_SECNBNS:
1117                 if (len != 6) {
1118                         ND_PRINT((ndo, " (length bogus, should be = 6)"));
1119                         return 0;
1120                 }
1121                 ND_TCHECK2(*(p + 2), 4);
1122                 ND_PRINT((ndo, ": %s", ipaddr_string(ndo, p + 2)));
1123                 break;
1124         default:
1125                 /*
1126                  * Unknown option; dump it as raw bytes now if we're
1127                  * not going to do so below.
1128                  */
1129                 if (ndo->ndo_vflag < 2)
1130                         print_unknown_data(ndo, &p[2], "\n\t    ", len - 2);
1131                 break;
1132         }
1133         if (ndo->ndo_vflag > 1)
1134                 print_unknown_data(ndo, &p[2], "\n\t    ", len - 2); /* exclude TLV header */
1135         return len;
1136
1137 trunc:
1138         ND_PRINT((ndo, "[|ipcp]"));
1139         return 0;
1140 }
1141
1142 /* IP6CP config options */
1143 static int
1144 print_ip6cp_config_options(netdissect_options *ndo,
1145                            const u_char *p, int length)
1146 {
1147         int len, opt;
1148
1149         if (length < 2)
1150                 return 0;
1151         ND_TCHECK2(*p, 2);
1152         len = p[1];
1153         opt = p[0];
1154         if (length < len)
1155                 return 0;
1156         if (len < 2) {
1157                 ND_PRINT((ndo, "\n\t  %s Option (0x%02x), length %u (length bogus, should be >= 2)",
1158                        tok2str(ip6cpopt_values,"unknown",opt),
1159                        opt,
1160                        len));
1161                 return 0;
1162         }
1163
1164         ND_PRINT((ndo, "\n\t  %s Option (0x%02x), length %u",
1165                tok2str(ip6cpopt_values,"unknown",opt),
1166                opt,
1167                len));
1168
1169         switch (opt) {
1170         case IP6CP_IFID:
1171                 if (len != 10) {
1172                         ND_PRINT((ndo, " (length bogus, should be = 10)"));
1173                         return len;
1174                 }
1175                 ND_TCHECK2(*(p + 2), 8);
1176                 ND_PRINT((ndo, ": %04x:%04x:%04x:%04x",
1177                        EXTRACT_16BITS(p + 2),
1178                        EXTRACT_16BITS(p + 4),
1179                        EXTRACT_16BITS(p + 6),
1180                        EXTRACT_16BITS(p + 8)));
1181                 break;
1182         default:
1183                 /*
1184                  * Unknown option; dump it as raw bytes now if we're
1185                  * not going to do so below.
1186                  */
1187                 if (ndo->ndo_vflag < 2)
1188                         print_unknown_data(ndo, &p[2], "\n\t    ", len - 2);
1189                 break;
1190         }
1191         if (ndo->ndo_vflag > 1)
1192                 print_unknown_data(ndo, &p[2], "\n\t    ", len - 2); /* exclude TLV header */
1193
1194         return len;
1195
1196 trunc:
1197         ND_PRINT((ndo, "[|ip6cp]"));
1198         return 0;
1199 }
1200
1201
1202 /* CCP config options */
1203 static int
1204 print_ccp_config_options(netdissect_options *ndo,
1205                          const u_char *p, int length)
1206 {
1207         int len, opt;
1208
1209         if (length < 2)
1210                 return 0;
1211         ND_TCHECK2(*p, 2);
1212         len = p[1];
1213         opt = p[0];
1214         if (length < len)
1215                 return 0;
1216         if (len < 2) {
1217                 ND_PRINT((ndo, "\n\t  %s Option (0x%02x), length %u (length bogus, should be >= 2)",
1218                           tok2str(ccpconfopts_values, "Unknown", opt),
1219                           opt,
1220                           len));
1221                 return 0;
1222         }
1223
1224         ND_PRINT((ndo, "\n\t  %s Option (0x%02x), length %u",
1225                   tok2str(ccpconfopts_values, "Unknown", opt),
1226                   opt,
1227                   len));
1228
1229         switch (opt) {
1230         case CCPOPT_BSDCOMP:
1231                 if (len < 3) {
1232                         ND_PRINT((ndo, " (length bogus, should be >= 3)"));
1233                         return len;
1234                 }
1235                 ND_TCHECK2(*(p + 2), 1);
1236                 ND_PRINT((ndo, ": Version: %u, Dictionary Bits: %u",
1237                         p[2] >> 5, p[2] & 0x1f));
1238                 break;
1239         case CCPOPT_MVRCA:
1240                 if (len < 4) {
1241                         ND_PRINT((ndo, " (length bogus, should be >= 4)"));
1242                         return len;
1243                 }
1244                 ND_TCHECK2(*(p + 2), 1);
1245                 ND_PRINT((ndo, ": Features: %u, PxP: %s, History: %u, #CTX-ID: %u",
1246                                 (p[2] & 0xc0) >> 6,
1247                                 (p[2] & 0x20) ? "Enabled" : "Disabled",
1248                                 p[2] & 0x1f, p[3]));
1249                 break;
1250         case CCPOPT_DEFLATE:
1251                 if (len < 4) {
1252                         ND_PRINT((ndo, " (length bogus, should be >= 4)"));
1253                         return len;
1254                 }
1255                 ND_TCHECK2(*(p + 2), 1);
1256                 ND_PRINT((ndo, ": Window: %uK, Method: %s (0x%x), MBZ: %u, CHK: %u",
1257                         (p[2] & 0xf0) >> 4,
1258                         ((p[2] & 0x0f) == 8) ? "zlib" : "unkown",
1259                         p[2] & 0x0f, (p[3] & 0xfc) >> 2, p[3] & 0x03));
1260                 break;
1261
1262 /* XXX: to be supported */
1263 #if 0
1264         case CCPOPT_OUI:
1265         case CCPOPT_PRED1:
1266         case CCPOPT_PRED2:
1267         case CCPOPT_PJUMP:
1268         case CCPOPT_HPPPC:
1269         case CCPOPT_STACLZS:
1270         case CCPOPT_MPPC:
1271         case CCPOPT_GFZA:
1272         case CCPOPT_V42BIS:
1273         case CCPOPT_LZSDCP:
1274         case CCPOPT_DEC:
1275         case CCPOPT_RESV:
1276                 break;
1277 #endif
1278         default:
1279                 /*
1280                  * Unknown option; dump it as raw bytes now if we're
1281                  * not going to do so below.
1282                  */
1283                 if (ndo->ndo_vflag < 2)
1284                         print_unknown_data(ndo, &p[2], "\n\t    ", len - 2);
1285                 break;
1286         }
1287         if (ndo->ndo_vflag > 1)
1288                 print_unknown_data(ndo, &p[2], "\n\t    ", len - 2); /* exclude TLV header */
1289
1290         return len;
1291
1292 trunc:
1293         ND_PRINT((ndo, "[|ccp]"));
1294         return 0;
1295 }
1296
1297 /* BACP config options */
1298 static int
1299 print_bacp_config_options(netdissect_options *ndo,
1300                           const u_char *p, int length)
1301 {
1302         int len, opt;
1303
1304         if (length < 2)
1305                 return 0;
1306         ND_TCHECK2(*p, 2);
1307         len = p[1];
1308         opt = p[0];
1309         if (length < len)
1310                 return 0;
1311         if (len < 2) {
1312                 ND_PRINT((ndo, "\n\t  %s Option (0x%02x), length %u (length bogus, should be >= 2)",
1313                           tok2str(bacconfopts_values, "Unknown", opt),
1314                           opt,
1315                           len));
1316                 return 0;
1317         }
1318
1319         ND_PRINT((ndo, "\n\t  %s Option (0x%02x), length %u",
1320                   tok2str(bacconfopts_values, "Unknown", opt),
1321                   opt,
1322                   len));
1323
1324         switch (opt) {
1325         case BACPOPT_FPEER:
1326                 if (len != 6) {
1327                         ND_PRINT((ndo, " (length bogus, should be = 6)"));
1328                         return len;
1329                 }
1330                 ND_TCHECK2(*(p + 2), 4);
1331                 ND_PRINT((ndo, ": Magic-Num 0x%08x", EXTRACT_32BITS(p + 2)));
1332                 break;
1333         default:
1334                 /*
1335                  * Unknown option; dump it as raw bytes now if we're
1336                  * not going to do so below.
1337                  */
1338                 if (ndo->ndo_vflag < 2)
1339                         print_unknown_data(ndo, &p[2], "\n\t    ", len - 2);
1340                 break;
1341         }
1342         if (ndo->ndo_vflag > 1)
1343                 print_unknown_data(ndo, &p[2], "\n\t    ", len - 2); /* exclude TLV header */
1344
1345         return len;
1346
1347 trunc:
1348         ND_PRINT((ndo, "[|bacp]"));
1349         return 0;
1350 }
1351
1352 static void
1353 ppp_hdlc(netdissect_options *ndo,
1354          const u_char *p, int length)
1355 {
1356         u_char *b, *t, c;
1357         const u_char *s;
1358         int i, proto;
1359         const void *se;
1360
1361         if (length <= 0)
1362                 return;
1363
1364         b = (u_char *)malloc(length);
1365         if (b == NULL)
1366                 return;
1367
1368         /*
1369          * Unescape all the data into a temporary, private, buffer.
1370          * Do this so that we dont overwrite the original packet
1371          * contents.
1372          */
1373         for (s = p, t = b, i = length; i > 0 && ND_TTEST(*s); i--) {
1374                 c = *s++;
1375                 if (c == 0x7d) {
1376                         if (i <= 1 || !ND_TTEST(*s))
1377                                 break;
1378                         i--;
1379                         c = *s++ ^ 0x20;
1380                 }
1381                 *t++ = c;
1382         }
1383
1384         se = ndo->ndo_snapend;
1385         ndo->ndo_snapend = t;
1386         length = t - b;
1387
1388         /* now lets guess about the payload codepoint format */
1389         if (length < 1)
1390                 goto trunc;
1391         proto = *b; /* start with a one-octet codepoint guess */
1392
1393         switch (proto) {
1394         case PPP_IP:
1395                 ip_print(ndo, b + 1, length - 1);
1396                 goto cleanup;
1397         case PPP_IPV6:
1398                 ip6_print(ndo, b + 1, length - 1);
1399                 goto cleanup;
1400         default: /* no luck - try next guess */
1401                 break;
1402         }
1403
1404         if (length < 2)
1405                 goto trunc;
1406         proto = EXTRACT_16BITS(b); /* next guess - load two octets */
1407
1408         switch (proto) {
1409         case (PPP_ADDRESS << 8 | PPP_CONTROL): /* looks like a PPP frame */
1410             if (length < 4)
1411                 goto trunc;
1412             proto = EXTRACT_16BITS(b+2); /* load the PPP proto-id */
1413             handle_ppp(ndo, proto, b + 4, length - 4);
1414             break;
1415         default: /* last guess - proto must be a PPP proto-id */
1416             handle_ppp(ndo, proto, b + 2, length - 2);
1417             break;
1418         }
1419
1420 cleanup:
1421         ndo->ndo_snapend = se;
1422         free(b);
1423         return;
1424
1425 trunc:
1426         ndo->ndo_snapend = se;
1427         free(b);
1428         ND_PRINT((ndo, "[|ppp]"));
1429 }
1430
1431
1432 /* PPP */
1433 static void
1434 handle_ppp(netdissect_options *ndo,
1435            u_int proto, const u_char *p, int length)
1436 {
1437         if ((proto & 0xff00) == 0x7e00) { /* is this an escape code ? */
1438                 ppp_hdlc(ndo, p - 1, length);
1439                 return;
1440         }
1441
1442         switch (proto) {
1443         case PPP_LCP: /* fall through */
1444         case PPP_IPCP:
1445         case PPP_OSICP:
1446         case PPP_MPLSCP:
1447         case PPP_IPV6CP:
1448         case PPP_CCP:
1449         case PPP_BACP:
1450                 handle_ctrl_proto(ndo, proto, p, length);
1451                 break;
1452         case PPP_ML:
1453                 handle_mlppp(ndo, p, length);
1454                 break;
1455         case PPP_CHAP:
1456                 handle_chap(ndo, p, length);
1457                 break;
1458         case PPP_PAP:
1459                 handle_pap(ndo, p, length);
1460                 break;
1461         case PPP_BAP:           /* XXX: not yet completed */
1462                 handle_bap(ndo, p, length);
1463                 break;
1464         case ETHERTYPE_IP:      /*XXX*/
1465         case PPP_VJNC:
1466         case PPP_IP:
1467                 ip_print(ndo, p, length);
1468                 break;
1469         case ETHERTYPE_IPV6:    /*XXX*/
1470         case PPP_IPV6:
1471                 ip6_print(ndo, p, length);
1472                 break;
1473         case ETHERTYPE_IPX:     /*XXX*/
1474         case PPP_IPX:
1475                 ipx_print(ndo, p, length);
1476                 break;
1477         case PPP_OSI:
1478                 isoclns_print(ndo, p, length, length);
1479                 break;
1480         case PPP_MPLS_UCAST:
1481         case PPP_MPLS_MCAST:
1482                 mpls_print(ndo, p, length);
1483                 break;
1484         case PPP_COMP:
1485                 ND_PRINT((ndo, "compressed PPP data"));
1486                 break;
1487         default:
1488                 ND_PRINT((ndo, "%s ", tok2str(ppptype2str, "unknown PPP protocol (0x%04x)", proto)));
1489                 print_unknown_data(ndo, p, "\n\t", length);
1490                 break;
1491         }
1492 }
1493
1494 /* Standard PPP printer */
1495 u_int
1496 ppp_print(netdissect_options *ndo,
1497           register const u_char *p, u_int length)
1498 {
1499         u_int proto,ppp_header;
1500         u_int olen = length; /* _o_riginal length */
1501         u_int hdr_len = 0;
1502
1503         /*
1504          * Here, we assume that p points to the Address and Control
1505          * field (if they present).
1506          */
1507         if (length < 2)
1508                 goto trunc;
1509         ND_TCHECK2(*p, 2);
1510         ppp_header = EXTRACT_16BITS(p);
1511
1512         switch(ppp_header) {
1513         case (PPP_WITHDIRECTION_IN  << 8 | PPP_CONTROL):
1514             if (ndo->ndo_eflag) ND_PRINT((ndo, "In  "));
1515             p += 2;
1516             length -= 2;
1517             hdr_len += 2;
1518             break;
1519         case (PPP_WITHDIRECTION_OUT << 8 | PPP_CONTROL):
1520             if (ndo->ndo_eflag) ND_PRINT((ndo, "Out "));
1521             p += 2;
1522             length -= 2;
1523             hdr_len += 2;
1524             break;
1525         case (PPP_ADDRESS << 8 | PPP_CONTROL):
1526             p += 2;                     /* ACFC not used */
1527             length -= 2;
1528             hdr_len += 2;
1529             break;
1530
1531         default:
1532             break;
1533         }
1534
1535         if (length < 2)
1536                 goto trunc;
1537         ND_TCHECK(*p);
1538         if (*p % 2) {
1539                 proto = *p;             /* PFC is used */
1540                 p++;
1541                 length--;
1542                 hdr_len++;
1543         } else {
1544                 ND_TCHECK2(*p, 2);
1545                 proto = EXTRACT_16BITS(p);
1546                 p += 2;
1547                 length -= 2;
1548                 hdr_len += 2;
1549         }
1550
1551         if (ndo->ndo_eflag)
1552                 ND_PRINT((ndo, "%s (0x%04x), length %u: ",
1553                           tok2str(ppptype2str, "unknown", proto),
1554                           proto,
1555                           olen));
1556
1557         handle_ppp(ndo, proto, p, length);
1558         return (hdr_len);
1559 trunc:
1560         ND_PRINT((ndo, "[|ppp]"));
1561         return (0);
1562 }
1563
1564
1565 /* PPP I/F printer */
1566 u_int
1567 ppp_if_print(netdissect_options *ndo,
1568              const struct pcap_pkthdr *h, register const u_char *p)
1569 {
1570         register u_int length = h->len;
1571         register u_int caplen = h->caplen;
1572
1573         if (caplen < PPP_HDRLEN) {
1574                 ND_PRINT((ndo, "[|ppp]"));
1575                 return (caplen);
1576         }
1577
1578 #if 0
1579         /*
1580          * XXX: seems to assume that there are 2 octets prepended to an
1581          * actual PPP frame. The 1st octet looks like Input/Output flag
1582          * while 2nd octet is unknown, at least to me
1583          * (mshindo@mshindo.net).
1584          *
1585          * That was what the original tcpdump code did.
1586          *
1587          * FreeBSD's "if_ppp.c" *does* set the first octet to 1 for outbound
1588          * packets and 0 for inbound packets - but only if the
1589          * protocol field has the 0x8000 bit set (i.e., it's a network
1590          * control protocol); it does so before running the packet through
1591          * "bpf_filter" to see if it should be discarded, and to see
1592          * if we should update the time we sent the most recent packet...
1593          *
1594          * ...but it puts the original address field back after doing
1595          * so.
1596          *
1597          * NetBSD's "if_ppp.c" doesn't set the first octet in that fashion.
1598          *
1599          * I don't know if any PPP implementation handed up to a BPF
1600          * device packets with the first octet being 1 for outbound and
1601          * 0 for inbound packets, so I (guy@alum.mit.edu) don't know
1602          * whether that ever needs to be checked or not.
1603          *
1604          * Note that NetBSD has a DLT_PPP_SERIAL, which it uses for PPP,
1605          * and its tcpdump appears to assume that the frame always
1606          * begins with an address field and a control field, and that
1607          * the address field might be 0x0f or 0x8f, for Cisco
1608          * point-to-point with HDLC framing as per section 4.3.1 of RFC
1609          * 1547, as well as 0xff, for PPP in HDLC-like framing as per
1610          * RFC 1662.
1611          *
1612          * (Is the Cisco framing in question what DLT_C_HDLC, in
1613          * BSD/OS, is?)
1614          */
1615         if (ndo->ndo_eflag)
1616                 ND_PRINT((ndo, "%c %4d %02x ", p[0] ? 'O' : 'I', length, p[1]));
1617 #endif
1618
1619         ppp_print(ndo, p, length);
1620
1621         return (0);
1622 }
1623
1624 /*
1625  * PPP I/F printer to use if we know that RFC 1662-style PPP in HDLC-like
1626  * framing, or Cisco PPP with HDLC framing as per section 4.3.1 of RFC 1547,
1627  * is being used (i.e., we don't check for PPP_ADDRESS and PPP_CONTROL,
1628  * discard them *if* those are the first two octets, and parse the remaining
1629  * packet as a PPP packet, as "ppp_print()" does).
1630  *
1631  * This handles, for example, DLT_PPP_SERIAL in NetBSD.
1632  */
1633 u_int
1634 ppp_hdlc_if_print(netdissect_options *ndo,
1635                   const struct pcap_pkthdr *h, register const u_char *p)
1636 {
1637         register u_int length = h->len;
1638         register u_int caplen = h->caplen;
1639         u_int proto;
1640         u_int hdrlen = 0;
1641
1642         if (caplen < 2) {
1643                 ND_PRINT((ndo, "[|ppp]"));
1644                 return (caplen);
1645         }
1646
1647         switch (p[0]) {
1648
1649         case PPP_ADDRESS:
1650                 if (caplen < 4) {
1651                         ND_PRINT((ndo, "[|ppp]"));
1652                         return (caplen);
1653                 }
1654
1655                 if (ndo->ndo_eflag)
1656                         ND_PRINT((ndo, "%02x %02x %d ", p[0], p[1], length));
1657                 p += 2;
1658                 length -= 2;
1659                 hdrlen += 2;
1660
1661                 proto = EXTRACT_16BITS(p);
1662                 p += 2;
1663                 length -= 2;
1664                 hdrlen += 2;
1665                 ND_PRINT((ndo, "%s: ", tok2str(ppptype2str, "unknown PPP protocol (0x%04x)", proto)));
1666
1667                 handle_ppp(ndo, proto, p, length);
1668                 break;
1669
1670         case CHDLC_UNICAST:
1671         case CHDLC_BCAST:
1672                 return (chdlc_if_print(ndo, h, p));
1673
1674         default:
1675                 if (ndo->ndo_eflag)
1676                         ND_PRINT((ndo, "%02x %02x %d ", p[0], p[1], length));
1677                 p += 2;
1678                 hdrlen += 2;
1679
1680                 /*
1681                  * XXX - NetBSD's "ppp_netbsd_serial_if_print()" treats
1682                  * the next two octets as an Ethernet type; does that
1683                  * ever happen?
1684                  */
1685                 ND_PRINT((ndo, "unknown addr %02x; ctrl %02x", p[0], p[1]));
1686                 break;
1687         }
1688
1689         return (hdrlen);
1690 }
1691
1692 #define PPP_BSDI_HDRLEN 24
1693
1694 /* BSD/OS specific PPP printer */
1695 u_int
1696 ppp_bsdos_if_print(netdissect_options *ndo _U_,
1697                    const struct pcap_pkthdr *h _U_, register const u_char *p _U_)
1698 {
1699         register int hdrlength;
1700 #ifdef __bsdi__
1701         register u_int length = h->len;
1702         register u_int caplen = h->caplen;
1703         uint16_t ptype;
1704         const u_char *q;
1705         int i;
1706
1707         if (caplen < PPP_BSDI_HDRLEN) {
1708                 ND_PRINT((ndo, "[|ppp]"));
1709                 return (caplen)
1710         }
1711
1712         hdrlength = 0;
1713
1714 #if 0
1715         if (p[0] == PPP_ADDRESS && p[1] == PPP_CONTROL) {
1716                 if (ndo->ndo_eflag)
1717                         ND_PRINT((ndo, "%02x %02x ", p[0], p[1]));
1718                 p += 2;
1719                 hdrlength = 2;
1720         }
1721
1722         if (ndo->ndo_eflag)
1723                 ND_PRINT((ndo, "%d ", length));
1724         /* Retrieve the protocol type */
1725         if (*p & 01) {
1726                 /* Compressed protocol field */
1727                 ptype = *p;
1728                 if (ndo->ndo_eflag)
1729                         ND_PRINT((ndo, "%02x ", ptype));
1730                 p++;
1731                 hdrlength += 1;
1732         } else {
1733                 /* Un-compressed protocol field */
1734                 ptype = EXTRACT_16BITS(p);
1735                 if (ndo->ndo_eflag)
1736                         ND_PRINT((ndo, "%04x ", ptype));
1737                 p += 2;
1738                 hdrlength += 2;
1739         }
1740 #else
1741         ptype = 0;      /*XXX*/
1742         if (ndo->ndo_eflag)
1743                 ND_PRINT((ndo, "%c ", p[SLC_DIR] ? 'O' : 'I'));
1744         if (p[SLC_LLHL]) {
1745                 /* link level header */
1746                 struct ppp_header *ph;
1747
1748                 q = p + SLC_BPFHDRLEN;
1749                 ph = (struct ppp_header *)q;
1750                 if (ph->phdr_addr == PPP_ADDRESS
1751                  && ph->phdr_ctl == PPP_CONTROL) {
1752                         if (ndo->ndo_eflag)
1753                                 ND_PRINT((ndo, "%02x %02x ", q[0], q[1]));
1754                         ptype = EXTRACT_16BITS(&ph->phdr_type);
1755                         if (ndo->ndo_eflag && (ptype == PPP_VJC || ptype == PPP_VJNC)) {
1756                                 ND_PRINT((ndo, "%s ", tok2str(ppptype2str,
1757                                                 "proto-#%d", ptype)));
1758                         }
1759                 } else {
1760                         if (ndo->ndo_eflag) {
1761                                 ND_PRINT((ndo, "LLH=["));
1762                                 for (i = 0; i < p[SLC_LLHL]; i++)
1763                                         ND_PRINT((ndo, "%02x", q[i]));
1764                                 ND_PRINT((ndo, "] "));
1765                         }
1766                 }
1767         }
1768         if (ndo->ndo_eflag)
1769                 ND_PRINT((ndo, "%d ", length));
1770         if (p[SLC_CHL]) {
1771                 q = p + SLC_BPFHDRLEN + p[SLC_LLHL];
1772
1773                 switch (ptype) {
1774                 case PPP_VJC:
1775                         ptype = vjc_print(ndo, q, ptype);
1776                         hdrlength = PPP_BSDI_HDRLEN;
1777                         p += hdrlength;
1778                         switch (ptype) {
1779                         case PPP_IP:
1780                                 ip_print(ndo, p, length);
1781                                 break;
1782                         case PPP_IPV6:
1783                                 ip6_print(ndo, p, length);
1784                                 break;
1785                         case PPP_MPLS_UCAST:
1786                         case PPP_MPLS_MCAST:
1787                                 mpls_print(ndo, p, length);
1788                                 break;
1789                         }
1790                         goto printx;
1791                 case PPP_VJNC:
1792                         ptype = vjc_print(ndo, q, ptype);
1793                         hdrlength = PPP_BSDI_HDRLEN;
1794                         p += hdrlength;
1795                         switch (ptype) {
1796                         case PPP_IP:
1797                                 ip_print(ndo, p, length);
1798                                 break;
1799                         case PPP_IPV6:
1800                                 ip6_print(ndo, p, length);
1801                                 break;
1802                         case PPP_MPLS_UCAST:
1803                         case PPP_MPLS_MCAST:
1804                                 mpls_print(ndo, p, length);
1805                                 break;
1806                         }
1807                         goto printx;
1808                 default:
1809                         if (ndo->ndo_eflag) {
1810                                 ND_PRINT((ndo, "CH=["));
1811                                 for (i = 0; i < p[SLC_LLHL]; i++)
1812                                         ND_PRINT((ndo, "%02x", q[i]));
1813                                 ND_PRINT((ndo, "] "));
1814                         }
1815                         break;
1816                 }
1817         }
1818
1819         hdrlength = PPP_BSDI_HDRLEN;
1820 #endif
1821
1822         length -= hdrlength;
1823         p += hdrlength;
1824
1825         switch (ptype) {
1826         case PPP_IP:
1827                 ip_print(p, length);
1828                 break;
1829         case PPP_IPV6:
1830                 ip6_print(ndo, p, length);
1831                 break;
1832         case PPP_MPLS_UCAST:
1833         case PPP_MPLS_MCAST:
1834                 mpls_print(ndo, p, length);
1835                 break;
1836         default:
1837                 ND_PRINT((ndo, "%s ", tok2str(ppptype2str, "unknown PPP protocol (0x%04x)", ptype)));
1838         }
1839
1840 printx:
1841 #else /* __bsdi */
1842         hdrlength = 0;
1843 #endif /* __bsdi__ */
1844         return (hdrlength);
1845 }
1846
1847
1848 /*
1849  * Local Variables:
1850  * c-style: whitesmith
1851  * c-basic-offset: 8
1852  * End:
1853  */