void ssl3_cbc_copy_mac(unsigned char *out,
                       const SSL3_RECORD *rec, size_t md_size)
{
#if defined(CBC_MAC_ROTATE_IN_PLACE)
    unsigned char rotated_mac_buf[64 + EVP_MAX_MD_SIZE];
    unsigned char *rotated_mac;
#else
    unsigned char rotated_mac[EVP_MAX_MD_SIZE];
#endif
    size_t mac_end = rec->length;
    size_t mac_start = mac_end - md_size;
    size_t in_mac;
    size_t scan_start = 0;
    size_t i, j;
    size_t rotate_offset;
    OPENSSL_assert(rec->orig_len >= md_size);
    OPENSSL_assert(md_size <= EVP_MAX_MD_SIZE);
#if defined(CBC_MAC_ROTATE_IN_PLACE)
    rotated_mac = rotated_mac_buf + ((0 - (size_t)rotated_mac_buf) & 63);
#endif
    if (rec->orig_len > md_size + 255 + 1)
        scan_start = rec->orig_len - (md_size + 255 + 1);
    in_mac = 0;
    rotate_offset = 0;
    memset(rotated_mac, 0, md_size);
    for (i = scan_start, j = 0; i < rec->orig_len; i++) {
        size_t mac_started = constant_time_eq_s(i, mac_start);
        size_t mac_ended = constant_time_lt_s(i, mac_end);
        unsigned char b = rec->data[i];
        in_mac |= mac_started;
        in_mac &= mac_ended;
        rotate_offset |= j & mac_started;
        rotated_mac[j++] |= b & in_mac;
        j &= constant_time_lt_s(j, md_size);
    }
#if defined(CBC_MAC_ROTATE_IN_PLACE)
    j = 0;
    for (i = 0; i < md_size; i++) {
        ((volatile unsigned char *)rotated_mac)[rotate_offset ^ 32];
        out[j++] = rotated_mac[rotate_offset++];
        rotate_offset &= constant_time_lt_s(rotate_offset, md_size);
    }
#else
    memset(out, 0, md_size);
    rotate_offset = md_size - rotate_offset;
    rotate_offset &= constant_time_lt_s(rotate_offset, md_size);
    for (i = 0; i < md_size; i++) {
        for (j = 0; j < md_size; j++)
            out[j] |= rotated_mac[i] & constant_time_eq_8_s(j, rotate_offset);
        rotate_offset++;
        rotate_offset &= constant_time_lt_s(rotate_offset, md_size);
    }
#endif
}
['int ssl3_get_record(SSL *s)\n{\n    int al;\n    int enc_err, rret, ret = -1;\n    int i;\n    size_t more, n;\n    SSL3_RECORD *rr, *thisrr;\n    SSL3_BUFFER *rbuf;\n    SSL_SESSION *sess;\n    unsigned char *p;\n    unsigned char md[EVP_MAX_MD_SIZE];\n    unsigned int version;\n    size_t mac_size;\n    int imac_size;\n    size_t num_recs = 0, max_recs, j;\n    PACKET pkt, sslv2pkt;\n    size_t first_rec_len;\n    rr = RECORD_LAYER_get_rrec(&s->rlayer);\n    rbuf = RECORD_LAYER_get_rbuf(&s->rlayer);\n    max_recs = s->max_pipelines;\n    if (max_recs == 0)\n        max_recs = 1;\n    sess = s->session;\n    do {\n        thisrr = &rr[num_recs];\n        if ((RECORD_LAYER_get_rstate(&s->rlayer) != SSL_ST_READ_BODY) ||\n            (RECORD_LAYER_get_packet_length(&s->rlayer)\n             < SSL3_RT_HEADER_LENGTH)) {\n            size_t sslv2len;\n            unsigned int type;\n            rret = ssl3_read_n(s, SSL3_RT_HEADER_LENGTH,\n                               SSL3_BUFFER_get_len(rbuf), 0,\n                               num_recs == 0 ? 1 : 0, &n);\n            if (rret <= 0)\n                return rret;\n            RECORD_LAYER_set_rstate(&s->rlayer, SSL_ST_READ_BODY);\n            p = RECORD_LAYER_get_packet(&s->rlayer);\n            if (!PACKET_buf_init(&pkt, RECORD_LAYER_get_packet(&s->rlayer),\n                                 RECORD_LAYER_get_packet_length(&s->rlayer))) {\n                al = SSL_AD_INTERNAL_ERROR;\n                SSLerr(SSL_F_SSL3_GET_RECORD, ERR_R_INTERNAL_ERROR);\n                goto f_err;\n            }\n            sslv2pkt = pkt;\n            if (!PACKET_get_net_2_len(&sslv2pkt, &sslv2len)\n                    || !PACKET_get_1(&sslv2pkt, &type)) {\n                al = SSL_AD_DECODE_ERROR;\n                SSLerr(SSL_F_SSL3_GET_RECORD, ERR_R_INTERNAL_ERROR);\n                goto f_err;\n            }\n            if (s->server && RECORD_LAYER_is_first_record(&s->rlayer)\n                    && (sslv2len & 0x8000) != 0\n                    && (type == SSL2_MT_CLIENT_HELLO)) {\n                thisrr->type = SSL3_RT_HANDSHAKE;\n                thisrr->rec_version = SSL2_VERSION;\n                thisrr->length = sslv2len & 0x7fff;\n                if (thisrr->length > SSL3_BUFFER_get_len(rbuf)\n                    - SSL2_RT_HEADER_LENGTH) {\n                    al = SSL_AD_RECORD_OVERFLOW;\n                    SSLerr(SSL_F_SSL3_GET_RECORD, SSL_R_PACKET_LENGTH_TOO_LONG);\n                    goto f_err;\n                }\n                if (thisrr->length < MIN_SSL2_RECORD_LEN) {\n                    al = SSL_AD_DECODE_ERROR;\n                    SSLerr(SSL_F_SSL3_GET_RECORD, SSL_R_LENGTH_TOO_SHORT);\n                    goto f_err;\n                }\n            } else {\n                if (s->msg_callback)\n                    s->msg_callback(0, 0, SSL3_RT_HEADER, p, 5, s,\n                                    s->msg_callback_arg);\n                if (!PACKET_get_1(&pkt, &type)\n                        || !PACKET_get_net_2(&pkt, &version)\n                        || !PACKET_get_net_2_len(&pkt, &thisrr->length)) {\n                    al = SSL_AD_DECODE_ERROR;\n                    SSLerr(SSL_F_SSL3_GET_RECORD, ERR_R_INTERNAL_ERROR);\n                    goto f_err;\n                }\n                thisrr->type = type;\n                thisrr->rec_version = version;\n                if (!s->first_packet && !SSL_IS_TLS13(s)\n                        && version != (unsigned int)s->version) {\n                    SSLerr(SSL_F_SSL3_GET_RECORD, SSL_R_WRONG_VERSION_NUMBER);\n                    if ((s->version & 0xFF00) == (version & 0xFF00)\n                        && !s->enc_write_ctx && !s->write_hash) {\n                        if (thisrr->type == SSL3_RT_ALERT) {\n                            goto err;\n                        }\n                        s->version = (unsigned short)version;\n                    }\n                    al = SSL_AD_PROTOCOL_VERSION;\n                    goto f_err;\n                }\n                if ((version >> 8) != SSL3_VERSION_MAJOR) {\n                    if (RECORD_LAYER_is_first_record(&s->rlayer)) {\n                        p = RECORD_LAYER_get_packet(&s->rlayer);\n                        if (strncmp((char *)p, "GET ", 4) == 0 ||\n                            strncmp((char *)p, "POST ", 5) == 0 ||\n                            strncmp((char *)p, "HEAD ", 5) == 0 ||\n                            strncmp((char *)p, "PUT ", 4) == 0) {\n                            SSLerr(SSL_F_SSL3_GET_RECORD, SSL_R_HTTP_REQUEST);\n                            goto err;\n                        } else if (strncmp((char *)p, "CONNE", 5) == 0) {\n                            SSLerr(SSL_F_SSL3_GET_RECORD,\n                                   SSL_R_HTTPS_PROXY_REQUEST);\n                            goto err;\n                        }\n                        SSLerr(SSL_F_SSL3_GET_RECORD,\n                               SSL_R_WRONG_VERSION_NUMBER);\n                        goto err;\n                    } else {\n                        SSLerr(SSL_F_SSL3_GET_RECORD,\n                               SSL_R_WRONG_VERSION_NUMBER);\n                        al = SSL_AD_PROTOCOL_VERSION;\n                        goto f_err;\n                    }\n                }\n                if (SSL_IS_TLS13(s) && s->enc_read_ctx != NULL\n                        && thisrr->type != SSL3_RT_APPLICATION_DATA) {\n                    SSLerr(SSL_F_SSL3_GET_RECORD, SSL_R_BAD_RECORD_TYPE);\n                    al = SSL_AD_UNEXPECTED_MESSAGE;\n                    goto f_err;\n                }\n                if (thisrr->length >\n                    SSL3_BUFFER_get_len(rbuf) - SSL3_RT_HEADER_LENGTH) {\n                    al = SSL_AD_RECORD_OVERFLOW;\n                    SSLerr(SSL_F_SSL3_GET_RECORD, SSL_R_PACKET_LENGTH_TOO_LONG);\n                    goto f_err;\n                }\n            }\n        }\n        if (SSL_IS_TLS13(s)) {\n            if (thisrr->length > SSL3_RT_MAX_TLS13_ENCRYPTED_LENGTH) {\n                al = SSL_AD_RECORD_OVERFLOW;\n                SSLerr(SSL_F_SSL3_GET_RECORD, SSL_R_ENCRYPTED_LENGTH_TOO_LONG);\n                goto f_err;\n            }\n        } else {\n            size_t len = SSL3_RT_MAX_ENCRYPTED_LENGTH;\n#ifndef OPENSSL_NO_COMP\n            if (s->expand == NULL)\n                len -= SSL3_RT_MAX_COMPRESSED_OVERHEAD;\n#endif\n            if (thisrr->length > len) {\n                al = SSL_AD_RECORD_OVERFLOW;\n                SSLerr(SSL_F_SSL3_GET_RECORD, SSL_R_ENCRYPTED_LENGTH_TOO_LONG);\n                goto f_err;\n            }\n        }\n        if (thisrr->rec_version == SSL2_VERSION) {\n            more = thisrr->length + SSL2_RT_HEADER_LENGTH\n                - SSL3_RT_HEADER_LENGTH;\n        } else {\n            more = thisrr->length;\n        }\n        if (more > 0) {\n            rret = ssl3_read_n(s, more, more, 1, 0, &n);\n            if (rret <= 0)\n                return rret;\n        }\n        RECORD_LAYER_set_rstate(&s->rlayer, SSL_ST_READ_HEADER);\n        if (thisrr->rec_version == SSL2_VERSION) {\n            thisrr->input =\n                &(RECORD_LAYER_get_packet(&s->rlayer)[SSL2_RT_HEADER_LENGTH]);\n        } else {\n            thisrr->input =\n                &(RECORD_LAYER_get_packet(&s->rlayer)[SSL3_RT_HEADER_LENGTH]);\n        }\n        thisrr->data = thisrr->input;\n        thisrr->orig_len = thisrr->length;\n        thisrr->read = 0;\n        num_recs++;\n        RECORD_LAYER_reset_packet_length(&s->rlayer);\n        RECORD_LAYER_clear_first_record(&s->rlayer);\n    } while (num_recs < max_recs\n             && thisrr->type == SSL3_RT_APPLICATION_DATA\n             && SSL_USE_EXPLICIT_IV(s)\n             && s->enc_read_ctx != NULL\n             && (EVP_CIPHER_flags(EVP_CIPHER_CTX_cipher(s->enc_read_ctx))\n                 & EVP_CIPH_FLAG_PIPELINE)\n             && ssl3_record_app_data_waiting(s));\n    if (SSL_READ_ETM(s) && s->read_hash) {\n        unsigned char *mac;\n        imac_size = EVP_MD_CTX_size(s->read_hash);\n        assert(imac_size >= 0 && imac_size <= EVP_MAX_MD_SIZE);\n        if (imac_size < 0 || imac_size > EVP_MAX_MD_SIZE) {\n                al = SSL_AD_INTERNAL_ERROR;\n                SSLerr(SSL_F_SSL3_GET_RECORD, ERR_LIB_EVP);\n                goto f_err;\n        }\n        mac_size = (size_t)imac_size;\n        for (j = 0; j < num_recs; j++) {\n            thisrr = &rr[j];\n            if (thisrr->length < mac_size) {\n                al = SSL_AD_DECODE_ERROR;\n                SSLerr(SSL_F_SSL3_GET_RECORD, SSL_R_LENGTH_TOO_SHORT);\n                goto f_err;\n            }\n            thisrr->length -= mac_size;\n            mac = thisrr->data + thisrr->length;\n            i = s->method->ssl3_enc->mac(s, thisrr, md, 0   );\n            if (i == 0 || CRYPTO_memcmp(md, mac, mac_size) != 0) {\n                al = SSL_AD_BAD_RECORD_MAC;\n                SSLerr(SSL_F_SSL3_GET_RECORD,\n                       SSL_R_DECRYPTION_FAILED_OR_BAD_RECORD_MAC);\n                goto f_err;\n            }\n        }\n    }\n    first_rec_len = rr[0].length;\n    enc_err = s->method->ssl3_enc->enc(s, rr, num_recs, 0);\n    if (enc_err == 0) {\n        if (num_recs == 1 && ossl_statem_skip_early_data(s)) {\n            thisrr = &rr[0];\n            if (!early_data_count_ok(s, thisrr->length,\n                                     EARLY_DATA_CIPHERTEXT_OVERHEAD, &al))\n                goto f_err;\n            thisrr->length = 0;\n            thisrr->read = 1;\n            RECORD_LAYER_set_numrpipes(&s->rlayer, 1);\n            RECORD_LAYER_reset_read_sequence(&s->rlayer);\n            return 1;\n        }\n        al = SSL_AD_DECRYPTION_FAILED;\n        SSLerr(SSL_F_SSL3_GET_RECORD, SSL_R_BLOCK_CIPHER_PAD_IS_WRONG);\n        goto f_err;\n    }\n#ifdef SSL_DEBUG\n    printf("dec %"OSSLzu"\\n", rr[0].length);\n    {\n        size_t z;\n        for (z = 0; z < rr[0].length; z++)\n            printf("%02X%c", rr[0].data[z], ((z + 1) % 16) ? \' \' : \'\\n\');\n    }\n    printf("\\n");\n#endif\n    if ((sess != NULL) &&\n        (s->enc_read_ctx != NULL) &&\n        (!SSL_READ_ETM(s) && EVP_MD_CTX_md(s->read_hash) != NULL)) {\n        unsigned char *mac = NULL;\n        unsigned char mac_tmp[EVP_MAX_MD_SIZE];\n        mac_size = EVP_MD_CTX_size(s->read_hash);\n        OPENSSL_assert(mac_size <= EVP_MAX_MD_SIZE);\n        for (j = 0; j < num_recs; j++) {\n            thisrr = &rr[j];\n            if (thisrr->orig_len < mac_size ||\n                (EVP_CIPHER_CTX_mode(s->enc_read_ctx) == EVP_CIPH_CBC_MODE &&\n                 thisrr->orig_len < mac_size + 1)) {\n                al = SSL_AD_DECODE_ERROR;\n                SSLerr(SSL_F_SSL3_GET_RECORD, SSL_R_LENGTH_TOO_SHORT);\n                goto f_err;\n            }\n            if (EVP_CIPHER_CTX_mode(s->enc_read_ctx) == EVP_CIPH_CBC_MODE) {\n                mac = mac_tmp;\n                ssl3_cbc_copy_mac(mac_tmp, thisrr, mac_size);\n                thisrr->length -= mac_size;\n            } else {\n                thisrr->length -= mac_size;\n                mac = &thisrr->data[thisrr->length];\n            }\n            i = s->method->ssl3_enc->mac(s, thisrr, md, 0   );\n            if (i == 0 || mac == NULL\n                || CRYPTO_memcmp(md, mac, (size_t)mac_size) != 0)\n                enc_err = -1;\n            if (thisrr->length > SSL3_RT_MAX_COMPRESSED_LENGTH + mac_size)\n                enc_err = -1;\n        }\n    }\n    if (enc_err < 0) {\n        if (num_recs == 1 && ossl_statem_skip_early_data(s)) {\n            if (!early_data_count_ok(s, first_rec_len,\n                                     EARLY_DATA_CIPHERTEXT_OVERHEAD, &al))\n                goto f_err;\n            thisrr = &rr[0];\n            thisrr->length = 0;\n            thisrr->read = 1;\n            RECORD_LAYER_set_numrpipes(&s->rlayer, 1);\n            RECORD_LAYER_reset_read_sequence(&s->rlayer);\n            return 1;\n        }\n        al = SSL_AD_BAD_RECORD_MAC;\n        SSLerr(SSL_F_SSL3_GET_RECORD,\n               SSL_R_DECRYPTION_FAILED_OR_BAD_RECORD_MAC);\n        goto f_err;\n    }\n    for (j = 0; j < num_recs; j++) {\n        thisrr = &rr[j];\n        if (s->expand != NULL) {\n            if (thisrr->length > SSL3_RT_MAX_COMPRESSED_LENGTH) {\n                al = SSL_AD_RECORD_OVERFLOW;\n                SSLerr(SSL_F_SSL3_GET_RECORD, SSL_R_COMPRESSED_LENGTH_TOO_LONG);\n                goto f_err;\n            }\n            if (!ssl3_do_uncompress(s, thisrr)) {\n                al = SSL_AD_DECOMPRESSION_FAILURE;\n                SSLerr(SSL_F_SSL3_GET_RECORD, SSL_R_BAD_DECOMPRESSION);\n                goto f_err;\n            }\n        }\n        if (SSL_IS_TLS13(s) && s->enc_read_ctx != NULL) {\n            size_t end;\n            if (thisrr->length == 0\n                    || thisrr->type != SSL3_RT_APPLICATION_DATA) {\n                al = SSL_AD_UNEXPECTED_MESSAGE;\n                SSLerr(SSL_F_SSL3_GET_RECORD, SSL_R_BAD_RECORD_TYPE);\n                goto f_err;\n            }\n            for (end = thisrr->length - 1; end > 0 && thisrr->data[end] == 0;\n                 end--)\n                continue;\n            thisrr->length = end;\n            thisrr->type = thisrr->data[end];\n            if (thisrr->type != SSL3_RT_APPLICATION_DATA\n                    && thisrr->type != SSL3_RT_ALERT\n                    && thisrr->type != SSL3_RT_HANDSHAKE) {\n                al = SSL_AD_UNEXPECTED_MESSAGE;\n                SSLerr(SSL_F_SSL3_GET_RECORD, SSL_R_BAD_RECORD_TYPE);\n                goto f_err;\n            }\n            if (s->msg_callback)\n                s->msg_callback(0, s->version, SSL3_RT_INNER_CONTENT_TYPE,\n                                &thisrr->data[end], 1, s, s->msg_callback_arg);\n        }\n        if (SSL_IS_TLS13(s)\n                && (thisrr->type == SSL3_RT_HANDSHAKE\n                    || thisrr->type == SSL3_RT_ALERT)\n                && thisrr->length == 0) {\n            al = SSL_AD_UNEXPECTED_MESSAGE;\n            SSLerr(SSL_F_SSL3_GET_RECORD, SSL_R_BAD_LENGTH);\n            goto f_err;\n        }\n        if (thisrr->length > SSL3_RT_MAX_PLAIN_LENGTH) {\n            al = SSL_AD_RECORD_OVERFLOW;\n            SSLerr(SSL_F_SSL3_GET_RECORD, SSL_R_DATA_LENGTH_TOO_LONG);\n            goto f_err;\n        }\n        thisrr->off = 0;\n        if (thisrr->length == 0) {\n            RECORD_LAYER_inc_empty_record_count(&s->rlayer);\n            if (RECORD_LAYER_get_empty_record_count(&s->rlayer)\n                > MAX_EMPTY_RECORDS) {\n                al = SSL_AD_UNEXPECTED_MESSAGE;\n                SSLerr(SSL_F_SSL3_GET_RECORD, SSL_R_RECORD_TOO_SMALL);\n                goto f_err;\n            }\n        } else {\n            RECORD_LAYER_reset_empty_record_count(&s->rlayer);\n        }\n    }\n    if (s->early_data_state == SSL_EARLY_DATA_READING) {\n        thisrr = &rr[0];\n        if (thisrr->type == SSL3_RT_APPLICATION_DATA\n                && !early_data_count_ok(s, thisrr->length, 0, &al))\n            goto f_err;\n    }\n    RECORD_LAYER_set_numrpipes(&s->rlayer, num_recs);\n    return 1;\n f_err:\n    ssl3_send_alert(s, SSL3_AL_FATAL, al);\n err:\n    return ret;\n}', 'static ossl_inline int PACKET_get_net_2_len(PACKET *pkt, size_t *data)\n{\n    unsigned int i;\n    int ret = PACKET_get_net_2(pkt, &i);\n    if (ret)\n        *data = (size_t)i;\n    return ret;\n}', 'void ssl3_cbc_copy_mac(unsigned char *out,\n                       const SSL3_RECORD *rec, size_t md_size)\n{\n#if defined(CBC_MAC_ROTATE_IN_PLACE)\n    unsigned char rotated_mac_buf[64 + EVP_MAX_MD_SIZE];\n    unsigned char *rotated_mac;\n#else\n    unsigned char rotated_mac[EVP_MAX_MD_SIZE];\n#endif\n    size_t mac_end = rec->length;\n    size_t mac_start = mac_end - md_size;\n    size_t in_mac;\n    size_t scan_start = 0;\n    size_t i, j;\n    size_t rotate_offset;\n    OPENSSL_assert(rec->orig_len >= md_size);\n    OPENSSL_assert(md_size <= EVP_MAX_MD_SIZE);\n#if defined(CBC_MAC_ROTATE_IN_PLACE)\n    rotated_mac = rotated_mac_buf + ((0 - (size_t)rotated_mac_buf) & 63);\n#endif\n    if (rec->orig_len > md_size + 255 + 1)\n        scan_start = rec->orig_len - (md_size + 255 + 1);\n    in_mac = 0;\n    rotate_offset = 0;\n    memset(rotated_mac, 0, md_size);\n    for (i = scan_start, j = 0; i < rec->orig_len; i++) {\n        size_t mac_started = constant_time_eq_s(i, mac_start);\n        size_t mac_ended = constant_time_lt_s(i, mac_end);\n        unsigned char b = rec->data[i];\n        in_mac |= mac_started;\n        in_mac &= mac_ended;\n        rotate_offset |= j & mac_started;\n        rotated_mac[j++] |= b & in_mac;\n        j &= constant_time_lt_s(j, md_size);\n    }\n#if defined(CBC_MAC_ROTATE_IN_PLACE)\n    j = 0;\n    for (i = 0; i < md_size; i++) {\n        ((volatile unsigned char *)rotated_mac)[rotate_offset ^ 32];\n        out[j++] = rotated_mac[rotate_offset++];\n        rotate_offset &= constant_time_lt_s(rotate_offset, md_size);\n    }\n#else\n    memset(out, 0, md_size);\n    rotate_offset = md_size - rotate_offset;\n    rotate_offset &= constant_time_lt_s(rotate_offset, md_size);\n    for (i = 0; i < md_size; i++) {\n        for (j = 0; j < md_size; j++)\n            out[j] |= rotated_mac[i] & constant_time_eq_8_s(j, rotate_offset);\n        rotate_offset++;\n        rotate_offset &= constant_time_lt_s(rotate_offset, md_size);\n    }\n#endif\n}']