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