/src/openssl/providers/implementations/kdfs/hmacdrbg_kdf.c

Source (jump to first uncovered line)
/*
 * Copyright 2022-2024 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 <stdlib.h>
#include <string.h>
#include <openssl/crypto.h>
#include <openssl/err.h>
#include <openssl/kdf.h>
#include <openssl/proverr.h>
#include <openssl/core_names.h>
#include "internal/common.h"
#include "prov/providercommon.h"
#include "prov/implementations.h"
#include "prov/hmac_drbg.h"
#include "prov/provider_ctx.h"

static OSSL_FUNC_kdf_newctx_fn hmac_drbg_kdf_new;
static OSSL_FUNC_kdf_dupctx_fn hmac_drbg_kdf_dup;
static OSSL_FUNC_kdf_freectx_fn hmac_drbg_kdf_free;
static OSSL_FUNC_kdf_reset_fn hmac_drbg_kdf_reset;
static OSSL_FUNC_kdf_derive_fn hmac_drbg_kdf_derive;
static OSSL_FUNC_kdf_settable_ctx_params_fn hmac_drbg_kdf_settable_ctx_params;
static OSSL_FUNC_kdf_set_ctx_params_fn hmac_drbg_kdf_set_ctx_params;
static OSSL_FUNC_kdf_gettable_ctx_params_fn hmac_drbg_kdf_gettable_ctx_params;
static OSSL_FUNC_kdf_get_ctx_params_fn hmac_drbg_kdf_get_ctx_params;

typedef struct {
    PROV_DRBG_HMAC base;
    void *provctx;
    unsigned char *entropy, *nonce;
    size_t entropylen, noncelen;
    int init;
} KDF_HMAC_DRBG;

static void *hmac_drbg_kdf_new(void *provctx)
{
    KDF_HMAC_DRBG *ctx;

    if (!ossl_prov_is_running())
        return NULL;

    ctx = OPENSSL_zalloc(sizeof(*ctx));
    if (ctx == NULL) {
        ERR_raise(ERR_LIB_PROV, ERR_R_MALLOC_FAILURE);
        return NULL;
    }
    ctx->provctx = provctx;
    return ctx;
}

static void hmac_drbg_kdf_reset(void *vctx)
{
    KDF_HMAC_DRBG *ctx = (KDF_HMAC_DRBG *)vctx;
    PROV_DRBG_HMAC *drbg = &ctx->base;
    void *provctx = ctx->provctx;

    EVP_MAC_CTX_free(drbg->ctx);
    ossl_prov_digest_reset(&drbg->digest);
    OPENSSL_clear_free(ctx->entropy, ctx->entropylen);
    OPENSSL_clear_free(ctx->nonce, ctx->noncelen);
    OPENSSL_cleanse(ctx, sizeof(*ctx));
    ctx->provctx = provctx;
}

static void hmac_drbg_kdf_free(void *vctx)
{
    KDF_HMAC_DRBG *ctx = (KDF_HMAC_DRBG *)vctx;

    if (ctx != NULL) {
        hmac_drbg_kdf_reset(ctx);
        OPENSSL_free(ctx);
    }
}

static int ossl_drbg_hmac_dup(PROV_DRBG_HMAC *dst, const PROV_DRBG_HMAC *src) {
    if (src->ctx != NULL) {
        dst->ctx = EVP_MAC_CTX_dup(src->ctx);
        if (dst->ctx == NULL)
            return 0;
    }
    if (!ossl_prov_digest_copy(&dst->digest, &src->digest))
        return 0;
    memcpy(dst->K, src->K, sizeof(dst->K));
    memcpy(dst->V, src->V, sizeof(dst->V));
    dst->blocklen = src->blocklen;
    return 1;
}

static void *hmac_drbg_kdf_dup(void *vctx)
{
    const KDF_HMAC_DRBG *src = (const KDF_HMAC_DRBG *)vctx;
    KDF_HMAC_DRBG *dst;

    dst = hmac_drbg_kdf_new(src->provctx);
    if (dst != NULL) {
        if (!ossl_drbg_hmac_dup(&dst->base, &src->base)
                || !ossl_prov_memdup(src->entropy, src->entropylen,
                                     &dst->entropy , &dst->entropylen)
                || !ossl_prov_memdup(src->nonce, src->noncelen,
                                     &dst->nonce, &dst->noncelen))
            goto err;
        dst->init = src->init;
    }
    return dst;

 err:
    hmac_drbg_kdf_free(dst);
    return NULL;
}

static int hmac_drbg_kdf_derive(void *vctx, unsigned char *out, size_t outlen,
                                const OSSL_PARAM params[])
{
    KDF_HMAC_DRBG *ctx = (KDF_HMAC_DRBG *)vctx;
    PROV_DRBG_HMAC *drbg = &ctx->base;

    if (!ossl_prov_is_running()
            || !hmac_drbg_kdf_set_ctx_params(vctx, params))
        return 0;
    if (!ctx->init) {
        if (ctx->entropy == NULL
                || ctx->entropylen == 0
                || ctx->nonce == NULL
                || ctx->noncelen == 0
                || !ossl_drbg_hmac_init(drbg, ctx->entropy, ctx->entropylen,
                                        ctx->nonce, ctx->noncelen, NULL, 0))
            return 0;
        ctx->init = 1;
    }

    return ossl_drbg_hmac_generate(drbg, out, outlen, NULL, 0);
}

/* Machine generated by util/perl/OpenSSL/paramnames.pm */
#ifndef hmac_drbg_kdf_get_ctx_params_list
static const OSSL_PARAM hmac_drbg_kdf_get_ctx_params_list[] = {
    OSSL_PARAM_utf8_string(OSSL_KDF_PARAM_MAC, NULL, 0),
    OSSL_PARAM_utf8_string(OSSL_KDF_PARAM_DIGEST, NULL, 0),
    OSSL_PARAM_END
};
#endif

#ifndef hmac_drbg_kdf_get_ctx_params_st
struct hmac_drbg_kdf_get_ctx_params_st {
    OSSL_PARAM *digest;
    OSSL_PARAM *mac;
};
#endif

#ifndef hmac_drbg_kdf_get_ctx_params_decoder
static int hmac_drbg_kdf_get_ctx_params_decoder
    (const OSSL_PARAM *p, struct hmac_drbg_kdf_get_ctx_params_st *r)
{
    const char *s;

    memset(r, 0, sizeof(*r));
    if (p != NULL)
        for (; (s = p->key) != NULL; p++)
            switch(s[0]) {
            default:
                break;
            case 'd':
                if (ossl_likely(strcmp("igest", s + 1) == 0)) {
                    /* KDF_PARAM_DIGEST */
                    if (ossl_unlikely(r->digest != NULL)) {
                        ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
                                       "param %s is repeated", s);
                        return 0;
                    }
                    r->digest = (OSSL_PARAM *)p;
                }
                break;
            case 'm':
                if (ossl_likely(strcmp("ac", s + 1) == 0)) {
                    /* KDF_PARAM_MAC */
                    if (ossl_unlikely(r->mac != NULL)) {
                        ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
                                       "param %s is repeated", s);
                        return 0;
                    }
                    r->mac = (OSSL_PARAM *)p;
                }
            }
    return 1;
}
#endif
/* End of machine generated */

static int hmac_drbg_kdf_get_ctx_params(void *vctx, OSSL_PARAM params[])
{
    KDF_HMAC_DRBG *hmac = (KDF_HMAC_DRBG *)vctx;
    PROV_DRBG_HMAC *drbg = &hmac->base;
    const char *name;
    const EVP_MD *md;
    struct hmac_drbg_kdf_get_ctx_params_st p;

    if (hmac == NULL || !hmac_drbg_kdf_get_ctx_params_decoder(params, &p))
        return 0;

    if (p.mac != NULL) {
        if (drbg->ctx == NULL)
            return 0;
        name = EVP_MAC_get0_name(EVP_MAC_CTX_get0_mac(drbg->ctx));
        if (!OSSL_PARAM_set_utf8_string(p.mac, name))
            return 0;
    }

    if (p.digest != NULL) {
        md = ossl_prov_digest_md(&drbg->digest);
        if (md == NULL
                || !OSSL_PARAM_set_utf8_string(p.digest, EVP_MD_get0_name(md)))
            return 0;
    }
    return 1;
}

static const OSSL_PARAM *hmac_drbg_kdf_gettable_ctx_params(
    ossl_unused void *vctx, ossl_unused void *p_ctx)
{
    return hmac_drbg_kdf_get_ctx_params_list;
}

/* Machine generated by util/perl/OpenSSL/paramnames.pm */
#ifndef hmac_drbg_kdf_set_ctx_params_list
static const OSSL_PARAM hmac_drbg_kdf_set_ctx_params_list[] = {
    OSSL_PARAM_utf8_string(OSSL_KDF_PARAM_PROPERTIES, NULL, 0),
    OSSL_PARAM_utf8_string(OSSL_KDF_PARAM_DIGEST, NULL, 0),
    OSSL_PARAM_octet_string(OSSL_KDF_PARAM_HMACDRBG_ENTROPY, NULL, 0),
    OSSL_PARAM_octet_string(OSSL_KDF_PARAM_HMACDRBG_NONCE, NULL, 0),
    OSSL_PARAM_END
};
#endif

#ifndef hmac_drbg_kdf_set_ctx_params_st
struct hmac_drbg_kdf_set_ctx_params_st {
    OSSL_PARAM *digest;
    OSSL_PARAM *engine;
    OSSL_PARAM *ent;
    OSSL_PARAM *nonce;
    OSSL_PARAM *propq;
};
#endif

#ifndef hmac_drbg_kdf_set_ctx_params_decoder
static int hmac_drbg_kdf_set_ctx_params_decoder
    (const OSSL_PARAM *p, struct hmac_drbg_kdf_set_ctx_params_st *r)
{
    const char *s;

    memset(r, 0, sizeof(*r));
    if (p != NULL)
        for (; (s = p->key) != NULL; p++)
            switch(s[0]) {
            default:
                break;
            case 'd':
                if (ossl_likely(strcmp("igest", s + 1) == 0)) {
                    /* KDF_PARAM_DIGEST */
                    if (ossl_unlikely(r->digest != NULL)) {
                        ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
                                       "param %s is repeated", s);
                        return 0;
                    }
                    r->digest = (OSSL_PARAM *)p;
                }
                break;
            case 'e':
                switch(s[1]) {
                default:
                    break;
                case 'n':
                    switch(s[2]) {
                    default:
                        break;
                    case 'g':
                        if (ossl_likely(strcmp("ine", s + 3) == 0)) {
                            /* ALG_PARAM_ENGINE */
                            if (ossl_unlikely(r->engine != NULL)) {
                                ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
                                               "param %s is repeated", s);
                                return 0;
                            }
                            r->engine = (OSSL_PARAM *)p;
                        }
                        break;
                    case 't':
                        if (ossl_likely(strcmp("ropy", s + 3) == 0)) {
                            /* KDF_PARAM_HMACDRBG_ENTROPY */
                            if (ossl_unlikely(r->ent != NULL)) {
                                ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
                                               "param %s is repeated", s);
                                return 0;
                            }
                            r->ent = (OSSL_PARAM *)p;
                        }
                    }
                }
                break;
            case 'n':
                if (ossl_likely(strcmp("once", s + 1) == 0)) {
                    /* KDF_PARAM_HMACDRBG_NONCE */
                    if (ossl_unlikely(r->nonce != NULL)) {
                        ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
                                       "param %s is repeated", s);
                        return 0;
                    }
                    r->nonce = (OSSL_PARAM *)p;
                }
                break;
            case 'p':
                if (ossl_likely(strcmp("roperties", s + 1) == 0)) {
                    /* KDF_PARAM_PROPERTIES */
                    if (ossl_unlikely(r->propq != NULL)) {
                        ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
                                       "param %s is repeated", s);
                        return 0;
                    }
                    r->propq = (OSSL_PARAM *)p;
                }
            }
    return 1;
}
#endif
/* End of machine generated */

static int hmac_drbg_kdf_set_ctx_params(void *vctx,
                                        const OSSL_PARAM params[])
{
    KDF_HMAC_DRBG *hmac = (KDF_HMAC_DRBG *)vctx;
    PROV_DRBG_HMAC *drbg;
    OSSL_LIB_CTX *libctx;
    const EVP_MD *md;
    struct hmac_drbg_kdf_set_ctx_params_st p;
    void *ptr = NULL;
    size_t size = 0;
    int md_size;

    if (hmac == NULL || !hmac_drbg_kdf_set_ctx_params_decoder(params, &p))
        return 0;

    drbg = &hmac->base;
    libctx = PROV_LIBCTX_OF(hmac->provctx);

    if (p.ent != NULL) {
        if (!OSSL_PARAM_get_octet_string(p.ent, &ptr, 0, &size))
            return 0;
        OPENSSL_free(hmac->entropy);
        hmac->entropy = ptr;
        hmac->entropylen = size;
        hmac->init = 0;
        ptr = NULL;
    }

    if (p.nonce != NULL) {
        if (!OSSL_PARAM_get_octet_string(p.nonce, &ptr, 0, &size))
            return 0;
        OPENSSL_free(hmac->nonce);
        hmac->nonce = ptr;
        hmac->noncelen = size;
        hmac->init = 0;
    }

    if (p.digest != NULL) {
        if (!ossl_prov_digest_load(&drbg->digest, p.digest,
                                   p.propq, p.engine, libctx))
            return 0;

        /* Confirm digest is allowed. Allow all digests that are not XOF */
        md = ossl_prov_digest_md(&drbg->digest);
        if (md != NULL) {
            if (EVP_MD_xof(md)) {
                ERR_raise(ERR_LIB_PROV, PROV_R_XOF_DIGESTS_NOT_ALLOWED);
                return 0;
            }
            md_size = EVP_MD_get_size(md);
            if (md_size <= 0)
                return 0;
            drbg->blocklen = (size_t)md_size;
        }
        if (!ossl_prov_macctx_load(&drbg->ctx, NULL, NULL, p.digest, p.propq,
                                   p.engine, "HMAC", NULL, NULL, libctx))
            return 0;
    }
    return 1;
}

static const OSSL_PARAM *hmac_drbg_kdf_settable_ctx_params(
    ossl_unused void *vctx, ossl_unused void *p_ctx)
{
    return hmac_drbg_kdf_set_ctx_params_list;
}

const OSSL_DISPATCH ossl_kdf_hmac_drbg_functions[] = {
    { OSSL_FUNC_KDF_NEWCTX, (void(*)(void))hmac_drbg_kdf_new },
    { OSSL_FUNC_KDF_FREECTX, (void(*)(void))hmac_drbg_kdf_free },
    { OSSL_FUNC_KDF_DUPCTX, (void(*)(void))hmac_drbg_kdf_dup },
    { OSSL_FUNC_KDF_RESET, (void(*)(void))hmac_drbg_kdf_reset },
    { OSSL_FUNC_KDF_DERIVE, (void(*)(void))hmac_drbg_kdf_derive },
    { OSSL_FUNC_KDF_SETTABLE_CTX_PARAMS,
      (void(*)(void))hmac_drbg_kdf_settable_ctx_params },
    { OSSL_FUNC_KDF_SET_CTX_PARAMS,
      (void(*)(void))hmac_drbg_kdf_set_ctx_params },
    { OSSL_FUNC_KDF_GETTABLE_CTX_PARAMS,
      (void(*)(void))hmac_drbg_kdf_gettable_ctx_params },
    { OSSL_FUNC_KDF_GET_CTX_PARAMS,
      (void(*)(void))hmac_drbg_kdf_get_ctx_params },
    OSSL_DISPATCH_END
};

Coverage Report

Created: 2025-08-25 06:30

Line	Count	Source (jump to first uncovered line)
1		/*
2		* Copyright 2022-2024 The OpenSSL Project Authors. All Rights Reserved.
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
10
11		#include <stdlib.h>
12		#include <string.h>
13		#include <openssl/crypto.h>
14		#include <openssl/err.h>
15		#include <openssl/kdf.h>
16		#include <openssl/proverr.h>
17		#include <openssl/core_names.h>
18		#include "internal/common.h"
19		#include "prov/providercommon.h"
20		#include "prov/implementations.h"
21		#include "prov/hmac_drbg.h"
22		#include "prov/provider_ctx.h"
23
24		static OSSL_FUNC_kdf_newctx_fn hmac_drbg_kdf_new;
25		static OSSL_FUNC_kdf_dupctx_fn hmac_drbg_kdf_dup;
26		static OSSL_FUNC_kdf_freectx_fn hmac_drbg_kdf_free;
27		static OSSL_FUNC_kdf_reset_fn hmac_drbg_kdf_reset;
28		static OSSL_FUNC_kdf_derive_fn hmac_drbg_kdf_derive;
29		static OSSL_FUNC_kdf_settable_ctx_params_fn hmac_drbg_kdf_settable_ctx_params;
30		static OSSL_FUNC_kdf_set_ctx_params_fn hmac_drbg_kdf_set_ctx_params;
31		static OSSL_FUNC_kdf_gettable_ctx_params_fn hmac_drbg_kdf_gettable_ctx_params;
32		static OSSL_FUNC_kdf_get_ctx_params_fn hmac_drbg_kdf_get_ctx_params;
33
34		typedef struct {
35		PROV_DRBG_HMAC base;
36		void *provctx;
37		unsigned char entropy, nonce;
38		size_t entropylen, noncelen;
39		int init;
40		} KDF_HMAC_DRBG;
41
42		static void hmac_drbg_kdf_new(void provctx)
43	0	{
44	0	KDF_HMAC_DRBG *ctx;
45
46	0	if (!ossl_prov_is_running())
47	0	return NULL;
48
49	0	ctx = OPENSSL_zalloc(sizeof(*ctx));
50	0	if (ctx == NULL) {
51	0	ERR_raise(ERR_LIB_PROV, ERR_R_MALLOC_FAILURE);
52	0	return NULL;
53	0	}
54	0	ctx->provctx = provctx;
55	0	return ctx;
56	0	}
57
58		static void hmac_drbg_kdf_reset(void *vctx)
59	0	{
60	0	KDF_HMAC_DRBG ctx = (KDF_HMAC_DRBG )vctx;
61	0	PROV_DRBG_HMAC *drbg = &ctx->base;
62	0	void *provctx = ctx->provctx;
63
64	0	EVP_MAC_CTX_free(drbg->ctx);
65	0	ossl_prov_digest_reset(&drbg->digest);
66	0	OPENSSL_clear_free(ctx->entropy, ctx->entropylen);
67	0	OPENSSL_clear_free(ctx->nonce, ctx->noncelen);
68	0	OPENSSL_cleanse(ctx, sizeof(*ctx));
69	0	ctx->provctx = provctx;
70	0	}
71
72		static void hmac_drbg_kdf_free(void *vctx)
73	0	{
74	0	KDF_HMAC_DRBG ctx = (KDF_HMAC_DRBG )vctx;
75
76	0	if (ctx != NULL) {
77	0	hmac_drbg_kdf_reset(ctx);
78	0	OPENSSL_free(ctx);
79	0	}
80	0	}
81
82	0	static int ossl_drbg_hmac_dup(PROV_DRBG_HMAC dst, const PROV_DRBG_HMAC src) {
83	0	if (src->ctx != NULL) {
84	0	dst->ctx = EVP_MAC_CTX_dup(src->ctx);
85	0	if (dst->ctx == NULL)
86	0	return 0;
87	0	}
88	0	if (!ossl_prov_digest_copy(&dst->digest, &src->digest))
89	0	return 0;
90	0	memcpy(dst->K, src->K, sizeof(dst->K));
91	0	memcpy(dst->V, src->V, sizeof(dst->V));
92	0	dst->blocklen = src->blocklen;
93	0	return 1;
94	0	}
95
96		static void hmac_drbg_kdf_dup(void vctx)
97	0	{
98	0	const KDF_HMAC_DRBG src = (const KDF_HMAC_DRBG )vctx;
99	0	KDF_HMAC_DRBG *dst;
100
101	0	dst = hmac_drbg_kdf_new(src->provctx);
102	0	if (dst != NULL) {
103	0	if (!ossl_drbg_hmac_dup(&dst->base, &src->base)
104	0	\|\| !ossl_prov_memdup(src->entropy, src->entropylen,
105	0	&dst->entropy , &dst->entropylen)
106	0	\|\| !ossl_prov_memdup(src->nonce, src->noncelen,
107	0	&dst->nonce, &dst->noncelen))
108	0	goto err;
109	0	dst->init = src->init;
110	0	}
111	0	return dst;
112
113	0	err:
114	0	hmac_drbg_kdf_free(dst);
115	0	return NULL;
116	0	}
117
118		static int hmac_drbg_kdf_derive(void vctx, unsigned char out, size_t outlen,
119		const OSSL_PARAM params[])
120	0	{
121	0	KDF_HMAC_DRBG ctx = (KDF_HMAC_DRBG )vctx;
122	0	PROV_DRBG_HMAC *drbg = &ctx->base;
123
124	0	if (!ossl_prov_is_running()
125	0	\|\| !hmac_drbg_kdf_set_ctx_params(vctx, params))
126	0	return 0;
127	0	if (!ctx->init) {
128	0	if (ctx->entropy == NULL
129	0	\|\| ctx->entropylen == 0
130	0	\|\| ctx->nonce == NULL
131	0	\|\| ctx->noncelen == 0
132	0	\|\| !ossl_drbg_hmac_init(drbg, ctx->entropy, ctx->entropylen,
133	0	ctx->nonce, ctx->noncelen, NULL, 0))
134	0	return 0;
135	0	ctx->init = 1;
136	0	}
137
138	0	return ossl_drbg_hmac_generate(drbg, out, outlen, NULL, 0);
139	0	}
140
141		/* Machine generated by util/perl/OpenSSL/paramnames.pm */
142		#ifndef hmac_drbg_kdf_get_ctx_params_list
143		static const OSSL_PARAM hmac_drbg_kdf_get_ctx_params_list[] = {
144		OSSL_PARAM_utf8_string(OSSL_KDF_PARAM_MAC, NULL, 0),
145		OSSL_PARAM_utf8_string(OSSL_KDF_PARAM_DIGEST, NULL, 0),
146		OSSL_PARAM_END
147		};
148		#endif
149
150		#ifndef hmac_drbg_kdf_get_ctx_params_st
151		struct hmac_drbg_kdf_get_ctx_params_st {
152		OSSL_PARAM *digest;
153		OSSL_PARAM *mac;
154		};
155		#endif
156
157		#ifndef hmac_drbg_kdf_get_ctx_params_decoder
158		static int hmac_drbg_kdf_get_ctx_params_decoder
159		(const OSSL_PARAM p, struct hmac_drbg_kdf_get_ctx_params_st r)
160	0	{
161	0	const char *s;
162
163	0	memset(r, 0, sizeof(*r));
164	0	if (p != NULL)
165	0	for (; (s = p->key) != NULL; p++)
166	0	switch(s[0]) {
167	0	default:
168	0	break;
169	0	case 'd':
170	0	if (ossl_likely(strcmp("igest", s + 1) == 0)) {
171		/* KDF_PARAM_DIGEST */
172	0	if (ossl_unlikely(r->digest != NULL)) {
173	0	ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
174	0	"param %s is repeated", s);
175	0	return 0;
176	0	}
177	0	r->digest = (OSSL_PARAM *)p;
178	0	}
179	0	break;
180	0	case 'm':
181	0	if (ossl_likely(strcmp("ac", s + 1) == 0)) {
182		/* KDF_PARAM_MAC */
183	0	if (ossl_unlikely(r->mac != NULL)) {
184	0	ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
185	0	"param %s is repeated", s);
186	0	return 0;
187	0	}
188	0	r->mac = (OSSL_PARAM *)p;
189	0	}
190	0	}
191	0	return 1;
192	0	}
193		#endif
194		/* End of machine generated */
195
196		static int hmac_drbg_kdf_get_ctx_params(void *vctx, OSSL_PARAM params[])
197	0	{
198	0	KDF_HMAC_DRBG hmac = (KDF_HMAC_DRBG )vctx;
199	0	PROV_DRBG_HMAC *drbg = &hmac->base;
200	0	const char *name;
201	0	const EVP_MD *md;
202	0	struct hmac_drbg_kdf_get_ctx_params_st p;
203
204	0	if (hmac == NULL \|\| !hmac_drbg_kdf_get_ctx_params_decoder(params, &p))
205	0	return 0;
206
207	0	if (p.mac != NULL) {
208	0	if (drbg->ctx == NULL)
209	0	return 0;
210	0	name = EVP_MAC_get0_name(EVP_MAC_CTX_get0_mac(drbg->ctx));
211	0	if (!OSSL_PARAM_set_utf8_string(p.mac, name))
212	0	return 0;
213	0	}
214
215	0	if (p.digest != NULL) {
216	0	md = ossl_prov_digest_md(&drbg->digest);
217	0	if (md == NULL
218	0	\|\| !OSSL_PARAM_set_utf8_string(p.digest, EVP_MD_get0_name(md)))
219	0	return 0;
220	0	}
221	0	return 1;
222	0	}
223
224		static const OSSL_PARAM *hmac_drbg_kdf_gettable_ctx_params(
225		ossl_unused void vctx, ossl_unused void p_ctx)
226	0	{
227	0	return hmac_drbg_kdf_get_ctx_params_list;
228	0	}
229
230		/* Machine generated by util/perl/OpenSSL/paramnames.pm */
231		#ifndef hmac_drbg_kdf_set_ctx_params_list
232		static const OSSL_PARAM hmac_drbg_kdf_set_ctx_params_list[] = {
233		OSSL_PARAM_utf8_string(OSSL_KDF_PARAM_PROPERTIES, NULL, 0),
234		OSSL_PARAM_utf8_string(OSSL_KDF_PARAM_DIGEST, NULL, 0),
235		OSSL_PARAM_octet_string(OSSL_KDF_PARAM_HMACDRBG_ENTROPY, NULL, 0),
236		OSSL_PARAM_octet_string(OSSL_KDF_PARAM_HMACDRBG_NONCE, NULL, 0),
237		OSSL_PARAM_END
238		};
239		#endif
240
241		#ifndef hmac_drbg_kdf_set_ctx_params_st
242		struct hmac_drbg_kdf_set_ctx_params_st {
243		OSSL_PARAM *digest;
244		OSSL_PARAM *engine;
245		OSSL_PARAM *ent;
246		OSSL_PARAM *nonce;
247		OSSL_PARAM *propq;
248		};
249		#endif
250
251		#ifndef hmac_drbg_kdf_set_ctx_params_decoder
252		static int hmac_drbg_kdf_set_ctx_params_decoder
253		(const OSSL_PARAM p, struct hmac_drbg_kdf_set_ctx_params_st r)
254	0	{
255	0	const char *s;
256
257	0	memset(r, 0, sizeof(*r));
258	0	if (p != NULL)
259	0	for (; (s = p->key) != NULL; p++)
260	0	switch(s[0]) {
261	0	default:
262	0	break;
263	0	case 'd':
264	0	if (ossl_likely(strcmp("igest", s + 1) == 0)) {
265		/* KDF_PARAM_DIGEST */
266	0	if (ossl_unlikely(r->digest != NULL)) {
267	0	ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
268	0	"param %s is repeated", s);
269	0	return 0;
270	0	}
271	0	r->digest = (OSSL_PARAM *)p;
272	0	}
273	0	break;
274	0	case 'e':
275	0	switch(s[1]) {
276	0	default:
277	0	break;
278	0	case 'n':
279	0	switch(s[2]) {
280	0	default:
281	0	break;
282	0	case 'g':
283	0	if (ossl_likely(strcmp("ine", s + 3) == 0)) {
284		/* ALG_PARAM_ENGINE */
285	0	if (ossl_unlikely(r->engine != NULL)) {
286	0	ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
287	0	"param %s is repeated", s);
288	0	return 0;
289	0	}
290	0	r->engine = (OSSL_PARAM *)p;
291	0	}
292	0	break;
293	0	case 't':
294	0	if (ossl_likely(strcmp("ropy", s + 3) == 0)) {
295		/* KDF_PARAM_HMACDRBG_ENTROPY */
296	0	if (ossl_unlikely(r->ent != NULL)) {
297	0	ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
298	0	"param %s is repeated", s);
299	0	return 0;
300	0	}
301	0	r->ent = (OSSL_PARAM *)p;
302	0	}
303	0	}
304	0	}
305	0	break;
306	0	case 'n':
307	0	if (ossl_likely(strcmp("once", s + 1) == 0)) {
308		/* KDF_PARAM_HMACDRBG_NONCE */
309	0	if (ossl_unlikely(r->nonce != NULL)) {
310	0	ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
311	0	"param %s is repeated", s);
312	0	return 0;
313	0	}
314	0	r->nonce = (OSSL_PARAM *)p;
315	0	}
316	0	break;
317	0	case 'p':
318	0	if (ossl_likely(strcmp("roperties", s + 1) == 0)) {
319		/* KDF_PARAM_PROPERTIES */
320	0	if (ossl_unlikely(r->propq != NULL)) {
321	0	ERR_raise_data(ERR_LIB_PROV, PROV_R_REPEATED_PARAMETER,
322	0	"param %s is repeated", s);
323	0	return 0;
324	0	}
325	0	r->propq = (OSSL_PARAM *)p;
326	0	}
327	0	}
328	0	return 1;
329	0	}
330		#endif
331		/* End of machine generated */
332
333		static int hmac_drbg_kdf_set_ctx_params(void *vctx,
334		const OSSL_PARAM params[])
335	0	{
336	0	KDF_HMAC_DRBG hmac = (KDF_HMAC_DRBG )vctx;
337	0	PROV_DRBG_HMAC *drbg;
338	0	OSSL_LIB_CTX *libctx;
339	0	const EVP_MD *md;
340	0	struct hmac_drbg_kdf_set_ctx_params_st p;
341	0	void *ptr = NULL;
342	0	size_t size = 0;
343	0	int md_size;
344
345	0	if (hmac == NULL \|\| !hmac_drbg_kdf_set_ctx_params_decoder(params, &p))
346	0	return 0;
347
348	0	drbg = &hmac->base;
349	0	libctx = PROV_LIBCTX_OF(hmac->provctx);
350
351	0	if (p.ent != NULL) {
352	0	if (!OSSL_PARAM_get_octet_string(p.ent, &ptr, 0, &size))
353	0	return 0;
354	0	OPENSSL_free(hmac->entropy);
355	0	hmac->entropy = ptr;
356	0	hmac->entropylen = size;
357	0	hmac->init = 0;
358	0	ptr = NULL;
359	0	}
360
361	0	if (p.nonce != NULL) {
362	0	if (!OSSL_PARAM_get_octet_string(p.nonce, &ptr, 0, &size))
363	0	return 0;
364	0	OPENSSL_free(hmac->nonce);
365	0	hmac->nonce = ptr;
366	0	hmac->noncelen = size;
367	0	hmac->init = 0;
368	0	}
369
370	0	if (p.digest != NULL) {
371	0	if (!ossl_prov_digest_load(&drbg->digest, p.digest,
372	0	p.propq, p.engine, libctx))
373	0	return 0;
374
375		/* Confirm digest is allowed. Allow all digests that are not XOF */
376	0	md = ossl_prov_digest_md(&drbg->digest);
377	0	if (md != NULL) {
378	0	if (EVP_MD_xof(md)) {
379	0	ERR_raise(ERR_LIB_PROV, PROV_R_XOF_DIGESTS_NOT_ALLOWED);
380	0	return 0;
381	0	}
382	0	md_size = EVP_MD_get_size(md);
383	0	if (md_size <= 0)
384	0	return 0;
385	0	drbg->blocklen = (size_t)md_size;
386	0	}
387	0	if (!ossl_prov_macctx_load(&drbg->ctx, NULL, NULL, p.digest, p.propq,
388	0	p.engine, "HMAC", NULL, NULL, libctx))
389	0	return 0;
390	0	}
391	0	return 1;
392	0	}
393
394		static const OSSL_PARAM *hmac_drbg_kdf_settable_ctx_params(
395		ossl_unused void vctx, ossl_unused void p_ctx)
396	0	{
397	0	return hmac_drbg_kdf_set_ctx_params_list;
398	0	}
399
400		const OSSL_DISPATCH ossl_kdf_hmac_drbg_functions[] = {
401		{ OSSL_FUNC_KDF_NEWCTX, (void(*)(void))hmac_drbg_kdf_new },
402		{ OSSL_FUNC_KDF_FREECTX, (void(*)(void))hmac_drbg_kdf_free },
403		{ OSSL_FUNC_KDF_DUPCTX, (void(*)(void))hmac_drbg_kdf_dup },
404		{ OSSL_FUNC_KDF_RESET, (void(*)(void))hmac_drbg_kdf_reset },
405		{ OSSL_FUNC_KDF_DERIVE, (void(*)(void))hmac_drbg_kdf_derive },
406		{ OSSL_FUNC_KDF_SETTABLE_CTX_PARAMS,
407		(void(*)(void))hmac_drbg_kdf_settable_ctx_params },
408		{ OSSL_FUNC_KDF_SET_CTX_PARAMS,
409		(void(*)(void))hmac_drbg_kdf_set_ctx_params },
410		{ OSSL_FUNC_KDF_GETTABLE_CTX_PARAMS,
411		(void(*)(void))hmac_drbg_kdf_gettable_ctx_params },
412		{ OSSL_FUNC_KDF_GET_CTX_PARAMS,
413		(void(*)(void))hmac_drbg_kdf_get_ctx_params },
414		OSSL_DISPATCH_END
415		};