1 files changed, 825 insertions, 0 deletions

diff --git a/src/lib/libcrypto/cms/cms_env.c b/src/lib/libcrypto/cms/cms_env.c
new file mode 100644
index 0000000000..d499ae85b4
--- /dev/null
+++ b/src/lib/libcrypto/cms/cms_env.c
@@ -0,0 +1,825 @@
+/* crypto/cms/cms_env.c */
+/* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL
+ * project.
+ */
+/* ====================================================================
+ * Copyright (c) 2008 The OpenSSL Project.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer. 
+ *
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in
+ *    the documentation and/or other materials provided with the
+ *    distribution.
+ *
+ * 3. All advertising materials mentioning features or use of this
+ *    software must display the following acknowledgment:
+ *    "This product includes software developed by the OpenSSL Project
+ *    for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
+ *
+ * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
+ *    endorse or promote products derived from this software without
+ *    prior written permission. For written permission, please contact
+ *    licensing@OpenSSL.org.
+ *
+ * 5. Products derived from this software may not be called "OpenSSL"
+ *    nor may "OpenSSL" appear in their names without prior written
+ *    permission of the OpenSSL Project.
+ *
+ * 6. Redistributions of any form whatsoever must retain the following
+ *    acknowledgment:
+ *    "This product includes software developed by the OpenSSL Project
+ *    for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
+ * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
+ * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+ * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+ * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+ * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
+ * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
+ * OF THE POSSIBILITY OF SUCH DAMAGE.
+ * ====================================================================
+ */
+
+#include "cryptlib.h"
+#include <openssl/asn1t.h>
+#include <openssl/pem.h>
+#include <openssl/x509v3.h>
+#include <openssl/err.h>
+#include <openssl/cms.h>
+#include <openssl/rand.h>
+#include <openssl/aes.h>
+#include "cms_lcl.h"
+
+/* CMS EnvelopedData Utilities */
+
+DECLARE_ASN1_ITEM(CMS_EnvelopedData)
+DECLARE_ASN1_ITEM(CMS_RecipientInfo)
+DECLARE_ASN1_ITEM(CMS_KeyTransRecipientInfo)
+DECLARE_ASN1_ITEM(CMS_KEKRecipientInfo)
+DECLARE_ASN1_ITEM(CMS_OtherKeyAttribute)
+
+DECLARE_STACK_OF(CMS_RecipientInfo)
+
+static CMS_EnvelopedData *cms_get0_enveloped(CMS_ContentInfo *cms)
+        {
+        if (OBJ_obj2nid(cms->contentType) != NID_pkcs7_enveloped)
+                {
+                CMSerr(CMS_F_CMS_GET0_ENVELOPED,
+                                CMS_R_CONTENT_TYPE_NOT_ENVELOPED_DATA);
+                return NULL;
+                }
+        return cms->d.envelopedData;
+        }
+
+static CMS_EnvelopedData *cms_enveloped_data_init(CMS_ContentInfo *cms)
+        {
+        if (cms->d.other == NULL)
+                {
+                cms->d.envelopedData = M_ASN1_new_of(CMS_EnvelopedData);
+                if (!cms->d.envelopedData)
+                        {
+                        CMSerr(CMS_F_CMS_ENVELOPED_DATA_INIT,
+                                                        ERR_R_MALLOC_FAILURE);
+                        return NULL;
+                        }
+                cms->d.envelopedData->version = 0;
+                cms->d.envelopedData->encryptedContentInfo->contentType =
+                                                OBJ_nid2obj(NID_pkcs7_data);
+                ASN1_OBJECT_free(cms->contentType);
+                cms->contentType = OBJ_nid2obj(NID_pkcs7_enveloped);
+                return cms->d.envelopedData;
+                }
+        return cms_get0_enveloped(cms);
+        }
+
+STACK_OF(CMS_RecipientInfo) *CMS_get0_RecipientInfos(CMS_ContentInfo *cms)
+        {
+        CMS_EnvelopedData *env;
+        env = cms_get0_enveloped(cms);
+        if (!env)
+                return NULL;
+        return env->recipientInfos;
+        }
+
+int CMS_RecipientInfo_type(CMS_RecipientInfo *ri)
+        {
+        return ri->type;
+        }
+
+CMS_ContentInfo *CMS_EnvelopedData_create(const EVP_CIPHER *cipher)
+        {
+        CMS_ContentInfo *cms;
+        CMS_EnvelopedData *env;
+        cms = CMS_ContentInfo_new();
+        if (!cms)
+                goto merr;
+        env = cms_enveloped_data_init(cms);
+        if (!env)
+                goto merr;
+        if (!cms_EncryptedContent_init(env->encryptedContentInfo,
+                                        cipher, NULL, 0))
+                goto merr;
+        return cms;
+        merr:
+        if (cms)
+                CMS_ContentInfo_free(cms);
+        CMSerr(CMS_F_CMS_ENVELOPEDDATA_CREATE, ERR_R_MALLOC_FAILURE);
+        return NULL;
+        }
+
+/* Key Transport Recipient Info (KTRI) routines */
+
+/* Add a recipient certificate. For now only handle key transport.
+ * If we ever handle key agreement will need updating.
+ */
+
+CMS_RecipientInfo *CMS_add1_recipient_cert(CMS_ContentInfo *cms,
+                                        X509 *recip, unsigned int flags)
+        {
+        CMS_RecipientInfo *ri = NULL;
+        CMS_KeyTransRecipientInfo *ktri;
+        CMS_EnvelopedData *env;
+        EVP_PKEY *pk = NULL;
+        int type;
+        env = cms_get0_enveloped(cms);
+        if (!env)
+                goto err;
+
+        /* Initialize recipient info */
+        ri = M_ASN1_new_of(CMS_RecipientInfo);
+        if (!ri)
+                goto merr;
+
+        /* Initialize and add key transport recipient info */
+
+        ri->d.ktri = M_ASN1_new_of(CMS_KeyTransRecipientInfo);
+        if (!ri->d.ktri)
+                goto merr;
+        ri->type = CMS_RECIPINFO_TRANS;
+
+        ktri = ri->d.ktri;
+
+        X509_check_purpose(recip, -1, -1);
+        pk = X509_get_pubkey(recip);
+        if (!pk)
+                {
+                CMSerr(CMS_F_CMS_ADD1_RECIPIENT_CERT,
+                                CMS_R_ERROR_GETTING_PUBLIC_KEY);
+                goto err;
+                }
+        CRYPTO_add(&recip->references, 1, CRYPTO_LOCK_X509);
+        ktri->pkey = pk;
+        ktri->recip = recip;
+
+        if (flags & CMS_USE_KEYID)
+                {
+                ktri->version = 2;
+                type = CMS_RECIPINFO_KEYIDENTIFIER;
+                }
+        else
+                {
+                ktri->version = 0;
+                type = CMS_RECIPINFO_ISSUER_SERIAL;
+                }
+
+        /* Not a typo: RecipientIdentifier and SignerIdentifier are the
+         * same structure.
+         */
+
+        if (!cms_set1_SignerIdentifier(ktri->rid, recip, type))
+                goto err;
+
+        /* Since we have no EVP_PKEY_ASN1_METHOD in OpenSSL 0.9.8,
+         * hard code algorithm parameters.
+         */
+
+        if (pk->type == EVP_PKEY_RSA)
+                {
+                X509_ALGOR_set0(ktri->keyEncryptionAlgorithm,
+                                        OBJ_nid2obj(NID_rsaEncryption), 
+                                        V_ASN1_NULL, 0);
+                }
+        else
+                {
+                CMSerr(CMS_F_CMS_ADD1_RECIPIENT_CERT,
+                                CMS_R_NOT_SUPPORTED_FOR_THIS_KEY_TYPE);
+                goto err;
+                }
+
+        if (!sk_CMS_RecipientInfo_push(env->recipientInfos, ri))
+                goto merr;
+
+        return ri;
+
+        merr:
+        CMSerr(CMS_F_CMS_ADD1_RECIPIENT_CERT, ERR_R_MALLOC_FAILURE);
+        err:
+        if (ri)
+                M_ASN1_free_of(ri, CMS_RecipientInfo);
+        return NULL;
+
+        }
+
+int CMS_RecipientInfo_ktri_get0_algs(CMS_RecipientInfo *ri,
+                                        EVP_PKEY **pk, X509 **recip,
+                                        X509_ALGOR **palg)
+        {
+        CMS_KeyTransRecipientInfo *ktri;
+        if (ri->type != CMS_RECIPINFO_TRANS)
+                {
+                CMSerr(CMS_F_CMS_RECIPIENTINFO_KTRI_GET0_ALGS,
+                        CMS_R_NOT_KEY_TRANSPORT);
+                return 0;
+                }
+
+        ktri = ri->d.ktri;
+
+        if (pk)
+                *pk = ktri->pkey;
+        if (recip)
+                *recip = ktri->recip;
+        if (palg)
+                *palg = ktri->keyEncryptionAlgorithm;
+        return 1;
+        }
+
+int CMS_RecipientInfo_ktri_get0_signer_id(CMS_RecipientInfo *ri,
+                                        ASN1_OCTET_STRING **keyid,
+                                        X509_NAME **issuer, ASN1_INTEGER **sno)
+        {
+        CMS_KeyTransRecipientInfo *ktri;
+        if (ri->type != CMS_RECIPINFO_TRANS)
+                {
+                CMSerr(CMS_F_CMS_RECIPIENTINFO_KTRI_GET0_SIGNER_ID,
+                        CMS_R_NOT_KEY_TRANSPORT);
+                return 0;
+                }
+        ktri = ri->d.ktri;
+
+        return cms_SignerIdentifier_get0_signer_id(ktri->rid,
+                                                        keyid, issuer, sno);
+        }
+
+int CMS_RecipientInfo_ktri_cert_cmp(CMS_RecipientInfo *ri, X509 *cert)
+        {
+        if (ri->type != CMS_RECIPINFO_TRANS)
+                {
+                CMSerr(CMS_F_CMS_RECIPIENTINFO_KTRI_CERT_CMP,
+                        CMS_R_NOT_KEY_TRANSPORT);
+                return -2;
+                }
+        return cms_SignerIdentifier_cert_cmp(ri->d.ktri->rid, cert);
+        }
+
+int CMS_RecipientInfo_set0_pkey(CMS_RecipientInfo *ri, EVP_PKEY *pkey)
+        {
+        if (ri->type != CMS_RECIPINFO_TRANS)
+                {
+                CMSerr(CMS_F_CMS_RECIPIENTINFO_SET0_PKEY,
+                        CMS_R_NOT_KEY_TRANSPORT);
+                return 0;
+                }
+        ri->d.ktri->pkey = pkey;
+        return 1;
+        }
+
+/* Encrypt content key in key transport recipient info */
+
+static int cms_RecipientInfo_ktri_encrypt(CMS_ContentInfo *cms,
+                                        CMS_RecipientInfo *ri)
+        {
+        CMS_KeyTransRecipientInfo *ktri;
+        CMS_EncryptedContentInfo *ec;
+        unsigned char *ek = NULL;
+        int eklen;
+
+        int ret = 0;
+
+        if (ri->type != CMS_RECIPINFO_TRANS)
+                {
+                CMSerr(CMS_F_CMS_RECIPIENTINFO_KTRI_ENCRYPT,
+                        CMS_R_NOT_KEY_TRANSPORT);
+                return 0;
+                }
+        ktri = ri->d.ktri;
+        ec = cms->d.envelopedData->encryptedContentInfo;
+
+        eklen = EVP_PKEY_size(ktri->pkey);
+
+        ek = OPENSSL_malloc(eklen);
+
+        if (ek == NULL)
+                {
+                CMSerr(CMS_F_CMS_RECIPIENTINFO_KTRI_ENCRYPT,
+                                                        ERR_R_MALLOC_FAILURE);
+                goto err;
+                }
+
+        eklen = EVP_PKEY_encrypt(ek, ec->key, ec->keylen, ktri->pkey);
+
+        if (eklen <= 0)
+                goto err;
+
+        ASN1_STRING_set0(ktri->encryptedKey, ek, eklen);
+        ek = NULL;
+
+        ret = 1;
+
+        err:
+        if (ek)
+                OPENSSL_free(ek);
+        return ret;
+
+        }
+
+/* Decrypt content key from KTRI */
+
+static int cms_RecipientInfo_ktri_decrypt(CMS_ContentInfo *cms,
+                                                        CMS_RecipientInfo *ri)
+        {
+        CMS_KeyTransRecipientInfo *ktri = ri->d.ktri;
+        unsigned char *ek = NULL;
+        int eklen;
+        int ret = 0;
+
+        if (ktri->pkey == NULL)
+                {
+                CMSerr(CMS_F_CMS_RECIPIENTINFO_KTRI_DECRYPT,
+                        CMS_R_NO_PRIVATE_KEY);
+                return 0;
+                }
+
+        eklen = EVP_PKEY_size(ktri->pkey);
+
+        ek = OPENSSL_malloc(eklen);
+
+        if (ek == NULL)
+                {
+                CMSerr(CMS_F_CMS_RECIPIENTINFO_KTRI_DECRYPT,
+                                                        ERR_R_MALLOC_FAILURE);
+                goto err;
+                }
+
+        eklen = EVP_PKEY_decrypt(ek, 
+                                ktri->encryptedKey->data,
+                                ktri->encryptedKey->length, ktri->pkey);
+        if (eklen <= 0)
+                {
+                CMSerr(CMS_F_CMS_RECIPIENTINFO_KTRI_DECRYPT, CMS_R_CMS_LIB);
+                goto err;
+                }
+
+        ret = 1;
+
+        cms->d.envelopedData->encryptedContentInfo->key = ek;
+        cms->d.envelopedData->encryptedContentInfo->keylen = eklen;
+
+        err:
+        if (!ret && ek)
+                OPENSSL_free(ek);
+
+        return ret;
+        }
+
+/* Key Encrypted Key (KEK) RecipientInfo routines */
+
+int CMS_RecipientInfo_kekri_id_cmp(CMS_RecipientInfo *ri, 
+                                        const unsigned char *id, size_t idlen)
+        {
+        ASN1_OCTET_STRING tmp_os;
+        CMS_KEKRecipientInfo *kekri;
+        if (ri->type != CMS_RECIPINFO_KEK)
+                {
+                CMSerr(CMS_F_CMS_RECIPIENTINFO_KEKRI_ID_CMP, CMS_R_NOT_KEK);
+                return -2;
+                }
+        kekri = ri->d.kekri;
+        tmp_os.type = V_ASN1_OCTET_STRING;
+        tmp_os.flags = 0;
+        tmp_os.data = (unsigned char *)id;
+        tmp_os.length = (int)idlen;
+        return ASN1_OCTET_STRING_cmp(&tmp_os, kekri->kekid->keyIdentifier);
+        }
+
+/* For now hard code AES key wrap info */
+
+static size_t aes_wrap_keylen(int nid)
+        {
+        switch (nid)
+                {
+                case NID_id_aes128_wrap:
+                return 16;
+
+                case NID_id_aes192_wrap:
+                return  24;
+
+                case NID_id_aes256_wrap:
+                return  32;
+
+                default:
+                return 0;
+                }
+        }
+
+CMS_RecipientInfo *CMS_add0_recipient_key(CMS_ContentInfo *cms, int nid,
+                                        unsigned char *key, size_t keylen,
+                                        unsigned char *id, size_t idlen,
+                                        ASN1_GENERALIZEDTIME *date,
+                                        ASN1_OBJECT *otherTypeId,
+                                        ASN1_TYPE *otherType)
+        {
+        CMS_RecipientInfo *ri = NULL;
+        CMS_EnvelopedData *env;
+        CMS_KEKRecipientInfo *kekri;
+        env = cms_get0_enveloped(cms);
+        if (!env)
+                goto err;
+
+        if (nid == NID_undef)
+                {
+                switch (keylen)
+                        {
+                        case 16:
+                        nid = NID_id_aes128_wrap;
+                        break;
+
+                        case  24:
+                        nid = NID_id_aes192_wrap;
+                        break;
+
+                        case  32:
+                        nid = NID_id_aes256_wrap;
+                        break;
+
+                        default:
+                        CMSerr(CMS_F_CMS_ADD0_RECIPIENT_KEY,
+                                                CMS_R_INVALID_KEY_LENGTH);
+                        goto err;
+                        }
+
+                }
+        else
+                {
+
+                size_t exp_keylen = aes_wrap_keylen(nid);
+
+                if (!exp_keylen)
+                        {
+                        CMSerr(CMS_F_CMS_ADD0_RECIPIENT_KEY,
+                                        CMS_R_UNSUPPORTED_KEK_ALGORITHM);
+                        goto err;
+                        }
+
+                if (keylen != exp_keylen)
+                        {
+                        CMSerr(CMS_F_CMS_ADD0_RECIPIENT_KEY,
+                                        CMS_R_INVALID_KEY_LENGTH);
+                        goto err;
+                        }
+
+                }
+
+        /* Initialize recipient info */
+        ri = M_ASN1_new_of(CMS_RecipientInfo);
+        if (!ri)
+                goto merr;
+
+        ri->d.kekri = M_ASN1_new_of(CMS_KEKRecipientInfo);
+        if (!ri->d.kekri)
+                goto merr;
+        ri->type = CMS_RECIPINFO_KEK;
+
+        kekri = ri->d.kekri;
+
+        if (otherTypeId)
+                {
+                kekri->kekid->other = M_ASN1_new_of(CMS_OtherKeyAttribute);
+                if (kekri->kekid->other == NULL)
+                        goto merr;
+                }
+
+        if (!sk_CMS_RecipientInfo_push(env->recipientInfos, ri))
+                goto merr;
+
+
+        /* After this point no calls can fail */
+
+        kekri->version = 4;
+
+        kekri->key = key;
+        kekri->keylen = keylen;
+
+        ASN1_STRING_set0(kekri->kekid->keyIdentifier, id, idlen);
+
+        kekri->kekid->date = date;
+
+        if (kekri->kekid->other)
+                {
+                kekri->kekid->other->keyAttrId = otherTypeId;
+                kekri->kekid->other->keyAttr = otherType;
+                }
+
+        X509_ALGOR_set0(kekri->keyEncryptionAlgorithm,
+                                OBJ_nid2obj(nid), V_ASN1_UNDEF, NULL);
+
+        return ri;
+
+        merr:
+        CMSerr(CMS_F_CMS_ADD0_RECIPIENT_KEY, ERR_R_MALLOC_FAILURE);
+        err:
+        if (ri)
+                M_ASN1_free_of(ri, CMS_RecipientInfo);
+        return NULL;
+
+        }
+
+int CMS_RecipientInfo_kekri_get0_id(CMS_RecipientInfo *ri,
+                                        X509_ALGOR **palg,
+                                        ASN1_OCTET_STRING **pid,
+                                        ASN1_GENERALIZEDTIME **pdate,
+                                        ASN1_OBJECT **potherid,
+                                        ASN1_TYPE **pothertype)
+        {
+        CMS_KEKIdentifier *rkid;
+        if (ri->type != CMS_RECIPINFO_KEK)
+                {
+                CMSerr(CMS_F_CMS_RECIPIENTINFO_KEKRI_GET0_ID, CMS_R_NOT_KEK);
+                return 0;
+                }
+        rkid =  ri->d.kekri->kekid;
+        if (palg)
+                *palg = ri->d.kekri->keyEncryptionAlgorithm;
+        if (pid)
+                *pid = rkid->keyIdentifier;
+        if (pdate)
+                *pdate = rkid->date;
+        if (potherid)
+                {
+                if (rkid->other)
+                        *potherid = rkid->other->keyAttrId;
+                else
+                        *potherid = NULL;
+                }
+        if (pothertype)
+                {
+                if (rkid->other)
+                        *pothertype = rkid->other->keyAttr;
+                else
+                        *pothertype = NULL;
+                }
+        return 1;
+        }
+
+int CMS_RecipientInfo_set0_key(CMS_RecipientInfo *ri, 
+                                unsigned char *key, size_t keylen)
+        {
+        CMS_KEKRecipientInfo *kekri;
+        if (ri->type != CMS_RECIPINFO_KEK)
+                {
+                CMSerr(CMS_F_CMS_RECIPIENTINFO_SET0_KEY, CMS_R_NOT_KEK);
+                return 0;
+                }
+
+        kekri = ri->d.kekri;
+        kekri->key = key;
+        kekri->keylen = keylen;
+        return 1;
+        }
+
+
+/* Encrypt content key in KEK recipient info */
+
+static int cms_RecipientInfo_kekri_encrypt(CMS_ContentInfo *cms,
+                                        CMS_RecipientInfo *ri)
+        {
+        CMS_EncryptedContentInfo *ec;
+        CMS_KEKRecipientInfo *kekri;
+        AES_KEY actx;
+        unsigned char *wkey = NULL;
+        int wkeylen;
+        int r = 0;
+
+        ec = cms->d.envelopedData->encryptedContentInfo;
+
+        kekri = ri->d.kekri;
+
+        if (!kekri->key)
+                {
+                CMSerr(CMS_F_CMS_RECIPIENTINFO_KEKRI_ENCRYPT, CMS_R_NO_KEY);
+                return 0;
+                }
+
+        if (AES_set_encrypt_key(kekri->key, kekri->keylen << 3, &actx))
+                { 
+                CMSerr(CMS_F_CMS_RECIPIENTINFO_KEKRI_ENCRYPT,
+                                                CMS_R_ERROR_SETTING_KEY);
+                goto err;
+                }
+
+        wkey = OPENSSL_malloc(ec->keylen + 8);
+
+        if (!wkey)
+                { 
+                CMSerr(CMS_F_CMS_RECIPIENTINFO_KEKRI_ENCRYPT,
+                                                ERR_R_MALLOC_FAILURE);
+                goto err;
+                }
+
+        wkeylen = AES_wrap_key(&actx, NULL, wkey, ec->key, ec->keylen);
+
+        if (wkeylen <= 0)
+                {
+                CMSerr(CMS_F_CMS_RECIPIENTINFO_KEKRI_ENCRYPT, CMS_R_WRAP_ERROR);
+                goto err;
+                }
+
+        ASN1_STRING_set0(kekri->encryptedKey, wkey, wkeylen);
+
+        r = 1;
+
+        err:
+
+        if (!r && wkey)
+                OPENSSL_free(wkey);
+        OPENSSL_cleanse(&actx, sizeof(actx));
+
+        return r;
+
+        }
+
+/* Decrypt content key in KEK recipient info */
+
+static int cms_RecipientInfo_kekri_decrypt(CMS_ContentInfo *cms,
+                                        CMS_RecipientInfo *ri)
+        {
+        CMS_EncryptedContentInfo *ec;
+        CMS_KEKRecipientInfo *kekri;
+        AES_KEY actx;
+        unsigned char *ukey = NULL;
+        int ukeylen;
+        int r = 0, wrap_nid;
+
+        ec = cms->d.envelopedData->encryptedContentInfo;
+
+        kekri = ri->d.kekri;
+
+        if (!kekri->key)
+                {
+                CMSerr(CMS_F_CMS_RECIPIENTINFO_KEKRI_DECRYPT, CMS_R_NO_KEY);
+                return 0;
+                }
+
+        wrap_nid = OBJ_obj2nid(kekri->keyEncryptionAlgorithm->algorithm);
+        if (aes_wrap_keylen(wrap_nid) != kekri->keylen)
+                {
+                CMSerr(CMS_F_CMS_RECIPIENTINFO_KEKRI_DECRYPT,
+                        CMS_R_INVALID_KEY_LENGTH);
+                return 0;
+                }
+
+        /* If encrypted key length is invalid don't bother */
+
+        if (kekri->encryptedKey->length < 16)
+                { 
+                CMSerr(CMS_F_CMS_RECIPIENTINFO_KEKRI_DECRYPT,
+                                        CMS_R_INVALID_ENCRYPTED_KEY_LENGTH);
+                goto err;
+                }
+
+        if (AES_set_decrypt_key(kekri->key, kekri->keylen << 3, &actx))
+                { 
+                CMSerr(CMS_F_CMS_RECIPIENTINFO_KEKRI_DECRYPT,
+                                                CMS_R_ERROR_SETTING_KEY);
+                goto err;
+                }
+
+        ukey = OPENSSL_malloc(kekri->encryptedKey->length - 8);
+
+        if (!ukey)
+                { 
+                CMSerr(CMS_F_CMS_RECIPIENTINFO_KEKRI_DECRYPT,
+                                                ERR_R_MALLOC_FAILURE);
+                goto err;
+                }
+
+        ukeylen = AES_unwrap_key(&actx, NULL, ukey,
+                                        kekri->encryptedKey->data,
+                                        kekri->encryptedKey->length);
+
+        if (ukeylen <= 0)
+                {
+                CMSerr(CMS_F_CMS_RECIPIENTINFO_KEKRI_DECRYPT,
+                                                        CMS_R_UNWRAP_ERROR);
+                goto err;
+                }
+
+        ec->key = ukey;
+        ec->keylen = ukeylen;
+
+        r = 1;
+
+        err:
+
+        if (!r && ukey)
+                OPENSSL_free(ukey);
+        OPENSSL_cleanse(&actx, sizeof(actx));
+
+        return r;
+
+        }
+
+int CMS_RecipientInfo_decrypt(CMS_ContentInfo *cms, CMS_RecipientInfo *ri)
+        {
+        switch(ri->type)
+                {
+                case CMS_RECIPINFO_TRANS:
+                return cms_RecipientInfo_ktri_decrypt(cms, ri);
+
+                case CMS_RECIPINFO_KEK:
+                return cms_RecipientInfo_kekri_decrypt(cms, ri);
+
+                default:
+                CMSerr(CMS_F_CMS_RECIPIENTINFO_DECRYPT,
+                        CMS_R_UNSUPPORTED_RECPIENTINFO_TYPE);
+                return 0;
+                }
+        }
+
+BIO *cms_EnvelopedData_init_bio(CMS_ContentInfo *cms)
+        {
+        CMS_EncryptedContentInfo *ec;
+        STACK_OF(CMS_RecipientInfo) *rinfos;
+        CMS_RecipientInfo *ri;
+        int i, r, ok = 0;
+        BIO *ret;
+
+        /* Get BIO first to set up key */
+
+        ec = cms->d.envelopedData->encryptedContentInfo;
+        ret = cms_EncryptedContent_init_bio(ec);
+
+        /* If error or no cipher end of processing */
+
+        if (!ret || !ec->cipher)
+                return ret;
+
+        /* Now encrypt content key according to each RecipientInfo type */
+
+        rinfos = cms->d.envelopedData->recipientInfos;
+
+        for (i = 0; i < sk_CMS_RecipientInfo_num(rinfos); i++)
+                {
+                ri = sk_CMS_RecipientInfo_value(rinfos, i);
+
+                switch (ri->type)
+                        {
+                        case CMS_RECIPINFO_TRANS:
+                        r = cms_RecipientInfo_ktri_encrypt(cms, ri);
+                        break;
+
+                        case CMS_RECIPINFO_KEK:
+                        r = cms_RecipientInfo_kekri_encrypt(cms, ri);
+                        break;
+
+                        default:
+                        CMSerr(CMS_F_CMS_ENVELOPEDDATA_INIT_BIO,
+                                CMS_R_UNSUPPORTED_RECIPIENT_TYPE);
+                        goto err;
+                        }
+
+                if (r <= 0)
+                        {
+                        CMSerr(CMS_F_CMS_ENVELOPEDDATA_INIT_BIO,
+                                CMS_R_ERROR_SETTING_RECIPIENTINFO);
+                        goto err;
+                        }
+                }
+
+        ok = 1;
+
+        err:
+        ec->cipher = NULL;
+        if (ec->key)
+                {
+                OPENSSL_cleanse(ec->key, ec->keylen);
+                OPENSSL_free(ec->key);
+                ec->key = NULL;
+                ec->keylen = 0;
+                }
+        if (ok)
+                return ret;
+        BIO_free(ret);
+        return NULL;
+
+        }