xref: /openbsd-src/lib/libssl/ssl_clnt.c (revision af97903fb555373f4af4abf3f3808148e699bb6f)
1 /* $OpenBSD: ssl_clnt.c,v 1.128 2022/01/08 12:59:58 jsing Exp $ */
2 /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
3  * All rights reserved.
4  *
5  * This package is an SSL implementation written
6  * by Eric Young (eay@cryptsoft.com).
7  * The implementation was written so as to conform with Netscapes SSL.
8  *
9  * This library is free for commercial and non-commercial use as long as
10  * the following conditions are aheared to.  The following conditions
11  * apply to all code found in this distribution, be it the RC4, RSA,
12  * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
13  * included with this distribution is covered by the same copyright terms
14  * except that the holder is Tim Hudson (tjh@cryptsoft.com).
15  *
16  * Copyright remains Eric Young's, and as such any Copyright notices in
17  * the code are not to be removed.
18  * If this package is used in a product, Eric Young should be given attribution
19  * as the author of the parts of the library used.
20  * This can be in the form of a textual message at program startup or
21  * in documentation (online or textual) provided with the package.
22  *
23  * Redistribution and use in source and binary forms, with or without
24  * modification, are permitted provided that the following conditions
25  * are met:
26  * 1. Redistributions of source code must retain the copyright
27  *    notice, this list of conditions and the following disclaimer.
28  * 2. Redistributions in binary form must reproduce the above copyright
29  *    notice, this list of conditions and the following disclaimer in the
30  *    documentation and/or other materials provided with the distribution.
31  * 3. All advertising materials mentioning features or use of this software
32  *    must display the following acknowledgement:
33  *    "This product includes cryptographic software written by
34  *     Eric Young (eay@cryptsoft.com)"
35  *    The word 'cryptographic' can be left out if the rouines from the library
36  *    being used are not cryptographic related :-).
37  * 4. If you include any Windows specific code (or a derivative thereof) from
38  *    the apps directory (application code) you must include an acknowledgement:
39  *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
40  *
41  * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
42  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
43  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
44  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
45  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
46  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
47  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
48  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
49  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
50  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
51  * SUCH DAMAGE.
52  *
53  * The licence and distribution terms for any publically available version or
54  * derivative of this code cannot be changed.  i.e. this code cannot simply be
55  * copied and put under another distribution licence
56  * [including the GNU Public Licence.]
57  */
58 /* ====================================================================
59  * Copyright (c) 1998-2007 The OpenSSL Project.  All rights reserved.
60  *
61  * Redistribution and use in source and binary forms, with or without
62  * modification, are permitted provided that the following conditions
63  * are met:
64  *
65  * 1. Redistributions of source code must retain the above copyright
66  *    notice, this list of conditions and the following disclaimer.
67  *
68  * 2. Redistributions in binary form must reproduce the above copyright
69  *    notice, this list of conditions and the following disclaimer in
70  *    the documentation and/or other materials provided with the
71  *    distribution.
72  *
73  * 3. All advertising materials mentioning features or use of this
74  *    software must display the following acknowledgment:
75  *    "This product includes software developed by the OpenSSL Project
76  *    for use in the OpenSSL Toolkit. (http://www.openssl.org/)"
77  *
78  * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
79  *    endorse or promote products derived from this software without
80  *    prior written permission. For written permission, please contact
81  *    openssl-core@openssl.org.
82  *
83  * 5. Products derived from this software may not be called "OpenSSL"
84  *    nor may "OpenSSL" appear in their names without prior written
85  *    permission of the OpenSSL Project.
86  *
87  * 6. Redistributions of any form whatsoever must retain the following
88  *    acknowledgment:
89  *    "This product includes software developed by the OpenSSL Project
90  *    for use in the OpenSSL Toolkit (http://www.openssl.org/)"
91  *
92  * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
93  * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
94  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
95  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
96  * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
97  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
98  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
99  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
100  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
101  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
102  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
103  * OF THE POSSIBILITY OF SUCH DAMAGE.
104  * ====================================================================
105  *
106  * This product includes cryptographic software written by Eric Young
107  * (eay@cryptsoft.com).  This product includes software written by Tim
108  * Hudson (tjh@cryptsoft.com).
109  *
110  */
111 /* ====================================================================
112  * Copyright 2002 Sun Microsystems, Inc. ALL RIGHTS RESERVED.
113  *
114  * Portions of the attached software ("Contribution") are developed by
115  * SUN MICROSYSTEMS, INC., and are contributed to the OpenSSL project.
116  *
117  * The Contribution is licensed pursuant to the OpenSSL open source
118  * license provided above.
119  *
120  * ECC cipher suite support in OpenSSL originally written by
121  * Vipul Gupta and Sumit Gupta of Sun Microsystems Laboratories.
122  *
123  */
124 /* ====================================================================
125  * Copyright 2005 Nokia. All rights reserved.
126  *
127  * The portions of the attached software ("Contribution") is developed by
128  * Nokia Corporation and is licensed pursuant to the OpenSSL open source
129  * license.
130  *
131  * The Contribution, originally written by Mika Kousa and Pasi Eronen of
132  * Nokia Corporation, consists of the "PSK" (Pre-Shared Key) ciphersuites
133  * support (see RFC 4279) to OpenSSL.
134  *
135  * No patent licenses or other rights except those expressly stated in
136  * the OpenSSL open source license shall be deemed granted or received
137  * expressly, by implication, estoppel, or otherwise.
138  *
139  * No assurances are provided by Nokia that the Contribution does not
140  * infringe the patent or other intellectual property rights of any third
141  * party or that the license provides you with all the necessary rights
142  * to make use of the Contribution.
143  *
144  * THE SOFTWARE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. IN
145  * ADDITION TO THE DISCLAIMERS INCLUDED IN THE LICENSE, NOKIA
146  * SPECIFICALLY DISCLAIMS ANY LIABILITY FOR CLAIMS BROUGHT BY YOU OR ANY
147  * OTHER ENTITY BASED ON INFRINGEMENT OF INTELLECTUAL PROPERTY RIGHTS OR
148  * OTHERWISE.
149  */
150 
151 #include <limits.h>
152 #include <stdint.h>
153 #include <stdio.h>
154 
155 #include <openssl/bn.h>
156 #include <openssl/buffer.h>
157 #include <openssl/curve25519.h>
158 #include <openssl/dh.h>
159 #include <openssl/evp.h>
160 #include <openssl/md5.h>
161 #include <openssl/objects.h>
162 #include <openssl/opensslconf.h>
163 
164 #ifndef OPENSSL_NO_ENGINE
165 #include <openssl/engine.h>
166 #endif
167 #ifndef OPENSSL_NO_GOST
168 #include <openssl/gost.h>
169 #endif
170 
171 #include "bytestring.h"
172 #include "dtls_locl.h"
173 #include "ssl_locl.h"
174 #include "ssl_sigalgs.h"
175 #include "ssl_tlsext.h"
176 
177 static int ca_dn_cmp(const X509_NAME * const *a, const X509_NAME * const *b);
178 
179 int
180 ssl3_connect(SSL *s)
181 {
182 	int new_state, state, skip = 0;
183 	int ret = -1;
184 
185 	ERR_clear_error();
186 	errno = 0;
187 
188 	s->internal->in_handshake++;
189 	if (!SSL_in_init(s) || SSL_in_before(s))
190 		SSL_clear(s);
191 
192 	for (;;) {
193 		state = S3I(s)->hs.state;
194 
195 		switch (S3I(s)->hs.state) {
196 		case SSL_ST_RENEGOTIATE:
197 			s->internal->renegotiate = 1;
198 			S3I(s)->hs.state = SSL_ST_CONNECT;
199 			s->ctx->internal->stats.sess_connect_renegotiate++;
200 			/* break */
201 		case SSL_ST_BEFORE:
202 		case SSL_ST_CONNECT:
203 		case SSL_ST_BEFORE|SSL_ST_CONNECT:
204 		case SSL_ST_OK|SSL_ST_CONNECT:
205 
206 			s->server = 0;
207 
208 			ssl_info_callback(s, SSL_CB_HANDSHAKE_START, 1);
209 
210 			if (!ssl_legacy_stack_version(s, s->version)) {
211 				SSLerror(s, ERR_R_INTERNAL_ERROR);
212 				ret = -1;
213 				goto end;
214 			}
215 
216 			if (!ssl_supported_tls_version_range(s,
217 			    &S3I(s)->hs.our_min_tls_version,
218 			    &S3I(s)->hs.our_max_tls_version)) {
219 				SSLerror(s, SSL_R_NO_PROTOCOLS_AVAILABLE);
220 				ret = -1;
221 				goto end;
222 			}
223 
224 			if (!ssl3_setup_init_buffer(s)) {
225 				ret = -1;
226 				goto end;
227 			}
228 			if (!ssl3_setup_buffers(s)) {
229 				ret = -1;
230 				goto end;
231 			}
232 			if (!ssl_init_wbio_buffer(s, 0)) {
233 				ret = -1;
234 				goto end;
235 			}
236 
237 			/* don't push the buffering BIO quite yet */
238 
239 			if (!tls1_transcript_init(s)) {
240 				ret = -1;
241 				goto end;
242 			}
243 
244 			S3I(s)->hs.state = SSL3_ST_CW_CLNT_HELLO_A;
245 			s->ctx->internal->stats.sess_connect++;
246 			s->internal->init_num = 0;
247 
248 			if (SSL_is_dtls(s)) {
249 				/* mark client_random uninitialized */
250 				memset(s->s3->client_random, 0,
251 				    sizeof(s->s3->client_random));
252 				s->d1->send_cookie = 0;
253 				s->internal->hit = 0;
254 			}
255 			break;
256 
257 		case SSL3_ST_CW_CLNT_HELLO_A:
258 		case SSL3_ST_CW_CLNT_HELLO_B:
259 			s->internal->shutdown = 0;
260 
261 			if (SSL_is_dtls(s)) {
262 				/* every DTLS ClientHello resets Finished MAC */
263 				tls1_transcript_reset(s);
264 
265 				dtls1_start_timer(s);
266 			}
267 
268 			ret = ssl3_send_client_hello(s);
269 			if (ret <= 0)
270 				goto end;
271 
272 			if (SSL_is_dtls(s) && s->d1->send_cookie) {
273 				S3I(s)->hs.state = SSL3_ST_CW_FLUSH;
274 				S3I(s)->hs.tls12.next_state = SSL3_ST_CR_SRVR_HELLO_A;
275 			} else
276 				S3I(s)->hs.state = SSL3_ST_CR_SRVR_HELLO_A;
277 
278 			s->internal->init_num = 0;
279 
280 			/* turn on buffering for the next lot of output */
281 			if (s->bbio != s->wbio)
282 				s->wbio = BIO_push(s->bbio, s->wbio);
283 
284 			break;
285 
286 		case SSL3_ST_CR_SRVR_HELLO_A:
287 		case SSL3_ST_CR_SRVR_HELLO_B:
288 			ret = ssl3_get_server_hello(s);
289 			if (ret <= 0)
290 				goto end;
291 
292 			if (s->internal->hit) {
293 				S3I(s)->hs.state = SSL3_ST_CR_FINISHED_A;
294 				if (!SSL_is_dtls(s)) {
295 					if (s->internal->tlsext_ticket_expected) {
296 						/* receive renewed session ticket */
297 						S3I(s)->hs.state = SSL3_ST_CR_SESSION_TICKET_A;
298 					}
299 
300 					/* No client certificate verification. */
301 					tls1_transcript_free(s);
302 				}
303 			} else if (SSL_is_dtls(s)) {
304 				S3I(s)->hs.state = DTLS1_ST_CR_HELLO_VERIFY_REQUEST_A;
305 			} else {
306 				S3I(s)->hs.state = SSL3_ST_CR_CERT_A;
307 			}
308 			s->internal->init_num = 0;
309 			break;
310 
311 		case DTLS1_ST_CR_HELLO_VERIFY_REQUEST_A:
312 		case DTLS1_ST_CR_HELLO_VERIFY_REQUEST_B:
313 			ret = ssl3_get_dtls_hello_verify(s);
314 			if (ret <= 0)
315 				goto end;
316 			dtls1_stop_timer(s);
317 			if (s->d1->send_cookie) /* start again, with a cookie */
318 				S3I(s)->hs.state = SSL3_ST_CW_CLNT_HELLO_A;
319 			else
320 				S3I(s)->hs.state = SSL3_ST_CR_CERT_A;
321 			s->internal->init_num = 0;
322 			break;
323 
324 		case SSL3_ST_CR_CERT_A:
325 		case SSL3_ST_CR_CERT_B:
326 			ret = ssl3_check_finished(s);
327 			if (ret <= 0)
328 				goto end;
329 			if (ret == 2) {
330 				s->internal->hit = 1;
331 				if (s->internal->tlsext_ticket_expected)
332 					S3I(s)->hs.state = SSL3_ST_CR_SESSION_TICKET_A;
333 				else
334 					S3I(s)->hs.state = SSL3_ST_CR_FINISHED_A;
335 				s->internal->init_num = 0;
336 				break;
337 			}
338 			/* Check if it is anon DH/ECDH. */
339 			if (!(S3I(s)->hs.cipher->algorithm_auth &
340 			    SSL_aNULL)) {
341 				ret = ssl3_get_server_certificate(s);
342 				if (ret <= 0)
343 					goto end;
344 				if (s->internal->tlsext_status_expected)
345 					S3I(s)->hs.state = SSL3_ST_CR_CERT_STATUS_A;
346 				else
347 					S3I(s)->hs.state = SSL3_ST_CR_KEY_EXCH_A;
348 			} else {
349 				skip = 1;
350 				S3I(s)->hs.state = SSL3_ST_CR_KEY_EXCH_A;
351 			}
352 			s->internal->init_num = 0;
353 			break;
354 
355 		case SSL3_ST_CR_KEY_EXCH_A:
356 		case SSL3_ST_CR_KEY_EXCH_B:
357 			ret = ssl3_get_server_key_exchange(s);
358 			if (ret <= 0)
359 				goto end;
360 			S3I(s)->hs.state = SSL3_ST_CR_CERT_REQ_A;
361 			s->internal->init_num = 0;
362 
363 			/*
364 			 * At this point we check that we have the
365 			 * required stuff from the server.
366 			 */
367 			if (!ssl3_check_cert_and_algorithm(s)) {
368 				ret = -1;
369 				goto end;
370 			}
371 			break;
372 
373 		case SSL3_ST_CR_CERT_REQ_A:
374 		case SSL3_ST_CR_CERT_REQ_B:
375 			ret = ssl3_get_certificate_request(s);
376 			if (ret <= 0)
377 				goto end;
378 			S3I(s)->hs.state = SSL3_ST_CR_SRVR_DONE_A;
379 			s->internal->init_num = 0;
380 			break;
381 
382 		case SSL3_ST_CR_SRVR_DONE_A:
383 		case SSL3_ST_CR_SRVR_DONE_B:
384 			ret = ssl3_get_server_done(s);
385 			if (ret <= 0)
386 				goto end;
387 			if (SSL_is_dtls(s))
388 				dtls1_stop_timer(s);
389 			if (S3I(s)->hs.tls12.cert_request)
390 				S3I(s)->hs.state = SSL3_ST_CW_CERT_A;
391 			else
392 				S3I(s)->hs.state = SSL3_ST_CW_KEY_EXCH_A;
393 			s->internal->init_num = 0;
394 
395 			break;
396 
397 		case SSL3_ST_CW_CERT_A:
398 		case SSL3_ST_CW_CERT_B:
399 		case SSL3_ST_CW_CERT_C:
400 		case SSL3_ST_CW_CERT_D:
401 			if (SSL_is_dtls(s))
402 				dtls1_start_timer(s);
403 			ret = ssl3_send_client_certificate(s);
404 			if (ret <= 0)
405 				goto end;
406 			S3I(s)->hs.state = SSL3_ST_CW_KEY_EXCH_A;
407 			s->internal->init_num = 0;
408 			break;
409 
410 		case SSL3_ST_CW_KEY_EXCH_A:
411 		case SSL3_ST_CW_KEY_EXCH_B:
412 			if (SSL_is_dtls(s))
413 				dtls1_start_timer(s);
414 			ret = ssl3_send_client_key_exchange(s);
415 			if (ret <= 0)
416 				goto end;
417 			/*
418 			 * EAY EAY EAY need to check for DH fix cert
419 			 * sent back
420 			 */
421 			/*
422 			 * For TLS, cert_req is set to 2, so a cert chain
423 			 * of nothing is sent, but no verify packet is sent
424 			 */
425 			/*
426 			 * XXX: For now, we do not support client
427 			 * authentication in ECDH cipher suites with
428 			 * ECDH (rather than ECDSA) certificates.
429 			 * We need to skip the certificate verify
430 			 * message when client's ECDH public key is sent
431 			 * inside the client certificate.
432 			 */
433 			if (S3I(s)->hs.tls12.cert_request == 1) {
434 				S3I(s)->hs.state = SSL3_ST_CW_CERT_VRFY_A;
435 			} else {
436 				S3I(s)->hs.state = SSL3_ST_CW_CHANGE_A;
437 				S3I(s)->change_cipher_spec = 0;
438 			}
439 			if (!SSL_is_dtls(s)) {
440 				if (s->s3->flags & TLS1_FLAGS_SKIP_CERT_VERIFY) {
441 					S3I(s)->hs.state = SSL3_ST_CW_CHANGE_A;
442 					S3I(s)->change_cipher_spec = 0;
443 				}
444 			}
445 
446 			s->internal->init_num = 0;
447 			break;
448 
449 		case SSL3_ST_CW_CERT_VRFY_A:
450 		case SSL3_ST_CW_CERT_VRFY_B:
451 			if (SSL_is_dtls(s))
452 				dtls1_start_timer(s);
453 			ret = ssl3_send_client_verify(s);
454 			if (ret <= 0)
455 				goto end;
456 			S3I(s)->hs.state = SSL3_ST_CW_CHANGE_A;
457 			s->internal->init_num = 0;
458 			S3I(s)->change_cipher_spec = 0;
459 			break;
460 
461 		case SSL3_ST_CW_CHANGE_A:
462 		case SSL3_ST_CW_CHANGE_B:
463 			if (SSL_is_dtls(s) && !s->internal->hit)
464 				dtls1_start_timer(s);
465 			ret = ssl3_send_change_cipher_spec(s,
466 			    SSL3_ST_CW_CHANGE_A, SSL3_ST_CW_CHANGE_B);
467 			if (ret <= 0)
468 				goto end;
469 
470 			S3I(s)->hs.state = SSL3_ST_CW_FINISHED_A;
471 			s->internal->init_num = 0;
472 			s->session->cipher = S3I(s)->hs.cipher;
473 
474 			if (!tls1_setup_key_block(s)) {
475 				ret = -1;
476 				goto end;
477 			}
478 			if (!tls1_change_write_cipher_state(s)) {
479 				ret = -1;
480 				goto end;
481 			}
482 			break;
483 
484 		case SSL3_ST_CW_FINISHED_A:
485 		case SSL3_ST_CW_FINISHED_B:
486 			if (SSL_is_dtls(s) && !s->internal->hit)
487 				dtls1_start_timer(s);
488 			ret = ssl3_send_finished(s, SSL3_ST_CW_FINISHED_A,
489 			    SSL3_ST_CW_FINISHED_B);
490 			if (ret <= 0)
491 				goto end;
492 			if (!SSL_is_dtls(s))
493 				s->s3->flags |= SSL3_FLAGS_CCS_OK;
494 			S3I(s)->hs.state = SSL3_ST_CW_FLUSH;
495 
496 			/* clear flags */
497 			if (s->internal->hit) {
498 				S3I(s)->hs.tls12.next_state = SSL_ST_OK;
499 			} else {
500 				/* Allow NewSessionTicket if ticket expected */
501 				if (s->internal->tlsext_ticket_expected)
502 					S3I(s)->hs.tls12.next_state =
503 					    SSL3_ST_CR_SESSION_TICKET_A;
504 				else
505 					S3I(s)->hs.tls12.next_state =
506 					    SSL3_ST_CR_FINISHED_A;
507 			}
508 			s->internal->init_num = 0;
509 			break;
510 
511 		case SSL3_ST_CR_SESSION_TICKET_A:
512 		case SSL3_ST_CR_SESSION_TICKET_B:
513 			ret = ssl3_get_new_session_ticket(s);
514 			if (ret <= 0)
515 				goto end;
516 			S3I(s)->hs.state = SSL3_ST_CR_FINISHED_A;
517 			s->internal->init_num = 0;
518 			break;
519 
520 		case SSL3_ST_CR_CERT_STATUS_A:
521 		case SSL3_ST_CR_CERT_STATUS_B:
522 			ret = ssl3_get_cert_status(s);
523 			if (ret <= 0)
524 				goto end;
525 			S3I(s)->hs.state = SSL3_ST_CR_KEY_EXCH_A;
526 			s->internal->init_num = 0;
527 			break;
528 
529 		case SSL3_ST_CR_FINISHED_A:
530 		case SSL3_ST_CR_FINISHED_B:
531 			if (SSL_is_dtls(s))
532 				s->d1->change_cipher_spec_ok = 1;
533 			else
534 				s->s3->flags |= SSL3_FLAGS_CCS_OK;
535 			ret = ssl3_get_finished(s, SSL3_ST_CR_FINISHED_A,
536 			    SSL3_ST_CR_FINISHED_B);
537 			if (ret <= 0)
538 				goto end;
539 			if (SSL_is_dtls(s))
540 				dtls1_stop_timer(s);
541 
542 			if (s->internal->hit)
543 				S3I(s)->hs.state = SSL3_ST_CW_CHANGE_A;
544 			else
545 				S3I(s)->hs.state = SSL_ST_OK;
546 			s->internal->init_num = 0;
547 			break;
548 
549 		case SSL3_ST_CW_FLUSH:
550 			s->internal->rwstate = SSL_WRITING;
551 			if (BIO_flush(s->wbio) <= 0) {
552 				if (SSL_is_dtls(s)) {
553 					/* If the write error was fatal, stop trying */
554 					if (!BIO_should_retry(s->wbio)) {
555 						s->internal->rwstate = SSL_NOTHING;
556 						S3I(s)->hs.state = S3I(s)->hs.tls12.next_state;
557 					}
558 				}
559 				ret = -1;
560 				goto end;
561 			}
562 			s->internal->rwstate = SSL_NOTHING;
563 			S3I(s)->hs.state = S3I(s)->hs.tls12.next_state;
564 			break;
565 
566 		case SSL_ST_OK:
567 			/* clean a few things up */
568 			tls1_cleanup_key_block(s);
569 
570 			if (S3I(s)->handshake_transcript != NULL) {
571 				SSLerror(s, ERR_R_INTERNAL_ERROR);
572 				ret = -1;
573 				goto end;
574 			}
575 
576 			if (!SSL_is_dtls(s))
577 				ssl3_release_init_buffer(s);
578 
579 			ssl_free_wbio_buffer(s);
580 
581 			s->internal->init_num = 0;
582 			s->internal->renegotiate = 0;
583 			s->internal->new_session = 0;
584 
585 			ssl_update_cache(s, SSL_SESS_CACHE_CLIENT);
586 			if (s->internal->hit)
587 				s->ctx->internal->stats.sess_hit++;
588 
589 			ret = 1;
590 			/* s->server=0; */
591 			s->internal->handshake_func = ssl3_connect;
592 			s->ctx->internal->stats.sess_connect_good++;
593 
594 			ssl_info_callback(s, SSL_CB_HANDSHAKE_DONE, 1);
595 
596 			if (SSL_is_dtls(s)) {
597 				/* done with handshaking */
598 				s->d1->handshake_read_seq = 0;
599 				s->d1->next_handshake_write_seq = 0;
600 			}
601 
602 			goto end;
603 			/* break; */
604 
605 		default:
606 			SSLerror(s, SSL_R_UNKNOWN_STATE);
607 			ret = -1;
608 			goto end;
609 			/* break; */
610 		}
611 
612 		/* did we do anything */
613 		if (!S3I(s)->hs.tls12.reuse_message && !skip) {
614 			if (s->internal->debug) {
615 				if ((ret = BIO_flush(s->wbio)) <= 0)
616 					goto end;
617 			}
618 
619 			if (S3I(s)->hs.state != state) {
620 				new_state = S3I(s)->hs.state;
621 				S3I(s)->hs.state = state;
622 				ssl_info_callback(s, SSL_CB_CONNECT_LOOP, 1);
623 				S3I(s)->hs.state = new_state;
624 			}
625 		}
626 		skip = 0;
627 	}
628 
629  end:
630 	s->internal->in_handshake--;
631 	ssl_info_callback(s, SSL_CB_CONNECT_EXIT, ret);
632 
633 	return (ret);
634 }
635 
636 int
637 ssl3_send_client_hello(SSL *s)
638 {
639 	CBB cbb, client_hello, session_id, cookie, cipher_suites;
640 	CBB compression_methods;
641 	uint16_t max_version;
642 	size_t sl;
643 
644 	memset(&cbb, 0, sizeof(cbb));
645 
646 	if (S3I(s)->hs.state == SSL3_ST_CW_CLNT_HELLO_A) {
647 		SSL_SESSION *sess = s->session;
648 
649 		if (!ssl_max_supported_version(s, &max_version)) {
650 			SSLerror(s, SSL_R_NO_PROTOCOLS_AVAILABLE);
651 			return (-1);
652 		}
653 		s->version = max_version;
654 
655 		if (sess == NULL ||
656 		    sess->ssl_version != s->version ||
657 		    (!sess->session_id_length && !sess->tlsext_tick) ||
658 		    sess->not_resumable) {
659 			if (!ssl_get_new_session(s, 0))
660 				goto err;
661 		}
662 		/* else use the pre-loaded session */
663 
664 		/*
665 		 * If a DTLS ClientHello message is being resent after a
666 		 * HelloVerifyRequest, we must retain the original client
667 		 * random value.
668 		 */
669 		if (!SSL_is_dtls(s) || s->d1->send_cookie == 0)
670 			arc4random_buf(s->s3->client_random, SSL3_RANDOM_SIZE);
671 
672 		if (!ssl3_handshake_msg_start(s, &cbb, &client_hello,
673 		    SSL3_MT_CLIENT_HELLO))
674 			goto err;
675 
676 		if (!CBB_add_u16(&client_hello, s->version))
677 			goto err;
678 
679 		/* Random stuff */
680 		if (!CBB_add_bytes(&client_hello, s->s3->client_random,
681 		    sizeof(s->s3->client_random)))
682 			goto err;
683 
684 		/* Session ID */
685 		if (!CBB_add_u8_length_prefixed(&client_hello, &session_id))
686 			goto err;
687 		if (!s->internal->new_session &&
688 		    s->session->session_id_length > 0) {
689 			sl = s->session->session_id_length;
690 			if (sl > sizeof(s->session->session_id)) {
691 				SSLerror(s, ERR_R_INTERNAL_ERROR);
692 				goto err;
693 			}
694 			if (!CBB_add_bytes(&session_id,
695 			    s->session->session_id, sl))
696 				goto err;
697 		}
698 
699 		/* DTLS Cookie. */
700 		if (SSL_is_dtls(s)) {
701 			if (s->d1->cookie_len > sizeof(s->d1->cookie)) {
702 				SSLerror(s, ERR_R_INTERNAL_ERROR);
703 				goto err;
704 			}
705 			if (!CBB_add_u8_length_prefixed(&client_hello, &cookie))
706 				goto err;
707 			if (!CBB_add_bytes(&cookie, s->d1->cookie,
708 			    s->d1->cookie_len))
709 				goto err;
710 		}
711 
712 		/* Ciphers supported */
713 		if (!CBB_add_u16_length_prefixed(&client_hello, &cipher_suites))
714 			return 0;
715 		if (!ssl_cipher_list_to_bytes(s, SSL_get_ciphers(s),
716 		    &cipher_suites)) {
717 			SSLerror(s, SSL_R_NO_CIPHERS_AVAILABLE);
718 			goto err;
719 		}
720 
721 		/* Add in compression methods (null) */
722 		if (!CBB_add_u8_length_prefixed(&client_hello,
723 		    &compression_methods))
724 			goto err;
725 		if (!CBB_add_u8(&compression_methods, 0))
726 			goto err;
727 
728 		/* TLS extensions */
729 		if (!tlsext_client_build(s, SSL_TLSEXT_MSG_CH, &client_hello)) {
730 			SSLerror(s, ERR_R_INTERNAL_ERROR);
731 			goto err;
732 		}
733 
734 		if (!ssl3_handshake_msg_finish(s, &cbb))
735 			goto err;
736 
737 		S3I(s)->hs.state = SSL3_ST_CW_CLNT_HELLO_B;
738 	}
739 
740 	/* SSL3_ST_CW_CLNT_HELLO_B */
741 	return (ssl3_handshake_write(s));
742 
743  err:
744 	CBB_cleanup(&cbb);
745 
746 	return (-1);
747 }
748 
749 int
750 ssl3_get_dtls_hello_verify(SSL *s)
751 {
752 	CBS hello_verify_request, cookie;
753 	size_t cookie_len;
754 	uint16_t ssl_version;
755 	int al, ret;
756 
757 	if ((ret = ssl3_get_message(s, DTLS1_ST_CR_HELLO_VERIFY_REQUEST_A,
758 	    DTLS1_ST_CR_HELLO_VERIFY_REQUEST_B, -1, s->internal->max_cert_list)) <= 0)
759 		return ret;
760 
761 	if (S3I(s)->hs.tls12.message_type != DTLS1_MT_HELLO_VERIFY_REQUEST) {
762 		s->d1->send_cookie = 0;
763 		S3I(s)->hs.tls12.reuse_message = 1;
764 		return (1);
765 	}
766 
767 	if (s->internal->init_num < 0)
768 		goto decode_err;
769 
770 	CBS_init(&hello_verify_request, s->internal->init_msg,
771 	    s->internal->init_num);
772 
773 	if (!CBS_get_u16(&hello_verify_request, &ssl_version))
774 		goto decode_err;
775 	if (!CBS_get_u8_length_prefixed(&hello_verify_request, &cookie))
776 		goto decode_err;
777 	if (CBS_len(&hello_verify_request) != 0)
778 		goto decode_err;
779 
780 	/*
781 	 * Per RFC 6347 section 4.2.1, the HelloVerifyRequest should always
782 	 * contain DTLSv1.0 the version that is going to be negotiated.
783 	 * Tolerate DTLSv1.2 just in case.
784 	 */
785 	if (ssl_version != DTLS1_VERSION && ssl_version != DTLS1_2_VERSION) {
786 		SSLerror(s, SSL_R_WRONG_SSL_VERSION);
787 		s->version = (s->version & 0xff00) | (ssl_version & 0xff);
788 		al = SSL_AD_PROTOCOL_VERSION;
789 		goto fatal_err;
790 	}
791 
792 	if (!CBS_write_bytes(&cookie, s->d1->cookie,
793 	    sizeof(s->d1->cookie), &cookie_len)) {
794 		s->d1->cookie_len = 0;
795 		al = SSL_AD_ILLEGAL_PARAMETER;
796 		goto fatal_err;
797 	}
798 	s->d1->cookie_len = cookie_len;
799 	s->d1->send_cookie = 1;
800 
801 	return 1;
802 
803  decode_err:
804 	al = SSL_AD_DECODE_ERROR;
805  fatal_err:
806 	ssl3_send_alert(s, SSL3_AL_FATAL, al);
807 	return -1;
808 }
809 
810 int
811 ssl3_get_server_hello(SSL *s)
812 {
813 	CBS cbs, server_random, session_id;
814 	uint16_t server_version, cipher_suite;
815 	uint8_t compression_method;
816 	const SSL_CIPHER *cipher;
817 	const SSL_METHOD *method;
818 	unsigned long alg_k;
819 	size_t outlen;
820 	int al, ret;
821 
822 	s->internal->first_packet = 1;
823 	if ((ret = ssl3_get_message(s, SSL3_ST_CR_SRVR_HELLO_A,
824 	    SSL3_ST_CR_SRVR_HELLO_B, -1, 20000 /* ?? */)) <= 0)
825 		return ret;
826 	s->internal->first_packet = 0;
827 
828 	if (s->internal->init_num < 0)
829 		goto decode_err;
830 
831 	CBS_init(&cbs, s->internal->init_msg, s->internal->init_num);
832 
833 	if (SSL_is_dtls(s)) {
834 		if (S3I(s)->hs.tls12.message_type == DTLS1_MT_HELLO_VERIFY_REQUEST) {
835 			if (s->d1->send_cookie == 0) {
836 				S3I(s)->hs.tls12.reuse_message = 1;
837 				return (1);
838 			} else {
839 				/* Already sent a cookie. */
840 				al = SSL_AD_UNEXPECTED_MESSAGE;
841 				SSLerror(s, SSL_R_BAD_MESSAGE_TYPE);
842 				goto fatal_err;
843 			}
844 		}
845 	}
846 
847 	if (S3I(s)->hs.tls12.message_type != SSL3_MT_SERVER_HELLO) {
848 		al = SSL_AD_UNEXPECTED_MESSAGE;
849 		SSLerror(s, SSL_R_BAD_MESSAGE_TYPE);
850 		goto fatal_err;
851 	}
852 
853 	if (!CBS_get_u16(&cbs, &server_version))
854 		goto decode_err;
855 
856 	if (!ssl_check_version_from_server(s, server_version)) {
857 		SSLerror(s, SSL_R_WRONG_SSL_VERSION);
858 		s->version = (s->version & 0xff00) | (server_version & 0xff);
859 		al = SSL_AD_PROTOCOL_VERSION;
860 		goto fatal_err;
861 	}
862 	S3I(s)->hs.peer_legacy_version = server_version;
863 	s->version = server_version;
864 
865 	S3I(s)->hs.negotiated_tls_version = ssl_tls_version(server_version);
866 	if (S3I(s)->hs.negotiated_tls_version == 0) {
867 		SSLerror(s, ERR_R_INTERNAL_ERROR);
868 		goto err;
869 	}
870 
871 	if ((method = ssl_get_method(server_version)) == NULL) {
872 		SSLerror(s, ERR_R_INTERNAL_ERROR);
873 		goto err;
874 	}
875 	s->method = method;
876 
877 	/* Server random. */
878 	if (!CBS_get_bytes(&cbs, &server_random, SSL3_RANDOM_SIZE))
879 		goto decode_err;
880 	if (!CBS_write_bytes(&server_random, s->s3->server_random,
881 	    sizeof(s->s3->server_random), NULL))
882 		goto err;
883 
884 	if (S3I(s)->hs.our_max_tls_version >= TLS1_2_VERSION &&
885 	    S3I(s)->hs.negotiated_tls_version < S3I(s)->hs.our_max_tls_version) {
886 		/*
887 		 * RFC 8446 section 4.1.3. We must not downgrade if the server
888 		 * random value contains the TLS 1.2 or TLS 1.1 magical value.
889 		 */
890 		if (!CBS_skip(&server_random,
891 		    CBS_len(&server_random) - sizeof(tls13_downgrade_12)))
892 			goto err;
893 		if (S3I(s)->hs.negotiated_tls_version == TLS1_2_VERSION &&
894 		    CBS_mem_equal(&server_random, tls13_downgrade_12,
895 		    sizeof(tls13_downgrade_12))) {
896 			al = SSL_AD_ILLEGAL_PARAMETER;
897 			SSLerror(s, SSL_R_INAPPROPRIATE_FALLBACK);
898 			goto fatal_err;
899 		}
900 		if (CBS_mem_equal(&server_random, tls13_downgrade_11,
901 		    sizeof(tls13_downgrade_11))) {
902 			al = SSL_AD_ILLEGAL_PARAMETER;
903 			SSLerror(s, SSL_R_INAPPROPRIATE_FALLBACK);
904 			goto fatal_err;
905 		}
906 	}
907 
908 	/* Session ID. */
909 	if (!CBS_get_u8_length_prefixed(&cbs, &session_id))
910 		goto decode_err;
911 
912 	if (CBS_len(&session_id) > SSL3_SESSION_ID_SIZE) {
913 		al = SSL_AD_ILLEGAL_PARAMETER;
914 		SSLerror(s, SSL_R_SSL3_SESSION_ID_TOO_LONG);
915 		goto fatal_err;
916 	}
917 
918 	/* Cipher suite. */
919 	if (!CBS_get_u16(&cbs, &cipher_suite))
920 		goto decode_err;
921 
922 	/*
923 	 * Check if we want to resume the session based on external
924 	 * pre-shared secret.
925 	 */
926 	if (s->internal->tls_session_secret_cb) {
927 		SSL_CIPHER *pref_cipher = NULL;
928 		s->session->master_key_length = sizeof(s->session->master_key);
929 		if (s->internal->tls_session_secret_cb(s, s->session->master_key,
930 		    &s->session->master_key_length, NULL, &pref_cipher,
931 		    s->internal->tls_session_secret_cb_arg)) {
932 			s->session->cipher = pref_cipher ? pref_cipher :
933 			    ssl3_get_cipher_by_value(cipher_suite);
934 			s->s3->flags |= SSL3_FLAGS_CCS_OK;
935 		}
936 	}
937 
938 	if (s->session->session_id_length != 0 &&
939 	    CBS_mem_equal(&session_id, s->session->session_id,
940 		s->session->session_id_length)) {
941 		if (s->sid_ctx_length != s->session->sid_ctx_length ||
942 		    timingsafe_memcmp(s->session->sid_ctx,
943 		    s->sid_ctx, s->sid_ctx_length) != 0) {
944 			/* actually a client application bug */
945 			al = SSL_AD_ILLEGAL_PARAMETER;
946 			SSLerror(s, SSL_R_ATTEMPT_TO_REUSE_SESSION_IN_DIFFERENT_CONTEXT);
947 			goto fatal_err;
948 		}
949 		s->s3->flags |= SSL3_FLAGS_CCS_OK;
950 		s->internal->hit = 1;
951 	} else {
952 		/* a miss or crap from the other end */
953 
954 		/* If we were trying for session-id reuse, make a new
955 		 * SSL_SESSION so we don't stuff up other people */
956 		s->internal->hit = 0;
957 		if (s->session->session_id_length > 0) {
958 			if (!ssl_get_new_session(s, 0)) {
959 				al = SSL_AD_INTERNAL_ERROR;
960 				goto fatal_err;
961 			}
962 		}
963 
964 		/*
965 		 * XXX - improve the handling for the case where there is a
966 		 * zero length session identifier.
967 		 */
968 		if (!CBS_write_bytes(&session_id, s->session->session_id,
969 		    sizeof(s->session->session_id), &outlen))
970 			goto err;
971 		s->session->session_id_length = outlen;
972 
973 		s->session->ssl_version = s->version;
974 	}
975 
976 	if ((cipher = ssl3_get_cipher_by_value(cipher_suite)) == NULL) {
977 		al = SSL_AD_ILLEGAL_PARAMETER;
978 		SSLerror(s, SSL_R_UNKNOWN_CIPHER_RETURNED);
979 		goto fatal_err;
980 	}
981 
982 	/* TLS v1.2 only ciphersuites require v1.2 or later. */
983 	if ((cipher->algorithm_ssl & SSL_TLSV1_2) &&
984 	    S3I(s)->hs.negotiated_tls_version < TLS1_2_VERSION) {
985 		al = SSL_AD_ILLEGAL_PARAMETER;
986 		SSLerror(s, SSL_R_WRONG_CIPHER_RETURNED);
987 		goto fatal_err;
988 	}
989 
990 	if (!ssl_cipher_in_list(SSL_get_ciphers(s), cipher)) {
991 		/* we did not say we would use this cipher */
992 		al = SSL_AD_ILLEGAL_PARAMETER;
993 		SSLerror(s, SSL_R_WRONG_CIPHER_RETURNED);
994 		goto fatal_err;
995 	}
996 
997 	/*
998 	 * Depending on the session caching (internal/external), the cipher
999 	 * and/or cipher_id values may not be set. Make sure that
1000 	 * cipher_id is set and use it for comparison.
1001 	 */
1002 	if (s->session->cipher)
1003 		s->session->cipher_id = s->session->cipher->id;
1004 	if (s->internal->hit && (s->session->cipher_id != cipher->id)) {
1005 		al = SSL_AD_ILLEGAL_PARAMETER;
1006 		SSLerror(s, SSL_R_OLD_SESSION_CIPHER_NOT_RETURNED);
1007 		goto fatal_err;
1008 	}
1009 	S3I(s)->hs.cipher = cipher;
1010 
1011 	if (!tls1_transcript_hash_init(s))
1012 		goto err;
1013 
1014 	/*
1015 	 * Don't digest cached records if no sigalgs: we may need them for
1016 	 * client authentication.
1017 	 */
1018 	alg_k = S3I(s)->hs.cipher->algorithm_mkey;
1019 	if (!(SSL_USE_SIGALGS(s) || (alg_k & SSL_kGOST)))
1020 		tls1_transcript_free(s);
1021 
1022 	if (!CBS_get_u8(&cbs, &compression_method))
1023 		goto decode_err;
1024 
1025 	if (compression_method != 0) {
1026 		al = SSL_AD_ILLEGAL_PARAMETER;
1027 		SSLerror(s, SSL_R_UNSUPPORTED_COMPRESSION_ALGORITHM);
1028 		goto fatal_err;
1029 	}
1030 
1031 	if (!tlsext_client_parse(s, SSL_TLSEXT_MSG_SH, &cbs, &al)) {
1032 		SSLerror(s, SSL_R_PARSE_TLSEXT);
1033 		goto fatal_err;
1034 	}
1035 
1036 	if (CBS_len(&cbs) != 0)
1037 		goto decode_err;
1038 
1039 	/*
1040 	 * Determine if we need to see RI. Strictly speaking if we want to
1041 	 * avoid an attack we should *always* see RI even on initial server
1042 	 * hello because the client doesn't see any renegotiation during an
1043 	 * attack. However this would mean we could not connect to any server
1044 	 * which doesn't support RI so for the immediate future tolerate RI
1045 	 * absence on initial connect only.
1046 	 */
1047 	if (!S3I(s)->renegotiate_seen &&
1048 	    !(s->internal->options & SSL_OP_LEGACY_SERVER_CONNECT)) {
1049 		al = SSL_AD_HANDSHAKE_FAILURE;
1050 		SSLerror(s, SSL_R_UNSAFE_LEGACY_RENEGOTIATION_DISABLED);
1051 		goto fatal_err;
1052 	}
1053 
1054 	if (ssl_check_serverhello_tlsext(s) <= 0) {
1055 		SSLerror(s, SSL_R_SERVERHELLO_TLSEXT);
1056 		goto err;
1057 	}
1058 
1059 	return (1);
1060 
1061  decode_err:
1062 	/* wrong packet length */
1063 	al = SSL_AD_DECODE_ERROR;
1064 	SSLerror(s, SSL_R_BAD_PACKET_LENGTH);
1065  fatal_err:
1066 	ssl3_send_alert(s, SSL3_AL_FATAL, al);
1067  err:
1068 	return (-1);
1069 }
1070 
1071 int
1072 ssl3_get_server_certificate(SSL *s)
1073 {
1074 	int al, i, ret;
1075 	CBS cbs, cert_list;
1076 	X509 *x = NULL;
1077 	const unsigned char *q;
1078 	STACK_OF(X509) *sk = NULL;
1079 	EVP_PKEY *pkey = NULL;
1080 
1081 	if ((ret = ssl3_get_message(s, SSL3_ST_CR_CERT_A,
1082 	    SSL3_ST_CR_CERT_B, -1, s->internal->max_cert_list)) <= 0)
1083 		return ret;
1084 
1085 	ret = -1;
1086 
1087 	if (S3I(s)->hs.tls12.message_type == SSL3_MT_SERVER_KEY_EXCHANGE) {
1088 		S3I(s)->hs.tls12.reuse_message = 1;
1089 		return (1);
1090 	}
1091 
1092 	if (S3I(s)->hs.tls12.message_type != SSL3_MT_CERTIFICATE) {
1093 		al = SSL_AD_UNEXPECTED_MESSAGE;
1094 		SSLerror(s, SSL_R_BAD_MESSAGE_TYPE);
1095 		goto fatal_err;
1096 	}
1097 
1098 	if ((sk = sk_X509_new_null()) == NULL) {
1099 		SSLerror(s, ERR_R_MALLOC_FAILURE);
1100 		goto err;
1101 	}
1102 
1103 	if (s->internal->init_num < 0)
1104 		goto decode_err;
1105 
1106 	CBS_init(&cbs, s->internal->init_msg, s->internal->init_num);
1107 	if (CBS_len(&cbs) < 3)
1108 		goto decode_err;
1109 
1110 	if (!CBS_get_u24_length_prefixed(&cbs, &cert_list) ||
1111 	    CBS_len(&cbs) != 0) {
1112 		al = SSL_AD_DECODE_ERROR;
1113 		SSLerror(s, SSL_R_LENGTH_MISMATCH);
1114 		goto fatal_err;
1115 	}
1116 
1117 	while (CBS_len(&cert_list) > 0) {
1118 		CBS cert;
1119 
1120 		if (CBS_len(&cert_list) < 3)
1121 			goto decode_err;
1122 		if (!CBS_get_u24_length_prefixed(&cert_list, &cert)) {
1123 			al = SSL_AD_DECODE_ERROR;
1124 			SSLerror(s, SSL_R_CERT_LENGTH_MISMATCH);
1125 			goto fatal_err;
1126 		}
1127 
1128 		q = CBS_data(&cert);
1129 		x = d2i_X509(NULL, &q, CBS_len(&cert));
1130 		if (x == NULL) {
1131 			al = SSL_AD_BAD_CERTIFICATE;
1132 			SSLerror(s, ERR_R_ASN1_LIB);
1133 			goto fatal_err;
1134 		}
1135 		if (q != CBS_data(&cert) + CBS_len(&cert)) {
1136 			al = SSL_AD_DECODE_ERROR;
1137 			SSLerror(s, SSL_R_CERT_LENGTH_MISMATCH);
1138 			goto fatal_err;
1139 		}
1140 		if (!sk_X509_push(sk, x)) {
1141 			SSLerror(s, ERR_R_MALLOC_FAILURE);
1142 			goto err;
1143 		}
1144 		x = NULL;
1145 	}
1146 
1147 	i = ssl_verify_cert_chain(s, sk);
1148 	if ((s->verify_mode != SSL_VERIFY_NONE) && (i <= 0)) {
1149 		al = ssl_verify_alarm_type(s->verify_result);
1150 		SSLerror(s, SSL_R_CERTIFICATE_VERIFY_FAILED);
1151 		goto fatal_err;
1152 
1153 	}
1154 	ERR_clear_error(); /* but we keep s->verify_result */
1155 
1156 	/*
1157 	 * Inconsistency alert: cert_chain does include the peer's
1158 	 * certificate, which we don't include in s3_srvr.c
1159 	 */
1160 	x = sk_X509_value(sk, 0);
1161 
1162 	pkey = X509_get_pubkey(x);
1163 
1164 	if (pkey == NULL || EVP_PKEY_missing_parameters(pkey)) {
1165 		x = NULL;
1166 		al = SSL3_AL_FATAL;
1167 		SSLerror(s, SSL_R_UNABLE_TO_FIND_PUBLIC_KEY_PARAMETERS);
1168 		goto fatal_err;
1169 	}
1170 
1171 	i = ssl_cert_type(x, pkey);
1172 	if (i < 0) {
1173 		x = NULL;
1174 		al = SSL3_AL_FATAL;
1175 		SSLerror(s, SSL_R_UNKNOWN_CERTIFICATE_TYPE);
1176 		goto fatal_err;
1177 	}
1178 	s->session->peer_cert_type = i;
1179 
1180 	sk_X509_pop_free(s->session->cert_chain, X509_free);
1181 	s->session->cert_chain = sk;
1182 	sk = NULL;
1183 
1184 	X509_up_ref(x);
1185 	X509_free(s->session->peer_pkeys[i].x509);
1186 	s->session->peer_pkeys[i].x509 = x;
1187 	s->session->peer_key = &s->session->peer_pkeys[i];
1188 
1189 	X509_up_ref(x);
1190 	X509_free(s->session->peer);
1191 	s->session->peer = x;
1192 
1193 	s->session->verify_result = s->verify_result;
1194 
1195 	x = NULL;
1196 	ret = 1;
1197 
1198 	if (0) {
1199  decode_err:
1200 		/* wrong packet length */
1201 		al = SSL_AD_DECODE_ERROR;
1202 		SSLerror(s, SSL_R_BAD_PACKET_LENGTH);
1203  fatal_err:
1204 		ssl3_send_alert(s, SSL3_AL_FATAL, al);
1205 	}
1206  err:
1207 	EVP_PKEY_free(pkey);
1208 	X509_free(x);
1209 	sk_X509_pop_free(sk, X509_free);
1210 
1211 	return (ret);
1212 }
1213 
1214 static int
1215 ssl3_get_server_kex_dhe(SSL *s, EVP_PKEY **pkey, CBS *cbs)
1216 {
1217 	int nid = NID_dhKeyAgreement;
1218 	int invalid_params, invalid_key;
1219 	long alg_a;
1220 
1221 	alg_a = S3I(s)->hs.cipher->algorithm_auth;
1222 
1223 	tls_key_share_free(S3I(s)->hs.key_share);
1224 	if ((S3I(s)->hs.key_share = tls_key_share_new_nid(nid)) == NULL)
1225 		goto err;
1226 
1227 	if (!tls_key_share_peer_params(S3I(s)->hs.key_share, cbs,
1228 	    &invalid_params))
1229 		goto decode_err;
1230 	if (!tls_key_share_peer_public(S3I(s)->hs.key_share, cbs,
1231 	    &invalid_key))
1232 		goto decode_err;
1233 
1234 	if (invalid_params) {
1235 		ssl3_send_alert(s, SSL3_AL_FATAL, SSL_AD_ILLEGAL_PARAMETER);
1236 		SSLerror(s, SSL_R_BAD_DH_P_LENGTH);
1237 		goto err;
1238 	}
1239 	if (invalid_key) {
1240 		ssl3_send_alert(s, SSL3_AL_FATAL, SSL_AD_ILLEGAL_PARAMETER);
1241 		SSLerror(s, SSL_R_BAD_DH_PUB_KEY_LENGTH);
1242 		goto err;
1243 	}
1244 
1245 	if (alg_a & SSL_aRSA)
1246 		*pkey = X509_get_pubkey(s->session->peer_pkeys[SSL_PKEY_RSA].x509);
1247 	else
1248 		/* XXX - Anonymous DH, so no certificate or pkey. */
1249 		*pkey = NULL;
1250 
1251 	return 1;
1252 
1253  decode_err:
1254 	SSLerror(s, SSL_R_BAD_PACKET_LENGTH);
1255 	ssl3_send_alert(s, SSL3_AL_FATAL, SSL_AD_DECODE_ERROR);
1256 
1257  err:
1258 	return 0;
1259 }
1260 
1261 static int
1262 ssl3_get_server_kex_ecdhe(SSL *s, EVP_PKEY **pkey, CBS *cbs)
1263 {
1264 	CBS public;
1265 	uint8_t curve_type;
1266 	uint16_t curve_id;
1267 	long alg_a;
1268 
1269 	alg_a = S3I(s)->hs.cipher->algorithm_auth;
1270 
1271 	if (!CBS_get_u8(cbs, &curve_type))
1272 		goto decode_err;
1273 	if (!CBS_get_u16(cbs, &curve_id))
1274 		goto decode_err;
1275 
1276 	/* Only named curves are supported. */
1277 	if (curve_type != NAMED_CURVE_TYPE) {
1278 		SSLerror(s, SSL_R_UNSUPPORTED_ELLIPTIC_CURVE);
1279 		ssl3_send_alert(s, SSL3_AL_FATAL, SSL_AD_HANDSHAKE_FAILURE);
1280 		goto err;
1281 	}
1282 
1283 	if (!CBS_get_u8_length_prefixed(cbs, &public))
1284 		goto decode_err;
1285 
1286 	/*
1287 	 * Check that the curve is one of our preferences - if it is not,
1288 	 * the server has sent us an invalid curve.
1289 	 */
1290 	if (!tls1_check_curve(s, curve_id)) {
1291 		SSLerror(s, SSL_R_WRONG_CURVE);
1292 		ssl3_send_alert(s, SSL3_AL_FATAL, SSL_AD_ILLEGAL_PARAMETER);
1293 		goto err;
1294 	}
1295 
1296 	tls_key_share_free(S3I(s)->hs.key_share);
1297 	if ((S3I(s)->hs.key_share = tls_key_share_new(curve_id)) == NULL)
1298 		goto err;
1299 
1300 	if (!tls_key_share_peer_public(S3I(s)->hs.key_share, &public, NULL))
1301 		goto err;
1302 
1303 	/*
1304 	 * The ECC/TLS specification does not mention the use of DSA to sign
1305 	 * ECParameters in the server key exchange message. We do support RSA
1306 	 * and ECDSA.
1307 	 */
1308 	if (alg_a & SSL_aRSA)
1309 		*pkey = X509_get_pubkey(s->session->peer_pkeys[SSL_PKEY_RSA].x509);
1310 	else if (alg_a & SSL_aECDSA)
1311 		*pkey = X509_get_pubkey(s->session->peer_pkeys[SSL_PKEY_ECC].x509);
1312 	else
1313 		/* XXX - Anonymous ECDH, so no certificate or pkey. */
1314 		*pkey = NULL;
1315 
1316 	return 1;
1317 
1318  decode_err:
1319 	ssl3_send_alert(s, SSL3_AL_FATAL, SSL_AD_DECODE_ERROR);
1320 	SSLerror(s, SSL_R_BAD_PACKET_LENGTH);
1321  err:
1322 	return 0;
1323 }
1324 
1325 int
1326 ssl3_get_server_key_exchange(SSL *s)
1327 {
1328 	CBS cbs, signature;
1329 	EVP_PKEY *pkey = NULL;
1330 	EVP_MD_CTX *md_ctx;
1331 	const unsigned char *param;
1332 	size_t param_len;
1333 	long alg_k, alg_a;
1334 	int al, ret;
1335 
1336 	alg_k = S3I(s)->hs.cipher->algorithm_mkey;
1337 	alg_a = S3I(s)->hs.cipher->algorithm_auth;
1338 
1339 	/*
1340 	 * Use same message size as in ssl3_get_certificate_request()
1341 	 * as ServerKeyExchange message may be skipped.
1342 	 */
1343 	if ((ret = ssl3_get_message(s, SSL3_ST_CR_KEY_EXCH_A,
1344 	    SSL3_ST_CR_KEY_EXCH_B, -1, s->internal->max_cert_list)) <= 0)
1345 		return ret;
1346 
1347 	if ((md_ctx = EVP_MD_CTX_new()) == NULL)
1348 		goto err;
1349 
1350 	if (s->internal->init_num < 0)
1351 		goto err;
1352 
1353 	CBS_init(&cbs, s->internal->init_msg, s->internal->init_num);
1354 
1355 	if (S3I(s)->hs.tls12.message_type != SSL3_MT_SERVER_KEY_EXCHANGE) {
1356 		/*
1357 		 * Do not skip server key exchange if this cipher suite uses
1358 		 * ephemeral keys.
1359 		 */
1360 		if (alg_k & (SSL_kDHE|SSL_kECDHE)) {
1361 			SSLerror(s, SSL_R_UNEXPECTED_MESSAGE);
1362 			al = SSL_AD_UNEXPECTED_MESSAGE;
1363 			goto fatal_err;
1364 		}
1365 
1366 		S3I(s)->hs.tls12.reuse_message = 1;
1367 		EVP_MD_CTX_free(md_ctx);
1368 		return (1);
1369 	}
1370 
1371 	param = CBS_data(&cbs);
1372 	param_len = CBS_len(&cbs);
1373 
1374 	if (alg_k & SSL_kDHE) {
1375 		if (!ssl3_get_server_kex_dhe(s, &pkey, &cbs))
1376 			goto err;
1377 	} else if (alg_k & SSL_kECDHE) {
1378 		if (!ssl3_get_server_kex_ecdhe(s, &pkey, &cbs))
1379 			goto err;
1380 	} else if (alg_k != 0) {
1381 		al = SSL_AD_UNEXPECTED_MESSAGE;
1382 		SSLerror(s, SSL_R_UNEXPECTED_MESSAGE);
1383 		goto fatal_err;
1384 	}
1385 
1386 	param_len -= CBS_len(&cbs);
1387 
1388 	/* if it was signed, check the signature */
1389 	if (pkey != NULL) {
1390 		uint16_t sigalg_value = SIGALG_NONE;
1391 		const struct ssl_sigalg *sigalg;
1392 		EVP_PKEY_CTX *pctx;
1393 
1394 		if (SSL_USE_SIGALGS(s)) {
1395 			if (!CBS_get_u16(&cbs, &sigalg_value))
1396 				goto decode_err;
1397 		}
1398 		if (!CBS_get_u16_length_prefixed(&cbs, &signature))
1399 			goto decode_err;
1400 		if (CBS_len(&signature) > EVP_PKEY_size(pkey)) {
1401 			al = SSL_AD_DECODE_ERROR;
1402 			SSLerror(s, SSL_R_WRONG_SIGNATURE_LENGTH);
1403 			goto fatal_err;
1404 		}
1405 
1406 		if ((sigalg = ssl_sigalg_for_peer(s, pkey,
1407 		    sigalg_value)) == NULL) {
1408 			al = SSL_AD_DECODE_ERROR;
1409 			goto fatal_err;
1410 		}
1411 		S3I(s)->hs.peer_sigalg = sigalg;
1412 
1413 		if (!EVP_DigestVerifyInit(md_ctx, &pctx, sigalg->md(),
1414 		    NULL, pkey))
1415 			goto err;
1416 		if (!EVP_DigestVerifyUpdate(md_ctx, s->s3->client_random,
1417 		    SSL3_RANDOM_SIZE))
1418 			goto err;
1419 		if ((sigalg->flags & SIGALG_FLAG_RSA_PSS) &&
1420 		    (!EVP_PKEY_CTX_set_rsa_padding(pctx,
1421 		    RSA_PKCS1_PSS_PADDING) ||
1422 		    !EVP_PKEY_CTX_set_rsa_pss_saltlen(pctx, -1)))
1423 			goto err;
1424 		if (!EVP_DigestVerifyUpdate(md_ctx, s->s3->server_random,
1425 		    SSL3_RANDOM_SIZE))
1426 			goto err;
1427 		if (!EVP_DigestVerifyUpdate(md_ctx, param, param_len))
1428 			goto err;
1429 		if (EVP_DigestVerifyFinal(md_ctx, CBS_data(&signature),
1430 		    CBS_len(&signature)) <= 0) {
1431 			al = SSL_AD_DECRYPT_ERROR;
1432 			SSLerror(s, SSL_R_BAD_SIGNATURE);
1433 			goto fatal_err;
1434 		}
1435 	} else {
1436 		/* aNULL does not need public keys. */
1437 		if (!(alg_a & SSL_aNULL)) {
1438 			SSLerror(s, ERR_R_INTERNAL_ERROR);
1439 			goto err;
1440 		}
1441 	}
1442 
1443 	if (CBS_len(&cbs) != 0) {
1444 		al = SSL_AD_DECODE_ERROR;
1445 		SSLerror(s, SSL_R_EXTRA_DATA_IN_MESSAGE);
1446 		goto fatal_err;
1447 	}
1448 
1449 	EVP_PKEY_free(pkey);
1450 	EVP_MD_CTX_free(md_ctx);
1451 
1452 	return (1);
1453 
1454  decode_err:
1455 	al = SSL_AD_DECODE_ERROR;
1456 	SSLerror(s, SSL_R_BAD_PACKET_LENGTH);
1457 
1458  fatal_err:
1459 	ssl3_send_alert(s, SSL3_AL_FATAL, al);
1460 
1461  err:
1462 	EVP_PKEY_free(pkey);
1463 	EVP_MD_CTX_free(md_ctx);
1464 
1465 	return (-1);
1466 }
1467 
1468 int
1469 ssl3_get_certificate_request(SSL *s)
1470 {
1471 	CBS cert_request, cert_types, rdn_list;
1472 	X509_NAME *xn = NULL;
1473 	const unsigned char *q;
1474 	STACK_OF(X509_NAME) *ca_sk = NULL;
1475 	int ret;
1476 
1477 	if ((ret = ssl3_get_message(s, SSL3_ST_CR_CERT_REQ_A,
1478 	    SSL3_ST_CR_CERT_REQ_B, -1, s->internal->max_cert_list)) <= 0)
1479 		return ret;
1480 
1481 	ret = 0;
1482 
1483 	S3I(s)->hs.tls12.cert_request = 0;
1484 
1485 	if (S3I(s)->hs.tls12.message_type == SSL3_MT_SERVER_DONE) {
1486 		S3I(s)->hs.tls12.reuse_message = 1;
1487 		/*
1488 		 * If we get here we don't need any cached handshake records
1489 		 * as we wont be doing client auth.
1490 		 */
1491 		tls1_transcript_free(s);
1492 		return (1);
1493 	}
1494 
1495 	if (S3I(s)->hs.tls12.message_type != SSL3_MT_CERTIFICATE_REQUEST) {
1496 		ssl3_send_alert(s, SSL3_AL_FATAL, SSL_AD_UNEXPECTED_MESSAGE);
1497 		SSLerror(s, SSL_R_WRONG_MESSAGE_TYPE);
1498 		goto err;
1499 	}
1500 
1501 	/* TLS does not like anon-DH with client cert */
1502 	if (S3I(s)->hs.cipher->algorithm_auth & SSL_aNULL) {
1503 		ssl3_send_alert(s, SSL3_AL_FATAL, SSL_AD_UNEXPECTED_MESSAGE);
1504 		SSLerror(s, SSL_R_TLS_CLIENT_CERT_REQ_WITH_ANON_CIPHER);
1505 		goto err;
1506 	}
1507 
1508 	if (s->internal->init_num < 0)
1509 		goto decode_err;
1510 	CBS_init(&cert_request, s->internal->init_msg, s->internal->init_num);
1511 
1512 	if ((ca_sk = sk_X509_NAME_new(ca_dn_cmp)) == NULL) {
1513 		SSLerror(s, ERR_R_MALLOC_FAILURE);
1514 		goto err;
1515 	}
1516 
1517 	if (!CBS_get_u8_length_prefixed(&cert_request, &cert_types))
1518 		goto decode_err;
1519 
1520 	if (SSL_USE_SIGALGS(s)) {
1521 		CBS sigalgs;
1522 
1523 		if (CBS_len(&cert_request) < 2) {
1524 			SSLerror(s, SSL_R_DATA_LENGTH_TOO_LONG);
1525 			goto err;
1526 		}
1527 		if (!CBS_get_u16_length_prefixed(&cert_request, &sigalgs)) {
1528 			ssl3_send_alert(s, SSL3_AL_FATAL, SSL_AD_DECODE_ERROR);
1529 			SSLerror(s, SSL_R_DATA_LENGTH_TOO_LONG);
1530 			goto err;
1531 		}
1532 		if (CBS_len(&sigalgs) % 2 != 0 || CBS_len(&sigalgs) > 64) {
1533 			ssl3_send_alert(s, SSL3_AL_FATAL, SSL_AD_DECODE_ERROR);
1534 			SSLerror(s, SSL_R_SIGNATURE_ALGORITHMS_ERROR);
1535 			goto err;
1536 		}
1537 		if (!CBS_stow(&sigalgs, &S3I(s)->hs.sigalgs,
1538 		    &S3I(s)->hs.sigalgs_len))
1539 			goto err;
1540 	}
1541 
1542 	/* get the CA RDNs */
1543 	if (CBS_len(&cert_request) < 2) {
1544 		SSLerror(s, SSL_R_DATA_LENGTH_TOO_LONG);
1545 		goto err;
1546 	}
1547 
1548 	if (!CBS_get_u16_length_prefixed(&cert_request, &rdn_list) ||
1549 	    CBS_len(&cert_request) != 0) {
1550 		ssl3_send_alert(s, SSL3_AL_FATAL, SSL_AD_DECODE_ERROR);
1551 		SSLerror(s, SSL_R_LENGTH_MISMATCH);
1552 		goto err;
1553 	}
1554 
1555 	while (CBS_len(&rdn_list) > 0) {
1556 		CBS rdn;
1557 
1558 		if (CBS_len(&rdn_list) < 2) {
1559 			SSLerror(s, SSL_R_DATA_LENGTH_TOO_LONG);
1560 			goto err;
1561 		}
1562 
1563 		if (!CBS_get_u16_length_prefixed(&rdn_list, &rdn)) {
1564 			ssl3_send_alert(s, SSL3_AL_FATAL, SSL_AD_DECODE_ERROR);
1565 			SSLerror(s, SSL_R_CA_DN_TOO_LONG);
1566 			goto err;
1567 		}
1568 
1569 		q = CBS_data(&rdn);
1570 		if ((xn = d2i_X509_NAME(NULL, &q, CBS_len(&rdn))) == NULL) {
1571 			ssl3_send_alert(s, SSL3_AL_FATAL,
1572 			    SSL_AD_DECODE_ERROR);
1573 			SSLerror(s, ERR_R_ASN1_LIB);
1574 			goto err;
1575 		}
1576 
1577 		if (q != CBS_data(&rdn) + CBS_len(&rdn)) {
1578 			ssl3_send_alert(s, SSL3_AL_FATAL, SSL_AD_DECODE_ERROR);
1579 			SSLerror(s, SSL_R_CA_DN_LENGTH_MISMATCH);
1580 			goto err;
1581 		}
1582 		if (!sk_X509_NAME_push(ca_sk, xn)) {
1583 			SSLerror(s, ERR_R_MALLOC_FAILURE);
1584 			goto err;
1585 		}
1586 		xn = NULL;	/* avoid free in err block */
1587 	}
1588 
1589 	/* we should setup a certificate to return.... */
1590 	S3I(s)->hs.tls12.cert_request = 1;
1591 	sk_X509_NAME_pop_free(S3I(s)->hs.tls12.ca_names, X509_NAME_free);
1592 	S3I(s)->hs.tls12.ca_names = ca_sk;
1593 	ca_sk = NULL;
1594 
1595 	ret = 1;
1596 	if (0) {
1597  decode_err:
1598 		SSLerror(s, SSL_R_BAD_PACKET_LENGTH);
1599 	}
1600  err:
1601 	X509_NAME_free(xn);
1602 	sk_X509_NAME_pop_free(ca_sk, X509_NAME_free);
1603 	return (ret);
1604 }
1605 
1606 static int
1607 ca_dn_cmp(const X509_NAME * const *a, const X509_NAME * const *b)
1608 {
1609 	return (X509_NAME_cmp(*a, *b));
1610 }
1611 
1612 int
1613 ssl3_get_new_session_ticket(SSL *s)
1614 {
1615 	uint32_t lifetime_hint;
1616 	CBS cbs, session_ticket;
1617 	int al, ret;
1618 
1619 	if ((ret = ssl3_get_message(s, SSL3_ST_CR_SESSION_TICKET_A,
1620 	    SSL3_ST_CR_SESSION_TICKET_B, -1, 16384)) <= 0)
1621 		return ret;
1622 
1623 	ret = 0;
1624 
1625 	if (S3I(s)->hs.tls12.message_type == SSL3_MT_FINISHED) {
1626 		S3I(s)->hs.tls12.reuse_message = 1;
1627 		return (1);
1628 	}
1629 	if (S3I(s)->hs.tls12.message_type != SSL3_MT_NEWSESSION_TICKET) {
1630 		al = SSL_AD_UNEXPECTED_MESSAGE;
1631 		SSLerror(s, SSL_R_BAD_MESSAGE_TYPE);
1632 		goto fatal_err;
1633 	}
1634 
1635 	if (s->internal->init_num < 0) {
1636 		al = SSL_AD_DECODE_ERROR;
1637 		SSLerror(s, SSL_R_LENGTH_MISMATCH);
1638 		goto fatal_err;
1639 	}
1640 
1641 	CBS_init(&cbs, s->internal->init_msg, s->internal->init_num);
1642 	if (!CBS_get_u32(&cbs, &lifetime_hint) ||
1643 	    !CBS_get_u16_length_prefixed(&cbs, &session_ticket) ||
1644 	    CBS_len(&cbs) != 0) {
1645 		al = SSL_AD_DECODE_ERROR;
1646 		SSLerror(s, SSL_R_LENGTH_MISMATCH);
1647 		goto fatal_err;
1648 	}
1649 	s->session->tlsext_tick_lifetime_hint = lifetime_hint;
1650 
1651 	if (!CBS_stow(&session_ticket, &s->session->tlsext_tick,
1652 	    &s->session->tlsext_ticklen)) {
1653 		SSLerror(s, ERR_R_MALLOC_FAILURE);
1654 		goto err;
1655 	}
1656 
1657 	/*
1658 	 * There are two ways to detect a resumed ticket sesion.
1659 	 * One is to set an appropriate session ID and then the server
1660 	 * must return a match in ServerHello. This allows the normal
1661 	 * client session ID matching to work and we know much
1662 	 * earlier that the ticket has been accepted.
1663 	 *
1664 	 * The other way is to set zero length session ID when the
1665 	 * ticket is presented and rely on the handshake to determine
1666 	 * session resumption.
1667 	 *
1668 	 * We choose the former approach because this fits in with
1669 	 * assumptions elsewhere in OpenSSL. The session ID is set
1670 	 * to the SHA256 (or SHA1 is SHA256 is disabled) hash of the
1671 	 * ticket.
1672 	 */
1673 	EVP_Digest(CBS_data(&session_ticket), CBS_len(&session_ticket),
1674 	    s->session->session_id, &s->session->session_id_length,
1675 	    EVP_sha256(), NULL);
1676 	ret = 1;
1677 	return (ret);
1678  fatal_err:
1679 	ssl3_send_alert(s, SSL3_AL_FATAL, al);
1680  err:
1681 	return (-1);
1682 }
1683 
1684 int
1685 ssl3_get_cert_status(SSL *s)
1686 {
1687 	CBS cert_status, response;
1688 	uint8_t	status_type;
1689 	int al, ret;
1690 
1691 	if ((ret = ssl3_get_message(s, SSL3_ST_CR_CERT_STATUS_A,
1692 	    SSL3_ST_CR_CERT_STATUS_B, -1, 16384)) <= 0)
1693 		return ret;
1694 
1695 	if (S3I(s)->hs.tls12.message_type == SSL3_MT_SERVER_KEY_EXCHANGE) {
1696 		/*
1697 		 * Tell the callback the server did not send us an OSCP
1698 		 * response, and has decided to head directly to key exchange.
1699 		 */
1700 		if (s->ctx->internal->tlsext_status_cb) {
1701 			free(s->internal->tlsext_ocsp_resp);
1702 			s->internal->tlsext_ocsp_resp = NULL;
1703 			s->internal->tlsext_ocsp_resp_len = 0;
1704 
1705 			ret = s->ctx->internal->tlsext_status_cb(s,
1706 			    s->ctx->internal->tlsext_status_arg);
1707 			if (ret == 0) {
1708 				al = SSL_AD_BAD_CERTIFICATE_STATUS_RESPONSE;
1709 				SSLerror(s, SSL_R_INVALID_STATUS_RESPONSE);
1710 				goto fatal_err;
1711 			}
1712 			if (ret < 0) {
1713 				al = SSL_AD_INTERNAL_ERROR;
1714 				SSLerror(s, ERR_R_MALLOC_FAILURE);
1715 				goto fatal_err;
1716 			}
1717 		}
1718 		S3I(s)->hs.tls12.reuse_message = 1;
1719 		return (1);
1720 	}
1721 
1722 	if (S3I(s)->hs.tls12.message_type != SSL3_MT_CERTIFICATE &&
1723 	    S3I(s)->hs.tls12.message_type != SSL3_MT_CERTIFICATE_STATUS) {
1724 		al = SSL_AD_UNEXPECTED_MESSAGE;
1725 		SSLerror(s, SSL_R_BAD_MESSAGE_TYPE);
1726 		goto fatal_err;
1727 	}
1728 
1729 	if (s->internal->init_num < 0) {
1730 		/* need at least status type + length */
1731 		al = SSL_AD_DECODE_ERROR;
1732 		SSLerror(s, SSL_R_LENGTH_MISMATCH);
1733 		goto fatal_err;
1734 	}
1735 
1736 	CBS_init(&cert_status, s->internal->init_msg, s->internal->init_num);
1737 	if (!CBS_get_u8(&cert_status, &status_type) ||
1738 	    CBS_len(&cert_status) < 3) {
1739 		/* need at least status type + length */
1740 		al = SSL_AD_DECODE_ERROR;
1741 		SSLerror(s, SSL_R_LENGTH_MISMATCH);
1742 		goto fatal_err;
1743 	}
1744 
1745 	if (status_type != TLSEXT_STATUSTYPE_ocsp) {
1746 		al = SSL_AD_DECODE_ERROR;
1747 		SSLerror(s, SSL_R_UNSUPPORTED_STATUS_TYPE);
1748 		goto fatal_err;
1749 	}
1750 
1751 	if (!CBS_get_u24_length_prefixed(&cert_status, &response) ||
1752 	    CBS_len(&cert_status) != 0) {
1753 		al = SSL_AD_DECODE_ERROR;
1754 		SSLerror(s, SSL_R_LENGTH_MISMATCH);
1755 		goto fatal_err;
1756 	}
1757 
1758 	if (!CBS_stow(&response, &s->internal->tlsext_ocsp_resp,
1759 	    &s->internal->tlsext_ocsp_resp_len)) {
1760 		al = SSL_AD_INTERNAL_ERROR;
1761 		SSLerror(s, ERR_R_MALLOC_FAILURE);
1762 		goto fatal_err;
1763 	}
1764 
1765 	if (s->ctx->internal->tlsext_status_cb) {
1766 		int ret;
1767 		ret = s->ctx->internal->tlsext_status_cb(s,
1768 		    s->ctx->internal->tlsext_status_arg);
1769 		if (ret == 0) {
1770 			al = SSL_AD_BAD_CERTIFICATE_STATUS_RESPONSE;
1771 			SSLerror(s, SSL_R_INVALID_STATUS_RESPONSE);
1772 			goto fatal_err;
1773 		}
1774 		if (ret < 0) {
1775 			al = SSL_AD_INTERNAL_ERROR;
1776 			SSLerror(s, ERR_R_MALLOC_FAILURE);
1777 			goto fatal_err;
1778 		}
1779 	}
1780 	return (1);
1781  fatal_err:
1782 	ssl3_send_alert(s, SSL3_AL_FATAL, al);
1783 	return (-1);
1784 }
1785 
1786 int
1787 ssl3_get_server_done(SSL *s)
1788 {
1789 	int ret;
1790 
1791 	if ((ret = ssl3_get_message(s, SSL3_ST_CR_SRVR_DONE_A,
1792 	    SSL3_ST_CR_SRVR_DONE_B, SSL3_MT_SERVER_DONE,
1793 	    30 /* should be very small, like 0 :-) */)) <= 0)
1794 		return ret;
1795 
1796 	if (s->internal->init_num != 0) {
1797 		/* should contain no data */
1798 		ssl3_send_alert(s, SSL3_AL_FATAL, SSL_AD_DECODE_ERROR);
1799 		SSLerror(s, SSL_R_LENGTH_MISMATCH);
1800 		return -1;
1801 	}
1802 
1803 	return 1;
1804 }
1805 
1806 static int
1807 ssl3_send_client_kex_rsa(SSL *s, CBB *cbb)
1808 {
1809 	unsigned char pms[SSL_MAX_MASTER_KEY_LENGTH];
1810 	unsigned char *enc_pms = NULL;
1811 	uint16_t max_legacy_version;
1812 	EVP_PKEY *pkey = NULL;
1813 	RSA *rsa;
1814 	int ret = 0;
1815 	int enc_len;
1816 	CBB epms;
1817 
1818 	/*
1819 	 * RSA-Encrypted Premaster Secret Message - RFC 5246 section 7.4.7.1.
1820 	 */
1821 
1822 	pkey = X509_get_pubkey(s->session->peer_pkeys[SSL_PKEY_RSA].x509);
1823 	if (pkey == NULL || (rsa = EVP_PKEY_get0_RSA(pkey)) == NULL) {
1824 		SSLerror(s, ERR_R_INTERNAL_ERROR);
1825 		goto err;
1826 	}
1827 
1828 	/*
1829 	 * Our maximum legacy protocol version - while RFC 5246 section 7.4.7.1
1830 	 * says "The latest (newest) version supported by the client", if we're
1831 	 * doing RSA key exchange then we have to presume that we're talking to
1832 	 * a server that does not understand the supported versions extension
1833 	 * and therefore our maximum version is that sent in the ClientHello.
1834 	 */
1835 	if (!ssl_max_legacy_version(s, &max_legacy_version))
1836 		goto err;
1837 	pms[0] = max_legacy_version >> 8;
1838 	pms[1] = max_legacy_version & 0xff;
1839 	arc4random_buf(&pms[2], sizeof(pms) - 2);
1840 
1841 	if ((enc_pms = malloc(RSA_size(rsa))) == NULL) {
1842 		SSLerror(s, ERR_R_MALLOC_FAILURE);
1843 		goto err;
1844 	}
1845 
1846 	enc_len = RSA_public_encrypt(sizeof(pms), pms, enc_pms, rsa,
1847 	    RSA_PKCS1_PADDING);
1848 	if (enc_len <= 0) {
1849 		SSLerror(s, SSL_R_BAD_RSA_ENCRYPT);
1850 		goto err;
1851 	}
1852 
1853 	if (!CBB_add_u16_length_prefixed(cbb, &epms))
1854 		goto err;
1855 	if (!CBB_add_bytes(&epms, enc_pms, enc_len))
1856 		goto err;
1857 	if (!CBB_flush(cbb))
1858 		goto err;
1859 
1860 	if (!tls12_derive_master_secret(s, pms, sizeof(pms)))
1861 		goto err;
1862 
1863 	ret = 1;
1864 
1865  err:
1866 	explicit_bzero(pms, sizeof(pms));
1867 	EVP_PKEY_free(pkey);
1868 	free(enc_pms);
1869 
1870 	return ret;
1871 }
1872 
1873 static int
1874 ssl3_send_client_kex_dhe(SSL *s, CBB *cbb)
1875 {
1876 	uint8_t *key = NULL;
1877 	size_t key_len = 0;
1878 	int ret = 0;
1879 
1880 	/* Ensure that we have an ephemeral key from the server for DHE. */
1881 	if (S3I(s)->hs.key_share == NULL) {
1882 		ssl3_send_alert(s, SSL3_AL_FATAL, SSL_AD_HANDSHAKE_FAILURE);
1883 		SSLerror(s, SSL_R_UNABLE_TO_FIND_DH_PARAMETERS);
1884 		goto err;
1885 	}
1886 
1887 	if (!tls_key_share_generate(S3I(s)->hs.key_share))
1888 		goto err;
1889 	if (!tls_key_share_public(S3I(s)->hs.key_share, cbb))
1890 		goto err;
1891 	if (!tls_key_share_derive(S3I(s)->hs.key_share, &key, &key_len))
1892 		goto err;
1893 
1894 	if (!tls12_derive_master_secret(s, key, key_len))
1895 		goto err;
1896 
1897 	ret = 1;
1898 
1899  err:
1900 	freezero(key, key_len);
1901 
1902 	return ret;
1903 }
1904 
1905 static int
1906 ssl3_send_client_kex_ecdhe(SSL *s, CBB *cbb)
1907 {
1908 	uint8_t *key = NULL;
1909 	size_t key_len = 0;
1910 	CBB public;
1911 	int ret = 0;
1912 
1913 	/* Ensure that we have an ephemeral key for ECDHE. */
1914 	if (S3I(s)->hs.key_share == NULL) {
1915 		ssl3_send_alert(s, SSL3_AL_FATAL, SSL_AD_HANDSHAKE_FAILURE);
1916 		SSLerror(s, ERR_R_INTERNAL_ERROR);
1917 		goto err;
1918 	}
1919 
1920 	if (!tls_key_share_generate(S3I(s)->hs.key_share))
1921 		goto err;
1922 
1923 	if (!CBB_add_u8_length_prefixed(cbb, &public))
1924 		return 0;
1925 	if (!tls_key_share_public(S3I(s)->hs.key_share, &public))
1926 		goto err;
1927 	if (!CBB_flush(cbb))
1928 		goto err;
1929 
1930 	if (!tls_key_share_derive(S3I(s)->hs.key_share, &key, &key_len))
1931 		goto err;
1932 
1933 	if (!tls12_derive_master_secret(s, key, key_len))
1934 		goto err;
1935 
1936 	ret = 1;
1937 
1938  err:
1939 	freezero(key, key_len);
1940 
1941 	return ret;
1942 }
1943 
1944 static int
1945 ssl3_send_client_kex_gost(SSL *s, CBB *cbb)
1946 {
1947 	unsigned char premaster_secret[32], shared_ukm[32], tmp[256];
1948 	EVP_PKEY *pub_key = NULL;
1949 	EVP_PKEY_CTX *pkey_ctx;
1950 	X509 *peer_cert;
1951 	size_t msglen;
1952 	unsigned int md_len;
1953 	EVP_MD_CTX *ukm_hash;
1954 	int ret = -1;
1955 	int nid;
1956 	CBB gostblob;
1957 
1958 	/* Get server sertificate PKEY and create ctx from it */
1959 	peer_cert = s->session->peer_pkeys[SSL_PKEY_GOST01].x509;
1960 	if (peer_cert == NULL) {
1961 		SSLerror(s, SSL_R_NO_GOST_CERTIFICATE_SENT_BY_PEER);
1962 		goto err;
1963 	}
1964 
1965 	pub_key = X509_get_pubkey(peer_cert);
1966 	pkey_ctx = EVP_PKEY_CTX_new(pub_key, NULL);
1967 
1968 	/*
1969 	 * If we have send a certificate, and certificate key parameters match
1970 	 * those of server certificate, use certificate key for key exchange.
1971 	 * Otherwise, generate ephemeral key pair.
1972 	 */
1973 	EVP_PKEY_encrypt_init(pkey_ctx);
1974 
1975 	/* Generate session key. */
1976 	arc4random_buf(premaster_secret, 32);
1977 
1978 	/*
1979 	 * If we have client certificate, use its secret as peer key.
1980 	 */
1981 	if (S3I(s)->hs.tls12.cert_request && s->cert->key->privatekey) {
1982 		if (EVP_PKEY_derive_set_peer(pkey_ctx,
1983 		    s->cert->key->privatekey) <=0) {
1984 			/*
1985 			 * If there was an error - just ignore it.
1986 			 * Ephemeral key would be used.
1987 			 */
1988 			ERR_clear_error();
1989 		}
1990 	}
1991 
1992 	/*
1993 	 * Compute shared IV and store it in algorithm-specific context data.
1994 	 */
1995 	ukm_hash = EVP_MD_CTX_new();
1996 	if (ukm_hash == NULL) {
1997 		SSLerror(s, ERR_R_MALLOC_FAILURE);
1998 		goto err;
1999 	}
2000 
2001 	/* XXX check handshake hash instead. */
2002 	if (S3I(s)->hs.cipher->algorithm2 & SSL_HANDSHAKE_MAC_GOST94)
2003 		nid = NID_id_GostR3411_94;
2004 	else
2005 		nid = NID_id_tc26_gost3411_2012_256;
2006 	if (!EVP_DigestInit(ukm_hash, EVP_get_digestbynid(nid)))
2007 		goto err;
2008 	EVP_DigestUpdate(ukm_hash, s->s3->client_random, SSL3_RANDOM_SIZE);
2009 	EVP_DigestUpdate(ukm_hash, s->s3->server_random, SSL3_RANDOM_SIZE);
2010 	EVP_DigestFinal_ex(ukm_hash, shared_ukm, &md_len);
2011 	EVP_MD_CTX_free(ukm_hash);
2012 	if (EVP_PKEY_CTX_ctrl(pkey_ctx, -1, EVP_PKEY_OP_ENCRYPT,
2013 	    EVP_PKEY_CTRL_SET_IV, 8, shared_ukm) < 0) {
2014 		SSLerror(s, SSL_R_LIBRARY_BUG);
2015 		goto err;
2016 	}
2017 
2018 	/*
2019 	 * Make GOST keytransport blob message, encapsulate it into sequence.
2020 	 */
2021 	msglen = 255;
2022 	if (EVP_PKEY_encrypt(pkey_ctx, tmp, &msglen, premaster_secret,
2023 	    32) < 0) {
2024 		SSLerror(s, SSL_R_LIBRARY_BUG);
2025 		goto err;
2026 	}
2027 
2028 	if (!CBB_add_asn1(cbb, &gostblob, CBS_ASN1_SEQUENCE))
2029 		goto err;
2030 	if (!CBB_add_bytes(&gostblob, tmp, msglen))
2031 		goto err;
2032 	if (!CBB_flush(cbb))
2033 		goto err;
2034 
2035 	/* Check if pubkey from client certificate was used. */
2036 	if (EVP_PKEY_CTX_ctrl(pkey_ctx, -1, -1, EVP_PKEY_CTRL_PEER_KEY, 2,
2037 	    NULL) > 0) {
2038 		/* Set flag "skip certificate verify". */
2039 		s->s3->flags |= TLS1_FLAGS_SKIP_CERT_VERIFY;
2040 	}
2041 	EVP_PKEY_CTX_free(pkey_ctx);
2042 
2043 	if (!tls12_derive_master_secret(s, premaster_secret, 32))
2044 		goto err;
2045 
2046 	ret = 1;
2047 
2048  err:
2049 	explicit_bzero(premaster_secret, sizeof(premaster_secret));
2050 	EVP_PKEY_free(pub_key);
2051 
2052 	return (ret);
2053 }
2054 
2055 int
2056 ssl3_send_client_key_exchange(SSL *s)
2057 {
2058 	unsigned long alg_k;
2059 	CBB cbb, kex;
2060 
2061 	memset(&cbb, 0, sizeof(cbb));
2062 
2063 	if (S3I(s)->hs.state == SSL3_ST_CW_KEY_EXCH_A) {
2064 		alg_k = S3I(s)->hs.cipher->algorithm_mkey;
2065 
2066 		if (!ssl3_handshake_msg_start(s, &cbb, &kex,
2067 		    SSL3_MT_CLIENT_KEY_EXCHANGE))
2068 			goto err;
2069 
2070 		if (alg_k & SSL_kRSA) {
2071 			if (!ssl3_send_client_kex_rsa(s, &kex))
2072 				goto err;
2073 		} else if (alg_k & SSL_kDHE) {
2074 			if (!ssl3_send_client_kex_dhe(s, &kex))
2075 				goto err;
2076 		} else if (alg_k & SSL_kECDHE) {
2077 			if (!ssl3_send_client_kex_ecdhe(s, &kex))
2078 				goto err;
2079 		} else if (alg_k & SSL_kGOST) {
2080 			if (ssl3_send_client_kex_gost(s, &kex) != 1)
2081 				goto err;
2082 		} else {
2083 			ssl3_send_alert(s, SSL3_AL_FATAL,
2084 			    SSL_AD_HANDSHAKE_FAILURE);
2085 			SSLerror(s, ERR_R_INTERNAL_ERROR);
2086 			goto err;
2087 		}
2088 
2089 		if (!ssl3_handshake_msg_finish(s, &cbb))
2090 			goto err;
2091 
2092 		S3I(s)->hs.state = SSL3_ST_CW_KEY_EXCH_B;
2093 	}
2094 
2095 	/* SSL3_ST_CW_KEY_EXCH_B */
2096 	return (ssl3_handshake_write(s));
2097 
2098  err:
2099 	CBB_cleanup(&cbb);
2100 
2101 	return (-1);
2102 }
2103 
2104 static int
2105 ssl3_send_client_verify_sigalgs(SSL *s, EVP_PKEY *pkey,
2106     const struct ssl_sigalg *sigalg, CBB *cert_verify)
2107 {
2108 	CBB cbb_signature;
2109 	EVP_PKEY_CTX *pctx = NULL;
2110 	EVP_MD_CTX *mctx = NULL;
2111 	const unsigned char *hdata;
2112 	unsigned char *signature = NULL;
2113 	size_t signature_len, hdata_len;
2114 	int ret = 0;
2115 
2116 	if ((mctx = EVP_MD_CTX_new()) == NULL)
2117 		goto err;
2118 
2119 	if (!tls1_transcript_data(s, &hdata, &hdata_len)) {
2120 		SSLerror(s, ERR_R_INTERNAL_ERROR);
2121 		goto err;
2122 	}
2123 	if (!EVP_DigestSignInit(mctx, &pctx, sigalg->md(), NULL, pkey)) {
2124 		SSLerror(s, ERR_R_EVP_LIB);
2125 		goto err;
2126 	}
2127 	if (sigalg->key_type == EVP_PKEY_GOSTR01 &&
2128 	    EVP_PKEY_CTX_ctrl(pctx, -1, EVP_PKEY_OP_SIGN,
2129 	    EVP_PKEY_CTRL_GOST_SIG_FORMAT, GOST_SIG_FORMAT_RS_LE, NULL) <= 0) {
2130 		SSLerror(s, ERR_R_EVP_LIB);
2131 		goto err;
2132 	}
2133 	if ((sigalg->flags & SIGALG_FLAG_RSA_PSS) &&
2134 	    (!EVP_PKEY_CTX_set_rsa_padding(pctx, RSA_PKCS1_PSS_PADDING) ||
2135 	    !EVP_PKEY_CTX_set_rsa_pss_saltlen(pctx, -1))) {
2136 		SSLerror(s, ERR_R_EVP_LIB);
2137 		goto err;
2138 	}
2139 	if (!EVP_DigestSignUpdate(mctx, hdata, hdata_len)) {
2140 		SSLerror(s, ERR_R_EVP_LIB);
2141 		goto err;
2142 	}
2143 	if (!EVP_DigestSignFinal(mctx, NULL, &signature_len) ||
2144 	    signature_len == 0) {
2145 		SSLerror(s, ERR_R_EVP_LIB);
2146 		goto err;
2147 	}
2148 	if ((signature = calloc(1, signature_len)) == NULL) {
2149 		SSLerror(s, ERR_R_MALLOC_FAILURE);
2150 		goto err;
2151 	}
2152 	if (!EVP_DigestSignFinal(mctx, signature, &signature_len)) {
2153 		SSLerror(s, ERR_R_EVP_LIB);
2154 		goto err;
2155 	}
2156 
2157 	if (!CBB_add_u16(cert_verify, sigalg->value))
2158 		goto err;
2159 	if (!CBB_add_u16_length_prefixed(cert_verify, &cbb_signature))
2160 		goto err;
2161 	if (!CBB_add_bytes(&cbb_signature, signature, signature_len))
2162 		goto err;
2163 	if (!CBB_flush(cert_verify))
2164 		goto err;
2165 
2166 	ret = 1;
2167 
2168  err:
2169 	EVP_MD_CTX_free(mctx);
2170 	free(signature);
2171 	return ret;
2172 }
2173 
2174 static int
2175 ssl3_send_client_verify_rsa(SSL *s, EVP_PKEY *pkey, CBB *cert_verify)
2176 {
2177 	CBB cbb_signature;
2178 	RSA *rsa;
2179 	unsigned char data[EVP_MAX_MD_SIZE];
2180 	unsigned char *signature = NULL;
2181 	unsigned int signature_len;
2182 	size_t data_len;
2183 	int ret = 0;
2184 
2185 	if (!tls1_transcript_hash_value(s, data, sizeof(data), &data_len))
2186 		goto err;
2187 	if ((signature = calloc(1, EVP_PKEY_size(pkey))) == NULL)
2188 		goto err;
2189 	if ((rsa = EVP_PKEY_get0_RSA(pkey)) == NULL)
2190 		goto err;
2191 	if (RSA_sign(NID_md5_sha1, data, data_len, signature, &signature_len,
2192 	    rsa) <= 0 ) {
2193 		SSLerror(s, ERR_R_RSA_LIB);
2194 		goto err;
2195 	}
2196 
2197 	if (!CBB_add_u16_length_prefixed(cert_verify, &cbb_signature))
2198 		goto err;
2199 	if (!CBB_add_bytes(&cbb_signature, signature, signature_len))
2200 		goto err;
2201 	if (!CBB_flush(cert_verify))
2202 		goto err;
2203 
2204 	ret = 1;
2205  err:
2206 	free(signature);
2207 	return ret;
2208 }
2209 
2210 static int
2211 ssl3_send_client_verify_ec(SSL *s, EVP_PKEY *pkey, CBB *cert_verify)
2212 {
2213 	CBB cbb_signature;
2214 	EC_KEY *eckey;
2215 	unsigned char data[EVP_MAX_MD_SIZE];
2216 	unsigned char *signature = NULL;
2217 	unsigned int signature_len;
2218 	int ret = 0;
2219 
2220 	if (!tls1_transcript_hash_value(s, data, sizeof(data), NULL))
2221 		goto err;
2222 	if ((signature = calloc(1, EVP_PKEY_size(pkey))) == NULL)
2223 		goto err;
2224 	if ((eckey = EVP_PKEY_get0_EC_KEY(pkey)) == NULL)
2225 		goto err;
2226 	if (!ECDSA_sign(0, &data[MD5_DIGEST_LENGTH], SHA_DIGEST_LENGTH,
2227 	    signature, &signature_len, eckey)) {
2228 		SSLerror(s, ERR_R_ECDSA_LIB);
2229 		goto err;
2230 	}
2231 
2232 	if (!CBB_add_u16_length_prefixed(cert_verify, &cbb_signature))
2233 		goto err;
2234 	if (!CBB_add_bytes(&cbb_signature, signature, signature_len))
2235 		goto err;
2236 	if (!CBB_flush(cert_verify))
2237 		goto err;
2238 
2239 	ret = 1;
2240  err:
2241 	free(signature);
2242 	return ret;
2243 }
2244 
2245 #ifndef OPENSSL_NO_GOST
2246 static int
2247 ssl3_send_client_verify_gost(SSL *s, EVP_PKEY *pkey, CBB *cert_verify)
2248 {
2249 	CBB cbb_signature;
2250 	EVP_MD_CTX *mctx;
2251 	EVP_PKEY_CTX *pctx;
2252 	const EVP_MD *md;
2253 	const unsigned char *hdata;
2254 	unsigned char *signature = NULL;
2255 	size_t signature_len;
2256 	size_t hdata_len;
2257 	int nid;
2258 	int ret = 0;
2259 
2260 	if ((mctx = EVP_MD_CTX_new()) == NULL)
2261 		goto err;
2262 
2263 	if (!tls1_transcript_data(s, &hdata, &hdata_len)) {
2264 		SSLerror(s, ERR_R_INTERNAL_ERROR);
2265 		goto err;
2266 	}
2267 	if (!EVP_PKEY_get_default_digest_nid(pkey, &nid) ||
2268 	    (md = EVP_get_digestbynid(nid)) == NULL) {
2269 		SSLerror(s, ERR_R_EVP_LIB);
2270 		goto err;
2271 	}
2272 	if (!EVP_DigestSignInit(mctx, &pctx, md, NULL, pkey)) {
2273 		SSLerror(s, ERR_R_EVP_LIB);
2274 		goto err;
2275 	}
2276 	if (EVP_PKEY_CTX_ctrl(pctx, -1, EVP_PKEY_OP_SIGN,
2277 	    EVP_PKEY_CTRL_GOST_SIG_FORMAT, GOST_SIG_FORMAT_RS_LE, NULL) <= 0) {
2278 		SSLerror(s, ERR_R_EVP_LIB);
2279 		goto err;
2280 	}
2281 	if (!EVP_DigestSignUpdate(mctx, hdata, hdata_len)) {
2282 		SSLerror(s, ERR_R_EVP_LIB);
2283 		goto err;
2284 	}
2285 	if (!EVP_DigestSignFinal(mctx, NULL, &signature_len) ||
2286 	    signature_len == 0) {
2287 		SSLerror(s, ERR_R_EVP_LIB);
2288 		goto err;
2289 	}
2290 	if ((signature = calloc(1, signature_len)) == NULL) {
2291 		SSLerror(s, ERR_R_MALLOC_FAILURE);
2292 		goto err;
2293 	}
2294 	if (!EVP_DigestSignFinal(mctx, signature, &signature_len)) {
2295 		SSLerror(s, ERR_R_EVP_LIB);
2296 		goto err;
2297 	}
2298 
2299 	if (!CBB_add_u16_length_prefixed(cert_verify, &cbb_signature))
2300 		goto err;
2301 	if (!CBB_add_bytes(&cbb_signature, signature, signature_len))
2302 		goto err;
2303 	if (!CBB_flush(cert_verify))
2304 		goto err;
2305 
2306 	ret = 1;
2307  err:
2308 	EVP_MD_CTX_free(mctx);
2309 	free(signature);
2310 	return ret;
2311 }
2312 #endif
2313 
2314 int
2315 ssl3_send_client_verify(SSL *s)
2316 {
2317 	const struct ssl_sigalg *sigalg;
2318 	CBB cbb, cert_verify;
2319 	EVP_PKEY *pkey;
2320 
2321 	memset(&cbb, 0, sizeof(cbb));
2322 
2323 	if (S3I(s)->hs.state == SSL3_ST_CW_CERT_VRFY_A) {
2324 		if (!ssl3_handshake_msg_start(s, &cbb, &cert_verify,
2325 		    SSL3_MT_CERTIFICATE_VERIFY))
2326 			goto err;
2327 
2328 		pkey = s->cert->key->privatekey;
2329 		if ((sigalg = ssl_sigalg_select(s, pkey)) == NULL) {
2330 			SSLerror(s, SSL_R_SIGNATURE_ALGORITHMS_ERROR);
2331 			goto err;
2332 		}
2333 		S3I(s)->hs.our_sigalg = sigalg;
2334 
2335 		/*
2336 		 * For TLS v1.2 send signature algorithm and signature using
2337 		 * agreed digest and cached handshake records.
2338 		 */
2339 		if (SSL_USE_SIGALGS(s)) {
2340 			if (!ssl3_send_client_verify_sigalgs(s, pkey, sigalg,
2341 			    &cert_verify))
2342 				goto err;
2343 		} else if (EVP_PKEY_id(pkey) == EVP_PKEY_RSA) {
2344 			if (!ssl3_send_client_verify_rsa(s, pkey, &cert_verify))
2345 				goto err;
2346 		} else if (EVP_PKEY_id(pkey) == EVP_PKEY_EC) {
2347 			if (!ssl3_send_client_verify_ec(s, pkey, &cert_verify))
2348 				goto err;
2349 #ifndef OPENSSL_NO_GOST
2350 		} else if (EVP_PKEY_id(pkey) == NID_id_GostR3410_94 ||
2351 		    EVP_PKEY_id(pkey) == NID_id_GostR3410_2001) {
2352 			if (!ssl3_send_client_verify_gost(s, pkey, &cert_verify))
2353 				goto err;
2354 #endif
2355 		} else {
2356 			SSLerror(s, ERR_R_INTERNAL_ERROR);
2357 			goto err;
2358 		}
2359 
2360 		tls1_transcript_free(s);
2361 
2362 		if (!ssl3_handshake_msg_finish(s, &cbb))
2363 			goto err;
2364 
2365 		S3I(s)->hs.state = SSL3_ST_CW_CERT_VRFY_B;
2366 	}
2367 
2368 	return (ssl3_handshake_write(s));
2369 
2370  err:
2371 	CBB_cleanup(&cbb);
2372 
2373 	return (-1);
2374 }
2375 
2376 int
2377 ssl3_send_client_certificate(SSL *s)
2378 {
2379 	EVP_PKEY *pkey = NULL;
2380 	X509 *x509 = NULL;
2381 	CBB cbb, client_cert;
2382 	int i;
2383 
2384 	memset(&cbb, 0, sizeof(cbb));
2385 
2386 	if (S3I(s)->hs.state == SSL3_ST_CW_CERT_A) {
2387 		if (s->cert->key->x509 == NULL ||
2388 		    s->cert->key->privatekey == NULL)
2389 			S3I(s)->hs.state = SSL3_ST_CW_CERT_B;
2390 		else
2391 			S3I(s)->hs.state = SSL3_ST_CW_CERT_C;
2392 	}
2393 
2394 	/* We need to get a client cert */
2395 	if (S3I(s)->hs.state == SSL3_ST_CW_CERT_B) {
2396 		/*
2397 		 * If we get an error, we need to
2398 		 * ssl->internal->rwstate = SSL_X509_LOOKUP; return(-1);
2399 		 * We then get retried later.
2400 		 */
2401 		i = ssl_do_client_cert_cb(s, &x509, &pkey);
2402 		if (i < 0) {
2403 			s->internal->rwstate = SSL_X509_LOOKUP;
2404 			return (-1);
2405 		}
2406 		s->internal->rwstate = SSL_NOTHING;
2407 		if ((i == 1) && (pkey != NULL) && (x509 != NULL)) {
2408 			S3I(s)->hs.state = SSL3_ST_CW_CERT_B;
2409 			if (!SSL_use_certificate(s, x509) ||
2410 			    !SSL_use_PrivateKey(s, pkey))
2411 				i = 0;
2412 		} else if (i == 1) {
2413 			i = 0;
2414 			SSLerror(s, SSL_R_BAD_DATA_RETURNED_BY_CALLBACK);
2415 		}
2416 
2417 		X509_free(x509);
2418 		EVP_PKEY_free(pkey);
2419 		if (i == 0) {
2420 			S3I(s)->hs.tls12.cert_request = 2;
2421 
2422 			/* There is no client certificate to verify. */
2423 			tls1_transcript_free(s);
2424 		}
2425 
2426 		/* Ok, we have a cert */
2427 		S3I(s)->hs.state = SSL3_ST_CW_CERT_C;
2428 	}
2429 
2430 	if (S3I(s)->hs.state == SSL3_ST_CW_CERT_C) {
2431 		if (!ssl3_handshake_msg_start(s, &cbb, &client_cert,
2432 		    SSL3_MT_CERTIFICATE))
2433 			goto err;
2434 		if (!ssl3_output_cert_chain(s, &client_cert,
2435 		    (S3I(s)->hs.tls12.cert_request == 2) ? NULL : s->cert->key))
2436 			goto err;
2437 		if (!ssl3_handshake_msg_finish(s, &cbb))
2438 			goto err;
2439 
2440 		S3I(s)->hs.state = SSL3_ST_CW_CERT_D;
2441 	}
2442 
2443 	/* SSL3_ST_CW_CERT_D */
2444 	return (ssl3_handshake_write(s));
2445 
2446  err:
2447 	CBB_cleanup(&cbb);
2448 
2449 	return (0);
2450 }
2451 
2452 #define has_bits(i,m)	(((i)&(m)) == (m))
2453 
2454 int
2455 ssl3_check_cert_and_algorithm(SSL *s)
2456 {
2457 	long alg_k, alg_a;
2458 	EVP_PKEY *pkey = NULL;
2459 	int nid = NID_undef;
2460 	int i, idx;
2461 
2462 	alg_k = S3I(s)->hs.cipher->algorithm_mkey;
2463 	alg_a = S3I(s)->hs.cipher->algorithm_auth;
2464 
2465 	/* We don't have a certificate. */
2466 	if (alg_a & SSL_aNULL)
2467 		return (1);
2468 
2469 	if (S3I(s)->hs.key_share != NULL)
2470 		nid = tls_key_share_nid(S3I(s)->hs.key_share);
2471 
2472 	/* This is the passed certificate. */
2473 
2474 	idx = s->session->peer_cert_type;
2475 	if (idx == SSL_PKEY_ECC) {
2476 		if (ssl_check_srvr_ecc_cert_and_alg(
2477 		    s->session->peer_pkeys[idx].x509, s) == 0) {
2478 			/* check failed */
2479 			SSLerror(s, SSL_R_BAD_ECC_CERT);
2480 			goto fatal_err;
2481 		} else {
2482 			return (1);
2483 		}
2484 	}
2485 	pkey = X509_get_pubkey(s->session->peer_pkeys[idx].x509);
2486 	i = X509_certificate_type(s->session->peer_pkeys[idx].x509, pkey);
2487 	EVP_PKEY_free(pkey);
2488 
2489 	/* Check that we have a certificate if we require one. */
2490 	if ((alg_a & SSL_aRSA) && !has_bits(i, EVP_PK_RSA|EVP_PKT_SIGN)) {
2491 		SSLerror(s, SSL_R_MISSING_RSA_SIGNING_CERT);
2492 		goto fatal_err;
2493 	}
2494 	if ((alg_k & SSL_kRSA) && !has_bits(i, EVP_PK_RSA|EVP_PKT_ENC)) {
2495 		SSLerror(s, SSL_R_MISSING_RSA_ENCRYPTING_CERT);
2496 		goto fatal_err;
2497 	}
2498 	if ((alg_k & SSL_kDHE) &&
2499 	    !(has_bits(i, EVP_PK_DH|EVP_PKT_EXCH) || (nid == NID_dhKeyAgreement))) {
2500 		SSLerror(s, SSL_R_MISSING_DH_KEY);
2501 		goto fatal_err;
2502 	}
2503 
2504 	return (1);
2505 
2506  fatal_err:
2507 	ssl3_send_alert(s, SSL3_AL_FATAL, SSL_AD_HANDSHAKE_FAILURE);
2508 
2509 	return (0);
2510 }
2511 
2512 /*
2513  * Check to see if handshake is full or resumed. Usually this is just a
2514  * case of checking to see if a cache hit has occurred. In the case of
2515  * session tickets we have to check the next message to be sure.
2516  */
2517 
2518 int
2519 ssl3_check_finished(SSL *s)
2520 {
2521 	int ret;
2522 
2523 	/* If we have no ticket it cannot be a resumed session. */
2524 	if (!s->session->tlsext_tick)
2525 		return (1);
2526 	/* this function is called when we really expect a Certificate
2527 	 * message, so permit appropriate message length */
2528 	if ((ret = ssl3_get_message(s, SSL3_ST_CR_CERT_A,
2529 	    SSL3_ST_CR_CERT_B, -1, s->internal->max_cert_list)) <= 0)
2530 		return ret;
2531 
2532 	S3I(s)->hs.tls12.reuse_message = 1;
2533 	if ((S3I(s)->hs.tls12.message_type == SSL3_MT_FINISHED) ||
2534 	    (S3I(s)->hs.tls12.message_type == SSL3_MT_NEWSESSION_TICKET))
2535 		return (2);
2536 
2537 	return (1);
2538 }
2539 
2540 int
2541 ssl_do_client_cert_cb(SSL *s, X509 **px509, EVP_PKEY **ppkey)
2542 {
2543 	int	i = 0;
2544 
2545 #ifndef OPENSSL_NO_ENGINE
2546 	if (s->ctx->internal->client_cert_engine) {
2547 		i = ENGINE_load_ssl_client_cert(
2548 		    s->ctx->internal->client_cert_engine, s,
2549 		    SSL_get_client_CA_list(s), px509, ppkey, NULL, NULL, NULL);
2550 		if (i != 0)
2551 			return (i);
2552 	}
2553 #endif
2554 	if (s->ctx->internal->client_cert_cb)
2555 		i = s->ctx->internal->client_cert_cb(s, px509, ppkey);
2556 	return (i);
2557 }
2558