2 * Copyright 1995-2018 The OpenSSL Project Authors. All Rights Reserved.
3 * Copyright 2005 Nokia. All rights reserved.
5 * Licensed under the Apache License 2.0 (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
13 #include "record/record_locl.h"
14 #include "internal/ktls.h"
15 #include "internal/cryptlib.h"
16 #include <openssl/comp.h>
17 #include <openssl/evp.h>
18 #include <openssl/kdf.h>
19 #include <openssl/rand.h>
20 #include <openssl/obj_mac.h>
22 /* seed1 through seed5 are concatenated */
23 static int tls1_PRF(SSL
*s
,
24 const void *seed1
, size_t seed1_len
,
25 const void *seed2
, size_t seed2_len
,
26 const void *seed3
, size_t seed3_len
,
27 const void *seed4
, size_t seed4_len
,
28 const void *seed5
, size_t seed5_len
,
29 const unsigned char *sec
, size_t slen
,
30 unsigned char *out
, size_t olen
, int fatal
)
32 const EVP_MD
*md
= ssl_prf_md(s
);
33 EVP_PKEY_CTX
*pctx
= NULL
;
37 /* Should never happen */
39 SSLfatal(s
, SSL_AD_INTERNAL_ERROR
, SSL_F_TLS1_PRF
,
40 ERR_R_INTERNAL_ERROR
);
42 SSLerr(SSL_F_TLS1_PRF
, ERR_R_INTERNAL_ERROR
);
45 pctx
= EVP_PKEY_CTX_new_id(EVP_PKEY_TLS1_PRF
, NULL
);
46 if (pctx
== NULL
|| EVP_PKEY_derive_init(pctx
) <= 0
47 || EVP_PKEY_CTX_set_tls1_prf_md(pctx
, md
) <= 0
48 || EVP_PKEY_CTX_set1_tls1_prf_secret(pctx
, sec
, (int)slen
) <= 0
49 || EVP_PKEY_CTX_add1_tls1_prf_seed(pctx
, seed1
, (int)seed1_len
) <= 0
50 || EVP_PKEY_CTX_add1_tls1_prf_seed(pctx
, seed2
, (int)seed2_len
) <= 0
51 || EVP_PKEY_CTX_add1_tls1_prf_seed(pctx
, seed3
, (int)seed3_len
) <= 0
52 || EVP_PKEY_CTX_add1_tls1_prf_seed(pctx
, seed4
, (int)seed4_len
) <= 0
53 || EVP_PKEY_CTX_add1_tls1_prf_seed(pctx
, seed5
, (int)seed5_len
) <= 0
54 || EVP_PKEY_derive(pctx
, out
, &olen
) <= 0) {
56 SSLfatal(s
, SSL_AD_INTERNAL_ERROR
, SSL_F_TLS1_PRF
,
57 ERR_R_INTERNAL_ERROR
);
59 SSLerr(SSL_F_TLS1_PRF
, ERR_R_INTERNAL_ERROR
);
66 EVP_PKEY_CTX_free(pctx
);
70 static int tls1_generate_key_block(SSL
*s
, unsigned char *km
, size_t num
)
74 /* Calls SSLfatal() as required */
76 TLS_MD_KEY_EXPANSION_CONST
,
77 TLS_MD_KEY_EXPANSION_CONST_SIZE
, s
->s3
->server_random
,
78 SSL3_RANDOM_SIZE
, s
->s3
->client_random
, SSL3_RANDOM_SIZE
,
79 NULL
, 0, NULL
, 0, s
->session
->master_key
,
80 s
->session
->master_key_length
, km
, num
, 1);
85 int tls1_change_cipher_state(SSL
*s
, int which
)
87 unsigned char *p
, *mac_secret
;
88 unsigned char tmp1
[EVP_MAX_KEY_LENGTH
];
89 unsigned char tmp2
[EVP_MAX_KEY_LENGTH
];
90 unsigned char iv1
[EVP_MAX_IV_LENGTH
* 2];
91 unsigned char iv2
[EVP_MAX_IV_LENGTH
* 2];
92 unsigned char *ms
, *key
, *iv
;
95 #ifndef OPENSSL_NO_COMP
100 size_t *mac_secret_size
;
103 size_t n
, i
, j
, k
, cl
;
105 #ifndef OPENSSL_NO_KTLS
106 struct tls12_crypto_info_aes_gcm_128 crypto_info
;
108 unsigned char geniv
[12];
111 c
= s
->s3
->tmp
.new_sym_enc
;
112 m
= s
->s3
->tmp
.new_hash
;
113 mac_type
= s
->s3
->tmp
.new_mac_pkey_type
;
114 #ifndef OPENSSL_NO_COMP
115 comp
= s
->s3
->tmp
.new_compression
;
118 if (which
& SSL3_CC_READ
) {
120 s
->s3
->flags
|= TLS1_FLAGS_ENCRYPT_THEN_MAC_READ
;
122 s
->s3
->flags
&= ~TLS1_FLAGS_ENCRYPT_THEN_MAC_READ
;
124 if (s
->s3
->tmp
.new_cipher
->algorithm2
& TLS1_STREAM_MAC
)
125 s
->mac_flags
|= SSL_MAC_FLAG_READ_MAC_STREAM
;
127 s
->mac_flags
&= ~SSL_MAC_FLAG_READ_MAC_STREAM
;
129 if (s
->enc_read_ctx
!= NULL
) {
131 } else if ((s
->enc_read_ctx
= EVP_CIPHER_CTX_new()) == NULL
) {
132 SSLfatal(s
, SSL_AD_INTERNAL_ERROR
, SSL_F_TLS1_CHANGE_CIPHER_STATE
,
133 ERR_R_MALLOC_FAILURE
);
137 * make sure it's initialised in case we exit later with an error
139 EVP_CIPHER_CTX_reset(s
->enc_read_ctx
);
141 dd
= s
->enc_read_ctx
;
142 mac_ctx
= ssl_replace_hash(&s
->read_hash
, NULL
);
143 if (mac_ctx
== NULL
) {
144 SSLfatal(s
, SSL_AD_INTERNAL_ERROR
, SSL_F_TLS1_CHANGE_CIPHER_STATE
,
145 ERR_R_INTERNAL_ERROR
);
148 #ifndef OPENSSL_NO_COMP
149 COMP_CTX_free(s
->expand
);
152 s
->expand
= COMP_CTX_new(comp
->method
);
153 if (s
->expand
== NULL
) {
154 SSLfatal(s
, SSL_AD_INTERNAL_ERROR
,
155 SSL_F_TLS1_CHANGE_CIPHER_STATE
,
156 SSL_R_COMPRESSION_LIBRARY_ERROR
);
162 * this is done by dtls1_reset_seq_numbers for DTLS
165 RECORD_LAYER_reset_read_sequence(&s
->rlayer
);
166 mac_secret
= &(s
->s3
->read_mac_secret
[0]);
167 mac_secret_size
= &(s
->s3
->read_mac_secret_size
);
169 s
->statem
.enc_write_state
= ENC_WRITE_STATE_INVALID
;
171 s
->s3
->flags
|= TLS1_FLAGS_ENCRYPT_THEN_MAC_WRITE
;
173 s
->s3
->flags
&= ~TLS1_FLAGS_ENCRYPT_THEN_MAC_WRITE
;
175 if (s
->s3
->tmp
.new_cipher
->algorithm2
& TLS1_STREAM_MAC
)
176 s
->mac_flags
|= SSL_MAC_FLAG_WRITE_MAC_STREAM
;
178 s
->mac_flags
&= ~SSL_MAC_FLAG_WRITE_MAC_STREAM
;
179 if (s
->enc_write_ctx
!= NULL
&& !SSL_IS_DTLS(s
)) {
181 } else if ((s
->enc_write_ctx
= EVP_CIPHER_CTX_new()) == NULL
) {
182 SSLfatal(s
, SSL_AD_INTERNAL_ERROR
, SSL_F_TLS1_CHANGE_CIPHER_STATE
,
183 ERR_R_MALLOC_FAILURE
);
186 dd
= s
->enc_write_ctx
;
187 if (SSL_IS_DTLS(s
)) {
188 mac_ctx
= EVP_MD_CTX_new();
189 if (mac_ctx
== NULL
) {
190 SSLfatal(s
, SSL_AD_INTERNAL_ERROR
,
191 SSL_F_TLS1_CHANGE_CIPHER_STATE
,
192 ERR_R_MALLOC_FAILURE
);
195 s
->write_hash
= mac_ctx
;
197 mac_ctx
= ssl_replace_hash(&s
->write_hash
, NULL
);
198 if (mac_ctx
== NULL
) {
199 SSLfatal(s
, SSL_AD_INTERNAL_ERROR
,
200 SSL_F_TLS1_CHANGE_CIPHER_STATE
,
201 ERR_R_MALLOC_FAILURE
);
205 #ifndef OPENSSL_NO_COMP
206 COMP_CTX_free(s
->compress
);
209 s
->compress
= COMP_CTX_new(comp
->method
);
210 if (s
->compress
== NULL
) {
211 SSLfatal(s
, SSL_AD_INTERNAL_ERROR
,
212 SSL_F_TLS1_CHANGE_CIPHER_STATE
,
213 SSL_R_COMPRESSION_LIBRARY_ERROR
);
219 * this is done by dtls1_reset_seq_numbers for DTLS
222 RECORD_LAYER_reset_write_sequence(&s
->rlayer
);
223 mac_secret
= &(s
->s3
->write_mac_secret
[0]);
224 mac_secret_size
= &(s
->s3
->write_mac_secret_size
);
228 EVP_CIPHER_CTX_reset(dd
);
230 p
= s
->s3
->tmp
.key_block
;
231 i
= *mac_secret_size
= s
->s3
->tmp
.new_mac_secret_size
;
233 /* TODO(size_t): convert me */
234 cl
= EVP_CIPHER_key_length(c
);
236 /* Was j=(exp)?5:EVP_CIPHER_key_length(c); */
237 /* If GCM/CCM mode only part of IV comes from PRF */
238 if (EVP_CIPHER_mode(c
) == EVP_CIPH_GCM_MODE
)
239 k
= EVP_GCM_TLS_FIXED_IV_LEN
;
240 else if (EVP_CIPHER_mode(c
) == EVP_CIPH_CCM_MODE
)
241 k
= EVP_CCM_TLS_FIXED_IV_LEN
;
243 k
= EVP_CIPHER_iv_length(c
);
244 if ((which
== SSL3_CHANGE_CIPHER_CLIENT_WRITE
) ||
245 (which
== SSL3_CHANGE_CIPHER_SERVER_READ
)) {
262 if (n
> s
->s3
->tmp
.key_block_length
) {
263 SSLfatal(s
, SSL_AD_INTERNAL_ERROR
, SSL_F_TLS1_CHANGE_CIPHER_STATE
,
264 ERR_R_INTERNAL_ERROR
);
268 memcpy(mac_secret
, ms
, i
);
270 if (!(EVP_CIPHER_flags(c
) & EVP_CIPH_FLAG_AEAD_CIPHER
)) {
271 /* TODO(size_t): Convert this function */
272 mac_key
= EVP_PKEY_new_mac_key(mac_type
, NULL
, mac_secret
,
273 (int)*mac_secret_size
);
275 || EVP_DigestSignInit(mac_ctx
, NULL
, m
, NULL
, mac_key
) <= 0) {
276 EVP_PKEY_free(mac_key
);
277 SSLfatal(s
, SSL_AD_INTERNAL_ERROR
, SSL_F_TLS1_CHANGE_CIPHER_STATE
,
278 ERR_R_INTERNAL_ERROR
);
281 EVP_PKEY_free(mac_key
);
284 printf("which = %04X\nmac key=", which
);
287 for (z
= 0; z
< i
; z
++)
288 printf("%02X%c", ms
[z
], ((z
+ 1) % 16) ? ' ' : '\n');
292 if (EVP_CIPHER_mode(c
) == EVP_CIPH_GCM_MODE
) {
293 if (!EVP_CipherInit_ex(dd
, c
, NULL
, key
, NULL
, (which
& SSL3_CC_WRITE
))
294 || !EVP_CIPHER_CTX_ctrl(dd
, EVP_CTRL_GCM_SET_IV_FIXED
, (int)k
,
296 SSLfatal(s
, SSL_AD_INTERNAL_ERROR
, SSL_F_TLS1_CHANGE_CIPHER_STATE
,
297 ERR_R_INTERNAL_ERROR
);
300 } else if (EVP_CIPHER_mode(c
) == EVP_CIPH_CCM_MODE
) {
303 new_cipher
->algorithm_enc
& (SSL_AES128CCM8
| SSL_AES256CCM8
))
304 taglen
= EVP_CCM8_TLS_TAG_LEN
;
306 taglen
= EVP_CCM_TLS_TAG_LEN
;
307 if (!EVP_CipherInit_ex(dd
, c
, NULL
, NULL
, NULL
, (which
& SSL3_CC_WRITE
))
308 || !EVP_CIPHER_CTX_ctrl(dd
, EVP_CTRL_AEAD_SET_IVLEN
, 12, NULL
)
309 || !EVP_CIPHER_CTX_ctrl(dd
, EVP_CTRL_AEAD_SET_TAG
, taglen
, NULL
)
310 || !EVP_CIPHER_CTX_ctrl(dd
, EVP_CTRL_CCM_SET_IV_FIXED
, (int)k
, iv
)
311 || !EVP_CipherInit_ex(dd
, NULL
, NULL
, key
, NULL
, -1)) {
312 SSLfatal(s
, SSL_AD_INTERNAL_ERROR
, SSL_F_TLS1_CHANGE_CIPHER_STATE
,
313 ERR_R_INTERNAL_ERROR
);
317 if (!EVP_CipherInit_ex(dd
, c
, NULL
, key
, iv
, (which
& SSL3_CC_WRITE
))) {
318 SSLfatal(s
, SSL_AD_INTERNAL_ERROR
, SSL_F_TLS1_CHANGE_CIPHER_STATE
,
319 ERR_R_INTERNAL_ERROR
);
323 /* Needed for "composite" AEADs, such as RC4-HMAC-MD5 */
324 if ((EVP_CIPHER_flags(c
) & EVP_CIPH_FLAG_AEAD_CIPHER
) && *mac_secret_size
325 && !EVP_CIPHER_CTX_ctrl(dd
, EVP_CTRL_AEAD_SET_MAC_KEY
,
326 (int)*mac_secret_size
, mac_secret
)) {
327 SSLfatal(s
, SSL_AD_INTERNAL_ERROR
, SSL_F_TLS1_CHANGE_CIPHER_STATE
,
328 ERR_R_INTERNAL_ERROR
);
331 #ifndef OPENSSL_NO_KTLS
335 if ((which
& SSL3_CC_READ
) ||
336 ((which
& SSL3_CC_WRITE
) && (s
->mode
& SSL_MODE_NO_KTLS_TX
)))
339 /* ktls supports only the maximum fragment size */
340 if (ssl_get_max_send_fragment(s
) != SSL3_RT_MAX_PLAIN_LENGTH
)
343 /* check that cipher is AES_GCM_128 */
344 if (EVP_CIPHER_nid(c
) != NID_aes_128_gcm
345 || EVP_CIPHER_mode(c
) != EVP_CIPH_GCM_MODE
346 || EVP_CIPHER_key_length(c
) != TLS_CIPHER_AES_GCM_128_KEY_SIZE
)
349 /* check version is 1.2 */
350 if (s
->version
!= TLS1_2_VERSION
)
354 if (!ossl_assert(wbio
!= NULL
)) {
355 SSLfatal(s
, SSL_AD_INTERNAL_ERROR
, SSL_F_TLS1_CHANGE_CIPHER_STATE
,
356 ERR_R_INTERNAL_ERROR
);
360 /* All future data will get encrypted by ktls. Flush the BIO or skip ktls */
361 if (BIO_flush(wbio
) <= 0)
364 /* ktls doesn't support renegotiation */
365 if (BIO_get_ktls_send(s
->wbio
)) {
366 SSLfatal(s
, SSL_AD_NO_RENEGOTIATION
, SSL_F_TLS1_CHANGE_CIPHER_STATE
,
367 ERR_R_INTERNAL_ERROR
);
371 memset(&crypto_info
, 0, sizeof(crypto_info
));
372 crypto_info
.info
.cipher_type
= TLS_CIPHER_AES_GCM_128
;
373 crypto_info
.info
.version
= s
->version
;
375 EVP_CIPHER_CTX_ctrl(dd
, EVP_CTRL_GET_IV
,
376 EVP_GCM_TLS_FIXED_IV_LEN
+ EVP_GCM_TLS_EXPLICIT_IV_LEN
,
378 memcpy(crypto_info
.iv
, geniv
+ EVP_GCM_TLS_FIXED_IV_LEN
,
379 TLS_CIPHER_AES_GCM_128_IV_SIZE
);
380 memcpy(crypto_info
.salt
, geniv
, TLS_CIPHER_AES_GCM_128_SALT_SIZE
);
381 memcpy(crypto_info
.key
, key
, EVP_CIPHER_key_length(c
));
382 memcpy(crypto_info
.rec_seq
, &s
->rlayer
.write_sequence
,
383 TLS_CIPHER_AES_GCM_128_REC_SEQ_SIZE
);
385 /* ktls works with user provided buffers directly */
386 if (BIO_set_ktls(wbio
, &crypto_info
, which
& SSL3_CC_WRITE
)) {
387 ssl3_release_write_buffer(s
);
388 SSL_set_options(s
, SSL_OP_NO_RENEGOTIATION
);
392 #endif /* OPENSSL_NO_KTLS */
393 s
->statem
.enc_write_state
= ENC_WRITE_STATE_VALID
;
396 printf("which = %04X\nkey=", which
);
399 for (z
= 0; z
< EVP_CIPHER_key_length(c
); z
++)
400 printf("%02X%c", key
[z
], ((z
+ 1) % 16) ? ' ' : '\n');
405 for (z
= 0; z
< k
; z
++)
406 printf("%02X%c", iv
[z
], ((z
+ 1) % 16) ? ' ' : '\n');
411 OPENSSL_cleanse(tmp1
, sizeof(tmp1
));
412 OPENSSL_cleanse(tmp2
, sizeof(tmp1
));
413 OPENSSL_cleanse(iv1
, sizeof(iv1
));
414 OPENSSL_cleanse(iv2
, sizeof(iv2
));
417 OPENSSL_cleanse(tmp1
, sizeof(tmp1
));
418 OPENSSL_cleanse(tmp2
, sizeof(tmp1
));
419 OPENSSL_cleanse(iv1
, sizeof(iv1
));
420 OPENSSL_cleanse(iv2
, sizeof(iv2
));
424 int tls1_setup_key_block(SSL
*s
)
430 int mac_type
= NID_undef
;
431 size_t num
, mac_secret_size
= 0;
434 if (s
->s3
->tmp
.key_block_length
!= 0)
437 if (!ssl_cipher_get_evp(s
->session
, &c
, &hash
, &mac_type
, &mac_secret_size
,
438 &comp
, s
->ext
.use_etm
)) {
439 SSLfatal(s
, SSL_AD_INTERNAL_ERROR
, SSL_F_TLS1_SETUP_KEY_BLOCK
,
440 SSL_R_CIPHER_OR_HASH_UNAVAILABLE
);
444 s
->s3
->tmp
.new_sym_enc
= c
;
445 s
->s3
->tmp
.new_hash
= hash
;
446 s
->s3
->tmp
.new_mac_pkey_type
= mac_type
;
447 s
->s3
->tmp
.new_mac_secret_size
= mac_secret_size
;
448 num
= EVP_CIPHER_key_length(c
) + mac_secret_size
+ EVP_CIPHER_iv_length(c
);
451 ssl3_cleanup_key_block(s
);
453 if ((p
= OPENSSL_malloc(num
)) == NULL
) {
454 SSLfatal(s
, SSL_AD_INTERNAL_ERROR
, SSL_F_TLS1_SETUP_KEY_BLOCK
,
455 ERR_R_MALLOC_FAILURE
);
459 s
->s3
->tmp
.key_block_length
= num
;
460 s
->s3
->tmp
.key_block
= p
;
463 printf("client random\n");
466 for (z
= 0; z
< SSL3_RANDOM_SIZE
; z
++)
467 printf("%02X%c", s
->s3
->client_random
[z
],
468 ((z
+ 1) % 16) ? ' ' : '\n');
470 printf("server random\n");
473 for (z
= 0; z
< SSL3_RANDOM_SIZE
; z
++)
474 printf("%02X%c", s
->s3
->server_random
[z
],
475 ((z
+ 1) % 16) ? ' ' : '\n');
477 printf("master key\n");
480 for (z
= 0; z
< s
->session
->master_key_length
; z
++)
481 printf("%02X%c", s
->session
->master_key
[z
],
482 ((z
+ 1) % 16) ? ' ' : '\n');
485 if (!tls1_generate_key_block(s
, p
, num
)) {
486 /* SSLfatal() already called */
490 printf("\nkey block\n");
493 for (z
= 0; z
< num
; z
++)
494 printf("%02X%c", p
[z
], ((z
+ 1) % 16) ? ' ' : '\n');
498 if (!(s
->options
& SSL_OP_DONT_INSERT_EMPTY_FRAGMENTS
)
499 && s
->method
->version
<= TLS1_VERSION
) {
501 * enable vulnerability countermeasure for CBC ciphers with known-IV
502 * problem (http://www.openssl.org/~bodo/tls-cbc.txt)
504 s
->s3
->need_empty_fragments
= 1;
506 if (s
->session
->cipher
!= NULL
) {
507 if (s
->session
->cipher
->algorithm_enc
== SSL_eNULL
)
508 s
->s3
->need_empty_fragments
= 0;
510 #ifndef OPENSSL_NO_RC4
511 if (s
->session
->cipher
->algorithm_enc
== SSL_RC4
)
512 s
->s3
->need_empty_fragments
= 0;
522 size_t tls1_final_finish_mac(SSL
*s
, const char *str
, size_t slen
,
526 unsigned char hash
[EVP_MAX_MD_SIZE
];
528 if (!ssl3_digest_cached_records(s
, 0)) {
529 /* SSLfatal() already called */
533 if (!ssl_handshake_hash(s
, hash
, sizeof(hash
), &hashlen
)) {
534 /* SSLfatal() already called */
538 if (!tls1_PRF(s
, str
, slen
, hash
, hashlen
, NULL
, 0, NULL
, 0, NULL
, 0,
539 s
->session
->master_key
, s
->session
->master_key_length
,
540 out
, TLS1_FINISH_MAC_LENGTH
, 1)) {
541 /* SSLfatal() already called */
544 OPENSSL_cleanse(hash
, hashlen
);
545 return TLS1_FINISH_MAC_LENGTH
;
548 int tls1_generate_master_secret(SSL
*s
, unsigned char *out
, unsigned char *p
,
549 size_t len
, size_t *secret_size
)
551 if (s
->session
->flags
& SSL_SESS_FLAG_EXTMS
) {
552 unsigned char hash
[EVP_MAX_MD_SIZE
* 2];
555 * Digest cached records keeping record buffer (if present): this wont
556 * affect client auth because we're freezing the buffer at the same
557 * point (after client key exchange and before certificate verify)
559 if (!ssl3_digest_cached_records(s
, 1)
560 || !ssl_handshake_hash(s
, hash
, sizeof(hash
), &hashlen
)) {
561 /* SSLfatal() already called */
565 fprintf(stderr
, "Handshake hashes:\n");
566 BIO_dump_fp(stderr
, (char *)hash
, hashlen
);
569 TLS_MD_EXTENDED_MASTER_SECRET_CONST
,
570 TLS_MD_EXTENDED_MASTER_SECRET_CONST_SIZE
,
574 NULL
, 0, p
, len
, out
,
575 SSL3_MASTER_SECRET_SIZE
, 1)) {
576 /* SSLfatal() already called */
579 OPENSSL_cleanse(hash
, hashlen
);
582 TLS_MD_MASTER_SECRET_CONST
,
583 TLS_MD_MASTER_SECRET_CONST_SIZE
,
584 s
->s3
->client_random
, SSL3_RANDOM_SIZE
,
586 s
->s3
->server_random
, SSL3_RANDOM_SIZE
,
587 NULL
, 0, p
, len
, out
,
588 SSL3_MASTER_SECRET_SIZE
, 1)) {
589 /* SSLfatal() already called */
594 fprintf(stderr
, "Premaster Secret:\n");
595 BIO_dump_fp(stderr
, (char *)p
, len
);
596 fprintf(stderr
, "Client Random:\n");
597 BIO_dump_fp(stderr
, (char *)s
->s3
->client_random
, SSL3_RANDOM_SIZE
);
598 fprintf(stderr
, "Server Random:\n");
599 BIO_dump_fp(stderr
, (char *)s
->s3
->server_random
, SSL3_RANDOM_SIZE
);
600 fprintf(stderr
, "Master Secret:\n");
601 BIO_dump_fp(stderr
, (char *)s
->session
->master_key
,
602 SSL3_MASTER_SECRET_SIZE
);
605 *secret_size
= SSL3_MASTER_SECRET_SIZE
;
609 int tls1_export_keying_material(SSL
*s
, unsigned char *out
, size_t olen
,
610 const char *label
, size_t llen
,
611 const unsigned char *context
,
612 size_t contextlen
, int use_context
)
614 unsigned char *val
= NULL
;
615 size_t vallen
= 0, currentvalpos
;
619 * construct PRF arguments we construct the PRF argument ourself rather
620 * than passing separate values into the TLS PRF to ensure that the
621 * concatenation of values does not create a prohibited label.
623 vallen
= llen
+ SSL3_RANDOM_SIZE
* 2;
625 vallen
+= 2 + contextlen
;
628 val
= OPENSSL_malloc(vallen
);
632 memcpy(val
+ currentvalpos
, (unsigned char *)label
, llen
);
633 currentvalpos
+= llen
;
634 memcpy(val
+ currentvalpos
, s
->s3
->client_random
, SSL3_RANDOM_SIZE
);
635 currentvalpos
+= SSL3_RANDOM_SIZE
;
636 memcpy(val
+ currentvalpos
, s
->s3
->server_random
, SSL3_RANDOM_SIZE
);
637 currentvalpos
+= SSL3_RANDOM_SIZE
;
640 val
[currentvalpos
] = (contextlen
>> 8) & 0xff;
642 val
[currentvalpos
] = contextlen
& 0xff;
644 if ((contextlen
> 0) || (context
!= NULL
)) {
645 memcpy(val
+ currentvalpos
, context
, contextlen
);
650 * disallow prohibited labels note that SSL3_RANDOM_SIZE > max(prohibited
651 * label len) = 15, so size of val > max(prohibited label len) = 15 and
652 * the comparisons won't have buffer overflow
654 if (memcmp(val
, TLS_MD_CLIENT_FINISH_CONST
,
655 TLS_MD_CLIENT_FINISH_CONST_SIZE
) == 0)
657 if (memcmp(val
, TLS_MD_SERVER_FINISH_CONST
,
658 TLS_MD_SERVER_FINISH_CONST_SIZE
) == 0)
660 if (memcmp(val
, TLS_MD_MASTER_SECRET_CONST
,
661 TLS_MD_MASTER_SECRET_CONST_SIZE
) == 0)
663 if (memcmp(val
, TLS_MD_EXTENDED_MASTER_SECRET_CONST
,
664 TLS_MD_EXTENDED_MASTER_SECRET_CONST_SIZE
) == 0)
666 if (memcmp(val
, TLS_MD_KEY_EXPANSION_CONST
,
667 TLS_MD_KEY_EXPANSION_CONST_SIZE
) == 0)
676 s
->session
->master_key
, s
->session
->master_key_length
,
681 SSLerr(SSL_F_TLS1_EXPORT_KEYING_MATERIAL
, SSL_R_TLS_ILLEGAL_EXPORTER_LABEL
);
685 SSLerr(SSL_F_TLS1_EXPORT_KEYING_MATERIAL
, ERR_R_MALLOC_FAILURE
);
688 OPENSSL_clear_free(val
, vallen
);
692 int tls1_alert_code(int code
)
695 case SSL_AD_CLOSE_NOTIFY
:
696 return SSL3_AD_CLOSE_NOTIFY
;
697 case SSL_AD_UNEXPECTED_MESSAGE
:
698 return SSL3_AD_UNEXPECTED_MESSAGE
;
699 case SSL_AD_BAD_RECORD_MAC
:
700 return SSL3_AD_BAD_RECORD_MAC
;
701 case SSL_AD_DECRYPTION_FAILED
:
702 return TLS1_AD_DECRYPTION_FAILED
;
703 case SSL_AD_RECORD_OVERFLOW
:
704 return TLS1_AD_RECORD_OVERFLOW
;
705 case SSL_AD_DECOMPRESSION_FAILURE
:
706 return SSL3_AD_DECOMPRESSION_FAILURE
;
707 case SSL_AD_HANDSHAKE_FAILURE
:
708 return SSL3_AD_HANDSHAKE_FAILURE
;
709 case SSL_AD_NO_CERTIFICATE
:
711 case SSL_AD_BAD_CERTIFICATE
:
712 return SSL3_AD_BAD_CERTIFICATE
;
713 case SSL_AD_UNSUPPORTED_CERTIFICATE
:
714 return SSL3_AD_UNSUPPORTED_CERTIFICATE
;
715 case SSL_AD_CERTIFICATE_REVOKED
:
716 return SSL3_AD_CERTIFICATE_REVOKED
;
717 case SSL_AD_CERTIFICATE_EXPIRED
:
718 return SSL3_AD_CERTIFICATE_EXPIRED
;
719 case SSL_AD_CERTIFICATE_UNKNOWN
:
720 return SSL3_AD_CERTIFICATE_UNKNOWN
;
721 case SSL_AD_ILLEGAL_PARAMETER
:
722 return SSL3_AD_ILLEGAL_PARAMETER
;
723 case SSL_AD_UNKNOWN_CA
:
724 return TLS1_AD_UNKNOWN_CA
;
725 case SSL_AD_ACCESS_DENIED
:
726 return TLS1_AD_ACCESS_DENIED
;
727 case SSL_AD_DECODE_ERROR
:
728 return TLS1_AD_DECODE_ERROR
;
729 case SSL_AD_DECRYPT_ERROR
:
730 return TLS1_AD_DECRYPT_ERROR
;
731 case SSL_AD_EXPORT_RESTRICTION
:
732 return TLS1_AD_EXPORT_RESTRICTION
;
733 case SSL_AD_PROTOCOL_VERSION
:
734 return TLS1_AD_PROTOCOL_VERSION
;
735 case SSL_AD_INSUFFICIENT_SECURITY
:
736 return TLS1_AD_INSUFFICIENT_SECURITY
;
737 case SSL_AD_INTERNAL_ERROR
:
738 return TLS1_AD_INTERNAL_ERROR
;
739 case SSL_AD_USER_CANCELLED
:
740 return TLS1_AD_USER_CANCELLED
;
741 case SSL_AD_NO_RENEGOTIATION
:
742 return TLS1_AD_NO_RENEGOTIATION
;
743 case SSL_AD_UNSUPPORTED_EXTENSION
:
744 return TLS1_AD_UNSUPPORTED_EXTENSION
;
745 case SSL_AD_CERTIFICATE_UNOBTAINABLE
:
746 return TLS1_AD_CERTIFICATE_UNOBTAINABLE
;
747 case SSL_AD_UNRECOGNIZED_NAME
:
748 return TLS1_AD_UNRECOGNIZED_NAME
;
749 case SSL_AD_BAD_CERTIFICATE_STATUS_RESPONSE
:
750 return TLS1_AD_BAD_CERTIFICATE_STATUS_RESPONSE
;
751 case SSL_AD_BAD_CERTIFICATE_HASH_VALUE
:
752 return TLS1_AD_BAD_CERTIFICATE_HASH_VALUE
;
753 case SSL_AD_UNKNOWN_PSK_IDENTITY
:
754 return TLS1_AD_UNKNOWN_PSK_IDENTITY
;
755 case SSL_AD_INAPPROPRIATE_FALLBACK
:
756 return TLS1_AD_INAPPROPRIATE_FALLBACK
;
757 case SSL_AD_NO_APPLICATION_PROTOCOL
:
758 return TLS1_AD_NO_APPLICATION_PROTOCOL
;
759 case SSL_AD_CERTIFICATE_REQUIRED
:
760 return SSL_AD_HANDSHAKE_FAILURE
;