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-2007 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  * Copyright 2005 Nokia. All rights reserved.
 126  *
 127  * The portions of the attached software ("Contribution") is developed by
 128  * Nokia Corporation and is licensed pursuant to the OpenSSL open source
 129  * license.
 130  *
 131  * The Contribution, originally written by Mika Kousa and Pasi Eronen of
 132  * Nokia Corporation, consists of the "PSK" (Pre-Shared Key) ciphersuites
 133  * support (see RFC 4279) to OpenSSL.
 134  *
 135  * No patent licenses or other rights except those expressly stated in
 136  * the OpenSSL open source license shall be deemed granted or received
 137  * expressly, by implication, estoppel, or otherwise.
 138  *
 139  * No assurances are provided by Nokia that the Contribution does not
 140  * infringe the patent or other intellectual property rights of any third
 141  * party or that the license provides you with all the necessary rights
 142  * to make use of the Contribution.
 143  *
 144  * THE SOFTWARE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. IN
 145  * ADDITION TO THE DISCLAIMERS INCLUDED IN THE LICENSE, NOKIA
 146  * SPECIFICALLY DISCLAIMS ANY LIABILITY FOR CLAIMS BROUGHT BY YOU OR ANY
 147  * OTHER ENTITY BASED ON INFRINGEMENT OF INTELLECTUAL PROPERTY RIGHTS OR
 148  * OTHERWISE.
 149  */
 150
 151 #include <stdio.h>
 152 #include <openssl/objects.h>
 153 #include "ssl_locl.h"
 154 #include "kssl_lcl.h"
 155 #ifndef OPENSSL_NO_TLSEXT
 156 #ifndef OPENSSL_NO_EC
 157 #include "../crypto/ec/ec_lcl.h"
 158 #endif /* OPENSSL_NO_EC */
 159 #endif /* OPENSSL_NO_TLSEXT */
 160 #include <openssl/md5.h>
 161 #ifndef OPENSSL_NO_DH
 162 #include <openssl/dh.h>
 163 #endif
 164
 165 const char ssl3_version_str[]="SSLv3" OPENSSL_VERSION_PTEXT;
 166
 167 #define SSL3_NUM_CIPHERS        (sizeof(ssl3_ciphers)/sizeof(SSL_CIPHER))
 168
 169 /* list of available SSLv3 ciphers (sorted by id) */
 170 OPENSSL_GLOBAL SSL_CIPHER ssl3_ciphers[]={
 171
 172 /* The RSA ciphers */
 173 /* Cipher 01 */
 174         {
 175         1,
 176         SSL3_TXT_RSA_NULL_MD5,
 177         SSL3_CK_RSA_NULL_MD5,
 178         SSL_kRSA,
 179         SSL_aRSA,
 180         SSL_eNULL,
 181         SSL_MD5,
 182         SSL_SSLV3,
 183         SSL_NOT_EXP|SSL_STRONG_NONE,
 184         0,
 185         0,
 186         0,
 187         },
 188
 189 /* Cipher 02 */
 190         {
 191         1,
 192         SSL3_TXT_RSA_NULL_SHA,
 193         SSL3_CK_RSA_NULL_SHA,
 194         SSL_kRSA,
 195         SSL_aRSA,
 196         SSL_eNULL,
 197         SSL_SHA1,
 198         SSL_SSLV3,
 199         SSL_NOT_EXP|SSL_STRONG_NONE,
 200         0,
 201         0,
 202         0,
 203         },
 204
 205 /* Cipher 03 */
 206         {
 207         1,
 208         SSL3_TXT_RSA_RC4_40_MD5,
 209         SSL3_CK_RSA_RC4_40_MD5,
 210         SSL_kRSA,
 211         SSL_aRSA,
 212         SSL_RC4,
 213         SSL_MD5,
 214         SSL_SSLV3,
 215         SSL_EXPORT|SSL_EXP40,
 216         0,
 217         40,
 218         128,
 219         },
 220
 221 /* Cipher 04 */
 222         {
 223         1,
 224         SSL3_TXT_RSA_RC4_128_MD5,
 225         SSL3_CK_RSA_RC4_128_MD5,
 226         SSL_kRSA,
 227         SSL_aRSA,
 228         SSL_RC4,
 229         SSL_MD5,
 230         SSL_SSLV3,
 231         SSL_NOT_EXP|SSL_MEDIUM,
 232         0,
 233         128,
 234         128,
 235         },
 236
 237 /* Cipher 05 */
 238         {
 239         1,
 240         SSL3_TXT_RSA_RC4_128_SHA,
 241         SSL3_CK_RSA_RC4_128_SHA,
 242         SSL_kRSA,
 243         SSL_aRSA,
 244         SSL_RC4,
 245         SSL_SHA1,
 246         SSL_SSLV3,
 247         SSL_NOT_EXP|SSL_MEDIUM,
 248         0,
 249         128,
 250         128,
 251         },
 252
 253 /* Cipher 06 */
 254         {
 255         1,
 256         SSL3_TXT_RSA_RC2_40_MD5,
 257         SSL3_CK_RSA_RC2_40_MD5,
 258         SSL_kRSA,
 259         SSL_aRSA,
 260         SSL_RC2,
 261         SSL_MD5,
 262         SSL_SSLV3,
 263         SSL_EXPORT|SSL_EXP40,
 264         0,
 265         40,
 266         128,
 267         },
 268
 269 /* Cipher 07 */
 270 #ifndef OPENSSL_NO_IDEA
 271         {
 272         1,
 273         SSL3_TXT_RSA_IDEA_128_SHA,
 274         SSL3_CK_RSA_IDEA_128_SHA,
 275         SSL_kRSA,
 276         SSL_aRSA,
 277         SSL_IDEA,
 278         SSL_SHA1,
 279         SSL_SSLV3,
 280         SSL_NOT_EXP|SSL_MEDIUM,
 281         0,
 282         128,
 283         128,
 284         },
 285 #endif
 286
 287 /* Cipher 08 */
 288         {
 289         1,
 290         SSL3_TXT_RSA_DES_40_CBC_SHA,
 291         SSL3_CK_RSA_DES_40_CBC_SHA,
 292         SSL_kRSA,
 293         SSL_aRSA,
 294         SSL_DES,
 295         SSL_SHA1,
 296         SSL_SSLV3,
 297         SSL_EXPORT|SSL_EXP40,
 298         0,
 299         40,
 300         56,
 301         },
 302
 303 /* Cipher 09 */
 304         {
 305         1,
 306         SSL3_TXT_RSA_DES_64_CBC_SHA,
 307         SSL3_CK_RSA_DES_64_CBC_SHA,
 308         SSL_kRSA,
 309         SSL_aRSA,
 310         SSL_DES,
 311         SSL_SHA1,
 312         SSL_SSLV3,
 313         SSL_NOT_EXP|SSL_LOW,
 314         0,
 315         56,
 316         56,
 317         },
 318
 319 /* Cipher 0A */
 320         {
 321         1,
 322         SSL3_TXT_RSA_DES_192_CBC3_SHA,
 323         SSL3_CK_RSA_DES_192_CBC3_SHA,
 324         SSL_kRSA,
 325         SSL_aRSA,
 326         SSL_3DES,
 327         SSL_SHA1,
 328         SSL_SSLV3,
 329         SSL_NOT_EXP|SSL_HIGH,
 330         0,
 331         168,
 332         168,
 333         },
 334
 335 /* The DH ciphers */
 336 /* Cipher 0B */
 337         {
 338         0,
 339         SSL3_TXT_DH_DSS_DES_40_CBC_SHA,
 340         SSL3_CK_DH_DSS_DES_40_CBC_SHA,
 341         SSL_kDHd,
 342         SSL_aDH,
 343         SSL_DES,
 344         SSL_SHA1,
 345         SSL_SSLV3,
 346         SSL_EXPORT|SSL_EXP40,
 347         0,
 348         40,
 349         56,
 350         },
 351
 352 /* Cipher 0C */
 353         {
 354         0, /* not implemented (non-ephemeral DH) */
 355         SSL3_TXT_DH_DSS_DES_64_CBC_SHA,
 356         SSL3_CK_DH_DSS_DES_64_CBC_SHA,
 357         SSL_kDHd,
 358         SSL_aDH,
 359         SSL_DES,
 360         SSL_SHA1,
 361         SSL_SSLV3,
 362         SSL_NOT_EXP|SSL_LOW,
 363         0,
 364         56,
 365         56,
 366         },
 367
 368 /* Cipher 0D */
 369         {
 370         0, /* not implemented (non-ephemeral DH) */
 371         SSL3_TXT_DH_DSS_DES_192_CBC3_SHA,
 372         SSL3_CK_DH_DSS_DES_192_CBC3_SHA,
 373         SSL_kDHd,
 374         SSL_aDH,
 375         SSL_3DES,
 376         SSL_SHA1,
 377         SSL_SSLV3,
 378         SSL_NOT_EXP|SSL_HIGH,
 379         0,
 380         168,
 381         168,
 382         },
 383
 384 /* Cipher 0E */
 385         {
 386         0, /* not implemented (non-ephemeral DH) */
 387         SSL3_TXT_DH_RSA_DES_40_CBC_SHA,
 388         SSL3_CK_DH_RSA_DES_40_CBC_SHA,
 389         SSL_kDHr,
 390         SSL_aDH,
 391         SSL_DES,
 392         SSL_SHA1,
 393         SSL_SSLV3,
 394         SSL_EXPORT|SSL_EXP40,
 395         0,
 396         40,
 397         56,
 398         },
 399
 400 /* Cipher 0F */
 401         {
 402         0, /* not implemented (non-ephemeral DH) */
 403         SSL3_TXT_DH_RSA_DES_64_CBC_SHA,
 404         SSL3_CK_DH_RSA_DES_64_CBC_SHA,
 405         SSL_kDHr,
 406         SSL_aDH,
 407         SSL_DES,
 408         SSL_SHA1,
 409         SSL_SSLV3,
 410         SSL_NOT_EXP|SSL_LOW,
 411         0,
 412         56,
 413         56,
 414         },
 415
 416 /* Cipher 10 */
 417         {
 418         0, /* not implemented (non-ephemeral DH) */
 419         SSL3_TXT_DH_RSA_DES_192_CBC3_SHA,
 420         SSL3_CK_DH_RSA_DES_192_CBC3_SHA,
 421         SSL_kDHr,
 422         SSL_aDH,
 423         SSL_3DES,
 424         SSL_SHA1,
 425         SSL_SSLV3,
 426         SSL_NOT_EXP|SSL_HIGH,
 427         0,
 428         168,
 429         168,
 430         },
 431
 432 /* The Ephemeral DH ciphers */
 433 /* Cipher 11 */
 434         {
 435         1,
 436         SSL3_TXT_EDH_DSS_DES_40_CBC_SHA,
 437         SSL3_CK_EDH_DSS_DES_40_CBC_SHA,
 438         SSL_kEDH,
 439         SSL_aDSS,
 440         SSL_DES,
 441         SSL_SHA1,
 442         SSL_SSLV3,
 443         SSL_EXPORT|SSL_EXP40,
 444         0,
 445         40,
 446         56,
 447         },
 448
 449 /* Cipher 12 */
 450         {
 451         1,
 452         SSL3_TXT_EDH_DSS_DES_64_CBC_SHA,
 453         SSL3_CK_EDH_DSS_DES_64_CBC_SHA,
 454         SSL_kEDH,
 455         SSL_aDSS,
 456         SSL_DES,
 457         SSL_SHA1,
 458         SSL_SSLV3,
 459         SSL_NOT_EXP|SSL_LOW,
 460         0,
 461         56,
 462         56,
 463         },
 464
 465 /* Cipher 13 */
 466         {
 467         1,
 468         SSL3_TXT_EDH_DSS_DES_192_CBC3_SHA,
 469         SSL3_CK_EDH_DSS_DES_192_CBC3_SHA,
 470         SSL_kEDH,
 471         SSL_aDSS,
 472         SSL_3DES,
 473         SSL_SHA1,
 474         SSL_SSLV3,
 475         SSL_NOT_EXP|SSL_HIGH,
 476         0,
 477         168,
 478         168,
 479         },
 480
 481 /* Cipher 14 */
 482         {
 483         1,
 484         SSL3_TXT_EDH_RSA_DES_40_CBC_SHA,
 485         SSL3_CK_EDH_RSA_DES_40_CBC_SHA,
 486         SSL_kEDH,
 487         SSL_aRSA,
 488         SSL_DES,
 489         SSL_SHA1,
 490         SSL_SSLV3,
 491         SSL_EXPORT|SSL_EXP40,
 492         0,
 493         40,
 494         56,
 495         },
 496
 497 /* Cipher 15 */
 498         {
 499         1,
 500         SSL3_TXT_EDH_RSA_DES_64_CBC_SHA,
 501         SSL3_CK_EDH_RSA_DES_64_CBC_SHA,
 502         SSL_kEDH,
 503         SSL_aRSA,
 504         SSL_DES,
 505         SSL_SHA1,
 506         SSL_SSLV3,
 507         SSL_NOT_EXP|SSL_LOW,
 508         0,
 509         56,
 510         56,
 511         },
 512
 513 /* Cipher 16 */
 514         {
 515         1,
 516         SSL3_TXT_EDH_RSA_DES_192_CBC3_SHA,
 517         SSL3_CK_EDH_RSA_DES_192_CBC3_SHA,
 518         SSL_kEDH,
 519         SSL_aRSA,
 520         SSL_3DES,
 521         SSL_SHA1,
 522         SSL_SSLV3,
 523         SSL_NOT_EXP|SSL_HIGH,
 524         0,
 525         168,
 526         168,
 527         },
 528
 529 /* Cipher 17 */
 530         {
 531         1,
 532         SSL3_TXT_ADH_RC4_40_MD5,
 533         SSL3_CK_ADH_RC4_40_MD5,
 534         SSL_kEDH,
 535         SSL_aNULL,
 536         SSL_RC4,
 537         SSL_MD5,
 538         SSL_SSLV3,
 539         SSL_EXPORT|SSL_EXP40,
 540         0,
 541         40,
 542         128,
 543         },
 544
 545 /* Cipher 18 */
 546         {
 547         1,
 548         SSL3_TXT_ADH_RC4_128_MD5,
 549         SSL3_CK_ADH_RC4_128_MD5,
 550         SSL_kEDH,
 551         SSL_aNULL,
 552         SSL_RC4,
 553         SSL_MD5,
 554         SSL_SSLV3,
 555         SSL_NOT_EXP|SSL_MEDIUM,
 556         0,
 557         128,
 558         128,
 559         },
 560
 561 /* Cipher 19 */
 562         {
 563         1,
 564         SSL3_TXT_ADH_DES_40_CBC_SHA,
 565         SSL3_CK_ADH_DES_40_CBC_SHA,
 566         SSL_kEDH,
 567         SSL_aNULL,
 568         SSL_DES,
 569         SSL_SHA1,
 570         SSL_SSLV3,
 571         SSL_EXPORT|SSL_EXP40,
 572         0,
 573         40,
 574         128,
 575         },
 576
 577 /* Cipher 1A */
 578         {
 579         1,
 580         SSL3_TXT_ADH_DES_64_CBC_SHA,
 581         SSL3_CK_ADH_DES_64_CBC_SHA,
 582         SSL_kEDH,
 583         SSL_aNULL,
 584         SSL_DES,
 585         SSL_SHA1,
 586         SSL_SSLV3,
 587         SSL_NOT_EXP|SSL_LOW,
 588         0,
 589         56,
 590         56,
 591         },
 592
 593 /* Cipher 1B */
 594         {
 595         1,
 596         SSL3_TXT_ADH_DES_192_CBC_SHA,
 597         SSL3_CK_ADH_DES_192_CBC_SHA,
 598         SSL_kEDH,
 599         SSL_aNULL,
 600         SSL_3DES,
 601         SSL_SHA1,
 602         SSL_SSLV3,
 603         SSL_NOT_EXP|SSL_HIGH,
 604         0,
 605         168,
 606         168,
 607         },
 608
 609 /* Fortezza ciphersuite from SSL 3.0 spec */
 610 #if 0
 611 /* Cipher 1C */
 612         {
 613         0,
 614         SSL3_TXT_FZA_DMS_NULL_SHA,
 615         SSL3_CK_FZA_DMS_NULL_SHA,
 616         SSL_kFZA,
 617         SSL_aFZA,
 618         SSL_eNULL,
 619         SSL_SHA1,
 620         SSL_SSLV3,
 621         SSL_NOT_EXP|SSL_STRONG_NONE,
 622         0,
 623         0,
 624         0,
 625         },
 626
 627 /* Cipher 1D */
 628         {
 629         0,
 630         SSL3_TXT_FZA_DMS_FZA_SHA,
 631         SSL3_CK_FZA_DMS_FZA_SHA,
 632         SSL_kFZA,
 633         SSL_aFZA,
 634         SSL_eFZA,
 635         SSL_SHA1,
 636         SSL_SSLV3,
 637         SSL_NOT_EXP|SSL_STRONG_NONE,
 638         0,
 639         0,
 640         0,
 641         },
 642
 643 /* Cipher 1E */
 644         {
 645         0,
 646         SSL3_TXT_FZA_DMS_RC4_SHA,
 647         SSL3_CK_FZA_DMS_RC4_SHA,
 648         SSL_kFZA,
 649         SSL_aFZA,
 650         SSL_RC4,
 651         SSL_SHA1,
 652         SSL_SSLV3,
 653         SSL_NOT_EXP|SSL_MEDIUM,
 654         0,
 655         128,
 656         128,
 657         },
 658 #endif
 659
 660 #ifndef OPENSSL_NO_KRB5
 661 /* The Kerberos ciphers*/
 662 /* Cipher 1E */
 663         {
 664         1,
 665         SSL3_TXT_KRB5_DES_64_CBC_SHA,
 666         SSL3_CK_KRB5_DES_64_CBC_SHA,
 667         SSL_kKRB5,
 668         SSL_aKRB5,
 669         SSL_DES,
 670         SSL_SHA1,
 671         SSL_SSLV3,
 672         SSL_NOT_EXP|SSL_LOW,
 673         0,
 674         56,
 675         56,
 676         },
 677
 678 /* Cipher 1F */
 679         {
 680         1,
 681         SSL3_TXT_KRB5_DES_192_CBC3_SHA,
 682         SSL3_CK_KRB5_DES_192_CBC3_SHA,
 683         SSL_kKRB5,
 684         SSL_aKRB5,
 685         SSL_3DES,
 686         SSL_SHA1,
 687         SSL_SSLV3,
 688         SSL_NOT_EXP|SSL_HIGH,
 689         0,
 690         168,
 691         168,
 692         },
 693
 694 /* Cipher 20 */
 695         {
 696         1,
 697         SSL3_TXT_KRB5_RC4_128_SHA,
 698         SSL3_CK_KRB5_RC4_128_SHA,
 699         SSL_kKRB5,
 700         SSL_aKRB5,
 701         SSL_RC4,
 702         SSL_SHA1,
 703         SSL_SSLV3,
 704         SSL_NOT_EXP|SSL_MEDIUM,
 705         0,
 706         128,
 707         128,
 708         },
 709
 710 /* Cipher 21 */
 711         {
 712         1,
 713         SSL3_TXT_KRB5_IDEA_128_CBC_SHA,
 714         SSL3_CK_KRB5_IDEA_128_CBC_SHA,
 715         SSL_kKRB5,
 716         SSL_aKRB5,
 717         SSL_IDEA,
 718         SSL_SHA1,
 719         SSL_SSLV3,
 720         SSL_NOT_EXP|SSL_MEDIUM,
 721         0,
 722         128,
 723         128,
 724         },
 725
 726 /* Cipher 22 */
 727         {
 728         1,
 729         SSL3_TXT_KRB5_DES_64_CBC_MD5,
 730         SSL3_CK_KRB5_DES_64_CBC_MD5,
 731         SSL_kKRB5,
 732         SSL_aKRB5,
 733         SSL_DES,
 734         SSL_MD5,
 735         SSL_SSLV3,
 736         SSL_NOT_EXP|SSL_LOW,
 737         0,
 738         56,
 739         56,
 740         },
 741
 742 /* Cipher 23 */
 743         {
 744         1,
 745         SSL3_TXT_KRB5_DES_192_CBC3_MD5,
 746         SSL3_CK_KRB5_DES_192_CBC3_MD5,
 747         SSL_kKRB5,
 748         SSL_aKRB5,
 749         SSL_3DES,
 750         SSL_MD5,
 751         SSL_SSLV3,
 752         SSL_NOT_EXP|SSL_HIGH,
 753         0,
 754         168,
 755         168,
 756         },
 757
 758 /* Cipher 24 */
 759         {
 760         1,
 761         SSL3_TXT_KRB5_RC4_128_MD5,
 762         SSL3_CK_KRB5_RC4_128_MD5,
 763         SSL_kKRB5,
 764         SSL_aKRB5,
 765         SSL_RC4,
 766         SSL_MD5,
 767         SSL_SSLV3,
 768         SSL_NOT_EXP|SSL_MEDIUM,
 769         0,
 770         128,
 771         128,
 772         },
 773
 774 /* Cipher 25 */
 775         {
 776         1,
 777         SSL3_TXT_KRB5_IDEA_128_CBC_MD5,
 778         SSL3_CK_KRB5_IDEA_128_CBC_MD5,
 779         SSL_kKRB5,
 780         SSL_aKRB5,
 781         SSL_IDEA,
 782         SSL_MD5,
 783         SSL_SSLV3,
 784         SSL_NOT_EXP|SSL_MEDIUM,
 785         0,
 786         128,
 787         128,
 788         },
 789
 790 /* Cipher 26 */
 791         {
 792         1,
 793         SSL3_TXT_KRB5_DES_40_CBC_SHA,
 794         SSL3_CK_KRB5_DES_40_CBC_SHA,
 795         SSL_kKRB5,
 796         SSL_aKRB5,
 797         SSL_DES,
 798         SSL_SHA1,
 799         SSL_SSLV3,
 800         SSL_EXPORT|SSL_EXP40,
 801         0,
 802         40,
 803         56,
 804         },
 805
 806 /* Cipher 27 */
 807         {
 808         1,
 809         SSL3_TXT_KRB5_RC2_40_CBC_SHA,
 810         SSL3_CK_KRB5_RC2_40_CBC_SHA,
 811         SSL_kKRB5,
 812         SSL_aKRB5,
 813         SSL_RC2,
 814         SSL_SHA1,
 815         SSL_SSLV3,
 816         SSL_EXPORT|SSL_EXP40,
 817         0,
 818         40,
 819         128,
 820         },
 821
 822 /* Cipher 28 */
 823         {
 824         1,
 825         SSL3_TXT_KRB5_RC4_40_SHA,
 826         SSL3_CK_KRB5_RC4_40_SHA,
 827         SSL_kKRB5,
 828         SSL_aKRB5,
 829         SSL_RC4,
 830         SSL_SHA1,
 831         SSL_SSLV3,
 832         SSL_EXPORT|SSL_EXP40,
 833         0,
 834         40,
 835         128,
 836         },
 837
 838 /* Cipher 29 */
 839         {
 840         1,
 841         SSL3_TXT_KRB5_DES_40_CBC_MD5,
 842         SSL3_CK_KRB5_DES_40_CBC_MD5,
 843         SSL_kKRB5,
 844         SSL_aKRB5,
 845         SSL_DES,
 846         SSL_MD5,
 847         SSL_SSLV3,
 848         SSL_EXPORT|SSL_EXP40,
 849         0,
 850         40,
 851         56,
 852         },
 853
 854 /* Cipher 2A */
 855         {
 856         1,
 857         SSL3_TXT_KRB5_RC2_40_CBC_MD5,
 858         SSL3_CK_KRB5_RC2_40_CBC_MD5,
 859         SSL_kKRB5,
 860         SSL_aKRB5,
 861         SSL_RC2,
 862         SSL_MD5,
 863         SSL_SSLV3,
 864         SSL_EXPORT|SSL_EXP40,
 865         0,
 866         40,
 867         128,
 868         },
 869
 870 /* Cipher 2B */
 871         {
 872         1,
 873         SSL3_TXT_KRB5_RC4_40_MD5,
 874         SSL3_CK_KRB5_RC4_40_MD5,
 875         SSL_kKRB5,
 876         SSL_aKRB5,
 877         SSL_RC4,
 878         SSL_MD5,
 879         SSL_SSLV3,
 880         SSL_EXPORT|SSL_EXP40,
 881         0,
 882         40,
 883         128,
 884         },
 885 #endif  /* OPENSSL_NO_KRB5 */
 886
 887 /* New AES ciphersuites */
 888 /* Cipher 2F */
 889         {
 890         1,
 891         TLS1_TXT_RSA_WITH_AES_128_SHA,
 892         TLS1_CK_RSA_WITH_AES_128_SHA,
 893         SSL_kRSA,
 894         SSL_aRSA,
 895         SSL_AES128,
 896         SSL_SHA1,
 897         SSL_TLSV1,
 898         SSL_NOT_EXP|SSL_HIGH,
 899         0,
 900         128,
 901         128,
 902         },
 903 /* Cipher 30 */
 904         {
 905         0,
 906         TLS1_TXT_DH_DSS_WITH_AES_128_SHA,
 907         TLS1_CK_DH_DSS_WITH_AES_128_SHA,
 908         SSL_kDHd,
 909         SSL_aDH,
 910         SSL_AES128,
 911         SSL_SHA1,
 912         SSL_TLSV1,
 913         SSL_NOT_EXP|SSL_HIGH,
 914         0,
 915         128,
 916         128,
 917         },
 918 /* Cipher 31 */
 919         {
 920         0,
 921         TLS1_TXT_DH_RSA_WITH_AES_128_SHA,
 922         TLS1_CK_DH_RSA_WITH_AES_128_SHA,
 923         SSL_kDHr,
 924         SSL_aDH,
 925         SSL_AES128,
 926         SSL_SHA1,
 927         SSL_TLSV1,
 928         SSL_NOT_EXP|SSL_HIGH,
 929         0,
 930         128,
 931         128,
 932         },
 933 /* Cipher 32 */
 934         {
 935         1,
 936         TLS1_TXT_DHE_DSS_WITH_AES_128_SHA,
 937         TLS1_CK_DHE_DSS_WITH_AES_128_SHA,
 938         SSL_kEDH,
 939         SSL_aDSS,
 940         SSL_AES128,
 941         SSL_SHA1,
 942         SSL_TLSV1,
 943         SSL_NOT_EXP|SSL_HIGH,
 944         0,
 945         128,
 946         128,
 947         },
 948 /* Cipher 33 */
 949         {
 950         1,
 951         TLS1_TXT_DHE_RSA_WITH_AES_128_SHA,
 952         TLS1_CK_DHE_RSA_WITH_AES_128_SHA,
 953         SSL_kEDH,
 954         SSL_aRSA,
 955         SSL_AES128,
 956         SSL_SHA1,
 957         SSL_TLSV1,
 958         SSL_NOT_EXP|SSL_HIGH,
 959         0,
 960         128,
 961         128,
 962         },
 963 /* Cipher 34 */
 964         {
 965         1,
 966         TLS1_TXT_ADH_WITH_AES_128_SHA,
 967         TLS1_CK_ADH_WITH_AES_128_SHA,
 968         SSL_kEDH,
 969         SSL_aNULL,
 970         SSL_AES128,
 971         SSL_SHA1,
 972         SSL_TLSV1,
 973         SSL_NOT_EXP|SSL_HIGH,
 974         0,
 975         128,
 976         128,
 977         },
 978
 979 /* Cipher 35 */
 980         {
 981         1,
 982         TLS1_TXT_RSA_WITH_AES_256_SHA,
 983         TLS1_CK_RSA_WITH_AES_256_SHA,
 984         SSL_kRSA,
 985         SSL_aRSA,
 986         SSL_AES256,
 987         SSL_SHA1,
 988         SSL_TLSV1,
 989         SSL_NOT_EXP|SSL_HIGH,
 990         0,
 991         256,
 992         256,
 993         },
 994 /* Cipher 36 */
 995         {
 996         0,
 997         TLS1_TXT_DH_DSS_WITH_AES_256_SHA,
 998         TLS1_CK_DH_DSS_WITH_AES_256_SHA,
 999         SSL_kDHd,
1000         SSL_aDH,
1001         SSL_AES256,
1002         SSL_SHA1,
1003         SSL_TLSV1,
1004         SSL_NOT_EXP|SSL_HIGH,
1005         0,
1006         256,
1007         256,
1008         },
1009
1010 /* Cipher 37 */
1011         {
1012         0, /* not implemented (non-ephemeral DH) */
1013         TLS1_TXT_DH_RSA_WITH_AES_256_SHA,
1014         TLS1_CK_DH_RSA_WITH_AES_256_SHA,
1015         SSL_kDHr,
1016         SSL_aDH,
1017         SSL_AES256,
1018         SSL_SHA1,
1019         SSL_TLSV1,
1020         SSL_NOT_EXP|SSL_HIGH,
1021         0,
1022         256,
1023         256,
1024         },
1025
1026 /* Cipher 38 */
1027         {
1028         1,
1029         TLS1_TXT_DHE_DSS_WITH_AES_256_SHA,
1030         TLS1_CK_DHE_DSS_WITH_AES_256_SHA,
1031         SSL_kEDH,
1032         SSL_aDSS,
1033         SSL_AES256,
1034         SSL_SHA1,
1035         SSL_TLSV1,
1036         SSL_NOT_EXP|SSL_HIGH,
1037         0,
1038         256,
1039         256,
1040         },
1041
1042 /* Cipher 39 */
1043         {
1044         1,
1045         TLS1_TXT_DHE_RSA_WITH_AES_256_SHA,
1046         TLS1_CK_DHE_RSA_WITH_AES_256_SHA,
1047         SSL_kEDH,
1048         SSL_aRSA,
1049         SSL_AES256,
1050         SSL_SHA1,
1051         SSL_TLSV1,
1052         SSL_NOT_EXP|SSL_HIGH,
1053         0,
1054         256,
1055         256,
1056         },
1057
1058         /* Cipher 3A */
1059         {
1060         1,
1061         TLS1_TXT_ADH_WITH_AES_256_SHA,
1062         TLS1_CK_ADH_WITH_AES_256_SHA,
1063         SSL_kEDH,
1064         SSL_aNULL,
1065         SSL_AES256,
1066         SSL_SHA1,
1067         SSL_TLSV1,
1068         SSL_NOT_EXP|SSL_HIGH,
1069         0,
1070         256,
1071         256,
1072         },
1073
1074 #ifndef OPENSSL_NO_CAMELLIA
1075         /* Camellia ciphersuites from RFC4132 (128-bit portion) */
1076
1077         /* Cipher 41 */
1078         {
1079         1,
1080         TLS1_TXT_RSA_WITH_CAMELLIA_128_CBC_SHA,
1081         TLS1_CK_RSA_WITH_CAMELLIA_128_CBC_SHA,
1082         SSL_kRSA,
1083         SSL_aRSA,
1084         SSL_CAMELLIA128,
1085         SSL_SHA1,
1086         SSL_TLSV1,
1087         SSL_NOT_EXP|SSL_HIGH,
1088         0,
1089         128,
1090         128,
1091         },
1092
1093         /* Cipher 42 */
1094         {
1095         0, /* not implemented (non-ephemeral DH) */
1096         TLS1_TXT_DH_DSS_WITH_CAMELLIA_128_CBC_SHA,
1097         TLS1_CK_DH_DSS_WITH_CAMELLIA_128_CBC_SHA,
1098         SSL_kDHd,
1099         SSL_aDH,
1100         SSL_CAMELLIA128,
1101         SSL_SHA1,
1102         SSL_TLSV1,
1103         SSL_NOT_EXP|SSL_HIGH,
1104         0,
1105         128,
1106         128,
1107         },
1108
1109         /* Cipher 43 */
1110         {
1111         0, /* not implemented (non-ephemeral DH) */
1112         TLS1_TXT_DH_RSA_WITH_CAMELLIA_128_CBC_SHA,
1113         TLS1_CK_DH_RSA_WITH_CAMELLIA_128_CBC_SHA,
1114         SSL_kDHr,
1115         SSL_aDH,
1116         SSL_CAMELLIA128,
1117         SSL_SHA1,
1118         SSL_TLSV1,
1119         SSL_NOT_EXP|SSL_HIGH,
1120         0,
1121         128,
1122         128,
1123         },
1124
1125         /* Cipher 44 */
1126         {
1127         1,
1128         TLS1_TXT_DHE_DSS_WITH_CAMELLIA_128_CBC_SHA,
1129         TLS1_CK_DHE_DSS_WITH_CAMELLIA_128_CBC_SHA,
1130         SSL_kEDH,
1131         SSL_aDSS,
1132         SSL_CAMELLIA128,
1133         SSL_SHA1,
1134         SSL_TLSV1,
1135         SSL_NOT_EXP|SSL_HIGH,
1136         0,
1137         128,
1138         128,
1139         },
1140
1141         /* Cipher 45 */
1142         {
1143         1,
1144         TLS1_TXT_DHE_RSA_WITH_CAMELLIA_128_CBC_SHA,
1145         TLS1_CK_DHE_RSA_WITH_CAMELLIA_128_CBC_SHA,
1146         SSL_kEDH,
1147         SSL_aRSA,
1148         SSL_CAMELLIA128,
1149         SSL_SHA1,
1150         SSL_TLSV1,
1151         SSL_NOT_EXP|SSL_HIGH,
1152         0,
1153         128,
1154         128,
1155         },
1156
1157         /* Cipher 46 */
1158         {
1159         1,
1160         TLS1_TXT_ADH_WITH_CAMELLIA_128_CBC_SHA,
1161         TLS1_CK_ADH_WITH_CAMELLIA_128_CBC_SHA,
1162         SSL_kEDH,
1163         SSL_aNULL,
1164         SSL_CAMELLIA128,
1165         SSL_SHA1,
1166         SSL_TLSV1,
1167         SSL_NOT_EXP|SSL_HIGH,
1168         0,
1169         128,
1170         128,
1171         },
1172 #endif /* OPENSSL_NO_CAMELLIA */
1173
1174 #if TLS1_ALLOW_EXPERIMENTAL_CIPHERSUITES
1175         /* New TLS Export CipherSuites from expired ID */
1176 #if 0
1177         /* Cipher 60 */
1178         {
1179         1,
1180         TLS1_TXT_RSA_EXPORT1024_WITH_RC4_56_MD5,
1181         TLS1_CK_RSA_EXPORT1024_WITH_RC4_56_MD5,
1182         SSL_kRSA,
1183         SSL_aRSA,
1184         SSL_RC4,
1185         SSL_MD5,
1186         SSL_TLSV1,
1187         SSL_EXPORT|SSL_EXP56,
1188         0,
1189         56,
1190         128,
1191         },
1192
1193         /* Cipher 61 */
1194         {
1195         1,
1196         TLS1_TXT_RSA_EXPORT1024_WITH_RC2_CBC_56_MD5,
1197         TLS1_CK_RSA_EXPORT1024_WITH_RC2_CBC_56_MD5,
1198         SSL_kRSA,
1199         SSL_aRSA,
1200         SSL_RC2,
1201         SSL_MD5,
1202         SSL_TLSV1,
1203         SSL_EXPORT|SSL_EXP56,
1204         0,
1205         56,
1206         128,
1207         },
1208 #endif
1209
1210         /* Cipher 62 */
1211         {
1212         1,
1213         TLS1_TXT_RSA_EXPORT1024_WITH_DES_CBC_SHA,
1214         TLS1_CK_RSA_EXPORT1024_WITH_DES_CBC_SHA,
1215         SSL_kRSA,
1216         SSL_aRSA,
1217         SSL_DES,
1218         SSL_SHA1,
1219         SSL_TLSV1,
1220         SSL_EXPORT|SSL_EXP56,
1221         0,
1222         56,
1223         56,
1224         },
1225
1226         /* Cipher 63 */
1227         {
1228         1,
1229         TLS1_TXT_DHE_DSS_EXPORT1024_WITH_DES_CBC_SHA,
1230         TLS1_CK_DHE_DSS_EXPORT1024_WITH_DES_CBC_SHA,
1231         SSL_kEDH,
1232         SSL_aDSS,
1233         SSL_DES,
1234         SSL_SHA1,
1235         SSL_TLSV1,
1236         SSL_EXPORT|SSL_EXP56,
1237         0,
1238         56,
1239         56,
1240         },
1241
1242         /* Cipher 64 */
1243         {
1244         1,
1245         TLS1_TXT_RSA_EXPORT1024_WITH_RC4_56_SHA,
1246         TLS1_CK_RSA_EXPORT1024_WITH_RC4_56_SHA,
1247         SSL_kRSA,
1248         SSL_aRSA,
1249         SSL_RC4,
1250         SSL_SHA1,
1251         SSL_TLSV1,
1252         SSL_EXPORT|SSL_EXP56,
1253         0,
1254         56,
1255         128,
1256         },
1257
1258         /* Cipher 65 */
1259         {
1260         1,
1261         TLS1_TXT_DHE_DSS_EXPORT1024_WITH_RC4_56_SHA,
1262         TLS1_CK_DHE_DSS_EXPORT1024_WITH_RC4_56_SHA,
1263         SSL_kEDH,
1264         SSL_aDSS,
1265         SSL_RC4,
1266         SSL_SHA1,
1267         SSL_TLSV1,
1268         SSL_EXPORT|SSL_EXP56,
1269         0,
1270         56,
1271         128,
1272         },
1273
1274         /* Cipher 66 */
1275         {
1276         1,
1277         TLS1_TXT_DHE_DSS_WITH_RC4_128_SHA,
1278         TLS1_CK_DHE_DSS_WITH_RC4_128_SHA,
1279         SSL_kEDH,
1280         SSL_aDSS,
1281         SSL_RC4,
1282         SSL_SHA1,
1283         SSL_TLSV1,
1284         SSL_NOT_EXP|SSL_MEDIUM,
1285         0,
1286         128,
1287         128,
1288         },
1289 #endif
1290
1291 #ifndef OPENSSL_NO_CAMELLIA
1292         /* Camellia ciphersuites from RFC4132 (256-bit portion) */
1293
1294         /* Cipher 84 */
1295         {
1296         1,
1297         TLS1_TXT_RSA_WITH_CAMELLIA_256_CBC_SHA,
1298         TLS1_CK_RSA_WITH_CAMELLIA_256_CBC_SHA,
1299         SSL_kRSA,
1300         SSL_aRSA,
1301         SSL_CAMELLIA256,
1302         SSL_SHA1,
1303         SSL_TLSV1,
1304         SSL_NOT_EXP|SSL_HIGH,
1305         0,
1306         256,
1307         256,
1308         },
1309         /* Cipher 85 */
1310         {
1311         0, /* not implemented (non-ephemeral DH) */
1312         TLS1_TXT_DH_DSS_WITH_CAMELLIA_256_CBC_SHA,
1313         TLS1_CK_DH_DSS_WITH_CAMELLIA_256_CBC_SHA,
1314         SSL_kDHd,
1315         SSL_aDH,
1316         SSL_CAMELLIA256,
1317         SSL_SHA1,
1318         SSL_TLSV1,
1319         SSL_NOT_EXP|SSL_HIGH,
1320         0,
1321         256,
1322         256,
1323         },
1324
1325         /* Cipher 86 */
1326         {
1327         0, /* not implemented (non-ephemeral DH) */
1328         TLS1_TXT_DH_RSA_WITH_CAMELLIA_256_CBC_SHA,
1329         TLS1_CK_DH_RSA_WITH_CAMELLIA_256_CBC_SHA,
1330         SSL_kDHr,
1331         SSL_aDH,
1332         SSL_CAMELLIA256,
1333         SSL_SHA1,
1334         SSL_TLSV1,
1335         SSL_NOT_EXP|SSL_HIGH,
1336         0,
1337         256,
1338         256,
1339         },
1340
1341         /* Cipher 87 */
1342         {
1343         1,
1344         TLS1_TXT_DHE_DSS_WITH_CAMELLIA_256_CBC_SHA,
1345         TLS1_CK_DHE_DSS_WITH_CAMELLIA_256_CBC_SHA,
1346         SSL_kEDH,
1347         SSL_aDSS,
1348         SSL_CAMELLIA256,
1349         SSL_SHA1,
1350         SSL_TLSV1,
1351         SSL_NOT_EXP|SSL_HIGH,
1352         0,
1353         256,
1354         256,
1355         },
1356
1357         /* Cipher 88 */
1358         {
1359         1,
1360         TLS1_TXT_DHE_RSA_WITH_CAMELLIA_256_CBC_SHA,
1361         TLS1_CK_DHE_RSA_WITH_CAMELLIA_256_CBC_SHA,
1362         SSL_kEDH,
1363         SSL_aRSA,
1364         SSL_CAMELLIA256,
1365         SSL_SHA1,
1366         SSL_TLSV1,
1367         SSL_NOT_EXP|SSL_HIGH,
1368         0,
1369         256,
1370         256,
1371         },
1372
1373         /* Cipher 89 */
1374         {
1375         1,
1376         TLS1_TXT_ADH_WITH_CAMELLIA_256_CBC_SHA,
1377         TLS1_CK_ADH_WITH_CAMELLIA_256_CBC_SHA,
1378         SSL_kEDH,
1379         SSL_aNULL,
1380         SSL_CAMELLIA256,
1381         SSL_SHA1,
1382         SSL_TLSV1,
1383         SSL_NOT_EXP|SSL_HIGH,
1384         0,
1385         256,
1386         256,
1387         },
1388 #endif /* OPENSSL_NO_CAMELLIA */
1389
1390 #ifndef OPENSSL_NO_PSK
1391         /* Cipher 8A */
1392         {
1393         1,
1394         TLS1_TXT_PSK_WITH_RC4_128_SHA,
1395         TLS1_CK_PSK_WITH_RC4_128_SHA,
1396         SSL_kPSK,
1397         SSL_aPSK,
1398         SSL_RC4,
1399         SSL_SHA1,
1400         SSL_TLSV1,
1401         SSL_NOT_EXP|SSL_MEDIUM,
1402         0,
1403         128,
1404         128,
1405         },
1406
1407         /* Cipher 8B */
1408         {
1409         1,
1410         TLS1_TXT_PSK_WITH_3DES_EDE_CBC_SHA,
1411         TLS1_CK_PSK_WITH_3DES_EDE_CBC_SHA,
1412         SSL_kPSK,
1413         SSL_aPSK,
1414         SSL_3DES,
1415         SSL_SHA1,
1416         SSL_TLSV1,
1417         SSL_NOT_EXP|SSL_HIGH,
1418         0,
1419         168,
1420         168,
1421         },
1422
1423         /* Cipher 8C */
1424         {
1425         1,
1426         TLS1_TXT_PSK_WITH_AES_128_CBC_SHA,
1427         TLS1_CK_PSK_WITH_AES_128_CBC_SHA,
1428         SSL_kPSK,
1429         SSL_aPSK,
1430         SSL_AES128,
1431         SSL_SHA1,
1432         SSL_TLSV1,
1433         SSL_NOT_EXP|SSL_HIGH,
1434         0,
1435         128,
1436         128,
1437         },
1438
1439         /* Cipher 8D */
1440         {
1441         1,
1442         TLS1_TXT_PSK_WITH_AES_256_CBC_SHA,
1443         TLS1_CK_PSK_WITH_AES_256_CBC_SHA,
1444         SSL_kPSK,
1445         SSL_aPSK,
1446         SSL_AES256,
1447         SSL_SHA1,
1448         SSL_TLSV1,
1449         SSL_NOT_EXP|SSL_HIGH,
1450         0,
1451         256,
1452         256,
1453         },
1454 #endif  /* OPENSSL_NO_PSK */
1455
1456 #ifndef OPENSSL_NO_ECDH
1457         /* Cipher C001 */
1458         {
1459         1,
1460         TLS1_TXT_ECDH_ECDSA_WITH_NULL_SHA,
1461         TLS1_CK_ECDH_ECDSA_WITH_NULL_SHA,
1462         SSL_kECDHe,
1463         SSL_aECDH,
1464         SSL_eNULL,
1465         SSL_SHA1,
1466         SSL_TLSV1,
1467         SSL_NOT_EXP,
1468         0,
1469         0,
1470         0,
1471         },
1472
1473         /* Cipher C002 */
1474         {
1475         1,
1476         TLS1_TXT_ECDH_ECDSA_WITH_RC4_128_SHA,
1477         TLS1_CK_ECDH_ECDSA_WITH_RC4_128_SHA,
1478         SSL_kECDHe,
1479         SSL_aECDH,
1480         SSL_RC4,
1481         SSL_SHA1,
1482         SSL_TLSV1,
1483         SSL_NOT_EXP,
1484         0,
1485         128,
1486         128,
1487         },
1488
1489         /* Cipher C003 */
1490         {
1491         1,
1492         TLS1_TXT_ECDH_ECDSA_WITH_DES_192_CBC3_SHA,
1493         TLS1_CK_ECDH_ECDSA_WITH_DES_192_CBC3_SHA,
1494         SSL_kECDHe,
1495         SSL_aECDH,
1496         SSL_3DES,
1497         SSL_SHA1,
1498         SSL_TLSV1,
1499         SSL_NOT_EXP|SSL_HIGH,
1500         0,
1501         168,
1502         168,
1503         },
1504
1505         /* Cipher C004 */
1506         {
1507         1,
1508         TLS1_TXT_ECDH_ECDSA_WITH_AES_128_CBC_SHA,
1509         TLS1_CK_ECDH_ECDSA_WITH_AES_128_CBC_SHA,
1510         SSL_kECDHe,
1511         SSL_aECDH,
1512         SSL_AES128,
1513         SSL_SHA1,
1514         SSL_TLSV1,
1515         SSL_NOT_EXP|SSL_HIGH,
1516         0,
1517         128,
1518         128,
1519         },
1520
1521         /* Cipher C005 */
1522         {
1523         1,
1524         TLS1_TXT_ECDH_ECDSA_WITH_AES_256_CBC_SHA,
1525         TLS1_CK_ECDH_ECDSA_WITH_AES_256_CBC_SHA,
1526         SSL_kECDHe,
1527         SSL_aECDH,
1528         SSL_AES256,
1529         SSL_SHA1,
1530         SSL_TLSV1,
1531         SSL_NOT_EXP|SSL_HIGH,
1532         0,
1533         256,
1534         256,
1535         },
1536
1537         /* Cipher C006 */
1538         {
1539         1,
1540         TLS1_TXT_ECDHE_ECDSA_WITH_NULL_SHA,
1541         TLS1_CK_ECDHE_ECDSA_WITH_NULL_SHA,
1542         SSL_kEECDH,
1543         SSL_aECDSA,
1544         SSL_eNULL,
1545         SSL_SHA1,
1546         SSL_TLSV1,
1547         SSL_NOT_EXP,
1548         0,
1549         0,
1550         0,
1551         },
1552
1553         /* Cipher C007 */
1554         {
1555         1,
1556         TLS1_TXT_ECDHE_ECDSA_WITH_RC4_128_SHA,
1557         TLS1_CK_ECDHE_ECDSA_WITH_RC4_128_SHA,
1558         SSL_kEECDH,
1559         SSL_aECDSA,
1560         SSL_RC4,
1561         SSL_SHA1,
1562         SSL_TLSV1,
1563         SSL_NOT_EXP,
1564         0,
1565         128,
1566         128,
1567         },
1568
1569         /* Cipher C008 */
1570         {
1571         1,
1572         TLS1_TXT_ECDHE_ECDSA_WITH_DES_192_CBC3_SHA,
1573         TLS1_CK_ECDHE_ECDSA_WITH_DES_192_CBC3_SHA,
1574         SSL_kEECDH,
1575         SSL_aECDSA,
1576         SSL_3DES,
1577         SSL_SHA1,
1578         SSL_TLSV1,
1579         SSL_NOT_EXP|SSL_HIGH,
1580         0,
1581         168,
1582         168,
1583         },
1584
1585         /* Cipher C009 */
1586         {
1587         1,
1588         TLS1_TXT_ECDHE_ECDSA_WITH_AES_128_CBC_SHA,
1589         TLS1_CK_ECDHE_ECDSA_WITH_AES_128_CBC_SHA,
1590         SSL_kEECDH,
1591         SSL_aECDSA,
1592         SSL_AES128,
1593         SSL_SHA1,
1594         SSL_TLSV1,
1595         SSL_NOT_EXP|SSL_HIGH,
1596         0,
1597         128,
1598         128,
1599         },
1600
1601         /* Cipher C00A */
1602         {
1603         1,
1604         TLS1_TXT_ECDHE_ECDSA_WITH_AES_256_CBC_SHA,
1605         TLS1_CK_ECDHE_ECDSA_WITH_AES_256_CBC_SHA,
1606         SSL_kEECDH,
1607         SSL_aECDSA,
1608         SSL_AES256,
1609         SSL_SHA1,
1610         SSL_TLSV1,
1611         SSL_NOT_EXP|SSL_HIGH,
1612         0,
1613         256,
1614         256,
1615         },
1616
1617         /* Cipher C00B */
1618         {
1619         1,
1620         TLS1_TXT_ECDH_RSA_WITH_NULL_SHA,
1621         TLS1_CK_ECDH_RSA_WITH_NULL_SHA,
1622         SSL_kECDHr,
1623         SSL_aECDH,
1624         SSL_eNULL,
1625         SSL_SHA1,
1626         SSL_TLSV1,
1627         SSL_NOT_EXP,
1628         0,
1629         0,
1630         0,
1631         },
1632
1633         /* Cipher C00C */
1634         {
1635         1,
1636         TLS1_TXT_ECDH_RSA_WITH_RC4_128_SHA,
1637         TLS1_CK_ECDH_RSA_WITH_RC4_128_SHA,
1638         SSL_kECDHr,
1639         SSL_aECDH,
1640         SSL_RC4,
1641         SSL_SHA1,
1642         SSL_TLSV1,
1643         SSL_NOT_EXP,
1644         0,
1645         128,
1646         128,
1647         },
1648
1649         /* Cipher C00D */
1650         {
1651         1,
1652         TLS1_TXT_ECDH_RSA_WITH_DES_192_CBC3_SHA,
1653         TLS1_CK_ECDH_RSA_WITH_DES_192_CBC3_SHA,
1654         SSL_kECDHr,
1655         SSL_aECDH,
1656         SSL_3DES,
1657         SSL_SHA1,
1658         SSL_TLSV1,
1659         SSL_NOT_EXP|SSL_HIGH,
1660         0,
1661         168,
1662         168,
1663         },
1664
1665         /* Cipher C00E */
1666         {
1667         1,
1668         TLS1_TXT_ECDH_RSA_WITH_AES_128_CBC_SHA,
1669         TLS1_CK_ECDH_RSA_WITH_AES_128_CBC_SHA,
1670         SSL_kECDHr,
1671         SSL_aECDH,
1672         SSL_AES128,
1673         SSL_SHA1,
1674         SSL_TLSV1,
1675         SSL_NOT_EXP|SSL_HIGH,
1676         0,
1677         128,
1678         128,
1679         },
1680
1681         /* Cipher C00F */
1682         {
1683         1,
1684         TLS1_TXT_ECDH_RSA_WITH_AES_256_CBC_SHA,
1685         TLS1_CK_ECDH_RSA_WITH_AES_256_CBC_SHA,
1686         SSL_kECDHr,
1687         SSL_aECDH,
1688         SSL_AES256,
1689         SSL_SHA1,
1690         SSL_TLSV1,
1691         SSL_NOT_EXP|SSL_HIGH,
1692         0,
1693         256,
1694         256,
1695         },
1696
1697         /* Cipher C010 */
1698         {
1699         1,
1700         TLS1_TXT_ECDHE_RSA_WITH_NULL_SHA,
1701         TLS1_CK_ECDHE_RSA_WITH_NULL_SHA,
1702         SSL_kEECDH,
1703         SSL_aRSA,
1704         SSL_eNULL,
1705         SSL_SHA1,
1706         SSL_TLSV1,
1707         SSL_NOT_EXP,
1708         0,
1709         0,
1710         0,
1711         },
1712
1713         /* Cipher C011 */
1714         {
1715         1,
1716         TLS1_TXT_ECDHE_RSA_WITH_RC4_128_SHA,
1717         TLS1_CK_ECDHE_RSA_WITH_RC4_128_SHA,
1718         SSL_kEECDH,
1719         SSL_aRSA,
1720         SSL_RC4,
1721         SSL_SHA1,
1722         SSL_TLSV1,
1723         SSL_NOT_EXP,
1724         0,
1725         128,
1726         128,
1727         },
1728
1729         /* Cipher C012 */
1730         {
1731         1,
1732         TLS1_TXT_ECDHE_RSA_WITH_DES_192_CBC3_SHA,
1733         TLS1_CK_ECDHE_RSA_WITH_DES_192_CBC3_SHA,
1734         SSL_kEECDH,
1735         SSL_aRSA,
1736         SSL_3DES,
1737         SSL_SHA1,
1738         SSL_TLSV1,
1739         SSL_NOT_EXP|SSL_HIGH,
1740         0,
1741         168,
1742         168,
1743         },
1744
1745         /* Cipher C013 */
1746         {
1747         1,
1748         TLS1_TXT_ECDHE_RSA_WITH_AES_128_CBC_SHA,
1749         TLS1_CK_ECDHE_RSA_WITH_AES_128_CBC_SHA,
1750         SSL_kEECDH,
1751         SSL_aRSA,
1752         SSL_AES128,
1753         SSL_SHA1,
1754         SSL_TLSV1,
1755         SSL_NOT_EXP|SSL_HIGH,
1756         0,
1757         128,
1758         128,
1759         },
1760
1761         /* Cipher C014 */
1762         {
1763         1,
1764         TLS1_TXT_ECDHE_RSA_WITH_AES_256_CBC_SHA,
1765         TLS1_CK_ECDHE_RSA_WITH_AES_256_CBC_SHA,
1766         SSL_kEECDH,
1767         SSL_aRSA,
1768         SSL_AES256,
1769         SSL_SHA1,
1770         SSL_TLSV1,
1771         SSL_NOT_EXP|SSL_HIGH,
1772         0,
1773         256,
1774         256,
1775         },
1776
1777         /* Cipher C015 */
1778         {
1779         1,
1780         TLS1_TXT_ECDH_anon_WITH_NULL_SHA,
1781         TLS1_CK_ECDH_anon_WITH_NULL_SHA,
1782         SSL_kEECDH,
1783         SSL_aNULL,
1784         SSL_eNULL,
1785         SSL_SHA1,
1786         SSL_TLSV1,
1787         SSL_NOT_EXP,
1788         0,
1789         0,
1790         0,
1791         },
1792
1793         /* Cipher C016 */
1794         {
1795         1,
1796         TLS1_TXT_ECDH_anon_WITH_RC4_128_SHA,
1797         TLS1_CK_ECDH_anon_WITH_RC4_128_SHA,
1798         SSL_kEECDH,
1799         SSL_aNULL,
1800         SSL_RC4,
1801         SSL_SHA1,
1802         SSL_TLSV1,
1803         SSL_NOT_EXP,
1804         0,
1805         128,
1806         128,
1807         },
1808
1809         /* Cipher C017 */
1810         {
1811         1,
1812         TLS1_TXT_ECDH_anon_WITH_DES_192_CBC3_SHA,
1813         TLS1_CK_ECDH_anon_WITH_DES_192_CBC3_SHA,
1814         SSL_kEECDH,
1815         SSL_aNULL,
1816         SSL_3DES,
1817         SSL_SHA1,
1818         SSL_TLSV1,
1819         SSL_NOT_EXP|SSL_HIGH,
1820         0,
1821         168,
1822         168,
1823         },
1824
1825         /* Cipher C018 */
1826         {
1827         1,
1828         TLS1_TXT_ECDH_anon_WITH_AES_128_CBC_SHA,
1829         TLS1_CK_ECDH_anon_WITH_AES_128_CBC_SHA,
1830         SSL_kEECDH,
1831         SSL_aNULL,
1832         SSL_AES128,
1833         SSL_SHA1,
1834         SSL_TLSV1,
1835         SSL_NOT_EXP|SSL_HIGH,
1836         0,
1837         128,
1838         128,
1839         },
1840
1841         /* Cipher C019 */
1842         {
1843         1,
1844         TLS1_TXT_ECDH_anon_WITH_AES_256_CBC_SHA,
1845         TLS1_CK_ECDH_anon_WITH_AES_256_CBC_SHA,
1846         SSL_kEECDH,
1847         SSL_aNULL,
1848         SSL_AES256,
1849         SSL_SHA1,
1850         SSL_TLSV1,
1851         SSL_NOT_EXP|SSL_HIGH,
1852         0,
1853         256,
1854         256,
1855         },
1856 #endif  /* OPENSSL_NO_ECDH */
1857
1858 #ifdef TEMP_GOST_TLS
1859 /* Cipher FF00 */
1860         {
1861         1,
1862         "GOST-MD5",
1863         0x0300ff00,
1864         SSL_kRSA,
1865         SSL_aRSA,
1866         SSL_eGOST2814789CNT,
1867         SSL_MD5,
1868         SSL_TLSV1,
1869         SSL_NOT_EXP|SSL_HIGH,
1870         0,
1871         256,
1872         256,
1873         },
1874 #endif
1875
1876 /* end of list */
1877         };
1878
1879 SSL3_ENC_METHOD SSLv3_enc_data={
1880         ssl3_enc,
1881         ssl3_mac,
1882         ssl3_setup_key_block,
1883         ssl3_generate_master_secret,
1884         ssl3_change_cipher_state,
1885         ssl3_final_finish_mac,
1886         MD5_DIGEST_LENGTH+SHA_DIGEST_LENGTH,
1887         ssl3_cert_verify_mac,
1888         SSL3_MD_CLIENT_FINISHED_CONST,4,
1889         SSL3_MD_SERVER_FINISHED_CONST,4,
1890         ssl3_alert_code,
1891         };
1892
1893 long ssl3_default_timeout(void)
1894         {
1895         /* 2 hours, the 24 hours mentioned in the SSLv3 spec
1896          * is way too long for http, the cache would over fill */
1897         return(60*60*2);
1898         }
1899
1900 int ssl3_num_ciphers(void)
1901         {
1902         return(SSL3_NUM_CIPHERS);
1903         }
1904
1905 SSL_CIPHER *ssl3_get_cipher(unsigned int u)
1906         {
1907         if (u < SSL3_NUM_CIPHERS)
1908                 return(&(ssl3_ciphers[SSL3_NUM_CIPHERS-1-u]));
1909         else
1910                 return(NULL);
1911         }
1912
1913 int ssl3_pending(const SSL *s)
1914         {
1915         if (s->rstate == SSL_ST_READ_BODY)
1916                 return 0;
1917
1918         return (s->s3->rrec.type == SSL3_RT_APPLICATION_DATA) ? s->s3->rrec.length : 0;
1919         }
1920
1921 int ssl3_new(SSL *s)
1922         {
1923         SSL3_STATE *s3;
1924
1925         if ((s3=OPENSSL_malloc(sizeof *s3)) == NULL) goto err;
1926         memset(s3,0,sizeof *s3);
1927         EVP_MD_CTX_init(&s3->finish_dgst1);
1928         EVP_MD_CTX_init(&s3->finish_dgst2);
1929         memset(s3->rrec.seq_num,0,sizeof(s3->rrec.seq_num));
1930         memset(s3->wrec.seq_num,0,sizeof(s3->wrec.seq_num));
1931
1932         s->s3=s3;
1933
1934         s->method->ssl_clear(s);
1935         return(1);
1936 err:
1937         return(0);
1938         }
1939
1940 void ssl3_free(SSL *s)
1941         {
1942         if(s == NULL)
1943             return;
1944
1945         ssl3_cleanup_key_block(s);
1946         if (s->s3->rbuf.buf != NULL)
1947                 OPENSSL_free(s->s3->rbuf.buf);
1948         if (s->s3->wbuf.buf != NULL)
1949                 OPENSSL_free(s->s3->wbuf.buf);
1950         if (s->s3->rrec.comp != NULL)
1951                 OPENSSL_free(s->s3->rrec.comp);
1952 #ifndef OPENSSL_NO_DH
1953         if (s->s3->tmp.dh != NULL)
1954                 DH_free(s->s3->tmp.dh);
1955 #endif
1956 #ifndef OPENSSL_NO_ECDH
1957         if (s->s3->tmp.ecdh != NULL)
1958                 EC_KEY_free(s->s3->tmp.ecdh);
1959 #endif
1960
1961         if (s->s3->tmp.ca_names != NULL)
1962                 sk_X509_NAME_pop_free(s->s3->tmp.ca_names,X509_NAME_free);
1963         EVP_MD_CTX_cleanup(&s->s3->finish_dgst1);
1964         EVP_MD_CTX_cleanup(&s->s3->finish_dgst2);
1965
1966         OPENSSL_cleanse(s->s3,sizeof *s->s3);
1967         OPENSSL_free(s->s3);
1968         s->s3=NULL;
1969         }
1970
1971 void ssl3_clear(SSL *s)
1972         {
1973         unsigned char *rp,*wp;
1974         size_t rlen, wlen;
1975
1976         ssl3_cleanup_key_block(s);
1977         if (s->s3->tmp.ca_names != NULL)
1978                 sk_X509_NAME_pop_free(s->s3->tmp.ca_names,X509_NAME_free);
1979
1980         if (s->s3->rrec.comp != NULL)
1981                 {
1982                 OPENSSL_free(s->s3->rrec.comp);
1983                 s->s3->rrec.comp=NULL;
1984                 }
1985 #ifndef OPENSSL_NO_DH
1986         if (s->s3->tmp.dh != NULL)
1987                 DH_free(s->s3->tmp.dh);
1988 #endif
1989 #ifndef OPENSSL_NO_ECDH
1990         if (s->s3->tmp.ecdh != NULL)
1991                 EC_KEY_free(s->s3->tmp.ecdh);
1992 #endif
1993
1994         rp = s->s3->rbuf.buf;
1995         wp = s->s3->wbuf.buf;
1996         rlen = s->s3->rbuf.len;
1997         wlen = s->s3->wbuf.len;
1998
1999         EVP_MD_CTX_cleanup(&s->s3->finish_dgst1);
2000         EVP_MD_CTX_cleanup(&s->s3->finish_dgst2);
2001
2002         memset(s->s3,0,sizeof *s->s3);
2003         s->s3->rbuf.buf = rp;
2004         s->s3->wbuf.buf = wp;
2005         s->s3->rbuf.len = rlen;
2006         s->s3->wbuf.len = wlen;
2007
2008         ssl_free_wbio_buffer(s);
2009
2010         s->packet_length=0;
2011         s->s3->renegotiate=0;
2012         s->s3->total_renegotiations=0;
2013         s->s3->num_renegotiations=0;
2014         s->s3->in_read_app_data=0;
2015         s->version=SSL3_VERSION;
2016         }
2017
2018 long ssl3_ctrl(SSL *s, int cmd, long larg, void *parg)
2019         {
2020         int ret=0;
2021
2022 #if !defined(OPENSSL_NO_DSA) || !defined(OPENSSL_NO_RSA)
2023         if (
2024 #ifndef OPENSSL_NO_RSA
2025             cmd == SSL_CTRL_SET_TMP_RSA ||
2026             cmd == SSL_CTRL_SET_TMP_RSA_CB ||
2027 #endif
2028 #ifndef OPENSSL_NO_DSA
2029             cmd == SSL_CTRL_SET_TMP_DH ||
2030             cmd == SSL_CTRL_SET_TMP_DH_CB ||
2031 #endif
2032                 0)
2033                 {
2034                 if (!ssl_cert_inst(&s->cert))
2035                         {
2036                         SSLerr(SSL_F_SSL3_CTRL, ERR_R_MALLOC_FAILURE);
2037                         return(0);
2038                         }
2039                 }
2040 #endif
2041
2042         switch (cmd)
2043                 {
2044         case SSL_CTRL_GET_SESSION_REUSED:
2045                 ret=s->hit;
2046                 break;
2047         case SSL_CTRL_GET_CLIENT_CERT_REQUEST:
2048                 break;
2049         case SSL_CTRL_GET_NUM_RENEGOTIATIONS:
2050                 ret=s->s3->num_renegotiations;
2051                 break;
2052         case SSL_CTRL_CLEAR_NUM_RENEGOTIATIONS:
2053                 ret=s->s3->num_renegotiations;
2054                 s->s3->num_renegotiations=0;
2055                 break;
2056         case SSL_CTRL_GET_TOTAL_RENEGOTIATIONS:
2057                 ret=s->s3->total_renegotiations;
2058                 break;
2059         case SSL_CTRL_GET_FLAGS:
2060                 ret=(int)(s->s3->flags);
2061                 break;
2062 #ifndef OPENSSL_NO_RSA
2063         case SSL_CTRL_NEED_TMP_RSA:
2064                 if ((s->cert != NULL) && (s->cert->rsa_tmp == NULL) &&
2065                     ((s->cert->pkeys[SSL_PKEY_RSA_ENC].privatekey == NULL) ||
2066                      (EVP_PKEY_size(s->cert->pkeys[SSL_PKEY_RSA_ENC].privatekey) > (512/8))))
2067                         ret = 1;
2068                 break;
2069         case SSL_CTRL_SET_TMP_RSA:
2070                 {
2071                         RSA *rsa = (RSA *)parg;
2072                         if (rsa == NULL)
2073                                 {
2074                                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_PASSED_NULL_PARAMETER);
2075                                 return(ret);
2076                                 }
2077                         if ((rsa = RSAPrivateKey_dup(rsa)) == NULL)
2078                                 {
2079                                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_RSA_LIB);
2080                                 return(ret);
2081                                 }
2082                         if (s->cert->rsa_tmp != NULL)
2083                                 RSA_free(s->cert->rsa_tmp);
2084                         s->cert->rsa_tmp = rsa;
2085                         ret = 1;
2086                 }
2087                 break;
2088         case SSL_CTRL_SET_TMP_RSA_CB:
2089                 {
2090                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED);
2091                 return(ret);
2092                 }
2093                 break;
2094 #endif
2095 #ifndef OPENSSL_NO_DH
2096         case SSL_CTRL_SET_TMP_DH:
2097                 {
2098                         DH *dh = (DH *)parg;
2099                         if (dh == NULL)
2100                                 {
2101                                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_PASSED_NULL_PARAMETER);
2102                                 return(ret);
2103                                 }
2104                         if ((dh = DHparams_dup(dh)) == NULL)
2105                                 {
2106                                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_DH_LIB);
2107                                 return(ret);
2108                                 }
2109                         if (!(s->options & SSL_OP_SINGLE_DH_USE))
2110                                 {
2111                                 if (!DH_generate_key(dh))
2112                                         {
2113                                         DH_free(dh);
2114                                         SSLerr(SSL_F_SSL3_CTRL, ERR_R_DH_LIB);
2115                                         return(ret);
2116                                         }
2117                                 }
2118                         if (s->cert->dh_tmp != NULL)
2119                                 DH_free(s->cert->dh_tmp);
2120                         s->cert->dh_tmp = dh;
2121                         ret = 1;
2122                 }
2123                 break;
2124         case SSL_CTRL_SET_TMP_DH_CB:
2125                 {
2126                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED);
2127                 return(ret);
2128                 }
2129                 break;
2130 #endif
2131 #ifndef OPENSSL_NO_ECDH
2132         case SSL_CTRL_SET_TMP_ECDH:
2133                 {
2134                 EC_KEY *ecdh = NULL;
2135
2136                 if (parg == NULL)
2137                         {
2138                         SSLerr(SSL_F_SSL3_CTRL, ERR_R_PASSED_NULL_PARAMETER);
2139                         return(ret);
2140                         }
2141                 if (!EC_KEY_up_ref((EC_KEY *)parg))
2142                         {
2143                         SSLerr(SSL_F_SSL3_CTRL,ERR_R_ECDH_LIB);
2144                         return(ret);
2145                         }
2146                 ecdh = (EC_KEY *)parg;
2147                 if (!(s->options & SSL_OP_SINGLE_ECDH_USE))
2148                         {
2149                         if (!EC_KEY_generate_key(ecdh))
2150                                 {
2151                                 EC_KEY_free(ecdh);
2152                                 SSLerr(SSL_F_SSL3_CTRL,ERR_R_ECDH_LIB);
2153                                 return(ret);
2154                                 }
2155                         }
2156                 if (s->cert->ecdh_tmp != NULL)
2157                         EC_KEY_free(s->cert->ecdh_tmp);
2158                 s->cert->ecdh_tmp = ecdh;
2159                 ret = 1;
2160                 }
2161                 break;
2162         case SSL_CTRL_SET_TMP_ECDH_CB:
2163                 {
2164                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED);
2165                 return(ret);
2166                 }
2167                 break;
2168 #endif /* !OPENSSL_NO_ECDH */
2169 #ifndef OPENSSL_NO_TLSEXT
2170         case SSL_CTRL_SET_TLSEXT_HOSTNAME:
2171                 if (larg == TLSEXT_NAMETYPE_host_name)
2172                         {
2173                         if (s->tlsext_hostname != NULL)
2174                                 OPENSSL_free(s->tlsext_hostname);
2175                         s->tlsext_hostname = NULL;
2176
2177                         ret = 1;
2178                         if (parg == NULL)
2179                                 break;
2180                         if (strlen((char *)parg) > TLSEXT_MAXLEN_host_name)
2181                                 {
2182                                 SSLerr(SSL_F_SSL3_CTRL, SSL_R_SSL3_EXT_INVALID_SERVERNAME);
2183                                 return 0;
2184                                 }
2185                         if ((s->tlsext_hostname = BUF_strdup((char *)parg)) == NULL)
2186                                 {
2187                                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_INTERNAL_ERROR);
2188                                 return 0;
2189                                 }
2190                         }
2191                 else
2192                         {
2193                         SSLerr(SSL_F_SSL3_CTRL, SSL_R_SSL3_EXT_INVALID_SERVERNAME_TYPE);
2194                         return 0;
2195                         }
2196                 s->options |= SSL_OP_NO_SSLv2; /* can't use extension w/ SSL 2.0 format */
2197                 break;
2198 #endif /* !OPENSSL_NO_TLSEXT */
2199         default:
2200                 break;
2201                 }
2202         return(ret);
2203         }
2204
2205 long ssl3_callback_ctrl(SSL *s, int cmd, void (*fp)(void))
2206         {
2207         int ret=0;
2208
2209 #if !defined(OPENSSL_NO_DSA) || !defined(OPENSSL_NO_RSA)
2210         if (
2211 #ifndef OPENSSL_NO_RSA
2212             cmd == SSL_CTRL_SET_TMP_RSA_CB ||
2213 #endif
2214 #ifndef OPENSSL_NO_DSA
2215             cmd == SSL_CTRL_SET_TMP_DH_CB ||
2216 #endif
2217                 0)
2218                 {
2219                 if (!ssl_cert_inst(&s->cert))
2220                         {
2221                         SSLerr(SSL_F_SSL3_CALLBACK_CTRL, ERR_R_MALLOC_FAILURE);
2222                         return(0);
2223                         }
2224                 }
2225 #endif
2226
2227         switch (cmd)
2228                 {
2229 #ifndef OPENSSL_NO_RSA
2230         case SSL_CTRL_SET_TMP_RSA_CB:
2231                 {
2232                 s->cert->rsa_tmp_cb = (RSA *(*)(SSL *, int, int))fp;
2233                 }
2234                 break;
2235 #endif
2236 #ifndef OPENSSL_NO_DH
2237         case SSL_CTRL_SET_TMP_DH_CB:
2238                 {
2239                 s->cert->dh_tmp_cb = (DH *(*)(SSL *, int, int))fp;
2240                 }
2241                 break;
2242 #endif
2243 #ifndef OPENSSL_NO_ECDH
2244         case SSL_CTRL_SET_TMP_ECDH_CB:
2245                 {
2246                 s->cert->ecdh_tmp_cb = (EC_KEY *(*)(SSL *, int, int))fp;
2247                 }
2248                 break;
2249 #endif
2250         default:
2251                 break;
2252                 }
2253         return(ret);
2254         }
2255
2256 long ssl3_ctx_ctrl(SSL_CTX *ctx, int cmd, long larg, void *parg)
2257         {
2258         CERT *cert;
2259
2260         cert=ctx->cert;
2261
2262         switch (cmd)
2263                 {
2264 #ifndef OPENSSL_NO_RSA
2265         case SSL_CTRL_NEED_TMP_RSA:
2266                 if (    (cert->rsa_tmp == NULL) &&
2267                         ((cert->pkeys[SSL_PKEY_RSA_ENC].privatekey == NULL) ||
2268                          (EVP_PKEY_size(cert->pkeys[SSL_PKEY_RSA_ENC].privatekey) > (512/8)))
2269                         )
2270                         return(1);
2271                 else
2272                         return(0);
2273                 /* break; */
2274         case SSL_CTRL_SET_TMP_RSA:
2275                 {
2276                 RSA *rsa;
2277                 int i;
2278
2279                 rsa=(RSA *)parg;
2280                 i=1;
2281                 if (rsa == NULL)
2282                         i=0;
2283                 else
2284                         {
2285                         if ((rsa=RSAPrivateKey_dup(rsa)) == NULL)
2286                                 i=0;
2287                         }
2288                 if (!i)
2289                         {
2290                         SSLerr(SSL_F_SSL3_CTX_CTRL,ERR_R_RSA_LIB);
2291                         return(0);
2292                         }
2293                 else
2294                         {
2295                         if (cert->rsa_tmp != NULL)
2296                                 RSA_free(cert->rsa_tmp);
2297                         cert->rsa_tmp=rsa;
2298                         return(1);
2299                         }
2300                 }
2301                 /* break; */
2302         case SSL_CTRL_SET_TMP_RSA_CB:
2303                 {
2304                 SSLerr(SSL_F_SSL3_CTX_CTRL, ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED);
2305                 return(0);
2306                 }
2307                 break;
2308 #endif
2309 #ifndef OPENSSL_NO_DH
2310         case SSL_CTRL_SET_TMP_DH:
2311                 {
2312                 DH *new=NULL,*dh;
2313
2314                 dh=(DH *)parg;
2315                 if ((new=DHparams_dup(dh)) == NULL)
2316                         {
2317                         SSLerr(SSL_F_SSL3_CTX_CTRL,ERR_R_DH_LIB);
2318                         return 0;
2319                         }
2320                 if (!(ctx->options & SSL_OP_SINGLE_DH_USE))
2321                         {
2322                         if (!DH_generate_key(new))
2323                                 {
2324                                 SSLerr(SSL_F_SSL3_CTX_CTRL,ERR_R_DH_LIB);
2325                                 DH_free(new);
2326                                 return 0;
2327                                 }
2328                         }
2329                 if (cert->dh_tmp != NULL)
2330                         DH_free(cert->dh_tmp);
2331                 cert->dh_tmp=new;
2332                 return 1;
2333                 }
2334                 /*break; */
2335         case SSL_CTRL_SET_TMP_DH_CB:
2336                 {
2337                 SSLerr(SSL_F_SSL3_CTX_CTRL, ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED);
2338                 return(0);
2339                 }
2340                 break;
2341 #endif
2342 #ifndef OPENSSL_NO_ECDH
2343         case SSL_CTRL_SET_TMP_ECDH:
2344                 {
2345                 EC_KEY *ecdh = NULL;
2346
2347                 if (parg == NULL)
2348                         {
2349                         SSLerr(SSL_F_SSL3_CTX_CTRL,ERR_R_ECDH_LIB);
2350                         return 0;
2351                         }
2352                 ecdh = EC_KEY_dup((EC_KEY *)parg);
2353                 if (ecdh == NULL)
2354                         {
2355                         SSLerr(SSL_F_SSL3_CTX_CTRL,ERR_R_EC_LIB);
2356                         return 0;
2357                         }
2358                 if (!(ctx->options & SSL_OP_SINGLE_ECDH_USE))
2359                         {
2360                         if (!EC_KEY_generate_key(ecdh))
2361                                 {
2362                                 EC_KEY_free(ecdh);
2363                                 SSLerr(SSL_F_SSL3_CTX_CTRL,ERR_R_ECDH_LIB);
2364                                 return 0;
2365                                 }
2366                         }
2367
2368                 if (cert->ecdh_tmp != NULL)
2369                         {
2370                         EC_KEY_free(cert->ecdh_tmp);
2371                         }
2372                 cert->ecdh_tmp = ecdh;
2373                 return 1;
2374                 }
2375                 /* break; */
2376         case SSL_CTRL_SET_TMP_ECDH_CB:
2377                 {
2378                 SSLerr(SSL_F_SSL3_CTX_CTRL, ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED);
2379                 return(0);
2380                 }
2381                 break;
2382 #endif /* !OPENSSL_NO_ECDH */
2383 #ifndef OPENSSL_NO_TLSEXT
2384         case SSL_CTRL_SET_TLSEXT_SERVERNAME_ARG:
2385                 ctx->tlsext_servername_arg=parg;
2386                 break;
2387 #endif /* !OPENSSL_NO_TLSEXT */
2388         /* A Thawte special :-) */
2389         case SSL_CTRL_EXTRA_CHAIN_CERT:
2390                 if (ctx->extra_certs == NULL)
2391                         {
2392                         if ((ctx->extra_certs=sk_X509_new_null()) == NULL)
2393                                 return(0);
2394                         }
2395                 sk_X509_push(ctx->extra_certs,(X509 *)parg);
2396                 break;
2397
2398         default:
2399                 return(0);
2400                 }
2401         return(1);
2402         }
2403
2404 long ssl3_ctx_callback_ctrl(SSL_CTX *ctx, int cmd, void (*fp)(void))
2405         {
2406         CERT *cert;
2407
2408         cert=ctx->cert;
2409
2410         switch (cmd)
2411                 {
2412 #ifndef OPENSSL_NO_RSA
2413         case SSL_CTRL_SET_TMP_RSA_CB:
2414                 {
2415                 cert->rsa_tmp_cb = (RSA *(*)(SSL *, int, int))fp;
2416                 }
2417                 break;
2418 #endif
2419 #ifndef OPENSSL_NO_DH
2420         case SSL_CTRL_SET_TMP_DH_CB:
2421                 {
2422                 cert->dh_tmp_cb = (DH *(*)(SSL *, int, int))fp;
2423                 }
2424                 break;
2425 #endif
2426 #ifndef OPENSSL_NO_ECDH
2427         case SSL_CTRL_SET_TMP_ECDH_CB:
2428                 {
2429                 cert->ecdh_tmp_cb = (EC_KEY *(*)(SSL *, int, int))fp;
2430                 }
2431                 break;
2432 #endif
2433 #ifndef OPENSSL_NO_TLSEXT
2434         case SSL_CTRL_SET_TLSEXT_SERVERNAME_CB:
2435                 ctx->tlsext_servername_callback=(int (*)(SSL *,int *,void *))fp;
2436                 break;
2437 #endif
2438         default:
2439                 return(0);
2440                 }
2441         return(1);
2442         }
2443
2444 /* This function needs to check if the ciphers required are actually
2445  * available */
2446 SSL_CIPHER *ssl3_get_cipher_by_char(const unsigned char *p)
2447         {
2448         SSL_CIPHER c,*cp;
2449         unsigned long id;
2450
2451         id=0x03000000L|((unsigned long)p[0]<<8L)|(unsigned long)p[1];
2452         c.id=id;
2453         cp = (SSL_CIPHER *)OBJ_bsearch((char *)&c,
2454                 (char *)ssl3_ciphers,
2455                 SSL3_NUM_CIPHERS,sizeof(SSL_CIPHER),
2456                 FP_ICC ssl_cipher_id_cmp);
2457         if (cp == NULL || cp->valid == 0)
2458                 return NULL;
2459         else
2460                 return cp;
2461         }
2462
2463 int ssl3_put_cipher_by_char(const SSL_CIPHER *c, unsigned char *p)
2464         {
2465         long l;
2466
2467         if (p != NULL)
2468                 {
2469                 l=c->id;
2470                 if ((l & 0xff000000) != 0x03000000) return(0);
2471                 p[0]=((unsigned char)(l>> 8L))&0xFF;
2472                 p[1]=((unsigned char)(l     ))&0xFF;
2473                 }
2474         return(2);
2475         }
2476
2477 SSL_CIPHER *ssl3_choose_cipher(SSL *s, STACK_OF(SSL_CIPHER) *clnt,
2478              STACK_OF(SSL_CIPHER) *srvr)
2479         {
2480         SSL_CIPHER *c,*ret=NULL;
2481         STACK_OF(SSL_CIPHER) *prio, *allow;
2482         int i,ii,ok;
2483         unsigned int j;
2484 #ifndef OPENSSL_NO_TLSEXT
2485 #ifndef OPENSSL_NO_EC
2486         int ec_ok, ec_nid;
2487         unsigned char ec_search1 = 0, ec_search2 = 0;
2488 #endif /* OPENSSL_NO_EC */
2489 #endif /* OPENSSL_NO_TLSEXT */
2490         CERT *cert;
2491         unsigned long alg_k,alg_a,mask_k,mask_a,emask_k,emask_a;
2492
2493         /* Let's see which ciphers we can support */
2494         cert=s->cert;
2495
2496 #if 0
2497         /* Do not set the compare functions, because this may lead to a
2498          * reordering by "id". We want to keep the original ordering.
2499          * We may pay a price in performance during sk_SSL_CIPHER_find(),
2500          * but would have to pay with the price of sk_SSL_CIPHER_dup().
2501          */
2502         sk_SSL_CIPHER_set_cmp_func(srvr, ssl_cipher_ptr_id_cmp);
2503         sk_SSL_CIPHER_set_cmp_func(clnt, ssl_cipher_ptr_id_cmp);
2504 #endif
2505
2506 #ifdef CIPHER_DEBUG
2507         printf("Server has %d from %p:\n", sk_SSL_CIPHER_num(srvr), (void *)srvr);
2508         for(i=0 ; i < sk_SSL_CIPHER_num(srvr) ; ++i)
2509                 {
2510                 c=sk_SSL_CIPHER_value(srvr,i);
2511                 printf("%p:%s\n",(void *)c,c->name);
2512                 }
2513         printf("Client sent %d from %p:\n", sk_SSL_CIPHER_num(clnt), (void *)clnt);
2514         for(i=0 ; i < sk_SSL_CIPHER_num(clnt) ; ++i)
2515             {
2516             c=sk_SSL_CIPHER_value(clnt,i);
2517             printf("%p:%s\n",(void *)c,c->name);
2518             }
2519 #endif
2520
2521         if (s->options & SSL_OP_CIPHER_SERVER_PREFERENCE)
2522                 {
2523                 prio = srvr;
2524                 allow = clnt;
2525                 }
2526         else
2527                 {
2528                 prio = clnt;
2529                 allow = srvr;
2530                 }
2531
2532         for (i=0; i<sk_SSL_CIPHER_num(prio); i++)
2533                 {
2534                 c=sk_SSL_CIPHER_value(prio,i);
2535
2536                 ssl_set_cert_masks(cert,c);
2537                 mask_k = cert->mask_k;
2538                 mask_a = cert->mask_a;
2539                 emask_k = cert->export_mask_k;
2540                 emask_a = cert->export_mask_a;
2541
2542 #ifdef KSSL_DEBUG
2543                 printf("ssl3_choose_cipher %d alg= %lx\n", i,c->algorithms);
2544 #endif    /* KSSL_DEBUG */
2545
2546                 alg_k=c->algorithm_mkey;
2547                 alg_a=c->algorithm_auth;
2548
2549 #ifndef OPENSSL_NO_KRB5
2550                 if (alg_k & SSL_kKRB5)
2551                         {
2552                         if ( !kssl_keytab_is_available(s->kssl_ctx) )
2553                             continue;
2554                         }
2555 #endif /* OPENSSL_NO_KRB5 */
2556 #ifndef OPENSSL_NO_PSK
2557                 /* with PSK there must be server callback set */
2558                 if ((alg_k & SSL_kPSK) && s->psk_server_callback == NULL)
2559                         continue;
2560 #endif /* OPENSSL_NO_PSK */
2561
2562                 if (SSL_C_IS_EXPORT(c))
2563                         {
2564                         ok = (alg_k & emask_k) && (alg_a & emask_a);
2565 #ifdef CIPHER_DEBUG
2566                         printf("%d:[%08lX:%08lX:%08lX:%08lX]%p:%s (export)\n",ok,alg_k,alg_a,emask_k,emask_a,
2567                                (void *)c,c->name);
2568 #endif
2569                         }
2570                 else
2571                         {
2572                         ok = (alg_k & mask_k) && (alg_a & mask_a);
2573 #ifdef CIPHER_DEBUG
2574                         printf("%d:[%08lX:%08lX:%08lX:%08lX]%p:%s\n",ok,alg_k,alg_a,mask_k,mask_a,(void *)c,
2575                                c->name);
2576 #endif
2577                         }
2578
2579 #ifndef OPENSSL_NO_TLSEXT
2580 #ifndef OPENSSL_NO_EC
2581                 if (
2582                         /* if we are considering an ECC cipher suite that uses our certificate */
2583                         (alg_a & SSL_aECDSA || alg_a & SSL_aECDH)
2584                         /* and we have an ECC certificate */
2585                         && (s->cert->pkeys[SSL_PKEY_ECC].x509 != NULL)
2586                         /* and the client specified a Supported Point Formats extension */
2587                         && ((s->session->tlsext_ecpointformatlist_length > 0) && (s->session->tlsext_ecpointformatlist != NULL))
2588                         /* and our certificate's point is compressed */
2589                         && (
2590                                 (s->cert->pkeys[SSL_PKEY_ECC].x509->cert_info != NULL)
2591                                 && (s->cert->pkeys[SSL_PKEY_ECC].x509->cert_info->key != NULL)
2592                                 && (s->cert->pkeys[SSL_PKEY_ECC].x509->cert_info->key->public_key != NULL)
2593                                 && (s->cert->pkeys[SSL_PKEY_ECC].x509->cert_info->key->public_key->data != NULL)
2594                                 && (
2595                                         (*(s->cert->pkeys[SSL_PKEY_ECC].x509->cert_info->key->public_key->data) == POINT_CONVERSION_COMPRESSED)
2596                                         || (*(s->cert->pkeys[SSL_PKEY_ECC].x509->cert_info->key->public_key->data) == POINT_CONVERSION_COMPRESSED + 1)
2597                                         )
2598                                 )
2599                 )
2600                         {
2601                         ec_ok = 0;
2602                         /* if our certificate's curve is over a field type that the client does not support
2603                          * then do not allow this cipher suite to be negotiated */
2604                         if (
2605                                 (s->cert->pkeys[SSL_PKEY_ECC].privatekey->pkey.ec != NULL)
2606                                 && (s->cert->pkeys[SSL_PKEY_ECC].privatekey->pkey.ec->group != NULL)
2607                                 && (s->cert->pkeys[SSL_PKEY_ECC].privatekey->pkey.ec->group->meth != NULL)
2608                                 && (EC_METHOD_get_field_type(s->cert->pkeys[SSL_PKEY_ECC].privatekey->pkey.ec->group->meth) == NID_X9_62_prime_field)
2609                         )
2610                                 {
2611                                 for (j = 0; j < s->session->tlsext_ecpointformatlist_length; j++)
2612                                         {
2613                                         if (s->session->tlsext_ecpointformatlist[j] == TLSEXT_ECPOINTFORMAT_ansiX962_compressed_prime)
2614                                                 {
2615                                                 ec_ok = 1;
2616                                                 break;
2617                                                 }
2618                                         }
2619                                 }
2620                         else if (EC_METHOD_get_field_type(s->cert->pkeys[SSL_PKEY_ECC].privatekey->pkey.ec->group->meth) == NID_X9_62_characteristic_two_field)
2621                                 {
2622                                 for (j = 0; j < s->session->tlsext_ecpointformatlist_length; j++)
2623                                         {
2624                                         if (s->session->tlsext_ecpointformatlist[j] == TLSEXT_ECPOINTFORMAT_ansiX962_compressed_char2)
2625                                                 {
2626                                                 ec_ok = 1;
2627                                                 break;
2628                                                 }
2629                                         }
2630                                 }
2631                         ok = ok && ec_ok;
2632                         }
2633                 if (
2634                         /* if we are considering an ECC cipher suite that uses our certificate */
2635                         (alg_a & SSL_aECDSA || alg_a & SSL_aECDH)
2636                         /* and we have an ECC certificate */
2637                         && (s->cert->pkeys[SSL_PKEY_ECC].x509 != NULL)
2638                         /* and the client specified an EllipticCurves extension */
2639                         && ((s->session->tlsext_ellipticcurvelist_length > 0) && (s->session->tlsext_ellipticcurvelist != NULL))
2640                 )
2641                         {
2642                         ec_ok = 0;
2643                         if (
2644                                 (s->cert->pkeys[SSL_PKEY_ECC].privatekey->pkey.ec != NULL)
2645                                 && (s->cert->pkeys[SSL_PKEY_ECC].privatekey->pkey.ec->group != NULL)
2646                         )
2647                                 {
2648                                 ec_nid = EC_GROUP_get_curve_name(s->cert->pkeys[SSL_PKEY_ECC].privatekey->pkey.ec->group);
2649                                 if ((ec_nid == 0)
2650                                         && (s->cert->pkeys[SSL_PKEY_ECC].privatekey->pkey.ec->group->meth != NULL)
2651                                 )
2652                                         {
2653                                         if (EC_METHOD_get_field_type(s->cert->pkeys[SSL_PKEY_ECC].privatekey->pkey.ec->group->meth) == NID_X9_62_prime_field)
2654                                                 {
2655                                                 ec_search1 = 0xFF;
2656                                                 ec_search2 = 0x01;
2657                                                 }
2658                                         else if (EC_METHOD_get_field_type(s->cert->pkeys[SSL_PKEY_ECC].privatekey->pkey.ec->group->meth) == NID_X9_62_characteristic_two_field)
2659                                                 {
2660                                                 ec_search1 = 0xFF;
2661                                                 ec_search2 = 0x02;
2662                                                 }
2663                                         }
2664                                 else
2665                                         {
2666                                         ec_search1 = 0x00;
2667                                         ec_search2 = tls1_ec_nid2curve_id(ec_nid);
2668                                         }
2669                                 if ((ec_search1 != 0) || (ec_search2 != 0))
2670                                         {
2671                                         for (j = 0; j < s->session->tlsext_ellipticcurvelist_length / 2; j++)
2672                                                 {
2673                                                 if ((s->session->tlsext_ellipticcurvelist[2*j] == ec_search1) && (s->session->tlsext_ellipticcurvelist[2*j+1] == ec_search2))
2674                                                         {
2675                                                         ec_ok = 1;
2676                                                         break;
2677                                                         }
2678                                                 }
2679                                         }
2680                                 }
2681                         ok = ok && ec_ok;
2682                         }
2683                 if (
2684                         /* if we are considering an ECC cipher suite that uses an ephemeral EC key */
2685                         (alg_k & SSL_kEECDH)
2686                         /* and we have an ephemeral EC key */
2687                         && (s->cert->ecdh_tmp != NULL)
2688                         /* and the client specified an EllipticCurves extension */
2689                         && ((s->session->tlsext_ellipticcurvelist_length > 0) && (s->session->tlsext_ellipticcurvelist != NULL))
2690                 )
2691                         {
2692                         ec_ok = 0;
2693                         if (s->cert->ecdh_tmp->group != NULL)
2694                                 {
2695                                 ec_nid = EC_GROUP_get_curve_name(s->cert->ecdh_tmp->group);
2696                                 if ((ec_nid == 0)
2697                                         && (s->cert->ecdh_tmp->group->meth != NULL)
2698                                 )
2699                                         {
2700                                         if (EC_METHOD_get_field_type(s->cert->ecdh_tmp->group->meth) == NID_X9_62_prime_field)
2701                                                 {
2702                                                 ec_search1 = 0xFF;
2703                                                 ec_search2 = 0x01;
2704                                                 }
2705                                         else if (EC_METHOD_get_field_type(s->cert->ecdh_tmp->group->meth) == NID_X9_62_characteristic_two_field)
2706                                                 {
2707                                                 ec_search1 = 0xFF;
2708                                                 ec_search2 = 0x02;
2709                                                 }
2710                                         }
2711                                 else
2712                                         {
2713                                         ec_search1 = 0x00;
2714                                         ec_search2 = tls1_ec_nid2curve_id(ec_nid);
2715                                         }
2716                                 if ((ec_search1 != 0) || (ec_search2 != 0))
2717                                         {
2718                                         for (j = 0; j < s->session->tlsext_ellipticcurvelist_length / 2; j++)
2719                                                 {
2720                                                 if ((s->session->tlsext_ellipticcurvelist[2*j] == ec_search1) && (s->session->tlsext_ellipticcurvelist[2*j+1] == ec_search2))
2721                                                         {
2722                                                         ec_ok = 1;
2723                                                         break;
2724                                                         }
2725                                                 }
2726                                         }
2727                                 }
2728                         ok = ok && ec_ok;
2729                         }
2730 #endif /* OPENSSL_NO_EC */
2731 #endif /* OPENSSL_NO_TLSEXT */
2732
2733                 if (!ok) continue;
2734                 ii=sk_SSL_CIPHER_find(allow,c);
2735                 if (ii >= 0)
2736                         {
2737                         ret=sk_SSL_CIPHER_value(allow,ii);
2738                         break;
2739                         }
2740                 }
2741         return(ret);
2742         }
2743
2744 int ssl3_get_req_cert_type(SSL *s, unsigned char *p)
2745         {
2746         int ret=0;
2747         unsigned long alg_k;
2748
2749         alg_k = s->s3->tmp.new_cipher->algorithm_mkey;
2750
2751 #ifndef OPENSSL_NO_DH
2752         if (alg_k & (SSL_kDHr|SSL_kEDH))
2753                 {
2754 #  ifndef OPENSSL_NO_RSA
2755                 p[ret++]=SSL3_CT_RSA_FIXED_DH;
2756 #  endif
2757 #  ifndef OPENSSL_NO_DSA
2758                 p[ret++]=SSL3_CT_DSS_FIXED_DH;
2759 #  endif
2760                 }
2761         if ((s->version == SSL3_VERSION) &&
2762                 (alg_k & (SSL_kEDH|SSL_kDHd|SSL_kDHr)))
2763                 {
2764 #  ifndef OPENSSL_NO_RSA
2765                 p[ret++]=SSL3_CT_RSA_EPHEMERAL_DH;
2766 #  endif
2767 #  ifndef OPENSSL_NO_DSA
2768                 p[ret++]=SSL3_CT_DSS_EPHEMERAL_DH;
2769 #  endif
2770                 }
2771 #endif /* !OPENSSL_NO_DH */
2772 #ifndef OPENSSL_NO_RSA
2773         p[ret++]=SSL3_CT_RSA_SIGN;
2774 #endif
2775 #ifndef OPENSSL_NO_DSA
2776         p[ret++]=SSL3_CT_DSS_SIGN;
2777 #endif
2778 #ifndef OPENSSL_NO_ECDH
2779         if ((alg_k & (SSL_kECDHr|SSL_kECDHe)) && (s->version >= TLS1_VERSION))
2780                 {
2781                 p[ret++]=TLS_CT_RSA_FIXED_ECDH;
2782                 p[ret++]=TLS_CT_ECDSA_FIXED_ECDH;
2783                 }
2784 #endif
2785
2786 #ifndef OPENSSL_NO_ECDSA
2787         /* ECDSA certs can be used with RSA cipher suites as well
2788          * so we don't need to check for SSL_kECDH or SSL_kEECDH
2789          */
2790         if (s->version >= TLS1_VERSION)
2791                 {
2792                 p[ret++]=TLS_CT_ECDSA_SIGN;
2793                 }
2794 #endif
2795         return(ret);
2796         }
2797
2798 int ssl3_shutdown(SSL *s)
2799         {
2800
2801         /* Don't do anything much if we have not done the handshake or
2802          * we don't want to send messages :-) */
2803         if ((s->quiet_shutdown) || (s->state == SSL_ST_BEFORE))
2804                 {
2805                 s->shutdown=(SSL_SENT_SHUTDOWN|SSL_RECEIVED_SHUTDOWN);
2806                 return(1);
2807                 }
2808
2809         if (!(s->shutdown & SSL_SENT_SHUTDOWN))
2810                 {
2811                 s->shutdown|=SSL_SENT_SHUTDOWN;
2812 #if 1
2813                 ssl3_send_alert(s,SSL3_AL_WARNING,SSL_AD_CLOSE_NOTIFY);
2814 #endif
2815                 /* our shutdown alert has been sent now, and if it still needs
2816                  * to be written, s->s3->alert_dispatch will be true */
2817                 }
2818         else if (s->s3->alert_dispatch)
2819                 {
2820                 /* resend it if not sent */
2821 #if 1
2822                 s->method->ssl_dispatch_alert(s);
2823 #endif
2824                 }
2825         else if (!(s->shutdown & SSL_RECEIVED_SHUTDOWN))
2826                 {
2827                 /* If we are waiting for a close from our peer, we are closed */
2828                 s->method->ssl_read_bytes(s,0,NULL,0,0);
2829                 }
2830
2831         if ((s->shutdown == (SSL_SENT_SHUTDOWN|SSL_RECEIVED_SHUTDOWN)) &&
2832                 !s->s3->alert_dispatch)
2833                 return(1);
2834         else
2835                 return(0);
2836         }
2837
2838 int ssl3_write(SSL *s, const void *buf, int len)
2839         {
2840         int ret,n;
2841
2842 #if 0
2843         if (s->shutdown & SSL_SEND_SHUTDOWN)
2844                 {
2845                 s->rwstate=SSL_NOTHING;
2846                 return(0);
2847                 }
2848 #endif
2849         clear_sys_error();
2850         if (s->s3->renegotiate) ssl3_renegotiate_check(s);
2851
2852         /* This is an experimental flag that sends the
2853          * last handshake message in the same packet as the first
2854          * use data - used to see if it helps the TCP protocol during
2855          * session-id reuse */
2856         /* The second test is because the buffer may have been removed */
2857         if ((s->s3->flags & SSL3_FLAGS_POP_BUFFER) && (s->wbio == s->bbio))
2858                 {
2859                 /* First time through, we write into the buffer */
2860                 if (s->s3->delay_buf_pop_ret == 0)
2861                         {
2862                         ret=ssl3_write_bytes(s,SSL3_RT_APPLICATION_DATA,
2863                                              buf,len);
2864                         if (ret <= 0) return(ret);
2865
2866                         s->s3->delay_buf_pop_ret=ret;
2867                         }
2868
2869                 s->rwstate=SSL_WRITING;
2870                 n=BIO_flush(s->wbio);
2871                 if (n <= 0) return(n);
2872                 s->rwstate=SSL_NOTHING;
2873
2874                 /* We have flushed the buffer, so remove it */
2875                 ssl_free_wbio_buffer(s);
2876                 s->s3->flags&= ~SSL3_FLAGS_POP_BUFFER;
2877
2878                 ret=s->s3->delay_buf_pop_ret;
2879                 s->s3->delay_buf_pop_ret=0;
2880                 }
2881         else
2882                 {
2883                 ret=s->method->ssl_write_bytes(s,SSL3_RT_APPLICATION_DATA,
2884                         buf,len);
2885                 if (ret <= 0) return(ret);
2886                 }
2887
2888         return(ret);
2889         }
2890
2891 static int ssl3_read_internal(SSL *s, void *buf, int len, int peek)
2892         {
2893         int ret;
2894
2895         clear_sys_error();
2896         if (s->s3->renegotiate) ssl3_renegotiate_check(s);
2897         s->s3->in_read_app_data=1;
2898         ret=s->method->ssl_read_bytes(s,SSL3_RT_APPLICATION_DATA,buf,len,peek);
2899         if ((ret == -1) && (s->s3->in_read_app_data == 2))
2900                 {
2901                 /* ssl3_read_bytes decided to call s->handshake_func, which
2902                  * called ssl3_read_bytes to read handshake data.
2903                  * However, ssl3_read_bytes actually found application data
2904                  * and thinks that application data makes sense here; so disable
2905                  * handshake processing and try to read application data again. */
2906                 s->in_handshake++;
2907                 ret=s->method->ssl_read_bytes(s,SSL3_RT_APPLICATION_DATA,buf,len,peek);
2908                 s->in_handshake--;
2909                 }
2910         else
2911                 s->s3->in_read_app_data=0;
2912
2913         return(ret);
2914         }
2915
2916 int ssl3_read(SSL *s, void *buf, int len)
2917         {
2918         return ssl3_read_internal(s, buf, len, 0);
2919         }
2920
2921 int ssl3_peek(SSL *s, void *buf, int len)
2922         {
2923         return ssl3_read_internal(s, buf, len, 1);
2924         }
2925
2926 int ssl3_renegotiate(SSL *s)
2927         {
2928         if (s->handshake_func == NULL)
2929                 return(1);
2930
2931         if (s->s3->flags & SSL3_FLAGS_NO_RENEGOTIATE_CIPHERS)
2932                 return(0);
2933
2934         s->s3->renegotiate=1;
2935         return(1);
2936         }
2937
2938 int ssl3_renegotiate_check(SSL *s)
2939         {
2940         int ret=0;
2941
2942         if (s->s3->renegotiate)
2943                 {
2944                 if (    (s->s3->rbuf.left == 0) &&
2945                         (s->s3->wbuf.left == 0) &&
2946                         !SSL_in_init(s))
2947                         {
2948 /*
2949 if we are the server, and we have sent a 'RENEGOTIATE' message, we
2950 need to go to SSL_ST_ACCEPT.
2951 */
2952                         /* SSL_ST_ACCEPT */
2953                         s->state=SSL_ST_RENEGOTIATE;
2954                         s->s3->renegotiate=0;
2955                         s->s3->num_renegotiations++;
2956                         s->s3->total_renegotiations++;
2957                         ret=1;
2958                         }
2959                 }
2960         return(ret);
2961         }
2962