Various changes in the new TLS extension code, including the following:
[openssl.git] / ssl / s3_lib.c
1 /* ssl/s3_lib.c */
2 /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
3  * All rights reserved.
4  *
5  * This package is an SSL implementation written
6  * by Eric Young (eay@cryptsoft.com).
7  * The implementation was written so as to conform with Netscapes SSL.
8  * 
9  * This library is free for commercial and non-commercial use as long as
10  * the following conditions are aheared to.  The following conditions
11  * apply to all code found in this distribution, be it the RC4, RSA,
12  * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
13  * included with this distribution is covered by the same copyright terms
14  * except that the holder is Tim Hudson (tjh@cryptsoft.com).
15  * 
16  * Copyright remains Eric Young's, and as such any Copyright notices in
17  * the code are not to be removed.
18  * If this package is used in a product, Eric Young should be given attribution
19  * as the author of the parts of the library used.
20  * This can be in the form of a textual message at program startup or
21  * in documentation (online or textual) provided with the package.
22  * 
23  * Redistribution and use in source and binary forms, with or without
24  * modification, are permitted provided that the following conditions
25  * are met:
26  * 1. Redistributions of source code must retain the copyright
27  *    notice, this list of conditions and the following disclaimer.
28  * 2. Redistributions in binary form must reproduce the above copyright
29  *    notice, this list of conditions and the following disclaimer in the
30  *    documentation and/or other materials provided with the distribution.
31  * 3. All advertising materials mentioning features or use of this software
32  *    must display the following acknowledgement:
33  *    "This product includes cryptographic software written by
34  *     Eric Young (eay@cryptsoft.com)"
35  *    The word 'cryptographic' can be left out if the rouines from the library
36  *    being used are not cryptographic related :-).
37  * 4. If you include any Windows specific code (or a derivative thereof) from 
38  *    the apps directory (application code) you must include an acknowledgement:
39  *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
40  * 
41  * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
42  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
43  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
44  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
45  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
46  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
47  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
48  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
49  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
50  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
51  * SUCH DAMAGE.
52  * 
53  * The licence and distribution terms for any publically available version or
54  * derivative of this code cannot be changed.  i.e. this code cannot simply be
55  * copied and put under another distribution licence
56  * [including the GNU Public Licence.]
57  */
58 /* ====================================================================
59  * Copyright (c) 1998-2006 The OpenSSL Project.  All rights reserved.
60  *
61  * Redistribution and use in source and binary forms, with or without
62  * modification, are permitted provided that the following conditions
63  * are met:
64  *
65  * 1. Redistributions of source code must retain the above copyright
66  *    notice, this list of conditions and the following disclaimer. 
67  *
68  * 2. Redistributions in binary form must reproduce the above copyright
69  *    notice, this list of conditions and the following disclaimer in
70  *    the documentation and/or other materials provided with the
71  *    distribution.
72  *
73  * 3. All advertising materials mentioning features or use of this
74  *    software must display the following acknowledgment:
75  *    "This product includes software developed by the OpenSSL Project
76  *    for use in the OpenSSL Toolkit. (http://www.openssl.org/)"
77  *
78  * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
79  *    endorse or promote products derived from this software without
80  *    prior written permission. For written permission, please contact
81  *    openssl-core@openssl.org.
82  *
83  * 5. Products derived from this software may not be called "OpenSSL"
84  *    nor may "OpenSSL" appear in their names without prior written
85  *    permission of the OpenSSL Project.
86  *
87  * 6. Redistributions of any form whatsoever must retain the following
88  *    acknowledgment:
89  *    "This product includes software developed by the OpenSSL Project
90  *    for use in the OpenSSL Toolkit (http://www.openssl.org/)"
91  *
92  * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
93  * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
94  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
95  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
96  * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
97  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
98  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
99  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
100  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
101  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
102  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
103  * OF THE POSSIBILITY OF SUCH DAMAGE.
104  * ====================================================================
105  *
106  * This product includes cryptographic software written by Eric Young
107  * (eay@cryptsoft.com).  This product includes software written by Tim
108  * Hudson (tjh@cryptsoft.com).
109  *
110  */
111 /* ====================================================================
112  * Copyright 2002 Sun Microsystems, Inc. ALL RIGHTS RESERVED.
113  *
114  * Portions of the attached software ("Contribution") are developed by 
115  * SUN MICROSYSTEMS, INC., and are contributed to the OpenSSL project.
116  *
117  * The Contribution is licensed pursuant to the OpenSSL open source
118  * license provided above.
119  *
120  * ECC cipher suite support in OpenSSL originally written by
121  * Vipul Gupta and Sumit Gupta of Sun Microsystems Laboratories.
122  *
123  */
124
125 #include <stdio.h>
126 #include <openssl/objects.h>
127 #include "ssl_locl.h"
128 #include "kssl_lcl.h"
129 #include <openssl/md5.h>
130 #ifndef OPENSSL_NO_DH
131 #include <openssl/dh.h>
132 #endif
133
134 const char *ssl3_version_str="SSLv3" OPENSSL_VERSION_PTEXT;
135
136 #define SSL3_NUM_CIPHERS        (sizeof(ssl3_ciphers)/sizeof(SSL_CIPHER))
137
138 /* list of available SSLv3 ciphers (sorted by id) */
139 OPENSSL_GLOBAL SSL_CIPHER ssl3_ciphers[]={
140 /* The RSA ciphers */
141 /* Cipher 01 */
142         {
143         1,
144         SSL3_TXT_RSA_NULL_MD5,
145         SSL3_CK_RSA_NULL_MD5,
146         SSL_kRSA|SSL_aRSA|SSL_eNULL |SSL_MD5|SSL_SSLV3,
147         SSL_NOT_EXP|SSL_STRONG_NONE,
148         0,
149         0,
150         0,
151         SSL_ALL_CIPHERS,
152         SSL_ALL_STRENGTHS,
153         },
154 /* Cipher 02 */
155         {
156         1,
157         SSL3_TXT_RSA_NULL_SHA,
158         SSL3_CK_RSA_NULL_SHA,
159         SSL_kRSA|SSL_aRSA|SSL_eNULL |SSL_SHA1|SSL_SSLV3,
160         SSL_NOT_EXP|SSL_STRONG_NONE,
161         0,
162         0,
163         0,
164         SSL_ALL_CIPHERS,
165         SSL_ALL_STRENGTHS,
166         },
167 /* Cipher 03 */
168         {
169         1,
170         SSL3_TXT_RSA_RC4_40_MD5,
171         SSL3_CK_RSA_RC4_40_MD5,
172         SSL_kRSA|SSL_aRSA|SSL_RC4  |SSL_MD5 |SSL_SSLV3,
173         SSL_EXPORT|SSL_EXP40,
174         0,
175         40,
176         128,
177         SSL_ALL_CIPHERS,
178         SSL_ALL_STRENGTHS,
179         },
180 /* Cipher 04 */
181         {
182         1,
183         SSL3_TXT_RSA_RC4_128_MD5,
184         SSL3_CK_RSA_RC4_128_MD5,
185         SSL_kRSA|SSL_aRSA|SSL_RC4  |SSL_MD5|SSL_SSLV3,
186         SSL_NOT_EXP|SSL_MEDIUM,
187         0,
188         128,
189         128,
190         SSL_ALL_CIPHERS,
191         SSL_ALL_STRENGTHS,
192         },
193 /* Cipher 05 */
194         {
195         1,
196         SSL3_TXT_RSA_RC4_128_SHA,
197         SSL3_CK_RSA_RC4_128_SHA,
198         SSL_kRSA|SSL_aRSA|SSL_RC4  |SSL_SHA1|SSL_SSLV3,
199         SSL_NOT_EXP|SSL_MEDIUM,
200         0,
201         128,
202         128,
203         SSL_ALL_CIPHERS,
204         SSL_ALL_STRENGTHS,
205         },
206 /* Cipher 06 */
207         {
208         1,
209         SSL3_TXT_RSA_RC2_40_MD5,
210         SSL3_CK_RSA_RC2_40_MD5,
211         SSL_kRSA|SSL_aRSA|SSL_RC2  |SSL_MD5 |SSL_SSLV3,
212         SSL_EXPORT|SSL_EXP40,
213         0,
214         40,
215         128,
216         SSL_ALL_CIPHERS,
217         SSL_ALL_STRENGTHS,
218         },
219 /* Cipher 07 */
220 #ifndef OPENSSL_NO_IDEA
221         {
222         1,
223         SSL3_TXT_RSA_IDEA_128_SHA,
224         SSL3_CK_RSA_IDEA_128_SHA,
225         SSL_kRSA|SSL_aRSA|SSL_IDEA |SSL_SHA1|SSL_SSLV3,
226         SSL_NOT_EXP|SSL_MEDIUM,
227         0,
228         128,
229         128,
230         SSL_ALL_CIPHERS,
231         SSL_ALL_STRENGTHS,
232         },
233 #endif
234 /* Cipher 08 */
235         {
236         1,
237         SSL3_TXT_RSA_DES_40_CBC_SHA,
238         SSL3_CK_RSA_DES_40_CBC_SHA,
239         SSL_kRSA|SSL_aRSA|SSL_DES|SSL_SHA1|SSL_SSLV3,
240         SSL_EXPORT|SSL_EXP40,
241         0,
242         40,
243         56,
244         SSL_ALL_CIPHERS,
245         SSL_ALL_STRENGTHS,
246         },
247 /* Cipher 09 */
248         {
249         1,
250         SSL3_TXT_RSA_DES_64_CBC_SHA,
251         SSL3_CK_RSA_DES_64_CBC_SHA,
252         SSL_kRSA|SSL_aRSA|SSL_DES  |SSL_SHA1|SSL_SSLV3,
253         SSL_NOT_EXP|SSL_LOW,
254         0,
255         56,
256         56,
257         SSL_ALL_CIPHERS,
258         SSL_ALL_STRENGTHS,
259         },
260 /* Cipher 0A */
261         {
262         1,
263         SSL3_TXT_RSA_DES_192_CBC3_SHA,
264         SSL3_CK_RSA_DES_192_CBC3_SHA,
265         SSL_kRSA|SSL_aRSA|SSL_3DES |SSL_SHA1|SSL_SSLV3,
266         SSL_NOT_EXP|SSL_HIGH,
267         0,
268         168,
269         168,
270         SSL_ALL_CIPHERS,
271         SSL_ALL_STRENGTHS,
272         },
273 /* The DH ciphers */
274 /* Cipher 0B */
275         {
276         0,
277         SSL3_TXT_DH_DSS_DES_40_CBC_SHA,
278         SSL3_CK_DH_DSS_DES_40_CBC_SHA,
279         SSL_kDHd |SSL_aDH|SSL_DES|SSL_SHA1|SSL_SSLV3,
280         SSL_EXPORT|SSL_EXP40,
281         0,
282         40,
283         56,
284         SSL_ALL_CIPHERS,
285         SSL_ALL_STRENGTHS,
286         },
287 /* Cipher 0C */
288         {
289         0,
290         SSL3_TXT_DH_DSS_DES_64_CBC_SHA,
291         SSL3_CK_DH_DSS_DES_64_CBC_SHA,
292         SSL_kDHd |SSL_aDH|SSL_DES  |SSL_SHA1|SSL_SSLV3,
293         SSL_NOT_EXP|SSL_LOW,
294         0,
295         56,
296         56,
297         SSL_ALL_CIPHERS,
298         SSL_ALL_STRENGTHS,
299         },
300 /* Cipher 0D */
301         {
302         0,
303         SSL3_TXT_DH_DSS_DES_192_CBC3_SHA,
304         SSL3_CK_DH_DSS_DES_192_CBC3_SHA,
305         SSL_kDHd |SSL_aDH|SSL_3DES |SSL_SHA1|SSL_SSLV3,
306         SSL_NOT_EXP|SSL_HIGH,
307         0,
308         168,
309         168,
310         SSL_ALL_CIPHERS,
311         SSL_ALL_STRENGTHS,
312         },
313 /* Cipher 0E */
314         {
315         0,
316         SSL3_TXT_DH_RSA_DES_40_CBC_SHA,
317         SSL3_CK_DH_RSA_DES_40_CBC_SHA,
318         SSL_kDHr |SSL_aDH|SSL_DES|SSL_SHA1|SSL_SSLV3,
319         SSL_EXPORT|SSL_EXP40,
320         0,
321         40,
322         56,
323         SSL_ALL_CIPHERS,
324         SSL_ALL_STRENGTHS,
325         },
326 /* Cipher 0F */
327         {
328         0,
329         SSL3_TXT_DH_RSA_DES_64_CBC_SHA,
330         SSL3_CK_DH_RSA_DES_64_CBC_SHA,
331         SSL_kDHr |SSL_aDH|SSL_DES  |SSL_SHA1|SSL_SSLV3,
332         SSL_NOT_EXP|SSL_LOW,
333         0,
334         56,
335         56,
336         SSL_ALL_CIPHERS,
337         SSL_ALL_STRENGTHS,
338         },
339 /* Cipher 10 */
340         {
341         0,
342         SSL3_TXT_DH_RSA_DES_192_CBC3_SHA,
343         SSL3_CK_DH_RSA_DES_192_CBC3_SHA,
344         SSL_kDHr |SSL_aDH|SSL_3DES |SSL_SHA1|SSL_SSLV3,
345         SSL_NOT_EXP|SSL_HIGH,
346         0,
347         168,
348         168,
349         SSL_ALL_CIPHERS,
350         SSL_ALL_STRENGTHS,
351         },
352
353 /* The Ephemeral DH ciphers */
354 /* Cipher 11 */
355         {
356         1,
357         SSL3_TXT_EDH_DSS_DES_40_CBC_SHA,
358         SSL3_CK_EDH_DSS_DES_40_CBC_SHA,
359         SSL_kEDH|SSL_aDSS|SSL_DES|SSL_SHA1|SSL_SSLV3,
360         SSL_EXPORT|SSL_EXP40,
361         0,
362         40,
363         56,
364         SSL_ALL_CIPHERS,
365         SSL_ALL_STRENGTHS,
366         },
367 /* Cipher 12 */
368         {
369         1,
370         SSL3_TXT_EDH_DSS_DES_64_CBC_SHA,
371         SSL3_CK_EDH_DSS_DES_64_CBC_SHA,
372         SSL_kEDH|SSL_aDSS|SSL_DES  |SSL_SHA1|SSL_SSLV3,
373         SSL_NOT_EXP|SSL_LOW,
374         0,
375         56,
376         56,
377         SSL_ALL_CIPHERS,
378         SSL_ALL_STRENGTHS,
379         },
380 /* Cipher 13 */
381         {
382         1,
383         SSL3_TXT_EDH_DSS_DES_192_CBC3_SHA,
384         SSL3_CK_EDH_DSS_DES_192_CBC3_SHA,
385         SSL_kEDH|SSL_aDSS|SSL_3DES |SSL_SHA1|SSL_SSLV3,
386         SSL_NOT_EXP|SSL_HIGH,
387         0,
388         168,
389         168,
390         SSL_ALL_CIPHERS,
391         SSL_ALL_STRENGTHS,
392         },
393 /* Cipher 14 */
394         {
395         1,
396         SSL3_TXT_EDH_RSA_DES_40_CBC_SHA,
397         SSL3_CK_EDH_RSA_DES_40_CBC_SHA,
398         SSL_kEDH|SSL_aRSA|SSL_DES|SSL_SHA1|SSL_SSLV3,
399         SSL_EXPORT|SSL_EXP40,
400         0,
401         40,
402         56,
403         SSL_ALL_CIPHERS,
404         SSL_ALL_STRENGTHS,
405         },
406 /* Cipher 15 */
407         {
408         1,
409         SSL3_TXT_EDH_RSA_DES_64_CBC_SHA,
410         SSL3_CK_EDH_RSA_DES_64_CBC_SHA,
411         SSL_kEDH|SSL_aRSA|SSL_DES  |SSL_SHA1|SSL_SSLV3,
412         SSL_NOT_EXP|SSL_LOW,
413         0,
414         56,
415         56,
416         SSL_ALL_CIPHERS,
417         SSL_ALL_STRENGTHS,
418         },
419 /* Cipher 16 */
420         {
421         1,
422         SSL3_TXT_EDH_RSA_DES_192_CBC3_SHA,
423         SSL3_CK_EDH_RSA_DES_192_CBC3_SHA,
424         SSL_kEDH|SSL_aRSA|SSL_3DES |SSL_SHA1|SSL_SSLV3,
425         SSL_NOT_EXP|SSL_HIGH,
426         0,
427         168,
428         168,
429         SSL_ALL_CIPHERS,
430         SSL_ALL_STRENGTHS,
431         },
432 /* Cipher 17 */
433         {
434         1,
435         SSL3_TXT_ADH_RC4_40_MD5,
436         SSL3_CK_ADH_RC4_40_MD5,
437         SSL_kEDH |SSL_aNULL|SSL_RC4  |SSL_MD5 |SSL_SSLV3,
438         SSL_EXPORT|SSL_EXP40,
439         0,
440         40,
441         128,
442         SSL_ALL_CIPHERS,
443         SSL_ALL_STRENGTHS,
444         },
445 /* Cipher 18 */
446         {
447         1,
448         SSL3_TXT_ADH_RC4_128_MD5,
449         SSL3_CK_ADH_RC4_128_MD5,
450         SSL_kEDH |SSL_aNULL|SSL_RC4  |SSL_MD5 |SSL_SSLV3,
451         SSL_NOT_EXP|SSL_MEDIUM,
452         0,
453         128,
454         128,
455         SSL_ALL_CIPHERS,
456         SSL_ALL_STRENGTHS,
457         },
458 /* Cipher 19 */
459         {
460         1,
461         SSL3_TXT_ADH_DES_40_CBC_SHA,
462         SSL3_CK_ADH_DES_40_CBC_SHA,
463         SSL_kEDH |SSL_aNULL|SSL_DES|SSL_SHA1|SSL_SSLV3,
464         SSL_EXPORT|SSL_EXP40,
465         0,
466         40,
467         128,
468         SSL_ALL_CIPHERS,
469         SSL_ALL_STRENGTHS,
470         },
471 /* Cipher 1A */
472         {
473         1,
474         SSL3_TXT_ADH_DES_64_CBC_SHA,
475         SSL3_CK_ADH_DES_64_CBC_SHA,
476         SSL_kEDH |SSL_aNULL|SSL_DES  |SSL_SHA1|SSL_SSLV3,
477         SSL_NOT_EXP|SSL_LOW,
478         0,
479         56,
480         56,
481         SSL_ALL_CIPHERS,
482         SSL_ALL_STRENGTHS,
483         },
484 /* Cipher 1B */
485         {
486         1,
487         SSL3_TXT_ADH_DES_192_CBC_SHA,
488         SSL3_CK_ADH_DES_192_CBC_SHA,
489         SSL_kEDH |SSL_aNULL|SSL_3DES |SSL_SHA1|SSL_SSLV3,
490         SSL_NOT_EXP|SSL_HIGH,
491         0,
492         168,
493         168,
494         SSL_ALL_CIPHERS,
495         SSL_ALL_STRENGTHS,
496         },
497
498 /* Fortezza */
499 /* Cipher 1C */
500         {
501         0,
502         SSL3_TXT_FZA_DMS_NULL_SHA,
503         SSL3_CK_FZA_DMS_NULL_SHA,
504         SSL_kFZA|SSL_aFZA |SSL_eNULL |SSL_SHA1|SSL_SSLV3,
505         SSL_NOT_EXP|SSL_STRONG_NONE,
506         0,
507         0,
508         0,
509         SSL_ALL_CIPHERS,
510         SSL_ALL_STRENGTHS,
511         },
512
513 /* Cipher 1D */
514         {
515         0,
516         SSL3_TXT_FZA_DMS_FZA_SHA,
517         SSL3_CK_FZA_DMS_FZA_SHA,
518         SSL_kFZA|SSL_aFZA |SSL_eFZA |SSL_SHA1|SSL_SSLV3,
519         SSL_NOT_EXP|SSL_STRONG_NONE,
520         0,
521         0,
522         0,
523         SSL_ALL_CIPHERS,
524         SSL_ALL_STRENGTHS,
525         },
526
527 #if 0
528 /* Cipher 1E */
529         {
530         0,
531         SSL3_TXT_FZA_DMS_RC4_SHA,
532         SSL3_CK_FZA_DMS_RC4_SHA,
533         SSL_kFZA|SSL_aFZA |SSL_RC4  |SSL_SHA1|SSL_SSLV3,
534         SSL_NOT_EXP|SSL_MEDIUM,
535         0,
536         128,
537         128,
538         SSL_ALL_CIPHERS,
539         SSL_ALL_STRENGTHS,
540         },
541 #endif
542
543 #ifndef OPENSSL_NO_KRB5
544 /* The Kerberos ciphers
545 ** 20000107 VRS: And the first shall be last,
546 ** in hopes of avoiding the lynx ssl renegotiation problem.
547 */
548 /* Cipher 1E VRS */
549         {
550         1,
551         SSL3_TXT_KRB5_DES_64_CBC_SHA,
552         SSL3_CK_KRB5_DES_64_CBC_SHA,
553         SSL_kKRB5|SSL_aKRB5|  SSL_DES|SSL_SHA1   |SSL_SSLV3,
554         SSL_NOT_EXP|SSL_LOW,
555         0,
556         56,
557         56,
558         SSL_ALL_CIPHERS,
559         SSL_ALL_STRENGTHS,
560         },
561
562 /* Cipher 1F VRS */
563         {
564         1,
565         SSL3_TXT_KRB5_DES_192_CBC3_SHA,
566         SSL3_CK_KRB5_DES_192_CBC3_SHA,
567         SSL_kKRB5|SSL_aKRB5|  SSL_3DES|SSL_SHA1  |SSL_SSLV3,
568         SSL_NOT_EXP|SSL_HIGH,
569         0,
570         112,
571         168,
572         SSL_ALL_CIPHERS,
573         SSL_ALL_STRENGTHS,
574         },
575
576 /* Cipher 20 VRS */
577         {
578         1,
579         SSL3_TXT_KRB5_RC4_128_SHA,
580         SSL3_CK_KRB5_RC4_128_SHA,
581         SSL_kKRB5|SSL_aKRB5|  SSL_RC4|SSL_SHA1  |SSL_SSLV3,
582         SSL_NOT_EXP|SSL_MEDIUM,
583         0,
584         128,
585         128,
586         SSL_ALL_CIPHERS,
587         SSL_ALL_STRENGTHS,
588         },
589
590 /* Cipher 21 VRS */
591         {
592         1,
593         SSL3_TXT_KRB5_IDEA_128_CBC_SHA,
594         SSL3_CK_KRB5_IDEA_128_CBC_SHA,
595         SSL_kKRB5|SSL_aKRB5|  SSL_IDEA|SSL_SHA1  |SSL_SSLV3,
596         SSL_NOT_EXP|SSL_MEDIUM,
597         0,
598         128,
599         128,
600         SSL_ALL_CIPHERS,
601         SSL_ALL_STRENGTHS,
602         },
603
604 /* Cipher 22 VRS */
605         {
606         1,
607         SSL3_TXT_KRB5_DES_64_CBC_MD5,
608         SSL3_CK_KRB5_DES_64_CBC_MD5,
609         SSL_kKRB5|SSL_aKRB5|  SSL_DES|SSL_MD5    |SSL_SSLV3,
610         SSL_NOT_EXP|SSL_LOW,
611         0,
612         56,
613         56,
614         SSL_ALL_CIPHERS,
615         SSL_ALL_STRENGTHS,
616         },
617
618 /* Cipher 23 VRS */
619         {
620         1,
621         SSL3_TXT_KRB5_DES_192_CBC3_MD5,
622         SSL3_CK_KRB5_DES_192_CBC3_MD5,
623         SSL_kKRB5|SSL_aKRB5|  SSL_3DES|SSL_MD5   |SSL_SSLV3,
624         SSL_NOT_EXP|SSL_HIGH,
625         0,
626         112,
627         168,
628         SSL_ALL_CIPHERS,
629         SSL_ALL_STRENGTHS,
630         },
631
632 /* Cipher 24 VRS */
633         {
634         1,
635         SSL3_TXT_KRB5_RC4_128_MD5,
636         SSL3_CK_KRB5_RC4_128_MD5,
637         SSL_kKRB5|SSL_aKRB5|  SSL_RC4|SSL_MD5  |SSL_SSLV3,
638         SSL_NOT_EXP|SSL_MEDIUM,
639         0,
640         128,
641         128,
642         SSL_ALL_CIPHERS,
643         SSL_ALL_STRENGTHS,
644         },
645
646 /* Cipher 25 VRS */
647         {
648         1,
649         SSL3_TXT_KRB5_IDEA_128_CBC_MD5,
650         SSL3_CK_KRB5_IDEA_128_CBC_MD5,
651         SSL_kKRB5|SSL_aKRB5|  SSL_IDEA|SSL_MD5  |SSL_SSLV3,
652         SSL_NOT_EXP|SSL_MEDIUM,
653         0,
654         128,
655         128,
656         SSL_ALL_CIPHERS,
657         SSL_ALL_STRENGTHS,
658         },
659
660 /* Cipher 26 VRS */
661         {
662         1,
663         SSL3_TXT_KRB5_DES_40_CBC_SHA,
664         SSL3_CK_KRB5_DES_40_CBC_SHA,
665         SSL_kKRB5|SSL_aKRB5|  SSL_DES|SSL_SHA1   |SSL_SSLV3,
666         SSL_EXPORT|SSL_EXP40,
667         0,
668         40,
669         56,
670         SSL_ALL_CIPHERS,
671         SSL_ALL_STRENGTHS,
672         },
673
674 /* Cipher 27 VRS */
675         {
676         1,
677         SSL3_TXT_KRB5_RC2_40_CBC_SHA,
678         SSL3_CK_KRB5_RC2_40_CBC_SHA,
679         SSL_kKRB5|SSL_aKRB5|  SSL_RC2|SSL_SHA1   |SSL_SSLV3,
680         SSL_EXPORT|SSL_EXP40,
681         0,
682         40,
683         128,
684         SSL_ALL_CIPHERS,
685         SSL_ALL_STRENGTHS,
686         },
687
688 /* Cipher 28 VRS */
689         {
690         1,
691         SSL3_TXT_KRB5_RC4_40_SHA,
692         SSL3_CK_KRB5_RC4_40_SHA,
693         SSL_kKRB5|SSL_aKRB5|  SSL_RC4|SSL_SHA1   |SSL_SSLV3,
694         SSL_EXPORT|SSL_EXP40,
695         0,
696         128,
697         128,
698         SSL_ALL_CIPHERS,
699         SSL_ALL_STRENGTHS,
700         },
701
702 /* Cipher 29 VRS */
703         {
704         1,
705         SSL3_TXT_KRB5_DES_40_CBC_MD5,
706         SSL3_CK_KRB5_DES_40_CBC_MD5,
707         SSL_kKRB5|SSL_aKRB5|  SSL_DES|SSL_MD5    |SSL_SSLV3,
708         SSL_EXPORT|SSL_EXP40,
709         0,
710         40,
711         56,
712         SSL_ALL_CIPHERS,
713         SSL_ALL_STRENGTHS,
714         },
715
716 /* Cipher 2A VRS */
717         {
718         1,
719         SSL3_TXT_KRB5_RC2_40_CBC_MD5,
720         SSL3_CK_KRB5_RC2_40_CBC_MD5,
721         SSL_kKRB5|SSL_aKRB5|  SSL_RC2|SSL_MD5    |SSL_SSLV3,
722         SSL_EXPORT|SSL_EXP40,
723         0,
724         40,
725         128,
726         SSL_ALL_CIPHERS,
727         SSL_ALL_STRENGTHS,
728         },
729
730 /* Cipher 2B VRS */
731         {
732         1,
733         SSL3_TXT_KRB5_RC4_40_MD5,
734         SSL3_CK_KRB5_RC4_40_MD5,
735         SSL_kKRB5|SSL_aKRB5|  SSL_RC4|SSL_MD5    |SSL_SSLV3,
736         SSL_EXPORT|SSL_EXP40,
737         0,
738         128,
739         128,
740         SSL_ALL_CIPHERS,
741         SSL_ALL_STRENGTHS,
742         },
743 #endif  /* OPENSSL_NO_KRB5 */
744 /* New AES ciphersuites */
745
746 /* Cipher 2F */
747         {
748         1,
749         TLS1_TXT_RSA_WITH_AES_128_SHA,
750         TLS1_CK_RSA_WITH_AES_128_SHA,
751         SSL_kRSA|SSL_aRSA|SSL_AES|SSL_SHA |SSL_TLSV1,
752         SSL_NOT_EXP|SSL_HIGH,
753         0,
754         128,
755         128,
756         SSL_ALL_CIPHERS,
757         SSL_ALL_STRENGTHS,
758         },
759 /* Cipher 30 */
760         {
761         0,
762         TLS1_TXT_DH_DSS_WITH_AES_128_SHA,
763         TLS1_CK_DH_DSS_WITH_AES_128_SHA,
764         SSL_kDHd|SSL_aDH|SSL_AES|SSL_SHA|SSL_TLSV1,
765         SSL_NOT_EXP|SSL_HIGH,
766         0,
767         128,
768         128,
769         SSL_ALL_CIPHERS,
770         SSL_ALL_STRENGTHS,
771         },
772 /* Cipher 31 */
773         {
774         0,
775         TLS1_TXT_DH_RSA_WITH_AES_128_SHA,
776         TLS1_CK_DH_RSA_WITH_AES_128_SHA,
777         SSL_kDHr|SSL_aDH|SSL_AES|SSL_SHA|SSL_TLSV1,
778         SSL_NOT_EXP|SSL_HIGH,
779         0,
780         128,
781         128,
782         SSL_ALL_CIPHERS,
783         SSL_ALL_STRENGTHS,
784         },
785 /* Cipher 32 */
786         {
787         1,
788         TLS1_TXT_DHE_DSS_WITH_AES_128_SHA,
789         TLS1_CK_DHE_DSS_WITH_AES_128_SHA,
790         SSL_kEDH|SSL_aDSS|SSL_AES|SSL_SHA|SSL_TLSV1,
791         SSL_NOT_EXP|SSL_HIGH,
792         0,
793         128,
794         128,
795         SSL_ALL_CIPHERS,
796         SSL_ALL_STRENGTHS,
797         },
798 /* Cipher 33 */
799         {
800         1,
801         TLS1_TXT_DHE_RSA_WITH_AES_128_SHA,
802         TLS1_CK_DHE_RSA_WITH_AES_128_SHA,
803         SSL_kEDH|SSL_aRSA|SSL_AES|SSL_SHA|SSL_TLSV1,
804         SSL_NOT_EXP|SSL_HIGH,
805         0,
806         128,
807         128,
808         SSL_ALL_CIPHERS,
809         SSL_ALL_STRENGTHS,
810         },
811 /* Cipher 34 */
812         {
813         1,
814         TLS1_TXT_ADH_WITH_AES_128_SHA,
815         TLS1_CK_ADH_WITH_AES_128_SHA,
816         SSL_kEDH|SSL_aNULL|SSL_AES|SSL_SHA|SSL_TLSV1,
817         SSL_NOT_EXP|SSL_HIGH,
818         0,
819         128,
820         128,
821         SSL_ALL_CIPHERS,
822         SSL_ALL_STRENGTHS,
823         },
824
825 /* Cipher 35 */
826         {
827         1,
828         TLS1_TXT_RSA_WITH_AES_256_SHA,
829         TLS1_CK_RSA_WITH_AES_256_SHA,
830         SSL_kRSA|SSL_aRSA|SSL_AES|SSL_SHA |SSL_TLSV1,
831         SSL_NOT_EXP|SSL_HIGH,
832         0,
833         256,
834         256,
835         SSL_ALL_CIPHERS,
836         SSL_ALL_STRENGTHS,
837         },
838 /* Cipher 36 */
839         {
840         0,
841         TLS1_TXT_DH_DSS_WITH_AES_256_SHA,
842         TLS1_CK_DH_DSS_WITH_AES_256_SHA,
843         SSL_kDHd|SSL_aDH|SSL_AES|SSL_SHA|SSL_TLSV1,
844         SSL_NOT_EXP|SSL_HIGH,
845         0,
846         256,
847         256,
848         SSL_ALL_CIPHERS,
849         SSL_ALL_STRENGTHS,
850         },
851 /* Cipher 37 */
852         {
853         0,
854         TLS1_TXT_DH_RSA_WITH_AES_256_SHA,
855         TLS1_CK_DH_RSA_WITH_AES_256_SHA,
856         SSL_kDHr|SSL_aDH|SSL_AES|SSL_SHA|SSL_TLSV1,
857         SSL_NOT_EXP|SSL_HIGH,
858         0,
859         256,
860         256,
861         SSL_ALL_CIPHERS,
862         SSL_ALL_STRENGTHS,
863         },
864 /* Cipher 38 */
865         {
866         1,
867         TLS1_TXT_DHE_DSS_WITH_AES_256_SHA,
868         TLS1_CK_DHE_DSS_WITH_AES_256_SHA,
869         SSL_kEDH|SSL_aDSS|SSL_AES|SSL_SHA|SSL_TLSV1,
870         SSL_NOT_EXP|SSL_HIGH,
871         0,
872         256,
873         256,
874         SSL_ALL_CIPHERS,
875         SSL_ALL_STRENGTHS,
876         },
877 /* Cipher 39 */
878         {
879         1,
880         TLS1_TXT_DHE_RSA_WITH_AES_256_SHA,
881         TLS1_CK_DHE_RSA_WITH_AES_256_SHA,
882         SSL_kEDH|SSL_aRSA|SSL_AES|SSL_SHA|SSL_TLSV1,
883         SSL_NOT_EXP|SSL_HIGH,
884         0,
885         256,
886         256,
887         SSL_ALL_CIPHERS,
888         SSL_ALL_STRENGTHS,
889         },
890         /* Cipher 3A */
891         {
892         1,
893         TLS1_TXT_ADH_WITH_AES_256_SHA,
894         TLS1_CK_ADH_WITH_AES_256_SHA,
895         SSL_kEDH|SSL_aNULL|SSL_AES|SSL_SHA|SSL_TLSV1,
896         SSL_NOT_EXP|SSL_HIGH,
897         0,
898         256,
899         256,
900         SSL_ALL_CIPHERS,
901         SSL_ALL_STRENGTHS,
902         },
903
904 #ifndef OPENSSL_NO_ECDH
905         /* Cipher C001 */
906             {
907             1,
908             TLS1_TXT_ECDH_ECDSA_WITH_NULL_SHA,
909             TLS1_CK_ECDH_ECDSA_WITH_NULL_SHA,
910             SSL_kECDH|SSL_aECDSA|SSL_eNULL|SSL_SHA|SSL_TLSV1,
911             SSL_NOT_EXP,
912             0,
913             0,
914             0,
915             SSL_ALL_CIPHERS,
916             SSL_ALL_STRENGTHS,
917             },
918
919         /* Cipher C002 */
920             {
921             1,
922             TLS1_TXT_ECDH_ECDSA_WITH_RC4_128_SHA,
923             TLS1_CK_ECDH_ECDSA_WITH_RC4_128_SHA,
924             SSL_kECDH|SSL_aECDSA|SSL_RC4|SSL_SHA|SSL_TLSV1,
925             SSL_NOT_EXP,
926             0,
927             128,
928             128,
929             SSL_ALL_CIPHERS,
930             SSL_ALL_STRENGTHS,
931             },
932
933         /* Cipher C003 */
934             {
935             1,
936             TLS1_TXT_ECDH_ECDSA_WITH_DES_192_CBC3_SHA,
937             TLS1_CK_ECDH_ECDSA_WITH_DES_192_CBC3_SHA,
938             SSL_kECDH|SSL_aECDSA|SSL_3DES|SSL_SHA|SSL_TLSV1,
939             SSL_NOT_EXP|SSL_HIGH,
940             0,
941             168,
942             168,
943             SSL_ALL_CIPHERS,
944             SSL_ALL_STRENGTHS,
945             },
946
947         /* Cipher C004 */
948             {
949             1,
950             TLS1_TXT_ECDH_ECDSA_WITH_AES_128_CBC_SHA,
951             TLS1_CK_ECDH_ECDSA_WITH_AES_128_CBC_SHA,
952             SSL_kECDH|SSL_aECDSA|SSL_AES|SSL_SHA|SSL_TLSV1,
953             SSL_NOT_EXP|SSL_HIGH,
954             0,
955             128,
956             128,
957             SSL_ALL_CIPHERS,
958             SSL_ALL_STRENGTHS,
959             },
960
961         /* Cipher C005 */
962             {
963             1,
964             TLS1_TXT_ECDH_ECDSA_WITH_AES_256_CBC_SHA,
965             TLS1_CK_ECDH_ECDSA_WITH_AES_256_CBC_SHA,
966             SSL_kECDH|SSL_aECDSA|SSL_AES|SSL_SHA|SSL_TLSV1,
967             SSL_NOT_EXP|SSL_HIGH,
968             0,
969             256,
970             256,
971             SSL_ALL_CIPHERS,
972             SSL_ALL_STRENGTHS,
973             },
974
975         /* Cipher C006 */
976             {
977             1,
978             TLS1_TXT_ECDHE_ECDSA_WITH_NULL_SHA,
979             TLS1_CK_ECDHE_ECDSA_WITH_NULL_SHA,
980             SSL_kECDHE|SSL_aECDSA|SSL_eNULL|SSL_SHA|SSL_TLSV1,
981             SSL_NOT_EXP,
982             0,
983             0,
984             0,
985             SSL_ALL_CIPHERS,
986             SSL_ALL_STRENGTHS,
987             },
988
989         /* Cipher C007 */
990             {
991             1,
992             TLS1_TXT_ECDHE_ECDSA_WITH_RC4_128_SHA,
993             TLS1_CK_ECDHE_ECDSA_WITH_RC4_128_SHA,
994             SSL_kECDHE|SSL_aECDSA|SSL_RC4|SSL_SHA|SSL_TLSV1,
995             SSL_NOT_EXP,
996             0,
997             128,
998             128,
999             SSL_ALL_CIPHERS,
1000             SSL_ALL_STRENGTHS,
1001             },
1002
1003         /* Cipher C008 */
1004             {
1005             1,
1006             TLS1_TXT_ECDHE_ECDSA_WITH_DES_192_CBC3_SHA,
1007             TLS1_CK_ECDHE_ECDSA_WITH_DES_192_CBC3_SHA,
1008             SSL_kECDHE|SSL_aECDSA|SSL_3DES|SSL_SHA|SSL_TLSV1,
1009             SSL_NOT_EXP|SSL_HIGH,
1010             0,
1011             168,
1012             168,
1013             SSL_ALL_CIPHERS,
1014             SSL_ALL_STRENGTHS,
1015             },
1016
1017         /* Cipher C009 */
1018             {
1019             1,
1020             TLS1_TXT_ECDHE_ECDSA_WITH_AES_128_CBC_SHA,
1021             TLS1_CK_ECDHE_ECDSA_WITH_AES_128_CBC_SHA,
1022             SSL_kECDHE|SSL_aECDSA|SSL_AES|SSL_SHA|SSL_TLSV1,
1023             SSL_NOT_EXP|SSL_HIGH,
1024             0,
1025             128,
1026             128,
1027             SSL_ALL_CIPHERS,
1028             SSL_ALL_STRENGTHS,
1029             },
1030
1031         /* Cipher C00A */
1032             {
1033             1,
1034             TLS1_TXT_ECDHE_ECDSA_WITH_AES_256_CBC_SHA,
1035             TLS1_CK_ECDHE_ECDSA_WITH_AES_256_CBC_SHA,
1036             SSL_kECDHE|SSL_aECDSA|SSL_AES|SSL_SHA|SSL_TLSV1,
1037             SSL_NOT_EXP|SSL_HIGH,
1038             0,
1039             256,
1040             256,
1041             SSL_ALL_CIPHERS,
1042             SSL_ALL_STRENGTHS,
1043             },
1044
1045         /* Cipher C00B */
1046             {
1047             1,
1048             TLS1_TXT_ECDH_RSA_WITH_NULL_SHA,
1049             TLS1_CK_ECDH_RSA_WITH_NULL_SHA,
1050             SSL_kECDH|SSL_aRSA|SSL_eNULL|SSL_SHA|SSL_TLSV1,
1051             SSL_NOT_EXP,
1052             0,
1053             0,
1054             0,
1055             SSL_ALL_CIPHERS,
1056             SSL_ALL_STRENGTHS,
1057             },
1058
1059         /* Cipher C00C */
1060             {
1061             1,
1062             TLS1_TXT_ECDH_RSA_WITH_RC4_128_SHA,
1063             TLS1_CK_ECDH_RSA_WITH_RC4_128_SHA,
1064             SSL_kECDH|SSL_aRSA|SSL_RC4|SSL_SHA|SSL_TLSV1,
1065             SSL_NOT_EXP,
1066             0,
1067             128,
1068             128,
1069             SSL_ALL_CIPHERS,
1070             SSL_ALL_STRENGTHS,
1071             },
1072
1073         /* Cipher C00D */
1074             {
1075             1,
1076             TLS1_TXT_ECDH_RSA_WITH_DES_192_CBC3_SHA,
1077             TLS1_CK_ECDH_RSA_WITH_DES_192_CBC3_SHA,
1078             SSL_kECDH|SSL_aRSA|SSL_3DES|SSL_SHA|SSL_TLSV1,
1079             SSL_NOT_EXP|SSL_HIGH,
1080             0,
1081             168,
1082             168,
1083             SSL_ALL_CIPHERS,
1084             SSL_ALL_STRENGTHS,
1085             },
1086
1087         /* Cipher C00E */
1088             {
1089             1,
1090             TLS1_TXT_ECDH_RSA_WITH_AES_128_CBC_SHA,
1091             TLS1_CK_ECDH_RSA_WITH_AES_128_CBC_SHA,
1092             SSL_kECDH|SSL_aRSA|SSL_AES|SSL_SHA|SSL_TLSV1,
1093             SSL_NOT_EXP|SSL_HIGH,
1094             0,
1095             128,
1096             128,
1097             SSL_ALL_CIPHERS,
1098             SSL_ALL_STRENGTHS,
1099             },
1100
1101         /* Cipher C00F */
1102             {
1103             1,
1104             TLS1_TXT_ECDH_RSA_WITH_AES_256_CBC_SHA,
1105             TLS1_CK_ECDH_RSA_WITH_AES_256_CBC_SHA,
1106             SSL_kECDH|SSL_aRSA|SSL_AES|SSL_SHA|SSL_TLSV1,
1107             SSL_NOT_EXP|SSL_HIGH,
1108             0,
1109             256,
1110             256,
1111             SSL_ALL_CIPHERS,
1112             SSL_ALL_STRENGTHS,
1113             },
1114
1115         /* Cipher C010 */
1116             {
1117             1,
1118             TLS1_TXT_ECDHE_RSA_WITH_NULL_SHA,
1119             TLS1_CK_ECDHE_RSA_WITH_NULL_SHA,
1120             SSL_kECDHE|SSL_aRSA|SSL_eNULL|SSL_SHA|SSL_TLSV1,
1121             SSL_NOT_EXP,
1122             0,
1123             0,
1124             0,
1125             SSL_ALL_CIPHERS,
1126             SSL_ALL_STRENGTHS,
1127             },
1128
1129         /* Cipher C011 */
1130             {
1131             1,
1132             TLS1_TXT_ECDHE_RSA_WITH_RC4_128_SHA,
1133             TLS1_CK_ECDHE_RSA_WITH_RC4_128_SHA,
1134             SSL_kECDHE|SSL_aRSA|SSL_RC4|SSL_SHA|SSL_TLSV1,
1135             SSL_NOT_EXP,
1136             0,
1137             128,
1138             128,
1139             SSL_ALL_CIPHERS,
1140             SSL_ALL_STRENGTHS,
1141             },
1142
1143         /* Cipher C012 */
1144             {
1145             1,
1146             TLS1_TXT_ECDHE_RSA_WITH_DES_192_CBC3_SHA,
1147             TLS1_CK_ECDHE_RSA_WITH_DES_192_CBC3_SHA,
1148             SSL_kECDHE|SSL_aRSA|SSL_3DES|SSL_SHA|SSL_TLSV1,
1149             SSL_NOT_EXP|SSL_HIGH,
1150             0,
1151             168,
1152             168,
1153             SSL_ALL_CIPHERS,
1154             SSL_ALL_STRENGTHS,
1155             },
1156
1157         /* Cipher C013 */
1158             {
1159             1,
1160             TLS1_TXT_ECDHE_RSA_WITH_AES_128_CBC_SHA,
1161             TLS1_CK_ECDHE_RSA_WITH_AES_128_CBC_SHA,
1162             SSL_kECDHE|SSL_aRSA|SSL_AES|SSL_SHA|SSL_TLSV1,
1163             SSL_NOT_EXP|SSL_HIGH,
1164             0,
1165             128,
1166             128,
1167             SSL_ALL_CIPHERS,
1168             SSL_ALL_STRENGTHS,
1169             },
1170
1171         /* Cipher C014 */
1172             {
1173             1,
1174             TLS1_TXT_ECDHE_RSA_WITH_AES_256_CBC_SHA,
1175             TLS1_CK_ECDHE_RSA_WITH_AES_256_CBC_SHA,
1176             SSL_kECDHE|SSL_aRSA|SSL_AES|SSL_SHA|SSL_TLSV1,
1177             SSL_NOT_EXP|SSL_HIGH,
1178             0,
1179             256,
1180             256,
1181             SSL_ALL_CIPHERS,
1182             SSL_ALL_STRENGTHS,
1183             },
1184
1185         /* Cipher C015 */
1186             {
1187             1,
1188             TLS1_TXT_ECDH_anon_WITH_NULL_SHA,
1189             TLS1_CK_ECDH_anon_WITH_NULL_SHA,
1190             SSL_kECDHE|SSL_aNULL|SSL_eNULL|SSL_SHA|SSL_TLSV1,
1191             SSL_NOT_EXP,
1192             0,
1193             0,
1194             0,
1195             SSL_ALL_CIPHERS,
1196             SSL_ALL_STRENGTHS,
1197             },
1198
1199         /* Cipher C016 */
1200             {
1201             1,
1202             TLS1_TXT_ECDH_anon_WITH_RC4_128_SHA,
1203             TLS1_CK_ECDH_anon_WITH_RC4_128_SHA,
1204             SSL_kECDHE|SSL_aNULL|SSL_RC4|SSL_SHA|SSL_TLSV1,
1205             SSL_NOT_EXP,
1206             0,
1207             128,
1208             128,
1209             SSL_ALL_CIPHERS,
1210             SSL_ALL_STRENGTHS,
1211             },
1212
1213         /* Cipher C017 */
1214             {
1215             1,
1216             TLS1_TXT_ECDH_anon_WITH_DES_192_CBC3_SHA,
1217             TLS1_CK_ECDH_anon_WITH_DES_192_CBC3_SHA,
1218             SSL_kECDHE|SSL_aNULL|SSL_3DES|SSL_SHA|SSL_TLSV1,
1219             SSL_NOT_EXP|SSL_HIGH,
1220             0,
1221             168,
1222             168,
1223             SSL_ALL_CIPHERS,
1224             SSL_ALL_STRENGTHS,
1225             },
1226
1227         /* Cipher C018 */
1228             {
1229             1,
1230             TLS1_TXT_ECDH_anon_WITH_AES_128_CBC_SHA,
1231             TLS1_CK_ECDH_anon_WITH_AES_128_CBC_SHA,
1232             SSL_kECDHE|SSL_aNULL|SSL_AES|SSL_SHA|SSL_TLSV1,
1233             SSL_NOT_EXP|SSL_HIGH,
1234             0,
1235             128,
1236             128,
1237             SSL_ALL_CIPHERS,
1238             SSL_ALL_STRENGTHS,
1239             },
1240
1241         /* Cipher C019 */
1242             {
1243             1,
1244             TLS1_TXT_ECDH_anon_WITH_AES_256_CBC_SHA,
1245             TLS1_CK_ECDH_anon_WITH_AES_256_CBC_SHA,
1246             SSL_kECDHE|SSL_aNULL|SSL_AES|SSL_SHA|SSL_TLSV1,
1247             SSL_NOT_EXP|SSL_HIGH,
1248             0,
1249             256,
1250             256,
1251             SSL_ALL_CIPHERS,
1252             SSL_ALL_STRENGTHS,
1253             },
1254 #endif  /* OPENSSL_NO_ECDH */
1255
1256 #if TLS1_ALLOW_EXPERIMENTAL_CIPHERSUITES
1257         /* New TLS Export CipherSuites from expired ID */
1258 #if 0
1259         /* Cipher 60 */
1260             {
1261             1,
1262             TLS1_TXT_RSA_EXPORT1024_WITH_RC4_56_MD5,
1263             TLS1_CK_RSA_EXPORT1024_WITH_RC4_56_MD5,
1264             SSL_kRSA|SSL_aRSA|SSL_RC4|SSL_MD5|SSL_TLSV1,
1265             SSL_EXPORT|SSL_EXP56,
1266             0,
1267             56,
1268             128,
1269             SSL_ALL_CIPHERS,
1270             SSL_ALL_STRENGTHS,
1271             },
1272         /* Cipher 61 */
1273             {
1274             1,
1275             TLS1_TXT_RSA_EXPORT1024_WITH_RC2_CBC_56_MD5,
1276             TLS1_CK_RSA_EXPORT1024_WITH_RC2_CBC_56_MD5,
1277             SSL_kRSA|SSL_aRSA|SSL_RC2|SSL_MD5|SSL_TLSV1,
1278             SSL_EXPORT|SSL_EXP56,
1279             0,
1280             56,
1281             128,
1282             SSL_ALL_CIPHERS,
1283             SSL_ALL_STRENGTHS,
1284             },
1285 #endif
1286         /* Cipher 62 */
1287             {
1288             1,
1289             TLS1_TXT_RSA_EXPORT1024_WITH_DES_CBC_SHA,
1290             TLS1_CK_RSA_EXPORT1024_WITH_DES_CBC_SHA,
1291             SSL_kRSA|SSL_aRSA|SSL_DES|SSL_SHA|SSL_TLSV1,
1292             SSL_EXPORT|SSL_EXP56,
1293             0,
1294             56,
1295             56,
1296             SSL_ALL_CIPHERS,
1297             SSL_ALL_STRENGTHS,
1298             },
1299         /* Cipher 63 */
1300             {
1301             1,
1302             TLS1_TXT_DHE_DSS_EXPORT1024_WITH_DES_CBC_SHA,
1303             TLS1_CK_DHE_DSS_EXPORT1024_WITH_DES_CBC_SHA,
1304             SSL_kEDH|SSL_aDSS|SSL_DES|SSL_SHA|SSL_TLSV1,
1305             SSL_EXPORT|SSL_EXP56,
1306             0,
1307             56,
1308             56,
1309             SSL_ALL_CIPHERS,
1310             SSL_ALL_STRENGTHS,
1311             },
1312         /* Cipher 64 */
1313             {
1314             1,
1315             TLS1_TXT_RSA_EXPORT1024_WITH_RC4_56_SHA,
1316             TLS1_CK_RSA_EXPORT1024_WITH_RC4_56_SHA,
1317             SSL_kRSA|SSL_aRSA|SSL_RC4|SSL_SHA|SSL_TLSV1,
1318             SSL_EXPORT|SSL_EXP56,
1319             0,
1320             56,
1321             128,
1322             SSL_ALL_CIPHERS,
1323             SSL_ALL_STRENGTHS,
1324             },
1325         /* Cipher 65 */
1326             {
1327             1,
1328             TLS1_TXT_DHE_DSS_EXPORT1024_WITH_RC4_56_SHA,
1329             TLS1_CK_DHE_DSS_EXPORT1024_WITH_RC4_56_SHA,
1330             SSL_kEDH|SSL_aDSS|SSL_RC4|SSL_SHA|SSL_TLSV1,
1331             SSL_EXPORT|SSL_EXP56,
1332             0,
1333             56,
1334             128,
1335             SSL_ALL_CIPHERS,
1336             SSL_ALL_STRENGTHS,
1337             },
1338         /* Cipher 66 */
1339             {
1340             1,
1341             TLS1_TXT_DHE_DSS_WITH_RC4_128_SHA,
1342             TLS1_CK_DHE_DSS_WITH_RC4_128_SHA,
1343             SSL_kEDH|SSL_aDSS|SSL_RC4|SSL_SHA|SSL_TLSV1,
1344             SSL_NOT_EXP|SSL_MEDIUM,
1345             0,
1346             128,
1347             128,
1348             SSL_ALL_CIPHERS,
1349             SSL_ALL_STRENGTHS
1350             },
1351 #endif
1352
1353 /* end of list */
1354         };
1355
1356 SSL3_ENC_METHOD SSLv3_enc_data={
1357         ssl3_enc,
1358         ssl3_mac,
1359         ssl3_setup_key_block,
1360         ssl3_generate_master_secret,
1361         ssl3_change_cipher_state,
1362         ssl3_final_finish_mac,
1363         MD5_DIGEST_LENGTH+SHA_DIGEST_LENGTH,
1364         ssl3_cert_verify_mac,
1365         SSL3_MD_CLIENT_FINISHED_CONST,4,
1366         SSL3_MD_SERVER_FINISHED_CONST,4,
1367         ssl3_alert_code,
1368         };
1369
1370 long ssl3_default_timeout(void)
1371         {
1372         /* 2 hours, the 24 hours mentioned in the SSLv3 spec
1373          * is way too long for http, the cache would over fill */
1374         return(60*60*2);
1375         }
1376
1377 int ssl3_num_ciphers(void)
1378         {
1379         return(SSL3_NUM_CIPHERS);
1380         }
1381
1382 SSL_CIPHER *ssl3_get_cipher(unsigned int u)
1383         {
1384         if (u < SSL3_NUM_CIPHERS)
1385                 return(&(ssl3_ciphers[SSL3_NUM_CIPHERS-1-u]));
1386         else
1387                 return(NULL);
1388         }
1389
1390 int ssl3_pending(const SSL *s)
1391         {
1392         if (s->rstate == SSL_ST_READ_BODY)
1393                 return 0;
1394         
1395         return (s->s3->rrec.type == SSL3_RT_APPLICATION_DATA) ? s->s3->rrec.length : 0;
1396         }
1397
1398 int ssl3_new(SSL *s)
1399         {
1400         SSL3_STATE *s3;
1401
1402         if ((s3=OPENSSL_malloc(sizeof *s3)) == NULL) goto err;
1403         memset(s3,0,sizeof *s3);
1404         EVP_MD_CTX_init(&s3->finish_dgst1);
1405         EVP_MD_CTX_init(&s3->finish_dgst2);
1406         memset(s3->rrec.seq_num,0,sizeof(s3->rrec.seq_num));
1407         memset(s3->wrec.seq_num,0,sizeof(s3->wrec.seq_num));
1408
1409         s->s3=s3;
1410
1411         s->method->ssl_clear(s);
1412         return(1);
1413 err:
1414         return(0);
1415         }
1416
1417 void ssl3_free(SSL *s)
1418         {
1419         if(s == NULL)
1420             return;
1421
1422         ssl3_cleanup_key_block(s);
1423         if (s->s3->rbuf.buf != NULL)
1424                 OPENSSL_free(s->s3->rbuf.buf);
1425         if (s->s3->wbuf.buf != NULL)
1426                 OPENSSL_free(s->s3->wbuf.buf);
1427         if (s->s3->rrec.comp != NULL)
1428                 OPENSSL_free(s->s3->rrec.comp);
1429 #ifndef OPENSSL_NO_DH
1430         if (s->s3->tmp.dh != NULL)
1431                 DH_free(s->s3->tmp.dh);
1432 #endif
1433 #ifndef OPENSSL_NO_ECDH
1434         if (s->s3->tmp.ecdh != NULL)
1435                 EC_KEY_free(s->s3->tmp.ecdh);
1436 #endif
1437
1438         if (s->s3->tmp.ca_names != NULL)
1439                 sk_X509_NAME_pop_free(s->s3->tmp.ca_names,X509_NAME_free);
1440         EVP_MD_CTX_cleanup(&s->s3->finish_dgst1);
1441         EVP_MD_CTX_cleanup(&s->s3->finish_dgst2);
1442
1443         OPENSSL_cleanse(s->s3,sizeof *s->s3);
1444         OPENSSL_free(s->s3);
1445         s->s3=NULL;
1446         }
1447
1448 void ssl3_clear(SSL *s)
1449         {
1450         unsigned char *rp,*wp;
1451         size_t rlen, wlen;
1452
1453         ssl3_cleanup_key_block(s);
1454         if (s->s3->tmp.ca_names != NULL)
1455                 sk_X509_NAME_pop_free(s->s3->tmp.ca_names,X509_NAME_free);
1456
1457         if (s->s3->rrec.comp != NULL)
1458                 {
1459                 OPENSSL_free(s->s3->rrec.comp);
1460                 s->s3->rrec.comp=NULL;
1461                 }
1462 #ifndef OPENSSL_NO_DH
1463         if (s->s3->tmp.dh != NULL)
1464                 DH_free(s->s3->tmp.dh);
1465 #endif
1466 #ifndef OPENSSL_NO_ECDH
1467         if (s->s3->tmp.ecdh != NULL)
1468                 EC_KEY_free(s->s3->tmp.ecdh);
1469 #endif
1470
1471         rp = s->s3->rbuf.buf;
1472         wp = s->s3->wbuf.buf;
1473         rlen = s->s3->rbuf.len;
1474         wlen = s->s3->wbuf.len;
1475
1476         EVP_MD_CTX_cleanup(&s->s3->finish_dgst1);
1477         EVP_MD_CTX_cleanup(&s->s3->finish_dgst2);
1478
1479         memset(s->s3,0,sizeof *s->s3);
1480         s->s3->rbuf.buf = rp;
1481         s->s3->wbuf.buf = wp;
1482         s->s3->rbuf.len = rlen;
1483         s->s3->wbuf.len = wlen;
1484
1485         ssl_free_wbio_buffer(s);
1486
1487         s->packet_length=0;
1488         s->s3->renegotiate=0;
1489         s->s3->total_renegotiations=0;
1490         s->s3->num_renegotiations=0;
1491         s->s3->in_read_app_data=0;
1492         s->version=SSL3_VERSION;
1493         }
1494
1495 long ssl3_ctrl(SSL *s, int cmd, long larg, void *parg)
1496         {
1497         int ret=0;
1498
1499 #if !defined(OPENSSL_NO_DSA) || !defined(OPENSSL_NO_RSA)
1500         if (
1501 #ifndef OPENSSL_NO_RSA
1502             cmd == SSL_CTRL_SET_TMP_RSA ||
1503             cmd == SSL_CTRL_SET_TMP_RSA_CB ||
1504 #endif
1505 #ifndef OPENSSL_NO_DSA
1506             cmd == SSL_CTRL_SET_TMP_DH ||
1507             cmd == SSL_CTRL_SET_TMP_DH_CB ||
1508 #endif
1509                 0)
1510                 {
1511                 if (!ssl_cert_inst(&s->cert))
1512                         {
1513                         SSLerr(SSL_F_SSL3_CTRL, ERR_R_MALLOC_FAILURE);
1514                         return(0);
1515                         }
1516                 }
1517 #endif
1518
1519         switch (cmd)
1520                 {
1521         case SSL_CTRL_GET_SESSION_REUSED:
1522                 ret=s->hit;
1523                 break;
1524         case SSL_CTRL_GET_CLIENT_CERT_REQUEST:
1525                 break;
1526         case SSL_CTRL_GET_NUM_RENEGOTIATIONS:
1527                 ret=s->s3->num_renegotiations;
1528                 break;
1529         case SSL_CTRL_CLEAR_NUM_RENEGOTIATIONS:
1530                 ret=s->s3->num_renegotiations;
1531                 s->s3->num_renegotiations=0;
1532                 break;
1533         case SSL_CTRL_GET_TOTAL_RENEGOTIATIONS:
1534                 ret=s->s3->total_renegotiations;
1535                 break;
1536         case SSL_CTRL_GET_FLAGS:
1537                 ret=(int)(s->s3->flags);
1538                 break;
1539 #ifndef OPENSSL_NO_RSA
1540         case SSL_CTRL_NEED_TMP_RSA:
1541                 if ((s->cert != NULL) && (s->cert->rsa_tmp == NULL) &&
1542                     ((s->cert->pkeys[SSL_PKEY_RSA_ENC].privatekey == NULL) ||
1543                      (EVP_PKEY_size(s->cert->pkeys[SSL_PKEY_RSA_ENC].privatekey) > (512/8))))
1544                         ret = 1;
1545                 break;
1546         case SSL_CTRL_SET_TMP_RSA:
1547                 {
1548                         RSA *rsa = (RSA *)parg;
1549                         if (rsa == NULL)
1550                                 {
1551                                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_PASSED_NULL_PARAMETER);
1552                                 return(ret);
1553                                 }
1554                         if ((rsa = RSAPrivateKey_dup(rsa)) == NULL)
1555                                 {
1556                                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_RSA_LIB);
1557                                 return(ret);
1558                                 }
1559                         if (s->cert->rsa_tmp != NULL)
1560                                 RSA_free(s->cert->rsa_tmp);
1561                         s->cert->rsa_tmp = rsa;
1562                         ret = 1;
1563                 }
1564                 break;
1565         case SSL_CTRL_SET_TMP_RSA_CB:
1566                 {
1567                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED);
1568                 return(ret);
1569                 }
1570                 break;
1571 #endif
1572 #ifndef OPENSSL_NO_DH
1573         case SSL_CTRL_SET_TMP_DH:
1574                 {
1575                         DH *dh = (DH *)parg;
1576                         if (dh == NULL)
1577                                 {
1578                                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_PASSED_NULL_PARAMETER);
1579                                 return(ret);
1580                                 }
1581                         if ((dh = DHparams_dup(dh)) == NULL)
1582                                 {
1583                                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_DH_LIB);
1584                                 return(ret);
1585                                 }
1586                         if (!(s->options & SSL_OP_SINGLE_DH_USE))
1587                                 {
1588                                 if (!DH_generate_key(dh))
1589                                         {
1590                                         DH_free(dh);
1591                                         SSLerr(SSL_F_SSL3_CTRL, ERR_R_DH_LIB);
1592                                         return(ret);
1593                                         }
1594                                 }
1595                         if (s->cert->dh_tmp != NULL)
1596                                 DH_free(s->cert->dh_tmp);
1597                         s->cert->dh_tmp = dh;
1598                         ret = 1;
1599                 }
1600                 break;
1601         case SSL_CTRL_SET_TMP_DH_CB:
1602                 {
1603                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED);
1604                 return(ret);
1605                 }
1606                 break;
1607 #endif
1608 #ifndef OPENSSL_NO_ECDH
1609         case SSL_CTRL_SET_TMP_ECDH:
1610                 {
1611                 EC_KEY *ecdh = NULL;
1612                         
1613                 if (parg == NULL)
1614                         {
1615                         SSLerr(SSL_F_SSL3_CTRL, ERR_R_PASSED_NULL_PARAMETER);
1616                         return(ret);
1617                         }
1618                 if (!EC_KEY_up_ref((EC_KEY *)parg))
1619                         {
1620                         SSLerr(SSL_F_SSL3_CTRL,ERR_R_ECDH_LIB);
1621                         return(ret);
1622                         }
1623                 ecdh = (EC_KEY *)parg;
1624                 if (!(s->options & SSL_OP_SINGLE_ECDH_USE))
1625                         {
1626                         if (!EC_KEY_generate_key(ecdh))
1627                                 {
1628                                 EC_KEY_free(ecdh);
1629                                 SSLerr(SSL_F_SSL3_CTRL,ERR_R_ECDH_LIB);
1630                                 return(ret);
1631                                 }
1632                         }
1633                 if (s->cert->ecdh_tmp != NULL)
1634                         EC_KEY_free(s->cert->ecdh_tmp);
1635                 s->cert->ecdh_tmp = ecdh;
1636                 ret = 1;
1637                 }
1638                 break;
1639         case SSL_CTRL_SET_TMP_ECDH_CB:
1640                 {
1641                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED);
1642                 return(ret);
1643                 }
1644                 break;
1645 #endif /* !OPENSSL_NO_ECDH */
1646 #ifndef OPENSSL_NO_TLSEXT
1647         case SSL_CTRL_GET_TLSEXT_HOSTNAME:      
1648                 if (larg != TLSEXT_NAMETYPE_host_name)
1649                         {
1650                         SSLerr(SSL_F_SSL3_CTRL, SSL_R_SSL3_EXT_INVALID_SERVERNAME_TYPE);
1651                         return(0);
1652                         }
1653                 /* XXX cf. SSL_get_servername() (ssl_lib.c) */
1654                 if (s->session && s->session->tlsext_hostname)
1655                         *((char **) parg) = s->session->tlsext_hostname;
1656                 else
1657                         *((char **) parg) = s->tlsext_hostname;
1658                 ret = 1;
1659                 break;
1660         case SSL_CTRL_SET_TLSEXT_HOSTNAME:
1661                 if (larg == TLSEXT_NAMETYPE_host_name)
1662                         {
1663                         if (s->tlsext_hostname != NULL) 
1664                                 OPENSSL_free(s->tlsext_hostname);
1665                         s->tlsext_hostname = NULL;
1666
1667                         ret = 1;
1668                         if (parg == NULL) 
1669                                 break;
1670                         if (strlen((char *)parg) > 255)
1671                                 {
1672                                 SSLerr(SSL_F_SSL3_CTRL, SSL_R_SSL3_EXT_INVALID_SERVERNAME);
1673                                 return 0;
1674                                 }
1675                         if ((s->tlsext_hostname = BUF_strdup((char *)parg)) == NULL)
1676                                 {
1677                                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_INTERNAL_ERROR);
1678                                 return 0;
1679                                 }
1680                         }
1681                 else
1682                         {
1683                         SSLerr(SSL_F_SSL3_CTRL, SSL_R_SSL3_EXT_INVALID_SERVERNAME_TYPE);
1684                         return 0;
1685                         }
1686                 s->options |= SSL_OP_NO_SSLv2; /* can't use extension w/ SSL 2.0 format */
1687                 break;
1688         case SSL_CTRL_SET_TLSEXT_SERVERNAME_DONE:
1689                 s->servername_done = larg;
1690                 break;
1691 #endif /* !OPENSSL_NO_TLSEXT */
1692         default:
1693                 break;
1694                 }
1695         return(ret);
1696         }
1697
1698 long ssl3_callback_ctrl(SSL *s, int cmd, void (*fp)(void))
1699         {
1700         int ret=0;
1701
1702 #if !defined(OPENSSL_NO_DSA) || !defined(OPENSSL_NO_RSA)
1703         if (
1704 #ifndef OPENSSL_NO_RSA
1705             cmd == SSL_CTRL_SET_TMP_RSA_CB ||
1706 #endif
1707 #ifndef OPENSSL_NO_DSA
1708             cmd == SSL_CTRL_SET_TMP_DH_CB ||
1709 #endif
1710                 0)
1711                 {
1712                 if (!ssl_cert_inst(&s->cert))
1713                         {
1714                         SSLerr(SSL_F_SSL3_CALLBACK_CTRL, ERR_R_MALLOC_FAILURE);
1715                         return(0);
1716                         }
1717                 }
1718 #endif
1719
1720         switch (cmd)
1721                 {
1722 #ifndef OPENSSL_NO_RSA
1723         case SSL_CTRL_SET_TMP_RSA_CB:
1724                 {
1725                 s->cert->rsa_tmp_cb = (RSA *(*)(SSL *, int, int))fp;
1726                 }
1727                 break;
1728 #endif
1729 #ifndef OPENSSL_NO_DH
1730         case SSL_CTRL_SET_TMP_DH_CB:
1731                 {
1732                 s->cert->dh_tmp_cb = (DH *(*)(SSL *, int, int))fp;
1733                 }
1734                 break;
1735 #endif
1736 #ifndef OPENSSL_NO_ECDH
1737         case SSL_CTRL_SET_TMP_ECDH_CB:
1738                 {
1739                 s->cert->ecdh_tmp_cb = (EC_KEY *(*)(SSL *, int, int))fp;
1740                 }
1741                 break;
1742 #endif
1743         default:
1744                 break;
1745                 }
1746         return(ret);
1747         }
1748
1749 long ssl3_ctx_ctrl(SSL_CTX *ctx, int cmd, long larg, void *parg)
1750         {
1751         CERT *cert;
1752
1753         cert=ctx->cert;
1754
1755         switch (cmd)
1756                 {
1757 #ifndef OPENSSL_NO_RSA
1758         case SSL_CTRL_NEED_TMP_RSA:
1759                 if (    (cert->rsa_tmp == NULL) &&
1760                         ((cert->pkeys[SSL_PKEY_RSA_ENC].privatekey == NULL) ||
1761                          (EVP_PKEY_size(cert->pkeys[SSL_PKEY_RSA_ENC].privatekey) > (512/8)))
1762                         )
1763                         return(1);
1764                 else
1765                         return(0);
1766                 /* break; */
1767         case SSL_CTRL_SET_TMP_RSA:
1768                 {
1769                 RSA *rsa;
1770                 int i;
1771
1772                 rsa=(RSA *)parg;
1773                 i=1;
1774                 if (rsa == NULL)
1775                         i=0;
1776                 else
1777                         {
1778                         if ((rsa=RSAPrivateKey_dup(rsa)) == NULL)
1779                                 i=0;
1780                         }
1781                 if (!i)
1782                         {
1783                         SSLerr(SSL_F_SSL3_CTX_CTRL,ERR_R_RSA_LIB);
1784                         return(0);
1785                         }
1786                 else
1787                         {
1788                         if (cert->rsa_tmp != NULL)
1789                                 RSA_free(cert->rsa_tmp);
1790                         cert->rsa_tmp=rsa;
1791                         return(1);
1792                         }
1793                 }
1794                 /* break; */
1795         case SSL_CTRL_SET_TMP_RSA_CB:
1796                 {
1797                 SSLerr(SSL_F_SSL3_CTX_CTRL, ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED);
1798                 return(0);
1799                 }
1800                 break;
1801 #endif
1802 #ifndef OPENSSL_NO_DH
1803         case SSL_CTRL_SET_TMP_DH:
1804                 {
1805                 DH *new=NULL,*dh;
1806
1807                 dh=(DH *)parg;
1808                 if ((new=DHparams_dup(dh)) == NULL)
1809                         {
1810                         SSLerr(SSL_F_SSL3_CTX_CTRL,ERR_R_DH_LIB);
1811                         return 0;
1812                         }
1813                 if (!(ctx->options & SSL_OP_SINGLE_DH_USE))
1814                         {
1815                         if (!DH_generate_key(new))
1816                                 {
1817                                 SSLerr(SSL_F_SSL3_CTX_CTRL,ERR_R_DH_LIB);
1818                                 DH_free(new);
1819                                 return 0;
1820                                 }
1821                         }
1822                 if (cert->dh_tmp != NULL)
1823                         DH_free(cert->dh_tmp);
1824                 cert->dh_tmp=new;
1825                 return 1;
1826                 }
1827                 /*break; */
1828         case SSL_CTRL_SET_TMP_DH_CB:
1829                 {
1830                 SSLerr(SSL_F_SSL3_CTX_CTRL, ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED);
1831                 return(0);
1832                 }
1833                 break;
1834 #endif
1835 #ifndef OPENSSL_NO_ECDH
1836         case SSL_CTRL_SET_TMP_ECDH:
1837                 {
1838                 EC_KEY *ecdh = NULL;
1839                         
1840                 if (parg == NULL)
1841                         {
1842                         SSLerr(SSL_F_SSL3_CTX_CTRL,ERR_R_ECDH_LIB);
1843                         return 0;
1844                         }
1845                 ecdh = EC_KEY_dup((EC_KEY *)parg);
1846                 if (ecdh == NULL)
1847                         {
1848                         SSLerr(SSL_F_SSL3_CTX_CTRL,ERR_R_EC_LIB);
1849                         return 0;
1850                         }
1851                 if (!(ctx->options & SSL_OP_SINGLE_ECDH_USE))
1852                         {
1853                         if (!EC_KEY_generate_key(ecdh))
1854                                 {
1855                                 EC_KEY_free(ecdh);
1856                                 SSLerr(SSL_F_SSL3_CTX_CTRL,ERR_R_ECDH_LIB);
1857                                 return 0;
1858                                 }
1859                         }
1860
1861                 if (cert->ecdh_tmp != NULL)
1862                         {
1863                         EC_KEY_free(cert->ecdh_tmp);
1864                         }
1865                 cert->ecdh_tmp = ecdh;
1866                 return 1;
1867                 }
1868                 /* break; */
1869         case SSL_CTRL_SET_TMP_ECDH_CB:
1870                 {
1871                 SSLerr(SSL_F_SSL3_CTX_CTRL, ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED);
1872                 return(0);
1873                 }
1874                 break;
1875 #endif /* !OPENSSL_NO_ECDH */
1876 #ifndef OPENSSL_NO_TLSEXT
1877         case SSL_CTRL_SET_TLSEXT_SERVERNAME_ARG:
1878                 ctx->tlsext_servername_arg=parg;
1879                 break;
1880 #endif /* !OPENSSL_NO_TLSEXT */
1881         /* A Thawte special :-) */
1882         case SSL_CTRL_EXTRA_CHAIN_CERT:
1883                 if (ctx->extra_certs == NULL)
1884                         {
1885                         if ((ctx->extra_certs=sk_X509_new_null()) == NULL)
1886                                 return(0);
1887                         }
1888                 sk_X509_push(ctx->extra_certs,(X509 *)parg);
1889                 break;
1890
1891         default:
1892                 return(0);
1893                 }
1894         return(1);
1895         }
1896
1897 long ssl3_ctx_callback_ctrl(SSL_CTX *ctx, int cmd, void (*fp)(void))
1898         {
1899         CERT *cert;
1900
1901         cert=ctx->cert;
1902
1903         switch (cmd)
1904                 {
1905 #ifndef OPENSSL_NO_RSA
1906         case SSL_CTRL_SET_TMP_RSA_CB:
1907                 {
1908                 cert->rsa_tmp_cb = (RSA *(*)(SSL *, int, int))fp;
1909                 }
1910                 break;
1911 #endif
1912 #ifndef OPENSSL_NO_DH
1913         case SSL_CTRL_SET_TMP_DH_CB:
1914                 {
1915                 cert->dh_tmp_cb = (DH *(*)(SSL *, int, int))fp;
1916                 }
1917                 break;
1918 #endif
1919 #ifndef OPENSSL_NO_ECDH
1920         case SSL_CTRL_SET_TMP_ECDH_CB:
1921                 {
1922                 cert->ecdh_tmp_cb = (EC_KEY *(*)(SSL *, int, int))fp;
1923                 }
1924                 break;
1925 #endif
1926 #ifndef OPENSSL_NO_TLSEXT
1927         case SSL_CTRL_SET_TLSEXT_SERVERNAME_CB:
1928                 ctx->tlsext_servername_callback=(int (*)(SSL *,int *,void *))fp;
1929                 break;
1930 #endif
1931         default:
1932                 return(0);
1933                 }
1934         return(1);
1935         }
1936
1937 /* This function needs to check if the ciphers required are actually
1938  * available */
1939 SSL_CIPHER *ssl3_get_cipher_by_char(const unsigned char *p)
1940         {
1941         SSL_CIPHER c,*cp;
1942         unsigned long id;
1943
1944         id=0x03000000L|((unsigned long)p[0]<<8L)|(unsigned long)p[1];
1945         c.id=id;
1946         cp = (SSL_CIPHER *)OBJ_bsearch((char *)&c,
1947                 (char *)ssl3_ciphers,
1948                 SSL3_NUM_CIPHERS,sizeof(SSL_CIPHER),
1949                 FP_ICC ssl_cipher_id_cmp);
1950         if (cp == NULL || cp->valid == 0)
1951                 return NULL;
1952         else
1953                 return cp;
1954         }
1955
1956 int ssl3_put_cipher_by_char(const SSL_CIPHER *c, unsigned char *p)
1957         {
1958         long l;
1959
1960         if (p != NULL)
1961                 {
1962                 l=c->id;
1963                 if ((l & 0xff000000) != 0x03000000) return(0);
1964                 p[0]=((unsigned char)(l>> 8L))&0xFF;
1965                 p[1]=((unsigned char)(l     ))&0xFF;
1966                 }
1967         return(2);
1968         }
1969
1970 SSL_CIPHER *ssl3_choose_cipher(SSL *s, STACK_OF(SSL_CIPHER) *clnt,
1971              STACK_OF(SSL_CIPHER) *srvr)
1972         {
1973         SSL_CIPHER *c,*ret=NULL;
1974         STACK_OF(SSL_CIPHER) *prio, *allow;
1975         int i,j,ok;
1976         CERT *cert;
1977         unsigned long alg,mask,emask;
1978
1979         /* Let's see which ciphers we can support */
1980         cert=s->cert;
1981
1982 #if 0
1983         /* Do not set the compare functions, because this may lead to a
1984          * reordering by "id". We want to keep the original ordering.
1985          * We may pay a price in performance during sk_SSL_CIPHER_find(),
1986          * but would have to pay with the price of sk_SSL_CIPHER_dup().
1987          */
1988         sk_SSL_CIPHER_set_cmp_func(srvr, ssl_cipher_ptr_id_cmp);
1989         sk_SSL_CIPHER_set_cmp_func(clnt, ssl_cipher_ptr_id_cmp);
1990 #endif
1991
1992 #ifdef CIPHER_DEBUG
1993         printf("Server has %d from %p:\n", sk_SSL_CIPHER_num(srvr), srvr);
1994         for(i=0 ; i < sk_SSL_CIPHER_num(srvr) ; ++i)
1995             {
1996             c=sk_SSL_CIPHER_value(srvr,i);
1997             printf("%p:%s\n",c,c->name);
1998             }
1999         printf("Client sent %d from %p:\n", sk_SSL_CIPHER_num(clnt), clnt);
2000         for(i=0 ; i < sk_SSL_CIPHER_num(clnt) ; ++i)
2001             {
2002             c=sk_SSL_CIPHER_value(clnt,i);
2003             printf("%p:%s\n",c,c->name);
2004             }
2005 #endif
2006
2007         if (s->options & SSL_OP_CIPHER_SERVER_PREFERENCE)
2008             {
2009             prio = srvr;
2010             allow = clnt;
2011             }
2012         else
2013             {
2014             prio = clnt;
2015             allow = srvr;
2016             }
2017
2018         for (i=0; i<sk_SSL_CIPHER_num(prio); i++)
2019                 {
2020                 c=sk_SSL_CIPHER_value(prio,i);
2021
2022                 ssl_set_cert_masks(cert,c);
2023                 mask=cert->mask;
2024                 emask=cert->export_mask;
2025                         
2026 #ifdef KSSL_DEBUG
2027                 printf("ssl3_choose_cipher %d alg= %lx\n", i,c->algorithms);
2028 #endif    /* KSSL_DEBUG */
2029
2030                 alg=c->algorithms&(SSL_MKEY_MASK|SSL_AUTH_MASK);
2031 #ifndef OPENSSL_NO_KRB5
2032                 if (alg & SSL_KRB5) 
2033                         {
2034                         if ( !kssl_keytab_is_available(s->kssl_ctx) )
2035                             continue;
2036                         }
2037 #endif /* OPENSSL_NO_KRB5 */
2038                 if (SSL_C_IS_EXPORT(c))
2039                         {
2040                         ok=((alg & emask) == alg)?1:0;
2041 #ifdef CIPHER_DEBUG
2042                         printf("%d:[%08lX:%08lX]%p:%s (export)\n",ok,alg,emask,
2043                                c,c->name);
2044 #endif
2045                         }
2046                 else
2047                         {
2048                         ok=((alg & mask) == alg)?1:0;
2049 #ifdef CIPHER_DEBUG
2050                         printf("%d:[%08lX:%08lX]%p:%s\n",ok,alg,mask,c,
2051                                c->name);
2052 #endif
2053                         }
2054
2055                 if (!ok) continue;
2056                 j=sk_SSL_CIPHER_find(allow,c);
2057                 if (j >= 0)
2058                         {
2059                         ret=sk_SSL_CIPHER_value(allow,j);
2060                         break;
2061                         }
2062                 }
2063         return(ret);
2064         }
2065
2066 int ssl3_get_req_cert_type(SSL *s, unsigned char *p)
2067         {
2068         int ret=0;
2069         unsigned long alg;
2070
2071         alg=s->s3->tmp.new_cipher->algorithms;
2072
2073 #ifndef OPENSSL_NO_DH
2074         if (alg & (SSL_kDHr|SSL_kEDH))
2075                 {
2076 #  ifndef OPENSSL_NO_RSA
2077                 p[ret++]=SSL3_CT_RSA_FIXED_DH;
2078 #  endif
2079 #  ifndef OPENSSL_NO_DSA
2080                 p[ret++]=SSL3_CT_DSS_FIXED_DH;
2081 #  endif
2082                 }
2083         if ((s->version == SSL3_VERSION) &&
2084                 (alg & (SSL_kEDH|SSL_kDHd|SSL_kDHr)))
2085                 {
2086 #  ifndef OPENSSL_NO_RSA
2087                 p[ret++]=SSL3_CT_RSA_EPHEMERAL_DH;
2088 #  endif
2089 #  ifndef OPENSSL_NO_DSA
2090                 p[ret++]=SSL3_CT_DSS_EPHEMERAL_DH;
2091 #  endif
2092                 }
2093 #endif /* !OPENSSL_NO_DH */
2094 #ifndef OPENSSL_NO_RSA
2095         p[ret++]=SSL3_CT_RSA_SIGN;
2096 #endif
2097 #ifndef OPENSSL_NO_DSA
2098         p[ret++]=SSL3_CT_DSS_SIGN;
2099 #endif
2100 #ifndef OPENSSL_NO_ECDH
2101         /* We should ask for fixed ECDH certificates only
2102          * for SSL_kECDH (and not SSL_kECDHE)
2103          */
2104         if ((alg & SSL_kECDH) && (s->version >= TLS1_VERSION))
2105                 {
2106                 p[ret++]=TLS_CT_RSA_FIXED_ECDH;
2107                 p[ret++]=TLS_CT_ECDSA_FIXED_ECDH;
2108                 }
2109 #endif
2110
2111 #ifndef OPENSSL_NO_ECDSA
2112         /* ECDSA certs can be used with RSA cipher suites as well 
2113          * so we don't need to check for SSL_kECDH or SSL_kECDHE
2114          */
2115         if (s->version >= TLS1_VERSION)
2116                 {
2117                 p[ret++]=TLS_CT_ECDSA_SIGN;
2118                 }
2119 #endif  
2120         return(ret);
2121         }
2122
2123 int ssl3_shutdown(SSL *s)
2124         {
2125
2126         /* Don't do anything much if we have not done the handshake or
2127          * we don't want to send messages :-) */
2128         if ((s->quiet_shutdown) || (s->state == SSL_ST_BEFORE))
2129                 {
2130                 s->shutdown=(SSL_SENT_SHUTDOWN|SSL_RECEIVED_SHUTDOWN);
2131                 return(1);
2132                 }
2133
2134         if (!(s->shutdown & SSL_SENT_SHUTDOWN))
2135                 {
2136                 s->shutdown|=SSL_SENT_SHUTDOWN;
2137 #if 1
2138                 ssl3_send_alert(s,SSL3_AL_WARNING,SSL_AD_CLOSE_NOTIFY);
2139 #endif
2140                 /* our shutdown alert has been sent now, and if it still needs
2141                  * to be written, s->s3->alert_dispatch will be true */
2142                 }
2143         else if (s->s3->alert_dispatch)
2144                 {
2145                 /* resend it if not sent */
2146 #if 1
2147                 s->method->ssl_dispatch_alert(s);
2148 #endif
2149                 }
2150         else if (!(s->shutdown & SSL_RECEIVED_SHUTDOWN))
2151                 {
2152                 /* If we are waiting for a close from our peer, we are closed */
2153                 s->method->ssl_read_bytes(s,0,NULL,0,0);
2154                 }
2155
2156         if ((s->shutdown == (SSL_SENT_SHUTDOWN|SSL_RECEIVED_SHUTDOWN)) &&
2157                 !s->s3->alert_dispatch)
2158                 return(1);
2159         else
2160                 return(0);
2161         }
2162
2163 int ssl3_write(SSL *s, const void *buf, int len)
2164         {
2165         int ret,n;
2166
2167 #if 0
2168         if (s->shutdown & SSL_SEND_SHUTDOWN)
2169                 {
2170                 s->rwstate=SSL_NOTHING;
2171                 return(0);
2172                 }
2173 #endif
2174         clear_sys_error();
2175         if (s->s3->renegotiate) ssl3_renegotiate_check(s);
2176
2177         /* This is an experimental flag that sends the
2178          * last handshake message in the same packet as the first
2179          * use data - used to see if it helps the TCP protocol during
2180          * session-id reuse */
2181         /* The second test is because the buffer may have been removed */
2182         if ((s->s3->flags & SSL3_FLAGS_POP_BUFFER) && (s->wbio == s->bbio))
2183                 {
2184                 /* First time through, we write into the buffer */
2185                 if (s->s3->delay_buf_pop_ret == 0)
2186                         {
2187                         ret=ssl3_write_bytes(s,SSL3_RT_APPLICATION_DATA,
2188                                              buf,len);
2189                         if (ret <= 0) return(ret);
2190
2191                         s->s3->delay_buf_pop_ret=ret;
2192                         }
2193
2194                 s->rwstate=SSL_WRITING;
2195                 n=BIO_flush(s->wbio);
2196                 if (n <= 0) return(n);
2197                 s->rwstate=SSL_NOTHING;
2198
2199                 /* We have flushed the buffer, so remove it */
2200                 ssl_free_wbio_buffer(s);
2201                 s->s3->flags&= ~SSL3_FLAGS_POP_BUFFER;
2202
2203                 ret=s->s3->delay_buf_pop_ret;
2204                 s->s3->delay_buf_pop_ret=0;
2205                 }
2206         else
2207                 {
2208                 ret=s->method->ssl_write_bytes(s,SSL3_RT_APPLICATION_DATA,
2209                         buf,len);
2210                 if (ret <= 0) return(ret);
2211                 }
2212
2213         return(ret);
2214         }
2215
2216 static int ssl3_read_internal(SSL *s, void *buf, int len, int peek)
2217         {
2218         int ret;
2219         
2220         clear_sys_error();
2221         if (s->s3->renegotiate) ssl3_renegotiate_check(s);
2222         s->s3->in_read_app_data=1;
2223         ret=s->method->ssl_read_bytes(s,SSL3_RT_APPLICATION_DATA,buf,len,peek);
2224         if ((ret == -1) && (s->s3->in_read_app_data == 2))
2225                 {
2226                 /* ssl3_read_bytes decided to call s->handshake_func, which
2227                  * called ssl3_read_bytes to read handshake data.
2228                  * However, ssl3_read_bytes actually found application data
2229                  * and thinks that application data makes sense here; so disable
2230                  * handshake processing and try to read application data again. */
2231                 s->in_handshake++;
2232                 ret=s->method->ssl_read_bytes(s,SSL3_RT_APPLICATION_DATA,buf,len,peek);
2233                 s->in_handshake--;
2234                 }
2235         else
2236                 s->s3->in_read_app_data=0;
2237
2238         return(ret);
2239         }
2240
2241 int ssl3_read(SSL *s, void *buf, int len)
2242         {
2243         return ssl3_read_internal(s, buf, len, 0);
2244         }
2245
2246 int ssl3_peek(SSL *s, void *buf, int len)
2247         {
2248         return ssl3_read_internal(s, buf, len, 1);
2249         }
2250
2251 int ssl3_renegotiate(SSL *s)
2252         {
2253         if (s->handshake_func == NULL)
2254                 return(1);
2255
2256         if (s->s3->flags & SSL3_FLAGS_NO_RENEGOTIATE_CIPHERS)
2257                 return(0);
2258
2259         s->s3->renegotiate=1;
2260         return(1);
2261         }
2262
2263 int ssl3_renegotiate_check(SSL *s)
2264         {
2265         int ret=0;
2266
2267         if (s->s3->renegotiate)
2268                 {
2269                 if (    (s->s3->rbuf.left == 0) &&
2270                         (s->s3->wbuf.left == 0) &&
2271                         !SSL_in_init(s))
2272                         {
2273 /*
2274 if we are the server, and we have sent a 'RENEGOTIATE' message, we
2275 need to go to SSL_ST_ACCEPT.
2276 */
2277                         /* SSL_ST_ACCEPT */
2278                         s->state=SSL_ST_RENEGOTIATE;
2279                         s->s3->renegotiate=0;
2280                         s->s3->num_renegotiations++;
2281                         s->s3->total_renegotiations++;
2282                         ret=1;
2283                         }
2284                 }
2285         return(ret);
2286         }
2287