1 /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
4 * This package is an SSL implementation written
5 * by Eric Young (eay@cryptsoft.com).
6 * The implementation was written so as to conform with Netscapes SSL.
8 * This library is free for commercial and non-commercial use as long as
9 * the following conditions are aheared to. The following conditions
10 * apply to all code found in this distribution, be it the RC4, RSA,
11 * lhash, DES, etc., code; not just the SSL code. The SSL documentation
12 * included with this distribution is covered by the same copyright terms
13 * except that the holder is Tim Hudson (tjh@cryptsoft.com).
15 * Copyright remains Eric Young's, and as such any Copyright notices in
16 * the code are not to be removed.
17 * If this package is used in a product, Eric Young should be given attribution
18 * as the author of the parts of the library used.
19 * This can be in the form of a textual message at program startup or
20 * in documentation (online or textual) provided with the package.
22 * Redistribution and use in source and binary forms, with or without
23 * modification, are permitted provided that the following conditions
25 * 1. Redistributions of source code must retain the copyright
26 * notice, this list of conditions and the following disclaimer.
27 * 2. Redistributions in binary form must reproduce the above copyright
28 * notice, this list of conditions and the following disclaimer in the
29 * documentation and/or other materials provided with the distribution.
30 * 3. All advertising materials mentioning features or use of this software
31 * must display the following acknowledgement:
32 * "This product includes cryptographic software written by
33 * Eric Young (eay@cryptsoft.com)"
34 * The word 'cryptographic' can be left out if the rouines from the library
35 * being used are not cryptographic related :-).
36 * 4. If you include any Windows specific code (or a derivative thereof) from
37 * the apps directory (application code) you must include an acknowledgement:
38 * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
40 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
41 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
42 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
43 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
44 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
45 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
46 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
47 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
48 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
49 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
52 * The licence and distribution terms for any publically available version or
53 * derivative of this code cannot be changed. i.e. this code cannot simply be
54 * copied and put under another distribution licence
55 * [including the GNU Public Licence.]
57 /* ====================================================================
58 * Copyright (c) 1998-2007 The OpenSSL Project. All rights reserved.
60 * Redistribution and use in source and binary forms, with or without
61 * modification, are permitted provided that the following conditions
64 * 1. Redistributions of source code must retain the above copyright
65 * notice, this list of conditions and the following disclaimer.
67 * 2. Redistributions in binary form must reproduce the above copyright
68 * notice, this list of conditions and the following disclaimer in
69 * the documentation and/or other materials provided with the
72 * 3. All advertising materials mentioning features or use of this
73 * software must display the following acknowledgment:
74 * "This product includes software developed by the OpenSSL Project
75 * for use in the OpenSSL Toolkit. (http://www.openssl.org/)"
77 * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
78 * endorse or promote products derived from this software without
79 * prior written permission. For written permission, please contact
80 * openssl-core@openssl.org.
82 * 5. Products derived from this software may not be called "OpenSSL"
83 * nor may "OpenSSL" appear in their names without prior written
84 * permission of the OpenSSL Project.
86 * 6. Redistributions of any form whatsoever must retain the following
88 * "This product includes software developed by the OpenSSL Project
89 * for use in the OpenSSL Toolkit (http://www.openssl.org/)"
91 * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
92 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
93 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
94 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR
95 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
96 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
97 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
98 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
99 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
100 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
101 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
102 * OF THE POSSIBILITY OF SUCH DAMAGE.
103 * ====================================================================
105 * This product includes cryptographic software written by Eric Young
106 * (eay@cryptsoft.com). This product includes software written by Tim
107 * Hudson (tjh@cryptsoft.com).
110 /* ====================================================================
111 * Copyright 2005 Nokia. All rights reserved.
113 * The portions of the attached software ("Contribution") is developed by
114 * Nokia Corporation and is licensed pursuant to the OpenSSL open source
117 * The Contribution, originally written by Mika Kousa and Pasi Eronen of
118 * Nokia Corporation, consists of the "PSK" (Pre-Shared Key) ciphersuites
119 * support (see RFC 4279) to OpenSSL.
121 * No patent licenses or other rights except those expressly stated in
122 * the OpenSSL open source license shall be deemed granted or received
123 * expressly, by implication, estoppel, or otherwise.
125 * No assurances are provided by Nokia that the Contribution does not
126 * infringe the patent or other intellectual property rights of any third
127 * party or that the license provides you with all the necessary rights
128 * to make use of the Contribution.
130 * THE SOFTWARE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. IN
131 * ADDITION TO THE DISCLAIMERS INCLUDED IN THE LICENSE, NOKIA
132 * SPECIFICALLY DISCLAIMS ANY LIABILITY FOR CLAIMS BROUGHT BY YOU OR ANY
133 * OTHER ENTITY BASED ON INFRINGEMENT OF INTELLECTUAL PROPERTY RIGHTS OR
138 #include "ssl_locl.h"
139 #include <openssl/evp.h>
140 #include <openssl/md5.h>
142 static int ssl3_generate_key_block(SSL *s, unsigned char *km, int num)
146 unsigned char buf[16], smd[SHA_DIGEST_LENGTH];
147 unsigned char c = 'A';
148 unsigned int i, j, k;
151 #ifdef CHARSET_EBCDIC
152 c = os_toascii[c]; /* 'A' in ASCII */
155 m5 = EVP_MD_CTX_new();
156 s1 = EVP_MD_CTX_new();
157 if (m5 == NULL || s1 == NULL) {
158 SSLerr(SSL_F_SSL3_GENERATE_KEY_BLOCK, ERR_R_MALLOC_FAILURE);
161 EVP_MD_CTX_set_flags(m5, EVP_MD_CTX_FLAG_NON_FIPS_ALLOW);
162 for (i = 0; (int)i < num; i += MD5_DIGEST_LENGTH) {
164 if (k > sizeof buf) {
165 /* bug: 'buf' is too small for this ciphersuite */
166 SSLerr(SSL_F_SSL3_GENERATE_KEY_BLOCK, ERR_R_INTERNAL_ERROR);
170 for (j = 0; j < k; j++)
173 EVP_DigestInit_ex(s1, EVP_sha1(), NULL);
174 EVP_DigestUpdate(s1, buf, k);
175 EVP_DigestUpdate(s1, s->session->master_key,
176 s->session->master_key_length);
177 EVP_DigestUpdate(s1, s->s3->server_random, SSL3_RANDOM_SIZE);
178 EVP_DigestUpdate(s1, s->s3->client_random, SSL3_RANDOM_SIZE);
179 EVP_DigestFinal_ex(s1, smd, NULL);
181 EVP_DigestInit_ex(m5, EVP_md5(), NULL);
182 EVP_DigestUpdate(m5, s->session->master_key,
183 s->session->master_key_length);
184 EVP_DigestUpdate(m5, smd, SHA_DIGEST_LENGTH);
185 if ((int)(i + MD5_DIGEST_LENGTH) > num) {
186 EVP_DigestFinal_ex(m5, smd, NULL);
187 memcpy(km, smd, (num - i));
189 EVP_DigestFinal_ex(m5, km, NULL);
191 km += MD5_DIGEST_LENGTH;
193 OPENSSL_cleanse(smd, sizeof(smd));
201 int ssl3_change_cipher_state(SSL *s, int which)
203 unsigned char *p, *mac_secret;
204 unsigned char exp_key[EVP_MAX_KEY_LENGTH];
205 unsigned char exp_iv[EVP_MAX_IV_LENGTH];
206 unsigned char *ms, *key, *iv;
209 #ifndef OPENSSL_NO_COMP
216 c = s->s3->tmp.new_sym_enc;
217 m = s->s3->tmp.new_hash;
218 /* m == NULL will lead to a crash later */
220 #ifndef OPENSSL_NO_COMP
221 if (s->s3->tmp.new_compression == NULL)
224 comp = s->s3->tmp.new_compression->method;
227 if (which & SSL3_CC_READ) {
228 if (s->enc_read_ctx != NULL)
230 else if ((s->enc_read_ctx = EVP_CIPHER_CTX_new()) == NULL)
234 * make sure it's intialized in case we exit later with an error
236 EVP_CIPHER_CTX_reset(s->enc_read_ctx);
237 dd = s->enc_read_ctx;
239 if (ssl_replace_hash(&s->read_hash, m) == NULL) {
240 SSLerr(SSL_F_SSL3_CHANGE_CIPHER_STATE, ERR_R_INTERNAL_ERROR);
243 #ifndef OPENSSL_NO_COMP
245 COMP_CTX_free(s->expand);
248 s->expand = COMP_CTX_new(comp);
249 if (s->expand == NULL) {
250 SSLerr(SSL_F_SSL3_CHANGE_CIPHER_STATE,
251 SSL_R_COMPRESSION_LIBRARY_ERROR);
254 if (!RECORD_LAYER_setup_comp_buffer(&s->rlayer))
258 RECORD_LAYER_reset_read_sequence(&s->rlayer);
259 mac_secret = &(s->s3->read_mac_secret[0]);
261 if (s->enc_write_ctx != NULL)
263 else if ((s->enc_write_ctx = EVP_CIPHER_CTX_new()) == NULL)
267 * make sure it's intialized in case we exit later with an error
269 EVP_CIPHER_CTX_reset(s->enc_write_ctx);
270 dd = s->enc_write_ctx;
271 if (ssl_replace_hash(&s->write_hash, m) == NULL) {
272 SSLerr(SSL_F_SSL3_CHANGE_CIPHER_STATE, ERR_R_INTERNAL_ERROR);
275 #ifndef OPENSSL_NO_COMP
277 COMP_CTX_free(s->compress);
280 s->compress = COMP_CTX_new(comp);
281 if (s->compress == NULL) {
282 SSLerr(SSL_F_SSL3_CHANGE_CIPHER_STATE,
283 SSL_R_COMPRESSION_LIBRARY_ERROR);
288 RECORD_LAYER_reset_write_sequence(&s->rlayer);
289 mac_secret = &(s->s3->write_mac_secret[0]);
293 EVP_CIPHER_CTX_reset(dd);
295 p = s->s3->tmp.key_block;
299 cl = EVP_CIPHER_key_length(c);
301 k = EVP_CIPHER_iv_length(c);
302 if ((which == SSL3_CHANGE_CIPHER_CLIENT_WRITE) ||
303 (which == SSL3_CHANGE_CIPHER_SERVER_READ)) {
320 if (n > s->s3->tmp.key_block_length) {
321 SSLerr(SSL_F_SSL3_CHANGE_CIPHER_STATE, ERR_R_INTERNAL_ERROR);
325 memcpy(mac_secret, ms, i);
327 EVP_CipherInit_ex(dd, c, NULL, key, iv, (which & SSL3_CC_WRITE));
329 #ifdef OPENSSL_SSL_TRACE_CRYPTO
330 if (s->msg_callback) {
332 int wh = which & SSL3_CC_WRITE ?
333 TLS1_RT_CRYPTO_WRITE : TLS1_RT_CRYPTO_READ;
334 s->msg_callback(2, s->version, wh | TLS1_RT_CRYPTO_MAC,
335 mac_secret, EVP_MD_size(m), s, s->msg_callback_arg);
337 s->msg_callback(2, s->version, wh | TLS1_RT_CRYPTO_KEY,
338 key, c->key_len, s, s->msg_callback_arg);
340 s->msg_callback(2, s->version, wh | TLS1_RT_CRYPTO_IV,
341 iv, k, s, s->msg_callback_arg);
346 OPENSSL_cleanse(exp_key, sizeof(exp_key));
347 OPENSSL_cleanse(exp_iv, sizeof(exp_iv));
350 SSLerr(SSL_F_SSL3_CHANGE_CIPHER_STATE, ERR_R_MALLOC_FAILURE);
352 OPENSSL_cleanse(exp_key, sizeof(exp_key));
353 OPENSSL_cleanse(exp_iv, sizeof(exp_iv));
357 int ssl3_setup_key_block(SSL *s)
366 if (s->s3->tmp.key_block_length != 0)
369 if (!ssl_cipher_get_evp(s->session, &c, &hash, NULL, NULL, &comp, 0)) {
370 SSLerr(SSL_F_SSL3_SETUP_KEY_BLOCK, SSL_R_CIPHER_OR_HASH_UNAVAILABLE);
374 s->s3->tmp.new_sym_enc = c;
375 s->s3->tmp.new_hash = hash;
376 #ifdef OPENSSL_NO_COMP
377 s->s3->tmp.new_compression = NULL;
379 s->s3->tmp.new_compression = comp;
382 num = EVP_MD_size(hash);
386 num = EVP_CIPHER_key_length(c) + num + EVP_CIPHER_iv_length(c);
389 ssl3_cleanup_key_block(s);
391 if ((p = OPENSSL_malloc(num)) == NULL)
394 s->s3->tmp.key_block_length = num;
395 s->s3->tmp.key_block = p;
397 ret = ssl3_generate_key_block(s, p, num);
399 if (!(s->options & SSL_OP_DONT_INSERT_EMPTY_FRAGMENTS)) {
401 * enable vulnerability countermeasure for CBC ciphers with known-IV
402 * problem (http://www.openssl.org/~bodo/tls-cbc.txt)
404 s->s3->need_empty_fragments = 1;
406 if (s->session->cipher != NULL) {
407 if (s->session->cipher->algorithm_enc == SSL_eNULL)
408 s->s3->need_empty_fragments = 0;
410 #ifndef OPENSSL_NO_RC4
411 if (s->session->cipher->algorithm_enc == SSL_RC4)
412 s->s3->need_empty_fragments = 0;
420 SSLerr(SSL_F_SSL3_SETUP_KEY_BLOCK, ERR_R_MALLOC_FAILURE);
424 void ssl3_cleanup_key_block(SSL *s)
426 OPENSSL_clear_free(s->s3->tmp.key_block, s->s3->tmp.key_block_length);
427 s->s3->tmp.key_block = NULL;
428 s->s3->tmp.key_block_length = 0;
431 void ssl3_init_finished_mac(SSL *s)
433 ssl3_free_digest_list(s);
434 s->s3->handshake_buffer = BIO_new(BIO_s_mem());
435 (void)BIO_set_close(s->s3->handshake_buffer, BIO_CLOSE);
439 * Free digest list. Also frees handshake buffer since they are always freed
443 void ssl3_free_digest_list(SSL *s)
445 BIO_free(s->s3->handshake_buffer);
446 s->s3->handshake_buffer = NULL;
447 EVP_MD_CTX_free(s->s3->handshake_dgst);
448 s->s3->handshake_dgst = NULL;
451 void ssl3_finish_mac(SSL *s, const unsigned char *buf, int len)
453 if (s->s3->handshake_dgst == NULL)
454 BIO_write(s->s3->handshake_buffer, (void *)buf, len);
456 EVP_DigestUpdate(s->s3->handshake_dgst, buf, len);
459 int ssl3_digest_cached_records(SSL *s, int keep)
465 if (s->s3->handshake_dgst == NULL) {
466 hdatalen = BIO_get_mem_data(s->s3->handshake_buffer, &hdata);
468 SSLerr(SSL_F_SSL3_DIGEST_CACHED_RECORDS, SSL_R_BAD_HANDSHAKE_LENGTH);
472 s->s3->handshake_dgst = EVP_MD_CTX_new();
473 if (s->s3->handshake_dgst == NULL) {
474 SSLerr(SSL_F_SSL3_DIGEST_CACHED_RECORDS, ERR_R_MALLOC_FAILURE);
478 md = ssl_handshake_md(s);
480 SSLerr(SSL_F_SSL3_DIGEST_CACHED_RECORDS, ERR_R_INTERNAL_ERROR);
484 EVP_DigestInit_ex(s->s3->handshake_dgst, md, NULL);
485 EVP_DigestUpdate(s->s3->handshake_dgst, hdata, hdatalen);
489 BIO_free(s->s3->handshake_buffer);
490 s->s3->handshake_buffer = NULL;
496 int ssl3_final_finish_mac(SSL *s, const char *sender, int len, unsigned char *p)
499 EVP_MD_CTX *ctx = NULL;
501 if (!ssl3_digest_cached_records(s, 0))
504 if (EVP_MD_CTX_type(s->s3->handshake_dgst) != NID_md5_sha1) {
505 SSLerr(SSL_F_SSL3_FINAL_FINISH_MAC, SSL_R_NO_REQUIRED_DIGEST);
509 ctx = EVP_MD_CTX_new();
511 SSLerr(SSL_F_SSL3_FINAL_FINISH_MAC, ERR_R_MALLOC_FAILURE);
514 EVP_MD_CTX_copy_ex(ctx, s->s3->handshake_dgst);
516 ret = EVP_MD_CTX_size(ctx);
518 EVP_MD_CTX_reset(ctx);
522 if ((sender != NULL && EVP_DigestUpdate(ctx, sender, len) <= 0)
523 || EVP_MD_CTX_ctrl(ctx, EVP_CTRL_SSL3_MASTER_SECRET,
524 s->session->master_key_length,
525 s->session->master_key) <= 0
526 || EVP_DigestFinal_ex(ctx, p, NULL) <= 0) {
527 SSLerr(SSL_F_SSL3_FINAL_FINISH_MAC, ERR_R_INTERNAL_ERROR);
531 EVP_MD_CTX_free(ctx);
536 int ssl3_generate_master_secret(SSL *s, unsigned char *out, unsigned char *p,
539 static const unsigned char *salt[3] = {
540 #ifndef CHARSET_EBCDIC
541 (const unsigned char *)"A",
542 (const unsigned char *)"BB",
543 (const unsigned char *)"CCC",
545 (const unsigned char *)"\x41",
546 (const unsigned char *)"\x42\x42",
547 (const unsigned char *)"\x43\x43\x43",
550 unsigned char buf[EVP_MAX_MD_SIZE];
551 EVP_MD_CTX *ctx = EVP_MD_CTX_new();
554 #ifdef OPENSSL_SSL_TRACE_CRYPTO
555 unsigned char *tmpout = out;
559 SSLerr(SSL_F_SSL3_GENERATE_MASTER_SECRET, ERR_R_MALLOC_FAILURE);
562 for (i = 0; i < 3; i++) {
563 if (EVP_DigestInit_ex(ctx, s->ctx->sha1, NULL) <= 0
564 || EVP_DigestUpdate(ctx, salt[i],
565 strlen((const char *)salt[i])) <= 0
566 || EVP_DigestUpdate(ctx, p, len) <= 0
567 || EVP_DigestUpdate(ctx, &(s->s3->client_random[0]),
568 SSL3_RANDOM_SIZE) <= 0
569 || EVP_DigestUpdate(ctx, &(s->s3->server_random[0]),
570 SSL3_RANDOM_SIZE) <= 0
571 || EVP_DigestFinal_ex(ctx, buf, &n) <= 0
573 || EVP_DigestInit_ex(ctx, s->ctx->md5, NULL) <= 0
574 || EVP_DigestUpdate(ctx, p, len) <= 0
575 || EVP_DigestUpdate(ctx, buf, n) <= 0
576 || EVP_DigestFinal_ex(ctx, out, &n) <= 0) {
577 SSLerr(SSL_F_SSL3_GENERATE_MASTER_SECRET, ERR_R_INTERNAL_ERROR);
584 EVP_MD_CTX_free(ctx);
586 #ifdef OPENSSL_SSL_TRACE_CRYPTO
587 if (ret > 0 && s->msg_callback) {
588 s->msg_callback(2, s->version, TLS1_RT_CRYPTO_PREMASTER,
589 p, len, s, s->msg_callback_arg);
590 s->msg_callback(2, s->version, TLS1_RT_CRYPTO_CLIENT_RANDOM,
591 s->s3->client_random, SSL3_RANDOM_SIZE,
592 s, s->msg_callback_arg);
593 s->msg_callback(2, s->version, TLS1_RT_CRYPTO_SERVER_RANDOM,
594 s->s3->server_random, SSL3_RANDOM_SIZE,
595 s, s->msg_callback_arg);
596 s->msg_callback(2, s->version, TLS1_RT_CRYPTO_MASTER,
597 tmpout, SSL3_MASTER_SECRET_SIZE,
598 s, s->msg_callback_arg);
601 OPENSSL_cleanse(buf, sizeof(buf));
605 int ssl3_alert_code(int code)
608 case SSL_AD_CLOSE_NOTIFY:
609 return (SSL3_AD_CLOSE_NOTIFY);
610 case SSL_AD_UNEXPECTED_MESSAGE:
611 return (SSL3_AD_UNEXPECTED_MESSAGE);
612 case SSL_AD_BAD_RECORD_MAC:
613 return (SSL3_AD_BAD_RECORD_MAC);
614 case SSL_AD_DECRYPTION_FAILED:
615 return (SSL3_AD_BAD_RECORD_MAC);
616 case SSL_AD_RECORD_OVERFLOW:
617 return (SSL3_AD_BAD_RECORD_MAC);
618 case SSL_AD_DECOMPRESSION_FAILURE:
619 return (SSL3_AD_DECOMPRESSION_FAILURE);
620 case SSL_AD_HANDSHAKE_FAILURE:
621 return (SSL3_AD_HANDSHAKE_FAILURE);
622 case SSL_AD_NO_CERTIFICATE:
623 return (SSL3_AD_NO_CERTIFICATE);
624 case SSL_AD_BAD_CERTIFICATE:
625 return (SSL3_AD_BAD_CERTIFICATE);
626 case SSL_AD_UNSUPPORTED_CERTIFICATE:
627 return (SSL3_AD_UNSUPPORTED_CERTIFICATE);
628 case SSL_AD_CERTIFICATE_REVOKED:
629 return (SSL3_AD_CERTIFICATE_REVOKED);
630 case SSL_AD_CERTIFICATE_EXPIRED:
631 return (SSL3_AD_CERTIFICATE_EXPIRED);
632 case SSL_AD_CERTIFICATE_UNKNOWN:
633 return (SSL3_AD_CERTIFICATE_UNKNOWN);
634 case SSL_AD_ILLEGAL_PARAMETER:
635 return (SSL3_AD_ILLEGAL_PARAMETER);
636 case SSL_AD_UNKNOWN_CA:
637 return (SSL3_AD_BAD_CERTIFICATE);
638 case SSL_AD_ACCESS_DENIED:
639 return (SSL3_AD_HANDSHAKE_FAILURE);
640 case SSL_AD_DECODE_ERROR:
641 return (SSL3_AD_HANDSHAKE_FAILURE);
642 case SSL_AD_DECRYPT_ERROR:
643 return (SSL3_AD_HANDSHAKE_FAILURE);
644 case SSL_AD_EXPORT_RESTRICTION:
645 return (SSL3_AD_HANDSHAKE_FAILURE);
646 case SSL_AD_PROTOCOL_VERSION:
647 return (SSL3_AD_HANDSHAKE_FAILURE);
648 case SSL_AD_INSUFFICIENT_SECURITY:
649 return (SSL3_AD_HANDSHAKE_FAILURE);
650 case SSL_AD_INTERNAL_ERROR:
651 return (SSL3_AD_HANDSHAKE_FAILURE);
652 case SSL_AD_USER_CANCELLED:
653 return (SSL3_AD_HANDSHAKE_FAILURE);
654 case SSL_AD_NO_RENEGOTIATION:
655 return (-1); /* Don't send it :-) */
656 case SSL_AD_UNSUPPORTED_EXTENSION:
657 return (SSL3_AD_HANDSHAKE_FAILURE);
658 case SSL_AD_CERTIFICATE_UNOBTAINABLE:
659 return (SSL3_AD_HANDSHAKE_FAILURE);
660 case SSL_AD_UNRECOGNIZED_NAME:
661 return (SSL3_AD_HANDSHAKE_FAILURE);
662 case SSL_AD_BAD_CERTIFICATE_STATUS_RESPONSE:
663 return (SSL3_AD_HANDSHAKE_FAILURE);
664 case SSL_AD_BAD_CERTIFICATE_HASH_VALUE:
665 return (SSL3_AD_HANDSHAKE_FAILURE);
666 case SSL_AD_UNKNOWN_PSK_IDENTITY:
667 return (TLS1_AD_UNKNOWN_PSK_IDENTITY);
668 case SSL_AD_INAPPROPRIATE_FALLBACK:
669 return (TLS1_AD_INAPPROPRIATE_FALLBACK);
670 case SSL_AD_NO_APPLICATION_PROTOCOL:
671 return (TLS1_AD_NO_APPLICATION_PROTOCOL);