e_dasync.c

Last change on this file was 108206, checked in by vboxsync, 3 months ago
openssl-3.3.2: Exported all files to OSE and removed .scm-settings bugref:10757
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 33.0 KB

Line
1	/*
2	* Copyright 2015-2024 The OpenSSL Project Authors. All Rights Reserved.
3	*
4	* Licensed under the Apache License 2.0 (the "License"). You may not use
5	* this file except in compliance with the License. You can obtain a copy
6	* in the file LICENSE in the source distribution or at
7	* https://www.openssl.org/source/license.html
8	*/
9
10	/* We need to use some engine deprecated APIs */
11	#define OPENSSL_SUPPRESS_DEPRECATED
12
13	/*
14	* SHA-1 low level APIs are deprecated for public use, but still ok for
15	* internal use. Note, that due to symbols not being exported, only the
16	* #defines and structures can be accessed, in this case SHA_CBLOCK and
17	* sizeof(SHA_CTX).
18	*/
19	#include "internal/deprecated.h"
20
21	#include <openssl/opensslconf.h>
22	#if defined(_WIN32)
23	# include <windows.h>
24	#endif
25
26	#include <stdio.h>
27	#include <string.h>
28
29	#include <openssl/engine.h>
30	#include <openssl/sha.h>
31	#include <openssl/aes.h>
32	#include <openssl/rsa.h>
33	#include <openssl/evp.h>
34	#include <openssl/async.h>
35	#include <openssl/bn.h>
36	#include <openssl/crypto.h>
37	#include <openssl/ssl.h>
38	#include <openssl/modes.h>
39
40	#if defined(OPENSSL_SYS_UNIX) && defined(OPENSSL_THREADS)
41	# undef ASYNC_POSIX
42	# define ASYNC_POSIX
43	# include <unistd.h>
44	#elif defined(_WIN32)
45	# undef ASYNC_WIN
46	# define ASYNC_WIN
47	#endif
48
49	#include "e_dasync_err.c"
50
51	/* Engine Id and Name */
52	static const char *engine_dasync_id = "dasync";
53	static const char *engine_dasync_name = "Dummy Async engine support";
54
55
56	/* Engine Lifetime functions */
57	static int dasync_destroy(ENGINE *e);
58	static int dasync_init(ENGINE *e);
59	static int dasync_finish(ENGINE *e);
60	void engine_load_dasync_int(void);
61
62
63	/* Set up digests. Just SHA1 for now */
64	static int dasync_digests(ENGINE e, const EVP_MD *digest,
65	const int **nids, int nid);
66
67	static void dummy_pause_job(void);
68
69	/* SHA1 */
70	static int dasync_sha1_init(EVP_MD_CTX *ctx);
71	static int dasync_sha1_update(EVP_MD_CTX ctx, const void data,
72	size_t count);
73	static int dasync_sha1_final(EVP_MD_CTX ctx, unsigned char md);
74
75	/*
76	* Holds the EVP_MD object for sha1 in this engine. Set up once only during
77	* engine bind and can then be reused many times.
78	*/
79	static EVP_MD *_hidden_sha1_md = NULL;
80	static const EVP_MD *dasync_sha1(void)
81	{
82	return _hidden_sha1_md;
83	}
84	static void destroy_digests(void)
85	{
86	EVP_MD_meth_free(_hidden_sha1_md);
87	_hidden_sha1_md = NULL;
88	}
89
90	static int dasync_digest_nids(const int **nids)
91	{
92	static int digest_nids[2] = { 0, 0 };
93	static int pos = 0;
94	static int init = 0;
95
96	if (!init) {
97	const EVP_MD *md;
98	if ((md = dasync_sha1()) != NULL)
99	digest_nids[pos++] = EVP_MD_get_type(md);
100	digest_nids[pos] = 0;
101	init = 1;
102	}
103	*nids = digest_nids;
104	return pos;
105	}
106
107	/* RSA */
108	static int dasync_pkey(ENGINE e, EVP_PKEY_METHOD *pmeth,
109	const int **pnids, int nid);
110
111	static int dasync_rsa_init(EVP_PKEY_CTX *ctx);
112	static void dasync_rsa_cleanup(EVP_PKEY_CTX *ctx);
113	static int dasync_rsa_paramgen_init(EVP_PKEY_CTX *ctx);
114	static int dasync_rsa_paramgen(EVP_PKEY_CTX ctx, EVP_PKEY pkey);
115	static int dasync_rsa_keygen_init(EVP_PKEY_CTX *ctx);
116	static int dasync_rsa_keygen(EVP_PKEY_CTX ctx, EVP_PKEY pkey);
117	static int dasync_rsa_encrypt_init(EVP_PKEY_CTX *ctx);
118	static int dasync_rsa_encrypt(EVP_PKEY_CTX ctx, unsigned char out,
119	size_t outlen, const unsigned char in,
120	size_t inlen);
121	static int dasync_rsa_decrypt_init(EVP_PKEY_CTX *ctx);
122	static int dasync_rsa_decrypt(EVP_PKEY_CTX ctx, unsigned char out,
123	size_t outlen, const unsigned char in,
124	size_t inlen);
125	static int dasync_rsa_ctrl(EVP_PKEY_CTX ctx, int type, int p1, void p2);
126	static int dasync_rsa_ctrl_str(EVP_PKEY_CTX ctx, const char type,
127	const char *value);
128
129	static EVP_PKEY_METHOD *dasync_rsa;
130	static const EVP_PKEY_METHOD *dasync_rsa_orig;
131
132	/* AES */
133
134	static int dasync_aes128_cbc_ctrl(EVP_CIPHER_CTX *ctx, int type, int arg,
135	void *ptr);
136	static int dasync_aes128_init_key(EVP_CIPHER_CTX ctx, const unsigned char key,
137	const unsigned char *iv, int enc);
138	static int dasync_aes128_cbc_cipher(EVP_CIPHER_CTX ctx, unsigned char out,
139	const unsigned char *in, size_t inl);
140	static int dasync_aes128_cbc_cleanup(EVP_CIPHER_CTX *ctx);
141
142	static int dasync_aes256_ctr_ctrl(EVP_CIPHER_CTX *ctx, int type, int arg,
143	void *ptr);
144	static int dasync_aes256_init_key(EVP_CIPHER_CTX ctx, const unsigned char key,
145	const unsigned char *iv, int enc);
146	static int dasync_aes256_ctr_cipher(EVP_CIPHER_CTX ctx, unsigned char out,
147	const unsigned char *in, size_t inl);
148	static int dasync_aes256_ctr_cleanup(EVP_CIPHER_CTX *ctx);
149
150	static int dasync_aes128_cbc_hmac_sha1_ctrl(EVP_CIPHER_CTX *ctx, int type,
151	int arg, void *ptr);
152	static int dasync_aes128_cbc_hmac_sha1_init_key(EVP_CIPHER_CTX *ctx,
153	const unsigned char *key,
154	const unsigned char *iv,
155	int enc);
156	static int dasync_aes128_cbc_hmac_sha1_cipher(EVP_CIPHER_CTX *ctx,
157	unsigned char *out,
158	const unsigned char *in,
159	size_t inl);
160	static int dasync_aes128_cbc_hmac_sha1_cleanup(EVP_CIPHER_CTX *ctx);
161
162	struct dasync_pipeline_ctx {
163	void *inner_cipher_data;
164	unsigned int numpipes;
165	unsigned char **inbufs;
166	unsigned char **outbufs;
167	size_t *lens;
168	unsigned char tlsaad[SSL_MAX_PIPELINES][EVP_AEAD_TLS1_AAD_LEN];
169	unsigned int aadctr;
170	};
171
172	/*
173	* Holds the EVP_CIPHER object for aes_128_cbc in this engine. Set up once only
174	* during engine bind and can then be reused many times.
175	*/
176	static EVP_CIPHER *_hidden_aes_128_cbc = NULL;
177	static const EVP_CIPHER *dasync_aes_128_cbc(void)
178	{
179	return _hidden_aes_128_cbc;
180	}
181
182	static EVP_CIPHER *_hidden_aes_256_ctr = NULL;
183	static const EVP_CIPHER *dasync_aes_256_ctr(void)
184	{
185	return _hidden_aes_256_ctr;
186	}
187
188	/*
189	* Holds the EVP_CIPHER object for aes_128_cbc_hmac_sha1 in this engine. Set up
190	* once only during engine bind and can then be reused many times.
191	*
192	* This 'stitched' cipher depends on the EVP_aes_128_cbc_hmac_sha1() cipher,
193	* which is implemented only if the AES-NI instruction set extension is available
194	* (see OPENSSL_IA32CAP(3)). If that's not the case, then this cipher will not
195	* be available either.
196	*
197	* Note: Since it is a legacy mac-then-encrypt cipher, modern TLS peers (which
198	* negotiate the encrypt-then-mac extension) won't negotiate it anyway.
199	*/
200	static EVP_CIPHER *_hidden_aes_128_cbc_hmac_sha1 = NULL;
201	static const EVP_CIPHER *dasync_aes_128_cbc_hmac_sha1(void)
202	{
203	return _hidden_aes_128_cbc_hmac_sha1;
204	}
205
206	static void destroy_ciphers(void)
207	{
208	EVP_CIPHER_meth_free(_hidden_aes_128_cbc);
209	EVP_CIPHER_meth_free(_hidden_aes_256_ctr);
210	EVP_CIPHER_meth_free(_hidden_aes_128_cbc_hmac_sha1);
211	_hidden_aes_128_cbc = NULL;
212	_hidden_aes_256_ctr = NULL;
213	_hidden_aes_128_cbc_hmac_sha1 = NULL;
214	}
215
216	static int dasync_ciphers(ENGINE e, const EVP_CIPHER *cipher,
217	const int **nids, int nid);
218
219	static int dasync_cipher_nids[] = {
220	NID_aes_128_cbc,
221	NID_aes_256_ctr,
222	NID_aes_128_cbc_hmac_sha1,
223	0
224	};
225
226	static int bind_dasync(ENGINE *e)
227	{
228	/* Setup RSA */
229	if ((dasync_rsa_orig = EVP_PKEY_meth_find(EVP_PKEY_RSA)) == NULL
230	\|\| (dasync_rsa = EVP_PKEY_meth_new(EVP_PKEY_RSA,
231	EVP_PKEY_FLAG_AUTOARGLEN)) == NULL)
232	return 0;
233	EVP_PKEY_meth_set_init(dasync_rsa, dasync_rsa_init);
234	EVP_PKEY_meth_set_cleanup(dasync_rsa, dasync_rsa_cleanup);
235	EVP_PKEY_meth_set_paramgen(dasync_rsa, dasync_rsa_paramgen_init,
236	dasync_rsa_paramgen);
237	EVP_PKEY_meth_set_keygen(dasync_rsa, dasync_rsa_keygen_init,
238	dasync_rsa_keygen);
239	EVP_PKEY_meth_set_encrypt(dasync_rsa, dasync_rsa_encrypt_init,
240	dasync_rsa_encrypt);
241	EVP_PKEY_meth_set_decrypt(dasync_rsa, dasync_rsa_decrypt_init,
242	dasync_rsa_decrypt);
243	EVP_PKEY_meth_set_ctrl(dasync_rsa, dasync_rsa_ctrl,
244	dasync_rsa_ctrl_str);
245
246	/* Ensure the dasync error handling is set up */
247	ERR_load_DASYNC_strings();
248
249	if (!ENGINE_set_id(e, engine_dasync_id)
250	\|\| !ENGINE_set_name(e, engine_dasync_name)
251	\|\| !ENGINE_set_pkey_meths(e, dasync_pkey)
252	\|\| !ENGINE_set_digests(e, dasync_digests)
253	\|\| !ENGINE_set_ciphers(e, dasync_ciphers)
254	\|\| !ENGINE_set_destroy_function(e, dasync_destroy)
255	\|\| !ENGINE_set_init_function(e, dasync_init)
256	\|\| !ENGINE_set_finish_function(e, dasync_finish)) {
257	DASYNCerr(DASYNC_F_BIND_DASYNC, DASYNC_R_INIT_FAILED);
258	return 0;
259	}
260
261	/*
262	* Set up the EVP_CIPHER and EVP_MD objects for the ciphers/digests
263	* supplied by this engine
264	*/
265	_hidden_sha1_md = EVP_MD_meth_new(NID_sha1, NID_sha1WithRSAEncryption);
266	if (_hidden_sha1_md == NULL
267	\|\| !EVP_MD_meth_set_result_size(_hidden_sha1_md, SHA_DIGEST_LENGTH)
268	\|\| !EVP_MD_meth_set_input_blocksize(_hidden_sha1_md, SHA_CBLOCK)
269	\|\| !EVP_MD_meth_set_app_datasize(_hidden_sha1_md,
270	sizeof(EVP_MD *) + sizeof(SHA_CTX))
271	\|\| !EVP_MD_meth_set_flags(_hidden_sha1_md, EVP_MD_FLAG_DIGALGID_ABSENT)
272	\|\| !EVP_MD_meth_set_init(_hidden_sha1_md, dasync_sha1_init)
273	\|\| !EVP_MD_meth_set_update(_hidden_sha1_md, dasync_sha1_update)
274	\|\| !EVP_MD_meth_set_final(_hidden_sha1_md, dasync_sha1_final)) {
275	EVP_MD_meth_free(_hidden_sha1_md);
276	_hidden_sha1_md = NULL;
277	}
278
279	_hidden_aes_128_cbc = EVP_CIPHER_meth_new(NID_aes_128_cbc,
280	16 /* block size */,
281	16 /* key len */);
282	if (_hidden_aes_128_cbc == NULL
283	\|\| !EVP_CIPHER_meth_set_iv_length(_hidden_aes_128_cbc,16)
284	\|\| !EVP_CIPHER_meth_set_flags(_hidden_aes_128_cbc,
285	EVP_CIPH_FLAG_DEFAULT_ASN1
286	\| EVP_CIPH_CBC_MODE
287	\| EVP_CIPH_FLAG_PIPELINE
288	\| EVP_CIPH_CUSTOM_COPY)
289	\|\| !EVP_CIPHER_meth_set_init(_hidden_aes_128_cbc,
290	dasync_aes128_init_key)
291	\|\| !EVP_CIPHER_meth_set_do_cipher(_hidden_aes_128_cbc,
292	dasync_aes128_cbc_cipher)
293	\|\| !EVP_CIPHER_meth_set_cleanup(_hidden_aes_128_cbc,
294	dasync_aes128_cbc_cleanup)
295	\|\| !EVP_CIPHER_meth_set_ctrl(_hidden_aes_128_cbc,
296	dasync_aes128_cbc_ctrl)
297	\|\| !EVP_CIPHER_meth_set_impl_ctx_size(_hidden_aes_128_cbc,
298	sizeof(struct dasync_pipeline_ctx))) {
299	EVP_CIPHER_meth_free(_hidden_aes_128_cbc);
300	_hidden_aes_128_cbc = NULL;
301	}
302
303	_hidden_aes_256_ctr = EVP_CIPHER_meth_new(NID_aes_256_ctr,
304	1 /* block size */,
305	32 /* key len */);
306	if (_hidden_aes_256_ctr == NULL
307	\|\| !EVP_CIPHER_meth_set_iv_length(_hidden_aes_256_ctr,16)
308	\|\| !EVP_CIPHER_meth_set_flags(_hidden_aes_256_ctr,
309	EVP_CIPH_FLAG_DEFAULT_ASN1
310	\| EVP_CIPH_CTR_MODE
311	\| EVP_CIPH_FLAG_PIPELINE
312	\| EVP_CIPH_CUSTOM_COPY)
313	\|\| !EVP_CIPHER_meth_set_init(_hidden_aes_256_ctr,
314	dasync_aes256_init_key)
315	\|\| !EVP_CIPHER_meth_set_do_cipher(_hidden_aes_256_ctr,
316	dasync_aes256_ctr_cipher)
317	\|\| !EVP_CIPHER_meth_set_cleanup(_hidden_aes_256_ctr,
318	dasync_aes256_ctr_cleanup)
319	\|\| !EVP_CIPHER_meth_set_ctrl(_hidden_aes_256_ctr,
320	dasync_aes256_ctr_ctrl)
321	\|\| !EVP_CIPHER_meth_set_impl_ctx_size(_hidden_aes_256_ctr,
322	sizeof(struct dasync_pipeline_ctx))) {
323	EVP_CIPHER_meth_free(_hidden_aes_256_ctr);
324	_hidden_aes_256_ctr = NULL;
325	}
326
327	_hidden_aes_128_cbc_hmac_sha1 = EVP_CIPHER_meth_new(
328	NID_aes_128_cbc_hmac_sha1,
329	16 /* block size */,
330	16 /* key len */);
331	if (_hidden_aes_128_cbc_hmac_sha1 == NULL
332	\|\| !EVP_CIPHER_meth_set_iv_length(_hidden_aes_128_cbc_hmac_sha1,16)
333	\|\| !EVP_CIPHER_meth_set_flags(_hidden_aes_128_cbc_hmac_sha1,
334	EVP_CIPH_CBC_MODE
335	\| EVP_CIPH_FLAG_DEFAULT_ASN1
336	\| EVP_CIPH_FLAG_AEAD_CIPHER
337	\| EVP_CIPH_FLAG_PIPELINE
338	\| EVP_CIPH_CUSTOM_COPY)
339	\|\| !EVP_CIPHER_meth_set_init(_hidden_aes_128_cbc_hmac_sha1,
340	dasync_aes128_cbc_hmac_sha1_init_key)
341	\|\| !EVP_CIPHER_meth_set_do_cipher(_hidden_aes_128_cbc_hmac_sha1,
342	dasync_aes128_cbc_hmac_sha1_cipher)
343	\|\| !EVP_CIPHER_meth_set_cleanup(_hidden_aes_128_cbc_hmac_sha1,
344	dasync_aes128_cbc_hmac_sha1_cleanup)
345	\|\| !EVP_CIPHER_meth_set_ctrl(_hidden_aes_128_cbc_hmac_sha1,
346	dasync_aes128_cbc_hmac_sha1_ctrl)
347	\|\| !EVP_CIPHER_meth_set_impl_ctx_size(_hidden_aes_128_cbc_hmac_sha1,
348	sizeof(struct dasync_pipeline_ctx))) {
349	EVP_CIPHER_meth_free(_hidden_aes_128_cbc_hmac_sha1);
350	_hidden_aes_128_cbc_hmac_sha1 = NULL;
351	}
352
353	return 1;
354	}
355
356	static void destroy_pkey(void)
357	{
358	/*
359	* We don't actually need to free the dasync_rsa method since this is
360	* automatically freed for us by libcrypto.
361	*/
362	dasync_rsa_orig = NULL;
363	dasync_rsa = NULL;
364	}
365
366	# ifndef OPENSSL_NO_DYNAMIC_ENGINE
367	static int bind_helper(ENGINE e, const char id)
368	{
369	if (id && (strcmp(id, engine_dasync_id) != 0))
370	return 0;
371	if (!bind_dasync(e))
372	return 0;
373	return 1;
374	}
375
376	IMPLEMENT_DYNAMIC_CHECK_FN()
377	IMPLEMENT_DYNAMIC_BIND_FN(bind_helper)
378	# endif
379
380	static ENGINE *engine_dasync(void)
381	{
382	ENGINE *ret = ENGINE_new();
383	if (!ret)
384	return NULL;
385	if (!bind_dasync(ret)) {
386	ENGINE_free(ret);
387	return NULL;
388	}
389	return ret;
390	}
391
392	void engine_load_dasync_int(void)
393	{
394	ENGINE *toadd = engine_dasync();
395	if (!toadd)
396	return;
397	ERR_set_mark();
398	ENGINE_add(toadd);
399	/*
400	* If the "add" worked, it gets a structural reference. So either way, we
401	* release our just-created reference.
402	*/
403	ENGINE_free(toadd);
404	/*
405	* If the "add" didn't work, it was probably a conflict because it was
406	* already added (eg. someone calling ENGINE_load_blah then calling
407	* ENGINE_load_builtin_engines() perhaps).
408	*/
409	ERR_pop_to_mark();
410	}
411
412	static int dasync_init(ENGINE *e)
413	{
414	return 1;
415	}
416
417
418	static int dasync_finish(ENGINE *e)
419	{
420	return 1;
421	}
422
423
424	static int dasync_destroy(ENGINE *e)
425	{
426	destroy_digests();
427	destroy_ciphers();
428	destroy_pkey();
429	ERR_unload_DASYNC_strings();
430	return 1;
431	}
432
433	static int dasync_pkey(ENGINE e, EVP_PKEY_METHOD *pmeth,
434	const int **pnids, int nid)
435	{
436	static const int rnid = EVP_PKEY_RSA;
437
438	if (pmeth == NULL) {
439	*pnids = &rnid;
440	return 1;
441	}
442
443	if (nid == EVP_PKEY_RSA) {
444	*pmeth = dasync_rsa;
445	return 1;
446	}
447
448	*pmeth = NULL;
449	return 0;
450	}
451
452	static int dasync_digests(ENGINE e, const EVP_MD *digest,
453	const int **nids, int nid)
454	{
455	int ok = 1;
456	if (!digest) {
457	/* We are returning a list of supported nids */
458	return dasync_digest_nids(nids);
459	}
460	/* We are being asked for a specific digest */
461	switch (nid) {
462	case NID_sha1:
463	*digest = dasync_sha1();
464	break;
465	default:
466	ok = 0;
467	*digest = NULL;
468	break;
469	}
470	return ok;
471	}
472
473	static int dasync_ciphers(ENGINE e, const EVP_CIPHER *cipher,
474	const int **nids, int nid)
475	{
476	int ok = 1;
477	if (cipher == NULL) {
478	/* We are returning a list of supported nids */
479	*nids = dasync_cipher_nids;
480	return (sizeof(dasync_cipher_nids) -
481	1) / sizeof(dasync_cipher_nids[0]);
482	}
483	/* We are being asked for a specific cipher */
484	switch (nid) {
485	case NID_aes_128_cbc:
486	*cipher = dasync_aes_128_cbc();
487	break;
488	case NID_aes_256_ctr:
489	*cipher = dasync_aes_256_ctr();
490	break;
491	case NID_aes_128_cbc_hmac_sha1:
492	*cipher = dasync_aes_128_cbc_hmac_sha1();
493	break;
494	default:
495	ok = 0;
496	*cipher = NULL;
497	break;
498	}
499	return ok;
500	}
501
502	static void wait_cleanup(ASYNC_WAIT_CTX ctx, const void key,
503	OSSL_ASYNC_FD readfd, void *pvwritefd)
504	{
505	OSSL_ASYNC_FD pwritefd = (OSSL_ASYNC_FD )pvwritefd;
506	#if defined(ASYNC_WIN)
507	CloseHandle(readfd);
508	CloseHandle(*pwritefd);
509	#elif defined(ASYNC_POSIX)
510	close(readfd);
511	close(*pwritefd);
512	#endif
513	OPENSSL_free(pwritefd);
514	}
515
516	#define DUMMY_CHAR 'X'
517
518	static void dummy_pause_job(void) {
519	ASYNC_JOB *job;
520	ASYNC_WAIT_CTX *waitctx;
521	ASYNC_callback_fn callback;
522	void *callback_arg;
523	OSSL_ASYNC_FD pipefds[2] = {0, 0};
524	OSSL_ASYNC_FD *writefd;
525	#if defined(ASYNC_WIN)
526	DWORD numwritten, numread;
527	char buf = DUMMY_CHAR;
528	#elif defined(ASYNC_POSIX)
529	char buf = DUMMY_CHAR;
530	#endif
531
532	if ((job = ASYNC_get_current_job()) == NULL)
533	return;
534
535	waitctx = ASYNC_get_wait_ctx(job);
536
537	if (ASYNC_WAIT_CTX_get_callback(waitctx, &callback, &callback_arg) && callback != NULL) {
538	/*
539	* In the Dummy async engine we are cheating. We call the callback that the job
540	* is complete before the call to ASYNC_pause_job(). A real
541	* async engine would only call the callback when the job was actually complete
542	*/
543	(*callback)(callback_arg);
544	ASYNC_pause_job();
545	return;
546	}
547
548
549	if (ASYNC_WAIT_CTX_get_fd(waitctx, engine_dasync_id, &pipefds[0],
550	(void **)&writefd)) {
551	pipefds[1] = *writefd;
552	} else {
553	writefd = OPENSSL_malloc(sizeof(*writefd));
554	if (writefd == NULL)
555	return;
556	#if defined(ASYNC_WIN)
557	if (CreatePipe(&pipefds[0], &pipefds[1], NULL, 256) == 0) {
558	OPENSSL_free(writefd);
559	return;
560	}
561	#elif defined(ASYNC_POSIX)
562	if (pipe(pipefds) != 0) {
563	OPENSSL_free(writefd);
564	return;
565	}
566	#endif
567	*writefd = pipefds[1];
568
569	if (!ASYNC_WAIT_CTX_set_wait_fd(waitctx, engine_dasync_id, pipefds[0],
570	writefd, wait_cleanup)) {
571	wait_cleanup(waitctx, engine_dasync_id, pipefds[0], writefd);
572	return;
573	}
574	}
575	/*
576	* In the Dummy async engine we are cheating. We signal that the job
577	* is complete by waking it before the call to ASYNC_pause_job(). A real
578	* async engine would only wake when the job was actually complete
579	*/
580	#if defined(ASYNC_WIN)
581	WriteFile(pipefds[1], &buf, 1, &numwritten, NULL);
582	#elif defined(ASYNC_POSIX)
583	if (write(pipefds[1], &buf, 1) < 0)
584	return;
585	#endif
586
587	/* Ignore errors - we carry on anyway */
588	ASYNC_pause_job();
589
590	/* Clear the wake signal */
591	#if defined(ASYNC_WIN)
592	ReadFile(pipefds[0], &buf, 1, &numread, NULL);
593	#elif defined(ASYNC_POSIX)
594	if (read(pipefds[0], &buf, 1) < 0)
595	return;
596	#endif
597	}
598
599	/*
600	* SHA1 implementation. At the moment we just defer to the standard
601	* implementation
602	*/
603	static int dasync_sha1_init(EVP_MD_CTX *ctx)
604	{
605	dummy_pause_job();
606
607	return EVP_MD_meth_get_init(EVP_sha1())(ctx);
608	}
609
610	static int dasync_sha1_update(EVP_MD_CTX ctx, const void data,
611	size_t count)
612	{
613	dummy_pause_job();
614
615	return EVP_MD_meth_get_update(EVP_sha1())(ctx, data, count);
616	}
617
618	static int dasync_sha1_final(EVP_MD_CTX ctx, unsigned char md)
619	{
620	dummy_pause_job();
621
622	return EVP_MD_meth_get_final(EVP_sha1())(ctx, md);
623	}
624
625	/* Cipher helper functions */
626
627	static int dasync_cipher_ctrl_helper(EVP_CIPHER_CTX *ctx, int type, int arg,
628	void *ptr, int aeadcapable,
629	const EVP_CIPHER *ciph)
630	{
631	int ret;
632	struct dasync_pipeline_ctx *pipe_ctx =
633	(struct dasync_pipeline_ctx *)EVP_CIPHER_CTX_get_cipher_data(ctx);
634
635	if (pipe_ctx == NULL)
636	return 0;
637
638	switch (type) {
639	case EVP_CTRL_COPY:
640	{
641	size_t sz = EVP_CIPHER_impl_ctx_size(ciph);
642	void *inner_cipher_data = OPENSSL_malloc(sz);
643
644	if (inner_cipher_data == NULL)
645	return -1;
646	memcpy(inner_cipher_data, pipe_ctx->inner_cipher_data, sz);
647	pipe_ctx->inner_cipher_data = inner_cipher_data;
648	}
649	break;
650
651	case EVP_CTRL_SET_PIPELINE_OUTPUT_BUFS:
652	pipe_ctx->numpipes = arg;
653	pipe_ctx->outbufs = (unsigned char **)ptr;
654	break;
655
656	case EVP_CTRL_SET_PIPELINE_INPUT_BUFS:
657	pipe_ctx->numpipes = arg;
658	pipe_ctx->inbufs = (unsigned char **)ptr;
659	break;
660
661	case EVP_CTRL_SET_PIPELINE_INPUT_LENS:
662	pipe_ctx->numpipes = arg;
663	pipe_ctx->lens = (size_t *)ptr;
664	break;
665
666	case EVP_CTRL_AEAD_SET_MAC_KEY:
667	if (!aeadcapable)
668	return -1;
669	EVP_CIPHER_CTX_set_cipher_data(ctx, pipe_ctx->inner_cipher_data);
670	ret = EVP_CIPHER_meth_get_ctrl(EVP_aes_128_cbc_hmac_sha1())
671	(ctx, type, arg, ptr);
672	EVP_CIPHER_CTX_set_cipher_data(ctx, pipe_ctx);
673	return ret;
674
675	case EVP_CTRL_AEAD_TLS1_AAD:
676	{
677	unsigned char *p = ptr;
678	unsigned int len;
679
680	if (!aeadcapable \|\| arg != EVP_AEAD_TLS1_AAD_LEN)
681	return -1;
682
683	if (pipe_ctx->aadctr >= SSL_MAX_PIPELINES)
684	return -1;
685
686	memcpy(pipe_ctx->tlsaad[pipe_ctx->aadctr], ptr,
687	EVP_AEAD_TLS1_AAD_LEN);
688	pipe_ctx->aadctr++;
689
690	len = p[arg - 2] << 8 \| p[arg - 1];
691
692	if (EVP_CIPHER_CTX_is_encrypting(ctx)) {
693	if ((p[arg - 4] << 8 \| p[arg - 3]) >= TLS1_1_VERSION) {
694	if (len < AES_BLOCK_SIZE)
695	return 0;
696	len -= AES_BLOCK_SIZE;
697	}
698
699	return ((len + SHA_DIGEST_LENGTH + AES_BLOCK_SIZE)
700	& -AES_BLOCK_SIZE) - len;
701	} else {
702	return SHA_DIGEST_LENGTH;
703	}
704	}
705
706	default:
707	return 0;
708	}
709
710	return 1;
711	}
712
713	static int dasync_cipher_init_key_helper(EVP_CIPHER_CTX *ctx,
714	const unsigned char *key,
715	const unsigned char *iv, int enc,
716	const EVP_CIPHER *cipher)
717	{
718	int ret;
719	struct dasync_pipeline_ctx *pipe_ctx =
720	(struct dasync_pipeline_ctx *)EVP_CIPHER_CTX_get_cipher_data(ctx);
721
722	if (pipe_ctx->inner_cipher_data == NULL
723	&& EVP_CIPHER_impl_ctx_size(cipher) != 0) {
724	pipe_ctx->inner_cipher_data = OPENSSL_zalloc(
725	EVP_CIPHER_impl_ctx_size(cipher));
726	if (pipe_ctx->inner_cipher_data == NULL)
727	return 0;
728	}
729
730	pipe_ctx->numpipes = 0;
731	pipe_ctx->aadctr = 0;
732
733	EVP_CIPHER_CTX_set_cipher_data(ctx, pipe_ctx->inner_cipher_data);
734	ret = EVP_CIPHER_meth_get_init(cipher)(ctx, key, iv, enc);
735	EVP_CIPHER_CTX_set_cipher_data(ctx, pipe_ctx);
736
737	return ret;
738	}
739
740	static int dasync_cipher_helper(EVP_CIPHER_CTX ctx, unsigned char out,
741	const unsigned char *in, size_t inl,
742	const EVP_CIPHER *cipher)
743	{
744	int ret = 1;
745	unsigned int i, pipes;
746	struct dasync_pipeline_ctx *pipe_ctx =
747	(struct dasync_pipeline_ctx *)EVP_CIPHER_CTX_get_cipher_data(ctx);
748
749	pipes = pipe_ctx->numpipes;
750	EVP_CIPHER_CTX_set_cipher_data(ctx, pipe_ctx->inner_cipher_data);
751	if (pipes == 0) {
752	if (pipe_ctx->aadctr != 0) {
753	if (pipe_ctx->aadctr != 1)
754	return -1;
755	EVP_CIPHER_meth_get_ctrl(cipher)
756	(ctx, EVP_CTRL_AEAD_TLS1_AAD,
757	EVP_AEAD_TLS1_AAD_LEN,
758	pipe_ctx->tlsaad[0]);
759	}
760	ret = EVP_CIPHER_meth_get_do_cipher(cipher)
761	(ctx, out, in, inl);
762	} else {
763	if (pipe_ctx->aadctr > 0 && pipe_ctx->aadctr != pipes)
764	return -1;
765	for (i = 0; i < pipes; i++) {
766	if (pipe_ctx->aadctr > 0) {
767	EVP_CIPHER_meth_get_ctrl(cipher)
768	(ctx, EVP_CTRL_AEAD_TLS1_AAD,
769	EVP_AEAD_TLS1_AAD_LEN,
770	pipe_ctx->tlsaad[i]);
771	}
772	ret = ret && EVP_CIPHER_meth_get_do_cipher(cipher)
773	(ctx, pipe_ctx->outbufs[i], pipe_ctx->inbufs[i],
774	pipe_ctx->lens[i]);
775	}
776	pipe_ctx->numpipes = 0;
777	}
778	pipe_ctx->aadctr = 0;
779	EVP_CIPHER_CTX_set_cipher_data(ctx, pipe_ctx);
780	return ret;
781	}
782
783	static int dasync_cipher_cleanup_helper(EVP_CIPHER_CTX *ctx,
784	const EVP_CIPHER *cipher)
785	{
786	struct dasync_pipeline_ctx *pipe_ctx =
787	(struct dasync_pipeline_ctx *)EVP_CIPHER_CTX_get_cipher_data(ctx);
788
789	OPENSSL_clear_free(pipe_ctx->inner_cipher_data,
790	EVP_CIPHER_impl_ctx_size(cipher));
791
792	return 1;
793	}
794
795	/*
796	* AES128 CBC Implementation
797	*/
798
799	static int dasync_aes128_cbc_ctrl(EVP_CIPHER_CTX *ctx, int type, int arg,
800	void *ptr)
801	{
802	return dasync_cipher_ctrl_helper(ctx, type, arg, ptr, 0, EVP_aes_128_cbc());
803	}
804
805	static int dasync_aes128_init_key(EVP_CIPHER_CTX ctx, const unsigned char key,
806	const unsigned char *iv, int enc)
807	{
808	return dasync_cipher_init_key_helper(ctx, key, iv, enc, EVP_aes_128_cbc());
809	}
810
811	static int dasync_aes128_cbc_cipher(EVP_CIPHER_CTX ctx, unsigned char out,
812	const unsigned char *in, size_t inl)
813	{
814	return dasync_cipher_helper(ctx, out, in, inl, EVP_aes_128_cbc());
815	}
816
817	static int dasync_aes128_cbc_cleanup(EVP_CIPHER_CTX *ctx)
818	{
819	return dasync_cipher_cleanup_helper(ctx, EVP_aes_128_cbc());
820	}
821
822	static int dasync_aes256_ctr_ctrl(EVP_CIPHER_CTX *ctx, int type, int arg,
823	void *ptr)
824	{
825	return dasync_cipher_ctrl_helper(ctx, type, arg, ptr, 0, EVP_aes_256_ctr());
826	}
827
828	static int dasync_aes256_init_key(EVP_CIPHER_CTX ctx, const unsigned char key,
829	const unsigned char *iv, int enc)
830	{
831	return dasync_cipher_init_key_helper(ctx, key, iv, enc, EVP_aes_256_ctr());
832	}
833
834	static int dasync_aes256_ctr_cipher(EVP_CIPHER_CTX ctx, unsigned char out,
835	const unsigned char *in, size_t inl)
836	{
837	return dasync_cipher_helper(ctx, out, in, inl, EVP_aes_256_ctr());
838	}
839
840	static int dasync_aes256_ctr_cleanup(EVP_CIPHER_CTX *ctx)
841	{
842	return dasync_cipher_cleanup_helper(ctx, EVP_aes_256_ctr());
843	}
844
845
846	/*
847	* AES128 CBC HMAC SHA1 Implementation
848	*/
849
850	static int dasync_aes128_cbc_hmac_sha1_ctrl(EVP_CIPHER_CTX *ctx, int type,
851	int arg, void *ptr)
852	{
853	return dasync_cipher_ctrl_helper(ctx, type, arg, ptr, 1, EVP_aes_128_cbc_hmac_sha1());
854	}
855
856	static int dasync_aes128_cbc_hmac_sha1_init_key(EVP_CIPHER_CTX *ctx,
857	const unsigned char *key,
858	const unsigned char *iv,
859	int enc)
860	{
861	/*
862	* We can safely assume that EVP_aes_128_cbc_hmac_sha1() != NULL,
863	* see comment before the definition of dasync_aes_128_cbc_hmac_sha1().
864	*/
865	return dasync_cipher_init_key_helper(ctx, key, iv, enc,
866	EVP_aes_128_cbc_hmac_sha1());
867	}
868
869	static int dasync_aes128_cbc_hmac_sha1_cipher(EVP_CIPHER_CTX *ctx,
870	unsigned char *out,
871	const unsigned char *in,
872	size_t inl)
873	{
874	return dasync_cipher_helper(ctx, out, in, inl, EVP_aes_128_cbc_hmac_sha1());
875	}
876
877	static int dasync_aes128_cbc_hmac_sha1_cleanup(EVP_CIPHER_CTX *ctx)
878	{
879	/*
880	* We can safely assume that EVP_aes_128_cbc_hmac_sha1() != NULL,
881	* see comment before the definition of dasync_aes_128_cbc_hmac_sha1().
882	*/
883	return dasync_cipher_cleanup_helper(ctx, EVP_aes_128_cbc_hmac_sha1());
884	}
885
886
887	/*
888	* RSA implementation
889	*/
890	static int dasync_rsa_init(EVP_PKEY_CTX *ctx)
891	{
892	static int (pinit)(EVP_PKEY_CTX ctx);
893
894	if (pinit == NULL)
895	EVP_PKEY_meth_get_init(dasync_rsa_orig, &pinit);
896	return pinit(ctx);
897	}
898
899	static void dasync_rsa_cleanup(EVP_PKEY_CTX *ctx)
900	{
901	static void (pcleanup)(EVP_PKEY_CTX ctx);
902
903	if (pcleanup == NULL)
904	EVP_PKEY_meth_get_cleanup(dasync_rsa_orig, &pcleanup);
905	pcleanup(ctx);
906	}
907
908	static int dasync_rsa_paramgen_init(EVP_PKEY_CTX *ctx)
909	{
910	static int (pparamgen_init)(EVP_PKEY_CTX ctx);
911
912	if (pparamgen_init == NULL)
913	EVP_PKEY_meth_get_paramgen(dasync_rsa_orig, &pparamgen_init, NULL);
914	return pparamgen_init != NULL ? pparamgen_init(ctx) : 1;
915	}
916
917	static int dasync_rsa_paramgen(EVP_PKEY_CTX ctx, EVP_PKEY pkey)
918	{
919	static int (pparamgen)(EVP_PKEY_CTX c, EVP_PKEY *pkey);
920
921	if (pparamgen == NULL)
922	EVP_PKEY_meth_get_paramgen(dasync_rsa_orig, NULL, &pparamgen);
923	return pparamgen != NULL ? pparamgen(ctx, pkey) : 1;
924	}
925
926	static int dasync_rsa_keygen_init(EVP_PKEY_CTX *ctx)
927	{
928	static int (pkeygen_init)(EVP_PKEY_CTX ctx);
929
930	if (pkeygen_init == NULL)
931	EVP_PKEY_meth_get_keygen(dasync_rsa_orig, &pkeygen_init, NULL);
932	return pkeygen_init != NULL ? pkeygen_init(ctx) : 1;
933	}
934
935	static int dasync_rsa_keygen(EVP_PKEY_CTX ctx, EVP_PKEY pkey)
936	{
937	static int (pkeygen)(EVP_PKEY_CTX c, EVP_PKEY *pkey);
938
939	if (pkeygen == NULL)
940	EVP_PKEY_meth_get_keygen(dasync_rsa_orig, NULL, &pkeygen);
941	return pkeygen(ctx, pkey);
942	}
943
944	static int dasync_rsa_encrypt_init(EVP_PKEY_CTX *ctx)
945	{
946	static int (pencrypt_init)(EVP_PKEY_CTX ctx);
947
948	if (pencrypt_init == NULL)
949	EVP_PKEY_meth_get_encrypt(dasync_rsa_orig, &pencrypt_init, NULL);
950	return pencrypt_init != NULL ? pencrypt_init(ctx) : 1;
951	}
952
953	static int dasync_rsa_encrypt(EVP_PKEY_CTX ctx, unsigned char out,
954	size_t outlen, const unsigned char in,
955	size_t inlen)
956	{
957	static int (pencryptfn)(EVP_PKEY_CTX ctx, unsigned char *out,
958	size_t outlen, const unsigned char in,
959	size_t inlen);
960
961	if (pencryptfn == NULL)
962	EVP_PKEY_meth_get_encrypt(dasync_rsa_orig, NULL, &pencryptfn);
963	return pencryptfn(ctx, out, outlen, in, inlen);
964	}
965
966	static int dasync_rsa_decrypt_init(EVP_PKEY_CTX *ctx)
967	{
968	static int (pdecrypt_init)(EVP_PKEY_CTX ctx);
969
970	if (pdecrypt_init == NULL)
971	EVP_PKEY_meth_get_decrypt(dasync_rsa_orig, &pdecrypt_init, NULL);
972	return pdecrypt_init != NULL ? pdecrypt_init(ctx) : 1;
973	}
974
975	static int dasync_rsa_decrypt(EVP_PKEY_CTX ctx, unsigned char out,
976	size_t outlen, const unsigned char in,
977	size_t inlen)
978	{
979	static int (pdecrypt)(EVP_PKEY_CTX ctx, unsigned char *out,
980	size_t outlen, const unsigned char in,
981	size_t inlen);
982
983	if (pdecrypt == NULL)
984	EVP_PKEY_meth_get_decrypt(dasync_rsa_orig, NULL, &pdecrypt);
985	return pdecrypt(ctx, out, outlen, in, inlen);
986	}
987
988	static int dasync_rsa_ctrl(EVP_PKEY_CTX ctx, int type, int p1, void p2)
989	{
990	static int (pctrl)(EVP_PKEY_CTX ctx, int type, int p1, void *p2);
991
992	if (pctrl == NULL)
993	EVP_PKEY_meth_get_ctrl(dasync_rsa_orig, &pctrl, NULL);
994	return pctrl(ctx, type, p1, p2);
995	}
996
997	static int dasync_rsa_ctrl_str(EVP_PKEY_CTX ctx, const char type,
998	const char *value)
999	{
1000	static int (pctrl_str)(EVP_PKEY_CTX ctx, const char *type,
1001	const char *value);
1002
1003	if (pctrl_str == NULL)
1004	EVP_PKEY_meth_get_ctrl(dasync_rsa_orig, NULL, &pctrl_str);
1005	return pctrl_str(ctx, type, value);
1006	}

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

source: vbox/trunk/src/libs/openssl-3.3.2/engines/e_dasync.c

Download in other formats: