xref: /freebsd/sys/opencrypto/cryptodev.c (revision 830940567b49bb0c08dfaed40418999e76616909)
1 /*	$OpenBSD: cryptodev.c,v 1.52 2002/06/19 07:22:46 deraadt Exp $	*/
2 
3 /*-
4  * Copyright (c) 2001 Theo de Raadt
5  * Copyright (c) 2002-2006 Sam Leffler, Errno Consulting
6  *
7  * Redistribution and use in source and binary forms, with or without
8  * modification, are permitted provided that the following conditions
9  * are met:
10  *
11  * 1. Redistributions of source code must retain the above copyright
12  *   notice, this list of conditions and the following disclaimer.
13  * 2. Redistributions in binary form must reproduce the above copyright
14  *   notice, this list of conditions and the following disclaimer in the
15  *   documentation and/or other materials provided with the distribution.
16  * 3. The name of the author may not be used to endorse or promote products
17  *   derived from this software without specific prior written permission.
18  *
19  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
20  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
21  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
22  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
23  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
24  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
25  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
26  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
27  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
28  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
29  *
30  * Effort sponsored in part by the Defense Advanced Research Projects
31  * Agency (DARPA) and Air Force Research Laboratory, Air Force
32  * Materiel Command, USAF, under agreement number F30602-01-2-0537.
33  */
34 
35 #include <sys/cdefs.h>
36 __FBSDID("$FreeBSD$");
37 
38 #include <sys/param.h>
39 #include <sys/systm.h>
40 #include <sys/malloc.h>
41 #include <sys/mbuf.h>
42 #include <sys/lock.h>
43 #include <sys/mutex.h>
44 #include <sys/sysctl.h>
45 #include <sys/file.h>
46 #include <sys/filedesc.h>
47 #include <sys/errno.h>
48 #include <sys/uio.h>
49 #include <sys/random.h>
50 #include <sys/conf.h>
51 #include <sys/kernel.h>
52 #include <sys/module.h>
53 #include <sys/fcntl.h>
54 #include <sys/bus.h>
55 
56 #include <opencrypto/cryptodev.h>
57 #include <opencrypto/xform.h>
58 
59 struct csession {
60 	TAILQ_ENTRY(csession) next;
61 	u_int64_t	sid;
62 	u_int32_t	ses;
63 	struct mtx	lock;		/* for op submission */
64 
65 	u_int32_t	cipher;
66 	struct enc_xform *txform;
67 	u_int32_t	mac;
68 	struct auth_hash *thash;
69 
70 	caddr_t		key;
71 	int		keylen;
72 	u_char		tmp_iv[EALG_MAX_BLOCK_LEN];
73 
74 	caddr_t		mackey;
75 	int		mackeylen;
76 
77 	struct iovec	iovec;
78 	struct uio	uio;
79 	int		error;
80 };
81 
82 struct fcrypt {
83 	TAILQ_HEAD(csessionlist, csession) csessions;
84 	int		sesn;
85 };
86 
87 static	int cryptof_rw(struct file *fp, struct uio *uio,
88 		    struct ucred *cred, int flags, struct thread *);
89 static	int cryptof_truncate(struct file *, off_t, struct ucred *,
90 		    struct thread *);
91 static	int cryptof_ioctl(struct file *, u_long, void *,
92 		    struct ucred *, struct thread *);
93 static	int cryptof_poll(struct file *, int, struct ucred *, struct thread *);
94 static	int cryptof_kqfilter(struct file *, struct knote *);
95 static	int cryptof_stat(struct file *, struct stat *,
96 		    struct ucred *, struct thread *);
97 static	int cryptof_close(struct file *, struct thread *);
98 
99 static struct fileops cryptofops = {
100     .fo_read = cryptof_rw,
101     .fo_write = cryptof_rw,
102     .fo_truncate = cryptof_truncate,
103     .fo_ioctl = cryptof_ioctl,
104     .fo_poll = cryptof_poll,
105     .fo_kqfilter = cryptof_kqfilter,
106     .fo_stat = cryptof_stat,
107     .fo_close = cryptof_close
108 };
109 
110 static struct csession *csefind(struct fcrypt *, u_int);
111 static int csedelete(struct fcrypt *, struct csession *);
112 static struct csession *cseadd(struct fcrypt *, struct csession *);
113 static struct csession *csecreate(struct fcrypt *, u_int64_t, caddr_t,
114     u_int64_t, caddr_t, u_int64_t, u_int32_t, u_int32_t, struct enc_xform *,
115     struct auth_hash *);
116 static int csefree(struct csession *);
117 
118 static	int cryptodev_op(struct csession *, struct crypt_op *,
119 			struct ucred *, struct thread *td);
120 static	int cryptodev_key(struct crypt_kop *);
121 static	int cryptodev_find(struct crypt_find_op *);
122 
123 static int
124 cryptof_rw(
125 	struct file *fp,
126 	struct uio *uio,
127 	struct ucred *active_cred,
128 	int flags,
129 	struct thread *td)
130 {
131 
132 	return (EIO);
133 }
134 
135 static int
136 cryptof_truncate(
137 	struct file *fp,
138 	off_t length,
139 	struct ucred *active_cred,
140 	struct thread *td)
141 {
142 
143 	return (EINVAL);
144 }
145 
146 /*
147  * Check a crypto identifier to see if it requested
148  * a software device/driver.  This can be done either
149  * by device name/class or through search constraints.
150  */
151 static int
152 checkforsoftware(int crid)
153 {
154 	if (crid & CRYPTOCAP_F_SOFTWARE)
155 		return EINVAL;		/* XXX */
156 	if ((crid & CRYPTOCAP_F_HARDWARE) == 0 &&
157 	    (crypto_getcaps(crid) & CRYPTOCAP_F_HARDWARE) == 0)
158 		return EINVAL;		/* XXX */
159 	return 0;
160 }
161 
162 /* ARGSUSED */
163 static int
164 cryptof_ioctl(
165 	struct file *fp,
166 	u_long cmd,
167 	void *data,
168 	struct ucred *active_cred,
169 	struct thread *td)
170 {
171 #define	SES2(p)	((struct session2_op *)p)
172 	struct cryptoini cria, crie;
173 	struct fcrypt *fcr = fp->f_data;
174 	struct csession *cse;
175 	struct session_op *sop;
176 	struct crypt_op *cop;
177 	struct enc_xform *txform = NULL;
178 	struct auth_hash *thash = NULL;
179 	struct crypt_kop *kop;
180 	u_int64_t sid;
181 	u_int32_t ses;
182 	int error = 0, crid;
183 
184 	switch (cmd) {
185 	case CIOCGSESSION:
186 	case CIOCGSESSION2:
187 		sop = (struct session_op *)data;
188 		switch (sop->cipher) {
189 		case 0:
190 			break;
191 		case CRYPTO_DES_CBC:
192 			txform = &enc_xform_des;
193 			break;
194 		case CRYPTO_3DES_CBC:
195 			txform = &enc_xform_3des;
196 			break;
197 		case CRYPTO_BLF_CBC:
198 			txform = &enc_xform_blf;
199 			break;
200 		case CRYPTO_CAST_CBC:
201 			txform = &enc_xform_cast5;
202 			break;
203 		case CRYPTO_SKIPJACK_CBC:
204 			txform = &enc_xform_skipjack;
205 			break;
206 		case CRYPTO_AES_CBC:
207 			txform = &enc_xform_rijndael128;
208 			break;
209 		case CRYPTO_NULL_CBC:
210 			txform = &enc_xform_null;
211 			break;
212 		case CRYPTO_ARC4:
213 			txform = &enc_xform_arc4;
214 			break;
215  		case CRYPTO_CAMELLIA_CBC:
216  			txform = &enc_xform_camellia;
217  			break;
218 		default:
219 			return (EINVAL);
220 		}
221 
222 		switch (sop->mac) {
223 		case 0:
224 			break;
225 		case CRYPTO_MD5_HMAC:
226 			thash = &auth_hash_hmac_md5;
227 			break;
228 		case CRYPTO_SHA1_HMAC:
229 			thash = &auth_hash_hmac_sha1;
230 			break;
231 		case CRYPTO_SHA2_256_HMAC:
232 			thash = &auth_hash_hmac_sha2_256;
233 			break;
234 		case CRYPTO_SHA2_384_HMAC:
235 			thash = &auth_hash_hmac_sha2_384;
236 			break;
237 		case CRYPTO_SHA2_512_HMAC:
238 			thash = &auth_hash_hmac_sha2_512;
239 			break;
240 		case CRYPTO_RIPEMD160_HMAC:
241 			thash = &auth_hash_hmac_ripemd_160;
242 			break;
243 #ifdef notdef
244 		case CRYPTO_MD5:
245 			thash = &auth_hash_md5;
246 			break;
247 		case CRYPTO_SHA1:
248 			thash = &auth_hash_sha1;
249 			break;
250 #endif
251 		case CRYPTO_NULL_HMAC:
252 			thash = &auth_hash_null;
253 			break;
254 		default:
255 			return (EINVAL);
256 		}
257 
258 		bzero(&crie, sizeof(crie));
259 		bzero(&cria, sizeof(cria));
260 
261 		if (txform) {
262 			crie.cri_alg = txform->type;
263 			crie.cri_klen = sop->keylen * 8;
264 			if (sop->keylen > txform->maxkey ||
265 			    sop->keylen < txform->minkey) {
266 				error = EINVAL;
267 				goto bail;
268 			}
269 
270 			crie.cri_key = malloc(crie.cri_klen / 8,
271 			    M_XDATA, M_WAITOK);
272 			if ((error = copyin(sop->key, crie.cri_key,
273 			    crie.cri_klen / 8)))
274 				goto bail;
275 			if (thash)
276 				crie.cri_next = &cria;
277 		}
278 
279 		if (thash) {
280 			cria.cri_alg = thash->type;
281 			cria.cri_klen = sop->mackeylen * 8;
282 			if (sop->mackeylen != thash->keysize) {
283 				error = EINVAL;
284 				goto bail;
285 			}
286 
287 			if (cria.cri_klen) {
288 				cria.cri_key = malloc(cria.cri_klen / 8,
289 				    M_XDATA, M_WAITOK);
290 				if ((error = copyin(sop->mackey, cria.cri_key,
291 				    cria.cri_klen / 8)))
292 					goto bail;
293 			}
294 		}
295 
296 		/* NB: CIOGSESSION2 has the crid */
297 		if (cmd == CIOCGSESSION2) {
298 			crid = SES2(sop)->crid;
299 			error = checkforsoftware(crid);
300 			if (error)
301 				goto bail;
302 		} else
303 			crid = CRYPTOCAP_F_HARDWARE;
304 		error = crypto_newsession(&sid, (txform ? &crie : &cria), crid);
305 		if (error)
306 			goto bail;
307 
308 		cse = csecreate(fcr, sid, crie.cri_key, crie.cri_klen,
309 		    cria.cri_key, cria.cri_klen, sop->cipher, sop->mac, txform,
310 		    thash);
311 
312 		if (cse == NULL) {
313 			crypto_freesession(sid);
314 			error = EINVAL;
315 			goto bail;
316 		}
317 		sop->ses = cse->ses;
318 		if (cmd == CIOCGSESSION2) {
319 			/* return hardware/driver id */
320 			SES2(sop)->crid = CRYPTO_SESID2HID(cse->sid);
321 		}
322 bail:
323 		if (error) {
324 			if (crie.cri_key)
325 				free(crie.cri_key, M_XDATA);
326 			if (cria.cri_key)
327 				free(cria.cri_key, M_XDATA);
328 		}
329 		break;
330 	case CIOCFSESSION:
331 		ses = *(u_int32_t *)data;
332 		cse = csefind(fcr, ses);
333 		if (cse == NULL)
334 			return (EINVAL);
335 		csedelete(fcr, cse);
336 		error = csefree(cse);
337 		break;
338 	case CIOCCRYPT:
339 		cop = (struct crypt_op *)data;
340 		cse = csefind(fcr, cop->ses);
341 		if (cse == NULL)
342 			return (EINVAL);
343 		error = cryptodev_op(cse, cop, active_cred, td);
344 		break;
345 	case CIOCKEY:
346 	case CIOCKEY2:
347 		if (!crypto_userasymcrypto)
348 			return (EPERM);		/* XXX compat? */
349 		mtx_lock(&Giant);
350 		kop = (struct crypt_kop *)data;
351 		if (cmd == CIOCKEY) {
352 			/* NB: crypto core enforces s/w driver use */
353 			kop->crk_crid =
354 			    CRYPTOCAP_F_HARDWARE | CRYPTOCAP_F_SOFTWARE;
355 		}
356 		error = cryptodev_key(kop);
357 		mtx_unlock(&Giant);
358 		break;
359 	case CIOCASYMFEAT:
360 		if (!crypto_userasymcrypto) {
361 			/*
362 			 * NB: if user asym crypto operations are
363 			 * not permitted return "no algorithms"
364 			 * so well-behaved applications will just
365 			 * fallback to doing them in software.
366 			 */
367 			*(int *)data = 0;
368 		} else
369 			error = crypto_getfeat((int *)data);
370 		break;
371 	case CIOCFINDDEV:
372 		error = cryptodev_find((struct crypt_find_op *)data);
373 		break;
374 	default:
375 		error = EINVAL;
376 		break;
377 	}
378 	return (error);
379 #undef SES2
380 }
381 
382 static int cryptodev_cb(void *);
383 
384 
385 static int
386 cryptodev_op(
387 	struct csession *cse,
388 	struct crypt_op *cop,
389 	struct ucred *active_cred,
390 	struct thread *td)
391 {
392 	struct cryptop *crp = NULL;
393 	struct cryptodesc *crde = NULL, *crda = NULL;
394 	int error;
395 
396 	if (cop->len > 256*1024-4)
397 		return (E2BIG);
398 
399 	if (cse->txform) {
400 		if (cop->len == 0 || (cop->len % cse->txform->blocksize) != 0)
401 			return (EINVAL);
402 	}
403 
404 	cse->uio.uio_iov = &cse->iovec;
405 	cse->uio.uio_iovcnt = 1;
406 	cse->uio.uio_offset = 0;
407 	cse->uio.uio_resid = cop->len;
408 	cse->uio.uio_segflg = UIO_SYSSPACE;
409 	cse->uio.uio_rw = UIO_WRITE;
410 	cse->uio.uio_td = td;
411 	cse->uio.uio_iov[0].iov_len = cop->len;
412 	if (cse->thash) {
413 		cse->uio.uio_iov[0].iov_len += cse->thash->hashsize;
414 		cse->uio.uio_resid += cse->thash->hashsize;
415 	}
416 	cse->uio.uio_iov[0].iov_base = malloc(cse->uio.uio_iov[0].iov_len,
417 	    M_XDATA, M_WAITOK);
418 
419 	crp = crypto_getreq((cse->txform != NULL) + (cse->thash != NULL));
420 	if (crp == NULL) {
421 		error = ENOMEM;
422 		goto bail;
423 	}
424 
425 	if (cse->thash) {
426 		crda = crp->crp_desc;
427 		if (cse->txform)
428 			crde = crda->crd_next;
429 	} else {
430 		if (cse->txform)
431 			crde = crp->crp_desc;
432 		else {
433 			error = EINVAL;
434 			goto bail;
435 		}
436 	}
437 
438 	if ((error = copyin(cop->src, cse->uio.uio_iov[0].iov_base, cop->len)))
439 		goto bail;
440 
441 	if (crda) {
442 		crda->crd_skip = 0;
443 		crda->crd_len = cop->len;
444 		crda->crd_inject = cop->len;
445 
446 		crda->crd_alg = cse->mac;
447 		crda->crd_key = cse->mackey;
448 		crda->crd_klen = cse->mackeylen * 8;
449 	}
450 
451 	if (crde) {
452 		if (cop->op == COP_ENCRYPT)
453 			crde->crd_flags |= CRD_F_ENCRYPT;
454 		else
455 			crde->crd_flags &= ~CRD_F_ENCRYPT;
456 		crde->crd_len = cop->len;
457 		crde->crd_inject = 0;
458 
459 		crde->crd_alg = cse->cipher;
460 		crde->crd_key = cse->key;
461 		crde->crd_klen = cse->keylen * 8;
462 	}
463 
464 	crp->crp_ilen = cop->len;
465 	crp->crp_flags = CRYPTO_F_IOV | CRYPTO_F_CBIMM
466 		       | (cop->flags & COP_F_BATCH);
467 	crp->crp_buf = (caddr_t)&cse->uio;
468 	crp->crp_callback = (int (*) (struct cryptop *)) cryptodev_cb;
469 	crp->crp_sid = cse->sid;
470 	crp->crp_opaque = (void *)cse;
471 
472 	if (cop->iv) {
473 		if (crde == NULL) {
474 			error = EINVAL;
475 			goto bail;
476 		}
477 		if (cse->cipher == CRYPTO_ARC4) { /* XXX use flag? */
478 			error = EINVAL;
479 			goto bail;
480 		}
481 		if ((error = copyin(cop->iv, cse->tmp_iv, cse->txform->blocksize)))
482 			goto bail;
483 		bcopy(cse->tmp_iv, crde->crd_iv, cse->txform->blocksize);
484 		crde->crd_flags |= CRD_F_IV_EXPLICIT | CRD_F_IV_PRESENT;
485 		crde->crd_skip = 0;
486 	} else if (cse->cipher == CRYPTO_ARC4) { /* XXX use flag? */
487 		crde->crd_skip = 0;
488 	} else if (crde) {
489 		crde->crd_flags |= CRD_F_IV_PRESENT;
490 		crde->crd_skip = cse->txform->blocksize;
491 		crde->crd_len -= cse->txform->blocksize;
492 	}
493 
494 	if (cop->mac && crda == NULL) {
495 		error = EINVAL;
496 		goto bail;
497 	}
498 
499 	/*
500 	 * Let the dispatch run unlocked, then, interlock against the
501 	 * callback before checking if the operation completed and going
502 	 * to sleep.  This insures drivers don't inherit our lock which
503 	 * results in a lock order reversal between crypto_dispatch forced
504 	 * entry and the crypto_done callback into us.
505 	 */
506 	error = crypto_dispatch(crp);
507 	mtx_lock(&cse->lock);
508 	if (error == 0 && (crp->crp_flags & CRYPTO_F_DONE) == 0)
509 		error = msleep(crp, &cse->lock, PWAIT, "crydev", 0);
510 	mtx_unlock(&cse->lock);
511 
512 	if (error != 0)
513 		goto bail;
514 
515 	if (crp->crp_etype != 0) {
516 		error = crp->crp_etype;
517 		goto bail;
518 	}
519 
520 	if (cse->error) {
521 		error = cse->error;
522 		goto bail;
523 	}
524 
525 	if (cop->dst &&
526 	    (error = copyout(cse->uio.uio_iov[0].iov_base, cop->dst, cop->len)))
527 		goto bail;
528 
529 	if (cop->mac &&
530 	    (error = copyout((caddr_t)cse->uio.uio_iov[0].iov_base + cop->len,
531 	    cop->mac, cse->thash->hashsize)))
532 		goto bail;
533 
534 bail:
535 	if (crp)
536 		crypto_freereq(crp);
537 	if (cse->uio.uio_iov[0].iov_base)
538 		free(cse->uio.uio_iov[0].iov_base, M_XDATA);
539 
540 	return (error);
541 }
542 
543 static int
544 cryptodev_cb(void *op)
545 {
546 	struct cryptop *crp = (struct cryptop *) op;
547 	struct csession *cse = (struct csession *)crp->crp_opaque;
548 	int error;
549 
550 	error = crp->crp_etype;
551 	if (error == EAGAIN)
552 		error = crypto_dispatch(crp);
553 	mtx_lock(&cse->lock);
554 	if (error != 0 || (crp->crp_flags & CRYPTO_F_DONE)) {
555 		cse->error = error;
556 		wakeup_one(crp);
557 	}
558 	mtx_unlock(&cse->lock);
559 	return (0);
560 }
561 
562 static int
563 cryptodevkey_cb(void *op)
564 {
565 	struct cryptkop *krp = (struct cryptkop *) op;
566 
567 	wakeup_one(krp);
568 	return (0);
569 }
570 
571 static int
572 cryptodev_key(struct crypt_kop *kop)
573 {
574 	struct cryptkop *krp = NULL;
575 	int error = EINVAL;
576 	int in, out, size, i;
577 
578 	if (kop->crk_iparams + kop->crk_oparams > CRK_MAXPARAM) {
579 		return (EFBIG);
580 	}
581 
582 	in = kop->crk_iparams;
583 	out = kop->crk_oparams;
584 	switch (kop->crk_op) {
585 	case CRK_MOD_EXP:
586 		if (in == 3 && out == 1)
587 			break;
588 		return (EINVAL);
589 	case CRK_MOD_EXP_CRT:
590 		if (in == 6 && out == 1)
591 			break;
592 		return (EINVAL);
593 	case CRK_DSA_SIGN:
594 		if (in == 5 && out == 2)
595 			break;
596 		return (EINVAL);
597 	case CRK_DSA_VERIFY:
598 		if (in == 7 && out == 0)
599 			break;
600 		return (EINVAL);
601 	case CRK_DH_COMPUTE_KEY:
602 		if (in == 3 && out == 1)
603 			break;
604 		return (EINVAL);
605 	default:
606 		return (EINVAL);
607 	}
608 
609 	krp = (struct cryptkop *)malloc(sizeof *krp, M_XDATA, M_WAITOK|M_ZERO);
610 	if (!krp)
611 		return (ENOMEM);
612 	krp->krp_op = kop->crk_op;
613 	krp->krp_status = kop->crk_status;
614 	krp->krp_iparams = kop->crk_iparams;
615 	krp->krp_oparams = kop->crk_oparams;
616 	krp->krp_crid = kop->crk_crid;
617 	krp->krp_status = 0;
618 	krp->krp_callback = (int (*) (struct cryptkop *)) cryptodevkey_cb;
619 
620 	for (i = 0; i < CRK_MAXPARAM; i++) {
621 		if (kop->crk_param[i].crp_nbits > 65536)
622 			/* Limit is the same as in OpenBSD */
623 			goto fail;
624 		krp->krp_param[i].crp_nbits = kop->crk_param[i].crp_nbits;
625 	}
626 	for (i = 0; i < krp->krp_iparams + krp->krp_oparams; i++) {
627 		size = (krp->krp_param[i].crp_nbits + 7) / 8;
628 		if (size == 0)
629 			continue;
630 		krp->krp_param[i].crp_p = malloc(size, M_XDATA, M_WAITOK);
631 		if (i >= krp->krp_iparams)
632 			continue;
633 		error = copyin(kop->crk_param[i].crp_p, krp->krp_param[i].crp_p, size);
634 		if (error)
635 			goto fail;
636 	}
637 
638 	error = crypto_kdispatch(krp);
639 	if (error)
640 		goto fail;
641 	error = tsleep(krp, PSOCK, "crydev", 0);
642 	if (error) {
643 		/* XXX can this happen?  if so, how do we recover? */
644 		goto fail;
645 	}
646 
647 	kop->crk_crid = krp->krp_crid;		/* device that did the work */
648 	if (krp->krp_status != 0) {
649 		error = krp->krp_status;
650 		goto fail;
651 	}
652 
653 	for (i = krp->krp_iparams; i < krp->krp_iparams + krp->krp_oparams; i++) {
654 		size = (krp->krp_param[i].crp_nbits + 7) / 8;
655 		if (size == 0)
656 			continue;
657 		error = copyout(krp->krp_param[i].crp_p, kop->crk_param[i].crp_p, size);
658 		if (error)
659 			goto fail;
660 	}
661 
662 fail:
663 	if (krp) {
664 		kop->crk_status = krp->krp_status;
665 		for (i = 0; i < CRK_MAXPARAM; i++) {
666 			if (krp->krp_param[i].crp_p)
667 				free(krp->krp_param[i].crp_p, M_XDATA);
668 		}
669 		free(krp, M_XDATA);
670 	}
671 	return (error);
672 }
673 
674 static int
675 cryptodev_find(struct crypt_find_op *find)
676 {
677 	device_t dev;
678 
679 	if (find->crid != -1) {
680 		dev = crypto_find_device_byhid(find->crid);
681 		if (dev == NULL)
682 			return (ENOENT);
683 		strlcpy(find->name, device_get_nameunit(dev),
684 		    sizeof(find->name));
685 	} else {
686 		find->crid = crypto_find_driver(find->name);
687 		if (find->crid == -1)
688 			return (ENOENT);
689 	}
690 	return (0);
691 }
692 
693 /* ARGSUSED */
694 static int
695 cryptof_poll(
696 	struct file *fp,
697 	int events,
698 	struct ucred *active_cred,
699 	struct thread *td)
700 {
701 
702 	return (0);
703 }
704 
705 /* ARGSUSED */
706 static int
707 cryptof_kqfilter(struct file *fp, struct knote *kn)
708 {
709 
710 	return (0);
711 }
712 
713 /* ARGSUSED */
714 static int
715 cryptof_stat(
716 	struct file *fp,
717 	struct stat *sb,
718 	struct ucred *active_cred,
719 	struct thread *td)
720 {
721 
722 	return (EOPNOTSUPP);
723 }
724 
725 /* ARGSUSED */
726 static int
727 cryptof_close(struct file *fp, struct thread *td)
728 {
729 	struct fcrypt *fcr = fp->f_data;
730 	struct csession *cse;
731 
732 	while ((cse = TAILQ_FIRST(&fcr->csessions))) {
733 		TAILQ_REMOVE(&fcr->csessions, cse, next);
734 		(void)csefree(cse);
735 	}
736 	free(fcr, M_XDATA);
737 	fp->f_data = NULL;
738 	return 0;
739 }
740 
741 static struct csession *
742 csefind(struct fcrypt *fcr, u_int ses)
743 {
744 	struct csession *cse;
745 
746 	TAILQ_FOREACH(cse, &fcr->csessions, next)
747 		if (cse->ses == ses)
748 			return (cse);
749 	return (NULL);
750 }
751 
752 static int
753 csedelete(struct fcrypt *fcr, struct csession *cse_del)
754 {
755 	struct csession *cse;
756 
757 	TAILQ_FOREACH(cse, &fcr->csessions, next) {
758 		if (cse == cse_del) {
759 			TAILQ_REMOVE(&fcr->csessions, cse, next);
760 			return (1);
761 		}
762 	}
763 	return (0);
764 }
765 
766 static struct csession *
767 cseadd(struct fcrypt *fcr, struct csession *cse)
768 {
769 	TAILQ_INSERT_TAIL(&fcr->csessions, cse, next);
770 	cse->ses = fcr->sesn++;
771 	return (cse);
772 }
773 
774 struct csession *
775 csecreate(struct fcrypt *fcr, u_int64_t sid, caddr_t key, u_int64_t keylen,
776     caddr_t mackey, u_int64_t mackeylen, u_int32_t cipher, u_int32_t mac,
777     struct enc_xform *txform, struct auth_hash *thash)
778 {
779 	struct csession *cse;
780 
781 #ifdef INVARIANTS
782 	/* NB: required when mtx_init is built with INVARIANTS */
783 	cse = malloc(sizeof(struct csession), M_XDATA, M_NOWAIT | M_ZERO);
784 #else
785 	cse = malloc(sizeof(struct csession), M_XDATA, M_NOWAIT);
786 #endif
787 	if (cse == NULL)
788 		return NULL;
789 	mtx_init(&cse->lock, "cryptodev", "crypto session lock", MTX_DEF);
790 	cse->key = key;
791 	cse->keylen = keylen/8;
792 	cse->mackey = mackey;
793 	cse->mackeylen = mackeylen/8;
794 	cse->sid = sid;
795 	cse->cipher = cipher;
796 	cse->mac = mac;
797 	cse->txform = txform;
798 	cse->thash = thash;
799 	cseadd(fcr, cse);
800 	return (cse);
801 }
802 
803 static int
804 csefree(struct csession *cse)
805 {
806 	int error;
807 
808 	error = crypto_freesession(cse->sid);
809 	mtx_destroy(&cse->lock);
810 	if (cse->key)
811 		free(cse->key, M_XDATA);
812 	if (cse->mackey)
813 		free(cse->mackey, M_XDATA);
814 	free(cse, M_XDATA);
815 	return (error);
816 }
817 
818 static int
819 cryptoopen(struct cdev *dev, int oflags, int devtype, struct thread *td)
820 {
821 	return (0);
822 }
823 
824 static int
825 cryptoread(struct cdev *dev, struct uio *uio, int ioflag)
826 {
827 	return (EIO);
828 }
829 
830 static int
831 cryptowrite(struct cdev *dev, struct uio *uio, int ioflag)
832 {
833 	return (EIO);
834 }
835 
836 static int
837 cryptoioctl(struct cdev *dev, u_long cmd, caddr_t data, int flag, struct thread *td)
838 {
839 	struct file *f;
840 	struct fcrypt *fcr;
841 	int fd, error;
842 
843 	switch (cmd) {
844 	case CRIOGET:
845 		fcr = malloc(sizeof(struct fcrypt), M_XDATA, M_WAITOK);
846 		TAILQ_INIT(&fcr->csessions);
847 		fcr->sesn = 0;
848 
849 		error = falloc(td, &f, &fd);
850 
851 		if (error) {
852 			free(fcr, M_XDATA);
853 			return (error);
854 		}
855 		/* falloc automatically provides an extra reference to 'f'. */
856 		finit(f, FREAD | FWRITE, DTYPE_CRYPTO, fcr, &cryptofops);
857 		*(u_int32_t *)data = fd;
858 		fdrop(f, td);
859 		break;
860 	case CRIOFINDDEV:
861 		error = cryptodev_find((struct crypt_find_op *)data);
862 		break;
863 	case CRIOASYMFEAT:
864 		error = crypto_getfeat((int *)data);
865 		break;
866 	default:
867 		error = EINVAL;
868 		break;
869 	}
870 	return (error);
871 }
872 
873 static struct cdevsw crypto_cdevsw = {
874 	.d_version =	D_VERSION,
875 	.d_flags =	D_NEEDGIANT,
876 	.d_open =	cryptoopen,
877 	.d_read =	cryptoread,
878 	.d_write =	cryptowrite,
879 	.d_ioctl =	cryptoioctl,
880 	.d_name =	"crypto",
881 };
882 static struct cdev *crypto_dev;
883 
884 /*
885  * Initialization code, both for static and dynamic loading.
886  */
887 static int
888 cryptodev_modevent(module_t mod, int type, void *unused)
889 {
890 	switch (type) {
891 	case MOD_LOAD:
892 		if (bootverbose)
893 			printf("crypto: <crypto device>\n");
894 		crypto_dev = make_dev(&crypto_cdevsw, 0,
895 				      UID_ROOT, GID_WHEEL, 0666,
896 				      "crypto");
897 		return 0;
898 	case MOD_UNLOAD:
899 		/*XXX disallow if active sessions */
900 		destroy_dev(crypto_dev);
901 		return 0;
902 	}
903 	return EINVAL;
904 }
905 
906 static moduledata_t cryptodev_mod = {
907 	"cryptodev",
908 	cryptodev_modevent,
909 	0
910 };
911 MODULE_VERSION(cryptodev, 1);
912 DECLARE_MODULE(cryptodev, cryptodev_mod, SI_SUB_PSEUDO, SI_ORDER_ANY);
913 MODULE_DEPEND(cryptodev, crypto, 1, 1, 1);
914 MODULE_DEPEND(cryptodev, zlib, 1, 1, 1);
915