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