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 | |
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, 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 | } |
175 | |