d22bb39c82485d46018b05e7f72462aa660096cf
[openssl.git] / crypto / evp / kdf_lib.c
1 /*
2  * Copyright 2018-2020 The OpenSSL Project Authors. All Rights Reserved.
3  * Copyright (c) 2018-2019, Oracle and/or its affiliates.  All rights reserved.
4  *
5  * Licensed under the Apache License 2.0 (the "License").  You may not use
6  * this file except in compliance with the License.  You can obtain a copy
7  * in the file LICENSE in the source distribution or at
8  * https://www.openssl.org/source/license.html
9  */
10
11 #include <stdio.h>
12 #include <stdlib.h>
13 #include "internal/cryptlib.h"
14 #include <openssl/engine.h>
15 #include <openssl/evp.h>
16 #include <openssl/x509v3.h>
17 #include <openssl/kdf.h>
18 #include <openssl/core.h>
19 #include <openssl/core_names.h>
20 #include "crypto/asn1.h"
21 #include "crypto/evp.h"
22 #include "internal/numbers.h"
23 #include "internal/provider.h"
24 #include "evp_local.h"
25
26 EVP_KDF_CTX *EVP_KDF_CTX_new(EVP_KDF *kdf)
27 {
28     EVP_KDF_CTX *ctx = NULL;
29
30     if (kdf == NULL)
31         return NULL;
32
33     ctx = OPENSSL_zalloc(sizeof(EVP_KDF_CTX));
34     if (ctx == NULL
35         || (ctx->data = kdf->newctx(ossl_provider_ctx(kdf->prov))) == NULL
36         || !EVP_KDF_up_ref(kdf)) {
37         EVPerr(EVP_F_EVP_KDF_CTX_NEW, ERR_R_MALLOC_FAILURE);
38         if (ctx != NULL)
39             kdf->freectx(ctx->data);
40         OPENSSL_free(ctx);
41         ctx = NULL;
42     } else {
43         ctx->meth = kdf;
44     }
45     return ctx;
46 }
47
48 void EVP_KDF_CTX_free(EVP_KDF_CTX *ctx)
49 {
50     if (ctx != NULL) {
51         ctx->meth->freectx(ctx->data);
52         ctx->data = NULL;
53         EVP_KDF_free(ctx->meth);
54         OPENSSL_free(ctx);
55     }
56 }
57
58 EVP_KDF_CTX *EVP_KDF_CTX_dup(const EVP_KDF_CTX *src)
59 {
60     EVP_KDF_CTX *dst;
61
62     if (src == NULL || src->data == NULL || src->meth->dupctx == NULL)
63         return NULL;
64
65     dst = OPENSSL_malloc(sizeof(*dst));
66     if (dst == NULL) {
67         EVPerr(EVP_F_EVP_KDF_CTX_DUP, ERR_R_MALLOC_FAILURE);
68         return NULL;
69     }
70
71     memcpy(dst, src, sizeof(*dst));
72     if (!EVP_KDF_up_ref(dst->meth)) {
73         EVPerr(EVP_F_EVP_KDF_CTX_DUP, ERR_R_MALLOC_FAILURE);
74         OPENSSL_free(dst);
75         return NULL;
76     }
77
78     dst->data = src->meth->dupctx(src->data);
79     if (dst->data == NULL) {
80         EVP_KDF_CTX_free(dst);
81         return NULL;
82     }
83     return dst;
84 }
85
86 int EVP_KDF_number(const EVP_KDF *kdf)
87 {
88     return kdf->name_id;
89 }
90
91 int EVP_KDF_is_a(const EVP_KDF *kdf, const char *name)
92 {
93     return evp_is_a(kdf->prov, kdf->name_id, NULL, name);
94 }
95
96 const OSSL_PROVIDER *EVP_KDF_provider(const EVP_KDF *kdf)
97 {
98     return kdf->prov;
99 }
100
101 const EVP_KDF *EVP_KDF_CTX_kdf(EVP_KDF_CTX *ctx)
102 {
103     return ctx->meth;
104 }
105
106 void EVP_KDF_reset(EVP_KDF_CTX *ctx)
107 {
108     if (ctx == NULL)
109         return;
110
111     if (ctx->meth->reset != NULL)
112         ctx->meth->reset(ctx->data);
113 }
114
115 size_t EVP_KDF_size(EVP_KDF_CTX *ctx)
116 {
117     OSSL_PARAM params[2] = { OSSL_PARAM_END, OSSL_PARAM_END };
118     size_t s;
119
120     if (ctx == NULL)
121         return 0;
122
123     *params = OSSL_PARAM_construct_size_t(OSSL_KDF_PARAM_SIZE, &s);
124     if (ctx->meth->get_ctx_params != NULL
125         && ctx->meth->get_ctx_params(ctx->data, params))
126             return s;
127     if (ctx->meth->get_params != NULL
128         && ctx->meth->get_params(params))
129             return s;
130     return 0;
131 }
132
133 int EVP_KDF_derive(EVP_KDF_CTX *ctx, unsigned char *key, size_t keylen)
134 {
135     if (ctx == NULL)
136         return 0;
137
138     return ctx->meth->derive(ctx->data, key, keylen);
139 }
140
141 /*
142  * The {get,set}_params functions return 1 if there is no corresponding
143  * function in the implementation.  This is the same as if there was one,
144  * but it didn't recognise any of the given params, i.e. nothing in the
145  * bag of parameters was useful.
146  */
147 int EVP_KDF_get_params(EVP_KDF *kdf, OSSL_PARAM params[])
148 {
149     if (kdf->get_params != NULL)
150         return kdf->get_params(params);
151     return 1;
152 }
153
154 int EVP_KDF_CTX_get_params(EVP_KDF_CTX *ctx, OSSL_PARAM params[])
155 {
156     if (ctx->meth->get_ctx_params != NULL)
157         return ctx->meth->get_ctx_params(ctx->data, params);
158     return 1;
159 }
160
161 int EVP_KDF_CTX_set_params(EVP_KDF_CTX *ctx, const OSSL_PARAM params[])
162 {
163     if (ctx->meth->set_ctx_params != NULL)
164         return ctx->meth->set_ctx_params(ctx->data, params);
165     return 1;
166 }
167
168 void EVP_KDF_names_do_all(const EVP_KDF *kdf,
169                           void (*fn)(const char *name, void *data),
170                           void *data)
171 {
172     if (kdf->prov != NULL)
173         evp_names_do_all(kdf->prov, kdf->name_id, fn, data);
174 }