/src/openssl40/ssl/t1_enc.c
Line | Count | Source |
1 | | /* |
2 | | * Copyright 1995-2026 The OpenSSL Project Authors. All Rights Reserved. |
3 | | * Copyright 2005 Nokia. All rights reserved. |
4 | | * |
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 |
9 | | */ |
10 | | |
11 | | #include <stdio.h> |
12 | | #include "ssl_local.h" |
13 | | #include "record/record_local.h" |
14 | | #include "internal/ktls.h" |
15 | | #include "internal/cryptlib.h" |
16 | | #include "internal/ssl_unwrap.h" |
17 | | #include <openssl/comp.h> |
18 | | #include <openssl/evp.h> |
19 | | #include <openssl/kdf.h> |
20 | | #include <openssl/rand.h> |
21 | | #include <openssl/obj_mac.h> |
22 | | #include <openssl/core_names.h> |
23 | | #include <openssl/trace.h> |
24 | | |
25 | | /* seed1 through seed5 are concatenated */ |
26 | | static int tls1_PRF(SSL_CONNECTION *s, |
27 | | const void *seed1, size_t seed1_len, |
28 | | const void *seed2, size_t seed2_len, |
29 | | const void *seed3, size_t seed3_len, |
30 | | const void *seed4, size_t seed4_len, |
31 | | const void *seed5, size_t seed5_len, |
32 | | const unsigned char *sec, size_t slen, |
33 | | unsigned char *out, size_t olen, int fatal) |
34 | 5.16k | { |
35 | 5.16k | const EVP_MD *md = ssl_prf_md(s); |
36 | 5.16k | EVP_KDF *kdf; |
37 | 5.16k | EVP_KDF_CTX *kctx = NULL; |
38 | 5.16k | OSSL_PARAM params[9], *p = params; |
39 | 5.16k | const char *mdname; |
40 | | |
41 | 5.16k | if (md == NULL) { |
42 | | /* Should never happen */ |
43 | 0 | if (fatal) |
44 | 0 | SSLfatal(s, SSL_AD_INTERNAL_ERROR, ERR_R_INTERNAL_ERROR); |
45 | 0 | else |
46 | 0 | ERR_raise(ERR_LIB_SSL, ERR_R_INTERNAL_ERROR); |
47 | 0 | return 0; |
48 | 0 | } |
49 | 5.16k | kdf = EVP_KDF_fetch(SSL_CONNECTION_GET_CTX(s)->libctx, |
50 | 5.16k | OSSL_KDF_NAME_TLS1_PRF, |
51 | 5.16k | SSL_CONNECTION_GET_CTX(s)->propq); |
52 | 5.16k | if (kdf == NULL) |
53 | 0 | goto err; |
54 | 5.16k | kctx = EVP_KDF_CTX_new(kdf); |
55 | 5.16k | EVP_KDF_free(kdf); |
56 | 5.16k | if (kctx == NULL) |
57 | 0 | goto err; |
58 | 5.16k | mdname = EVP_MD_get0_name(md); |
59 | 5.16k | *p++ = OSSL_PARAM_construct_utf8_string(OSSL_KDF_PARAM_DIGEST, |
60 | 5.16k | (char *)mdname, 0); |
61 | 5.16k | *p++ = OSSL_PARAM_construct_octet_string(OSSL_KDF_PARAM_SECRET, |
62 | 5.16k | (unsigned char *)sec, |
63 | 5.16k | (size_t)slen); |
64 | 5.16k | *p++ = OSSL_PARAM_construct_octet_string(OSSL_KDF_PARAM_SEED, |
65 | 5.16k | (void *)seed1, (size_t)seed1_len); |
66 | 5.16k | *p++ = OSSL_PARAM_construct_octet_string(OSSL_KDF_PARAM_SEED, |
67 | 5.16k | (void *)seed2, (size_t)seed2_len); |
68 | 5.16k | *p++ = OSSL_PARAM_construct_octet_string(OSSL_KDF_PARAM_SEED, |
69 | 5.16k | (void *)seed3, (size_t)seed3_len); |
70 | 5.16k | *p++ = OSSL_PARAM_construct_octet_string(OSSL_KDF_PARAM_SEED, |
71 | 5.16k | (void *)seed4, (size_t)seed4_len); |
72 | 5.16k | *p++ = OSSL_PARAM_construct_octet_string(OSSL_KDF_PARAM_SEED, |
73 | 5.16k | (void *)seed5, (size_t)seed5_len); |
74 | | /* |
75 | | * If we have a property query string, the kdf needs to know about it in the event |
76 | | * the specific kdf in use allocated a digest as part of its implementation |
77 | | */ |
78 | 5.16k | if (SSL_CONNECTION_GET_CTX(s)->propq != NULL) |
79 | 0 | *p++ = OSSL_PARAM_construct_utf8_string(OSSL_KDF_PARAM_PROPERTIES, |
80 | 0 | (char *)SSL_CONNECTION_GET_CTX(s)->propq, 0); |
81 | 5.16k | *p = OSSL_PARAM_construct_end(); |
82 | 5.16k | if (EVP_KDF_derive(kctx, out, olen, params)) { |
83 | 5.16k | EVP_KDF_CTX_free(kctx); |
84 | 5.16k | return 1; |
85 | 5.16k | } |
86 | | |
87 | 0 | err: |
88 | 0 | if (fatal) |
89 | 0 | SSLfatal(s, SSL_AD_INTERNAL_ERROR, ERR_R_INTERNAL_ERROR); |
90 | 0 | else |
91 | 0 | ERR_raise(ERR_LIB_SSL, ERR_R_INTERNAL_ERROR); |
92 | 0 | EVP_KDF_CTX_free(kctx); |
93 | 0 | return 0; |
94 | 5.16k | } |
95 | | |
96 | | static int tls1_generate_key_block(SSL_CONNECTION *s, unsigned char *km, |
97 | | size_t num) |
98 | 21.8k | { |
99 | 21.8k | int ret; |
100 | | |
101 | | /* Calls SSLfatal() as required */ |
102 | 21.8k | ret = tls1_PRF(s, |
103 | 21.8k | TLS_MD_KEY_EXPANSION_CONST, |
104 | 21.8k | TLS_MD_KEY_EXPANSION_CONST_SIZE, s->s3.server_random, |
105 | 21.8k | SSL3_RANDOM_SIZE, s->s3.client_random, SSL3_RANDOM_SIZE, |
106 | 21.8k | NULL, 0, NULL, 0, s->session->master_key, |
107 | 21.8k | s->session->master_key_length, km, num, 1); |
108 | | |
109 | 21.8k | return ret; |
110 | 21.8k | } |
111 | | |
112 | | static int tls_iv_length_within_key_block(const EVP_CIPHER *c) |
113 | 51.3k | { |
114 | | /* If GCM/CCM mode only part of IV comes from PRF */ |
115 | 51.3k | if (EVP_CIPHER_get_mode(c) == EVP_CIPH_GCM_MODE) |
116 | 6.40k | return EVP_GCM_TLS_FIXED_IV_LEN; |
117 | 44.9k | else if (EVP_CIPHER_get_mode(c) == EVP_CIPH_CCM_MODE) |
118 | 3.48k | return EVP_CCM_TLS_FIXED_IV_LEN; |
119 | 41.5k | else |
120 | 41.5k | return EVP_CIPHER_get_iv_length(c); |
121 | 51.3k | } |
122 | | |
123 | | int tls1_change_cipher_state(SSL_CONNECTION *s, int which) |
124 | 21.9k | { |
125 | 21.9k | unsigned char *p, *mac_secret; |
126 | 21.9k | unsigned char *key, *iv; |
127 | 21.9k | const EVP_CIPHER *c; |
128 | 21.9k | const SSL_COMP *comp = NULL; |
129 | 21.9k | const EVP_MD *m; |
130 | 21.9k | int mac_type; |
131 | 21.9k | size_t mac_secret_size; |
132 | 21.9k | size_t n, i, j, k, cl; |
133 | 21.9k | int iivlen; |
134 | | /* |
135 | | * Taglen is only relevant for CCM ciphersuites. Other ciphersuites |
136 | | * ignore this value so we can default it to 0. |
137 | | */ |
138 | 21.9k | size_t taglen = 0; |
139 | 21.9k | int direction; |
140 | | |
141 | 21.9k | c = s->s3.tmp.new_sym_enc; |
142 | 21.9k | m = s->s3.tmp.new_hash; |
143 | 21.9k | mac_type = s->s3.tmp.new_mac_pkey_type; |
144 | 21.9k | #ifndef OPENSSL_NO_COMP |
145 | 21.9k | comp = s->s3.tmp.new_compression; |
146 | 21.9k | #endif |
147 | | |
148 | 21.9k | p = s->s3.tmp.key_block; |
149 | 21.9k | i = mac_secret_size = s->s3.tmp.new_mac_secret_size; |
150 | | |
151 | 21.9k | cl = EVP_CIPHER_get_key_length(c); |
152 | 21.9k | j = cl; |
153 | 21.9k | iivlen = tls_iv_length_within_key_block(c); |
154 | 21.9k | if (iivlen < 0) { |
155 | 0 | SSLfatal(s, SSL_AD_INTERNAL_ERROR, ERR_R_INTERNAL_ERROR); |
156 | 0 | goto err; |
157 | 0 | } |
158 | 21.9k | k = iivlen; |
159 | 21.9k | if ((which == SSL3_CHANGE_CIPHER_CLIENT_WRITE) || (which == SSL3_CHANGE_CIPHER_SERVER_READ)) { |
160 | 16.2k | mac_secret = &(p[0]); |
161 | 16.2k | n = i + i; |
162 | 16.2k | key = &(p[n]); |
163 | 16.2k | n += j + j; |
164 | 16.2k | iv = &(p[n]); |
165 | 16.2k | n += k + k; |
166 | 16.2k | } else { |
167 | 5.68k | n = i; |
168 | 5.68k | mac_secret = &(p[n]); |
169 | 5.68k | n += i + j; |
170 | 5.68k | key = &(p[n]); |
171 | 5.68k | n += j + k; |
172 | 5.68k | iv = &(p[n]); |
173 | 5.68k | n += k; |
174 | 5.68k | } |
175 | | |
176 | 21.9k | if (n > s->s3.tmp.key_block_length) { |
177 | 0 | SSLfatal(s, SSL_AD_INTERNAL_ERROR, ERR_R_INTERNAL_ERROR); |
178 | 0 | goto err; |
179 | 0 | } |
180 | | |
181 | 21.9k | switch (EVP_CIPHER_get_mode(c)) { |
182 | 2.73k | case EVP_CIPH_GCM_MODE: |
183 | 2.73k | taglen = EVP_GCM_TLS_TAG_LEN; |
184 | 2.73k | break; |
185 | 1.49k | case EVP_CIPH_CCM_MODE: |
186 | 1.49k | if ((s->s3.tmp.new_cipher->algorithm_enc |
187 | 1.49k | & (SSL_AES128CCM8 | SSL_AES256CCM8)) |
188 | 1.49k | != 0) |
189 | 652 | taglen = EVP_CCM8_TLS_TAG_LEN; |
190 | 841 | else |
191 | 841 | taglen = EVP_CCM_TLS_TAG_LEN; |
192 | 1.49k | break; |
193 | 17.7k | default: |
194 | 17.7k | if (EVP_CIPHER_is_a(c, "CHACHA20-POLY1305")) { |
195 | 277 | taglen = EVP_CHACHAPOLY_TLS_TAG_LEN; |
196 | 17.4k | } else { |
197 | | /* MAC secret size corresponds to the MAC output size */ |
198 | 17.4k | taglen = s->s3.tmp.new_mac_secret_size; |
199 | 17.4k | } |
200 | 17.7k | break; |
201 | 21.9k | } |
202 | | |
203 | 21.9k | if (which & SSL3_CC_READ) { |
204 | 11.2k | if (s->ext.use_etm) |
205 | 431 | s->s3.flags |= TLS1_FLAGS_ENCRYPT_THEN_MAC_READ; |
206 | 10.8k | else |
207 | 10.8k | s->s3.flags &= ~TLS1_FLAGS_ENCRYPT_THEN_MAC_READ; |
208 | | |
209 | 11.2k | if (s->s3.tmp.new_cipher->algorithm2 & TLS1_STREAM_MAC) |
210 | 0 | s->mac_flags |= SSL_MAC_FLAG_READ_MAC_STREAM; |
211 | 11.2k | else |
212 | 11.2k | s->mac_flags &= ~SSL_MAC_FLAG_READ_MAC_STREAM; |
213 | | |
214 | 11.2k | if (s->s3.tmp.new_cipher->algorithm2 & TLS1_TLSTREE) |
215 | 0 | s->mac_flags |= SSL_MAC_FLAG_READ_MAC_TLSTREE; |
216 | 11.2k | else |
217 | 11.2k | s->mac_flags &= ~SSL_MAC_FLAG_READ_MAC_TLSTREE; |
218 | | |
219 | 11.2k | direction = OSSL_RECORD_DIRECTION_READ; |
220 | 11.2k | } else { |
221 | 10.6k | if (s->ext.use_etm) |
222 | 435 | s->s3.flags |= TLS1_FLAGS_ENCRYPT_THEN_MAC_WRITE; |
223 | 10.2k | else |
224 | 10.2k | s->s3.flags &= ~TLS1_FLAGS_ENCRYPT_THEN_MAC_WRITE; |
225 | | |
226 | 10.6k | if (s->s3.tmp.new_cipher->algorithm2 & TLS1_STREAM_MAC) |
227 | 0 | s->mac_flags |= SSL_MAC_FLAG_WRITE_MAC_STREAM; |
228 | 10.6k | else |
229 | 10.6k | s->mac_flags &= ~SSL_MAC_FLAG_WRITE_MAC_STREAM; |
230 | | |
231 | 10.6k | if (s->s3.tmp.new_cipher->algorithm2 & TLS1_TLSTREE) |
232 | 0 | s->mac_flags |= SSL_MAC_FLAG_WRITE_MAC_TLSTREE; |
233 | 10.6k | else |
234 | 10.6k | s->mac_flags &= ~SSL_MAC_FLAG_WRITE_MAC_TLSTREE; |
235 | | |
236 | 10.6k | direction = OSSL_RECORD_DIRECTION_WRITE; |
237 | 10.6k | } |
238 | | |
239 | 21.9k | if (SSL_CONNECTION_IS_DTLS(s)) |
240 | 10.1k | dtls1_increment_epoch(s, which); |
241 | | |
242 | 21.9k | if (!ssl_set_new_record_layer(s, s->version, direction, |
243 | 21.9k | OSSL_RECORD_PROTECTION_LEVEL_APPLICATION, |
244 | 21.9k | NULL, 0, key, cl, iv, (size_t)k, mac_secret, |
245 | 21.9k | mac_secret_size, c, taglen, mac_type, |
246 | 21.9k | m, comp, NULL)) { |
247 | | /* SSLfatal already called */ |
248 | 0 | goto err; |
249 | 0 | } |
250 | | |
251 | 21.9k | OSSL_TRACE_BEGIN(TLS) |
252 | 0 | { |
253 | 0 | BIO_printf(trc_out, "which = %04X, key:\n", which); |
254 | 0 | BIO_dump_indent(trc_out, key, EVP_CIPHER_get_key_length(c), 4); |
255 | 0 | BIO_printf(trc_out, "iv:\n"); |
256 | 0 | BIO_dump_indent(trc_out, iv, (int)k, 4); |
257 | 0 | } |
258 | 21.9k | OSSL_TRACE_END(TLS); |
259 | | |
260 | 21.9k | return 1; |
261 | 0 | err: |
262 | 0 | return 0; |
263 | 21.9k | } |
264 | | |
265 | | int tls1_setup_key_block(SSL_CONNECTION *s) |
266 | 23.2k | { |
267 | 23.2k | unsigned char *p; |
268 | 23.2k | const EVP_CIPHER *c; |
269 | 23.2k | const EVP_MD *hash; |
270 | 23.2k | SSL_COMP *comp; |
271 | 23.2k | int mac_type = NID_undef; |
272 | 23.2k | size_t num, mac_secret_size = 0; |
273 | 23.2k | int ret = 0; |
274 | 23.2k | int ivlen; |
275 | | |
276 | 23.2k | if (s->s3.tmp.key_block_length != 0) |
277 | 1.36k | return 1; |
278 | | |
279 | 21.8k | if (!ssl_cipher_get_evp(SSL_CONNECTION_GET_CTX(s), s->session, &c, &hash, |
280 | 21.8k | &mac_type, &mac_secret_size, &comp, |
281 | 21.8k | s->ext.use_etm)) { |
282 | | /* Error is already recorded */ |
283 | 0 | SSLfatal_alert(s, SSL_AD_INTERNAL_ERROR); |
284 | 0 | return 0; |
285 | 0 | } |
286 | | |
287 | 21.8k | ssl_evp_cipher_free(s->s3.tmp.new_sym_enc); |
288 | 21.8k | s->s3.tmp.new_sym_enc = c; |
289 | 21.8k | ssl_evp_md_free(s->s3.tmp.new_hash); |
290 | 21.8k | s->s3.tmp.new_hash = hash; |
291 | 21.8k | s->s3.tmp.new_mac_pkey_type = mac_type; |
292 | 21.8k | s->s3.tmp.new_mac_secret_size = mac_secret_size; |
293 | 21.8k | ivlen = tls_iv_length_within_key_block(c); |
294 | 21.8k | if (ivlen < 0) { |
295 | 0 | SSLfatal(s, SSL_AD_INTERNAL_ERROR, ERR_R_INTERNAL_ERROR); |
296 | 0 | return 0; |
297 | 0 | } |
298 | 21.8k | num = mac_secret_size + EVP_CIPHER_get_key_length(c) + ivlen; |
299 | 21.8k | num *= 2; |
300 | | |
301 | 21.8k | ssl3_cleanup_key_block(s); |
302 | | |
303 | 21.8k | if ((p = OPENSSL_malloc(num)) == NULL) { |
304 | 0 | SSLfatal(s, SSL_AD_INTERNAL_ERROR, ERR_R_CRYPTO_LIB); |
305 | 0 | goto err; |
306 | 0 | } |
307 | | |
308 | 21.8k | s->s3.tmp.key_block_length = num; |
309 | 21.8k | s->s3.tmp.key_block = p; |
310 | | |
311 | 21.8k | OSSL_TRACE_BEGIN(TLS) |
312 | 0 | { |
313 | 0 | BIO_printf(trc_out, "key block length: %zu\n", num); |
314 | 0 | BIO_printf(trc_out, "client random\n"); |
315 | 0 | BIO_dump_indent(trc_out, s->s3.client_random, SSL3_RANDOM_SIZE, 4); |
316 | 0 | BIO_printf(trc_out, "server random\n"); |
317 | 0 | BIO_dump_indent(trc_out, s->s3.server_random, SSL3_RANDOM_SIZE, 4); |
318 | 0 | BIO_printf(trc_out, "master key\n"); |
319 | 0 | BIO_dump_indent(trc_out, |
320 | 0 | s->session->master_key, |
321 | 0 | (int)s->session->master_key_length, 4); |
322 | 0 | } |
323 | 21.8k | OSSL_TRACE_END(TLS); |
324 | | |
325 | 21.8k | if (!tls1_generate_key_block(s, p, num)) { |
326 | | /* SSLfatal() already called */ |
327 | 0 | goto err; |
328 | 0 | } |
329 | | |
330 | 21.8k | OSSL_TRACE_BEGIN(TLS) |
331 | 0 | { |
332 | 0 | BIO_printf(trc_out, "key block\n"); |
333 | 0 | BIO_dump_indent(trc_out, p, (int)num, 4); |
334 | 0 | } |
335 | 21.8k | OSSL_TRACE_END(TLS); |
336 | | |
337 | 21.8k | ret = 1; |
338 | 21.8k | err: |
339 | 21.8k | return ret; |
340 | 21.8k | } |
341 | | |
342 | | size_t tls1_final_finish_mac(SSL_CONNECTION *s, const char *str, |
343 | | size_t slen, unsigned char *out) |
344 | 17.0k | { |
345 | 17.0k | size_t hashlen; |
346 | 17.0k | unsigned char hash[EVP_MAX_MD_SIZE]; |
347 | 17.0k | size_t finished_size = TLS1_FINISH_MAC_LENGTH; |
348 | | |
349 | 17.0k | if (s->s3.tmp.new_cipher->algorithm_mkey & SSL_kGOST18) |
350 | 0 | finished_size = 32; |
351 | | |
352 | 17.0k | if (!ssl3_digest_cached_records(s, 0)) { |
353 | | /* SSLfatal() already called */ |
354 | 0 | return 0; |
355 | 0 | } |
356 | | |
357 | 17.0k | if (!ssl_handshake_hash(s, hash, sizeof(hash), &hashlen)) { |
358 | | /* SSLfatal() already called */ |
359 | 0 | return 0; |
360 | 0 | } |
361 | | |
362 | 17.0k | if (!tls1_PRF(s, str, slen, hash, hashlen, NULL, 0, NULL, 0, NULL, 0, |
363 | 17.0k | s->session->master_key, s->session->master_key_length, |
364 | 17.0k | out, finished_size, 1)) { |
365 | | /* SSLfatal() already called */ |
366 | 0 | return 0; |
367 | 0 | } |
368 | 17.0k | OPENSSL_cleanse(hash, hashlen); |
369 | 17.0k | return finished_size; |
370 | 17.0k | } |
371 | | |
372 | | int tls1_generate_master_secret(SSL_CONNECTION *s, unsigned char *out, |
373 | | unsigned char *p, size_t len, |
374 | | size_t *secret_size) |
375 | 25.9k | { |
376 | 25.9k | if (s->session->flags & SSL_SESS_FLAG_EXTMS) { |
377 | 3.42k | unsigned char hash[EVP_MAX_MD_SIZE * 2]; |
378 | 3.42k | size_t hashlen; |
379 | | /* |
380 | | * Digest cached records keeping record buffer (if present): this won't |
381 | | * affect client auth because we're freezing the buffer at the same |
382 | | * point (after client key exchange and before certificate verify) |
383 | | */ |
384 | 3.42k | if (!ssl3_digest_cached_records(s, 1) |
385 | 3.42k | || !ssl_handshake_hash(s, hash, sizeof(hash), &hashlen)) { |
386 | | /* SSLfatal() already called */ |
387 | 0 | return 0; |
388 | 0 | } |
389 | 3.42k | OSSL_TRACE_BEGIN(TLS) |
390 | 0 | { |
391 | 0 | BIO_printf(trc_out, "Handshake hashes:\n"); |
392 | 0 | BIO_dump(trc_out, (char *)hash, (int)hashlen); |
393 | 0 | } |
394 | 3.42k | OSSL_TRACE_END(TLS); |
395 | 3.42k | if (!tls1_PRF(s, |
396 | 3.42k | TLS_MD_EXTENDED_MASTER_SECRET_CONST, |
397 | 3.42k | TLS_MD_EXTENDED_MASTER_SECRET_CONST_SIZE, |
398 | 3.42k | hash, hashlen, |
399 | 3.42k | NULL, 0, |
400 | 3.42k | NULL, 0, |
401 | 3.42k | NULL, 0, p, len, out, |
402 | 3.42k | SSL3_MASTER_SECRET_SIZE, 1)) { |
403 | | /* SSLfatal() already called */ |
404 | 0 | return 0; |
405 | 0 | } |
406 | 3.42k | OPENSSL_cleanse(hash, hashlen); |
407 | 22.5k | } else { |
408 | 22.5k | if (!tls1_PRF(s, |
409 | 22.5k | TLS_MD_MASTER_SECRET_CONST, |
410 | 22.5k | TLS_MD_MASTER_SECRET_CONST_SIZE, |
411 | 22.5k | s->s3.client_random, SSL3_RANDOM_SIZE, |
412 | 22.5k | NULL, 0, |
413 | 22.5k | s->s3.server_random, SSL3_RANDOM_SIZE, |
414 | 22.5k | NULL, 0, p, len, out, |
415 | 22.5k | SSL3_MASTER_SECRET_SIZE, 1)) { |
416 | | /* SSLfatal() already called */ |
417 | 0 | return 0; |
418 | 0 | } |
419 | 22.5k | } |
420 | | |
421 | 25.9k | OSSL_TRACE_BEGIN(TLS) |
422 | 0 | { |
423 | 0 | BIO_printf(trc_out, "Premaster Secret:\n"); |
424 | 0 | BIO_dump_indent(trc_out, p, (int)len, 4); |
425 | 0 | BIO_printf(trc_out, "Client Random:\n"); |
426 | 0 | BIO_dump_indent(trc_out, s->s3.client_random, SSL3_RANDOM_SIZE, 4); |
427 | 0 | BIO_printf(trc_out, "Server Random:\n"); |
428 | 0 | BIO_dump_indent(trc_out, s->s3.server_random, SSL3_RANDOM_SIZE, 4); |
429 | 0 | BIO_printf(trc_out, "Master Secret:\n"); |
430 | 0 | BIO_dump_indent(trc_out, |
431 | 0 | s->session->master_key, |
432 | 0 | SSL3_MASTER_SECRET_SIZE, 4); |
433 | 0 | } |
434 | 25.9k | OSSL_TRACE_END(TLS); |
435 | | |
436 | 25.9k | *secret_size = SSL3_MASTER_SECRET_SIZE; |
437 | 25.9k | return 1; |
438 | 25.9k | } |
439 | | |
440 | | int tls1_export_keying_material(SSL_CONNECTION *s, unsigned char *out, |
441 | | size_t olen, const char *label, size_t llen, |
442 | | const unsigned char *context, |
443 | | size_t contextlen, int use_context) |
444 | 0 | { |
445 | 0 | unsigned char *val = NULL; |
446 | 0 | size_t vallen = 0, currentvalpos; |
447 | 0 | int rv = 0; |
448 | | |
449 | | /* |
450 | | * RFC 5705 embeds context length as uint16; reject longer context |
451 | | * before proceeding. |
452 | | */ |
453 | 0 | if (contextlen > 0xffff) { |
454 | 0 | ERR_raise(ERR_LIB_SSL, ERR_R_PASSED_INVALID_ARGUMENT); |
455 | 0 | return 0; |
456 | 0 | } |
457 | | |
458 | | /* |
459 | | * construct PRF arguments we construct the PRF argument ourself rather |
460 | | * than passing separate values into the TLS PRF to ensure that the |
461 | | * concatenation of values does not create a prohibited label. |
462 | | */ |
463 | 0 | vallen = llen + SSL3_RANDOM_SIZE * 2; |
464 | 0 | if (use_context) { |
465 | 0 | vallen += 2 + contextlen; |
466 | 0 | } |
467 | |
|
468 | 0 | val = OPENSSL_malloc(vallen); |
469 | 0 | if (val == NULL) |
470 | 0 | goto ret; |
471 | 0 | currentvalpos = 0; |
472 | 0 | memcpy(val + currentvalpos, label, llen); |
473 | 0 | currentvalpos += llen; |
474 | 0 | memcpy(val + currentvalpos, s->s3.client_random, SSL3_RANDOM_SIZE); |
475 | 0 | currentvalpos += SSL3_RANDOM_SIZE; |
476 | 0 | memcpy(val + currentvalpos, s->s3.server_random, SSL3_RANDOM_SIZE); |
477 | 0 | currentvalpos += SSL3_RANDOM_SIZE; |
478 | |
|
479 | 0 | if (use_context) { |
480 | 0 | val[currentvalpos] = (contextlen >> 8) & 0xff; |
481 | 0 | currentvalpos++; |
482 | 0 | val[currentvalpos] = contextlen & 0xff; |
483 | 0 | currentvalpos++; |
484 | 0 | if ((contextlen > 0) || (context != NULL)) { |
485 | 0 | memcpy(val + currentvalpos, context, contextlen); |
486 | 0 | } |
487 | 0 | } |
488 | | |
489 | | /* |
490 | | * disallow prohibited labels note that SSL3_RANDOM_SIZE > max(prohibited |
491 | | * label len) = 15, so size of val > max(prohibited label len) = 15 and |
492 | | * the comparisons won't have buffer overflow |
493 | | */ |
494 | 0 | if (memcmp(val, TLS_MD_CLIENT_FINISH_CONST, |
495 | 0 | TLS_MD_CLIENT_FINISH_CONST_SIZE) |
496 | 0 | == 0) |
497 | 0 | goto err1; |
498 | 0 | if (memcmp(val, TLS_MD_SERVER_FINISH_CONST, |
499 | 0 | TLS_MD_SERVER_FINISH_CONST_SIZE) |
500 | 0 | == 0) |
501 | 0 | goto err1; |
502 | 0 | if (memcmp(val, TLS_MD_MASTER_SECRET_CONST, |
503 | 0 | TLS_MD_MASTER_SECRET_CONST_SIZE) |
504 | 0 | == 0) |
505 | 0 | goto err1; |
506 | 0 | if (memcmp(val, TLS_MD_EXTENDED_MASTER_SECRET_CONST, |
507 | 0 | TLS_MD_EXTENDED_MASTER_SECRET_CONST_SIZE) |
508 | 0 | == 0) |
509 | 0 | goto err1; |
510 | 0 | if (memcmp(val, TLS_MD_KEY_EXPANSION_CONST, |
511 | 0 | TLS_MD_KEY_EXPANSION_CONST_SIZE) |
512 | 0 | == 0) |
513 | 0 | goto err1; |
514 | | |
515 | 0 | rv = tls1_PRF(s, |
516 | 0 | val, vallen, |
517 | 0 | NULL, 0, |
518 | 0 | NULL, 0, |
519 | 0 | NULL, 0, |
520 | 0 | NULL, 0, |
521 | 0 | s->session->master_key, s->session->master_key_length, |
522 | 0 | out, olen, 0); |
523 | |
|
524 | 0 | goto ret; |
525 | 0 | err1: |
526 | 0 | ERR_raise(ERR_LIB_SSL, SSL_R_TLS_ILLEGAL_EXPORTER_LABEL); |
527 | 0 | ret: |
528 | 0 | OPENSSL_clear_free(val, vallen); |
529 | 0 | return rv; |
530 | 0 | } |
531 | | |
532 | | int tls1_alert_code(int code) |
533 | 51.4k | { |
534 | 51.4k | switch (code) { |
535 | 307 | case SSL_AD_CLOSE_NOTIFY: |
536 | 307 | return SSL3_AD_CLOSE_NOTIFY; |
537 | 4.44k | case SSL_AD_UNEXPECTED_MESSAGE: |
538 | 4.44k | return SSL3_AD_UNEXPECTED_MESSAGE; |
539 | 760 | case SSL_AD_BAD_RECORD_MAC: |
540 | 760 | return SSL3_AD_BAD_RECORD_MAC; |
541 | 0 | case SSL_AD_DECRYPTION_FAILED: |
542 | 0 | return TLS1_AD_DECRYPTION_FAILED; |
543 | 147 | case SSL_AD_RECORD_OVERFLOW: |
544 | 147 | return TLS1_AD_RECORD_OVERFLOW; |
545 | 0 | case SSL_AD_DECOMPRESSION_FAILURE: |
546 | 0 | return SSL3_AD_DECOMPRESSION_FAILURE; |
547 | 984 | case SSL_AD_HANDSHAKE_FAILURE: |
548 | 984 | return SSL3_AD_HANDSHAKE_FAILURE; |
549 | 0 | case SSL_AD_NO_CERTIFICATE: |
550 | 0 | return -1; |
551 | 5.26k | case SSL_AD_BAD_CERTIFICATE: |
552 | 5.26k | return SSL3_AD_BAD_CERTIFICATE; |
553 | 0 | case SSL_AD_UNSUPPORTED_CERTIFICATE: |
554 | 0 | return SSL3_AD_UNSUPPORTED_CERTIFICATE; |
555 | 0 | case SSL_AD_CERTIFICATE_REVOKED: |
556 | 0 | return SSL3_AD_CERTIFICATE_REVOKED; |
557 | 0 | case SSL_AD_CERTIFICATE_EXPIRED: |
558 | 0 | return SSL3_AD_CERTIFICATE_EXPIRED; |
559 | 0 | case SSL_AD_CERTIFICATE_UNKNOWN: |
560 | 0 | return SSL3_AD_CERTIFICATE_UNKNOWN; |
561 | 4.27k | case SSL_AD_ILLEGAL_PARAMETER: |
562 | 4.27k | return SSL3_AD_ILLEGAL_PARAMETER; |
563 | 0 | case SSL_AD_UNKNOWN_CA: |
564 | 0 | return TLS1_AD_UNKNOWN_CA; |
565 | 0 | case SSL_AD_ACCESS_DENIED: |
566 | 0 | return TLS1_AD_ACCESS_DENIED; |
567 | 4.50k | case SSL_AD_DECODE_ERROR: |
568 | 4.50k | return TLS1_AD_DECODE_ERROR; |
569 | 1.33k | case SSL_AD_DECRYPT_ERROR: |
570 | 1.33k | return TLS1_AD_DECRYPT_ERROR; |
571 | 0 | case SSL_AD_EXPORT_RESTRICTION: |
572 | 0 | return TLS1_AD_EXPORT_RESTRICTION; |
573 | 1.44k | case SSL_AD_PROTOCOL_VERSION: |
574 | 1.44k | return TLS1_AD_PROTOCOL_VERSION; |
575 | 0 | case SSL_AD_INSUFFICIENT_SECURITY: |
576 | 0 | return TLS1_AD_INSUFFICIENT_SECURITY; |
577 | 1.06k | case SSL_AD_INTERNAL_ERROR: |
578 | 1.06k | return TLS1_AD_INTERNAL_ERROR; |
579 | 0 | case SSL_AD_USER_CANCELLED: |
580 | 0 | return TLS1_AD_USER_CANCELLED; |
581 | 26.7k | case SSL_AD_NO_RENEGOTIATION: |
582 | 26.7k | return TLS1_AD_NO_RENEGOTIATION; |
583 | 81 | case SSL_AD_UNSUPPORTED_EXTENSION: |
584 | 81 | return TLS1_AD_UNSUPPORTED_EXTENSION; |
585 | 0 | case SSL_AD_CERTIFICATE_UNOBTAINABLE: |
586 | 0 | return TLS1_AD_CERTIFICATE_UNOBTAINABLE; |
587 | 8 | case SSL_AD_UNRECOGNIZED_NAME: |
588 | 8 | return TLS1_AD_UNRECOGNIZED_NAME; |
589 | 0 | case SSL_AD_BAD_CERTIFICATE_STATUS_RESPONSE: |
590 | 0 | return TLS1_AD_BAD_CERTIFICATE_STATUS_RESPONSE; |
591 | 0 | case SSL_AD_BAD_CERTIFICATE_HASH_VALUE: |
592 | 0 | return TLS1_AD_BAD_CERTIFICATE_HASH_VALUE; |
593 | 0 | case SSL_AD_UNKNOWN_PSK_IDENTITY: |
594 | 0 | return TLS1_AD_UNKNOWN_PSK_IDENTITY; |
595 | 13 | case SSL_AD_INAPPROPRIATE_FALLBACK: |
596 | 13 | return TLS1_AD_INAPPROPRIATE_FALLBACK; |
597 | 0 | case SSL_AD_NO_APPLICATION_PROTOCOL: |
598 | 0 | return TLS1_AD_NO_APPLICATION_PROTOCOL; |
599 | 0 | case SSL_AD_CERTIFICATE_REQUIRED: |
600 | 0 | return SSL_AD_HANDSHAKE_FAILURE; |
601 | 8 | case TLS13_AD_MISSING_EXTENSION: |
602 | 8 | return SSL_AD_HANDSHAKE_FAILURE; |
603 | 0 | #ifndef OPENSSL_NO_ECH |
604 | 0 | case SSL_AD_ECH_REQUIRED: |
605 | 0 | return TLS1_AD_ECH_REQUIRED; |
606 | 0 | #endif |
607 | 0 | default: |
608 | 0 | return -1; |
609 | 51.4k | } |
610 | 51.4k | } |