Home | History | Annotate | Download | only in openssh
      1 /* $OpenBSD: ssh-pkcs11.c,v 1.17 2015/02/03 08:07:20 deraadt Exp $ */
      2 /*
      3  * Copyright (c) 2010 Markus Friedl.  All rights reserved.
      4  *
      5  * Permission to use, copy, modify, and distribute this software for any
      6  * purpose with or without fee is hereby granted, provided that the above
      7  * copyright notice and this permission notice appear in all copies.
      8  *
      9  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
     10  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
     11  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
     12  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
     13  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
     14  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
     15  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
     16  */
     17 
     18 #include "includes.h"
     19 
     20 #ifdef ENABLE_PKCS11
     21 
     22 #include <sys/types.h>
     23 #ifdef HAVE_SYS_TIME_H
     24 # include <sys/time.h>
     25 #endif
     26 #include <stdarg.h>
     27 #include <stdio.h>
     28 
     29 #include <string.h>
     30 #include <dlfcn.h>
     31 
     32 #include "openbsd-compat/sys-queue.h"
     33 
     34 #include <openssl/x509.h>
     35 
     36 #define CRYPTOKI_COMPAT
     37 #include "pkcs11.h"
     38 
     39 #include "log.h"
     40 #include "misc.h"
     41 #include "sshkey.h"
     42 #include "ssh-pkcs11.h"
     43 #include "xmalloc.h"
     44 
     45 struct pkcs11_slotinfo {
     46 	CK_TOKEN_INFO		token;
     47 	CK_SESSION_HANDLE	session;
     48 	int			logged_in;
     49 };
     50 
     51 struct pkcs11_provider {
     52 	char			*name;
     53 	void			*handle;
     54 	CK_FUNCTION_LIST	*function_list;
     55 	CK_INFO			info;
     56 	CK_ULONG		nslots;
     57 	CK_SLOT_ID		*slotlist;
     58 	struct pkcs11_slotinfo	*slotinfo;
     59 	int			valid;
     60 	int			refcount;
     61 	TAILQ_ENTRY(pkcs11_provider) next;
     62 };
     63 
     64 TAILQ_HEAD(, pkcs11_provider) pkcs11_providers;
     65 
     66 struct pkcs11_key {
     67 	struct pkcs11_provider	*provider;
     68 	CK_ULONG		slotidx;
     69 	int			(*orig_finish)(RSA *rsa);
     70 	RSA_METHOD		rsa_method;
     71 	char			*keyid;
     72 	int			keyid_len;
     73 };
     74 
     75 int pkcs11_interactive = 0;
     76 
     77 int
     78 pkcs11_init(int interactive)
     79 {
     80 	pkcs11_interactive = interactive;
     81 	TAILQ_INIT(&pkcs11_providers);
     82 	return (0);
     83 }
     84 
     85 /*
     86  * finalize a provider shared libarary, it's no longer usable.
     87  * however, there might still be keys referencing this provider,
     88  * so the actuall freeing of memory is handled by pkcs11_provider_unref().
     89  * this is called when a provider gets unregistered.
     90  */
     91 static void
     92 pkcs11_provider_finalize(struct pkcs11_provider *p)
     93 {
     94 	CK_RV rv;
     95 	CK_ULONG i;
     96 
     97 	debug("pkcs11_provider_finalize: %p refcount %d valid %d",
     98 	    p, p->refcount, p->valid);
     99 	if (!p->valid)
    100 		return;
    101 	for (i = 0; i < p->nslots; i++) {
    102 		if (p->slotinfo[i].session &&
    103 		    (rv = p->function_list->C_CloseSession(
    104 		    p->slotinfo[i].session)) != CKR_OK)
    105 			error("C_CloseSession failed: %lu", rv);
    106 	}
    107 	if ((rv = p->function_list->C_Finalize(NULL)) != CKR_OK)
    108 		error("C_Finalize failed: %lu", rv);
    109 	p->valid = 0;
    110 	p->function_list = NULL;
    111 	dlclose(p->handle);
    112 }
    113 
    114 /*
    115  * remove a reference to the provider.
    116  * called when a key gets destroyed or when the provider is unregistered.
    117  */
    118 static void
    119 pkcs11_provider_unref(struct pkcs11_provider *p)
    120 {
    121 	debug("pkcs11_provider_unref: %p refcount %d", p, p->refcount);
    122 	if (--p->refcount <= 0) {
    123 		if (p->valid)
    124 			error("pkcs11_provider_unref: %p still valid", p);
    125 		free(p->slotlist);
    126 		free(p->slotinfo);
    127 		free(p);
    128 	}
    129 }
    130 
    131 /* unregister all providers, keys might still point to the providers */
    132 void
    133 pkcs11_terminate(void)
    134 {
    135 	struct pkcs11_provider *p;
    136 
    137 	while ((p = TAILQ_FIRST(&pkcs11_providers)) != NULL) {
    138 		TAILQ_REMOVE(&pkcs11_providers, p, next);
    139 		pkcs11_provider_finalize(p);
    140 		pkcs11_provider_unref(p);
    141 	}
    142 }
    143 
    144 /* lookup provider by name */
    145 static struct pkcs11_provider *
    146 pkcs11_provider_lookup(char *provider_id)
    147 {
    148 	struct pkcs11_provider *p;
    149 
    150 	TAILQ_FOREACH(p, &pkcs11_providers, next) {
    151 		debug("check %p %s", p, p->name);
    152 		if (!strcmp(provider_id, p->name))
    153 			return (p);
    154 	}
    155 	return (NULL);
    156 }
    157 
    158 /* unregister provider by name */
    159 int
    160 pkcs11_del_provider(char *provider_id)
    161 {
    162 	struct pkcs11_provider *p;
    163 
    164 	if ((p = pkcs11_provider_lookup(provider_id)) != NULL) {
    165 		TAILQ_REMOVE(&pkcs11_providers, p, next);
    166 		pkcs11_provider_finalize(p);
    167 		pkcs11_provider_unref(p);
    168 		return (0);
    169 	}
    170 	return (-1);
    171 }
    172 
    173 /* openssl callback for freeing an RSA key */
    174 static int
    175 pkcs11_rsa_finish(RSA *rsa)
    176 {
    177 	struct pkcs11_key	*k11;
    178 	int rv = -1;
    179 
    180 	if ((k11 = RSA_get_app_data(rsa)) != NULL) {
    181 		if (k11->orig_finish)
    182 			rv = k11->orig_finish(rsa);
    183 		if (k11->provider)
    184 			pkcs11_provider_unref(k11->provider);
    185 		free(k11->keyid);
    186 		free(k11);
    187 	}
    188 	return (rv);
    189 }
    190 
    191 /* find a single 'obj' for given attributes */
    192 static int
    193 pkcs11_find(struct pkcs11_provider *p, CK_ULONG slotidx, CK_ATTRIBUTE *attr,
    194     CK_ULONG nattr, CK_OBJECT_HANDLE *obj)
    195 {
    196 	CK_FUNCTION_LIST	*f;
    197 	CK_SESSION_HANDLE	session;
    198 	CK_ULONG		nfound = 0;
    199 	CK_RV			rv;
    200 	int			ret = -1;
    201 
    202 	f = p->function_list;
    203 	session = p->slotinfo[slotidx].session;
    204 	if ((rv = f->C_FindObjectsInit(session, attr, nattr)) != CKR_OK) {
    205 		error("C_FindObjectsInit failed (nattr %lu): %lu", nattr, rv);
    206 		return (-1);
    207 	}
    208 	if ((rv = f->C_FindObjects(session, obj, 1, &nfound)) != CKR_OK ||
    209 	    nfound != 1) {
    210 		debug("C_FindObjects failed (nfound %lu nattr %lu): %lu",
    211 		    nfound, nattr, rv);
    212 	} else
    213 		ret = 0;
    214 	if ((rv = f->C_FindObjectsFinal(session)) != CKR_OK)
    215 		error("C_FindObjectsFinal failed: %lu", rv);
    216 	return (ret);
    217 }
    218 
    219 /* openssl callback doing the actual signing operation */
    220 static int
    221 pkcs11_rsa_private_encrypt(int flen, const u_char *from, u_char *to, RSA *rsa,
    222     int padding)
    223 {
    224 	struct pkcs11_key	*k11;
    225 	struct pkcs11_slotinfo	*si;
    226 	CK_FUNCTION_LIST	*f;
    227 	CK_OBJECT_HANDLE	obj;
    228 	CK_ULONG		tlen = 0;
    229 	CK_RV			rv;
    230 	CK_OBJECT_CLASS	private_key_class = CKO_PRIVATE_KEY;
    231 	CK_BBOOL		true_val = CK_TRUE;
    232 	CK_MECHANISM		mech = {
    233 		CKM_RSA_PKCS, NULL_PTR, 0
    234 	};
    235 	CK_ATTRIBUTE		key_filter[] = {
    236 		{CKA_CLASS, NULL, sizeof(private_key_class) },
    237 		{CKA_ID, NULL, 0},
    238 		{CKA_SIGN, NULL, sizeof(true_val) }
    239 	};
    240 	char			*pin, prompt[1024];
    241 	int			rval = -1;
    242 
    243 	key_filter[0].pValue = &private_key_class;
    244 	key_filter[2].pValue = &true_val;
    245 
    246 	if ((k11 = RSA_get_app_data(rsa)) == NULL) {
    247 		error("RSA_get_app_data failed for rsa %p", rsa);
    248 		return (-1);
    249 	}
    250 	if (!k11->provider || !k11->provider->valid) {
    251 		error("no pkcs11 (valid) provider for rsa %p", rsa);
    252 		return (-1);
    253 	}
    254 	f = k11->provider->function_list;
    255 	si = &k11->provider->slotinfo[k11->slotidx];
    256 	if ((si->token.flags & CKF_LOGIN_REQUIRED) && !si->logged_in) {
    257 		if (!pkcs11_interactive) {
    258 			error("need pin");
    259 			return (-1);
    260 		}
    261 		snprintf(prompt, sizeof(prompt), "Enter PIN for '%s': ",
    262 		    si->token.label);
    263 		pin = read_passphrase(prompt, RP_ALLOW_EOF);
    264 		if (pin == NULL)
    265 			return (-1);	/* bail out */
    266 		rv = f->C_Login(si->session, CKU_USER,
    267 		    (u_char *)pin, strlen(pin));
    268 		if (rv != CKR_OK && rv != CKR_USER_ALREADY_LOGGED_IN) {
    269 			free(pin);
    270 			error("C_Login failed: %lu", rv);
    271 			return (-1);
    272 		}
    273 		free(pin);
    274 		si->logged_in = 1;
    275 	}
    276 	key_filter[1].pValue = k11->keyid;
    277 	key_filter[1].ulValueLen = k11->keyid_len;
    278 	/* try to find object w/CKA_SIGN first, retry w/o */
    279 	if (pkcs11_find(k11->provider, k11->slotidx, key_filter, 3, &obj) < 0 &&
    280 	    pkcs11_find(k11->provider, k11->slotidx, key_filter, 2, &obj) < 0) {
    281 		error("cannot find private key");
    282 	} else if ((rv = f->C_SignInit(si->session, &mech, obj)) != CKR_OK) {
    283 		error("C_SignInit failed: %lu", rv);
    284 	} else {
    285 		/* XXX handle CKR_BUFFER_TOO_SMALL */
    286 		tlen = RSA_size(rsa);
    287 		rv = f->C_Sign(si->session, (CK_BYTE *)from, flen, to, &tlen);
    288 		if (rv == CKR_OK)
    289 			rval = tlen;
    290 		else
    291 			error("C_Sign failed: %lu", rv);
    292 	}
    293 	return (rval);
    294 }
    295 
    296 static int
    297 pkcs11_rsa_private_decrypt(int flen, const u_char *from, u_char *to, RSA *rsa,
    298     int padding)
    299 {
    300 	return (-1);
    301 }
    302 
    303 /* redirect private key operations for rsa key to pkcs11 token */
    304 static int
    305 pkcs11_rsa_wrap(struct pkcs11_provider *provider, CK_ULONG slotidx,
    306     CK_ATTRIBUTE *keyid_attrib, RSA *rsa)
    307 {
    308 	struct pkcs11_key	*k11;
    309 	const RSA_METHOD	*def = RSA_get_default_method();
    310 
    311 	k11 = xcalloc(1, sizeof(*k11));
    312 	k11->provider = provider;
    313 	provider->refcount++;	/* provider referenced by RSA key */
    314 	k11->slotidx = slotidx;
    315 	/* identify key object on smartcard */
    316 	k11->keyid_len = keyid_attrib->ulValueLen;
    317 	k11->keyid = xmalloc(k11->keyid_len);
    318 	memcpy(k11->keyid, keyid_attrib->pValue, k11->keyid_len);
    319 	k11->orig_finish = def->finish;
    320 	memcpy(&k11->rsa_method, def, sizeof(k11->rsa_method));
    321 	k11->rsa_method.name = "pkcs11";
    322 	k11->rsa_method.rsa_priv_enc = pkcs11_rsa_private_encrypt;
    323 	k11->rsa_method.rsa_priv_dec = pkcs11_rsa_private_decrypt;
    324 	k11->rsa_method.finish = pkcs11_rsa_finish;
    325 	RSA_set_method(rsa, &k11->rsa_method);
    326 	RSA_set_app_data(rsa, k11);
    327 	return (0);
    328 }
    329 
    330 /* remove trailing spaces */
    331 static void
    332 rmspace(u_char *buf, size_t len)
    333 {
    334 	size_t i;
    335 
    336 	if (!len)
    337 		return;
    338 	for (i = len - 1;  i > 0; i--)
    339 		if (i == len - 1 || buf[i] == ' ')
    340 			buf[i] = '\0';
    341 		else
    342 			break;
    343 }
    344 
    345 /*
    346  * open a pkcs11 session and login if required.
    347  * if pin == NULL we delay login until key use
    348  */
    349 static int
    350 pkcs11_open_session(struct pkcs11_provider *p, CK_ULONG slotidx, char *pin)
    351 {
    352 	CK_RV			rv;
    353 	CK_FUNCTION_LIST	*f;
    354 	CK_SESSION_HANDLE	session;
    355 	int			login_required;
    356 
    357 	f = p->function_list;
    358 	login_required = p->slotinfo[slotidx].token.flags & CKF_LOGIN_REQUIRED;
    359 	if (pin && login_required && !strlen(pin)) {
    360 		error("pin required");
    361 		return (-1);
    362 	}
    363 	if ((rv = f->C_OpenSession(p->slotlist[slotidx], CKF_RW_SESSION|
    364 	    CKF_SERIAL_SESSION, NULL, NULL, &session))
    365 	    != CKR_OK) {
    366 		error("C_OpenSession failed: %lu", rv);
    367 		return (-1);
    368 	}
    369 	if (login_required && pin) {
    370 		rv = f->C_Login(session, CKU_USER,
    371 		    (u_char *)pin, strlen(pin));
    372 		if (rv != CKR_OK && rv != CKR_USER_ALREADY_LOGGED_IN) {
    373 			error("C_Login failed: %lu", rv);
    374 			if ((rv = f->C_CloseSession(session)) != CKR_OK)
    375 				error("C_CloseSession failed: %lu", rv);
    376 			return (-1);
    377 		}
    378 		p->slotinfo[slotidx].logged_in = 1;
    379 	}
    380 	p->slotinfo[slotidx].session = session;
    381 	return (0);
    382 }
    383 
    384 /*
    385  * lookup public keys for token in slot identified by slotidx,
    386  * add 'wrapped' public keys to the 'keysp' array and increment nkeys.
    387  * keysp points to an (possibly empty) array with *nkeys keys.
    388  */
    389 static int pkcs11_fetch_keys_filter(struct pkcs11_provider *, CK_ULONG,
    390     CK_ATTRIBUTE [], CK_ATTRIBUTE [3], struct sshkey ***, int *)
    391 	__attribute__((__bounded__(__minbytes__,4, 3 * sizeof(CK_ATTRIBUTE))));
    392 
    393 static int
    394 pkcs11_fetch_keys(struct pkcs11_provider *p, CK_ULONG slotidx,
    395     struct sshkey ***keysp, int *nkeys)
    396 {
    397 	CK_OBJECT_CLASS	pubkey_class = CKO_PUBLIC_KEY;
    398 	CK_OBJECT_CLASS	cert_class = CKO_CERTIFICATE;
    399 	CK_ATTRIBUTE		pubkey_filter[] = {
    400 		{ CKA_CLASS, NULL, sizeof(pubkey_class) }
    401 	};
    402 	CK_ATTRIBUTE		cert_filter[] = {
    403 		{ CKA_CLASS, NULL, sizeof(cert_class) }
    404 	};
    405 	CK_ATTRIBUTE		pubkey_attribs[] = {
    406 		{ CKA_ID, NULL, 0 },
    407 		{ CKA_MODULUS, NULL, 0 },
    408 		{ CKA_PUBLIC_EXPONENT, NULL, 0 }
    409 	};
    410 	CK_ATTRIBUTE		cert_attribs[] = {
    411 		{ CKA_ID, NULL, 0 },
    412 		{ CKA_SUBJECT, NULL, 0 },
    413 		{ CKA_VALUE, NULL, 0 }
    414 	};
    415 	pubkey_filter[0].pValue = &pubkey_class;
    416 	cert_filter[0].pValue = &cert_class;
    417 
    418 	if (pkcs11_fetch_keys_filter(p, slotidx, pubkey_filter, pubkey_attribs,
    419 	    keysp, nkeys) < 0 ||
    420 	    pkcs11_fetch_keys_filter(p, slotidx, cert_filter, cert_attribs,
    421 	    keysp, nkeys) < 0)
    422 		return (-1);
    423 	return (0);
    424 }
    425 
    426 static int
    427 pkcs11_key_included(struct sshkey ***keysp, int *nkeys, struct sshkey *key)
    428 {
    429 	int i;
    430 
    431 	for (i = 0; i < *nkeys; i++)
    432 		if (sshkey_equal(key, (*keysp)[i]))
    433 			return (1);
    434 	return (0);
    435 }
    436 
    437 static int
    438 pkcs11_fetch_keys_filter(struct pkcs11_provider *p, CK_ULONG slotidx,
    439     CK_ATTRIBUTE filter[], CK_ATTRIBUTE attribs[3],
    440     struct sshkey ***keysp, int *nkeys)
    441 {
    442 	struct sshkey		*key;
    443 	RSA			*rsa;
    444 	X509 			*x509;
    445 	EVP_PKEY		*evp;
    446 	int			i;
    447 	const u_char		*cp;
    448 	CK_RV			rv;
    449 	CK_OBJECT_HANDLE	obj;
    450 	CK_ULONG		nfound;
    451 	CK_SESSION_HANDLE	session;
    452 	CK_FUNCTION_LIST	*f;
    453 
    454 	f = p->function_list;
    455 	session = p->slotinfo[slotidx].session;
    456 	/* setup a filter the looks for public keys */
    457 	if ((rv = f->C_FindObjectsInit(session, filter, 1)) != CKR_OK) {
    458 		error("C_FindObjectsInit failed: %lu", rv);
    459 		return (-1);
    460 	}
    461 	while (1) {
    462 		/* XXX 3 attributes in attribs[] */
    463 		for (i = 0; i < 3; i++) {
    464 			attribs[i].pValue = NULL;
    465 			attribs[i].ulValueLen = 0;
    466 		}
    467 		if ((rv = f->C_FindObjects(session, &obj, 1, &nfound)) != CKR_OK
    468 		    || nfound == 0)
    469 			break;
    470 		/* found a key, so figure out size of the attributes */
    471 		if ((rv = f->C_GetAttributeValue(session, obj, attribs, 3))
    472 		    != CKR_OK) {
    473 			error("C_GetAttributeValue failed: %lu", rv);
    474 			continue;
    475 		}
    476 		/* check that none of the attributes are zero length */
    477 		if (attribs[0].ulValueLen == 0 ||
    478 		    attribs[1].ulValueLen == 0 ||
    479 		    attribs[2].ulValueLen == 0) {
    480 			continue;
    481 		}
    482 		/* allocate buffers for attributes */
    483 		for (i = 0; i < 3; i++)
    484 			attribs[i].pValue = xmalloc(attribs[i].ulValueLen);
    485 		/*
    486 		 * retrieve ID, modulus and public exponent of RSA key,
    487 		 * or ID, subject and value for certificates.
    488 		 */
    489 		rsa = NULL;
    490 		if ((rv = f->C_GetAttributeValue(session, obj, attribs, 3))
    491 		    != CKR_OK) {
    492 			error("C_GetAttributeValue failed: %lu", rv);
    493 		} else if (attribs[1].type == CKA_MODULUS ) {
    494 			if ((rsa = RSA_new()) == NULL) {
    495 				error("RSA_new failed");
    496 			} else {
    497 				rsa->n = BN_bin2bn(attribs[1].pValue,
    498 				    attribs[1].ulValueLen, NULL);
    499 				rsa->e = BN_bin2bn(attribs[2].pValue,
    500 				    attribs[2].ulValueLen, NULL);
    501 			}
    502 		} else {
    503 			cp = attribs[2].pValue;
    504 			if ((x509 = X509_new()) == NULL) {
    505 				error("X509_new failed");
    506 			} else if (d2i_X509(&x509, &cp, attribs[2].ulValueLen)
    507 			    == NULL) {
    508 				error("d2i_X509 failed");
    509 			} else if ((evp = X509_get_pubkey(x509)) == NULL ||
    510 			    evp->type != EVP_PKEY_RSA ||
    511 			    evp->pkey.rsa == NULL) {
    512 				debug("X509_get_pubkey failed or no rsa");
    513 			} else if ((rsa = RSAPublicKey_dup(evp->pkey.rsa))
    514 			    == NULL) {
    515 				error("RSAPublicKey_dup");
    516 			}
    517 			if (x509)
    518 				X509_free(x509);
    519 		}
    520 		if (rsa && rsa->n && rsa->e &&
    521 		    pkcs11_rsa_wrap(p, slotidx, &attribs[0], rsa) == 0) {
    522 			key = sshkey_new(KEY_UNSPEC);
    523 			key->rsa = rsa;
    524 			key->type = KEY_RSA;
    525 			key->flags |= SSHKEY_FLAG_EXT;
    526 			if (pkcs11_key_included(keysp, nkeys, key)) {
    527 				sshkey_free(key);
    528 			} else {
    529 				/* expand key array and add key */
    530 				*keysp = xrealloc(*keysp, *nkeys + 1,
    531 				    sizeof(struct sshkey *));
    532 				(*keysp)[*nkeys] = key;
    533 				*nkeys = *nkeys + 1;
    534 				debug("have %d keys", *nkeys);
    535 			}
    536 		} else if (rsa) {
    537 			RSA_free(rsa);
    538 		}
    539 		for (i = 0; i < 3; i++)
    540 			free(attribs[i].pValue);
    541 	}
    542 	if ((rv = f->C_FindObjectsFinal(session)) != CKR_OK)
    543 		error("C_FindObjectsFinal failed: %lu", rv);
    544 	return (0);
    545 }
    546 
    547 /* register a new provider, fails if provider already exists */
    548 int
    549 pkcs11_add_provider(char *provider_id, char *pin, struct sshkey ***keyp)
    550 {
    551 	int nkeys, need_finalize = 0;
    552 	struct pkcs11_provider *p = NULL;
    553 	void *handle = NULL;
    554 	CK_RV (*getfunctionlist)(CK_FUNCTION_LIST **);
    555 	CK_RV rv;
    556 	CK_FUNCTION_LIST *f = NULL;
    557 	CK_TOKEN_INFO *token;
    558 	CK_ULONG i;
    559 
    560 	*keyp = NULL;
    561 	if (pkcs11_provider_lookup(provider_id) != NULL) {
    562 		error("provider already registered: %s", provider_id);
    563 		goto fail;
    564 	}
    565 	/* open shared pkcs11-libarary */
    566 	if ((handle = dlopen(provider_id, RTLD_NOW)) == NULL) {
    567 		error("dlopen %s failed: %s", provider_id, dlerror());
    568 		goto fail;
    569 	}
    570 	if ((getfunctionlist = dlsym(handle, "C_GetFunctionList")) == NULL) {
    571 		error("dlsym(C_GetFunctionList) failed: %s", dlerror());
    572 		goto fail;
    573 	}
    574 	p = xcalloc(1, sizeof(*p));
    575 	p->name = xstrdup(provider_id);
    576 	p->handle = handle;
    577 	/* setup the pkcs11 callbacks */
    578 	if ((rv = (*getfunctionlist)(&f)) != CKR_OK) {
    579 		error("C_GetFunctionList failed: %lu", rv);
    580 		goto fail;
    581 	}
    582 	p->function_list = f;
    583 	if ((rv = f->C_Initialize(NULL)) != CKR_OK) {
    584 		error("C_Initialize failed: %lu", rv);
    585 		goto fail;
    586 	}
    587 	need_finalize = 1;
    588 	if ((rv = f->C_GetInfo(&p->info)) != CKR_OK) {
    589 		error("C_GetInfo failed: %lu", rv);
    590 		goto fail;
    591 	}
    592 	rmspace(p->info.manufacturerID, sizeof(p->info.manufacturerID));
    593 	rmspace(p->info.libraryDescription, sizeof(p->info.libraryDescription));
    594 	debug("manufacturerID <%s> cryptokiVersion %d.%d"
    595 	    " libraryDescription <%s> libraryVersion %d.%d",
    596 	    p->info.manufacturerID,
    597 	    p->info.cryptokiVersion.major,
    598 	    p->info.cryptokiVersion.minor,
    599 	    p->info.libraryDescription,
    600 	    p->info.libraryVersion.major,
    601 	    p->info.libraryVersion.minor);
    602 	if ((rv = f->C_GetSlotList(CK_TRUE, NULL, &p->nslots)) != CKR_OK) {
    603 		error("C_GetSlotList failed: %lu", rv);
    604 		goto fail;
    605 	}
    606 	if (p->nslots == 0) {
    607 		error("no slots");
    608 		goto fail;
    609 	}
    610 	p->slotlist = xcalloc(p->nslots, sizeof(CK_SLOT_ID));
    611 	if ((rv = f->C_GetSlotList(CK_TRUE, p->slotlist, &p->nslots))
    612 	    != CKR_OK) {
    613 		error("C_GetSlotList failed: %lu", rv);
    614 		goto fail;
    615 	}
    616 	p->slotinfo = xcalloc(p->nslots, sizeof(struct pkcs11_slotinfo));
    617 	p->valid = 1;
    618 	nkeys = 0;
    619 	for (i = 0; i < p->nslots; i++) {
    620 		token = &p->slotinfo[i].token;
    621 		if ((rv = f->C_GetTokenInfo(p->slotlist[i], token))
    622 		    != CKR_OK) {
    623 			error("C_GetTokenInfo failed: %lu", rv);
    624 			continue;
    625 		}
    626 		rmspace(token->label, sizeof(token->label));
    627 		rmspace(token->manufacturerID, sizeof(token->manufacturerID));
    628 		rmspace(token->model, sizeof(token->model));
    629 		rmspace(token->serialNumber, sizeof(token->serialNumber));
    630 		debug("label <%s> manufacturerID <%s> model <%s> serial <%s>"
    631 		    " flags 0x%lx",
    632 		    token->label, token->manufacturerID, token->model,
    633 		    token->serialNumber, token->flags);
    634 		/* open session, login with pin and retrieve public keys */
    635 		if (pkcs11_open_session(p, i, pin) == 0)
    636 			pkcs11_fetch_keys(p, i, keyp, &nkeys);
    637 	}
    638 	if (nkeys > 0) {
    639 		TAILQ_INSERT_TAIL(&pkcs11_providers, p, next);
    640 		p->refcount++;	/* add to provider list */
    641 		return (nkeys);
    642 	}
    643 	error("no keys");
    644 	/* don't add the provider, since it does not have any keys */
    645 fail:
    646 	if (need_finalize && (rv = f->C_Finalize(NULL)) != CKR_OK)
    647 		error("C_Finalize failed: %lu", rv);
    648 	if (p) {
    649 		free(p->slotlist);
    650 		free(p->slotinfo);
    651 		free(p);
    652 	}
    653 	if (handle)
    654 		dlclose(handle);
    655 	return (-1);
    656 }
    657 
    658 #else
    659 
    660 int
    661 pkcs11_init(int interactive)
    662 {
    663 	return (0);
    664 }
    665 
    666 void
    667 pkcs11_terminate(void)
    668 {
    669 	return;
    670 }
    671 
    672 #endif /* ENABLE_PKCS11 */
    673