[thirdparty/openssl.git] / crypto / encode_decode / encoder_pkey.c

/*
 * Copyright 2019-2021 The OpenSSL Project Authors. All Rights Reserved.
 *
 * Licensed under the Apache License 2.0 (the "License").  You may not use
 * this file except in compliance with the License.  You can obtain a copy
 * in the file LICENSE in the source distribution or at
 * https://www.openssl.org/source/license.html
 */

#include "internal/e_os.h"                /* strcasecmp on Windows */
#include <openssl/err.h>
#include <openssl/ui.h>
#include <openssl/params.h>
#include <openssl/encoder.h>
#include <openssl/core_names.h>
#include <openssl/provider.h>
#include <openssl/safestack.h>
#include <openssl/trace.h>
#include "internal/provider.h"
#include "internal/property.h"
#include "crypto/evp.h"
#include "encoder_local.h"

DEFINE_STACK_OF(OSSL_ENCODER)

int OSSL_ENCODER_CTX_set_cipher(OSSL_ENCODER_CTX *ctx,
                                const char *cipher_name,
                                const char *propquery)
{
    OSSL_PARAM params[] = { OSSL_PARAM_END, OSSL_PARAM_END, OSSL_PARAM_END };

    params[0] =
        OSSL_PARAM_construct_utf8_string(OSSL_ENCODER_PARAM_CIPHER,
                                         (void *)cipher_name, 0);
    params[1] =
        OSSL_PARAM_construct_utf8_string(OSSL_ENCODER_PARAM_PROPERTIES,
                                         (void *)propquery, 0);

    return OSSL_ENCODER_CTX_set_params(ctx, params);
}

int OSSL_ENCODER_CTX_set_passphrase(OSSL_ENCODER_CTX *ctx,
                                    const unsigned char *kstr,
                                    size_t klen)
{
    return ossl_pw_set_passphrase(&ctx->pwdata, kstr, klen);
}

int OSSL_ENCODER_CTX_set_passphrase_ui(OSSL_ENCODER_CTX *ctx,
                                       const UI_METHOD *ui_method,
                                       void *ui_data)
{
    return ossl_pw_set_ui_method(&ctx->pwdata, ui_method, ui_data);
}

int OSSL_ENCODER_CTX_set_pem_password_cb(OSSL_ENCODER_CTX *ctx,
                                         pem_password_cb *cb, void *cbarg)
{
    return ossl_pw_set_pem_password_cb(&ctx->pwdata, cb, cbarg);
}

int OSSL_ENCODER_CTX_set_passphrase_cb(OSSL_ENCODER_CTX *ctx,
                                       OSSL_PASSPHRASE_CALLBACK *cb,
                                       void *cbarg)
{
    return ossl_pw_set_ossl_passphrase_cb(&ctx->pwdata, cb, cbarg);
}

/*
 * Support for OSSL_ENCODER_CTX_new_for_type:
 * finding a suitable encoder
 */

struct collected_encoder_st {
    STACK_OF(OPENSSL_CSTRING) *names;
    const char *output_structure;
    const char *output_type;

    const OSSL_PROVIDER *keymgmt_prov;
    OSSL_ENCODER_CTX *ctx;
    unsigned int flag_find_same_provider:1;

    int error_occurred;
};

static void collect_encoder(OSSL_ENCODER *encoder, void *arg)
{
    struct collected_encoder_st *data = arg;
    size_t i, end_i;

    if (data->error_occurred)
        return;

    data->error_occurred = 1;     /* Assume the worst */

    if (data->names == NULL)
        return;

    end_i = sk_OPENSSL_CSTRING_num(data->names);
    for (i = 0; i < end_i; i++) {
        const char *name = sk_OPENSSL_CSTRING_value(data->names, i);
        const OSSL_PROVIDER *prov = OSSL_ENCODER_get0_provider(encoder);
        void *provctx = OSSL_PROVIDER_get0_provider_ctx(prov);

        /*
         * collect_encoder() is called in two passes, one where the encoders
         * from the same provider as the keymgmt are looked up, and one where
         * the other encoders are looked up.  |data->flag_find_same_provider|
         * tells us which pass we're in.
         */
        if ((data->keymgmt_prov == prov) != data->flag_find_same_provider)
            continue;

        if (!OSSL_ENCODER_is_a(encoder, name)
            || (encoder->does_selection != NULL
                && !encoder->does_selection(provctx, data->ctx->selection))
            || (data->keymgmt_prov != prov
                && encoder->import_object == NULL))
            continue;

        /* Only add each encoder implementation once */
        if (OSSL_ENCODER_CTX_add_encoder(data->ctx, encoder))
            break;
    }

    data->error_occurred = 0;         /* All is good now */
}

struct collected_names_st {
    STACK_OF(OPENSSL_CSTRING) *names;
    unsigned int error_occurred:1;
};

static void collect_name(const char *name, void *arg)
{
    struct collected_names_st *data = arg;

    if (data->error_occurred)
        return;

    data->error_occurred = 1;         /* Assume the worst */

    if (sk_OPENSSL_CSTRING_push(data->names, name) <= 0)
        return;

    data->error_occurred = 0;         /* All is good now */
}

/*
 * Support for OSSL_ENCODER_to_bio:
 * writing callback for the OSSL_PARAM (the implementation doesn't have
 * intimate knowledge of the provider side object)
 */

struct construct_data_st {
    const EVP_PKEY *pk;
    int selection;

    OSSL_ENCODER_INSTANCE *encoder_inst;
    const void *obj;
    void *constructed_obj;
};

static int encoder_import_cb(const OSSL_PARAM params[], void *arg)
{
    struct construct_data_st *construct_data = arg;
    OSSL_ENCODER_INSTANCE *encoder_inst = construct_data->encoder_inst;
    OSSL_ENCODER *encoder = OSSL_ENCODER_INSTANCE_get_encoder(encoder_inst);
    void *encoderctx = OSSL_ENCODER_INSTANCE_get_encoder_ctx(encoder_inst);

    construct_data->constructed_obj =
        encoder->import_object(encoderctx, construct_data->selection, params);

    return (construct_data->constructed_obj != NULL);
}

static const void *
encoder_construct_pkey(OSSL_ENCODER_INSTANCE *encoder_inst, void *arg)
{
    struct construct_data_st *data = arg;

    if (data->obj == NULL) {
        OSSL_ENCODER *encoder =
            OSSL_ENCODER_INSTANCE_get_encoder(encoder_inst);
        const EVP_PKEY *pk = data->pk;
        const OSSL_PROVIDER *k_prov = EVP_KEYMGMT_get0_provider(pk->keymgmt);
        const OSSL_PROVIDER *e_prov = OSSL_ENCODER_get0_provider(encoder);

        if (k_prov != e_prov) {
            data->encoder_inst = encoder_inst;

            if (!evp_keymgmt_export(pk->keymgmt, pk->keydata, data->selection,
                                    &encoder_import_cb, data))
                return NULL;
            data->obj = data->constructed_obj;
        } else {
            data->obj = pk->keydata;
        }
    }

    return data->obj;
}

static void encoder_destruct_pkey(void *arg)
{
    struct construct_data_st *data = arg;

    if (data->encoder_inst != NULL) {
        OSSL_ENCODER *encoder =
            OSSL_ENCODER_INSTANCE_get_encoder(data->encoder_inst);

        encoder->free_object(data->constructed_obj);
    }
    data->constructed_obj = NULL;
}

/*
 * OSSL_ENCODER_CTX_new_for_pkey() returns a ctx with no encoder if
 * it couldn't find a suitable encoder.  This allows a caller to detect if
 * a suitable encoder was found, with OSSL_ENCODER_CTX_get_num_encoder(),
 * and to use fallback methods if the result is NULL.
 */
static int ossl_encoder_ctx_setup_for_pkey(OSSL_ENCODER_CTX *ctx,
                                           const EVP_PKEY *pkey,
                                           int selection,
                                           const char *propquery)
{
    struct construct_data_st *data = NULL;
    const OSSL_PROVIDER *prov = NULL;
    OSSL_LIB_CTX *libctx = NULL;
    int ok = 0;

    if (!ossl_assert(ctx != NULL) || !ossl_assert(pkey != NULL)) {
        ERR_raise(ERR_LIB_OSSL_ENCODER, ERR_R_PASSED_NULL_PARAMETER);
        return 0;
    }

    if (evp_pkey_is_provided(pkey)) {
        prov = EVP_KEYMGMT_get0_provider(pkey->keymgmt);
        libctx = ossl_provider_libctx(prov);
    }

    if (pkey->keymgmt != NULL) {
        struct collected_encoder_st encoder_data;
        struct collected_names_st keymgmt_data;

        if ((data = OPENSSL_zalloc(sizeof(*data))) == NULL) {
            ERR_raise(ERR_LIB_OSSL_ENCODER, ERR_R_MALLOC_FAILURE);
            goto err;
        }

        /*
         * Select the first encoder implementations in two steps.
         * First, collect the keymgmt names, then the encoders that match.
         */
        keymgmt_data.names = sk_OPENSSL_CSTRING_new_null();
        keymgmt_data.error_occurred = 0;
        EVP_KEYMGMT_names_do_all(pkey->keymgmt, collect_name, &keymgmt_data);
        if (keymgmt_data.error_occurred) {
            sk_OPENSSL_CSTRING_free(keymgmt_data.names);
            goto err;
        }

        encoder_data.names = keymgmt_data.names;
        encoder_data.output_type = ctx->output_type;
        encoder_data.output_structure = ctx->output_structure;
        encoder_data.error_occurred = 0;
        encoder_data.keymgmt_prov = prov;
        encoder_data.ctx = ctx;

        /*
         * Place the encoders with the a different provider as the keymgmt
         * last (the chain is processed in reverse order)
         */
        encoder_data.flag_find_same_provider = 0;
        OSSL_ENCODER_do_all_provided(libctx, collect_encoder, &encoder_data);

        /*
         * Place the encoders with the same provider as the keymgmt first
         * (the chain is processed in reverse order)
         */
        encoder_data.flag_find_same_provider = 1;
        OSSL_ENCODER_do_all_provided(libctx, collect_encoder, &encoder_data);

        sk_OPENSSL_CSTRING_free(keymgmt_data.names);
        if (encoder_data.error_occurred) {
            ERR_raise(ERR_LIB_OSSL_ENCODER, ERR_R_MALLOC_FAILURE);
            goto err;
        }
    }

    if (data != NULL && OSSL_ENCODER_CTX_get_num_encoders(ctx) != 0) {
        if (!OSSL_ENCODER_CTX_set_construct(ctx, encoder_construct_pkey)
            || !OSSL_ENCODER_CTX_set_construct_data(ctx, data)
            || !OSSL_ENCODER_CTX_set_cleanup(ctx, encoder_destruct_pkey))
            goto err;

        data->pk = pkey;
        data->selection = selection;

        data = NULL;             /* Avoid it being freed */
    }

    ok = 1;
 err:
    if (data != NULL) {
        OSSL_ENCODER_CTX_set_construct_data(ctx, NULL);
        OPENSSL_free(data);
    }
    return ok;
}

OSSL_ENCODER_CTX *OSSL_ENCODER_CTX_new_for_pkey(const EVP_PKEY *pkey,
                                                int selection,
                                                const char *output_type,
                                                const char *output_struct,
                                                const char *propquery)
{
    OSSL_ENCODER_CTX *ctx = NULL;
    OSSL_LIB_CTX *libctx = NULL;

    if (pkey == NULL) {
        ERR_raise(ERR_LIB_OSSL_ENCODER, ERR_R_PASSED_NULL_PARAMETER);
        return NULL;
    }

    if (!evp_pkey_is_assigned(pkey)) {
        ERR_raise_data(ERR_LIB_OSSL_ENCODER, ERR_R_PASSED_INVALID_ARGUMENT,
                       "The passed EVP_PKEY must be assigned a key");
        return NULL;
    }

    if ((ctx = OSSL_ENCODER_CTX_new()) == NULL) {
        ERR_raise(ERR_LIB_OSSL_ENCODER, ERR_R_MALLOC_FAILURE);
        return NULL;
    }

    if (evp_pkey_is_provided(pkey)) {
        const OSSL_PROVIDER *prov = EVP_KEYMGMT_get0_provider(pkey->keymgmt);

        libctx = ossl_provider_libctx(prov);
    }

    OSSL_TRACE_BEGIN(ENCODER) {
        BIO_printf(trc_out,
                   "(ctx %p) Looking for %s encoders with selection %d\n",
                   (void *)ctx, EVP_PKEY_get0_type_name(pkey), selection);
        BIO_printf(trc_out, "    output type: %s, output structure: %s\n",
                   output_type, output_struct);
    } OSSL_TRACE_END(ENCODER);

    if (OSSL_ENCODER_CTX_set_output_type(ctx, output_type)
        && (output_struct == NULL
            || OSSL_ENCODER_CTX_set_output_structure(ctx, output_struct))
        && OSSL_ENCODER_CTX_set_selection(ctx, selection)
        && ossl_encoder_ctx_setup_for_pkey(ctx, pkey, selection, propquery)
        && OSSL_ENCODER_CTX_add_extra(ctx, libctx, propquery)) {
        OSSL_PARAM params[2] = { OSSL_PARAM_END, OSSL_PARAM_END };
        int save_parameters = pkey->save_parameters;

        params[0] = OSSL_PARAM_construct_int(OSSL_ENCODER_PARAM_SAVE_PARAMETERS,
                                             &save_parameters);
        /* ignoring error as this is only auxiliary parameter */
        (void)OSSL_ENCODER_CTX_set_params(ctx, params);

        OSSL_TRACE_BEGIN(ENCODER) {
            BIO_printf(trc_out, "(ctx %p) Got %d encoders\n",
                       (void *)ctx, OSSL_ENCODER_CTX_get_num_encoders(ctx));
        } OSSL_TRACE_END(ENCODER);
        return ctx;
    }

    OSSL_ENCODER_CTX_free(ctx);
    return NULL;
}
Commit	Line	Data
ece9304c	1	/*
a28d06f3	2	* Copyright 2019-2021 The OpenSSL Project Authors. All Rights Reserved.
ece9304c RL	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
d5f9166b	10	#include "internal/e_os.h" /* strcasecmp on Windows */
ece9304c RL	11	#include <openssl/err.h>
	12	#include <openssl/ui.h>
	13	#include <openssl/params.h>
	14	#include <openssl/encoder.h>
	15	#include <openssl/core_names.h>
b9a2afdf	16	#include <openssl/provider.h>
ece9304c	17	#include <openssl/safestack.h>
0b9f90f5	18	#include <openssl/trace.h>
ece9304c RL	19	#include "internal/provider.h"
	20	#include "internal/property.h"
	21	#include "crypto/evp.h"
	22	#include "encoder_local.h"
	23
b8975c68 RL	24	DEFINE_STACK_OF(OSSL_ENCODER)
b8975c68 RL	25
ece9304c RL	26	int OSSL_ENCODER_CTX_set_cipher(OSSL_ENCODER_CTX *ctx,
	27	const char *cipher_name,
	28	const char *propquery)
	29	{
	30	OSSL_PARAM params[] = { OSSL_PARAM_END, OSSL_PARAM_END, OSSL_PARAM_END };
	31
	32	params[0] =
	33	OSSL_PARAM_construct_utf8_string(OSSL_ENCODER_PARAM_CIPHER,
	34	(void *)cipher_name, 0);
	35	params[1] =
	36	OSSL_PARAM_construct_utf8_string(OSSL_ENCODER_PARAM_PROPERTIES,
	37	(void *)propquery, 0);
	38
	39	return OSSL_ENCODER_CTX_set_params(ctx, params);
	40	}
	41
	42	int OSSL_ENCODER_CTX_set_passphrase(OSSL_ENCODER_CTX *ctx,
	43	const unsigned char *kstr,
	44	size_t klen)
	45	{
8ae40cf5	46	return ossl_pw_set_passphrase(&ctx->pwdata, kstr, klen);
ece9304c RL	47	}
ece9304c RL	48
ece9304c RL	49	int OSSL_ENCODER_CTX_set_passphrase_ui(OSSL_ENCODER_CTX *ctx,
	50	const UI_METHOD *ui_method,
	51	void *ui_data)
	52	{
a517edec	53	return ossl_pw_set_ui_method(&ctx->pwdata, ui_method, ui_data);
ece9304c RL	54	}
ece9304c RL	55
b8975c68 RL	56	int OSSL_ENCODER_CTX_set_pem_password_cb(OSSL_ENCODER_CTX *ctx,
b8975c68 RL	57	pem_password_cb cb, void cbarg)
ece9304c	58	{
a517edec	59	return ossl_pw_set_pem_password_cb(&ctx->pwdata, cb, cbarg);
ece9304c RL	60	}
ece9304c RL	61
b8975c68 RL	62	int OSSL_ENCODER_CTX_set_passphrase_cb(OSSL_ENCODER_CTX *ctx,
	63	OSSL_PASSPHRASE_CALLBACK *cb,
	64	void *cbarg)
	65	{
	66	return ossl_pw_set_ossl_passphrase_cb(&ctx->pwdata, cb, cbarg);
	67	}
	68
ece9304c	69	/*
fe75766c	70	* Support for OSSL_ENCODER_CTX_new_for_type:
ece9304c RL	71	* finding a suitable encoder
	72	*/
	73
b8975c68	74	struct collected_encoder_st {
b9a2afdf RL	75	STACK_OF(OPENSSL_CSTRING) *names;
b9a2afdf RL	76	const char *output_structure;
b8975c68	77	const char *output_type;
b9a2afdf	78
021521aa	79	const OSSL_PROVIDER *keymgmt_prov;
b9a2afdf	80	OSSL_ENCODER_CTX *ctx;
f616ad4b	81	unsigned int flag_find_same_provider:1;
b9a2afdf	82
e3a2ba75	83	int error_occurred;
b8975c68 RL	84	};
	85
	86	static void collect_encoder(OSSL_ENCODER encoder, void arg)
	87	{
	88	struct collected_encoder_st *data = arg;
b9a2afdf	89	size_t i, end_i;
b8975c68	90
e3a2ba75	91	if (data->error_occurred)
b8975c68 RL	92	return;
b8975c68 RL	93
e3a2ba75	94	data->error_occurred = 1; /* Assume the worst */
b9a2afdf RL	95
b9a2afdf RL	96	if (data->names == NULL)
b8975c68 RL	97	return;
b8975c68 RL	98
b9a2afdf RL	99	end_i = sk_OPENSSL_CSTRING_num(data->names);
	100	for (i = 0; i < end_i; i++) {
	101	const char *name = sk_OPENSSL_CSTRING_value(data->names, i);
ed576acd	102	const OSSL_PROVIDER *prov = OSSL_ENCODER_get0_provider(encoder);
b9a2afdf	103	void *provctx = OSSL_PROVIDER_get0_provider_ctx(prov);
b8975c68	104
f616ad4b RL	105	/*
	106	* collect_encoder() is called in two passes, one where the encoders
	107	* from the same provider as the keymgmt are looked up, and one where
	108	* the other encoders are looked up. \|data->flag_find_same_provider\|
	109	* tells us which pass we're in.
	110	*/
	111	if ((data->keymgmt_prov == prov) != data->flag_find_same_provider)
	112	continue;
	113
b9a2afdf RL	114	if (!OSSL_ENCODER_is_a(encoder, name)
b9a2afdf RL	115	\|\| (encoder->does_selection != NULL
021521aa PG	116	&& !encoder->does_selection(provctx, data->ctx->selection))
	117	\|\| (data->keymgmt_prov != prov
	118	&& encoder->import_object == NULL))
b9a2afdf RL	119	continue;
	120
	121	/* Only add each encoder implementation once */
	122	if (OSSL_ENCODER_CTX_add_encoder(data->ctx, encoder))
	123	break;
b8975c68 RL	124	}
b8975c68 RL	125
e3a2ba75	126	data->error_occurred = 0; /* All is good now */
b8975c68 RL	127	}
	128
	129	struct collected_names_st {
ece9304c	130	STACK_OF(OPENSSL_CSTRING) *names;
e3a2ba75	131	unsigned int error_occurred:1;
ece9304c RL	132	};
ece9304c RL	133
b8975c68	134	static void collect_name(const char name, void arg)
ece9304c	135	{
b8975c68 RL	136	struct collected_names_st *data = arg;
b8975c68 RL	137
e3a2ba75	138	if (data->error_occurred)
b8975c68 RL	139	return;
b8975c68 RL	140
e3a2ba75	141	data->error_occurred = 1; /* Assume the worst */
ece9304c	142
b8975c68 RL	143	if (sk_OPENSSL_CSTRING_push(data->names, name) <= 0)
	144	return;
	145
e3a2ba75	146	data->error_occurred = 0; /* All is good now */
ece9304c RL	147	}
	148
	149	/*
	150	* Support for OSSL_ENCODER_to_bio:
	151	* writing callback for the OSSL_PARAM (the implementation doesn't have
	152	* intimate knowledge of the provider side object)
	153	*/
	154
b8975c68 RL	155	struct construct_data_st {
	156	const EVP_PKEY *pk;
	157	int selection;
	158
	159	OSSL_ENCODER_INSTANCE *encoder_inst;
	160	const void *obj;
	161	void *constructed_obj;
ece9304c RL	162	};
ece9304c RL	163
b8975c68	164	static int encoder_import_cb(const OSSL_PARAM params[], void *arg)
ece9304c	165	{
b8975c68 RL	166	struct construct_data_st *construct_data = arg;
	167	OSSL_ENCODER_INSTANCE *encoder_inst = construct_data->encoder_inst;
	168	OSSL_ENCODER *encoder = OSSL_ENCODER_INSTANCE_get_encoder(encoder_inst);
	169	void *encoderctx = OSSL_ENCODER_INSTANCE_get_encoder_ctx(encoder_inst);
ece9304c	170
b8975c68 RL	171	construct_data->constructed_obj =
b8975c68 RL	172	encoder->import_object(encoderctx, construct_data->selection, params);
ece9304c	173
b8975c68 RL	174	return (construct_data->constructed_obj != NULL);
	175	}
	176
	177	static const void *
fe75766c	178	encoder_construct_pkey(OSSL_ENCODER_INSTANCE encoder_inst, void arg)
ece9304c	179	{
b8975c68 RL	180	struct construct_data_st *data = arg;
	181
	182	if (data->obj == NULL) {
	183	OSSL_ENCODER *encoder =
	184	OSSL_ENCODER_INSTANCE_get_encoder(encoder_inst);
	185	const EVP_PKEY *pk = data->pk;
ed576acd TM	186	const OSSL_PROVIDER *k_prov = EVP_KEYMGMT_get0_provider(pk->keymgmt);
ed576acd TM	187	const OSSL_PROVIDER *e_prov = OSSL_ENCODER_get0_provider(encoder);
b8975c68 RL	188
	189	if (k_prov != e_prov) {
	190	data->encoder_inst = encoder_inst;
	191
	192	if (!evp_keymgmt_export(pk->keymgmt, pk->keydata, data->selection,
	193	&encoder_import_cb, data))
	194	return NULL;
	195	data->obj = data->constructed_obj;
	196	} else {
	197	data->obj = pk->keydata;
	198	}
	199	}
ece9304c	200
b8975c68 RL	201	return data->obj;
b8975c68 RL	202	}
ece9304c	203
fe75766c	204	static void encoder_destruct_pkey(void *arg)
b8975c68 RL	205	{
b8975c68 RL	206	struct construct_data_st *data = arg;
ece9304c	207
b8975c68 RL	208	if (data->encoder_inst != NULL) {
	209	OSSL_ENCODER *encoder =
	210	OSSL_ENCODER_INSTANCE_get_encoder(data->encoder_inst);
ece9304c	211
b8975c68	212	encoder->free_object(data->constructed_obj);
ece9304c	213	}
b8975c68	214	data->constructed_obj = NULL;
ece9304c RL	215	}
	216
	217	/*
fe75766c	218	* OSSL_ENCODER_CTX_new_for_pkey() returns a ctx with no encoder if
ece9304c	219	* it couldn't find a suitable encoder. This allows a caller to detect if
b8975c68	220	* a suitable encoder was found, with OSSL_ENCODER_CTX_get_num_encoder(),
ece9304c RL	221	* and to use fallback methods if the result is NULL.
ece9304c RL	222	*/
fe75766c TM	223	static int ossl_encoder_ctx_setup_for_pkey(OSSL_ENCODER_CTX *ctx,
	224	const EVP_PKEY *pkey,
	225	int selection,
	226	const char *propquery)
ece9304c	227	{
b8975c68	228	struct construct_data_st *data = NULL;
021521aa	229	const OSSL_PROVIDER *prov = NULL;
cbcbac64	230	OSSL_LIB_CTX *libctx = NULL;
b8975c68	231	int ok = 0;
ece9304c	232
b8975c68	233	if (!ossl_assert(ctx != NULL) \|\| !ossl_assert(pkey != NULL)) {
ece9304c	234	ERR_raise(ERR_LIB_OSSL_ENCODER, ERR_R_PASSED_NULL_PARAMETER);
b8975c68	235	return 0;
ece9304c RL	236	}
ece9304c RL	237
cbcbac64	238	if (evp_pkey_is_provided(pkey)) {
ed576acd	239	prov = EVP_KEYMGMT_get0_provider(pkey->keymgmt);
cbcbac64 RL	240	libctx = ossl_provider_libctx(prov);
	241	}
	242
b8975c68	243	if (pkey->keymgmt != NULL) {
b8975c68 RL	244	struct collected_encoder_st encoder_data;
b8975c68 RL	245	struct collected_names_st keymgmt_data;
ece9304c	246
b8975c68 RL	247	if ((data = OPENSSL_zalloc(sizeof(*data))) == NULL) {
	248	ERR_raise(ERR_LIB_OSSL_ENCODER, ERR_R_MALLOC_FAILURE);
	249	goto err;
	250	}
	251
ece9304c	252	/*
b9a2afdf RL	253	* Select the first encoder implementations in two steps.
b9a2afdf RL	254	* First, collect the keymgmt names, then the encoders that match.
ece9304c	255	*/
b8975c68	256	keymgmt_data.names = sk_OPENSSL_CSTRING_new_null();
e3a2ba75	257	keymgmt_data.error_occurred = 0;
b8975c68	258	EVP_KEYMGMT_names_do_all(pkey->keymgmt, collect_name, &keymgmt_data);
e3a2ba75	259	if (keymgmt_data.error_occurred) {
b9a2afdf RL	260	sk_OPENSSL_CSTRING_free(keymgmt_data.names);
b9a2afdf RL	261	goto err;
ece9304c	262	}
b8975c68	263
b9a2afdf RL	264	encoder_data.names = keymgmt_data.names;
	265	encoder_data.output_type = ctx->output_type;
	266	encoder_data.output_structure = ctx->output_structure;
e3a2ba75	267	encoder_data.error_occurred = 0;
021521aa	268	encoder_data.keymgmt_prov = prov;
b9a2afdf	269	encoder_data.ctx = ctx;
f616ad4b RL	270
	271	/*
	272	* Place the encoders with the a different provider as the keymgmt
	273	* last (the chain is processed in reverse order)
	274	*/
	275	encoder_data.flag_find_same_provider = 0;
	276	OSSL_ENCODER_do_all_provided(libctx, collect_encoder, &encoder_data);
	277
	278	/*
	279	* Place the encoders with the same provider as the keymgmt first
	280	* (the chain is processed in reverse order)
	281	*/
	282	encoder_data.flag_find_same_provider = 1;
b9a2afdf	283	OSSL_ENCODER_do_all_provided(libctx, collect_encoder, &encoder_data);
f616ad4b	284
b8975c68	285	sk_OPENSSL_CSTRING_free(keymgmt_data.names);
e3a2ba75	286	if (encoder_data.error_occurred) {
b9a2afdf RL	287	ERR_raise(ERR_LIB_OSSL_ENCODER, ERR_R_MALLOC_FAILURE);
	288	goto err;
	289	}
ece9304c RL	290	}
ece9304c RL	291
3c4c8dd8	292	if (data != NULL && OSSL_ENCODER_CTX_get_num_encoders(ctx) != 0) {
fe75766c	293	if (!OSSL_ENCODER_CTX_set_construct(ctx, encoder_construct_pkey)
b8975c68	294	\|\| !OSSL_ENCODER_CTX_set_construct_data(ctx, data)
fe75766c	295	\|\| !OSSL_ENCODER_CTX_set_cleanup(ctx, encoder_destruct_pkey))
b8975c68	296	goto err;
ece9304c	297
b8975c68 RL	298	data->pk = pkey;
	299	data->selection = selection;
	300
	301	data = NULL; /* Avoid it being freed */
ece9304c RL	302	}
ece9304c RL	303
b8975c68 RL	304	ok = 1;
	305	err:
	306	if (data != NULL) {
	307	OSSL_ENCODER_CTX_set_construct_data(ctx, NULL);
	308	OPENSSL_free(data);
	309	}
	310	return ok;
ece9304c RL	311	}
ece9304c RL	312
fe75766c TM	313	OSSL_ENCODER_CTX OSSL_ENCODER_CTX_new_for_pkey(const EVP_PKEY pkey,
	314	int selection,
	315	const char *output_type,
	316	const char *output_struct,
	317	const char *propquery)
b8975c68 RL	318	{
b8975c68 RL	319	OSSL_ENCODER_CTX *ctx = NULL;
cbcbac64 RL	320	OSSL_LIB_CTX *libctx = NULL;
	321
	322	if (pkey == NULL) {
	323	ERR_raise(ERR_LIB_OSSL_ENCODER, ERR_R_PASSED_NULL_PARAMETER);
	324	return NULL;
	325	}
	326
	327	if (!evp_pkey_is_assigned(pkey)) {
	328	ERR_raise_data(ERR_LIB_OSSL_ENCODER, ERR_R_PASSED_INVALID_ARGUMENT,
	329	"The passed EVP_PKEY must be assigned a key");
	330	return NULL;
	331	}
b8975c68 RL	332
	333	if ((ctx = OSSL_ENCODER_CTX_new()) == NULL) {
	334	ERR_raise(ERR_LIB_OSSL_ENCODER, ERR_R_MALLOC_FAILURE);
	335	return NULL;
	336	}
0b9f90f5	337
cbcbac64	338	if (evp_pkey_is_provided(pkey)) {
ed576acd	339	const OSSL_PROVIDER *prov = EVP_KEYMGMT_get0_provider(pkey->keymgmt);
cbcbac64 RL	340
	341	libctx = ossl_provider_libctx(prov);
	342	}
	343
0b9f90f5 RL	344	OSSL_TRACE_BEGIN(ENCODER) {
	345	BIO_printf(trc_out,
	346	"(ctx %p) Looking for %s encoders with selection %d\n",
ddf0d149	347	(void *)ctx, EVP_PKEY_get0_type_name(pkey), selection);
0b9f90f5 RL	348	BIO_printf(trc_out, " output type: %s, output structure: %s\n",
	349	output_type, output_struct);
	350	} OSSL_TRACE_END(ENCODER);
	351
b8975c68	352	if (OSSL_ENCODER_CTX_set_output_type(ctx, output_type)
b9a2afdf RL	353	&& (output_struct == NULL
b9a2afdf RL	354	\|\| OSSL_ENCODER_CTX_set_output_structure(ctx, output_struct))
b8975c68	355	&& OSSL_ENCODER_CTX_set_selection(ctx, selection)
fe75766c	356	&& ossl_encoder_ctx_setup_for_pkey(ctx, pkey, selection, propquery)
0b9f90f5	357	&& OSSL_ENCODER_CTX_add_extra(ctx, libctx, propquery)) {
78043fe8 TM	358	OSSL_PARAM params[2] = { OSSL_PARAM_END, OSSL_PARAM_END };
	359	int save_parameters = pkey->save_parameters;
	360
	361	params[0] = OSSL_PARAM_construct_int(OSSL_ENCODER_PARAM_SAVE_PARAMETERS,
	362	&save_parameters);
	363	/* ignoring error as this is only auxiliary parameter */
	364	(void)OSSL_ENCODER_CTX_set_params(ctx, params);
	365
0b9f90f5 RL	366	OSSL_TRACE_BEGIN(ENCODER) {
	367	BIO_printf(trc_out, "(ctx %p) Got %d encoders\n",
	368	(void *)ctx, OSSL_ENCODER_CTX_get_num_encoders(ctx));
	369	} OSSL_TRACE_END(ENCODER);
b8975c68	370	return ctx;
0b9f90f5	371	}
b8975c68 RL	372
	373	OSSL_ENCODER_CTX_free(ctx);
	374	return NULL;
	375	}