2 * Copyright 1995-2016 The OpenSSL Project Authors. All Rights Reserved.
4 * Licensed under the OpenSSL license (the "License"). You may not use
5 * this file except in compliance with the License. You can obtain a copy
6 * in the file LICENSE in the source distribution or at
7 * https://www.openssl.org/source/license.html
10 /* ====================================================================
11 * Copyright 2005 Nokia. All rights reserved.
13 * The portions of the attached software ("Contribution") is developed by
14 * Nokia Corporation and is licensed pursuant to the OpenSSL open source
17 * The Contribution, originally written by Mika Kousa and Pasi Eronen of
18 * Nokia Corporation, consists of the "PSK" (Pre-Shared Key) ciphersuites
19 * support (see RFC 4279) to OpenSSL.
21 * No patent licenses or other rights except those expressly stated in
22 * the OpenSSL open source license shall be deemed granted or received
23 * expressly, by implication, estoppel, or otherwise.
25 * No assurances are provided by Nokia that the Contribution does not
26 * infringe the patent or other intellectual property rights of any third
27 * party or that the license provides you with all the necessary rights
28 * to make use of the Contribution.
30 * THE SOFTWARE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. IN
31 * ADDITION TO THE DISCLAIMERS INCLUDED IN THE LICENSE, NOKIA
32 * SPECIFICALLY DISCLAIMS ANY LIABILITY FOR CLAIMS BROUGHT BY YOU OR ANY
33 * OTHER ENTITY BASED ON INFRINGEMENT OF INTELLECTUAL PROPERTY RIGHTS OR
39 #include <openssl/comp.h>
40 #include <openssl/evp.h>
41 #include <openssl/kdf.h>
42 #include <openssl/rand.h>
44 /* seed1 through seed5 are concatenated */
45 static int tls1_PRF(SSL
*s
,
46 const void *seed1
, size_t seed1_len
,
47 const void *seed2
, size_t seed2_len
,
48 const void *seed3
, size_t seed3_len
,
49 const void *seed4
, size_t seed4_len
,
50 const void *seed5
, size_t seed5_len
,
51 const unsigned char *sec
, size_t slen
,
52 unsigned char *out
, size_t olen
)
54 const EVP_MD
*md
= ssl_prf_md(s
);
55 EVP_PKEY_CTX
*pctx
= NULL
;
60 /* Should never happen */
61 SSLerr(SSL_F_TLS1_PRF
, ERR_R_INTERNAL_ERROR
);
64 pctx
= EVP_PKEY_CTX_new_id(EVP_PKEY_TLS1_PRF
, NULL
);
65 if (pctx
== NULL
|| EVP_PKEY_derive_init(pctx
) <= 0
66 || EVP_PKEY_CTX_set_tls1_prf_md(pctx
, md
) <= 0
67 || EVP_PKEY_CTX_set1_tls1_prf_secret(pctx
, sec
, (int)slen
) <= 0)
70 if (EVP_PKEY_CTX_add1_tls1_prf_seed(pctx
, seed1
, (int)seed1_len
) <= 0)
72 if (EVP_PKEY_CTX_add1_tls1_prf_seed(pctx
, seed2
, (int)seed2_len
) <= 0)
74 if (EVP_PKEY_CTX_add1_tls1_prf_seed(pctx
, seed3
, (int)seed3_len
) <= 0)
76 if (EVP_PKEY_CTX_add1_tls1_prf_seed(pctx
, seed4
, (int)seed4_len
) <= 0)
78 if (EVP_PKEY_CTX_add1_tls1_prf_seed(pctx
, seed5
, (int)seed5_len
) <= 0)
81 if (EVP_PKEY_derive(pctx
, out
, &olen
) <= 0)
86 EVP_PKEY_CTX_free(pctx
);
90 static int tls1_generate_key_block(SSL
*s
, unsigned char *km
, size_t num
)
94 TLS_MD_KEY_EXPANSION_CONST
,
95 TLS_MD_KEY_EXPANSION_CONST_SIZE
, s
->s3
->server_random
,
96 SSL3_RANDOM_SIZE
, s
->s3
->client_random
, SSL3_RANDOM_SIZE
,
97 NULL
, 0, NULL
, 0, s
->session
->master_key
,
98 s
->session
->master_key_length
, km
, num
);
103 int tls1_change_cipher_state(SSL
*s
, int which
)
105 unsigned char *p
, *mac_secret
;
106 unsigned char tmp1
[EVP_MAX_KEY_LENGTH
];
107 unsigned char tmp2
[EVP_MAX_KEY_LENGTH
];
108 unsigned char iv1
[EVP_MAX_IV_LENGTH
* 2];
109 unsigned char iv2
[EVP_MAX_IV_LENGTH
* 2];
110 unsigned char *ms
, *key
, *iv
;
113 #ifndef OPENSSL_NO_COMP
114 const SSL_COMP
*comp
;
118 size_t *mac_secret_size
;
121 size_t n
, i
, j
, k
, cl
;
124 c
= s
->s3
->tmp
.new_sym_enc
;
125 m
= s
->s3
->tmp
.new_hash
;
126 mac_type
= s
->s3
->tmp
.new_mac_pkey_type
;
127 #ifndef OPENSSL_NO_COMP
128 comp
= s
->s3
->tmp
.new_compression
;
131 if (which
& SSL3_CC_READ
) {
133 s
->s3
->flags
|= TLS1_FLAGS_ENCRYPT_THEN_MAC_READ
;
135 s
->s3
->flags
&= ~TLS1_FLAGS_ENCRYPT_THEN_MAC_READ
;
137 if (s
->s3
->tmp
.new_cipher
->algorithm2
& TLS1_STREAM_MAC
)
138 s
->mac_flags
|= SSL_MAC_FLAG_READ_MAC_STREAM
;
140 s
->mac_flags
&= ~SSL_MAC_FLAG_READ_MAC_STREAM
;
142 if (s
->enc_read_ctx
!= NULL
)
144 else if ((s
->enc_read_ctx
= EVP_CIPHER_CTX_new()) == NULL
)
148 * make sure it's initialised in case we exit later with an error
150 EVP_CIPHER_CTX_reset(s
->enc_read_ctx
);
151 dd
= s
->enc_read_ctx
;
152 mac_ctx
= ssl_replace_hash(&s
->read_hash
, NULL
);
155 #ifndef OPENSSL_NO_COMP
156 COMP_CTX_free(s
->expand
);
159 s
->expand
= COMP_CTX_new(comp
->method
);
160 if (s
->expand
== NULL
) {
161 SSLerr(SSL_F_TLS1_CHANGE_CIPHER_STATE
,
162 SSL_R_COMPRESSION_LIBRARY_ERROR
);
168 * this is done by dtls1_reset_seq_numbers for DTLS
171 RECORD_LAYER_reset_read_sequence(&s
->rlayer
);
172 mac_secret
= &(s
->s3
->read_mac_secret
[0]);
173 mac_secret_size
= &(s
->s3
->read_mac_secret_size
);
176 s
->s3
->flags
|= TLS1_FLAGS_ENCRYPT_THEN_MAC_WRITE
;
178 s
->s3
->flags
&= ~TLS1_FLAGS_ENCRYPT_THEN_MAC_WRITE
;
180 if (s
->s3
->tmp
.new_cipher
->algorithm2
& TLS1_STREAM_MAC
)
181 s
->mac_flags
|= SSL_MAC_FLAG_WRITE_MAC_STREAM
;
183 s
->mac_flags
&= ~SSL_MAC_FLAG_WRITE_MAC_STREAM
;
184 if (s
->enc_write_ctx
!= NULL
&& !SSL_IS_DTLS(s
))
186 else if ((s
->enc_write_ctx
= EVP_CIPHER_CTX_new()) == NULL
)
188 dd
= s
->enc_write_ctx
;
189 if (SSL_IS_DTLS(s
)) {
190 mac_ctx
= EVP_MD_CTX_new();
193 s
->write_hash
= mac_ctx
;
195 mac_ctx
= ssl_replace_hash(&s
->write_hash
, NULL
);
199 #ifndef OPENSSL_NO_COMP
200 COMP_CTX_free(s
->compress
);
203 s
->compress
= COMP_CTX_new(comp
->method
);
204 if (s
->compress
== NULL
) {
205 SSLerr(SSL_F_TLS1_CHANGE_CIPHER_STATE
,
206 SSL_R_COMPRESSION_LIBRARY_ERROR
);
212 * this is done by dtls1_reset_seq_numbers for DTLS
215 RECORD_LAYER_reset_write_sequence(&s
->rlayer
);
216 mac_secret
= &(s
->s3
->write_mac_secret
[0]);
217 mac_secret_size
= &(s
->s3
->write_mac_secret_size
);
221 EVP_CIPHER_CTX_reset(dd
);
223 p
= s
->s3
->tmp
.key_block
;
224 i
= *mac_secret_size
= s
->s3
->tmp
.new_mac_secret_size
;
226 /* TODO(size_t): convert me */
227 cl
= EVP_CIPHER_key_length(c
);
229 /* Was j=(exp)?5:EVP_CIPHER_key_length(c); */
230 /* If GCM/CCM mode only part of IV comes from PRF */
231 if (EVP_CIPHER_mode(c
) == EVP_CIPH_GCM_MODE
)
232 k
= EVP_GCM_TLS_FIXED_IV_LEN
;
233 else if (EVP_CIPHER_mode(c
) == EVP_CIPH_CCM_MODE
)
234 k
= EVP_CCM_TLS_FIXED_IV_LEN
;
236 k
= EVP_CIPHER_iv_length(c
);
237 if ((which
== SSL3_CHANGE_CIPHER_CLIENT_WRITE
) ||
238 (which
== SSL3_CHANGE_CIPHER_SERVER_READ
)) {
255 if (n
> s
->s3
->tmp
.key_block_length
) {
256 SSLerr(SSL_F_TLS1_CHANGE_CIPHER_STATE
, ERR_R_INTERNAL_ERROR
);
260 memcpy(mac_secret
, ms
, i
);
262 if (!(EVP_CIPHER_flags(c
) & EVP_CIPH_FLAG_AEAD_CIPHER
)) {
263 /* TODO(size_t): Convert this function */
264 mac_key
= EVP_PKEY_new_mac_key(mac_type
, NULL
,
265 mac_secret
, (int)*mac_secret_size
);
267 || EVP_DigestSignInit(mac_ctx
, NULL
, m
, NULL
, mac_key
) <= 0) {
268 EVP_PKEY_free(mac_key
);
269 SSLerr(SSL_F_TLS1_CHANGE_CIPHER_STATE
, ERR_R_INTERNAL_ERROR
);
272 EVP_PKEY_free(mac_key
);
275 printf("which = %04X\nmac key=", which
);
278 for (z
= 0; z
< i
; z
++)
279 printf("%02X%c", ms
[z
], ((z
+ 1) % 16) ? ' ' : '\n');
283 if (EVP_CIPHER_mode(c
) == EVP_CIPH_GCM_MODE
) {
284 if (!EVP_CipherInit_ex(dd
, c
, NULL
, key
, NULL
, (which
& SSL3_CC_WRITE
))
285 || !EVP_CIPHER_CTX_ctrl(dd
, EVP_CTRL_GCM_SET_IV_FIXED
, (int)k
,
287 SSLerr(SSL_F_TLS1_CHANGE_CIPHER_STATE
, ERR_R_INTERNAL_ERROR
);
290 } else if (EVP_CIPHER_mode(c
) == EVP_CIPH_CCM_MODE
) {
293 new_cipher
->algorithm_enc
& (SSL_AES128CCM8
| SSL_AES256CCM8
))
294 taglen
= EVP_CCM8_TLS_TAG_LEN
;
296 taglen
= EVP_CCM_TLS_TAG_LEN
;
297 if (!EVP_CipherInit_ex(dd
, c
, NULL
, NULL
, NULL
, (which
& SSL3_CC_WRITE
))
298 || !EVP_CIPHER_CTX_ctrl(dd
, EVP_CTRL_AEAD_SET_IVLEN
, 12, NULL
)
299 || !EVP_CIPHER_CTX_ctrl(dd
, EVP_CTRL_AEAD_SET_TAG
, taglen
, NULL
)
300 || !EVP_CIPHER_CTX_ctrl(dd
, EVP_CTRL_CCM_SET_IV_FIXED
, (int)k
, iv
)
301 || !EVP_CipherInit_ex(dd
, NULL
, NULL
, key
, NULL
, -1)) {
302 SSLerr(SSL_F_TLS1_CHANGE_CIPHER_STATE
, ERR_R_INTERNAL_ERROR
);
306 if (!EVP_CipherInit_ex(dd
, c
, NULL
, key
, iv
, (which
& SSL3_CC_WRITE
))) {
307 SSLerr(SSL_F_TLS1_CHANGE_CIPHER_STATE
, ERR_R_INTERNAL_ERROR
);
311 /* Needed for "composite" AEADs, such as RC4-HMAC-MD5 */
312 if ((EVP_CIPHER_flags(c
) & EVP_CIPH_FLAG_AEAD_CIPHER
) && *mac_secret_size
313 && !EVP_CIPHER_CTX_ctrl(dd
, EVP_CTRL_AEAD_SET_MAC_KEY
,
314 (int)*mac_secret_size
, mac_secret
)) {
315 SSLerr(SSL_F_TLS1_CHANGE_CIPHER_STATE
, ERR_R_INTERNAL_ERROR
);
318 #ifdef OPENSSL_SSL_TRACE_CRYPTO
319 if (s
->msg_callback
) {
320 int wh
= which
& SSL3_CC_WRITE
? TLS1_RT_CRYPTO_WRITE
: 0;
321 if (*mac_secret_size
)
322 s
->msg_callback(2, s
->version
, wh
| TLS1_RT_CRYPTO_MAC
,
323 mac_secret
, *mac_secret_size
,
324 s
, s
->msg_callback_arg
);
326 s
->msg_callback(2, s
->version
, wh
| TLS1_RT_CRYPTO_KEY
,
327 key
, c
->key_len
, s
, s
->msg_callback_arg
);
329 if (EVP_CIPHER_mode(c
) == EVP_CIPH_GCM_MODE
)
330 wh
|= TLS1_RT_CRYPTO_FIXED_IV
;
332 wh
|= TLS1_RT_CRYPTO_IV
;
333 s
->msg_callback(2, s
->version
, wh
, iv
, k
, s
, s
->msg_callback_arg
);
339 printf("which = %04X\nkey=", which
);
342 for (z
= 0; z
< EVP_CIPHER_key_length(c
); z
++)
343 printf("%02X%c", key
[z
], ((z
+ 1) % 16) ? ' ' : '\n');
348 for (z
= 0; z
< k
; z
++)
349 printf("%02X%c", iv
[z
], ((z
+ 1) % 16) ? ' ' : '\n');
354 OPENSSL_cleanse(tmp1
, sizeof(tmp1
));
355 OPENSSL_cleanse(tmp2
, sizeof(tmp1
));
356 OPENSSL_cleanse(iv1
, sizeof(iv1
));
357 OPENSSL_cleanse(iv2
, sizeof(iv2
));
360 SSLerr(SSL_F_TLS1_CHANGE_CIPHER_STATE
, ERR_R_MALLOC_FAILURE
);
362 OPENSSL_cleanse(tmp1
, sizeof(tmp1
));
363 OPENSSL_cleanse(tmp2
, sizeof(tmp1
));
364 OPENSSL_cleanse(iv1
, sizeof(iv1
));
365 OPENSSL_cleanse(iv2
, sizeof(iv2
));
369 int tls1_setup_key_block(SSL
*s
)
375 int mac_type
= NID_undef
;
376 size_t num
, mac_secret_size
= 0;
379 if (s
->s3
->tmp
.key_block_length
!= 0)
382 if (!ssl_cipher_get_evp(s
->session
, &c
, &hash
, &mac_type
, &mac_secret_size
,
383 &comp
, s
->ext
.use_etm
)) {
384 SSLerr(SSL_F_TLS1_SETUP_KEY_BLOCK
, SSL_R_CIPHER_OR_HASH_UNAVAILABLE
);
388 s
->s3
->tmp
.new_sym_enc
= c
;
389 s
->s3
->tmp
.new_hash
= hash
;
390 s
->s3
->tmp
.new_mac_pkey_type
= mac_type
;
391 s
->s3
->tmp
.new_mac_secret_size
= mac_secret_size
;
392 num
= EVP_CIPHER_key_length(c
) + mac_secret_size
+ EVP_CIPHER_iv_length(c
);
395 ssl3_cleanup_key_block(s
);
397 if ((p
= OPENSSL_malloc(num
)) == NULL
) {
398 SSLerr(SSL_F_TLS1_SETUP_KEY_BLOCK
, ERR_R_MALLOC_FAILURE
);
402 s
->s3
->tmp
.key_block_length
= num
;
403 s
->s3
->tmp
.key_block
= p
;
406 printf("client random\n");
409 for (z
= 0; z
< SSL3_RANDOM_SIZE
; z
++)
410 printf("%02X%c", s
->s3
->client_random
[z
],
411 ((z
+ 1) % 16) ? ' ' : '\n');
413 printf("server random\n");
416 for (z
= 0; z
< SSL3_RANDOM_SIZE
; z
++)
417 printf("%02X%c", s
->s3
->server_random
[z
],
418 ((z
+ 1) % 16) ? ' ' : '\n');
420 printf("master key\n");
423 for (z
= 0; z
< s
->session
->master_key_length
; z
++)
424 printf("%02X%c", s
->session
->master_key
[z
],
425 ((z
+ 1) % 16) ? ' ' : '\n');
428 if (!tls1_generate_key_block(s
, p
, num
))
431 printf("\nkey block\n");
434 for (z
= 0; z
< num
; z
++)
435 printf("%02X%c", p
[z
], ((z
+ 1) % 16) ? ' ' : '\n');
439 if (!(s
->options
& SSL_OP_DONT_INSERT_EMPTY_FRAGMENTS
)
440 && s
->method
->version
<= TLS1_VERSION
) {
442 * enable vulnerability countermeasure for CBC ciphers with known-IV
443 * problem (http://www.openssl.org/~bodo/tls-cbc.txt)
445 s
->s3
->need_empty_fragments
= 1;
447 if (s
->session
->cipher
!= NULL
) {
448 if (s
->session
->cipher
->algorithm_enc
== SSL_eNULL
)
449 s
->s3
->need_empty_fragments
= 0;
451 #ifndef OPENSSL_NO_RC4
452 if (s
->session
->cipher
->algorithm_enc
== SSL_RC4
)
453 s
->s3
->need_empty_fragments
= 0;
463 size_t tls1_final_finish_mac(SSL
*s
, const char *str
, size_t slen
,
467 unsigned char hash
[EVP_MAX_MD_SIZE
];
469 if (!ssl3_digest_cached_records(s
, 0))
472 if (!ssl_handshake_hash(s
, hash
, sizeof(hash
), &hashlen
))
475 if (!tls1_PRF(s
, str
, slen
, hash
, hashlen
, NULL
, 0, NULL
, 0, NULL
, 0,
476 s
->session
->master_key
, s
->session
->master_key_length
,
477 out
, TLS1_FINISH_MAC_LENGTH
))
479 OPENSSL_cleanse(hash
, hashlen
);
480 return TLS1_FINISH_MAC_LENGTH
;
483 int tls1_generate_master_secret(SSL
*s
, unsigned char *out
, unsigned char *p
,
484 size_t len
, size_t *secret_size
)
487 * TODO(TLS1.3): We haven't implemented TLS1.3 key derivation yet. For now
488 * we will just force no use of EMS (which adds complications around the
489 * handshake hash). This will need to be removed later
491 if ((s
->session
->flags
& SSL_SESS_FLAG_EXTMS
)
492 && !SSL_IS_TLS13(s
)) {
493 unsigned char hash
[EVP_MAX_MD_SIZE
* 2];
496 * Digest cached records keeping record buffer (if present): this wont
497 * affect client auth because we're freezing the buffer at the same
498 * point (after client key exchange and before certificate verify)
500 if (!ssl3_digest_cached_records(s
, 1))
502 if(!ssl_handshake_hash(s
, hash
, sizeof(hash
), &hashlen
))
505 fprintf(stderr
, "Handshake hashes:\n");
506 BIO_dump_fp(stderr
, (char *)hash
, hashlen
);
509 TLS_MD_EXTENDED_MASTER_SECRET_CONST
,
510 TLS_MD_EXTENDED_MASTER_SECRET_CONST_SIZE
,
514 NULL
, 0, p
, len
, s
->session
->master_key
,
515 SSL3_MASTER_SECRET_SIZE
);
516 OPENSSL_cleanse(hash
, hashlen
);
519 TLS_MD_MASTER_SECRET_CONST
,
520 TLS_MD_MASTER_SECRET_CONST_SIZE
,
521 s
->s3
->client_random
, SSL3_RANDOM_SIZE
,
523 s
->s3
->server_random
, SSL3_RANDOM_SIZE
,
524 NULL
, 0, p
, len
, s
->session
->master_key
,
525 SSL3_MASTER_SECRET_SIZE
);
528 fprintf(stderr
, "Premaster Secret:\n");
529 BIO_dump_fp(stderr
, (char *)p
, len
);
530 fprintf(stderr
, "Client Random:\n");
531 BIO_dump_fp(stderr
, (char *)s
->s3
->client_random
, SSL3_RANDOM_SIZE
);
532 fprintf(stderr
, "Server Random:\n");
533 BIO_dump_fp(stderr
, (char *)s
->s3
->server_random
, SSL3_RANDOM_SIZE
);
534 fprintf(stderr
, "Master Secret:\n");
535 BIO_dump_fp(stderr
, (char *)s
->session
->master_key
,
536 SSL3_MASTER_SECRET_SIZE
);
539 #ifdef OPENSSL_SSL_TRACE_CRYPTO
540 if (s
->msg_callback
) {
541 s
->msg_callback(2, s
->version
, TLS1_RT_CRYPTO_PREMASTER
,
542 p
, len
, s
, s
->msg_callback_arg
);
543 s
->msg_callback(2, s
->version
, TLS1_RT_CRYPTO_CLIENT_RANDOM
,
544 s
->s3
->client_random
, SSL3_RANDOM_SIZE
,
545 s
, s
->msg_callback_arg
);
546 s
->msg_callback(2, s
->version
, TLS1_RT_CRYPTO_SERVER_RANDOM
,
547 s
->s3
->server_random
, SSL3_RANDOM_SIZE
,
548 s
, s
->msg_callback_arg
);
549 s
->msg_callback(2, s
->version
, TLS1_RT_CRYPTO_MASTER
,
550 s
->session
->master_key
,
551 SSL3_MASTER_SECRET_SIZE
, s
, s
->msg_callback_arg
);
555 *secret_size
= SSL3_MASTER_SECRET_SIZE
;
559 int tls1_export_keying_material(SSL
*s
, unsigned char *out
, size_t olen
,
560 const char *label
, size_t llen
,
561 const unsigned char *context
,
562 size_t contextlen
, int use_context
)
564 unsigned char *val
= NULL
;
565 size_t vallen
= 0, currentvalpos
;
569 * construct PRF arguments we construct the PRF argument ourself rather
570 * than passing separate values into the TLS PRF to ensure that the
571 * concatenation of values does not create a prohibited label.
573 vallen
= llen
+ SSL3_RANDOM_SIZE
* 2;
575 vallen
+= 2 + contextlen
;
578 val
= OPENSSL_malloc(vallen
);
582 memcpy(val
+ currentvalpos
, (unsigned char *)label
, llen
);
583 currentvalpos
+= llen
;
584 memcpy(val
+ currentvalpos
, s
->s3
->client_random
, SSL3_RANDOM_SIZE
);
585 currentvalpos
+= SSL3_RANDOM_SIZE
;
586 memcpy(val
+ currentvalpos
, s
->s3
->server_random
, SSL3_RANDOM_SIZE
);
587 currentvalpos
+= SSL3_RANDOM_SIZE
;
590 val
[currentvalpos
] = (contextlen
>> 8) & 0xff;
592 val
[currentvalpos
] = contextlen
& 0xff;
594 if ((contextlen
> 0) || (context
!= NULL
)) {
595 memcpy(val
+ currentvalpos
, context
, contextlen
);
600 * disallow prohibited labels note that SSL3_RANDOM_SIZE > max(prohibited
601 * label len) = 15, so size of val > max(prohibited label len) = 15 and
602 * the comparisons won't have buffer overflow
604 if (memcmp(val
, TLS_MD_CLIENT_FINISH_CONST
,
605 TLS_MD_CLIENT_FINISH_CONST_SIZE
) == 0)
607 if (memcmp(val
, TLS_MD_SERVER_FINISH_CONST
,
608 TLS_MD_SERVER_FINISH_CONST_SIZE
) == 0)
610 if (memcmp(val
, TLS_MD_MASTER_SECRET_CONST
,
611 TLS_MD_MASTER_SECRET_CONST_SIZE
) == 0)
613 if (memcmp(val
, TLS_MD_EXTENDED_MASTER_SECRET_CONST
,
614 TLS_MD_EXTENDED_MASTER_SECRET_CONST_SIZE
) == 0)
616 if (memcmp(val
, TLS_MD_KEY_EXPANSION_CONST
,
617 TLS_MD_KEY_EXPANSION_CONST_SIZE
) == 0)
626 s
->session
->master_key
, s
->session
->master_key_length
,
631 SSLerr(SSL_F_TLS1_EXPORT_KEYING_MATERIAL
, SSL_R_TLS_ILLEGAL_EXPORTER_LABEL
);
635 SSLerr(SSL_F_TLS1_EXPORT_KEYING_MATERIAL
, ERR_R_MALLOC_FAILURE
);
638 OPENSSL_clear_free(val
, vallen
);
642 int tls1_alert_code(int code
)
645 case SSL_AD_CLOSE_NOTIFY
:
646 return (SSL3_AD_CLOSE_NOTIFY
);
647 case SSL_AD_UNEXPECTED_MESSAGE
:
648 return (SSL3_AD_UNEXPECTED_MESSAGE
);
649 case SSL_AD_BAD_RECORD_MAC
:
650 return (SSL3_AD_BAD_RECORD_MAC
);
651 case SSL_AD_DECRYPTION_FAILED
:
652 return (TLS1_AD_DECRYPTION_FAILED
);
653 case SSL_AD_RECORD_OVERFLOW
:
654 return (TLS1_AD_RECORD_OVERFLOW
);
655 case SSL_AD_DECOMPRESSION_FAILURE
:
656 return (SSL3_AD_DECOMPRESSION_FAILURE
);
657 case SSL_AD_HANDSHAKE_FAILURE
:
658 return (SSL3_AD_HANDSHAKE_FAILURE
);
659 case SSL_AD_NO_CERTIFICATE
:
661 case SSL_AD_BAD_CERTIFICATE
:
662 return (SSL3_AD_BAD_CERTIFICATE
);
663 case SSL_AD_UNSUPPORTED_CERTIFICATE
:
664 return (SSL3_AD_UNSUPPORTED_CERTIFICATE
);
665 case SSL_AD_CERTIFICATE_REVOKED
:
666 return (SSL3_AD_CERTIFICATE_REVOKED
);
667 case SSL_AD_CERTIFICATE_EXPIRED
:
668 return (SSL3_AD_CERTIFICATE_EXPIRED
);
669 case SSL_AD_CERTIFICATE_UNKNOWN
:
670 return (SSL3_AD_CERTIFICATE_UNKNOWN
);
671 case SSL_AD_ILLEGAL_PARAMETER
:
672 return (SSL3_AD_ILLEGAL_PARAMETER
);
673 case SSL_AD_UNKNOWN_CA
:
674 return (TLS1_AD_UNKNOWN_CA
);
675 case SSL_AD_ACCESS_DENIED
:
676 return (TLS1_AD_ACCESS_DENIED
);
677 case SSL_AD_DECODE_ERROR
:
678 return (TLS1_AD_DECODE_ERROR
);
679 case SSL_AD_DECRYPT_ERROR
:
680 return (TLS1_AD_DECRYPT_ERROR
);
681 case SSL_AD_EXPORT_RESTRICTION
:
682 return (TLS1_AD_EXPORT_RESTRICTION
);
683 case SSL_AD_PROTOCOL_VERSION
:
684 return (TLS1_AD_PROTOCOL_VERSION
);
685 case SSL_AD_INSUFFICIENT_SECURITY
:
686 return (TLS1_AD_INSUFFICIENT_SECURITY
);
687 case SSL_AD_INTERNAL_ERROR
:
688 return (TLS1_AD_INTERNAL_ERROR
);
689 case SSL_AD_USER_CANCELLED
:
690 return (TLS1_AD_USER_CANCELLED
);
691 case SSL_AD_NO_RENEGOTIATION
:
692 return (TLS1_AD_NO_RENEGOTIATION
);
693 case SSL_AD_UNSUPPORTED_EXTENSION
:
694 return (TLS1_AD_UNSUPPORTED_EXTENSION
);
695 case SSL_AD_CERTIFICATE_UNOBTAINABLE
:
696 return (TLS1_AD_CERTIFICATE_UNOBTAINABLE
);
697 case SSL_AD_UNRECOGNIZED_NAME
:
698 return (TLS1_AD_UNRECOGNIZED_NAME
);
699 case SSL_AD_BAD_CERTIFICATE_STATUS_RESPONSE
:
700 return (TLS1_AD_BAD_CERTIFICATE_STATUS_RESPONSE
);
701 case SSL_AD_BAD_CERTIFICATE_HASH_VALUE
:
702 return (TLS1_AD_BAD_CERTIFICATE_HASH_VALUE
);
703 case SSL_AD_UNKNOWN_PSK_IDENTITY
:
704 return (TLS1_AD_UNKNOWN_PSK_IDENTITY
);
705 case SSL_AD_INAPPROPRIATE_FALLBACK
:
706 return (TLS1_AD_INAPPROPRIATE_FALLBACK
);
707 case SSL_AD_NO_APPLICATION_PROTOCOL
:
708 return (TLS1_AD_NO_APPLICATION_PROTOCOL
);