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 /* end of list */
1859         };
1860
1861 SSL3_ENC_METHOD SSLv3_enc_data={
1862         ssl3_enc,
1863         ssl3_mac,
1864         ssl3_setup_key_block,
1865         ssl3_generate_master_secret,
1866         ssl3_change_cipher_state,
1867         ssl3_final_finish_mac,
1868         MD5_DIGEST_LENGTH+SHA_DIGEST_LENGTH,
1869         ssl3_cert_verify_mac,
1870         SSL3_MD_CLIENT_FINISHED_CONST,4,
1871         SSL3_MD_SERVER_FINISHED_CONST,4,
1872         ssl3_alert_code,
1873         };
1874
1875 long ssl3_default_timeout(void)
1876         {
1877         /* 2 hours, the 24 hours mentioned in the SSLv3 spec
1878          * is way too long for http, the cache would over fill */
1879         return(60*60*2);
1880         }
1881
1882 int ssl3_num_ciphers(void)
1883         {
1884         return(SSL3_NUM_CIPHERS);
1885         }
1886
1887 SSL_CIPHER *ssl3_get_cipher(unsigned int u)
1888         {
1889         if (u < SSL3_NUM_CIPHERS)
1890                 return(&(ssl3_ciphers[SSL3_NUM_CIPHERS-1-u]));
1891         else
1892                 return(NULL);
1893         }
1894
1895 int ssl3_pending(const SSL *s)
1896         {
1897         if (s->rstate == SSL_ST_READ_BODY)
1898                 return 0;
1899
1900         return (s->s3->rrec.type == SSL3_RT_APPLICATION_DATA) ? s->s3->rrec.length : 0;
1901         }
1902
1903 int ssl3_new(SSL *s)
1904         {
1905         SSL3_STATE *s3;
1906
1907         if ((s3=OPENSSL_malloc(sizeof *s3)) == NULL) goto err;
1908         memset(s3,0,sizeof *s3);
1909         EVP_MD_CTX_init(&s3->finish_dgst1);
1910         EVP_MD_CTX_init(&s3->finish_dgst2);
1911         memset(s3->rrec.seq_num,0,sizeof(s3->rrec.seq_num));
1912         memset(s3->wrec.seq_num,0,sizeof(s3->wrec.seq_num));
1913
1914         s->s3=s3;
1915
1916         s->method->ssl_clear(s);
1917         return(1);
1918 err:
1919         return(0);
1920         }
1921
1922 void ssl3_free(SSL *s)
1923         {
1924         if(s == NULL)
1925             return;
1926
1927         ssl3_cleanup_key_block(s);
1928         if (s->s3->rbuf.buf != NULL)
1929                 OPENSSL_free(s->s3->rbuf.buf);
1930         if (s->s3->wbuf.buf != NULL)
1931                 OPENSSL_free(s->s3->wbuf.buf);
1932         if (s->s3->rrec.comp != NULL)
1933                 OPENSSL_free(s->s3->rrec.comp);
1934 #ifndef OPENSSL_NO_DH
1935         if (s->s3->tmp.dh != NULL)
1936                 DH_free(s->s3->tmp.dh);
1937 #endif
1938 #ifndef OPENSSL_NO_ECDH
1939         if (s->s3->tmp.ecdh != NULL)
1940                 EC_KEY_free(s->s3->tmp.ecdh);
1941 #endif
1942
1943         if (s->s3->tmp.ca_names != NULL)
1944                 sk_X509_NAME_pop_free(s->s3->tmp.ca_names,X509_NAME_free);
1945         EVP_MD_CTX_cleanup(&s->s3->finish_dgst1);
1946         EVP_MD_CTX_cleanup(&s->s3->finish_dgst2);
1947
1948         OPENSSL_cleanse(s->s3,sizeof *s->s3);
1949         OPENSSL_free(s->s3);
1950         s->s3=NULL;
1951         }
1952
1953 void ssl3_clear(SSL *s)
1954         {
1955         unsigned char *rp,*wp;
1956         size_t rlen, wlen;
1957
1958         ssl3_cleanup_key_block(s);
1959         if (s->s3->tmp.ca_names != NULL)
1960                 sk_X509_NAME_pop_free(s->s3->tmp.ca_names,X509_NAME_free);
1961
1962         if (s->s3->rrec.comp != NULL)
1963                 {
1964                 OPENSSL_free(s->s3->rrec.comp);
1965                 s->s3->rrec.comp=NULL;
1966                 }
1967 #ifndef OPENSSL_NO_DH
1968         if (s->s3->tmp.dh != NULL)
1969                 DH_free(s->s3->tmp.dh);
1970 #endif
1971 #ifndef OPENSSL_NO_ECDH
1972         if (s->s3->tmp.ecdh != NULL)
1973                 EC_KEY_free(s->s3->tmp.ecdh);
1974 #endif
1975
1976         rp = s->s3->rbuf.buf;
1977         wp = s->s3->wbuf.buf;
1978         rlen = s->s3->rbuf.len;
1979         wlen = s->s3->wbuf.len;
1980
1981         EVP_MD_CTX_cleanup(&s->s3->finish_dgst1);
1982         EVP_MD_CTX_cleanup(&s->s3->finish_dgst2);
1983
1984         memset(s->s3,0,sizeof *s->s3);
1985         s->s3->rbuf.buf = rp;
1986         s->s3->wbuf.buf = wp;
1987         s->s3->rbuf.len = rlen;
1988         s->s3->wbuf.len = wlen;
1989
1990         ssl_free_wbio_buffer(s);
1991
1992         s->packet_length=0;
1993         s->s3->renegotiate=0;
1994         s->s3->total_renegotiations=0;
1995         s->s3->num_renegotiations=0;
1996         s->s3->in_read_app_data=0;
1997         s->version=SSL3_VERSION;
1998         }
1999
2000 long ssl3_ctrl(SSL *s, int cmd, long larg, void *parg)
2001         {
2002         int ret=0;
2003
2004 #if !defined(OPENSSL_NO_DSA) || !defined(OPENSSL_NO_RSA)
2005         if (
2006 #ifndef OPENSSL_NO_RSA
2007             cmd == SSL_CTRL_SET_TMP_RSA ||
2008             cmd == SSL_CTRL_SET_TMP_RSA_CB ||
2009 #endif
2010 #ifndef OPENSSL_NO_DSA
2011             cmd == SSL_CTRL_SET_TMP_DH ||
2012             cmd == SSL_CTRL_SET_TMP_DH_CB ||
2013 #endif
2014                 0)
2015                 {
2016                 if (!ssl_cert_inst(&s->cert))
2017                         {
2018                         SSLerr(SSL_F_SSL3_CTRL, ERR_R_MALLOC_FAILURE);
2019                         return(0);
2020                         }
2021                 }
2022 #endif
2023
2024         switch (cmd)
2025                 {
2026         case SSL_CTRL_GET_SESSION_REUSED:
2027                 ret=s->hit;
2028                 break;
2029         case SSL_CTRL_GET_CLIENT_CERT_REQUEST:
2030                 break;
2031         case SSL_CTRL_GET_NUM_RENEGOTIATIONS:
2032                 ret=s->s3->num_renegotiations;
2033                 break;
2034         case SSL_CTRL_CLEAR_NUM_RENEGOTIATIONS:
2035                 ret=s->s3->num_renegotiations;
2036                 s->s3->num_renegotiations=0;
2037                 break;
2038         case SSL_CTRL_GET_TOTAL_RENEGOTIATIONS:
2039                 ret=s->s3->total_renegotiations;
2040                 break;
2041         case SSL_CTRL_GET_FLAGS:
2042                 ret=(int)(s->s3->flags);
2043                 break;
2044 #ifndef OPENSSL_NO_RSA
2045         case SSL_CTRL_NEED_TMP_RSA:
2046                 if ((s->cert != NULL) && (s->cert->rsa_tmp == NULL) &&
2047                     ((s->cert->pkeys[SSL_PKEY_RSA_ENC].privatekey == NULL) ||
2048                      (EVP_PKEY_size(s->cert->pkeys[SSL_PKEY_RSA_ENC].privatekey) > (512/8))))
2049                         ret = 1;
2050                 break;
2051         case SSL_CTRL_SET_TMP_RSA:
2052                 {
2053                         RSA *rsa = (RSA *)parg;
2054                         if (rsa == NULL)
2055                                 {
2056                                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_PASSED_NULL_PARAMETER);
2057                                 return(ret);
2058                                 }
2059                         if ((rsa = RSAPrivateKey_dup(rsa)) == NULL)
2060                                 {
2061                                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_RSA_LIB);
2062                                 return(ret);
2063                                 }
2064                         if (s->cert->rsa_tmp != NULL)
2065                                 RSA_free(s->cert->rsa_tmp);
2066                         s->cert->rsa_tmp = rsa;
2067                         ret = 1;
2068                 }
2069                 break;
2070         case SSL_CTRL_SET_TMP_RSA_CB:
2071                 {
2072                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED);
2073                 return(ret);
2074                 }
2075                 break;
2076 #endif
2077 #ifndef OPENSSL_NO_DH
2078         case SSL_CTRL_SET_TMP_DH:
2079                 {
2080                         DH *dh = (DH *)parg;
2081                         if (dh == NULL)
2082                                 {
2083                                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_PASSED_NULL_PARAMETER);
2084                                 return(ret);
2085                                 }
2086                         if ((dh = DHparams_dup(dh)) == NULL)
2087                                 {
2088                                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_DH_LIB);
2089                                 return(ret);
2090                                 }
2091                         if (!(s->options & SSL_OP_SINGLE_DH_USE))
2092                                 {
2093                                 if (!DH_generate_key(dh))
2094                                         {
2095                                         DH_free(dh);
2096                                         SSLerr(SSL_F_SSL3_CTRL, ERR_R_DH_LIB);
2097                                         return(ret);
2098                                         }
2099                                 }
2100                         if (s->cert->dh_tmp != NULL)
2101                                 DH_free(s->cert->dh_tmp);
2102                         s->cert->dh_tmp = dh;
2103                         ret = 1;
2104                 }
2105                 break;
2106         case SSL_CTRL_SET_TMP_DH_CB:
2107                 {
2108                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED);
2109                 return(ret);
2110                 }
2111                 break;
2112 #endif
2113 #ifndef OPENSSL_NO_ECDH
2114         case SSL_CTRL_SET_TMP_ECDH:
2115                 {
2116                 EC_KEY *ecdh = NULL;
2117
2118                 if (parg == NULL)
2119                         {
2120                         SSLerr(SSL_F_SSL3_CTRL, ERR_R_PASSED_NULL_PARAMETER);
2121                         return(ret);
2122                         }
2123                 if (!EC_KEY_up_ref((EC_KEY *)parg))
2124                         {
2125                         SSLerr(SSL_F_SSL3_CTRL,ERR_R_ECDH_LIB);
2126                         return(ret);
2127                         }
2128                 ecdh = (EC_KEY *)parg;
2129                 if (!(s->options & SSL_OP_SINGLE_ECDH_USE))
2130                         {
2131                         if (!EC_KEY_generate_key(ecdh))
2132                                 {
2133                                 EC_KEY_free(ecdh);
2134                                 SSLerr(SSL_F_SSL3_CTRL,ERR_R_ECDH_LIB);
2135                                 return(ret);
2136                                 }
2137                         }
2138                 if (s->cert->ecdh_tmp != NULL)
2139                         EC_KEY_free(s->cert->ecdh_tmp);
2140                 s->cert->ecdh_tmp = ecdh;
2141                 ret = 1;
2142                 }
2143                 break;
2144         case SSL_CTRL_SET_TMP_ECDH_CB:
2145                 {
2146                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED);
2147                 return(ret);
2148                 }
2149                 break;
2150 #endif /* !OPENSSL_NO_ECDH */
2151 #ifndef OPENSSL_NO_TLSEXT
2152         case SSL_CTRL_SET_TLSEXT_HOSTNAME:
2153                 if (larg == TLSEXT_NAMETYPE_host_name)
2154                         {
2155                         if (s->tlsext_hostname != NULL)
2156                                 OPENSSL_free(s->tlsext_hostname);
2157                         s->tlsext_hostname = NULL;
2158
2159                         ret = 1;
2160                         if (parg == NULL)
2161                                 break;
2162                         if (strlen((char *)parg) > TLSEXT_MAXLEN_host_name)
2163                                 {
2164                                 SSLerr(SSL_F_SSL3_CTRL, SSL_R_SSL3_EXT_INVALID_SERVERNAME);
2165                                 return 0;
2166                                 }
2167                         if ((s->tlsext_hostname = BUF_strdup((char *)parg)) == NULL)
2168                                 {
2169                                 SSLerr(SSL_F_SSL3_CTRL, ERR_R_INTERNAL_ERROR);
2170                                 return 0;
2171                                 }
2172                         }
2173                 else
2174                         {
2175                         SSLerr(SSL_F_SSL3_CTRL, SSL_R_SSL3_EXT_INVALID_SERVERNAME_TYPE);
2176                         return 0;
2177                         }
2178                 s->options |= SSL_OP_NO_SSLv2; /* can't use extension w/ SSL 2.0 format */
2179                 break;
2180 #endif /* !OPENSSL_NO_TLSEXT */
2181         default:
2182                 break;
2183                 }
2184         return(ret);
2185         }
2186
2187 long ssl3_callback_ctrl(SSL *s, int cmd, void (*fp)(void))
2188         {
2189         int ret=0;
2190
2191 #if !defined(OPENSSL_NO_DSA) || !defined(OPENSSL_NO_RSA)
2192         if (
2193 #ifndef OPENSSL_NO_RSA
2194             cmd == SSL_CTRL_SET_TMP_RSA_CB ||
2195 #endif
2196 #ifndef OPENSSL_NO_DSA
2197             cmd == SSL_CTRL_SET_TMP_DH_CB ||
2198 #endif
2199                 0)
2200                 {
2201                 if (!ssl_cert_inst(&s->cert))
2202                         {
2203                         SSLerr(SSL_F_SSL3_CALLBACK_CTRL, ERR_R_MALLOC_FAILURE);
2204                         return(0);
2205                         }
2206                 }
2207 #endif
2208
2209         switch (cmd)
2210                 {
2211 #ifndef OPENSSL_NO_RSA
2212         case SSL_CTRL_SET_TMP_RSA_CB:
2213                 {
2214                 s->cert->rsa_tmp_cb = (RSA *(*)(SSL *, int, int))fp;
2215                 }
2216                 break;
2217 #endif
2218 #ifndef OPENSSL_NO_DH
2219         case SSL_CTRL_SET_TMP_DH_CB:
2220                 {
2221                 s->cert->dh_tmp_cb = (DH *(*)(SSL *, int, int))fp;
2222                 }
2223                 break;
2224 #endif
2225 #ifndef OPENSSL_NO_ECDH
2226         case SSL_CTRL_SET_TMP_ECDH_CB:
2227                 {
2228                 s->cert->ecdh_tmp_cb = (EC_KEY *(*)(SSL *, int, int))fp;
2229                 }
2230                 break;
2231 #endif
2232         default:
2233                 break;
2234                 }
2235         return(ret);
2236         }
2237
2238 long ssl3_ctx_ctrl(SSL_CTX *ctx, int cmd, long larg, void *parg)
2239         {
2240         CERT *cert;
2241
2242         cert=ctx->cert;
2243
2244         switch (cmd)
2245                 {
2246 #ifndef OPENSSL_NO_RSA
2247         case SSL_CTRL_NEED_TMP_RSA:
2248                 if (    (cert->rsa_tmp == NULL) &&
2249                         ((cert->pkeys[SSL_PKEY_RSA_ENC].privatekey == NULL) ||
2250                          (EVP_PKEY_size(cert->pkeys[SSL_PKEY_RSA_ENC].privatekey) > (512/8)))
2251                         )
2252                         return(1);
2253                 else
2254                         return(0);
2255                 /* break; */
2256         case SSL_CTRL_SET_TMP_RSA:
2257                 {
2258                 RSA *rsa;
2259                 int i;
2260
2261                 rsa=(RSA *)parg;
2262                 i=1;
2263                 if (rsa == NULL)
2264                         i=0;
2265                 else
2266                         {
2267                         if ((rsa=RSAPrivateKey_dup(rsa)) == NULL)
2268                                 i=0;
2269                         }
2270                 if (!i)
2271                         {
2272                         SSLerr(SSL_F_SSL3_CTX_CTRL,ERR_R_RSA_LIB);
2273                         return(0);
2274                         }
2275                 else
2276                         {
2277                         if (cert->rsa_tmp != NULL)
2278                                 RSA_free(cert->rsa_tmp);
2279                         cert->rsa_tmp=rsa;
2280                         return(1);
2281                         }
2282                 }
2283                 /* break; */
2284         case SSL_CTRL_SET_TMP_RSA_CB:
2285                 {
2286                 SSLerr(SSL_F_SSL3_CTX_CTRL, ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED);
2287                 return(0);
2288                 }
2289                 break;
2290 #endif
2291 #ifndef OPENSSL_NO_DH
2292         case SSL_CTRL_SET_TMP_DH:
2293                 {
2294                 DH *new=NULL,*dh;
2295
2296                 dh=(DH *)parg;
2297                 if ((new=DHparams_dup(dh)) == NULL)
2298                         {
2299                         SSLerr(SSL_F_SSL3_CTX_CTRL,ERR_R_DH_LIB);
2300                         return 0;
2301                         }
2302                 if (!(ctx->options & SSL_OP_SINGLE_DH_USE))
2303                         {
2304                         if (!DH_generate_key(new))
2305                                 {
2306                                 SSLerr(SSL_F_SSL3_CTX_CTRL,ERR_R_DH_LIB);
2307                                 DH_free(new);
2308                                 return 0;
2309                                 }
2310                         }
2311                 if (cert->dh_tmp != NULL)
2312                         DH_free(cert->dh_tmp);
2313                 cert->dh_tmp=new;
2314                 return 1;
2315                 }
2316                 /*break; */
2317         case SSL_CTRL_SET_TMP_DH_CB:
2318                 {
2319                 SSLerr(SSL_F_SSL3_CTX_CTRL, ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED);
2320                 return(0);
2321                 }
2322                 break;
2323 #endif
2324 #ifndef OPENSSL_NO_ECDH
2325         case SSL_CTRL_SET_TMP_ECDH:
2326                 {
2327                 EC_KEY *ecdh = NULL;
2328
2329                 if (parg == NULL)
2330                         {
2331                         SSLerr(SSL_F_SSL3_CTX_CTRL,ERR_R_ECDH_LIB);
2332                         return 0;
2333                         }
2334                 ecdh = EC_KEY_dup((EC_KEY *)parg);
2335                 if (ecdh == NULL)
2336                         {
2337                         SSLerr(SSL_F_SSL3_CTX_CTRL,ERR_R_EC_LIB);
2338                         return 0;
2339                         }
2340                 if (!(ctx->options & SSL_OP_SINGLE_ECDH_USE))
2341                         {
2342                         if (!EC_KEY_generate_key(ecdh))
2343                                 {
2344                                 EC_KEY_free(ecdh);
2345                                 SSLerr(SSL_F_SSL3_CTX_CTRL,ERR_R_ECDH_LIB);
2346                                 return 0;
2347                                 }
2348                         }
2349
2350                 if (cert->ecdh_tmp != NULL)
2351                         {
2352                         EC_KEY_free(cert->ecdh_tmp);
2353                         }
2354                 cert->ecdh_tmp = ecdh;
2355                 return 1;
2356                 }
2357                 /* break; */
2358         case SSL_CTRL_SET_TMP_ECDH_CB:
2359                 {
2360                 SSLerr(SSL_F_SSL3_CTX_CTRL, ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED);
2361                 return(0);
2362                 }
2363                 break;
2364 #endif /* !OPENSSL_NO_ECDH */
2365 #ifndef OPENSSL_NO_TLSEXT
2366         case SSL_CTRL_SET_TLSEXT_SERVERNAME_ARG:
2367                 ctx->tlsext_servername_arg=parg;
2368                 break;
2369 #endif /* !OPENSSL_NO_TLSEXT */
2370         /* A Thawte special :-) */
2371         case SSL_CTRL_EXTRA_CHAIN_CERT:
2372                 if (ctx->extra_certs == NULL)
2373                         {
2374                         if ((ctx->extra_certs=sk_X509_new_null()) == NULL)
2375                                 return(0);
2376                         }
2377                 sk_X509_push(ctx->extra_certs,(X509 *)parg);
2378                 break;
2379
2380         default:
2381                 return(0);
2382                 }
2383         return(1);
2384         }
2385
2386 long ssl3_ctx_callback_ctrl(SSL_CTX *ctx, int cmd, void (*fp)(void))
2387         {
2388         CERT *cert;
2389
2390         cert=ctx->cert;
2391
2392         switch (cmd)
2393                 {
2394 #ifndef OPENSSL_NO_RSA
2395         case SSL_CTRL_SET_TMP_RSA_CB:
2396                 {
2397                 cert->rsa_tmp_cb = (RSA *(*)(SSL *, int, int))fp;
2398                 }
2399                 break;
2400 #endif
2401 #ifndef OPENSSL_NO_DH
2402         case SSL_CTRL_SET_TMP_DH_CB:
2403                 {
2404                 cert->dh_tmp_cb = (DH *(*)(SSL *, int, int))fp;
2405                 }
2406                 break;
2407 #endif
2408 #ifndef OPENSSL_NO_ECDH
2409         case SSL_CTRL_SET_TMP_ECDH_CB:
2410                 {
2411                 cert->ecdh_tmp_cb = (EC_KEY *(*)(SSL *, int, int))fp;
2412                 }
2413                 break;
2414 #endif
2415 #ifndef OPENSSL_NO_TLSEXT
2416         case SSL_CTRL_SET_TLSEXT_SERVERNAME_CB:
2417                 ctx->tlsext_servername_callback=(int (*)(SSL *,int *,void *))fp;
2418                 break;
2419 #endif
2420         default:
2421                 return(0);
2422                 }
2423         return(1);
2424         }
2425
2426 /* This function needs to check if the ciphers required are actually
2427  * available */
2428 SSL_CIPHER *ssl3_get_cipher_by_char(const unsigned char *p)
2429         {
2430         SSL_CIPHER c,*cp;
2431         unsigned long id;
2432
2433         id=0x03000000L|((unsigned long)p[0]<<8L)|(unsigned long)p[1];
2434         c.id=id;
2435         cp = (SSL_CIPHER *)OBJ_bsearch((char *)&c,
2436                 (char *)ssl3_ciphers,
2437                 SSL3_NUM_CIPHERS,sizeof(SSL_CIPHER),
2438                 FP_ICC ssl_cipher_id_cmp);
2439         if (cp == NULL || cp->valid == 0)
2440                 return NULL;
2441         else
2442                 return cp;
2443         }
2444
2445 int ssl3_put_cipher_by_char(const SSL_CIPHER *c, unsigned char *p)
2446         {
2447         long l;
2448
2449         if (p != NULL)
2450                 {
2451                 l=c->id;
2452                 if ((l & 0xff000000) != 0x03000000) return(0);
2453                 p[0]=((unsigned char)(l>> 8L))&0xFF;
2454                 p[1]=((unsigned char)(l     ))&0xFF;
2455                 }
2456         return(2);
2457         }
2458
2459 SSL_CIPHER *ssl3_choose_cipher(SSL *s, STACK_OF(SSL_CIPHER) *clnt,
2460              STACK_OF(SSL_CIPHER) *srvr)
2461         {
2462         SSL_CIPHER *c,*ret=NULL;
2463         STACK_OF(SSL_CIPHER) *prio, *allow;
2464         int i,ii,ok;
2465         unsigned int j;
2466 #ifndef OPENSSL_NO_TLSEXT
2467 #ifndef OPENSSL_NO_EC
2468         int ec_ok, ec_nid;
2469         unsigned char ec_search1 = 0, ec_search2 = 0;
2470 #endif /* OPENSSL_NO_EC */
2471 #endif /* OPENSSL_NO_TLSEXT */
2472         CERT *cert;
2473         unsigned long alg_k,alg_a,mask_k,mask_a,emask_k,emask_a;
2474
2475         /* Let's see which ciphers we can support */
2476         cert=s->cert;
2477
2478 #if 0
2479         /* Do not set the compare functions, because this may lead to a
2480          * reordering by "id". We want to keep the original ordering.
2481          * We may pay a price in performance during sk_SSL_CIPHER_find(),
2482          * but would have to pay with the price of sk_SSL_CIPHER_dup().
2483          */
2484         sk_SSL_CIPHER_set_cmp_func(srvr, ssl_cipher_ptr_id_cmp);
2485         sk_SSL_CIPHER_set_cmp_func(clnt, ssl_cipher_ptr_id_cmp);
2486 #endif
2487
2488 #ifdef CIPHER_DEBUG
2489         printf("Server has %d from %p:\n", sk_SSL_CIPHER_num(srvr), (void *)srvr);
2490         for(i=0 ; i < sk_SSL_CIPHER_num(srvr) ; ++i)
2491                 {
2492                 c=sk_SSL_CIPHER_value(srvr,i);
2493                 printf("%p:%s\n",(void *)c,c->name);
2494                 }
2495         printf("Client sent %d from %p:\n", sk_SSL_CIPHER_num(clnt), (void *)clnt);
2496         for(i=0 ; i < sk_SSL_CIPHER_num(clnt) ; ++i)
2497             {
2498             c=sk_SSL_CIPHER_value(clnt,i);
2499             printf("%p:%s\n",(void *)c,c->name);
2500             }
2501 #endif
2502
2503         if (s->options & SSL_OP_CIPHER_SERVER_PREFERENCE)
2504                 {
2505                 prio = srvr;
2506                 allow = clnt;
2507                 }
2508         else
2509                 {
2510                 prio = clnt;
2511                 allow = srvr;
2512                 }
2513
2514         for (i=0; i<sk_SSL_CIPHER_num(prio); i++)
2515                 {
2516                 c=sk_SSL_CIPHER_value(prio,i);
2517
2518                 ssl_set_cert_masks(cert,c);
2519                 mask_k = cert->mask_k;
2520                 mask_a = cert->mask_a;
2521                 emask_k = cert->export_mask_k;
2522                 emask_a = cert->export_mask_a;
2523
2524 #ifdef KSSL_DEBUG
2525                 printf("ssl3_choose_cipher %d alg= %lx\n", i,c->algorithms);
2526 #endif    /* KSSL_DEBUG */
2527
2528                 alg_k=c->algorithm_mkey;
2529                 alg_a=c->algorithm_auth;
2530
2531 #ifndef OPENSSL_NO_KRB5
2532                 if (alg_k & SSL_kKRB5)
2533                         {
2534                         if ( !kssl_keytab_is_available(s->kssl_ctx) )
2535                             continue;
2536                         }
2537 #endif /* OPENSSL_NO_KRB5 */
2538 #ifndef OPENSSL_NO_PSK
2539                 /* with PSK there must be server callback set */
2540                 if ((alg_k & SSL_kPSK) && s->psk_server_callback == NULL)
2541                         continue;
2542 #endif /* OPENSSL_NO_PSK */
2543
2544                 if (SSL_C_IS_EXPORT(c))
2545                         {
2546                         ok = (alg_k & emask_k) && (alg_a & emask_a);
2547 #ifdef CIPHER_DEBUG
2548                         printf("%d:[%08lX:%08lX:%08lX:%08lX]%p:%s (export)\n",ok,alg_k,alg_a,emask_k,emask_a,
2549                                (void *)c,c->name);
2550 #endif
2551                         }
2552                 else
2553                         {
2554                         ok = (alg_k & mask_k) && (alg_a & mask_a);
2555 #ifdef CIPHER_DEBUG
2556                         printf("%d:[%08lX:%08lX:%08lX:%08lX]%p:%s\n",ok,alg_k,alg_a,mask_k,mask_a,(void *)c,
2557                                c->name);
2558 #endif
2559                         }
2560
2561 #ifndef OPENSSL_NO_TLSEXT
2562 #ifndef OPENSSL_NO_EC
2563                 if (
2564                         /* if we are considering an ECC cipher suite that uses our certificate */
2565                         (alg_a & SSL_aECDSA || alg_a & SSL_aECDH)
2566                         /* and we have an ECC certificate */
2567                         && (s->cert->pkeys[SSL_PKEY_ECC].x509 != NULL)
2568                         /* and the client specified a Supported Point Formats extension */
2569                         && ((s->session->tlsext_ecpointformatlist_length > 0) && (s->session->tlsext_ecpointformatlist != NULL))
2570                         /* and our certificate's point is compressed */
2571                         && (
2572                                 (s->cert->pkeys[SSL_PKEY_ECC].x509->cert_info != NULL)
2573                                 && (s->cert->pkeys[SSL_PKEY_ECC].x509->cert_info->key != NULL)
2574                                 && (s->cert->pkeys[SSL_PKEY_ECC].x509->cert_info->key->public_key != NULL)
2575                                 && (s->cert->pkeys[SSL_PKEY_ECC].x509->cert_info->key->public_key->data != NULL)
2576                                 && (
2577                                         (*(s->cert->pkeys[SSL_PKEY_ECC].x509->cert_info->key->public_key->data) == POINT_CONVERSION_COMPRESSED)
2578                                         || (*(s->cert->pkeys[SSL_PKEY_ECC].x509->cert_info->key->public_key->data) == POINT_CONVERSION_COMPRESSED + 1)
2579                                         )
2580                                 )
2581                 )
2582                         {
2583                         ec_ok = 0;
2584                         /* if our certificate's curve is over a field type that the client does not support
2585                          * then do not allow this cipher suite to be negotiated */
2586                         if (
2587                                 (s->cert->pkeys[SSL_PKEY_ECC].privatekey->pkey.ec != NULL)
2588                                 && (s->cert->pkeys[SSL_PKEY_ECC].privatekey->pkey.ec->group != NULL)
2589                                 && (s->cert->pkeys[SSL_PKEY_ECC].privatekey->pkey.ec->group->meth != NULL)
2590                                 && (EC_METHOD_get_field_type(s->cert->pkeys[SSL_PKEY_ECC].privatekey->pkey.ec->group->meth) == NID_X9_62_prime_field)
2591                         )
2592                                 {
2593                                 for (j = 0; j < s->session->tlsext_ecpointformatlist_length; j++)
2594                                         {
2595                                         if (s->session->tlsext_ecpointformatlist[j] == TLSEXT_ECPOINTFORMAT_ansiX962_compressed_prime)
2596                                                 {
2597                                                 ec_ok = 1;
2598                                                 break;
2599                                                 }
2600                                         }
2601                                 }
2602                         else if (EC_METHOD_get_field_type(s->cert->pkeys[SSL_PKEY_ECC].privatekey->pkey.ec->group->meth) == NID_X9_62_characteristic_two_field)
2603                                 {
2604                                 for (j = 0; j < s->session->tlsext_ecpointformatlist_length; j++)
2605                                         {
2606                                         if (s->session->tlsext_ecpointformatlist[j] == TLSEXT_ECPOINTFORMAT_ansiX962_compressed_char2)
2607                                                 {
2608                                                 ec_ok = 1;
2609                                                 break;
2610                                                 }
2611                                         }
2612                                 }
2613                         ok = ok && ec_ok;
2614                         }
2615                 if (
2616                         /* if we are considering an ECC cipher suite that uses our certificate */
2617                         (alg_a & SSL_aECDSA || alg_a & SSL_aECDH)
2618                         /* and we have an ECC certificate */
2619                         && (s->cert->pkeys[SSL_PKEY_ECC].x509 != NULL)
2620                         /* and the client specified an EllipticCurves extension */
2621                         && ((s->session->tlsext_ellipticcurvelist_length > 0) && (s->session->tlsext_ellipticcurvelist != NULL))
2622                 )
2623                         {
2624                         ec_ok = 0;
2625                         if (
2626                                 (s->cert->pkeys[SSL_PKEY_ECC].privatekey->pkey.ec != NULL)
2627                                 && (s->cert->pkeys[SSL_PKEY_ECC].privatekey->pkey.ec->group != NULL)
2628                         )
2629                                 {
2630                                 ec_nid = EC_GROUP_get_curve_name(s->cert->pkeys[SSL_PKEY_ECC].privatekey->pkey.ec->group);
2631                                 if ((ec_nid == 0)
2632                                         && (s->cert->pkeys[SSL_PKEY_ECC].privatekey->pkey.ec->group->meth != NULL)
2633                                 )
2634                                         {
2635                                         if (EC_METHOD_get_field_type(s->cert->pkeys[SSL_PKEY_ECC].privatekey->pkey.ec->group->meth) == NID_X9_62_prime_field)
2636                                                 {
2637                                                 ec_search1 = 0xFF;
2638                                                 ec_search2 = 0x01;
2639                                                 }
2640                                         else if (EC_METHOD_get_field_type(s->cert->pkeys[SSL_PKEY_ECC].privatekey->pkey.ec->group->meth) == NID_X9_62_characteristic_two_field)
2641                                                 {
2642                                                 ec_search1 = 0xFF;
2643                                                 ec_search2 = 0x02;
2644                                                 }
2645                                         }
2646                                 else
2647                                         {
2648                                         ec_search1 = 0x00;
2649                                         ec_search2 = tls1_ec_nid2curve_id(ec_nid);
2650                                         }
2651                                 if ((ec_search1 != 0) || (ec_search2 != 0))
2652                                         {
2653                                         for (j = 0; j < s->session->tlsext_ellipticcurvelist_length / 2; j++)
2654                                                 {
2655                                                 if ((s->session->tlsext_ellipticcurvelist[2*j] == ec_search1) && (s->session->tlsext_ellipticcurvelist[2*j+1] == ec_search2))
2656                                                         {
2657                                                         ec_ok = 1;
2658                                                         break;
2659                                                         }
2660                                                 }
2661                                         }
2662                                 }
2663                         ok = ok && ec_ok;
2664                         }
2665                 if (
2666                         /* if we are considering an ECC cipher suite that uses an ephemeral EC key */
2667                         (alg_k & SSL_kEECDH)
2668                         /* and we have an ephemeral EC key */
2669                         && (s->cert->ecdh_tmp != NULL)
2670                         /* and the client specified an EllipticCurves extension */
2671                         && ((s->session->tlsext_ellipticcurvelist_length > 0) && (s->session->tlsext_ellipticcurvelist != NULL))
2672                 )
2673                         {
2674                         ec_ok = 0;
2675                         if (s->cert->ecdh_tmp->group != NULL)
2676                                 {
2677                                 ec_nid = EC_GROUP_get_curve_name(s->cert->ecdh_tmp->group);
2678                                 if ((ec_nid == 0)
2679                                         && (s->cert->ecdh_tmp->group->meth != NULL)
2680                                 )
2681                                         {
2682                                         if (EC_METHOD_get_field_type(s->cert->ecdh_tmp->group->meth) == NID_X9_62_prime_field)
2683                                                 {
2684                                                 ec_search1 = 0xFF;
2685                                                 ec_search2 = 0x01;
2686                                                 }
2687                                         else if (EC_METHOD_get_field_type(s->cert->ecdh_tmp->group->meth) == NID_X9_62_characteristic_two_field)
2688                                                 {
2689                                                 ec_search1 = 0xFF;
2690                                                 ec_search2 = 0x02;
2691                                                 }
2692                                         }
2693                                 else
2694                                         {
2695                                         ec_search1 = 0x00;
2696                                         ec_search2 = tls1_ec_nid2curve_id(ec_nid);
2697                                         }
2698                                 if ((ec_search1 != 0) || (ec_search2 != 0))
2699                                         {
2700                                         for (j = 0; j < s->session->tlsext_ellipticcurvelist_length / 2; j++)
2701                                                 {
2702                                                 if ((s->session->tlsext_ellipticcurvelist[2*j] == ec_search1) && (s->session->tlsext_ellipticcurvelist[2*j+1] == ec_search2))
2703                                                         {
2704                                                         ec_ok = 1;
2705                                                         break;
2706                                                         }
2707                                                 }
2708                                         }
2709                                 }
2710                         ok = ok && ec_ok;
2711                         }
2712 #endif /* OPENSSL_NO_EC */
2713 #endif /* OPENSSL_NO_TLSEXT */
2714
2715                 if (!ok) continue;
2716                 ii=sk_SSL_CIPHER_find(allow,c);
2717                 if (ii >= 0)
2718                         {
2719                         ret=sk_SSL_CIPHER_value(allow,ii);
2720                         break;
2721                         }
2722                 }
2723         return(ret);
2724         }
2725
2726 int ssl3_get_req_cert_type(SSL *s, unsigned char *p)
2727         {
2728         int ret=0;
2729         unsigned long alg_k;
2730
2731         alg_k = s->s3->tmp.new_cipher->algorithm_mkey;
2732
2733 #ifndef OPENSSL_NO_DH
2734         if (alg_k & (SSL_kDHr|SSL_kEDH))
2735                 {
2736 #  ifndef OPENSSL_NO_RSA
2737                 p[ret++]=SSL3_CT_RSA_FIXED_DH;
2738 #  endif
2739 #  ifndef OPENSSL_NO_DSA
2740                 p[ret++]=SSL3_CT_DSS_FIXED_DH;
2741 #  endif
2742                 }
2743         if ((s->version == SSL3_VERSION) &&
2744                 (alg_k & (SSL_kEDH|SSL_kDHd|SSL_kDHr)))
2745                 {
2746 #  ifndef OPENSSL_NO_RSA
2747                 p[ret++]=SSL3_CT_RSA_EPHEMERAL_DH;
2748 #  endif
2749 #  ifndef OPENSSL_NO_DSA
2750                 p[ret++]=SSL3_CT_DSS_EPHEMERAL_DH;
2751 #  endif
2752                 }
2753 #endif /* !OPENSSL_NO_DH */
2754 #ifndef OPENSSL_NO_RSA
2755         p[ret++]=SSL3_CT_RSA_SIGN;
2756 #endif
2757 #ifndef OPENSSL_NO_DSA
2758         p[ret++]=SSL3_CT_DSS_SIGN;
2759 #endif
2760 #ifndef OPENSSL_NO_ECDH
2761         if ((alg_k & (SSL_kECDHr|SSL_kECDHe)) && (s->version >= TLS1_VERSION))
2762                 {
2763                 p[ret++]=TLS_CT_RSA_FIXED_ECDH;
2764                 p[ret++]=TLS_CT_ECDSA_FIXED_ECDH;
2765                 }
2766 #endif
2767
2768 #ifndef OPENSSL_NO_ECDSA
2769         /* ECDSA certs can be used with RSA cipher suites as well
2770          * so we don't need to check for SSL_kECDH or SSL_kEECDH
2771          */
2772         if (s->version >= TLS1_VERSION)
2773                 {
2774                 p[ret++]=TLS_CT_ECDSA_SIGN;
2775                 }
2776 #endif
2777         return(ret);
2778         }
2779
2780 int ssl3_shutdown(SSL *s)
2781         {
2782
2783         /* Don't do anything much if we have not done the handshake or
2784          * we don't want to send messages :-) */
2785         if ((s->quiet_shutdown) || (s->state == SSL_ST_BEFORE))
2786                 {
2787                 s->shutdown=(SSL_SENT_SHUTDOWN|SSL_RECEIVED_SHUTDOWN);
2788                 return(1);
2789                 }
2790
2791         if (!(s->shutdown & SSL_SENT_SHUTDOWN))
2792                 {
2793                 s->shutdown|=SSL_SENT_SHUTDOWN;
2794 #if 1
2795                 ssl3_send_alert(s,SSL3_AL_WARNING,SSL_AD_CLOSE_NOTIFY);
2796 #endif
2797                 /* our shutdown alert has been sent now, and if it still needs
2798                  * to be written, s->s3->alert_dispatch will be true */
2799                 }
2800         else if (s->s3->alert_dispatch)
2801                 {
2802                 /* resend it if not sent */
2803 #if 1
2804                 s->method->ssl_dispatch_alert(s);
2805 #endif
2806                 }
2807         else if (!(s->shutdown & SSL_RECEIVED_SHUTDOWN))
2808                 {
2809                 /* If we are waiting for a close from our peer, we are closed */
2810                 s->method->ssl_read_bytes(s,0,NULL,0,0);
2811                 }
2812
2813         if ((s->shutdown == (SSL_SENT_SHUTDOWN|SSL_RECEIVED_SHUTDOWN)) &&
2814                 !s->s3->alert_dispatch)
2815                 return(1);
2816         else
2817                 return(0);
2818         }
2819
2820 int ssl3_write(SSL *s, const void *buf, int len)
2821         {
2822         int ret,n;
2823
2824 #if 0
2825         if (s->shutdown & SSL_SEND_SHUTDOWN)
2826                 {
2827                 s->rwstate=SSL_NOTHING;
2828                 return(0);
2829                 }
2830 #endif
2831         clear_sys_error();
2832         if (s->s3->renegotiate) ssl3_renegotiate_check(s);
2833
2834         /* This is an experimental flag that sends the
2835          * last handshake message in the same packet as the first
2836          * use data - used to see if it helps the TCP protocol during
2837          * session-id reuse */
2838         /* The second test is because the buffer may have been removed */
2839         if ((s->s3->flags & SSL3_FLAGS_POP_BUFFER) && (s->wbio == s->bbio))
2840                 {
2841                 /* First time through, we write into the buffer */
2842                 if (s->s3->delay_buf_pop_ret == 0)
2843                         {
2844                         ret=ssl3_write_bytes(s,SSL3_RT_APPLICATION_DATA,
2845                                              buf,len);
2846                         if (ret <= 0) return(ret);
2847
2848                         s->s3->delay_buf_pop_ret=ret;
2849                         }
2850
2851                 s->rwstate=SSL_WRITING;
2852                 n=BIO_flush(s->wbio);
2853                 if (n <= 0) return(n);
2854                 s->rwstate=SSL_NOTHING;
2855
2856                 /* We have flushed the buffer, so remove it */
2857                 ssl_free_wbio_buffer(s);
2858                 s->s3->flags&= ~SSL3_FLAGS_POP_BUFFER;
2859
2860                 ret=s->s3->delay_buf_pop_ret;
2861                 s->s3->delay_buf_pop_ret=0;
2862                 }
2863         else
2864                 {
2865                 ret=s->method->ssl_write_bytes(s,SSL3_RT_APPLICATION_DATA,
2866                         buf,len);
2867                 if (ret <= 0) return(ret);
2868                 }
2869
2870         return(ret);
2871         }
2872
2873 static int ssl3_read_internal(SSL *s, void *buf, int len, int peek)
2874         {
2875         int ret;
2876
2877         clear_sys_error();
2878         if (s->s3->renegotiate) ssl3_renegotiate_check(s);
2879         s->s3->in_read_app_data=1;
2880         ret=s->method->ssl_read_bytes(s,SSL3_RT_APPLICATION_DATA,buf,len,peek);
2881         if ((ret == -1) && (s->s3->in_read_app_data == 2))
2882                 {
2883                 /* ssl3_read_bytes decided to call s->handshake_func, which
2884                  * called ssl3_read_bytes to read handshake data.
2885                  * However, ssl3_read_bytes actually found application data
2886                  * and thinks that application data makes sense here; so disable
2887                  * handshake processing and try to read application data again. */
2888                 s->in_handshake++;
2889                 ret=s->method->ssl_read_bytes(s,SSL3_RT_APPLICATION_DATA,buf,len,peek);
2890                 s->in_handshake--;
2891                 }
2892         else
2893                 s->s3->in_read_app_data=0;
2894
2895         return(ret);
2896         }
2897
2898 int ssl3_read(SSL *s, void *buf, int len)
2899         {
2900         return ssl3_read_internal(s, buf, len, 0);
2901         }
2902
2903 int ssl3_peek(SSL *s, void *buf, int len)
2904         {
2905         return ssl3_read_internal(s, buf, len, 1);
2906         }
2907
2908 int ssl3_renegotiate(SSL *s)
2909         {
2910         if (s->handshake_func == NULL)
2911                 return(1);
2912
2913         if (s->s3->flags & SSL3_FLAGS_NO_RENEGOTIATE_CIPHERS)
2914                 return(0);
2915
2916         s->s3->renegotiate=1;
2917         return(1);
2918         }
2919
2920 int ssl3_renegotiate_check(SSL *s)
2921         {
2922         int ret=0;
2923
2924         if (s->s3->renegotiate)
2925                 {
2926                 if (    (s->s3->rbuf.left == 0) &&
2927                         (s->s3->wbuf.left == 0) &&
2928                         !SSL_in_init(s))
2929                         {
2930 /*
2931 if we are the server, and we have sent a 'RENEGOTIATE' message, we
2932 need to go to SSL_ST_ACCEPT.
2933 */
2934                         /* SSL_ST_ACCEPT */
2935                         s->state=SSL_ST_RENEGOTIATE;
2936                         s->s3->renegotiate=0;
2937                         s->s3->num_renegotiations++;
2938                         s->s3->total_renegotiations++;
2939                         ret=1;
2940                         }
2941                 }
2942         return(ret);
2943         }
2944