1/*
2 * Copyright 2018-2019 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
26EVP_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
48void 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
58EVP_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
86int EVP_KDF_number(const EVP_KDF *kdf)
87{
88 return kdf->name_id;
89}
90
91int EVP_KDF_is_a(const EVP_KDF *kdf, const char *name)
92{
93 return evp_is_a(kdf->prov, kdf->name_id, name);
94}
95
96const OSSL_PROVIDER *EVP_KDF_provider(const EVP_KDF *kdf)
97{
98 return kdf->prov;
99}
100
101const EVP_KDF *EVP_KDF_CTX_kdf(EVP_KDF_CTX *ctx)
102{
103 return ctx->meth;
104}
105
106void 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
115size_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
133int 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 */
147int 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
154int 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
161int 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
168void 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}
175