bearssl.c@ 99344

Last change on this file since 99344 was 99344, checked in by vboxsync, 22 months ago
curl-8.0.1: Applied and adjusted our curl changes to 7.87.0 bugref:10417
Property svn:eol-style set to `native`
File size: 36.7 KB

Line
1	/***************************************************************************
2	* _ _ ____ _
3	* Project ___\| \| \| \| _ \\| \|
4	* / __\| \| \| \| \|_) \| \|
5	* \| (__\| \|_\| \| _ <\| \|___
6	* \___\|\___/\|_\| \_\_____\|
7	*
8	* Copyright (C) Michael Forney, <[email protected]>
9	*
10	* This software is licensed as described in the file COPYING, which
11	* you should have received as part of this distribution. The terms
12	* are also available at https://curl.se/docs/copyright.html.
13	*
14	* You may opt to use, copy, modify, merge, publish, distribute and/or sell
15	* copies of the Software, and permit persons to whom the Software is
16	* furnished to do so, under the terms of the COPYING file.
17	*
18	* This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
19	* KIND, either express or implied.
20	*
21	* SPDX-License-Identifier: curl
22	*
23	***************************************************************************/
24	#include "curl_setup.h"
25
26	#ifdef USE_BEARSSL
27
28	#include <bearssl.h>
29
30	#include "bearssl.h"
31	#include "urldata.h"
32	#include "sendf.h"
33	#include "inet_pton.h"
34	#include "vtls.h"
35	#include "vtls_int.h"
36	#include "connect.h"
37	#include "select.h"
38	#include "multiif.h"
39	#include "curl_printf.h"
40	#include "strcase.h"
41
42	/* The last #include files should be: */
43	#include "curl_memory.h"
44	#include "memdebug.h"
45
46	struct x509_context {
47	const br_x509_class *vtable;
48	br_x509_minimal_context minimal;
49	br_x509_decoder_context decoder;
50	bool verifyhost;
51	bool verifypeer;
52	int cert_num;
53	};
54
55	struct ssl_backend_data {
56	br_ssl_client_context ctx;
57	struct x509_context x509;
58	unsigned char buf[BR_SSL_BUFSIZE_BIDI];
59	br_x509_trust_anchor *anchors;
60	size_t anchors_len;
61	const char *protocols[ALPN_ENTRIES_MAX];
62	/* SSL client context is active */
63	bool active;
64	/* size of pending write, yet to be flushed */
65	size_t pending_write;
66	};
67
68	struct cafile_parser {
69	CURLcode err;
70	bool in_cert;
71	br_x509_decoder_context xc;
72	/* array of trust anchors loaded from CAfile */
73	br_x509_trust_anchor *anchors;
74	size_t anchors_len;
75	/* buffer for DN data */
76	unsigned char dn[1024];
77	size_t dn_len;
78	};
79
80	#define CAFILE_SOURCE_PATH 1
81	#define CAFILE_SOURCE_BLOB 2
82	struct cafile_source {
83	int type;
84	const char *data;
85	size_t len;
86	};
87
88	static void append_dn(void ctx, const void buf, size_t len)
89	{
90	struct cafile_parser *ca = ctx;
91
92	if(ca->err != CURLE_OK \|\| !ca->in_cert)
93	return;
94	if(sizeof(ca->dn) - ca->dn_len < len) {
95	ca->err = CURLE_FAILED_INIT;
96	return;
97	}
98	memcpy(ca->dn + ca->dn_len, buf, len);
99	ca->dn_len += len;
100	}
101
102	static void x509_push(void ctx, const void buf, size_t len)
103	{
104	struct cafile_parser *ca = ctx;
105
106	if(ca->in_cert)
107	br_x509_decoder_push(&ca->xc, buf, len);
108	}
109
110	static CURLcode load_cafile(struct cafile_source *source,
111	br_x509_trust_anchor **anchors,
112	size_t *anchors_len)
113	{
114	struct cafile_parser ca;
115	br_pem_decoder_context pc;
116	br_x509_trust_anchor *ta;
117	size_t ta_size;
118	br_x509_trust_anchor *new_anchors;
119	size_t new_anchors_len;
120	br_x509_pkey *pkey;
121	FILE *fp = 0;
122	unsigned char buf[BUFSIZ];
123	const unsigned char *p;
124	const char *name;
125	size_t n, i, pushed;
126
127	DEBUGASSERT(source->type == CAFILE_SOURCE_PATH
128	\|\| source->type == CAFILE_SOURCE_BLOB);
129
130	if(source->type == CAFILE_SOURCE_PATH) {
131	fp = fopen(source->data, "rb");
132	if(!fp)
133	return CURLE_SSL_CACERT_BADFILE;
134	}
135
136	if(source->type == CAFILE_SOURCE_BLOB && source->len > (size_t)INT_MAX)
137	return CURLE_SSL_CACERT_BADFILE;
138
139	ca.err = CURLE_OK;
140	ca.in_cert = FALSE;
141	ca.anchors = NULL;
142	ca.anchors_len = 0;
143	br_pem_decoder_init(&pc);
144	br_pem_decoder_setdest(&pc, x509_push, &ca);
145	do {
146	if(source->type == CAFILE_SOURCE_PATH) {
147	n = fread(buf, 1, sizeof(buf), fp);
148	if(n == 0)
149	break;
150	p = buf;
151	}
152	else if(source->type == CAFILE_SOURCE_BLOB) {
153	n = source->len;
154	p = (unsigned char *) source->data;
155	}
156	while(n) {
157	pushed = br_pem_decoder_push(&pc, p, n);
158	if(ca.err)
159	goto fail;
160	p += pushed;
161	n -= pushed;
162
163	switch(br_pem_decoder_event(&pc)) {
164	case 0:
165	break;
166	case BR_PEM_BEGIN_OBJ:
167	name = br_pem_decoder_name(&pc);
168	if(strcmp(name, "CERTIFICATE") && strcmp(name, "X509 CERTIFICATE"))
169	break;
170	br_x509_decoder_init(&ca.xc, append_dn, &ca);
171	ca.in_cert = TRUE;
172	ca.dn_len = 0;
173	break;
174	case BR_PEM_END_OBJ:
175	if(!ca.in_cert)
176	break;
177	ca.in_cert = FALSE;
178	if(br_x509_decoder_last_error(&ca.xc)) {
179	ca.err = CURLE_SSL_CACERT_BADFILE;
180	goto fail;
181	}
182	/* add trust anchor */
183	if(ca.anchors_len == SIZE_MAX / sizeof(ca.anchors[0])) {
184	ca.err = CURLE_OUT_OF_MEMORY;
185	goto fail;
186	}
187	new_anchors_len = ca.anchors_len + 1;
188	new_anchors = realloc(ca.anchors,
189	new_anchors_len * sizeof(ca.anchors[0]));
190	if(!new_anchors) {
191	ca.err = CURLE_OUT_OF_MEMORY;
192	goto fail;
193	}
194	ca.anchors = new_anchors;
195	ca.anchors_len = new_anchors_len;
196	ta = &ca.anchors[ca.anchors_len - 1];
197	ta->dn.data = NULL;
198	ta->flags = 0;
199	if(br_x509_decoder_isCA(&ca.xc))
200	ta->flags \|= BR_X509_TA_CA;
201	pkey = br_x509_decoder_get_pkey(&ca.xc);
202	if(!pkey) {
203	ca.err = CURLE_SSL_CACERT_BADFILE;
204	goto fail;
205	}
206	ta->pkey = *pkey;
207
208	/* calculate space needed for trust anchor data */
209	ta_size = ca.dn_len;
210	switch(pkey->key_type) {
211	case BR_KEYTYPE_RSA:
212	ta_size += pkey->key.rsa.nlen + pkey->key.rsa.elen;
213	break;
214	case BR_KEYTYPE_EC:
215	ta_size += pkey->key.ec.qlen;
216	break;
217	default:
218	ca.err = CURLE_FAILED_INIT;
219	goto fail;
220	}
221
222	/* fill in trust anchor DN and public key data */
223	ta->dn.data = malloc(ta_size);
224	if(!ta->dn.data) {
225	ca.err = CURLE_OUT_OF_MEMORY;
226	goto fail;
227	}
228	memcpy(ta->dn.data, ca.dn, ca.dn_len);
229	ta->dn.len = ca.dn_len;
230	switch(pkey->key_type) {
231	case BR_KEYTYPE_RSA:
232	ta->pkey.key.rsa.n = ta->dn.data + ta->dn.len;
233	memcpy(ta->pkey.key.rsa.n, pkey->key.rsa.n, pkey->key.rsa.nlen);
234	ta->pkey.key.rsa.e = ta->pkey.key.rsa.n + ta->pkey.key.rsa.nlen;
235	memcpy(ta->pkey.key.rsa.e, pkey->key.rsa.e, pkey->key.rsa.elen);
236	break;
237	case BR_KEYTYPE_EC:
238	ta->pkey.key.ec.q = ta->dn.data + ta->dn.len;
239	memcpy(ta->pkey.key.ec.q, pkey->key.ec.q, pkey->key.ec.qlen);
240	break;
241	}
242	break;
243	default:
244	ca.err = CURLE_SSL_CACERT_BADFILE;
245	goto fail;
246	}
247	}
248	} while(source->type != CAFILE_SOURCE_BLOB);
249	if(fp && ferror(fp))
250	ca.err = CURLE_READ_ERROR;
251	else if(ca.in_cert)
252	ca.err = CURLE_SSL_CACERT_BADFILE;
253
254	fail:
255	if(fp)
256	fclose(fp);
257	if(ca.err == CURLE_OK) {
258	*anchors = ca.anchors;
259	*anchors_len = ca.anchors_len;
260	}
261	else {
262	for(i = 0; i < ca.anchors_len; ++i)
263	free(ca.anchors[i].dn.data);
264	free(ca.anchors);
265	}
266
267	return ca.err;
268	}
269
270	static void x509_start_chain(const br_x509_class **ctx,
271	const char *server_name)
272	{
273	struct x509_context x509 = (struct x509_context )ctx;
274
275	if(!x509->verifypeer) {
276	x509->cert_num = 0;
277	return;
278	}
279
280	if(!x509->verifyhost)
281	server_name = NULL;
282	x509->minimal.vtable->start_chain(&x509->minimal.vtable, server_name);
283	}
284
285	static void x509_start_cert(const br_x509_class **ctx, uint32_t length)
286	{
287	struct x509_context x509 = (struct x509_context )ctx;
288
289	if(!x509->verifypeer) {
290	/* Only decode the first cert in the chain to obtain the public key */
291	if(x509->cert_num == 0)
292	br_x509_decoder_init(&x509->decoder, NULL, NULL);
293	return;
294	}
295
296	x509->minimal.vtable->start_cert(&x509->minimal.vtable, length);
297	}
298
299	static void x509_append(const br_x509_class *ctx, const unsigned char buf,
300	size_t len)
301	{
302	struct x509_context x509 = (struct x509_context )ctx;
303
304	if(!x509->verifypeer) {
305	if(x509->cert_num == 0)
306	br_x509_decoder_push(&x509->decoder, buf, len);
307	return;
308	}
309
310	x509->minimal.vtable->append(&x509->minimal.vtable, buf, len);
311	}
312
313	static void x509_end_cert(const br_x509_class **ctx)
314	{
315	struct x509_context x509 = (struct x509_context )ctx;
316
317	if(!x509->verifypeer) {
318	x509->cert_num++;
319	return;
320	}
321
322	x509->minimal.vtable->end_cert(&x509->minimal.vtable);
323	}
324
325	static unsigned x509_end_chain(const br_x509_class **ctx)
326	{
327	struct x509_context x509 = (struct x509_context )ctx;
328
329	if(!x509->verifypeer) {
330	return br_x509_decoder_last_error(&x509->decoder);
331	}
332
333	return x509->minimal.vtable->end_chain(&x509->minimal.vtable);
334	}
335
336	static const br_x509_pkey x509_get_pkey(const br_x509_class const *ctx,
337	unsigned *usages)
338	{
339	struct x509_context x509 = (struct x509_context )ctx;
340
341	if(!x509->verifypeer) {
342	/* Nothing in the chain is verified, just return the public key of the
343	first certificate and allow its usage for both TLS_RSA_* and
344	TLS_ECDHE_* */
345	if(usages)
346	*usages = BR_KEYTYPE_KEYX \| BR_KEYTYPE_SIGN;
347	return br_x509_decoder_get_pkey(&x509->decoder);
348	}
349
350	return x509->minimal.vtable->get_pkey(&x509->minimal.vtable, usages);
351	}
352
353	static const br_x509_class x509_vtable = {
354	sizeof(struct x509_context),
355	x509_start_chain,
356	x509_start_cert,
357	x509_append,
358	x509_end_cert,
359	x509_end_chain,
360	x509_get_pkey
361	};
362
363	struct st_cipher {
364	const char name; / Cipher suite IANA name. It starts with "TLS_" prefix */
365	const char alias_name; / Alias name is the same as OpenSSL cipher name */
366	uint16_t num; /* BearSSL cipher suite */
367	};
368
369	/* Macro to initialize st_cipher data structure */
370	#define CIPHER_DEF(num, alias) { #num, alias, BR_##num }
371
372	static const struct st_cipher ciphertable[] = {
373	/* RFC 2246 TLS 1.0 */
374	CIPHER_DEF(TLS_RSA_WITH_3DES_EDE_CBC_SHA, /* 0x000A */
375	"DES-CBC3-SHA"),
376
377	/* RFC 3268 TLS 1.0 AES */
378	CIPHER_DEF(TLS_RSA_WITH_AES_128_CBC_SHA, /* 0x002F */
379	"AES128-SHA"),
380	CIPHER_DEF(TLS_RSA_WITH_AES_256_CBC_SHA, /* 0x0035 */
381	"AES256-SHA"),
382
383	/* RFC 5246 TLS 1.2 */
384	CIPHER_DEF(TLS_RSA_WITH_AES_128_CBC_SHA256, /* 0x003C */
385	"AES128-SHA256"),
386	CIPHER_DEF(TLS_RSA_WITH_AES_256_CBC_SHA256, /* 0x003D */
387	"AES256-SHA256"),
388
389	/* RFC 5288 TLS 1.2 AES GCM */
390	CIPHER_DEF(TLS_RSA_WITH_AES_128_GCM_SHA256, /* 0x009C */
391	"AES128-GCM-SHA256"),
392	CIPHER_DEF(TLS_RSA_WITH_AES_256_GCM_SHA384, /* 0x009D */
393	"AES256-GCM-SHA384"),
394
395	/* RFC 4492 TLS 1.0 ECC */
396	CIPHER_DEF(TLS_ECDH_ECDSA_WITH_3DES_EDE_CBC_SHA, /* 0xC003 */
397	"ECDH-ECDSA-DES-CBC3-SHA"),
398	CIPHER_DEF(TLS_ECDH_ECDSA_WITH_AES_128_CBC_SHA, /* 0xC004 */
399	"ECDH-ECDSA-AES128-SHA"),
400	CIPHER_DEF(TLS_ECDH_ECDSA_WITH_AES_256_CBC_SHA, /* 0xC005 */
401	"ECDH-ECDSA-AES256-SHA"),
402	CIPHER_DEF(TLS_ECDHE_ECDSA_WITH_3DES_EDE_CBC_SHA, /* 0xC008 */
403	"ECDHE-ECDSA-DES-CBC3-SHA"),
404	CIPHER_DEF(TLS_ECDHE_ECDSA_WITH_AES_128_CBC_SHA, /* 0xC009 */
405	"ECDHE-ECDSA-AES128-SHA"),
406	CIPHER_DEF(TLS_ECDHE_ECDSA_WITH_AES_256_CBC_SHA, /* 0xC00A */
407	"ECDHE-ECDSA-AES256-SHA"),
408	CIPHER_DEF(TLS_ECDH_RSA_WITH_3DES_EDE_CBC_SHA, /* 0xC00D */
409	"ECDH-RSA-DES-CBC3-SHA"),
410	CIPHER_DEF(TLS_ECDH_RSA_WITH_AES_128_CBC_SHA, /* 0xC00E */
411	"ECDH-RSA-AES128-SHA"),
412	CIPHER_DEF(TLS_ECDH_RSA_WITH_AES_256_CBC_SHA, /* 0xC00F */
413	"ECDH-RSA-AES256-SHA"),
414	CIPHER_DEF(TLS_ECDHE_RSA_WITH_3DES_EDE_CBC_SHA, /* 0xC012 */
415	"ECDHE-RSA-DES-CBC3-SHA"),
416	CIPHER_DEF(TLS_ECDHE_RSA_WITH_AES_128_CBC_SHA, /* 0xC013 */
417	"ECDHE-RSA-AES128-SHA"),
418	CIPHER_DEF(TLS_ECDHE_RSA_WITH_AES_256_CBC_SHA, /* 0xC014 */
419	"ECDHE-RSA-AES256-SHA"),
420
421	/* RFC 5289 TLS 1.2 ECC HMAC SHA256/384 */
422	CIPHER_DEF(TLS_ECDHE_ECDSA_WITH_AES_128_CBC_SHA256, /* 0xC023 */
423	"ECDHE-ECDSA-AES128-SHA256"),
424	CIPHER_DEF(TLS_ECDHE_ECDSA_WITH_AES_256_CBC_SHA384, /* 0xC024 */
425	"ECDHE-ECDSA-AES256-SHA384"),
426	CIPHER_DEF(TLS_ECDH_ECDSA_WITH_AES_128_CBC_SHA256, /* 0xC025 */
427	"ECDH-ECDSA-AES128-SHA256"),
428	CIPHER_DEF(TLS_ECDH_ECDSA_WITH_AES_256_CBC_SHA384, /* 0xC026 */
429	"ECDH-ECDSA-AES256-SHA384"),
430	CIPHER_DEF(TLS_ECDHE_RSA_WITH_AES_128_CBC_SHA256, /* 0xC027 */
431	"ECDHE-RSA-AES128-SHA256"),
432	CIPHER_DEF(TLS_ECDHE_RSA_WITH_AES_256_CBC_SHA384, /* 0xC028 */
433	"ECDHE-RSA-AES256-SHA384"),
434	CIPHER_DEF(TLS_ECDH_RSA_WITH_AES_128_CBC_SHA256, /* 0xC029 */
435	"ECDH-RSA-AES128-SHA256"),
436	CIPHER_DEF(TLS_ECDH_RSA_WITH_AES_256_CBC_SHA384, /* 0xC02A */
437	"ECDH-RSA-AES256-SHA384"),
438
439	/* RFC 5289 TLS 1.2 GCM */
440	CIPHER_DEF(TLS_ECDHE_ECDSA_WITH_AES_128_GCM_SHA256, /* 0xC02B */
441	"ECDHE-ECDSA-AES128-GCM-SHA256"),
442	CIPHER_DEF(TLS_ECDHE_ECDSA_WITH_AES_256_GCM_SHA384, /* 0xC02C */
443	"ECDHE-ECDSA-AES256-GCM-SHA384"),
444	CIPHER_DEF(TLS_ECDH_ECDSA_WITH_AES_128_GCM_SHA256, /* 0xC02D */
445	"ECDH-ECDSA-AES128-GCM-SHA256"),
446	CIPHER_DEF(TLS_ECDH_ECDSA_WITH_AES_256_GCM_SHA384, /* 0xC02E */
447	"ECDH-ECDSA-AES256-GCM-SHA384"),
448	CIPHER_DEF(TLS_ECDHE_RSA_WITH_AES_128_GCM_SHA256, /* 0xC02F */
449	"ECDHE-RSA-AES128-GCM-SHA256"),
450	CIPHER_DEF(TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384, /* 0xC030 */
451	"ECDHE-RSA-AES256-GCM-SHA384"),
452	CIPHER_DEF(TLS_ECDH_RSA_WITH_AES_128_GCM_SHA256, /* 0xC031 */
453	"ECDH-RSA-AES128-GCM-SHA256"),
454	CIPHER_DEF(TLS_ECDH_RSA_WITH_AES_256_GCM_SHA384, /* 0xC032 */
455	"ECDH-RSA-AES256-GCM-SHA384"),
456	#ifdef BR_TLS_RSA_WITH_AES_128_CCM
457
458	/* RFC 6655 TLS 1.2 CCM
459	Supported since BearSSL 0.6 */
460	CIPHER_DEF(TLS_RSA_WITH_AES_128_CCM, /* 0xC09C */
461	"AES128-CCM"),
462	CIPHER_DEF(TLS_RSA_WITH_AES_256_CCM, /* 0xC09D */
463	"AES256-CCM"),
464	CIPHER_DEF(TLS_RSA_WITH_AES_128_CCM_8, /* 0xC0A0 */
465	"AES128-CCM8"),
466	CIPHER_DEF(TLS_RSA_WITH_AES_256_CCM_8, /* 0xC0A1 */
467	"AES256-CCM8"),
468
469	/* RFC 7251 TLS 1.2 ECC CCM
470	Supported since BearSSL 0.6 */
471	CIPHER_DEF(TLS_ECDHE_ECDSA_WITH_AES_128_CCM, /* 0xC0AC */
472	"ECDHE-ECDSA-AES128-CCM"),
473	CIPHER_DEF(TLS_ECDHE_ECDSA_WITH_AES_256_CCM, /* 0xC0AD */
474	"ECDHE-ECDSA-AES256-CCM"),
475	CIPHER_DEF(TLS_ECDHE_ECDSA_WITH_AES_128_CCM_8, /* 0xC0AE */
476	"ECDHE-ECDSA-AES128-CCM8"),
477	CIPHER_DEF(TLS_ECDHE_ECDSA_WITH_AES_256_CCM_8, /* 0xC0AF */
478	"ECDHE-ECDSA-AES256-CCM8"),
479	#endif
480
481	/* RFC 7905 TLS 1.2 ChaCha20-Poly1305
482	Supported since BearSSL 0.2 */
483	CIPHER_DEF(TLS_ECDHE_RSA_WITH_CHACHA20_POLY1305_SHA256, /* 0xCCA8 */
484	"ECDHE-RSA-CHACHA20-POLY1305"),
485	CIPHER_DEF(TLS_ECDHE_ECDSA_WITH_CHACHA20_POLY1305_SHA256, /* 0xCCA9 */
486	"ECDHE-ECDSA-CHACHA20-POLY1305"),
487	};
488
489	#define NUM_OF_CIPHERS (sizeof(ciphertable) / sizeof(ciphertable[0]))
490	#define CIPHER_NAME_BUF_LEN 64
491
492	static bool is_separator(char c)
493	{
494	/* Return whether character is a cipher list separator. */
495	switch(c) {
496	case ' ':
497	case '\t':
498	case ':':
499	case ',':
500	case ';':
501	return true;
502	}
503	return false;
504	}
505
506	static CURLcode bearssl_set_selected_ciphers(struct Curl_easy *data,
507	br_ssl_engine_context *ssl_eng,
508	const char *ciphers)
509	{
510	uint16_t selected_ciphers[NUM_OF_CIPHERS];
511	size_t selected_count = 0;
512	char cipher_name[CIPHER_NAME_BUF_LEN];
513	const char *cipher_start = ciphers;
514	const char *cipher_end;
515	size_t i, j;
516
517	if(!cipher_start)
518	return CURLE_SSL_CIPHER;
519
520	while(true) {
521	/* Extract the next cipher name from the ciphers string */
522	while(is_separator(*cipher_start))
523	++cipher_start;
524	if(*cipher_start == '\0')
525	break;
526	cipher_end = cipher_start;
527	while(cipher_end != '\0' && !is_separator(cipher_end))
528	++cipher_end;
529	j = cipher_end - cipher_start < CIPHER_NAME_BUF_LEN - 1 ?
530	cipher_end - cipher_start : CIPHER_NAME_BUF_LEN - 1;
531	strncpy(cipher_name, cipher_start, j);
532	cipher_name[j] = '\0';
533	cipher_start = cipher_end;
534
535	/* Lookup the cipher name in the table of available ciphers. If the cipher
536	name starts with "TLS_" we do the lookup by IANA name. Otherwise, we try
537	to match cipher name by an (OpenSSL) alias. */
538	if(strncasecompare(cipher_name, "TLS_", 4)) {
539	for(i = 0; i < NUM_OF_CIPHERS &&
540	!strcasecompare(cipher_name, ciphertable[i].name); ++i);
541	}
542	else {
543	for(i = 0; i < NUM_OF_CIPHERS &&
544	!strcasecompare(cipher_name, ciphertable[i].alias_name); ++i);
545	}
546	if(i == NUM_OF_CIPHERS) {
547	infof(data, "BearSSL: unknown cipher in list: %s", cipher_name);
548	continue;
549	}
550
551	/* No duplicates allowed */
552	for(j = 0; j < selected_count &&
553	selected_ciphers[j] != ciphertable[i].num; j++);
554	if(j < selected_count) {
555	infof(data, "BearSSL: duplicate cipher in list: %s", cipher_name);
556	continue;
557	}
558
559	DEBUGASSERT(selected_count < NUM_OF_CIPHERS);
560	selected_ciphers[selected_count] = ciphertable[i].num;
561	++selected_count;
562	}
563
564	if(selected_count == 0) {
565	failf(data, "BearSSL: no supported cipher in list");
566	return CURLE_SSL_CIPHER;
567	}
568
569	br_ssl_engine_set_suites(ssl_eng, selected_ciphers, selected_count);
570	return CURLE_OK;
571	}
572
573	static CURLcode bearssl_connect_step1(struct Curl_cfilter *cf,
574	struct Curl_easy *data)
575	{
576	struct ssl_connect_data *connssl = cf->ctx;
577	struct ssl_backend_data *backend = connssl->backend;
578	struct ssl_primary_config *conn_config = Curl_ssl_cf_get_primary_config(cf);
579	struct ssl_config_data *ssl_config = Curl_ssl_cf_get_config(cf, data);
580	const struct curl_blob *ca_info_blob = conn_config->ca_info_blob;
581	const char * const ssl_cafile =
582	/* CURLOPT_CAINFO_BLOB overrides CURLOPT_CAINFO */
583	(ca_info_blob ? NULL : conn_config->CAfile);
584	const char *hostname = connssl->hostname;
585	const bool verifypeer = conn_config->verifypeer;
586	const bool verifyhost = conn_config->verifyhost;
587	CURLcode ret;
588	unsigned version_min, version_max;
589	#ifdef ENABLE_IPV6
590	struct in6_addr addr;
591	#else
592	struct in_addr addr;
593	#endif
594
595	DEBUGASSERT(backend);
596
597	switch(conn_config->version) {
598	case CURL_SSLVERSION_SSLv2:
599	failf(data, "BearSSL does not support SSLv2");
600	return CURLE_SSL_CONNECT_ERROR;
601	case CURL_SSLVERSION_SSLv3:
602	failf(data, "BearSSL does not support SSLv3");
603	return CURLE_SSL_CONNECT_ERROR;
604	case CURL_SSLVERSION_TLSv1_0:
605	version_min = BR_TLS10;
606	version_max = BR_TLS10;
607	break;
608	case CURL_SSLVERSION_TLSv1_1:
609	version_min = BR_TLS11;
610	version_max = BR_TLS11;
611	break;
612	case CURL_SSLVERSION_TLSv1_2:
613	version_min = BR_TLS12;
614	version_max = BR_TLS12;
615	break;
616	case CURL_SSLVERSION_DEFAULT:
617	case CURL_SSLVERSION_TLSv1:
618	version_min = BR_TLS10;
619	version_max = BR_TLS12;
620	break;
621	default:
622	failf(data, "BearSSL: unknown CURLOPT_SSLVERSION");
623	return CURLE_SSL_CONNECT_ERROR;
624	}
625
626	if(ca_info_blob) {
627	struct cafile_source source;
628	source.type = CAFILE_SOURCE_BLOB;
629	source.data = ca_info_blob->data;
630	source.len = ca_info_blob->len;
631
632	ret = load_cafile(&source, &backend->anchors, &backend->anchors_len);
633	if(ret != CURLE_OK) {
634	if(verifypeer) {
635	failf(data, "error importing CA certificate blob");
636	return ret;
637	}
638	/* Only warn if no certificate verification is required. */
639	infof(data, "error importing CA certificate blob, continuing anyway");
640	}
641	}
642
643	if(ssl_cafile) {
644	struct cafile_source source;
645	source.type = CAFILE_SOURCE_PATH;
646	source.data = ssl_cafile;
647	source.len = 0;
648
649	ret = load_cafile(&source, &backend->anchors, &backend->anchors_len);
650	if(ret != CURLE_OK) {
651	if(verifypeer) {
652	failf(data, "error setting certificate verify locations."
653	" CAfile: %s", ssl_cafile);
654	return ret;
655	}
656	infof(data, "error setting certificate verify locations,"
657	" continuing anyway:");
658	}
659	}
660
661	/* initialize SSL context */
662	br_ssl_client_init_full(&backend->ctx, &backend->x509.minimal,
663	backend->anchors, backend->anchors_len);
664	br_ssl_engine_set_versions(&backend->ctx.eng, version_min, version_max);
665	br_ssl_engine_set_buffer(&backend->ctx.eng, backend->buf,
666	sizeof(backend->buf), 1);
667
668	if(conn_config->cipher_list) {
669	/* Override the ciphers as specified. For the default cipher list see the
670	BearSSL source code of br_ssl_client_init_full() */
671	ret = bearssl_set_selected_ciphers(data, &backend->ctx.eng,
672	conn_config->cipher_list);
673	if(ret)
674	return ret;
675	}
676
677	/* initialize X.509 context */
678	backend->x509.vtable = &x509_vtable;
679	backend->x509.verifypeer = verifypeer;
680	backend->x509.verifyhost = verifyhost;
681	br_ssl_engine_set_x509(&backend->ctx.eng, &backend->x509.vtable);
682
683	if(ssl_config->primary.sessionid) {
684	void *session;
685
686	Curl_ssl_sessionid_lock(data);
687	if(!Curl_ssl_getsessionid(cf, data, &session, NULL)) {
688	br_ssl_engine_set_session_parameters(&backend->ctx.eng, session);
689	infof(data, "BearSSL: re-using session ID");
690	}
691	Curl_ssl_sessionid_unlock(data);
692	}
693
694	if(connssl->alpn) {
695	struct alpn_proto_buf proto;
696	size_t i;
697
698	for(i = 0; i < connssl->alpn->count; ++i) {
699	backend->protocols[i] = connssl->alpn->entries[i];
700	}
701	br_ssl_engine_set_protocol_names(&backend->ctx.eng, backend->protocols,
702	connssl->alpn->count);
703	Curl_alpn_to_proto_str(&proto, connssl->alpn);
704	infof(data, VTLS_INFOF_ALPN_OFFER_1STR, proto.data);
705	}
706
707	if((1 == Curl_inet_pton(AF_INET, hostname, &addr))
708	#ifdef ENABLE_IPV6
709	\|\| (1 == Curl_inet_pton(AF_INET6, hostname, &addr))
710	#endif
711	) {
712	if(verifyhost) {
713	failf(data, "BearSSL: "
714	"host verification of IP address is not supported");
715	return CURLE_PEER_FAILED_VERIFICATION;
716	}
717	hostname = NULL;
718	}
719	else {
720	char *snihost = Curl_ssl_snihost(data, hostname, NULL);
721	if(!snihost) {
722	failf(data, "Failed to set SNI");
723	return CURLE_SSL_CONNECT_ERROR;
724	}
725	hostname = snihost;
726	}
727
728	/* give application a chance to interfere with SSL set up. */
729	if(data->set.ssl.fsslctx) {
730	Curl_set_in_callback(data, true);
731	ret = (*data->set.ssl.fsslctx)(data, &backend->ctx,
732	data->set.ssl.fsslctxp);
733	Curl_set_in_callback(data, false);
734	if(ret) {
735	failf(data, "BearSSL: error signaled by ssl ctx callback");
736	return ret;
737	}
738	}
739
740	if(!br_ssl_client_reset(&backend->ctx, hostname, 1))
741	return CURLE_FAILED_INIT;
742	backend->active = TRUE;
743
744	connssl->connecting_state = ssl_connect_2;
745
746	return CURLE_OK;
747	}
748
749	static CURLcode bearssl_run_until(struct Curl_cfilter *cf,
750	struct Curl_easy *data,
751	unsigned target)
752	{
753	struct ssl_connect_data *connssl = cf->ctx;
754	struct ssl_backend_data *backend = connssl->backend;
755	unsigned state;
756	unsigned char *buf;
757	size_t len;
758	ssize_t ret;
759	CURLcode result;
760	int err;
761
762	DEBUGASSERT(backend);
763
764	for(;;) {
765	state = br_ssl_engine_current_state(&backend->ctx.eng);
766	if(state & BR_SSL_CLOSED) {
767	err = br_ssl_engine_last_error(&backend->ctx.eng);
768	switch(err) {
769	case BR_ERR_OK:
770	/* TLS close notify */
771	if(connssl->state != ssl_connection_complete) {
772	failf(data, "SSL: connection closed during handshake");
773	return CURLE_SSL_CONNECT_ERROR;
774	}
775	return CURLE_OK;
776	case BR_ERR_X509_EXPIRED:
777	failf(data, "SSL: X.509 verification: "
778	"certificate is expired or not yet valid");
779	return CURLE_PEER_FAILED_VERIFICATION;
780	case BR_ERR_X509_BAD_SERVER_NAME:
781	failf(data, "SSL: X.509 verification: "
782	"expected server name was not found in the chain");
783	return CURLE_PEER_FAILED_VERIFICATION;
784	case BR_ERR_X509_NOT_TRUSTED:
785	failf(data, "SSL: X.509 verification: "
786	"chain could not be linked to a trust anchor");
787	return CURLE_PEER_FAILED_VERIFICATION;
788	}
789	/* X.509 errors are documented to have the range 32..63 */
790	if(err >= 32 && err < 64)
791	return CURLE_PEER_FAILED_VERIFICATION;
792	return CURLE_SSL_CONNECT_ERROR;
793	}
794	if(state & target)
795	return CURLE_OK;
796	if(state & BR_SSL_SENDREC) {
797	buf = br_ssl_engine_sendrec_buf(&backend->ctx.eng, &len);
798	ret = Curl_conn_cf_send(cf->next, data, (char *)buf, len, &result);
799	if(ret <= 0) {
800	return result;
801	}
802	br_ssl_engine_sendrec_ack(&backend->ctx.eng, ret);
803	}
804	else if(state & BR_SSL_RECVREC) {
805	buf = br_ssl_engine_recvrec_buf(&backend->ctx.eng, &len);
806	ret = Curl_conn_cf_recv(cf->next, data, (char *)buf, len, &result);
807	if(ret == 0) {
808	failf(data, "SSL: EOF without close notify");
809	return CURLE_READ_ERROR;
810	}
811	if(ret <= 0) {
812	return result;
813	}
814	br_ssl_engine_recvrec_ack(&backend->ctx.eng, ret);
815	}
816	}
817	}
818
819	static CURLcode bearssl_connect_step2(struct Curl_cfilter *cf,
820	struct Curl_easy *data)
821	{
822	struct ssl_connect_data *connssl = cf->ctx;
823	struct ssl_backend_data *backend = connssl->backend;
824	CURLcode ret;
825
826	DEBUGASSERT(backend);
827
828	ret = bearssl_run_until(cf, data, BR_SSL_SENDAPP \| BR_SSL_RECVAPP);
829	if(ret == CURLE_AGAIN)
830	return CURLE_OK;
831	if(ret == CURLE_OK) {
832	if(br_ssl_engine_current_state(&backend->ctx.eng) == BR_SSL_CLOSED) {
833	failf(data, "SSL: connection closed during handshake");
834	return CURLE_SSL_CONNECT_ERROR;
835	}
836	connssl->connecting_state = ssl_connect_3;
837	}
838	return ret;
839	}
840
841	static CURLcode bearssl_connect_step3(struct Curl_cfilter *cf,
842	struct Curl_easy *data)
843	{
844	struct ssl_connect_data *connssl = cf->ctx;
845	struct ssl_backend_data *backend = connssl->backend;
846	struct ssl_config_data *ssl_config = Curl_ssl_cf_get_config(cf, data);
847	CURLcode ret;
848
849	DEBUGASSERT(ssl_connect_3 == connssl->connecting_state);
850	DEBUGASSERT(backend);
851
852	if(cf->conn->bits.tls_enable_alpn) {
853	const char *proto;
854
855	proto = br_ssl_engine_get_selected_protocol(&backend->ctx.eng);
856	Curl_alpn_set_negotiated(cf, data, (const unsigned char *)proto,
857	proto? strlen(proto) : 0);
858	}
859
860	if(ssl_config->primary.sessionid) {
861	bool incache;
862	bool added = FALSE;
863	void *oldsession;
864	br_ssl_session_parameters *session;
865
866	session = malloc(sizeof(*session));
867	if(!session)
868	return CURLE_OUT_OF_MEMORY;
869	br_ssl_engine_get_session_parameters(&backend->ctx.eng, session);
870	Curl_ssl_sessionid_lock(data);
871	incache = !(Curl_ssl_getsessionid(cf, data, &oldsession, NULL));
872	if(incache)
873	Curl_ssl_delsessionid(data, oldsession);
874	ret = Curl_ssl_addsessionid(cf, data, session, 0, &added);
875	Curl_ssl_sessionid_unlock(data);
876	if(!added)
877	free(session);
878	if(ret) {
879	return CURLE_OUT_OF_MEMORY;
880	}
881	}
882
883	connssl->connecting_state = ssl_connect_done;
884
885	return CURLE_OK;
886	}
887
888	static ssize_t bearssl_send(struct Curl_cfilter cf, struct Curl_easy data,
889	const void buf, size_t len, CURLcode err)
890	{
891	struct ssl_connect_data *connssl = cf->ctx;
892	struct ssl_backend_data *backend = connssl->backend;
893	unsigned char *app;
894	size_t applen;
895
896	DEBUGASSERT(backend);
897
898	for(;;) {
899	*err = bearssl_run_until(cf, data, BR_SSL_SENDAPP);
900	if (*err != CURLE_OK)
901	return -1;
902	app = br_ssl_engine_sendapp_buf(&backend->ctx.eng, &applen);
903	if(!app) {
904	failf(data, "SSL: connection closed during write");
905	*err = CURLE_SEND_ERROR;
906	return -1;
907	}
908	if(backend->pending_write) {
909	applen = backend->pending_write;
910	backend->pending_write = 0;
911	return applen;
912	}
913	if(applen > len)
914	applen = len;
915	memcpy(app, buf, applen);
916	br_ssl_engine_sendapp_ack(&backend->ctx.eng, applen);
917	br_ssl_engine_flush(&backend->ctx.eng, 0);
918	backend->pending_write = applen;
919	}
920	}
921
922	static ssize_t bearssl_recv(struct Curl_cfilter cf, struct Curl_easy data,
923	char buf, size_t len, CURLcode err)
924	{
925	struct ssl_connect_data *connssl = cf->ctx;
926	struct ssl_backend_data *backend = connssl->backend;
927	unsigned char *app;
928	size_t applen;
929
930	DEBUGASSERT(backend);
931
932	*err = bearssl_run_until(cf, data, BR_SSL_RECVAPP);
933	if(*err != CURLE_OK)
934	return -1;
935	app = br_ssl_engine_recvapp_buf(&backend->ctx.eng, &applen);
936	if(!app)
937	return 0;
938	if(applen > len)
939	applen = len;
940	memcpy(buf, app, applen);
941	br_ssl_engine_recvapp_ack(&backend->ctx.eng, applen);
942
943	return applen;
944	}
945
946	static CURLcode bearssl_connect_common(struct Curl_cfilter *cf,
947	struct Curl_easy *data,
948	bool nonblocking,
949	bool *done)
950	{
951	CURLcode ret;
952	struct ssl_connect_data *connssl = cf->ctx;
953	curl_socket_t sockfd = Curl_conn_cf_get_socket(cf, data);
954	timediff_t timeout_ms;
955	int what;
956
957	/* check if the connection has already been established */
958	if(ssl_connection_complete == connssl->state) {
959	*done = TRUE;
960	return CURLE_OK;
961	}
962
963	if(ssl_connect_1 == connssl->connecting_state) {
964	ret = bearssl_connect_step1(cf, data);
965	if(ret)
966	return ret;
967	}
968
969	while(ssl_connect_2 == connssl->connecting_state \|\|
970	ssl_connect_2_reading == connssl->connecting_state \|\|
971	ssl_connect_2_writing == connssl->connecting_state) {
972	/* check allowed time left */
973	timeout_ms = Curl_timeleft(data, NULL, TRUE);
974
975	if(timeout_ms < 0) {
976	/* no need to continue if time already is up */
977	failf(data, "SSL connection timeout");
978	return CURLE_OPERATION_TIMEDOUT;
979	}
980
981	/* if ssl is expecting something, check if it's available. */
982	if(ssl_connect_2_reading == connssl->connecting_state \|\|
983	ssl_connect_2_writing == connssl->connecting_state) {
984
985	curl_socket_t writefd = ssl_connect_2_writing ==
986	connssl->connecting_state?sockfd:CURL_SOCKET_BAD;
987	curl_socket_t readfd = ssl_connect_2_reading ==
988	connssl->connecting_state?sockfd:CURL_SOCKET_BAD;
989
990	what = Curl_socket_check(readfd, CURL_SOCKET_BAD, writefd,
991	nonblocking?0:timeout_ms);
992	if(what < 0) {
993	/* fatal error */
994	failf(data, "select/poll on SSL socket, errno: %d", SOCKERRNO);
995	return CURLE_SSL_CONNECT_ERROR;
996	}
997	else if(0 == what) {
998	if(nonblocking) {
999	*done = FALSE;
1000	return CURLE_OK;
1001	}
1002	else {
1003	/* timeout */
1004	failf(data, "SSL connection timeout");
1005	return CURLE_OPERATION_TIMEDOUT;
1006	}
1007	}
1008	/* socket is readable or writable */
1009	}
1010
1011	/* Run transaction, and return to the caller if it failed or if this
1012	* connection is done nonblocking and this loop would execute again. This
1013	* permits the owner of a multi handle to abort a connection attempt
1014	* before step2 has completed while ensuring that a client using select()
1015	* or epoll() will always have a valid fdset to wait on.
1016	*/
1017	ret = bearssl_connect_step2(cf, data);
1018	if(ret \|\| (nonblocking &&
1019	(ssl_connect_2 == connssl->connecting_state \|\|
1020	ssl_connect_2_reading == connssl->connecting_state \|\|
1021	ssl_connect_2_writing == connssl->connecting_state)))
1022	return ret;
1023	}
1024
1025	if(ssl_connect_3 == connssl->connecting_state) {
1026	ret = bearssl_connect_step3(cf, data);
1027	if(ret)
1028	return ret;
1029	}
1030
1031	if(ssl_connect_done == connssl->connecting_state) {
1032	connssl->state = ssl_connection_complete;
1033	*done = TRUE;
1034	}
1035	else
1036	*done = FALSE;
1037
1038	/* Reset our connect state machine */
1039	connssl->connecting_state = ssl_connect_1;
1040
1041	return CURLE_OK;
1042	}
1043
1044	static size_t bearssl_version(char *buffer, size_t size)
1045	{
1046	return msnprintf(buffer, size, "BearSSL");
1047	}
1048
1049	static bool bearssl_data_pending(struct Curl_cfilter *cf,
1050	const struct Curl_easy *data)
1051	{
1052	struct ssl_connect_data *ctx = cf->ctx;
1053
1054	(void)data;
1055	DEBUGASSERT(ctx && ctx->backend);
1056	return br_ssl_engine_current_state(&ctx->backend->ctx.eng) & BR_SSL_RECVAPP;
1057	}
1058
1059	static CURLcode bearssl_random(struct Curl_easy *data UNUSED_PARAM,
1060	unsigned char *entropy, size_t length)
1061	{
1062	static br_hmac_drbg_context ctx;
1063	static bool seeded = FALSE;
1064
1065	if(!seeded) {
1066	br_prng_seeder seeder;
1067
1068	br_hmac_drbg_init(&ctx, &br_sha256_vtable, NULL, 0);
1069	seeder = br_prng_seeder_system(NULL);
1070	if(!seeder \|\| !seeder(&ctx.vtable))
1071	return CURLE_FAILED_INIT;
1072	seeded = TRUE;
1073	}
1074	br_hmac_drbg_generate(&ctx, entropy, length);
1075
1076	return CURLE_OK;
1077	}
1078
1079	static CURLcode bearssl_connect(struct Curl_cfilter *cf,
1080	struct Curl_easy *data)
1081	{
1082	CURLcode ret;
1083	bool done = FALSE;
1084
1085	ret = bearssl_connect_common(cf, data, FALSE, &done);
1086	if(ret)
1087	return ret;
1088
1089	DEBUGASSERT(done);
1090
1091	return CURLE_OK;
1092	}
1093
1094	static CURLcode bearssl_connect_nonblocking(struct Curl_cfilter *cf,
1095	struct Curl_easy *data,
1096	bool *done)
1097	{
1098	return bearssl_connect_common(cf, data, TRUE, done);
1099	}
1100
1101	static void bearssl_get_internals(struct ssl_connect_data connssl,
1102	CURLINFO info UNUSED_PARAM)
1103	{
1104	struct ssl_backend_data *backend = connssl->backend;
1105	DEBUGASSERT(backend);
1106	return &backend->ctx;
1107	}
1108
1109	static void bearssl_close(struct Curl_cfilter cf, struct Curl_easy data)
1110	{
1111	struct ssl_connect_data *connssl = cf->ctx;
1112	struct ssl_backend_data *backend = connssl->backend;
1113	size_t i;
1114
1115	DEBUGASSERT(backend);
1116
1117	if(backend->active) {
1118	backend->active = FALSE;
1119	br_ssl_engine_close(&backend->ctx.eng);
1120	(void)bearssl_run_until(cf, data, BR_SSL_CLOSED);
1121	}
1122	if(backend->anchors) {
1123	for(i = 0; i < backend->anchors_len; ++i)
1124	free(backend->anchors[i].dn.data);
1125	Curl_safefree(backend->anchors);
1126	}
1127	}
1128
1129	static void bearssl_session_free(void *ptr)
1130	{
1131	free(ptr);
1132	}
1133
1134	static CURLcode bearssl_sha256sum(const unsigned char *input,
1135	size_t inputlen,
1136	unsigned char *sha256sum,
1137	size_t sha256len UNUSED_PARAM)
1138	{
1139	br_sha256_context ctx;
1140
1141	br_sha256_init(&ctx);
1142	br_sha256_update(&ctx, input, inputlen);
1143	br_sha256_out(&ctx, sha256sum);
1144	return CURLE_OK;
1145	}
1146
1147	const struct Curl_ssl Curl_ssl_bearssl = {
1148	{ CURLSSLBACKEND_BEARSSL, "bearssl" }, /* info */
1149	SSLSUPP_CAINFO_BLOB \| SSLSUPP_SSL_CTX \| SSLSUPP_HTTPS_PROXY,
1150	sizeof(struct ssl_backend_data),
1151
1152	Curl_none_init, /* init */
1153	Curl_none_cleanup, /* cleanup */
1154	bearssl_version, /* version */
1155	Curl_none_check_cxn, /* check_cxn */
1156	Curl_none_shutdown, /* shutdown */
1157	bearssl_data_pending, /* data_pending */
1158	bearssl_random, /* random */
1159	Curl_none_cert_status_request, /* cert_status_request */
1160	bearssl_connect, /* connect */
1161	bearssl_connect_nonblocking, /* connect_nonblocking */
1162	Curl_ssl_get_select_socks, /* getsock */
1163	bearssl_get_internals, /* get_internals */
1164	bearssl_close, /* close_one */
1165	Curl_none_close_all, /* close_all */
1166	bearssl_session_free, /* session_free */
1167	Curl_none_set_engine, /* set_engine */
1168	Curl_none_set_engine_default, /* set_engine_default */
1169	Curl_none_engines_list, /* engines_list */
1170	Curl_none_false_start, /* false_start */
1171	bearssl_sha256sum, /* sha256sum */
1172	NULL, /* associate_connection */
1173	NULL, /* disassociate_connection */
1174	NULL, /* free_multi_ssl_backend_data */
1175	bearssl_recv, /* recv decrypted data */
1176	bearssl_send, /* send data to encrypt */
1177	};
1178
1179	#endif /* USE_BEARSSL */

Note: See TracBrowser for help on using the repository browser.

source: vbox/trunk/src/libs/curl-8.0.1/lib/vtls/bearssl.c@ 99344

Download in other formats: