1 /*
2 * Copyright 2019-2025 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 #include <openssl/evp.h>
11 #include <openssl/err.h>
12 #include <openssl/core.h>
13 #include <openssl/core_dispatch.h>
14 #include <openssl/kdf.h>
15 #include "internal/provider.h"
16 #include "internal/core.h"
17 #include "crypto/evp.h"
18 #include "evp_local.h"
19
evp_kdf_up_ref(void * vkdf)20 static int evp_kdf_up_ref(void *vkdf)
21 {
22 EVP_KDF *kdf = (EVP_KDF *)vkdf;
23 int ref = 0;
24
25 CRYPTO_UP_REF(&kdf->refcnt, &ref);
26 return 1;
27 }
28
evp_kdf_free(void * vkdf)29 static void evp_kdf_free(void *vkdf)
30 {
31 EVP_KDF *kdf = (EVP_KDF *)vkdf;
32 int ref = 0;
33
34 if (kdf == NULL)
35 return;
36
37 CRYPTO_DOWN_REF(&kdf->refcnt, &ref);
38 if (ref > 0)
39 return;
40 OPENSSL_free(kdf->type_name);
41 ossl_provider_free(kdf->prov);
42 CRYPTO_FREE_REF(&kdf->refcnt);
43 OPENSSL_free(kdf);
44 }
45
evp_kdf_new(void)46 static void *evp_kdf_new(void)
47 {
48 EVP_KDF *kdf = NULL;
49
50 if ((kdf = OPENSSL_zalloc(sizeof(*kdf))) == NULL
51 || !CRYPTO_NEW_REF(&kdf->refcnt, 1)) {
52 OPENSSL_free(kdf);
53 return NULL;
54 }
55 return kdf;
56 }
57
evp_kdf_from_algorithm(int name_id,const OSSL_ALGORITHM * algodef,OSSL_PROVIDER * prov)58 static void *evp_kdf_from_algorithm(int name_id,
59 const OSSL_ALGORITHM *algodef,
60 OSSL_PROVIDER *prov)
61 {
62 const OSSL_DISPATCH *fns = algodef->implementation;
63 EVP_KDF *kdf = NULL;
64 int fnkdfcnt = 0, fnctxcnt = 0;
65
66 if ((kdf = evp_kdf_new()) == NULL) {
67 ERR_raise(ERR_LIB_EVP, ERR_R_EVP_LIB);
68 return NULL;
69 }
70 kdf->name_id = name_id;
71 if ((kdf->type_name = ossl_algorithm_get1_first_name(algodef)) == NULL)
72 goto err;
73
74 kdf->description = algodef->algorithm_description;
75
76 for (; fns->function_id != 0; fns++) {
77 switch (fns->function_id) {
78 case OSSL_FUNC_KDF_NEWCTX:
79 if (kdf->newctx != NULL)
80 break;
81 kdf->newctx = OSSL_FUNC_kdf_newctx(fns);
82 fnctxcnt++;
83 break;
84 case OSSL_FUNC_KDF_DUPCTX:
85 if (kdf->dupctx != NULL)
86 break;
87 kdf->dupctx = OSSL_FUNC_kdf_dupctx(fns);
88 break;
89 case OSSL_FUNC_KDF_FREECTX:
90 if (kdf->freectx != NULL)
91 break;
92 kdf->freectx = OSSL_FUNC_kdf_freectx(fns);
93 fnctxcnt++;
94 break;
95 case OSSL_FUNC_KDF_RESET:
96 if (kdf->reset != NULL)
97 break;
98 kdf->reset = OSSL_FUNC_kdf_reset(fns);
99 break;
100 case OSSL_FUNC_KDF_DERIVE:
101 if (kdf->derive != NULL)
102 break;
103 kdf->derive = OSSL_FUNC_kdf_derive(fns);
104 fnkdfcnt++;
105 break;
106 case OSSL_FUNC_KDF_GETTABLE_PARAMS:
107 if (kdf->gettable_params != NULL)
108 break;
109 kdf->gettable_params =
110 OSSL_FUNC_kdf_gettable_params(fns);
111 break;
112 case OSSL_FUNC_KDF_GETTABLE_CTX_PARAMS:
113 if (kdf->gettable_ctx_params != NULL)
114 break;
115 kdf->gettable_ctx_params =
116 OSSL_FUNC_kdf_gettable_ctx_params(fns);
117 break;
118 case OSSL_FUNC_KDF_SETTABLE_CTX_PARAMS:
119 if (kdf->settable_ctx_params != NULL)
120 break;
121 kdf->settable_ctx_params =
122 OSSL_FUNC_kdf_settable_ctx_params(fns);
123 break;
124 case OSSL_FUNC_KDF_GET_PARAMS:
125 if (kdf->get_params != NULL)
126 break;
127 kdf->get_params = OSSL_FUNC_kdf_get_params(fns);
128 break;
129 case OSSL_FUNC_KDF_GET_CTX_PARAMS:
130 if (kdf->get_ctx_params != NULL)
131 break;
132 kdf->get_ctx_params = OSSL_FUNC_kdf_get_ctx_params(fns);
133 break;
134 case OSSL_FUNC_KDF_SET_CTX_PARAMS:
135 if (kdf->set_ctx_params != NULL)
136 break;
137 kdf->set_ctx_params = OSSL_FUNC_kdf_set_ctx_params(fns);
138 break;
139 }
140 }
141 if (fnkdfcnt != 1 || fnctxcnt != 2) {
142 /*
143 * In order to be a consistent set of functions we must have at least
144 * a derive function, and a complete set of context management
145 * functions.
146 */
147 ERR_raise(ERR_LIB_EVP, EVP_R_INVALID_PROVIDER_FUNCTIONS);
148 goto err;
149 }
150 if (prov != NULL && !ossl_provider_up_ref(prov))
151 goto err;
152
153 kdf->prov = prov;
154
155 return kdf;
156
157 err:
158 evp_kdf_free(kdf);
159 return NULL;
160 }
161
EVP_KDF_fetch(OSSL_LIB_CTX * libctx,const char * algorithm,const char * properties)162 EVP_KDF *EVP_KDF_fetch(OSSL_LIB_CTX *libctx, const char *algorithm,
163 const char *properties)
164 {
165 return evp_generic_fetch(libctx, OSSL_OP_KDF, algorithm, properties,
166 evp_kdf_from_algorithm, evp_kdf_up_ref,
167 evp_kdf_free);
168 }
169
EVP_KDF_up_ref(EVP_KDF * kdf)170 int EVP_KDF_up_ref(EVP_KDF *kdf)
171 {
172 return evp_kdf_up_ref(kdf);
173 }
174
EVP_KDF_free(EVP_KDF * kdf)175 void EVP_KDF_free(EVP_KDF *kdf)
176 {
177 evp_kdf_free(kdf);
178 }
179
EVP_KDF_gettable_params(const EVP_KDF * kdf)180 const OSSL_PARAM *EVP_KDF_gettable_params(const EVP_KDF *kdf)
181 {
182 if (kdf->gettable_params == NULL)
183 return NULL;
184 return kdf->gettable_params(ossl_provider_ctx(EVP_KDF_get0_provider(kdf)));
185 }
186
EVP_KDF_gettable_ctx_params(const EVP_KDF * kdf)187 const OSSL_PARAM *EVP_KDF_gettable_ctx_params(const EVP_KDF *kdf)
188 {
189 void *alg;
190
191 if (kdf->gettable_ctx_params == NULL)
192 return NULL;
193 alg = ossl_provider_ctx(EVP_KDF_get0_provider(kdf));
194 return kdf->gettable_ctx_params(NULL, alg);
195 }
196
EVP_KDF_settable_ctx_params(const EVP_KDF * kdf)197 const OSSL_PARAM *EVP_KDF_settable_ctx_params(const EVP_KDF *kdf)
198 {
199 void *alg;
200
201 if (kdf->settable_ctx_params == NULL)
202 return NULL;
203 alg = ossl_provider_ctx(EVP_KDF_get0_provider(kdf));
204 return kdf->settable_ctx_params(NULL, alg);
205 }
206
EVP_KDF_CTX_gettable_params(EVP_KDF_CTX * ctx)207 const OSSL_PARAM *EVP_KDF_CTX_gettable_params(EVP_KDF_CTX *ctx)
208 {
209 void *alg;
210
211 if (ctx->meth->gettable_ctx_params == NULL)
212 return NULL;
213 alg = ossl_provider_ctx(EVP_KDF_get0_provider(ctx->meth));
214 return ctx->meth->gettable_ctx_params(ctx->algctx, alg);
215 }
216
EVP_KDF_CTX_settable_params(EVP_KDF_CTX * ctx)217 const OSSL_PARAM *EVP_KDF_CTX_settable_params(EVP_KDF_CTX *ctx)
218 {
219 void *alg;
220
221 if (ctx->meth->settable_ctx_params == NULL)
222 return NULL;
223 alg = ossl_provider_ctx(EVP_KDF_get0_provider(ctx->meth));
224 return ctx->meth->settable_ctx_params(ctx->algctx, alg);
225 }
226
EVP_KDF_do_all_provided(OSSL_LIB_CTX * libctx,void (* fn)(EVP_KDF * kdf,void * arg),void * arg)227 void EVP_KDF_do_all_provided(OSSL_LIB_CTX *libctx,
228 void (*fn)(EVP_KDF *kdf, void *arg),
229 void *arg)
230 {
231 evp_generic_do_all(libctx, OSSL_OP_KDF,
232 (void (*)(void *, void *))fn, arg,
233 evp_kdf_from_algorithm, evp_kdf_up_ref, evp_kdf_free);
234 }
235