1049 lines · 26.5 KB · C
RawDownload
/* * Copyright (C) 2010 IBM Corporation * Copyright (C) 2010 Politecnico di Torino, Italy *                    TORSEC group -- http://security.polito.it * * Authors: * Mimi Zohar <zohar@us.ibm.com> * Roberto Sassu <roberto.sassu@polito.it> * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation, version 2 of the License. * * See Documentation/security/keys-trusted-encrypted.txt */ #include <linux/uaccess.h>#include <linux/module.h>#include <linux/init.h>#include <linux/slab.h>#include <linux/parser.h>#include <linux/string.h>#include <linux/err.h>#include <keys/user-type.h>#include <keys/trusted-type.h>#include <keys/encrypted-type.h>#include <linux/key-type.h>#include <linux/random.h>#include <linux/rcupdate.h>#include <linux/scatterlist.h>#include <linux/crypto.h>#include <linux/ctype.h>#include <crypto/hash.h>#include <crypto/sha.h>#include <crypto/aes.h> #include "encrypted.h"#include "ecryptfs_format.h" static const char KEY_TRUSTED_PREFIX[] = "trusted:";static const char KEY_USER_PREFIX[] = "user:";static const char hash_alg[] = "sha256";static const char hmac_alg[] = "hmac(sha256)";static const char blkcipher_alg[] = "cbc(aes)";static const char key_format_default[] = "default";static const char key_format_ecryptfs[] = "ecryptfs";static unsigned int ivsize;static int blksize; #define KEY_TRUSTED_PREFIX_LEN (sizeof (KEY_TRUSTED_PREFIX) - 1)#define KEY_USER_PREFIX_LEN (sizeof (KEY_USER_PREFIX) - 1)#define KEY_ECRYPTFS_DESC_LEN 16#define HASH_SIZE SHA256_DIGEST_SIZE#define MAX_DATA_SIZE 4096#define MIN_DATA_SIZE  20 struct sdesc {	struct shash_desc shash;	char ctx[];}; static struct crypto_shash *hashalg;static struct crypto_shash *hmacalg; enum {	Opt_err = -1, Opt_new, Opt_load, Opt_update}; enum {	Opt_error = -1, Opt_default, Opt_ecryptfs}; static const match_table_t key_format_tokens = {	{Opt_default, "default"},	{Opt_ecryptfs, "ecryptfs"},	{Opt_error, NULL}}; static const match_table_t key_tokens = {	{Opt_new, "new"},	{Opt_load, "load"},	{Opt_update, "update"},	{Opt_err, NULL}}; static int aes_get_sizes(void){	struct crypto_blkcipher *tfm; 	tfm = crypto_alloc_blkcipher(blkcipher_alg, 0, CRYPTO_ALG_ASYNC);	if (IS_ERR(tfm)) {		pr_err("encrypted_key: failed to alloc_cipher (%ld)\n",		       PTR_ERR(tfm));		return PTR_ERR(tfm);	}	ivsize = crypto_blkcipher_ivsize(tfm);	blksize = crypto_blkcipher_blocksize(tfm);	crypto_free_blkcipher(tfm);	return 0;} /* * valid_ecryptfs_desc - verify the description of a new/loaded encrypted key * * The description of a encrypted key with format 'ecryptfs' must contain * exactly 16 hexadecimal characters. * */static int valid_ecryptfs_desc(const char *ecryptfs_desc){	int i; 	if (strlen(ecryptfs_desc) != KEY_ECRYPTFS_DESC_LEN) {		pr_err("encrypted_key: key description must be %d hexadecimal "		       "characters long\n", KEY_ECRYPTFS_DESC_LEN);		return -EINVAL;	} 	for (i = 0; i < KEY_ECRYPTFS_DESC_LEN; i++) {		if (!isxdigit(ecryptfs_desc[i])) {			pr_err("encrypted_key: key description must contain "			       "only hexadecimal characters\n");			return -EINVAL;		}	} 	return 0;} /* * valid_master_desc - verify the 'key-type:desc' of a new/updated master-key * * key-type:= "trusted:" | "user:" * desc:= master-key description * * Verify that 'key-type' is valid and that 'desc' exists. On key update, * only the master key description is permitted to change, not the key-type. * The key-type remains constant. * * On success returns 0, otherwise -EINVAL. */static int valid_master_desc(const char *new_desc, const char *orig_desc){	if (!memcmp(new_desc, KEY_TRUSTED_PREFIX, KEY_TRUSTED_PREFIX_LEN)) {		if (strlen(new_desc) == KEY_TRUSTED_PREFIX_LEN)			goto out;		if (orig_desc)			if (memcmp(new_desc, orig_desc, KEY_TRUSTED_PREFIX_LEN))				goto out;	} else if (!memcmp(new_desc, KEY_USER_PREFIX, KEY_USER_PREFIX_LEN)) {		if (strlen(new_desc) == KEY_USER_PREFIX_LEN)			goto out;		if (orig_desc)			if (memcmp(new_desc, orig_desc, KEY_USER_PREFIX_LEN))				goto out;	} else		goto out;	return 0;out:	return -EINVAL;} /* * datablob_parse - parse the keyctl data * * datablob format: * new [<format>] <master-key name> <decrypted data length> * load [<format>] <master-key name> <decrypted data length> *     <encrypted iv + data> * update <new-master-key name> * * Tokenizes a copy of the keyctl data, returning a pointer to each token, * which is null terminated. * * On success returns 0, otherwise -EINVAL. */static int datablob_parse(char *datablob, const char **format,			  char **master_desc, char **decrypted_datalen,			  char **hex_encoded_iv){	substring_t args[MAX_OPT_ARGS];	int ret = -EINVAL;	int key_cmd;	int key_format;	char *p, *keyword; 	keyword = strsep(&datablob, " \t");	if (!keyword) {		pr_info("encrypted_key: insufficient parameters specified\n");		return ret;	}	key_cmd = match_token(keyword, key_tokens, args); 	/* Get optional format: default | ecryptfs */	p = strsep(&datablob, " \t");	if (!p) {		pr_err("encrypted_key: insufficient parameters specified\n");		return ret;	} 	key_format = match_token(p, key_format_tokens, args);	switch (key_format) {	case Opt_ecryptfs:	case Opt_default:		*format = p;		*master_desc = strsep(&datablob, " \t");		break;	case Opt_error:		*master_desc = p;		break;	} 	if (!*master_desc) {		pr_info("encrypted_key: master key parameter is missing\n");		goto out;	} 	if (valid_master_desc(*master_desc, NULL) < 0) {		pr_info("encrypted_key: master key parameter \'%s\' "			"is invalid\n", *master_desc);		goto out;	} 	if (decrypted_datalen) {		*decrypted_datalen = strsep(&datablob, " \t");		if (!*decrypted_datalen) {			pr_info("encrypted_key: keylen parameter is missing\n");			goto out;		}	} 	switch (key_cmd) {	case Opt_new:		if (!decrypted_datalen) {			pr_info("encrypted_key: keyword \'%s\' not allowed "				"when called from .update method\n", keyword);			break;		}		ret = 0;		break;	case Opt_load:		if (!decrypted_datalen) {			pr_info("encrypted_key: keyword \'%s\' not allowed "				"when called from .update method\n", keyword);			break;		}		*hex_encoded_iv = strsep(&datablob, " \t");		if (!*hex_encoded_iv) {			pr_info("encrypted_key: hex blob is missing\n");			break;		}		ret = 0;		break;	case Opt_update:		if (decrypted_datalen) {			pr_info("encrypted_key: keyword \'%s\' not allowed "				"when called from .instantiate method\n",				keyword);			break;		}		ret = 0;		break;	case Opt_err:		pr_info("encrypted_key: keyword \'%s\' not recognized\n",			keyword);		break;	}out:	return ret;} /* * datablob_format - format as an ascii string, before copying to userspace */static char *datablob_format(struct encrypted_key_payload *epayload,			     size_t asciiblob_len){	char *ascii_buf, *bufp;	u8 *iv = epayload->iv;	int len;	int i; 	ascii_buf = kmalloc(asciiblob_len + 1, GFP_KERNEL);	if (!ascii_buf)		goto out; 	ascii_buf[asciiblob_len] = '\0'; 	/* copy datablob master_desc and datalen strings */	len = sprintf(ascii_buf, "%s %s %s ", epayload->format,		      epayload->master_desc, epayload->datalen); 	/* convert the hex encoded iv, encrypted-data and HMAC to ascii */	bufp = &ascii_buf[len];	for (i = 0; i < (asciiblob_len - len) / 2; i++)		bufp = pack_hex_byte(bufp, iv[i]);out:	return ascii_buf;} /* * request_trusted_key - request the trusted key * * Trusted keys are sealed to PCRs and other metadata. Although userspace * manages both trusted/encrypted key-types, like the encrypted key type * data, trusted key type data is not visible decrypted from userspace. */static struct key *request_trusted_key(const char *trusted_desc,				       u8 **master_key, size_t *master_keylen){	struct trusted_key_payload *tpayload;	struct key *tkey; 	tkey = request_key(&key_type_trusted, trusted_desc, NULL);	if (IS_ERR(tkey))		goto error; 	down_read(&tkey->sem);	tpayload = rcu_dereference(tkey->payload.data);	*master_key = tpayload->key;	*master_keylen = tpayload->key_len;error:	return tkey;} /* * request_user_key - request the user key * * Use a user provided key to encrypt/decrypt an encrypted-key. */static struct key *request_user_key(const char *master_desc, u8 **master_key,				    size_t *master_keylen){	struct user_key_payload *upayload;	struct key *ukey; 	ukey = request_key(&key_type_user, master_desc, NULL);	if (IS_ERR(ukey))		goto error; 	down_read(&ukey->sem);	upayload = rcu_dereference(ukey->payload.data);	*master_key = upayload->data;	*master_keylen = upayload->datalen;error:	return ukey;} static struct sdesc *alloc_sdesc(struct crypto_shash *alg){	struct sdesc *sdesc;	int size; 	size = sizeof(struct shash_desc) + crypto_shash_descsize(alg);	sdesc = kmalloc(size, GFP_KERNEL);	if (!sdesc)		return ERR_PTR(-ENOMEM);	sdesc->shash.tfm = alg;	sdesc->shash.flags = 0x0;	return sdesc;} static int calc_hmac(u8 *digest, const u8 *key, unsigned int keylen,		     const u8 *buf, unsigned int buflen){	struct sdesc *sdesc;	int ret; 	sdesc = alloc_sdesc(hmacalg);	if (IS_ERR(sdesc)) {		pr_info("encrypted_key: can't alloc %s\n", hmac_alg);		return PTR_ERR(sdesc);	} 	ret = crypto_shash_setkey(hmacalg, key, keylen);	if (!ret)		ret = crypto_shash_digest(&sdesc->shash, buf, buflen, digest);	kfree(sdesc);	return ret;} static int calc_hash(u8 *digest, const u8 *buf, unsigned int buflen){	struct sdesc *sdesc;	int ret; 	sdesc = alloc_sdesc(hashalg);	if (IS_ERR(sdesc)) {		pr_info("encrypted_key: can't alloc %s\n", hash_alg);		return PTR_ERR(sdesc);	} 	ret = crypto_shash_digest(&sdesc->shash, buf, buflen, digest);	kfree(sdesc);	return ret;} enum derived_key_type { ENC_KEY, AUTH_KEY }; /* Derive authentication/encryption key from trusted key */static int get_derived_key(u8 *derived_key, enum derived_key_type key_type,			   const u8 *master_key, size_t master_keylen){	u8 *derived_buf;	unsigned int derived_buf_len;	int ret; 	derived_buf_len = strlen("AUTH_KEY") + 1 + master_keylen;	if (derived_buf_len < HASH_SIZE)		derived_buf_len = HASH_SIZE; 	derived_buf = kzalloc(derived_buf_len, GFP_KERNEL);	if (!derived_buf) {		pr_err("encrypted_key: out of memory\n");		return -ENOMEM;	}	if (key_type)		strcpy(derived_buf, "AUTH_KEY");	else		strcpy(derived_buf, "ENC_KEY"); 	memcpy(derived_buf + strlen(derived_buf) + 1, master_key,	       master_keylen);	ret = calc_hash(derived_key, derived_buf, derived_buf_len);	kfree(derived_buf);	return ret;} static int init_blkcipher_desc(struct blkcipher_desc *desc, const u8 *key,			       unsigned int key_len, const u8 *iv,			       unsigned int ivsize){	int ret; 	desc->tfm = crypto_alloc_blkcipher(blkcipher_alg, 0, CRYPTO_ALG_ASYNC);	if (IS_ERR(desc->tfm)) {		pr_err("encrypted_key: failed to load %s transform (%ld)\n",		       blkcipher_alg, PTR_ERR(desc->tfm));		return PTR_ERR(desc->tfm);	}	desc->flags = 0; 	ret = crypto_blkcipher_setkey(desc->tfm, key, key_len);	if (ret < 0) {		pr_err("encrypted_key: failed to setkey (%d)\n", ret);		crypto_free_blkcipher(desc->tfm);		return ret;	}	crypto_blkcipher_set_iv(desc->tfm, iv, ivsize);	return 0;} static struct key *request_master_key(struct encrypted_key_payload *epayload,				      u8 **master_key, size_t *master_keylen){	struct key *mkey = NULL; 	if (!strncmp(epayload->master_desc, KEY_TRUSTED_PREFIX,		     KEY_TRUSTED_PREFIX_LEN)) {		mkey = request_trusted_key(epayload->master_desc +					   KEY_TRUSTED_PREFIX_LEN,					   master_key, master_keylen);	} else if (!strncmp(epayload->master_desc, KEY_USER_PREFIX,			    KEY_USER_PREFIX_LEN)) {		mkey = request_user_key(epayload->master_desc +					KEY_USER_PREFIX_LEN,					master_key, master_keylen);	} else		goto out; 	if (IS_ERR(mkey)) {		pr_info("encrypted_key: key %s not found",			epayload->master_desc);		goto out;	} 	dump_master_key(*master_key, *master_keylen);out:	return mkey;} /* Before returning data to userspace, encrypt decrypted data. */static int derived_key_encrypt(struct encrypted_key_payload *epayload,			       const u8 *derived_key,			       unsigned int derived_keylen){	struct scatterlist sg_in[2];	struct scatterlist sg_out[1];	struct blkcipher_desc desc;	unsigned int encrypted_datalen;	unsigned int padlen;	char pad[16];	int ret; 	encrypted_datalen = roundup(epayload->decrypted_datalen, blksize);	padlen = encrypted_datalen - epayload->decrypted_datalen; 	ret = init_blkcipher_desc(&desc, derived_key, derived_keylen,				  epayload->iv, ivsize);	if (ret < 0)

Lines 1–500 of 1049.