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