/src/openssl111/ssl/s3_enc.c

Source (jump to first uncovered line)
/*
 * Copyright 1995-2022 The OpenSSL Project Authors. All Rights Reserved.
 * Copyright 2005 Nokia. All rights reserved.
 *
 * Licensed under the OpenSSL license (the "License").  You may not use
 * this file except in compliance with the License.  You can obtain a copy
 * in the file LICENSE in the source distribution or at
 * https://www.openssl.org/source/license.html
 */

#include <stdio.h>
#include "ssl_local.h"
#include <openssl/evp.h>
#include <openssl/md5.h>
#include "internal/cryptlib.h"

static int ssl3_generate_key_block(SSL *s, unsigned char *km, int num)
{
    EVP_MD_CTX *m5;
    EVP_MD_CTX *s1;
    unsigned char buf[16], smd[SHA_DIGEST_LENGTH];
    unsigned char c = 'A';
    unsigned int i, j, k;
    int ret = 0;

#ifdef CHARSET_EBCDIC
    c = os_toascii[c];          /* 'A' in ASCII */
#endif
    k = 0;
    m5 = EVP_MD_CTX_new();
    s1 = EVP_MD_CTX_new();
    if (m5 == NULL || s1 == NULL) {
        SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_GENERATE_KEY_BLOCK,
                 ERR_R_MALLOC_FAILURE);
        goto err;
    }
    EVP_MD_CTX_set_flags(m5, EVP_MD_CTX_FLAG_NON_FIPS_ALLOW);
    for (i = 0; (int)i < num; i += MD5_DIGEST_LENGTH) {
        k++;
        if (k > sizeof(buf)) {
            /* bug: 'buf' is too small for this ciphersuite */
            SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_GENERATE_KEY_BLOCK,
                     ERR_R_INTERNAL_ERROR);
            goto err;
        }

        for (j = 0; j < k; j++)
            buf[j] = c;
        c++;
        if (!EVP_DigestInit_ex(s1, EVP_sha1(), NULL)
            || !EVP_DigestUpdate(s1, buf, k)
            || !EVP_DigestUpdate(s1, s->session->master_key,
                                 s->session->master_key_length)
            || !EVP_DigestUpdate(s1, s->s3->server_random, SSL3_RANDOM_SIZE)
            || !EVP_DigestUpdate(s1, s->s3->client_random, SSL3_RANDOM_SIZE)
            || !EVP_DigestFinal_ex(s1, smd, NULL)
            || !EVP_DigestInit_ex(m5, EVP_md5(), NULL)
            || !EVP_DigestUpdate(m5, s->session->master_key,
                                 s->session->master_key_length)
            || !EVP_DigestUpdate(m5, smd, SHA_DIGEST_LENGTH)) {
            SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_GENERATE_KEY_BLOCK,
                     ERR_R_INTERNAL_ERROR);
            goto err;
        }
        if ((int)(i + MD5_DIGEST_LENGTH) > num) {
            if (!EVP_DigestFinal_ex(m5, smd, NULL)) {
                SSLfatal(s, SSL_AD_INTERNAL_ERROR,
                         SSL_F_SSL3_GENERATE_KEY_BLOCK, ERR_R_INTERNAL_ERROR);
                goto err;
            }
            memcpy(km, smd, (num - i));
        } else {
            if (!EVP_DigestFinal_ex(m5, km, NULL)) {
                SSLfatal(s, SSL_AD_INTERNAL_ERROR,
                         SSL_F_SSL3_GENERATE_KEY_BLOCK, ERR_R_INTERNAL_ERROR);
                goto err;
            }
        }

        km += MD5_DIGEST_LENGTH;
    }
    OPENSSL_cleanse(smd, sizeof(smd));
    ret = 1;
 err:
    EVP_MD_CTX_free(m5);
    EVP_MD_CTX_free(s1);
    return ret;
}

int ssl3_change_cipher_state(SSL *s, int which)
{
    unsigned char *p, *mac_secret;
    unsigned char *ms, *key, *iv;
    EVP_CIPHER_CTX *dd;
    const EVP_CIPHER *c;
#ifndef OPENSSL_NO_COMP
    COMP_METHOD *comp;
#endif
    const EVP_MD *m;
    int mdi;
    size_t n, i, j, k, cl;
    int reuse_dd = 0;

    c = s->s3->tmp.new_sym_enc;
    m = s->s3->tmp.new_hash;
    /* m == NULL will lead to a crash later */
    if (!ossl_assert(m != NULL)) {
        SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_CHANGE_CIPHER_STATE,
                 ERR_R_INTERNAL_ERROR);
        goto err;
    }
#ifndef OPENSSL_NO_COMP
    if (s->s3->tmp.new_compression == NULL)
        comp = NULL;
    else
        comp = s->s3->tmp.new_compression->method;
#endif

    if (which & SSL3_CC_READ) {
        if (s->enc_read_ctx != NULL) {
            reuse_dd = 1;
        } else if ((s->enc_read_ctx = EVP_CIPHER_CTX_new()) == NULL) {
            SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_CHANGE_CIPHER_STATE,
                     ERR_R_MALLOC_FAILURE);
            goto err;
        } else {
            /*
             * make sure it's initialised in case we exit later with an error
             */
            EVP_CIPHER_CTX_reset(s->enc_read_ctx);
        }
        dd = s->enc_read_ctx;

        if (ssl_replace_hash(&s->read_hash, m) == NULL) {
            SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_CHANGE_CIPHER_STATE,
                     ERR_R_INTERNAL_ERROR);
            goto err;
        }
#ifndef OPENSSL_NO_COMP
        /* COMPRESS */
        COMP_CTX_free(s->expand);
        s->expand = NULL;
        if (comp != NULL) {
            s->expand = COMP_CTX_new(comp);
            if (s->expand == NULL) {
                SSLfatal(s, SSL_AD_INTERNAL_ERROR,
                         SSL_F_SSL3_CHANGE_CIPHER_STATE,
                         SSL_R_COMPRESSION_LIBRARY_ERROR);
                goto err;
            }
        }
#endif
        RECORD_LAYER_reset_read_sequence(&s->rlayer);
        mac_secret = &(s->s3->read_mac_secret[0]);
    } else {
        s->statem.enc_write_state = ENC_WRITE_STATE_INVALID;
        if (s->enc_write_ctx != NULL) {
            reuse_dd = 1;
        } else if ((s->enc_write_ctx = EVP_CIPHER_CTX_new()) == NULL) {
            SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_CHANGE_CIPHER_STATE,
                     ERR_R_MALLOC_FAILURE);
            goto err;
        } else {
            /*
             * make sure it's initialised in case we exit later with an error
             */
            EVP_CIPHER_CTX_reset(s->enc_write_ctx);
        }
        dd = s->enc_write_ctx;
        if (ssl_replace_hash(&s->write_hash, m) == NULL) {
            SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_CHANGE_CIPHER_STATE,
                     ERR_R_MALLOC_FAILURE);
            goto err;
        }
#ifndef OPENSSL_NO_COMP
        /* COMPRESS */
        COMP_CTX_free(s->compress);
        s->compress = NULL;
        if (comp != NULL) {
            s->compress = COMP_CTX_new(comp);
            if (s->compress == NULL) {
                SSLfatal(s, SSL_AD_INTERNAL_ERROR,
                         SSL_F_SSL3_CHANGE_CIPHER_STATE,
                         SSL_R_COMPRESSION_LIBRARY_ERROR);
                goto err;
            }
        }
#endif
        RECORD_LAYER_reset_write_sequence(&s->rlayer);
        mac_secret = &(s->s3->write_mac_secret[0]);
    }

    if (reuse_dd)
        EVP_CIPHER_CTX_reset(dd);

    p = s->s3->tmp.key_block;
    mdi = EVP_MD_size(m);
    if (mdi < 0) {
        SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_CHANGE_CIPHER_STATE,
                 ERR_R_INTERNAL_ERROR);
        goto err;
    }
    i = mdi;
    cl = EVP_CIPHER_key_length(c);
    j = cl;
    k = EVP_CIPHER_iv_length(c);
    if ((which == SSL3_CHANGE_CIPHER_CLIENT_WRITE) ||
        (which == SSL3_CHANGE_CIPHER_SERVER_READ)) {
        ms = &(p[0]);
        n = i + i;
        key = &(p[n]);
        n += j + j;
        iv = &(p[n]);
        n += k + k;
    } else {
        n = i;
        ms = &(p[n]);
        n += i + j;
        key = &(p[n]);
        n += j + k;
        iv = &(p[n]);
        n += k;
    }

    if (n > s->s3->tmp.key_block_length) {
        SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_CHANGE_CIPHER_STATE,
                 ERR_R_INTERNAL_ERROR);
        goto err;
    }

    memcpy(mac_secret, ms, i);

    if (!EVP_CipherInit_ex(dd, c, NULL, key, iv, (which & SSL3_CC_WRITE))) {
        SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_CHANGE_CIPHER_STATE,
                 ERR_R_INTERNAL_ERROR);
        goto err;
    }

    s->statem.enc_write_state = ENC_WRITE_STATE_VALID;
    return 1;
 err:
    return 0;
}

int ssl3_setup_key_block(SSL *s)
{
    unsigned char *p;
    const EVP_CIPHER *c;
    const EVP_MD *hash;
    int num;
    int ret = 0;
    SSL_COMP *comp;

    if (s->s3->tmp.key_block_length != 0)
        return 1;

    if (!ssl_cipher_get_evp(s->session, &c, &hash, NULL, NULL, &comp, 0)) {
        SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_SETUP_KEY_BLOCK,
                 SSL_R_CIPHER_OR_HASH_UNAVAILABLE);
        return 0;
    }

    s->s3->tmp.new_sym_enc = c;
    s->s3->tmp.new_hash = hash;
#ifdef OPENSSL_NO_COMP
    s->s3->tmp.new_compression = NULL;
#else
    s->s3->tmp.new_compression = comp;
#endif

    num = EVP_MD_size(hash);
    if (num < 0)
        return 0;

    num = EVP_CIPHER_key_length(c) + num + EVP_CIPHER_iv_length(c);
    num *= 2;

    ssl3_cleanup_key_block(s);

    if ((p = OPENSSL_malloc(num)) == NULL) {
        SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_SETUP_KEY_BLOCK,
                 ERR_R_MALLOC_FAILURE);
        return 0;
    }

    s->s3->tmp.key_block_length = num;
    s->s3->tmp.key_block = p;

    /* Calls SSLfatal() as required */
    ret = ssl3_generate_key_block(s, p, num);

    if (!(s->options & SSL_OP_DONT_INSERT_EMPTY_FRAGMENTS)) {
        /*
         * enable vulnerability countermeasure for CBC ciphers with known-IV
         * problem (http://www.openssl.org/~bodo/tls-cbc.txt)
         */
        s->s3->need_empty_fragments = 1;

        if (s->session->cipher != NULL) {
            if (s->session->cipher->algorithm_enc == SSL_eNULL)
                s->s3->need_empty_fragments = 0;

#ifndef OPENSSL_NO_RC4
            if (s->session->cipher->algorithm_enc == SSL_RC4)
                s->s3->need_empty_fragments = 0;
#endif
        }
    }

    return ret;
}

void ssl3_cleanup_key_block(SSL *s)
{
    OPENSSL_clear_free(s->s3->tmp.key_block, s->s3->tmp.key_block_length);
    s->s3->tmp.key_block = NULL;
    s->s3->tmp.key_block_length = 0;
}

int ssl3_init_finished_mac(SSL *s)
{
    BIO *buf = BIO_new(BIO_s_mem());

    if (buf == NULL) {
        SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_INIT_FINISHED_MAC,
                 ERR_R_MALLOC_FAILURE);
        return 0;
    }
    ssl3_free_digest_list(s);
    s->s3->handshake_buffer = buf;
    (void)BIO_set_close(s->s3->handshake_buffer, BIO_CLOSE);
    return 1;
}

/*
 * Free digest list. Also frees handshake buffer since they are always freed
 * together.
 */

void ssl3_free_digest_list(SSL *s)
{
    BIO_free(s->s3->handshake_buffer);
    s->s3->handshake_buffer = NULL;
    EVP_MD_CTX_free(s->s3->handshake_dgst);
    s->s3->handshake_dgst = NULL;
}

int ssl3_finish_mac(SSL *s, const unsigned char *buf, size_t len)
{
    int ret;

    if (s->s3->handshake_dgst == NULL) {
        /* Note: this writes to a memory BIO so a failure is a fatal error */
        if (len > INT_MAX) {
            SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_FINISH_MAC,
                     SSL_R_OVERFLOW_ERROR);
            return 0;
        }
        ret = BIO_write(s->s3->handshake_buffer, (void *)buf, (int)len);
        if (ret <= 0 || ret != (int)len) {
            SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_FINISH_MAC,
                     ERR_R_INTERNAL_ERROR);
            return 0;
        }
    } else {
        ret = EVP_DigestUpdate(s->s3->handshake_dgst, buf, len);
        if (!ret) {
            SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_FINISH_MAC,
                     ERR_R_INTERNAL_ERROR);
            return 0;
        }
    }
    return 1;
}

int ssl3_digest_cached_records(SSL *s, int keep)
{
    const EVP_MD *md;
    long hdatalen;
    void *hdata;

    if (s->s3->handshake_dgst == NULL) {
        hdatalen = BIO_get_mem_data(s->s3->handshake_buffer, &hdata);
        if (hdatalen <= 0) {
            SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_DIGEST_CACHED_RECORDS,
                     SSL_R_BAD_HANDSHAKE_LENGTH);
            return 0;
        }

        s->s3->handshake_dgst = EVP_MD_CTX_new();
        if (s->s3->handshake_dgst == NULL) {
            SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_DIGEST_CACHED_RECORDS,
                     ERR_R_MALLOC_FAILURE);
            return 0;
        }

        md = ssl_handshake_md(s);
        if (md == NULL || !EVP_DigestInit_ex(s->s3->handshake_dgst, md, NULL)
            || !EVP_DigestUpdate(s->s3->handshake_dgst, hdata, hdatalen)) {
            SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_DIGEST_CACHED_RECORDS,
                     ERR_R_INTERNAL_ERROR);
            return 0;
        }
    }
    if (keep == 0) {
        BIO_free(s->s3->handshake_buffer);
        s->s3->handshake_buffer = NULL;
    }

    return 1;
}

size_t ssl3_final_finish_mac(SSL *s, const char *sender, size_t len,
                             unsigned char *p)
{
    int ret;
    EVP_MD_CTX *ctx = NULL;

    if (!ssl3_digest_cached_records(s, 0)) {
        /* SSLfatal() already called */
        return 0;
    }

    if (EVP_MD_CTX_type(s->s3->handshake_dgst) != NID_md5_sha1) {
        SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_FINAL_FINISH_MAC,
                 SSL_R_NO_REQUIRED_DIGEST);
        return 0;
    }

    ctx = EVP_MD_CTX_new();
    if (ctx == NULL) {
        SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_FINAL_FINISH_MAC,
                 ERR_R_MALLOC_FAILURE);
        return 0;
    }
    if (!EVP_MD_CTX_copy_ex(ctx, s->s3->handshake_dgst)) {
        SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_FINAL_FINISH_MAC,
                 ERR_R_INTERNAL_ERROR);
        ret = 0;
        goto err;
    }

    ret = EVP_MD_CTX_size(ctx);
    if (ret < 0) {
        SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_FINAL_FINISH_MAC,
                 ERR_R_INTERNAL_ERROR);
        ret = 0;
        goto err;
    }

    if ((sender != NULL && EVP_DigestUpdate(ctx, sender, len) <= 0)
        || EVP_MD_CTX_ctrl(ctx, EVP_CTRL_SSL3_MASTER_SECRET,
                           (int)s->session->master_key_length,
                           s->session->master_key) <= 0
        || EVP_DigestFinal_ex(ctx, p, NULL) <= 0) {
        SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_FINAL_FINISH_MAC,
                 ERR_R_INTERNAL_ERROR);
        ret = 0;
    }

 err:
    EVP_MD_CTX_free(ctx);

    return ret;
}

int ssl3_generate_master_secret(SSL *s, unsigned char *out, unsigned char *p,
                                size_t len, size_t *secret_size)
{
    static const unsigned char *salt[3] = {
#ifndef CHARSET_EBCDIC
        (const unsigned char *)"A",
        (const unsigned char *)"BB",
        (const unsigned char *)"CCC",
#else
        (const unsigned char *)"\x41",
        (const unsigned char *)"\x42\x42",
        (const unsigned char *)"\x43\x43\x43",
#endif
    };
    unsigned char buf[EVP_MAX_MD_SIZE];
    EVP_MD_CTX *ctx = EVP_MD_CTX_new();
    int i, ret = 1;
    unsigned int n;
    size_t ret_secret_size = 0;

    if (ctx == NULL) {
        SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_GENERATE_MASTER_SECRET,
                 ERR_R_MALLOC_FAILURE);
        return 0;
    }
    for (i = 0; i < 3; i++) {
        if (EVP_DigestInit_ex(ctx, s->ctx->sha1, NULL) <= 0
            || EVP_DigestUpdate(ctx, salt[i],
                                strlen((const char *)salt[i])) <= 0
            || EVP_DigestUpdate(ctx, p, len) <= 0
            || EVP_DigestUpdate(ctx, &(s->s3->client_random[0]),
                                SSL3_RANDOM_SIZE) <= 0
            || EVP_DigestUpdate(ctx, &(s->s3->server_random[0]),
                                SSL3_RANDOM_SIZE) <= 0
               /* TODO(size_t) : convert me */
            || EVP_DigestFinal_ex(ctx, buf, &n) <= 0
            || EVP_DigestInit_ex(ctx, s->ctx->md5, NULL) <= 0
            || EVP_DigestUpdate(ctx, p, len) <= 0
            || EVP_DigestUpdate(ctx, buf, n) <= 0
            || EVP_DigestFinal_ex(ctx, out, &n) <= 0) {
            SSLfatal(s, SSL_AD_INTERNAL_ERROR,
                     SSL_F_SSL3_GENERATE_MASTER_SECRET, ERR_R_INTERNAL_ERROR);
            ret = 0;
            break;
        }
        out += n;
        ret_secret_size += n;
    }
    EVP_MD_CTX_free(ctx);

    OPENSSL_cleanse(buf, sizeof(buf));
    if (ret)
        *secret_size = ret_secret_size;
    return ret;
}

int ssl3_alert_code(int code)
{
    switch (code) {
    case SSL_AD_CLOSE_NOTIFY:
        return SSL3_AD_CLOSE_NOTIFY;
    case SSL_AD_UNEXPECTED_MESSAGE:
        return SSL3_AD_UNEXPECTED_MESSAGE;
    case SSL_AD_BAD_RECORD_MAC:
        return SSL3_AD_BAD_RECORD_MAC;
    case SSL_AD_DECRYPTION_FAILED:
        return SSL3_AD_BAD_RECORD_MAC;
    case SSL_AD_RECORD_OVERFLOW:
        return SSL3_AD_BAD_RECORD_MAC;
    case SSL_AD_DECOMPRESSION_FAILURE:
        return SSL3_AD_DECOMPRESSION_FAILURE;
    case SSL_AD_HANDSHAKE_FAILURE:
        return SSL3_AD_HANDSHAKE_FAILURE;
    case SSL_AD_NO_CERTIFICATE:
        return SSL3_AD_NO_CERTIFICATE;
    case SSL_AD_BAD_CERTIFICATE:
        return SSL3_AD_BAD_CERTIFICATE;
    case SSL_AD_UNSUPPORTED_CERTIFICATE:
        return SSL3_AD_UNSUPPORTED_CERTIFICATE;
    case SSL_AD_CERTIFICATE_REVOKED:
        return SSL3_AD_CERTIFICATE_REVOKED;
    case SSL_AD_CERTIFICATE_EXPIRED:
        return SSL3_AD_CERTIFICATE_EXPIRED;
    case SSL_AD_CERTIFICATE_UNKNOWN:
        return SSL3_AD_CERTIFICATE_UNKNOWN;
    case SSL_AD_ILLEGAL_PARAMETER:
        return SSL3_AD_ILLEGAL_PARAMETER;
    case SSL_AD_UNKNOWN_CA:
        return SSL3_AD_BAD_CERTIFICATE;
    case SSL_AD_ACCESS_DENIED:
        return SSL3_AD_HANDSHAKE_FAILURE;
    case SSL_AD_DECODE_ERROR:
        return SSL3_AD_HANDSHAKE_FAILURE;
    case SSL_AD_DECRYPT_ERROR:
        return SSL3_AD_HANDSHAKE_FAILURE;
    case SSL_AD_EXPORT_RESTRICTION:
        return SSL3_AD_HANDSHAKE_FAILURE;
    case SSL_AD_PROTOCOL_VERSION:
        return SSL3_AD_HANDSHAKE_FAILURE;
    case SSL_AD_INSUFFICIENT_SECURITY:
        return SSL3_AD_HANDSHAKE_FAILURE;
    case SSL_AD_INTERNAL_ERROR:
        return SSL3_AD_HANDSHAKE_FAILURE;
    case SSL_AD_USER_CANCELLED:
        return SSL3_AD_HANDSHAKE_FAILURE;
    case SSL_AD_NO_RENEGOTIATION:
        return -1;            /* Don't send it :-) */
    case SSL_AD_UNSUPPORTED_EXTENSION:
        return SSL3_AD_HANDSHAKE_FAILURE;
    case SSL_AD_CERTIFICATE_UNOBTAINABLE:
        return SSL3_AD_HANDSHAKE_FAILURE;
    case SSL_AD_UNRECOGNIZED_NAME:
        return SSL3_AD_HANDSHAKE_FAILURE;
    case SSL_AD_BAD_CERTIFICATE_STATUS_RESPONSE:
        return SSL3_AD_HANDSHAKE_FAILURE;
    case SSL_AD_BAD_CERTIFICATE_HASH_VALUE:
        return SSL3_AD_HANDSHAKE_FAILURE;
    case SSL_AD_UNKNOWN_PSK_IDENTITY:
        return TLS1_AD_UNKNOWN_PSK_IDENTITY;
    case SSL_AD_INAPPROPRIATE_FALLBACK:
        return TLS1_AD_INAPPROPRIATE_FALLBACK;
    case SSL_AD_NO_APPLICATION_PROTOCOL:
        return TLS1_AD_NO_APPLICATION_PROTOCOL;
    case SSL_AD_CERTIFICATE_REQUIRED:
        return SSL_AD_HANDSHAKE_FAILURE;
    case SSL_AD_MISSING_EXTENSION:
        return SSL_AD_HANDSHAKE_FAILURE;
    default:
        return -1;
    }
}

Coverage Report

Created: 2023-09-25 06:41

Line	Count	Source (jump to first uncovered line)
1		/*
2		* Copyright 1995-2022 The OpenSSL Project Authors. All Rights Reserved.
3		* Copyright 2005 Nokia. All rights reserved.
4		*
5		* Licensed under the OpenSSL license (the "License"). You may not use
6		* this file except in compliance with the License. You can obtain a copy
7		* in the file LICENSE in the source distribution or at
8		* https://www.openssl.org/source/license.html
9		*/
10
11		#include <stdio.h>
12		#include "ssl_local.h"
13		#include <openssl/evp.h>
14		#include <openssl/md5.h>
15		#include "internal/cryptlib.h"
16
17		static int ssl3_generate_key_block(SSL s, unsigned char km, int num)
18	851	{
19	851	EVP_MD_CTX *m5;
20	851	EVP_MD_CTX *s1;
21	851	unsigned char buf[16], smd[SHA_DIGEST_LENGTH];
22	851	unsigned char c = 'A';
23	851	unsigned int i, j, k;
24	851	int ret = 0;
25
26		#ifdef CHARSET_EBCDIC
27		c = os_toascii[c]; /* 'A' in ASCII */
28		#endif
29	851	k = 0;
30	851	m5 = EVP_MD_CTX_new();
31	851	s1 = EVP_MD_CTX_new();
32	851	if (m5 == NULL \|\| s1 == NULL) {
33	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_GENERATE_KEY_BLOCK,
34	0	ERR_R_MALLOC_FAILURE);
35	0	goto err;
36	0	}
37	851	EVP_MD_CTX_set_flags(m5, EVP_MD_CTX_FLAG_NON_FIPS_ALLOW);
38	5.48k	for (i = 0; (int)i < num; i += MD5_DIGEST_LENGTH) {
39	4.63k	k++;
40	4.63k	if (k > sizeof(buf)) {
41		/* bug: 'buf' is too small for this ciphersuite */
42	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_GENERATE_KEY_BLOCK,
43	0	ERR_R_INTERNAL_ERROR);
44	0	goto err;
45	0	}
46
47	20.5k	for (j = 0; j < k; j++)
48	15.8k	buf[j] = c;
49	4.63k	c++;
50	4.63k	if (!EVP_DigestInit_ex(s1, EVP_sha1(), NULL)
51	4.63k	\|\| !EVP_DigestUpdate(s1, buf, k)
52	4.63k	\|\| !EVP_DigestUpdate(s1, s->session->master_key,
53	4.63k	s->session->master_key_length)
54	4.63k	\|\| !EVP_DigestUpdate(s1, s->s3->server_random, SSL3_RANDOM_SIZE)
55	4.63k	\|\| !EVP_DigestUpdate(s1, s->s3->client_random, SSL3_RANDOM_SIZE)
56	4.63k	\|\| !EVP_DigestFinal_ex(s1, smd, NULL)
57	4.63k	\|\| !EVP_DigestInit_ex(m5, EVP_md5(), NULL)
58	4.63k	\|\| !EVP_DigestUpdate(m5, s->session->master_key,
59	4.63k	s->session->master_key_length)
60	4.63k	\|\| !EVP_DigestUpdate(m5, smd, SHA_DIGEST_LENGTH)) {
61	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_GENERATE_KEY_BLOCK,
62	0	ERR_R_INTERNAL_ERROR);
63	0	goto err;
64	0	}
65	4.63k	if ((int)(i + MD5_DIGEST_LENGTH) > num) {
66	718	if (!EVP_DigestFinal_ex(m5, smd, NULL)) {
67	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR,
68	0	SSL_F_SSL3_GENERATE_KEY_BLOCK, ERR_R_INTERNAL_ERROR);
69	0	goto err;
70	0	}
71	718	memcpy(km, smd, (num - i));
72	3.91k	} else {
73	3.91k	if (!EVP_DigestFinal_ex(m5, km, NULL)) {
74	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR,
75	0	SSL_F_SSL3_GENERATE_KEY_BLOCK, ERR_R_INTERNAL_ERROR);
76	0	goto err;
77	0	}
78	3.91k	}
79
80	4.63k	km += MD5_DIGEST_LENGTH;
81	4.63k	}
82	851	OPENSSL_cleanse(smd, sizeof(smd));
83	851	ret = 1;
84	851	err:
85	851	EVP_MD_CTX_free(m5);
86	851	EVP_MD_CTX_free(s1);
87	851	return ret;
88	851	}
89
90		int ssl3_change_cipher_state(SSL *s, int which)
91	851	{
92	851	unsigned char p, mac_secret;
93	851	unsigned char ms, key, *iv;
94	851	EVP_CIPHER_CTX *dd;
95	851	const EVP_CIPHER *c;
96	851	#ifndef OPENSSL_NO_COMP
97	851	COMP_METHOD *comp;
98	851	#endif
99	851	const EVP_MD *m;
100	851	int mdi;
101	851	size_t n, i, j, k, cl;
102	851	int reuse_dd = 0;
103
104	851	c = s->s3->tmp.new_sym_enc;
105	851	m = s->s3->tmp.new_hash;
106		/* m == NULL will lead to a crash later */
107	851	if (!ossl_assert(m != NULL)) {
108	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_CHANGE_CIPHER_STATE,
109	0	ERR_R_INTERNAL_ERROR);
110	0	goto err;
111	0	}
112	851	#ifndef OPENSSL_NO_COMP
113	851	if (s->s3->tmp.new_compression == NULL)
114	851	comp = NULL;
115	0	else
116	0	comp = s->s3->tmp.new_compression->method;
117	851	#endif
118
119	851	if (which & SSL3_CC_READ) {
120	851	if (s->enc_read_ctx != NULL) {
121	0	reuse_dd = 1;
122	851	} else if ((s->enc_read_ctx = EVP_CIPHER_CTX_new()) == NULL) {
123	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_CHANGE_CIPHER_STATE,
124	0	ERR_R_MALLOC_FAILURE);
125	0	goto err;
126	851	} else {
127		/*
128		* make sure it's initialised in case we exit later with an error
129		*/
130	851	EVP_CIPHER_CTX_reset(s->enc_read_ctx);
131	851	}
132	851	dd = s->enc_read_ctx;
133
134	851	if (ssl_replace_hash(&s->read_hash, m) == NULL) {
135	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_CHANGE_CIPHER_STATE,
136	0	ERR_R_INTERNAL_ERROR);
137	0	goto err;
138	0	}
139	851	#ifndef OPENSSL_NO_COMP
140		/* COMPRESS */
141	851	COMP_CTX_free(s->expand);
142	851	s->expand = NULL;
143	851	if (comp != NULL) {
144	0	s->expand = COMP_CTX_new(comp);
145	0	if (s->expand == NULL) {
146	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR,
147	0	SSL_F_SSL3_CHANGE_CIPHER_STATE,
148	0	SSL_R_COMPRESSION_LIBRARY_ERROR);
149	0	goto err;
150	0	}
151	0	}
152	851	#endif
153	851	RECORD_LAYER_reset_read_sequence(&s->rlayer);
154	851	mac_secret = &(s->s3->read_mac_secret[0]);
155	851	} else {
156	0	s->statem.enc_write_state = ENC_WRITE_STATE_INVALID;
157	0	if (s->enc_write_ctx != NULL) {
158	0	reuse_dd = 1;
159	0	} else if ((s->enc_write_ctx = EVP_CIPHER_CTX_new()) == NULL) {
160	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_CHANGE_CIPHER_STATE,
161	0	ERR_R_MALLOC_FAILURE);
162	0	goto err;
163	0	} else {
164		/*
165		* make sure it's initialised in case we exit later with an error
166		*/
167	0	EVP_CIPHER_CTX_reset(s->enc_write_ctx);
168	0	}
169	0	dd = s->enc_write_ctx;
170	0	if (ssl_replace_hash(&s->write_hash, m) == NULL) {
171	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_CHANGE_CIPHER_STATE,
172	0	ERR_R_MALLOC_FAILURE);
173	0	goto err;
174	0	}
175	0	#ifndef OPENSSL_NO_COMP
176		/* COMPRESS */
177	0	COMP_CTX_free(s->compress);
178	0	s->compress = NULL;
179	0	if (comp != NULL) {
180	0	s->compress = COMP_CTX_new(comp);
181	0	if (s->compress == NULL) {
182	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR,
183	0	SSL_F_SSL3_CHANGE_CIPHER_STATE,
184	0	SSL_R_COMPRESSION_LIBRARY_ERROR);
185	0	goto err;
186	0	}
187	0	}
188	0	#endif
189	0	RECORD_LAYER_reset_write_sequence(&s->rlayer);
190	0	mac_secret = &(s->s3->write_mac_secret[0]);
191	0	}
192
193	851	if (reuse_dd)
194	0	EVP_CIPHER_CTX_reset(dd);
195
196	851	p = s->s3->tmp.key_block;
197	851	mdi = EVP_MD_size(m);
198	851	if (mdi < 0) {
199	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_CHANGE_CIPHER_STATE,
200	0	ERR_R_INTERNAL_ERROR);
201	0	goto err;
202	0	}
203	851	i = mdi;
204	851	cl = EVP_CIPHER_key_length(c);
205	851	j = cl;
206	851	k = EVP_CIPHER_iv_length(c);
207	851	if ((which == SSL3_CHANGE_CIPHER_CLIENT_WRITE) \|\|
208	851	(which == SSL3_CHANGE_CIPHER_SERVER_READ)) {
209	851	ms = &(p[0]);
210	851	n = i + i;
211	851	key = &(p[n]);
212	851	n += j + j;
213	851	iv = &(p[n]);
214	851	n += k + k;
215	851	} else {
216	0	n = i;
217	0	ms = &(p[n]);
218	0	n += i + j;
219	0	key = &(p[n]);
220	0	n += j + k;
221	0	iv = &(p[n]);
222	0	n += k;
223	0	}
224
225	851	if (n > s->s3->tmp.key_block_length) {
226	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_CHANGE_CIPHER_STATE,
227	0	ERR_R_INTERNAL_ERROR);
228	0	goto err;
229	0	}
230
231	851	memcpy(mac_secret, ms, i);
232
233	851	if (!EVP_CipherInit_ex(dd, c, NULL, key, iv, (which & SSL3_CC_WRITE))) {
234	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_CHANGE_CIPHER_STATE,
235	0	ERR_R_INTERNAL_ERROR);
236	0	goto err;
237	0	}
238
239	851	s->statem.enc_write_state = ENC_WRITE_STATE_VALID;
240	851	return 1;
241	0	err:
242	0	return 0;
243	851	}
244
245		int ssl3_setup_key_block(SSL *s)
246	851	{
247	851	unsigned char *p;
248	851	const EVP_CIPHER *c;
249	851	const EVP_MD *hash;
250	851	int num;
251	851	int ret = 0;
252	851	SSL_COMP *comp;
253
254	851	if (s->s3->tmp.key_block_length != 0)
255	0	return 1;
256
257	851	if (!ssl_cipher_get_evp(s->session, &c, &hash, NULL, NULL, &comp, 0)) {
258	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_SETUP_KEY_BLOCK,
259	0	SSL_R_CIPHER_OR_HASH_UNAVAILABLE);
260	0	return 0;
261	0	}
262
263	851	s->s3->tmp.new_sym_enc = c;
264	851	s->s3->tmp.new_hash = hash;
265		#ifdef OPENSSL_NO_COMP
266		s->s3->tmp.new_compression = NULL;
267		#else
268	851	s->s3->tmp.new_compression = comp;
269	851	#endif
270
271	851	num = EVP_MD_size(hash);
272	851	if (num < 0)
273	0	return 0;
274
275	851	num = EVP_CIPHER_key_length(c) + num + EVP_CIPHER_iv_length(c);
276	851	num *= 2;
277
278	851	ssl3_cleanup_key_block(s);
279
280	851	if ((p = OPENSSL_malloc(num)) == NULL) {
281	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_SETUP_KEY_BLOCK,
282	0	ERR_R_MALLOC_FAILURE);
283	0	return 0;
284	0	}
285
286	851	s->s3->tmp.key_block_length = num;
287	851	s->s3->tmp.key_block = p;
288
289		/* Calls SSLfatal() as required */
290	851	ret = ssl3_generate_key_block(s, p, num);
291
292	851	if (!(s->options & SSL_OP_DONT_INSERT_EMPTY_FRAGMENTS)) {
293		/*
294		* enable vulnerability countermeasure for CBC ciphers with known-IV
295		* problem (http://www.openssl.org/~bodo/tls-cbc.txt)
296		*/
297	851	s->s3->need_empty_fragments = 1;
298
299	851	if (s->session->cipher != NULL) {
300	851	if (s->session->cipher->algorithm_enc == SSL_eNULL)
301	135	s->s3->need_empty_fragments = 0;
302
303	851	#ifndef OPENSSL_NO_RC4
304	851	if (s->session->cipher->algorithm_enc == SSL_RC4)
305	8	s->s3->need_empty_fragments = 0;
306	851	#endif
307	851	}
308	851	}
309
310	851	return ret;
311	851	}
312
313		void ssl3_cleanup_key_block(SSL *s)
314	31.8k	{
315	31.8k	OPENSSL_clear_free(s->s3->tmp.key_block, s->s3->tmp.key_block_length);
316	31.8k	s->s3->tmp.key_block = NULL;
317	31.8k	s->s3->tmp.key_block_length = 0;
318	31.8k	}
319
320		int ssl3_init_finished_mac(SSL *s)
321	6.25k	{
322	6.25k	BIO *buf = BIO_new(BIO_s_mem());
323
324	6.25k	if (buf == NULL) {
325	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_INIT_FINISHED_MAC,
326	0	ERR_R_MALLOC_FAILURE);
327	0	return 0;
328	0	}
329	6.25k	ssl3_free_digest_list(s);
330	6.25k	s->s3->handshake_buffer = buf;
331	6.25k	(void)BIO_set_close(s->s3->handshake_buffer, BIO_CLOSE);
332	6.25k	return 1;
333	6.25k	}
334
335		/*
336		* Free digest list. Also frees handshake buffer since they are always freed
337		* together.
338		*/
339
340		void ssl3_free_digest_list(SSL *s)
341	36.8k	{
342	36.8k	BIO_free(s->s3->handshake_buffer);
343	36.8k	s->s3->handshake_buffer = NULL;
344	36.8k	EVP_MD_CTX_free(s->s3->handshake_dgst);
345	36.8k	s->s3->handshake_dgst = NULL;
346	36.8k	}
347
348		int ssl3_finish_mac(SSL s, const unsigned char buf, size_t len)
349	20.7k	{
350	20.7k	int ret;
351
352	20.7k	if (s->s3->handshake_dgst == NULL) {
353		/* Note: this writes to a memory BIO so a failure is a fatal error */
354	6.10k	if (len > INT_MAX) {
355	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_FINISH_MAC,
356	0	SSL_R_OVERFLOW_ERROR);
357	0	return 0;
358	0	}
359	6.10k	ret = BIO_write(s->s3->handshake_buffer, (void *)buf, (int)len);
360	6.10k	if (ret <= 0 \|\| ret != (int)len) {
361	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_FINISH_MAC,
362	0	ERR_R_INTERNAL_ERROR);
363	0	return 0;
364	0	}
365	14.6k	} else {
366	14.6k	ret = EVP_DigestUpdate(s->s3->handshake_dgst, buf, len);
367	14.6k	if (!ret) {
368	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_FINISH_MAC,
369	0	ERR_R_INTERNAL_ERROR);
370	0	return 0;
371	0	}
372	14.6k	}
373	20.7k	return 1;
374	20.7k	}
375
376		int ssl3_digest_cached_records(SSL *s, int keep)
377	11.0k	{
378	11.0k	const EVP_MD *md;
379	11.0k	long hdatalen;
380	11.0k	void *hdata;
381
382	11.0k	if (s->s3->handshake_dgst == NULL) {
383	3.61k	hdatalen = BIO_get_mem_data(s->s3->handshake_buffer, &hdata);
384	3.61k	if (hdatalen <= 0) {
385	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_DIGEST_CACHED_RECORDS,
386	0	SSL_R_BAD_HANDSHAKE_LENGTH);
387	0	return 0;
388	0	}
389
390	3.61k	s->s3->handshake_dgst = EVP_MD_CTX_new();
391	3.61k	if (s->s3->handshake_dgst == NULL) {
392	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_DIGEST_CACHED_RECORDS,
393	0	ERR_R_MALLOC_FAILURE);
394	0	return 0;
395	0	}
396
397	3.61k	md = ssl_handshake_md(s);
398	3.61k	if (md == NULL \|\| !EVP_DigestInit_ex(s->s3->handshake_dgst, md, NULL)
399	3.61k	\|\| !EVP_DigestUpdate(s->s3->handshake_dgst, hdata, hdatalen)) {
400	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_DIGEST_CACHED_RECORDS,
401	0	ERR_R_INTERNAL_ERROR);
402	0	return 0;
403	0	}
404	3.61k	}
405	11.0k	if (keep == 0) {
406	9.14k	BIO_free(s->s3->handshake_buffer);
407	9.14k	s->s3->handshake_buffer = NULL;
408	9.14k	}
409
410	11.0k	return 1;
411	11.0k	}
412
413		size_t ssl3_final_finish_mac(SSL s, const char sender, size_t len,
414		unsigned char *p)
415	2	{
416	2	int ret;
417	2	EVP_MD_CTX *ctx = NULL;
418
419	2	if (!ssl3_digest_cached_records(s, 0)) {
420		/* SSLfatal() already called */
421	0	return 0;
422	0	}
423
424	2	if (EVP_MD_CTX_type(s->s3->handshake_dgst) != NID_md5_sha1) {
425	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_FINAL_FINISH_MAC,
426	0	SSL_R_NO_REQUIRED_DIGEST);
427	0	return 0;
428	0	}
429
430	2	ctx = EVP_MD_CTX_new();
431	2	if (ctx == NULL) {
432	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_FINAL_FINISH_MAC,
433	0	ERR_R_MALLOC_FAILURE);
434	0	return 0;
435	0	}
436	2	if (!EVP_MD_CTX_copy_ex(ctx, s->s3->handshake_dgst)) {
437	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_FINAL_FINISH_MAC,
438	0	ERR_R_INTERNAL_ERROR);
439	0	ret = 0;
440	0	goto err;
441	0	}
442
443	2	ret = EVP_MD_CTX_size(ctx);
444	2	if (ret < 0) {
445	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_FINAL_FINISH_MAC,
446	0	ERR_R_INTERNAL_ERROR);
447	0	ret = 0;
448	0	goto err;
449	0	}
450
451	2	if ((sender != NULL && EVP_DigestUpdate(ctx, sender, len) <= 0)
452	2	\|\| EVP_MD_CTX_ctrl(ctx, EVP_CTRL_SSL3_MASTER_SECRET,
453	2	(int)s->session->master_key_length,
454	2	s->session->master_key) <= 0
455	2	\|\| EVP_DigestFinal_ex(ctx, p, NULL) <= 0) {
456	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_FINAL_FINISH_MAC,
457	0	ERR_R_INTERNAL_ERROR);
458	0	ret = 0;
459	0	}
460
461	2	err:
462	2	EVP_MD_CTX_free(ctx);
463
464	2	return ret;
465	2	}
466
467		int ssl3_generate_master_secret(SSL s, unsigned char out, unsigned char *p,
468		size_t len, size_t *secret_size)
469	1.44k	{
470	1.44k	static const unsigned char *salt[3] = {
471	1.44k	#ifndef CHARSET_EBCDIC
472	1.44k	(const unsigned char *)"A",
473	1.44k	(const unsigned char *)"BB",
474	1.44k	(const unsigned char *)"CCC",
475		#else
476		(const unsigned char *)"\x41",
477		(const unsigned char *)"\x42\x42",
478		(const unsigned char *)"\x43\x43\x43",
479		#endif
480	1.44k	};
481	1.44k	unsigned char buf[EVP_MAX_MD_SIZE];
482	1.44k	EVP_MD_CTX *ctx = EVP_MD_CTX_new();
483	1.44k	int i, ret = 1;
484	1.44k	unsigned int n;
485	1.44k	size_t ret_secret_size = 0;
486
487	1.44k	if (ctx == NULL) {
488	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR, SSL_F_SSL3_GENERATE_MASTER_SECRET,
489	0	ERR_R_MALLOC_FAILURE);
490	0	return 0;
491	0	}
492	5.78k	for (i = 0; i < 3; i++) {
493	4.33k	if (EVP_DigestInit_ex(ctx, s->ctx->sha1, NULL) <= 0
494	4.33k	\|\| EVP_DigestUpdate(ctx, salt[i],
495	4.33k	strlen((const char *)salt[i])) <= 0
496	4.33k	\|\| EVP_DigestUpdate(ctx, p, len) <= 0
497	4.33k	\|\| EVP_DigestUpdate(ctx, &(s->s3->client_random[0]),
498	4.33k	SSL3_RANDOM_SIZE) <= 0
499	4.33k	\|\| EVP_DigestUpdate(ctx, &(s->s3->server_random[0]),
500	4.33k	SSL3_RANDOM_SIZE) <= 0
501		/* TODO(size_t) : convert me */
502	4.33k	\|\| EVP_DigestFinal_ex(ctx, buf, &n) <= 0
503	4.33k	\|\| EVP_DigestInit_ex(ctx, s->ctx->md5, NULL) <= 0
504	4.33k	\|\| EVP_DigestUpdate(ctx, p, len) <= 0
505	4.33k	\|\| EVP_DigestUpdate(ctx, buf, n) <= 0
506	4.33k	\|\| EVP_DigestFinal_ex(ctx, out, &n) <= 0) {
507	0	SSLfatal(s, SSL_AD_INTERNAL_ERROR,
508	0	SSL_F_SSL3_GENERATE_MASTER_SECRET, ERR_R_INTERNAL_ERROR);
509	0	ret = 0;
510	0	break;
511	0	}
512	4.33k	out += n;
513	4.33k	ret_secret_size += n;
514	4.33k	}
515	1.44k	EVP_MD_CTX_free(ctx);
516
517	1.44k	OPENSSL_cleanse(buf, sizeof(buf));
518	1.44k	if (ret)
519	1.44k	*secret_size = ret_secret_size;
520	1.44k	return ret;
521	1.44k	}
522
523		int ssl3_alert_code(int code)
524	992	{
525	992	switch (code) {
526	0	case SSL_AD_CLOSE_NOTIFY:
527	0	return SSL3_AD_CLOSE_NOTIFY;
528	97	case SSL_AD_UNEXPECTED_MESSAGE:
529	97	return SSL3_AD_UNEXPECTED_MESSAGE;
530	799	case SSL_AD_BAD_RECORD_MAC:
531	799	return SSL3_AD_BAD_RECORD_MAC;
532	0	case SSL_AD_DECRYPTION_FAILED:
533	0	return SSL3_AD_BAD_RECORD_MAC;
534	1	case SSL_AD_RECORD_OVERFLOW:
535	1	return SSL3_AD_BAD_RECORD_MAC;
536	0	case SSL_AD_DECOMPRESSION_FAILURE:
537	0	return SSL3_AD_DECOMPRESSION_FAILURE;
538	31	case SSL_AD_HANDSHAKE_FAILURE:
539	31	return SSL3_AD_HANDSHAKE_FAILURE;
540	0	case SSL_AD_NO_CERTIFICATE:
541	0	return SSL3_AD_NO_CERTIFICATE;
542	0	case SSL_AD_BAD_CERTIFICATE:
543	0	return SSL3_AD_BAD_CERTIFICATE;
544	0	case SSL_AD_UNSUPPORTED_CERTIFICATE:
545	0	return SSL3_AD_UNSUPPORTED_CERTIFICATE;
546	0	case SSL_AD_CERTIFICATE_REVOKED:
547	0	return SSL3_AD_CERTIFICATE_REVOKED;
548	0	case SSL_AD_CERTIFICATE_EXPIRED:
549	0	return SSL3_AD_CERTIFICATE_EXPIRED;
550	0	case SSL_AD_CERTIFICATE_UNKNOWN:
551	0	return SSL3_AD_CERTIFICATE_UNKNOWN;
552	13	case SSL_AD_ILLEGAL_PARAMETER:
553	13	return SSL3_AD_ILLEGAL_PARAMETER;
554	0	case SSL_AD_UNKNOWN_CA:
555	0	return SSL3_AD_BAD_CERTIFICATE;
556	0	case SSL_AD_ACCESS_DENIED:
557	0	return SSL3_AD_HANDSHAKE_FAILURE;
558	9	case SSL_AD_DECODE_ERROR:
559	9	return SSL3_AD_HANDSHAKE_FAILURE;
560	3	case SSL_AD_DECRYPT_ERROR:
561	3	return SSL3_AD_HANDSHAKE_FAILURE;
562	0	case SSL_AD_EXPORT_RESTRICTION:
563	0	return SSL3_AD_HANDSHAKE_FAILURE;
564	37	case SSL_AD_PROTOCOL_VERSION:
565	37	return SSL3_AD_HANDSHAKE_FAILURE;
566	0	case SSL_AD_INSUFFICIENT_SECURITY:
567	0	return SSL3_AD_HANDSHAKE_FAILURE;
568	0	case SSL_AD_INTERNAL_ERROR:
569	0	return SSL3_AD_HANDSHAKE_FAILURE;
570	0	case SSL_AD_USER_CANCELLED:
571	0	return SSL3_AD_HANDSHAKE_FAILURE;
572	0	case SSL_AD_NO_RENEGOTIATION:
573	0	return -1; /* Don't send it :-) */
574	0	case SSL_AD_UNSUPPORTED_EXTENSION:
575	0	return SSL3_AD_HANDSHAKE_FAILURE;
576	0	case SSL_AD_CERTIFICATE_UNOBTAINABLE:
577	0	return SSL3_AD_HANDSHAKE_FAILURE;
578	0	case SSL_AD_UNRECOGNIZED_NAME:
579	0	return SSL3_AD_HANDSHAKE_FAILURE;
580	0	case SSL_AD_BAD_CERTIFICATE_STATUS_RESPONSE:
581	0	return SSL3_AD_HANDSHAKE_FAILURE;
582	0	case SSL_AD_BAD_CERTIFICATE_HASH_VALUE:
583	0	return SSL3_AD_HANDSHAKE_FAILURE;
584	0	case SSL_AD_UNKNOWN_PSK_IDENTITY:
585	0	return TLS1_AD_UNKNOWN_PSK_IDENTITY;
586	1	case SSL_AD_INAPPROPRIATE_FALLBACK:
587	1	return TLS1_AD_INAPPROPRIATE_FALLBACK;
588	0	case SSL_AD_NO_APPLICATION_PROTOCOL:
589	0	return TLS1_AD_NO_APPLICATION_PROTOCOL;
590	0	case SSL_AD_CERTIFICATE_REQUIRED:
591	0	return SSL_AD_HANDSHAKE_FAILURE;
592	1	case SSL_AD_MISSING_EXTENSION:
593	1	return SSL_AD_HANDSHAKE_FAILURE;
594	0	default:
595	0	return -1;
596	992	}
597	992	}