3e408ba27f6e4339174dccad4e2f23f012eca99a
[ppp.git] / pppd / ccp.c
1 /*
2  * ccp.c - PPP Compression Control Protocol.
3  *
4  * Copyright (c) 1994 The Australian National University.
5  * All rights reserved.
6  *
7  * Permission to use, copy, modify, and distribute this software and its
8  * documentation is hereby granted, provided that the above copyright
9  * notice appears in all copies.  This software is provided without any
10  * warranty, express or implied. The Australian National University
11  * makes no representations about the suitability of this software for
12  * any purpose.
13  *
14  * IN NO EVENT SHALL THE AUSTRALIAN NATIONAL UNIVERSITY BE LIABLE TO ANY
15  * PARTY FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES
16  * ARISING OUT OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF
17  * THE AUSTRALIAN NATIONAL UNIVERSITY HAVE BEEN ADVISED OF THE POSSIBILITY
18  * OF SUCH DAMAGE.
19  *
20  * THE AUSTRALIAN NATIONAL UNIVERSITY SPECIFICALLY DISCLAIMS ANY WARRANTIES,
21  * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
22  * AND FITNESS FOR A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS
23  * ON AN "AS IS" BASIS, AND THE AUSTRALIAN NATIONAL UNIVERSITY HAS NO
24  * OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS,
25  * OR MODIFICATIONS.
26  */
27
28 #define RCSID   "$Id: ccp.c,v 1.36 2002/05/28 17:00:57 dfs Exp $"
29
30 #include <stdlib.h>
31 #include <string.h>
32
33 #include "pppd.h"
34 #include "fsm.h"
35 #include "ccp.h"
36 #include <net/ppp-comp.h>
37
38 #ifdef MPPE
39 #include "chap_ms.h"    /* mppe_xxxx_key */
40 #include "lcp.h"        /* lcp_close() */
41 #endif
42
43 static const char rcsid[] = RCSID;
44
45 /*
46  * Unfortunately there is a bug in zlib which means that using a
47  * size of 8 (window size = 256) for Deflate compression will cause
48  * buffer overruns and kernel crashes in the deflate module.
49  * Until this is fixed we only accept sizes in the range 9 .. 15.
50  * Thanks to James Carlson for pointing this out.
51  */
52 #define DEFLATE_MIN_WORKS       9
53
54 /*
55  * Command-line options.
56  */
57 static int setbsdcomp __P((char **));
58 static int setdeflate __P((char **));
59 static char bsd_value[8];
60 static char deflate_value[8];
61
62 /*
63  * Option variables.
64  */
65 #ifdef MPPE
66 bool refuse_mppe_stateful = 1;          /* Allow stateful mode? */
67 #endif
68
69 static option_t ccp_option_list[] = {
70     { "noccp", o_bool, &ccp_protent.enabled_flag,
71       "Disable CCP negotiation" },
72     { "-ccp", o_bool, &ccp_protent.enabled_flag,
73       "Disable CCP negotiation", OPT_ALIAS },
74
75     { "bsdcomp", o_special, (void *)setbsdcomp,
76       "Request BSD-Compress packet compression",
77       OPT_PRIO | OPT_A2STRVAL | OPT_STATIC, bsd_value },
78     { "nobsdcomp", o_bool, &ccp_wantoptions[0].bsd_compress,
79       "don't allow BSD-Compress", OPT_PRIOSUB | OPT_A2CLR,
80       &ccp_allowoptions[0].bsd_compress },
81     { "-bsdcomp", o_bool, &ccp_wantoptions[0].bsd_compress,
82       "don't allow BSD-Compress", OPT_ALIAS | OPT_PRIOSUB | OPT_A2CLR,
83       &ccp_allowoptions[0].bsd_compress },
84
85     { "deflate", o_special, (void *)setdeflate,
86       "request Deflate compression",
87       OPT_PRIO | OPT_A2STRVAL | OPT_STATIC, deflate_value },
88     { "nodeflate", o_bool, &ccp_wantoptions[0].deflate,
89       "don't allow Deflate compression", OPT_PRIOSUB | OPT_A2CLR,
90       &ccp_allowoptions[0].deflate },
91     { "-deflate", o_bool, &ccp_wantoptions[0].deflate,
92       "don't allow Deflate compression", OPT_ALIAS | OPT_PRIOSUB | OPT_A2CLR,
93       &ccp_allowoptions[0].deflate },
94
95     { "nodeflatedraft", o_bool, &ccp_wantoptions[0].deflate_draft,
96       "don't use draft deflate #", OPT_A2COPY,
97       &ccp_allowoptions[0].deflate_draft },
98
99     { "predictor1", o_bool, &ccp_wantoptions[0].predictor_1,
100       "request Predictor-1", OPT_PRIO | 1 },
101     { "nopredictor1", o_bool, &ccp_wantoptions[0].predictor_1,
102       "don't allow Predictor-1", OPT_PRIOSUB | OPT_A2CLR,
103       &ccp_allowoptions[0].predictor_1 },
104     { "-predictor1", o_bool, &ccp_wantoptions[0].predictor_1,
105       "don't allow Predictor-1", OPT_ALIAS | OPT_PRIOSUB | OPT_A2CLR,
106       &ccp_allowoptions[0].predictor_1 },
107
108 #ifdef MPPE
109     /* MPPE options are symmetrical ... we only set wantoptions here */
110     { "require-mppe", o_bool, &ccp_wantoptions[0].mppe,
111       "require MPPE encryption",
112       OPT_PRIO | MPPE_OPT_40 | MPPE_OPT_128 },
113     { "+mppe", o_bool, &ccp_wantoptions[0].mppe,
114       "require MPPE encryption",
115       OPT_ALIAS | OPT_PRIO | MPPE_OPT_40 | MPPE_OPT_128 },
116     { "nomppe", o_bool, &ccp_wantoptions[0].mppe,
117       "don't allow MPPE encryption", OPT_PRIO },
118     { "-mppe", o_bool, &ccp_wantoptions[0].mppe,
119       "don't allow MPPE encryption", OPT_ALIAS | OPT_PRIO },
120
121     /* We use ccp_allowoptions[0].mppe as a junk var ... it is reset later */
122     { "require-mppe-40", o_bool, &ccp_allowoptions[0].mppe,
123       "require MPPE 40-bit encryption", OPT_PRIO | OPT_A2OR | MPPE_OPT_40,
124       &ccp_wantoptions[0].mppe },
125     { "+mppe-40", o_bool, &ccp_allowoptions[0].mppe,
126       "require MPPE 40-bit encryption", OPT_PRIO | OPT_A2OR | MPPE_OPT_40,
127       &ccp_wantoptions[0].mppe },
128     { "nomppe-40", o_bool, &ccp_allowoptions[0].mppe,
129       "don't allow MPPE 40-bit encryption",
130       OPT_PRIOSUB | OPT_A2CLRB | MPPE_OPT_40, &ccp_wantoptions[0].mppe },
131     { "-mppe-40", o_bool, &ccp_allowoptions[0].mppe,
132       "don't allow MPPE 40-bit encryption",
133       OPT_ALIAS | OPT_PRIOSUB | OPT_A2CLRB | MPPE_OPT_40,
134       &ccp_wantoptions[0].mppe },
135
136     { "require-mppe-128", o_bool, &ccp_allowoptions[0].mppe,
137       "require MPPE 128-bit encryption", OPT_PRIO | OPT_A2OR | MPPE_OPT_128,
138       &ccp_wantoptions[0].mppe },
139     { "+mppe-128", o_bool, &ccp_allowoptions[0].mppe,
140       "require MPPE 128-bit encryption",
141       OPT_ALIAS | OPT_PRIO | OPT_A2OR | MPPE_OPT_128,
142       &ccp_wantoptions[0].mppe },
143     { "nomppe-128", o_bool, &ccp_allowoptions[0].mppe,
144       "don't allow MPPE 128-bit encryption",
145       OPT_PRIOSUB | OPT_A2CLRB | MPPE_OPT_128, &ccp_wantoptions[0].mppe },
146     { "-mppe-128", o_bool, &ccp_allowoptions[0].mppe,
147       "don't allow MPPE 128-bit encryption",
148       OPT_ALIAS | OPT_PRIOSUB | OPT_A2CLRB | MPPE_OPT_128,
149       &ccp_wantoptions[0].mppe },
150
151     /* strange one; we always request stateless, but will we allow stateful? */
152     { "mppe-stateful", o_bool, &refuse_mppe_stateful,
153       "allow MPPE stateful mode", OPT_PRIO },
154     { "nomppe-stateful", o_bool, &refuse_mppe_stateful,
155       "disallow MPPE stateful mode", OPT_PRIO | 1 },
156 #endif /* MPPE */
157
158     { NULL }
159 };
160
161 /*
162  * Protocol entry points from main code.
163  */
164 static void ccp_init __P((int unit));
165 static void ccp_open __P((int unit));
166 static void ccp_close __P((int unit, char *));
167 static void ccp_lowerup __P((int unit));
168 static void ccp_lowerdown __P((int));
169 static void ccp_input __P((int unit, u_char *pkt, int len));
170 static void ccp_protrej __P((int unit));
171 static int  ccp_printpkt __P((u_char *pkt, int len,
172                               void (*printer) __P((void *, char *, ...)),
173                               void *arg));
174 static void ccp_datainput __P((int unit, u_char *pkt, int len));
175
176 struct protent ccp_protent = {
177     PPP_CCP,
178     ccp_init,
179     ccp_input,
180     ccp_protrej,
181     ccp_lowerup,
182     ccp_lowerdown,
183     ccp_open,
184     ccp_close,
185     ccp_printpkt,
186     ccp_datainput,
187     1,
188     "CCP",
189     "Compressed",
190     ccp_option_list,
191     NULL,
192     NULL,
193     NULL
194 };
195
196 fsm ccp_fsm[NUM_PPP];
197 ccp_options ccp_wantoptions[NUM_PPP];   /* what to request the peer to use */
198 ccp_options ccp_gotoptions[NUM_PPP];    /* what the peer agreed to do */
199 ccp_options ccp_allowoptions[NUM_PPP];  /* what we'll agree to do */
200 ccp_options ccp_hisoptions[NUM_PPP];    /* what we agreed to do */
201
202 /*
203  * Callbacks for fsm code.
204  */
205 static void ccp_resetci __P((fsm *));
206 static int  ccp_cilen __P((fsm *));
207 static void ccp_addci __P((fsm *, u_char *, int *));
208 static int  ccp_ackci __P((fsm *, u_char *, int));
209 static int  ccp_nakci __P((fsm *, u_char *, int));
210 static int  ccp_rejci __P((fsm *, u_char *, int));
211 static int  ccp_reqci __P((fsm *, u_char *, int *, int));
212 static void ccp_up __P((fsm *));
213 static void ccp_down __P((fsm *));
214 static int  ccp_extcode __P((fsm *, int, int, u_char *, int));
215 static void ccp_rack_timeout __P((void *));
216 static char *method_name __P((ccp_options *, ccp_options *));
217
218 static fsm_callbacks ccp_callbacks = {
219     ccp_resetci,
220     ccp_cilen,
221     ccp_addci,
222     ccp_ackci,
223     ccp_nakci,
224     ccp_rejci,
225     ccp_reqci,
226     ccp_up,
227     ccp_down,
228     NULL,
229     NULL,
230     NULL,
231     NULL,
232     ccp_extcode,
233     "CCP"
234 };
235
236 /*
237  * Do we want / did we get any compression?
238  */
239 #define ANY_COMPRESS(opt)       ((opt).deflate || (opt).bsd_compress \
240                                  || (opt).predictor_1 || (opt).predictor_2 \
241                                  || (opt).mppe)
242
243 /*
244  * Local state (mainly for handling reset-reqs and reset-acks).
245  */
246 static int ccp_localstate[NUM_PPP];
247 #define RACK_PENDING    1       /* waiting for reset-ack */
248 #define RREQ_REPEAT     2       /* send another reset-req if no reset-ack */
249
250 #define RACKTIMEOUT     1       /* second */
251
252 static int all_rejected[NUM_PPP];       /* we rejected all peer's options */
253
254 /*
255  * Option parsing.
256  */
257 static int
258 setbsdcomp(argv)
259     char **argv;
260 {
261     int rbits, abits;
262     char *str, *endp;
263
264     str = *argv;
265     abits = rbits = strtol(str, &endp, 0);
266     if (endp != str && *endp == ',') {
267         str = endp + 1;
268         abits = strtol(str, &endp, 0);
269     }
270     if (*endp != 0 || endp == str) {
271         option_error("invalid parameter '%s' for bsdcomp option", *argv);
272         return 0;
273     }
274     if ((rbits != 0 && (rbits < BSD_MIN_BITS || rbits > BSD_MAX_BITS))
275         || (abits != 0 && (abits < BSD_MIN_BITS || abits > BSD_MAX_BITS))) {
276         option_error("bsdcomp option values must be 0 or %d .. %d",
277                      BSD_MIN_BITS, BSD_MAX_BITS);
278         return 0;
279     }
280     if (rbits > 0) {
281         ccp_wantoptions[0].bsd_compress = 1;
282         ccp_wantoptions[0].bsd_bits = rbits;
283     } else
284         ccp_wantoptions[0].bsd_compress = 0;
285     if (abits > 0) {
286         ccp_allowoptions[0].bsd_compress = 1;
287         ccp_allowoptions[0].bsd_bits = abits;
288     } else
289         ccp_allowoptions[0].bsd_compress = 0;
290     slprintf(bsd_value, sizeof(bsd_value),
291              rbits == abits? "%d": "%d,%d", rbits, abits);
292
293     return 1;
294 }
295
296 static int
297 setdeflate(argv)
298     char **argv;
299 {
300     int rbits, abits;
301     char *str, *endp;
302
303     str = *argv;
304     abits = rbits = strtol(str, &endp, 0);
305     if (endp != str && *endp == ',') {
306         str = endp + 1;
307         abits = strtol(str, &endp, 0);
308     }
309     if (*endp != 0 || endp == str) {
310         option_error("invalid parameter '%s' for deflate option", *argv);
311         return 0;
312     }
313     if ((rbits != 0 && (rbits < DEFLATE_MIN_SIZE || rbits > DEFLATE_MAX_SIZE))
314         || (abits != 0 && (abits < DEFLATE_MIN_SIZE
315                           || abits > DEFLATE_MAX_SIZE))) {
316         option_error("deflate option values must be 0 or %d .. %d",
317                      DEFLATE_MIN_SIZE, DEFLATE_MAX_SIZE);
318         return 0;
319     }
320     if (rbits == DEFLATE_MIN_SIZE || abits == DEFLATE_MIN_SIZE) {
321         if (rbits == DEFLATE_MIN_SIZE)
322             rbits = DEFLATE_MIN_WORKS;
323         if (abits == DEFLATE_MIN_SIZE)
324             abits = DEFLATE_MIN_WORKS;
325         warn("deflate option value of %d changed to %d to avoid zlib bug",
326              DEFLATE_MIN_SIZE, DEFLATE_MIN_WORKS);
327     }
328     if (rbits > 0) {
329         ccp_wantoptions[0].deflate = 1;
330         ccp_wantoptions[0].deflate_size = rbits;
331     } else
332         ccp_wantoptions[0].deflate = 0;
333     if (abits > 0) {
334         ccp_allowoptions[0].deflate = 1;
335         ccp_allowoptions[0].deflate_size = abits;
336     } else
337         ccp_allowoptions[0].deflate = 0;
338     slprintf(deflate_value, sizeof(deflate_value),
339              rbits == abits? "%d": "%d,%d", rbits, abits);
340
341     return 1;
342 }
343
344 /*
345  * ccp_init - initialize CCP.
346  */
347 static void
348 ccp_init(unit)
349     int unit;
350 {
351     fsm *f = &ccp_fsm[unit];
352
353     f->unit = unit;
354     f->protocol = PPP_CCP;
355     f->callbacks = &ccp_callbacks;
356     fsm_init(f);
357
358     memset(&ccp_wantoptions[unit],  0, sizeof(ccp_options));
359     memset(&ccp_gotoptions[unit],   0, sizeof(ccp_options));
360     memset(&ccp_allowoptions[unit], 0, sizeof(ccp_options));
361     memset(&ccp_hisoptions[unit],   0, sizeof(ccp_options));
362
363     ccp_wantoptions[0].deflate = 1;
364     ccp_wantoptions[0].deflate_size = DEFLATE_MAX_SIZE;
365     ccp_wantoptions[0].deflate_correct = 1;
366     ccp_wantoptions[0].deflate_draft = 1;
367     ccp_allowoptions[0].deflate = 1;
368     ccp_allowoptions[0].deflate_size = DEFLATE_MAX_SIZE;
369     ccp_allowoptions[0].deflate_correct = 1;
370     ccp_allowoptions[0].deflate_draft = 1;
371
372     ccp_wantoptions[0].bsd_compress = 1;
373     ccp_wantoptions[0].bsd_bits = BSD_MAX_BITS;
374     ccp_allowoptions[0].bsd_compress = 1;
375     ccp_allowoptions[0].bsd_bits = BSD_MAX_BITS;
376
377     ccp_allowoptions[0].predictor_1 = 1;
378 }
379
380 /*
381  * ccp_open - CCP is allowed to come up.
382  */
383 static void
384 ccp_open(unit)
385     int unit;
386 {
387     fsm *f = &ccp_fsm[unit];
388
389     if (f->state != OPENED)
390         ccp_flags_set(unit, 1, 0);
391
392     /*
393      * Find out which compressors the kernel supports before
394      * deciding whether to open in silent mode.
395      */
396     ccp_resetci(f);
397     if (!ANY_COMPRESS(ccp_gotoptions[unit]))
398         f->flags |= OPT_SILENT;
399
400     fsm_open(f);
401 }
402
403 /*
404  * ccp_close - Terminate CCP.
405  */
406 static void
407 ccp_close(unit, reason)
408     int unit;
409     char *reason;
410 {
411     ccp_flags_set(unit, 0, 0);
412     fsm_close(&ccp_fsm[unit], reason);
413 }
414
415 /*
416  * ccp_lowerup - we may now transmit CCP packets.
417  */
418 static void
419 ccp_lowerup(unit)
420     int unit;
421 {
422     fsm_lowerup(&ccp_fsm[unit]);
423 }
424
425 /*
426  * ccp_lowerdown - we may not transmit CCP packets.
427  */
428 static void
429 ccp_lowerdown(unit)
430     int unit;
431 {
432     fsm_lowerdown(&ccp_fsm[unit]);
433 }
434
435 /*
436  * ccp_input - process a received CCP packet.
437  */
438 static void
439 ccp_input(unit, p, len)
440     int unit;
441     u_char *p;
442     int len;
443 {
444     fsm *f = &ccp_fsm[unit];
445     int oldstate;
446
447     /*
448      * Check for a terminate-request so we can print a message.
449      */
450     oldstate = f->state;
451     fsm_input(f, p, len);
452     if (oldstate == OPENED && p[0] == TERMREQ && f->state != OPENED) {
453         notice("Compression disabled by peer.");
454 #ifdef MPPE
455         if (ccp_gotoptions[unit].mppe) {
456             error("MPPE disabled, closing LCP");
457             lcp_close(unit, "MPPE disabled by peer");
458         }
459 #endif
460     }
461
462     /*
463      * If we get a terminate-ack and we're not asking for compression,
464      * close CCP.
465      */
466     if (oldstate == REQSENT && p[0] == TERMACK
467         && !ANY_COMPRESS(ccp_gotoptions[unit]))
468         ccp_close(unit, "No compression negotiated");
469 }
470
471 /*
472  * Handle a CCP-specific code.
473  */
474 static int
475 ccp_extcode(f, code, id, p, len)
476     fsm *f;
477     int code, id;
478     u_char *p;
479     int len;
480 {
481     switch (code) {
482     case CCP_RESETREQ:
483         if (f->state != OPENED)
484             break;
485         /* send a reset-ack, which the transmitter will see and
486            reset its compression state. */
487         fsm_sdata(f, CCP_RESETACK, id, NULL, 0);
488         break;
489
490     case CCP_RESETACK:
491         if (ccp_localstate[f->unit] & RACK_PENDING && id == f->reqid) {
492             ccp_localstate[f->unit] &= ~(RACK_PENDING | RREQ_REPEAT);
493             UNTIMEOUT(ccp_rack_timeout, f);
494         }
495         break;
496
497     default:
498         return 0;
499     }
500
501     return 1;
502 }
503
504 /*
505  * ccp_protrej - peer doesn't talk CCP.
506  */
507 static void
508 ccp_protrej(unit)
509     int unit;
510 {
511     ccp_flags_set(unit, 0, 0);
512     fsm_lowerdown(&ccp_fsm[unit]);
513
514 #ifdef MPPE
515     if (ccp_gotoptions[unit].mppe)
516         error("MPPE required but peer negotiation failed");
517         lcp_close(unit, "MPPE required but peer negotiation failed");
518 #endif
519
520 }
521
522 /*
523  * ccp_resetci - initialize at start of negotiation.
524  */
525 static void
526 ccp_resetci(f)
527     fsm *f;
528 {
529     ccp_options *go = &ccp_gotoptions[f->unit];
530     u_char opt_buf[CCP_MAX_OPTION_LENGTH];
531
532     *go = ccp_wantoptions[f->unit];
533     all_rejected[f->unit] = 0;
534
535 #ifdef MPPE
536     if (go->mppe) {
537         ccp_options *ao = &ccp_allowoptions[f->unit];
538         int auth_mschap_bits = auth_done[f->unit];
539         int numbits;
540
541         /*
542          * Start with a basic sanity check: mschap[v2] auth must be in
543          * exactly one direction.  RFC 3079 says that the keys are
544          * 'derived from the credentials of the peer that initiated the call',
545          * however the PPP protocol doesn't have such a concept, and pppd
546          * cannot get this info externally.  Instead we do the best we can.
547          * NB: If MPPE is required, all other compression opts are invalid.
548          *     So, we return right away if we can't do it.
549          */
550
551         /* Leave only the mschap auth bits set */
552         auth_mschap_bits &= (CHAP_MS_WITHPEER  | CHAP_MS_PEER |
553                              CHAP_MS2_WITHPEER | CHAP_MS2_PEER);
554         /* Count the mschap auths */
555         auth_mschap_bits >>= CHAP_MS_SHIFT;
556         numbits = 0;
557         do {
558             numbits += auth_mschap_bits & 1;
559             auth_mschap_bits >>= 1;
560         } while (auth_mschap_bits);
561         if (numbits > 1) {
562             error("MPPE required, but auth done in both directions.");
563             lcp_close(f->unit, "MPPE required but not available");
564             return;
565         }
566         if (!numbits) {
567             error("MPPE required, but MS-CHAP[v2] auth not performed.");
568             lcp_close(f->unit, "MPPE required but not available");
569             return;
570         }
571
572         /* LM auth not supported for MPPE */
573         if (auth_done[f->unit] & (CHAP_MS_WITHPEER | CHAP_MS_PEER)) {
574             /* This might be noise */
575             if (go->mppe & MPPE_OPT_40) {
576                 notice("Disabling 40-bit MPPE; MS-CHAP LM not supported");
577                 go->mppe &= ~MPPE_OPT_40;
578                 ccp_wantoptions[f->unit].mppe &= ~MPPE_OPT_40;
579             }
580         }
581
582         /* Last check: can we actually negotiate something? */
583         if (!(go->mppe & (MPPE_OPT_40 | MPPE_OPT_128))) {
584             /* Could be misconfig, could be 40-bit disabled above. */
585             error("MPPE required, but both 40-bit and 128-bit disabled.");
586             lcp_close(f->unit, "MPPE required but not available");
587             return;
588         }
589
590         /* sync options */
591         ao->mppe = go->mppe;
592         /* MPPE is not compatible with other compression types */
593         ao->bsd_compress = go->bsd_compress = 0;
594         ao->predictor_1  = go->predictor_1  = 0;
595         ao->predictor_2  = go->predictor_2  = 0;
596         ao->deflate      = go->deflate      = 0;
597     }
598 #endif /* MPPE */
599
600     /*
601      * Check whether the kernel knows about the various
602      * compression methods we might request.
603      */
604 #ifdef MPPE
605     if (go->mppe) {
606         opt_buf[0] = CI_MPPE;
607         opt_buf[1] = CILEN_MPPE;
608         MPPE_OPTS_TO_CI(go->mppe, &opt_buf[2]);
609         /* Key material unimportant here. */
610         if (ccp_test(f->unit, opt_buf, CILEN_MPPE + MPPE_MAX_KEY_LEN, 0) <= 0) {
611             error("MPPE required, but kernel has no support.");
612             lcp_close(f->unit, "MPPE required but not available");
613         }
614     }
615 #endif
616     if (go->bsd_compress) {
617         opt_buf[0] = CI_BSD_COMPRESS;
618         opt_buf[1] = CILEN_BSD_COMPRESS;
619         opt_buf[2] = BSD_MAKE_OPT(BSD_CURRENT_VERSION, BSD_MIN_BITS);
620         if (ccp_test(f->unit, opt_buf, CILEN_BSD_COMPRESS, 0) <= 0)
621             go->bsd_compress = 0;
622     }
623     if (go->deflate) {
624         if (go->deflate_correct) {
625             opt_buf[0] = CI_DEFLATE;
626             opt_buf[1] = CILEN_DEFLATE;
627             opt_buf[2] = DEFLATE_MAKE_OPT(DEFLATE_MIN_WORKS);
628             opt_buf[3] = DEFLATE_CHK_SEQUENCE;
629             if (ccp_test(f->unit, opt_buf, CILEN_DEFLATE, 0) <= 0)
630                 go->deflate_correct = 0;
631         }
632         if (go->deflate_draft) {
633             opt_buf[0] = CI_DEFLATE_DRAFT;
634             opt_buf[1] = CILEN_DEFLATE;
635             opt_buf[2] = DEFLATE_MAKE_OPT(DEFLATE_MIN_WORKS);
636             opt_buf[3] = DEFLATE_CHK_SEQUENCE;
637             if (ccp_test(f->unit, opt_buf, CILEN_DEFLATE, 0) <= 0)
638                 go->deflate_draft = 0;
639         }
640         if (!go->deflate_correct && !go->deflate_draft)
641             go->deflate = 0;
642     }
643     if (go->predictor_1) {
644         opt_buf[0] = CI_PREDICTOR_1;
645         opt_buf[1] = CILEN_PREDICTOR_1;
646         if (ccp_test(f->unit, opt_buf, CILEN_PREDICTOR_1, 0) <= 0)
647             go->predictor_1 = 0;
648     }
649     if (go->predictor_2) {
650         opt_buf[0] = CI_PREDICTOR_2;
651         opt_buf[1] = CILEN_PREDICTOR_2;
652         if (ccp_test(f->unit, opt_buf, CILEN_PREDICTOR_2, 0) <= 0)
653             go->predictor_2 = 0;
654     }
655 }
656
657 /*
658  * ccp_cilen - Return total length of our configuration info.
659  */
660 static int
661 ccp_cilen(f)
662     fsm *f;
663 {
664     ccp_options *go = &ccp_gotoptions[f->unit];
665
666     return (go->bsd_compress? CILEN_BSD_COMPRESS: 0)
667         + (go->deflate? CILEN_DEFLATE: 0)
668         + (go->predictor_1? CILEN_PREDICTOR_1: 0)
669         + (go->predictor_2? CILEN_PREDICTOR_2: 0)
670         + (go->mppe? CILEN_MPPE: 0);
671 }
672
673 /*
674  * ccp_addci - put our requests in a packet.
675  */
676 static void
677 ccp_addci(f, p, lenp)
678     fsm *f;
679     u_char *p;
680     int *lenp;
681 {
682     int res;
683     ccp_options *go = &ccp_gotoptions[f->unit];
684     u_char *p0 = p;
685
686     /*
687      * Add the compression types that we can receive, in decreasing
688      * preference order.
689      */
690 #ifdef MPPE
691     if (go->mppe) {
692         u_char opt_buf[CILEN_MPPE + MPPE_MAX_KEY_LEN];
693
694         p[0] = opt_buf[0] = CI_MPPE;
695         p[1] = opt_buf[1] = CILEN_MPPE;
696         MPPE_OPTS_TO_CI(go->mppe, &p[2]);
697         MPPE_OPTS_TO_CI(go->mppe, &opt_buf[2]);
698         BCOPY(mppe_recv_key, &opt_buf[CILEN_MPPE], MPPE_MAX_KEY_LEN);
699         res = ccp_test(f->unit, opt_buf, CILEN_MPPE + MPPE_MAX_KEY_LEN, 0);
700         if (res > 0)
701             p += CILEN_MPPE;
702         else
703             /* This shouldn't happen, we've already tested it! */
704             lcp_close(f->unit, "MPPE required but not available in kernel");
705     }
706 #endif
707     if (go->deflate) {
708         p[0] = go->deflate_correct? CI_DEFLATE: CI_DEFLATE_DRAFT;
709         p[1] = CILEN_DEFLATE;
710         p[2] = DEFLATE_MAKE_OPT(go->deflate_size);
711         p[3] = DEFLATE_CHK_SEQUENCE;
712         for (;;) {
713             if (go->deflate_size < DEFLATE_MIN_WORKS) {
714                 go->deflate = 0;
715                 break;
716             }
717             res = ccp_test(f->unit, p, CILEN_DEFLATE, 0);
718             if (res > 0) {
719                 p += CILEN_DEFLATE;
720                 break;
721             } else if (res < 0) {
722                 go->deflate = 0;
723                 break;
724             }
725             --go->deflate_size;
726             p[2] = DEFLATE_MAKE_OPT(go->deflate_size);
727         }
728         if (p != p0 && go->deflate_correct && go->deflate_draft) {
729             p[0] = CI_DEFLATE_DRAFT;
730             p[1] = CILEN_DEFLATE;
731             p[2] = p[2 - CILEN_DEFLATE];
732             p[3] = DEFLATE_CHK_SEQUENCE;
733             p += CILEN_DEFLATE;
734         }
735     }
736     if (go->bsd_compress) {
737         p[0] = CI_BSD_COMPRESS;
738         p[1] = CILEN_BSD_COMPRESS;
739         p[2] = BSD_MAKE_OPT(BSD_CURRENT_VERSION, go->bsd_bits);
740         for (;;) {
741             if (go->bsd_bits < BSD_MIN_BITS) {
742                 go->bsd_compress = 0;
743                 break;
744             }
745             res = ccp_test(f->unit, p, CILEN_BSD_COMPRESS, 0);
746             if (res > 0) {
747                 p += CILEN_BSD_COMPRESS;
748                 break;
749             } else if (res < 0) {
750                 go->bsd_compress = 0;
751                 break;
752             }
753             --go->bsd_bits;
754             p[2] = BSD_MAKE_OPT(BSD_CURRENT_VERSION, go->bsd_bits);
755         }
756     }
757     /* XXX Should Predictor 2 be preferable to Predictor 1? */
758     if (go->predictor_1) {
759         p[0] = CI_PREDICTOR_1;
760         p[1] = CILEN_PREDICTOR_1;
761         if (p == p0 && ccp_test(f->unit, p, CILEN_PREDICTOR_1, 0) <= 0) {
762             go->predictor_1 = 0;
763         } else {
764             p += CILEN_PREDICTOR_1;
765         }
766     }
767     if (go->predictor_2) {
768         p[0] = CI_PREDICTOR_2;
769         p[1] = CILEN_PREDICTOR_2;
770         if (p == p0 && ccp_test(f->unit, p, CILEN_PREDICTOR_2, 0) <= 0) {
771             go->predictor_2 = 0;
772         } else {
773             p += CILEN_PREDICTOR_2;
774         }
775     }
776
777     go->method = (p > p0)? p0[0]: -1;
778
779     *lenp = p - p0;
780 }
781
782 /*
783  * ccp_ackci - process a received configure-ack, and return
784  * 1 iff the packet was OK.
785  */
786 static int
787 ccp_ackci(f, p, len)
788     fsm *f;
789     u_char *p;
790     int len;
791 {
792     ccp_options *go = &ccp_gotoptions[f->unit];
793     u_char *p0 = p;
794
795 #ifdef MPPE
796     if (go->mppe) {
797         u_char opt_buf[CILEN_MPPE];
798
799         opt_buf[0] = CI_MPPE;
800         opt_buf[1] = CILEN_MPPE;
801         MPPE_OPTS_TO_CI(go->mppe, &opt_buf[2]);
802         if (len < CILEN_MPPE || memcmp(opt_buf, p, CILEN_MPPE))
803             return 0;
804         p += CILEN_MPPE;
805         len -= CILEN_MPPE;
806         /* XXX Cope with first/fast ack */
807         if (len == 0)
808             return 1;
809     }
810 #endif
811     if (go->deflate) {
812         if (len < CILEN_DEFLATE
813             || p[0] != (go->deflate_correct? CI_DEFLATE: CI_DEFLATE_DRAFT)
814             || p[1] != CILEN_DEFLATE
815             || p[2] != DEFLATE_MAKE_OPT(go->deflate_size)
816             || p[3] != DEFLATE_CHK_SEQUENCE)
817             return 0;
818         p += CILEN_DEFLATE;
819         len -= CILEN_DEFLATE;
820         /* XXX Cope with first/fast ack */
821         if (len == 0)
822             return 1;
823         if (go->deflate_correct && go->deflate_draft) {
824             if (len < CILEN_DEFLATE
825                 || p[0] != CI_DEFLATE_DRAFT
826                 || p[1] != CILEN_DEFLATE
827                 || p[2] != DEFLATE_MAKE_OPT(go->deflate_size)
828                 || p[3] != DEFLATE_CHK_SEQUENCE)
829                 return 0;
830             p += CILEN_DEFLATE;
831             len -= CILEN_DEFLATE;
832         }
833     }
834     if (go->bsd_compress) {
835         if (len < CILEN_BSD_COMPRESS
836             || p[0] != CI_BSD_COMPRESS || p[1] != CILEN_BSD_COMPRESS
837             || p[2] != BSD_MAKE_OPT(BSD_CURRENT_VERSION, go->bsd_bits))
838             return 0;
839         p += CILEN_BSD_COMPRESS;
840         len -= CILEN_BSD_COMPRESS;
841         /* XXX Cope with first/fast ack */
842         if (p == p0 && len == 0)
843             return 1;
844     }
845     if (go->predictor_1) {
846         if (len < CILEN_PREDICTOR_1
847             || p[0] != CI_PREDICTOR_1 || p[1] != CILEN_PREDICTOR_1)
848             return 0;
849         p += CILEN_PREDICTOR_1;
850         len -= CILEN_PREDICTOR_1;
851         /* XXX Cope with first/fast ack */
852         if (p == p0 && len == 0)
853             return 1;
854     }
855     if (go->predictor_2) {
856         if (len < CILEN_PREDICTOR_2
857             || p[0] != CI_PREDICTOR_2 || p[1] != CILEN_PREDICTOR_2)
858             return 0;
859         p += CILEN_PREDICTOR_2;
860         len -= CILEN_PREDICTOR_2;
861         /* XXX Cope with first/fast ack */
862         if (p == p0 && len == 0)
863             return 1;
864     }
865
866     if (len != 0)
867         return 0;
868     return 1;
869 }
870
871 /*
872  * ccp_nakci - process received configure-nak.
873  * Returns 1 iff the nak was OK.
874  */
875 static int
876 ccp_nakci(f, p, len)
877     fsm *f;
878     u_char *p;
879     int len;
880 {
881     ccp_options *go = &ccp_gotoptions[f->unit];
882     ccp_options no;             /* options we've seen already */
883     ccp_options try;            /* options to ask for next time */
884
885     memset(&no, 0, sizeof(no));
886     try = *go;
887
888 #ifdef MPPE
889     if (go->mppe && len >= CILEN_MPPE
890         && p[0] == CI_MPPE && p[1] == CILEN_MPPE) {
891         no.mppe = 1;
892         /*
893          * Peer wants us to use a different strength or other setting.
894          * Fail if we aren't willing to use his suggestion.
895          */
896         MPPE_CI_TO_OPTS(&p[2], try.mppe);
897         if ((try.mppe & MPPE_OPT_STATEFUL) && refuse_mppe_stateful)
898             try.mppe = 0;
899         else if ((go->mppe & try.mppe) != try.mppe)
900             /* Peer must have set options we didn't request (suggest) */
901             try.mppe = 0;
902
903         if (!try.mppe) {
904             error("MPPE required but peer negotiation failed");
905             lcp_close(f->unit, "MPPE required but peer negotiation failed");
906         }
907     }
908 #endif /* MPPE */
909     if (go->deflate && len >= CILEN_DEFLATE
910         && p[0] == (go->deflate_correct? CI_DEFLATE: CI_DEFLATE_DRAFT)
911         && p[1] == CILEN_DEFLATE) {
912         no.deflate = 1;
913         /*
914          * Peer wants us to use a different code size or something.
915          * Stop asking for Deflate if we don't understand his suggestion.
916          */
917         if (DEFLATE_METHOD(p[2]) != DEFLATE_METHOD_VAL
918             || DEFLATE_SIZE(p[2]) < DEFLATE_MIN_WORKS
919             || p[3] != DEFLATE_CHK_SEQUENCE)
920             try.deflate = 0;
921         else if (DEFLATE_SIZE(p[2]) < go->deflate_size)
922             try.deflate_size = DEFLATE_SIZE(p[2]);
923         p += CILEN_DEFLATE;
924         len -= CILEN_DEFLATE;
925         if (go->deflate_correct && go->deflate_draft
926             && len >= CILEN_DEFLATE && p[0] == CI_DEFLATE_DRAFT
927             && p[1] == CILEN_DEFLATE) {
928             p += CILEN_DEFLATE;
929             len -= CILEN_DEFLATE;
930         }
931     }
932
933     if (go->bsd_compress && len >= CILEN_BSD_COMPRESS
934         && p[0] == CI_BSD_COMPRESS && p[1] == CILEN_BSD_COMPRESS) {
935         no.bsd_compress = 1;
936         /*
937          * Peer wants us to use a different number of bits
938          * or a different version.
939          */
940         if (BSD_VERSION(p[2]) != BSD_CURRENT_VERSION)
941             try.bsd_compress = 0;
942         else if (BSD_NBITS(p[2]) < go->bsd_bits)
943             try.bsd_bits = BSD_NBITS(p[2]);
944         p += CILEN_BSD_COMPRESS;
945         len -= CILEN_BSD_COMPRESS;
946     }
947
948     /*
949      * Predictor-1 and 2 have no options, so they can't be Naked.
950      *
951      * There may be remaining options but we ignore them.
952      */
953
954     if (f->state != OPENED)
955         *go = try;
956     return 1;
957 }
958
959 /*
960  * ccp_rejci - reject some of our suggested compression methods.
961  */
962 static int
963 ccp_rejci(f, p, len)
964     fsm *f;
965     u_char *p;
966     int len;
967 {
968     ccp_options *go = &ccp_gotoptions[f->unit];
969     ccp_options try;            /* options to request next time */
970
971     try = *go;
972
973     /*
974      * Cope with empty configure-rejects by ceasing to send
975      * configure-requests.
976      */
977     if (len == 0 && all_rejected[f->unit])
978         return -1;
979
980 #ifdef MPPE
981     if (go->mppe && len >= CILEN_MPPE
982         && p[0] == CI_MPPE && p[1] == CILEN_MPPE) {
983         error("MPPE required but peer refused");
984         lcp_close(f->unit, "MPPE required but peer refused");
985         p += CILEN_MPPE;
986         len -= CILEN_MPPE;
987     }
988 #endif
989     if (go->deflate && len >= CILEN_DEFLATE
990         && p[0] == (go->deflate_correct? CI_DEFLATE: CI_DEFLATE_DRAFT)
991         && p[1] == CILEN_DEFLATE) {
992         if (p[2] != DEFLATE_MAKE_OPT(go->deflate_size)
993             || p[3] != DEFLATE_CHK_SEQUENCE)
994             return 0;           /* Rej is bad */
995         if (go->deflate_correct)
996             try.deflate_correct = 0;
997         else
998             try.deflate_draft = 0;
999         p += CILEN_DEFLATE;
1000         len -= CILEN_DEFLATE;
1001         if (go->deflate_correct && go->deflate_draft
1002             && len >= CILEN_DEFLATE && p[0] == CI_DEFLATE_DRAFT
1003             && p[1] == CILEN_DEFLATE) {
1004             if (p[2] != DEFLATE_MAKE_OPT(go->deflate_size)
1005                 || p[3] != DEFLATE_CHK_SEQUENCE)
1006                 return 0;               /* Rej is bad */
1007             try.deflate_draft = 0;
1008             p += CILEN_DEFLATE;
1009             len -= CILEN_DEFLATE;
1010         }
1011         if (!try.deflate_correct && !try.deflate_draft)
1012             try.deflate = 0;
1013     }
1014     if (go->bsd_compress && len >= CILEN_BSD_COMPRESS
1015         && p[0] == CI_BSD_COMPRESS && p[1] == CILEN_BSD_COMPRESS) {
1016         if (p[2] != BSD_MAKE_OPT(BSD_CURRENT_VERSION, go->bsd_bits))
1017             return 0;
1018         try.bsd_compress = 0;
1019         p += CILEN_BSD_COMPRESS;
1020         len -= CILEN_BSD_COMPRESS;
1021     }
1022     if (go->predictor_1 && len >= CILEN_PREDICTOR_1
1023         && p[0] == CI_PREDICTOR_1 && p[1] == CILEN_PREDICTOR_1) {
1024         try.predictor_1 = 0;
1025         p += CILEN_PREDICTOR_1;
1026         len -= CILEN_PREDICTOR_1;
1027     }
1028     if (go->predictor_2 && len >= CILEN_PREDICTOR_2
1029         && p[0] == CI_PREDICTOR_2 && p[1] == CILEN_PREDICTOR_2) {
1030         try.predictor_2 = 0;
1031         p += CILEN_PREDICTOR_2;
1032         len -= CILEN_PREDICTOR_2;
1033     }
1034
1035     if (len != 0)
1036         return 0;
1037
1038     if (f->state != OPENED)
1039         *go = try;
1040
1041     return 1;
1042 }
1043
1044 /*
1045  * ccp_reqci - processed a received configure-request.
1046  * Returns CONFACK, CONFNAK or CONFREJ and the packet modified
1047  * appropriately.
1048  */
1049 static int
1050 ccp_reqci(f, p, lenp, dont_nak)
1051     fsm *f;
1052     u_char *p;
1053     int *lenp;
1054     int dont_nak;
1055 {
1056     int ret, newret, res;
1057     u_char *p0, *retp;
1058     int len, clen, type, nb;
1059     ccp_options *ho = &ccp_hisoptions[f->unit];
1060     ccp_options *ao = &ccp_allowoptions[f->unit];
1061 #ifdef MPPE
1062     bool seen_ci_mppe = 0;
1063 #endif
1064
1065     ret = CONFACK;
1066     retp = p0 = p;
1067     len = *lenp;
1068
1069     memset(ho, 0, sizeof(ccp_options));
1070     ho->method = (len > 0)? p[0]: -1;
1071
1072     while (len > 0) {
1073         newret = CONFACK;
1074         if (len < 2 || p[1] < 2 || p[1] > len) {
1075             /* length is bad */
1076             clen = len;
1077             newret = CONFREJ;
1078
1079         } else {
1080             type = p[0];
1081             clen = p[1];
1082
1083             switch (type) {
1084 #ifdef MPPE
1085             case CI_MPPE:
1086                 if (!ao->mppe || clen != CILEN_MPPE) {
1087                     newret = CONFREJ;
1088                     break;
1089                 }
1090                 seen_ci_mppe = 1;
1091                 MPPE_CI_TO_OPTS(&p[2], ho->mppe);
1092
1093                 /* Nak if anything unsupported or unknown are set. */
1094                 if (ho->mppe & MPPE_OPT_UNSUPPORTED) {
1095                     newret = CONFNAK;
1096                     ho->mppe &= ~MPPE_OPT_UNSUPPORTED;
1097                 }
1098                 if (ho->mppe & MPPE_OPT_UNKNOWN) {
1099                     newret = CONFNAK;
1100                     ho->mppe &= ~MPPE_OPT_UNKNOWN;
1101                 }
1102
1103                 /* Check state opt */
1104                 if (ho->mppe & MPPE_OPT_STATEFUL) {
1105                    if (refuse_mppe_stateful) {
1106                         /*
1107                          * We can Nak and request stateless, but it's a
1108                          * lot easier to just assume the peer will request
1109                          * it if he can do it; stateful mode is bad over
1110                          * the Internet -- which is where we expect MPPE.
1111                          */
1112                         newret = CONFREJ;
1113                         break;
1114                     } else {
1115                         newret = CONFNAK;
1116                     }
1117                 }
1118
1119                 /* Find out which of {S,L} are set. */
1120                 if ((ho->mppe & MPPE_OPT_128)
1121                      && (ho->mppe & MPPE_OPT_40)) {
1122                     /* Both are set, negotiate the strongest. */
1123                     newret = CONFNAK;
1124                     if (ao->mppe & MPPE_OPT_128)
1125                         ho->mppe &= ~MPPE_OPT_40;
1126                     else if (ao->mppe & MPPE_OPT_40)
1127                         ho->mppe &= ~MPPE_OPT_128;
1128                     else {
1129                         newret = CONFREJ;
1130                         break;
1131                     }
1132                 } else if (ho->mppe & MPPE_OPT_128) {
1133                     if (!(ao->mppe & MPPE_OPT_128)) {
1134                         newret = CONFREJ;
1135                         break;
1136                     }
1137                 } else if (ho->mppe & MPPE_OPT_40) {
1138                     if (!(ao->mppe & MPPE_OPT_40)) {
1139                         newret = CONFREJ;
1140                         break;
1141                     }
1142                 } else {
1143                     /* Neither are set. */
1144                     newret = CONFREJ;
1145                     break;
1146                 }
1147
1148                 /* rebuild the opts */
1149                 MPPE_OPTS_TO_CI(ho->mppe, &p[2]);
1150                 if (newret == CONFACK) {
1151                     u_char opt_buf[CILEN_MPPE + MPPE_MAX_KEY_LEN];
1152                     int mtu;
1153
1154                     BCOPY(p, opt_buf, CILEN_MPPE);
1155                     BCOPY(mppe_send_key, &opt_buf[CILEN_MPPE],
1156                           MPPE_MAX_KEY_LEN);
1157                     if (ccp_test(f->unit, opt_buf,
1158                                  CILEN_MPPE + MPPE_MAX_KEY_LEN, 1) <= 0) {
1159                         /* This shouldn't happen, we've already tested it! */
1160                         error("MPPE required, but kernel has no support.");
1161                         lcp_close(f->unit, "MPPE required but not available");
1162                         newret = CONFREJ;
1163                         break;
1164                     }
1165                     /*
1166                      * We need to decrease the interface MTU by MPPE_PAD
1167                      * because MPPE frames **grow**.  The kernel [must]
1168                      * allocate MPPE_PAD extra bytes in xmit buffers.
1169                      */
1170                     mtu = netif_get_mtu(f->unit);
1171                     if (mtu)
1172                         netif_set_mtu(f->unit, mtu - MPPE_PAD);
1173                     else
1174                         newret = CONFREJ;
1175                 }
1176
1177                 break;
1178 #endif /* MPPE */
1179             case CI_DEFLATE:
1180             case CI_DEFLATE_DRAFT:
1181                 if (!ao->deflate || clen != CILEN_DEFLATE
1182                     || (!ao->deflate_correct && type == CI_DEFLATE)
1183                     || (!ao->deflate_draft && type == CI_DEFLATE_DRAFT)) {
1184                     newret = CONFREJ;
1185                     break;
1186                 }
1187
1188                 ho->deflate = 1;
1189                 ho->deflate_size = nb = DEFLATE_SIZE(p[2]);
1190                 if (DEFLATE_METHOD(p[2]) != DEFLATE_METHOD_VAL
1191                     || p[3] != DEFLATE_CHK_SEQUENCE
1192                     || nb > ao->deflate_size || nb < DEFLATE_MIN_WORKS) {
1193                     newret = CONFNAK;
1194                     if (!dont_nak) {
1195                         p[2] = DEFLATE_MAKE_OPT(ao->deflate_size);
1196                         p[3] = DEFLATE_CHK_SEQUENCE;
1197                         /* fall through to test this #bits below */
1198                     } else
1199                         break;
1200                 }
1201
1202                 /*
1203                  * Check whether we can do Deflate with the window
1204                  * size they want.  If the window is too big, reduce
1205                  * it until the kernel can cope and nak with that.
1206                  * We only check this for the first option.
1207                  */
1208                 if (p == p0) {
1209                     for (;;) {
1210                         res = ccp_test(f->unit, p, CILEN_DEFLATE, 1);
1211                         if (res > 0)
1212                             break;              /* it's OK now */
1213                         if (res < 0 || nb == DEFLATE_MIN_WORKS || dont_nak) {
1214                             newret = CONFREJ;
1215                             p[2] = DEFLATE_MAKE_OPT(ho->deflate_size);
1216                             break;
1217                         }
1218                         newret = CONFNAK;
1219                         --nb;
1220                         p[2] = DEFLATE_MAKE_OPT(nb);
1221                     }
1222                 }
1223                 break;
1224
1225             case CI_BSD_COMPRESS:
1226                 if (!ao->bsd_compress || clen != CILEN_BSD_COMPRESS) {
1227                     newret = CONFREJ;
1228                     break;
1229                 }
1230
1231                 ho->bsd_compress = 1;
1232                 ho->bsd_bits = nb = BSD_NBITS(p[2]);
1233                 if (BSD_VERSION(p[2]) != BSD_CURRENT_VERSION
1234                     || nb > ao->bsd_bits || nb < BSD_MIN_BITS) {
1235                     newret = CONFNAK;
1236                     if (!dont_nak) {
1237                         p[2] = BSD_MAKE_OPT(BSD_CURRENT_VERSION, ao->bsd_bits);
1238                         /* fall through to test this #bits below */
1239                     } else
1240                         break;
1241                 }
1242
1243                 /*
1244                  * Check whether we can do BSD-Compress with the code
1245                  * size they want.  If the code size is too big, reduce
1246                  * it until the kernel can cope and nak with that.
1247                  * We only check this for the first option.
1248                  */
1249                 if (p == p0) {
1250                     for (;;) {
1251                         res = ccp_test(f->unit, p, CILEN_BSD_COMPRESS, 1);
1252                         if (res > 0)
1253                             break;
1254                         if (res < 0 || nb == BSD_MIN_BITS || dont_nak) {
1255                             newret = CONFREJ;
1256                             p[2] = BSD_MAKE_OPT(BSD_CURRENT_VERSION,
1257                                                 ho->bsd_bits);
1258                             break;
1259                         }
1260                         newret = CONFNAK;
1261                         --nb;
1262                         p[2] = BSD_MAKE_OPT(BSD_CURRENT_VERSION, nb);
1263                     }
1264                 }
1265                 break;
1266
1267             case CI_PREDICTOR_1:
1268                 if (!ao->predictor_1 || clen != CILEN_PREDICTOR_1) {
1269                     newret = CONFREJ;
1270                     break;
1271                 }
1272
1273                 ho->predictor_1 = 1;
1274                 if (p == p0
1275                     && ccp_test(f->unit, p, CILEN_PREDICTOR_1, 1) <= 0) {
1276                     newret = CONFREJ;
1277                 }
1278                 break;
1279
1280             case CI_PREDICTOR_2:
1281                 if (!ao->predictor_2 || clen != CILEN_PREDICTOR_2) {
1282                     newret = CONFREJ;
1283                     break;
1284                 }
1285
1286                 ho->predictor_2 = 1;
1287                 if (p == p0
1288                     && ccp_test(f->unit, p, CILEN_PREDICTOR_2, 1) <= 0) {
1289                     newret = CONFREJ;
1290                 }
1291                 break;
1292
1293             default:
1294                 newret = CONFREJ;
1295             }
1296         }
1297
1298         if (newret == CONFNAK && dont_nak)
1299             newret = CONFREJ;
1300         if (!(newret == CONFACK || (newret == CONFNAK && ret == CONFREJ))) {
1301             /* we're returning this option */
1302             if (newret == CONFREJ && ret == CONFNAK)
1303                 retp = p0;
1304             ret = newret;
1305             if (p != retp)
1306                 BCOPY(p, retp, clen);
1307             retp += clen;
1308         }
1309
1310         p += clen;
1311         len -= clen;
1312     }
1313
1314     if (ret != CONFACK) {
1315         if (ret == CONFREJ && *lenp == retp - p0)
1316             all_rejected[f->unit] = 1;
1317         else
1318             *lenp = retp - p0;
1319     }
1320 #ifdef MPPE
1321     if (ret == CONFREJ && ao->mppe && !seen_ci_mppe) {
1322         error("MPPE required but peer negotiation failed");
1323         lcp_close(f->unit, "MPPE required but peer negotiation failed");
1324     }
1325 #endif
1326     return ret;
1327 }
1328
1329 /*
1330  * Make a string name for a compression method (or 2).
1331  */
1332 static char *
1333 method_name(opt, opt2)
1334     ccp_options *opt, *opt2;
1335 {
1336     static char result[64];
1337
1338     if (!ANY_COMPRESS(*opt))
1339         return "(none)";
1340     switch (opt->method) {
1341 #ifdef MPPE
1342     case CI_MPPE:
1343     {
1344         char *p = result;
1345         char *q = result + sizeof(result); /* 1 past result */
1346
1347         slprintf(p, q - p, "MPPE ");
1348         p += 5;
1349         if (opt->mppe & MPPE_OPT_128) {
1350             slprintf(p, q - p, "128-bit ");
1351             p += 8;
1352         }
1353         if (opt->mppe & MPPE_OPT_40) {
1354             slprintf(p, q - p, "40-bit ");
1355             p += 7;
1356         }
1357         if (opt->mppe & MPPE_OPT_STATEFUL)
1358             slprintf(p, q - p, "stateful");
1359         else
1360             slprintf(p, q - p, "stateless");
1361
1362         break;
1363     }
1364 #endif
1365     case CI_DEFLATE:
1366     case CI_DEFLATE_DRAFT:
1367         if (opt2 != NULL && opt2->deflate_size != opt->deflate_size)
1368             slprintf(result, sizeof(result), "Deflate%s (%d/%d)",
1369                      (opt->method == CI_DEFLATE_DRAFT? "(old#)": ""),
1370                      opt->deflate_size, opt2->deflate_size);
1371         else
1372             slprintf(result, sizeof(result), "Deflate%s (%d)",
1373                      (opt->method == CI_DEFLATE_DRAFT? "(old#)": ""),
1374                      opt->deflate_size);
1375         break;
1376     case CI_BSD_COMPRESS:
1377         if (opt2 != NULL && opt2->bsd_bits != opt->bsd_bits)
1378             slprintf(result, sizeof(result), "BSD-Compress (%d/%d)",
1379                      opt->bsd_bits, opt2->bsd_bits);
1380         else
1381             slprintf(result, sizeof(result), "BSD-Compress (%d)",
1382                      opt->bsd_bits);
1383         break;
1384     case CI_PREDICTOR_1:
1385         return "Predictor 1";
1386     case CI_PREDICTOR_2:
1387         return "Predictor 2";
1388     default:
1389         slprintf(result, sizeof(result), "Method %d", opt->method);
1390     }
1391     return result;
1392 }
1393
1394 /*
1395  * CCP has come up - inform the kernel driver and log a message.
1396  */
1397 static void
1398 ccp_up(f)
1399     fsm *f;
1400 {
1401     ccp_options *go = &ccp_gotoptions[f->unit];
1402     ccp_options *ho = &ccp_hisoptions[f->unit];
1403     char method1[64];
1404
1405     ccp_flags_set(f->unit, 1, 1);
1406     if (ANY_COMPRESS(*go)) {
1407         if (ANY_COMPRESS(*ho)) {
1408             if (go->method == ho->method) {
1409                 notice("%s compression enabled", method_name(go, ho));
1410             } else {
1411                 strlcpy(method1, method_name(go, NULL), sizeof(method1));
1412                 notice("%s / %s compression enabled",
1413                        method1, method_name(ho, NULL));
1414             }
1415         } else
1416             notice("%s receive compression enabled", method_name(go, NULL));
1417     } else if (ANY_COMPRESS(*ho))
1418         notice("%s transmit compression enabled", method_name(ho, NULL));
1419 #ifdef MPPE
1420     if (go->mppe) {
1421         BZERO(mppe_recv_key, MPPE_MAX_KEY_LEN);
1422         BZERO(mppe_send_key, MPPE_MAX_KEY_LEN);
1423         start_networks(f->unit);                /* Bring up IP et al */
1424     }
1425 #endif
1426 }
1427
1428 /*
1429  * CCP has gone down - inform the kernel driver.
1430  */
1431 static void
1432 ccp_down(f)
1433     fsm *f;
1434 {
1435     if (ccp_localstate[f->unit] & RACK_PENDING)
1436         UNTIMEOUT(ccp_rack_timeout, f);
1437     ccp_localstate[f->unit] = 0;
1438     ccp_flags_set(f->unit, 1, 0);
1439 #ifdef MPPE
1440     if (ccp_gotoptions[f->unit].mppe) {
1441         error("MPPE disabled");
1442         lcp_close(f->unit, "MPPE disabled");
1443     }
1444 #endif
1445 }
1446
1447 /*
1448  * Print the contents of a CCP packet.
1449  */
1450 static char *ccp_codenames[] = {
1451     "ConfReq", "ConfAck", "ConfNak", "ConfRej",
1452     "TermReq", "TermAck", "CodeRej",
1453     NULL, NULL, NULL, NULL, NULL, NULL,
1454     "ResetReq", "ResetAck",
1455 };
1456
1457 static int
1458 ccp_printpkt(p, plen, printer, arg)
1459     u_char *p;
1460     int plen;
1461     void (*printer) __P((void *, char *, ...));
1462     void *arg;
1463 {
1464     u_char *p0, *optend;
1465     int code, id, len;
1466     int optlen;
1467
1468     p0 = p;
1469     if (plen < HEADERLEN)
1470         return 0;
1471     code = p[0];
1472     id = p[1];
1473     len = (p[2] << 8) + p[3];
1474     if (len < HEADERLEN || len > plen)
1475         return 0;
1476
1477     if (code >= 1 && code <= sizeof(ccp_codenames) / sizeof(char *)
1478         && ccp_codenames[code-1] != NULL)
1479         printer(arg, " %s", ccp_codenames[code-1]);
1480     else
1481         printer(arg, " code=0x%x", code);
1482     printer(arg, " id=0x%x", id);
1483     len -= HEADERLEN;
1484     p += HEADERLEN;
1485
1486     switch (code) {
1487     case CONFREQ:
1488     case CONFACK:
1489     case CONFNAK:
1490     case CONFREJ:
1491         /* print list of possible compression methods */
1492         while (len >= 2) {
1493             code = p[0];
1494             optlen = p[1];
1495             if (optlen < 2 || optlen > len)
1496                 break;
1497             printer(arg, " <");
1498             len -= optlen;
1499             optend = p + optlen;
1500             switch (code) {
1501 #ifdef MPPE
1502             case CI_MPPE:
1503                 if (optlen >= CILEN_MPPE) {
1504                     u_char mppe_opts;
1505
1506                     MPPE_CI_TO_OPTS(&p[2], mppe_opts);
1507                     printer(arg, "mppe %s %s %s %s %s %s%s",
1508                             (p[2] & MPPE_H_BIT)? "+H": "-H",
1509                             (p[5] & MPPE_M_BIT)? "+M": "-M",
1510                             (p[5] & MPPE_S_BIT)? "+S": "-S",
1511                             (p[5] & MPPE_L_BIT)? "+L": "-L",
1512                             (p[5] & MPPE_D_BIT)? "+D": "-D",
1513                             (p[5] & MPPE_C_BIT)? "+C": "-C",
1514                             (mppe_opts & MPPE_OPT_UNKNOWN)? " +U": "");
1515                     if (mppe_opts & MPPE_OPT_UNKNOWN)
1516                         printer(arg, " (%.2x %.2x %.2x %.2x)",
1517                                 p[2], p[3], p[4], p[5]);
1518                     p += CILEN_MPPE;
1519                 }
1520                 break;
1521 #endif
1522             case CI_DEFLATE:
1523             case CI_DEFLATE_DRAFT:
1524                 if (optlen >= CILEN_DEFLATE) {
1525                     printer(arg, "deflate%s %d",
1526                             (code == CI_DEFLATE_DRAFT? "(old#)": ""),
1527                             DEFLATE_SIZE(p[2]));
1528                     if (DEFLATE_METHOD(p[2]) != DEFLATE_METHOD_VAL)
1529                         printer(arg, " method %d", DEFLATE_METHOD(p[2]));
1530                     if (p[3] != DEFLATE_CHK_SEQUENCE)
1531                         printer(arg, " check %d", p[3]);
1532                     p += CILEN_DEFLATE;
1533                 }
1534                 break;
1535             case CI_BSD_COMPRESS:
1536                 if (optlen >= CILEN_BSD_COMPRESS) {
1537                     printer(arg, "bsd v%d %d", BSD_VERSION(p[2]),
1538                             BSD_NBITS(p[2]));
1539                     p += CILEN_BSD_COMPRESS;
1540                 }
1541                 break;
1542             case CI_PREDICTOR_1:
1543                 if (optlen >= CILEN_PREDICTOR_1) {
1544                     printer(arg, "predictor 1");
1545                     p += CILEN_PREDICTOR_1;
1546                 }
1547                 break;
1548             case CI_PREDICTOR_2:
1549                 if (optlen >= CILEN_PREDICTOR_2) {
1550                     printer(arg, "predictor 2");
1551                     p += CILEN_PREDICTOR_2;
1552                 }
1553                 break;
1554             }
1555             while (p < optend)
1556                 printer(arg, " %.2x", *p++);
1557             printer(arg, ">");
1558         }
1559         break;
1560
1561     case TERMACK:
1562     case TERMREQ:
1563         if (len > 0 && *p >= ' ' && *p < 0x7f) {
1564             print_string((char *)p, len, printer, arg);
1565             p += len;
1566             len = 0;
1567         }
1568         break;
1569     }
1570
1571     /* dump out the rest of the packet in hex */
1572     while (--len >= 0)
1573         printer(arg, " %.2x", *p++);
1574
1575     return p - p0;
1576 }
1577
1578 /*
1579  * We have received a packet that the decompressor failed to
1580  * decompress.  Here we would expect to issue a reset-request, but
1581  * Motorola has a patent on resetting the compressor as a result of
1582  * detecting an error in the decompressed data after decompression.
1583  * (See US patent 5,130,993; international patent publication number
1584  * WO 91/10289; Australian patent 73296/91.)
1585  *
1586  * So we ask the kernel whether the error was detected after
1587  * decompression; if it was, we take CCP down, thus disabling
1588  * compression :-(, otherwise we issue the reset-request.
1589  */
1590 static void
1591 ccp_datainput(unit, pkt, len)
1592     int unit;
1593     u_char *pkt;
1594     int len;
1595 {
1596     fsm *f;
1597
1598     f = &ccp_fsm[unit];
1599     if (f->state == OPENED) {
1600         if (ccp_fatal_error(unit)) {
1601             /*
1602              * Disable compression by taking CCP down.
1603              */
1604             error("Lost compression sync: disabling compression");
1605             ccp_close(unit, "Lost compression sync");
1606 #ifdef MPPE
1607             /*
1608              * If we were doing MPPE, we must also take the link down.
1609              */
1610             if (ccp_gotoptions[unit].mppe) {
1611                 error("Too many MPPE errors, closing LCP");
1612                 lcp_close(unit, "Too many MPPE errors");
1613             }
1614 #endif
1615         } else {
1616             /*
1617              * Send a reset-request to reset the peer's compressor.
1618              * We don't do that if we are still waiting for an
1619              * acknowledgement to a previous reset-request.
1620              */
1621             if (!(ccp_localstate[f->unit] & RACK_PENDING)) {
1622                 fsm_sdata(f, CCP_RESETREQ, f->reqid = ++f->id, NULL, 0);
1623                 TIMEOUT(ccp_rack_timeout, f, RACKTIMEOUT);
1624                 ccp_localstate[f->unit] |= RACK_PENDING;
1625             } else
1626                 ccp_localstate[f->unit] |= RREQ_REPEAT;
1627         }
1628     }
1629 }
1630
1631 /*
1632  * Timeout waiting for reset-ack.
1633  */
1634 static void
1635 ccp_rack_timeout(arg)
1636     void *arg;
1637 {
1638     fsm *f = arg;
1639
1640     if (f->state == OPENED && ccp_localstate[f->unit] & RREQ_REPEAT) {
1641         fsm_sdata(f, CCP_RESETREQ, f->reqid, NULL, 0);
1642         TIMEOUT(ccp_rack_timeout, f, RACKTIMEOUT);
1643         ccp_localstate[f->unit] &= ~RREQ_REPEAT;
1644     } else
1645         ccp_localstate[f->unit] &= ~RACK_PENDING;
1646 }
1647