1/*
2 * Copyright 1995-2018 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 <stdio.h>
11#include <openssl/evp.h>
12#include <openssl/kdf.h>
13#include <openssl/x509.h>
14#include "internal/cryptlib.h"
15#include "internal/namemap.h"
16#include "crypto/objects.h"
17#include "crypto/evp.h"
18
19int EVP_add_cipher(const EVP_CIPHER *c)
20{
21 int r;
22
23 if (c == NULL)
24 return 0;
25
26 r = OBJ_NAME_add(OBJ_nid2sn(c->nid), OBJ_NAME_TYPE_CIPHER_METH,
27 (const char *)c);
28 if (r == 0)
29 return 0;
30 r = OBJ_NAME_add(OBJ_nid2ln(c->nid), OBJ_NAME_TYPE_CIPHER_METH,
31 (const char *)c);
32 return r;
33}
34
35int EVP_add_digest(const EVP_MD *md)
36{
37 int r;
38 const char *name;
39
40 name = OBJ_nid2sn(md->type);
41 r = OBJ_NAME_add(name, OBJ_NAME_TYPE_MD_METH, (const char *)md);
42 if (r == 0)
43 return 0;
44 r = OBJ_NAME_add(OBJ_nid2ln(md->type), OBJ_NAME_TYPE_MD_METH,
45 (const char *)md);
46 if (r == 0)
47 return 0;
48
49 if (md->pkey_type && md->type != md->pkey_type) {
50 r = OBJ_NAME_add(OBJ_nid2sn(md->pkey_type),
51 OBJ_NAME_TYPE_MD_METH | OBJ_NAME_ALIAS, name);
52 if (r == 0)
53 return 0;
54 r = OBJ_NAME_add(OBJ_nid2ln(md->pkey_type),
55 OBJ_NAME_TYPE_MD_METH | OBJ_NAME_ALIAS, name);
56 }
57 return r;
58}
59
60static void cipher_from_name(const char *name, void *data)
61{
62 const EVP_CIPHER **cipher = data;
63
64 if (*cipher != NULL)
65 return;
66
67 *cipher = (const EVP_CIPHER *)OBJ_NAME_get(name, OBJ_NAME_TYPE_CIPHER_METH);
68}
69
70const EVP_CIPHER *EVP_get_cipherbyname(const char *name)
71{
72 return evp_get_cipherbyname_ex(NULL, name);
73}
74
75const EVP_CIPHER *evp_get_cipherbyname_ex(OPENSSL_CTX *libctx, const char *name)
76{
77 const EVP_CIPHER *cp;
78 OSSL_NAMEMAP *namemap;
79 int id;
80
81 if (!OPENSSL_init_crypto(OPENSSL_INIT_ADD_ALL_CIPHERS, NULL))
82 return NULL;
83
84 cp = (const EVP_CIPHER *)OBJ_NAME_get(name, OBJ_NAME_TYPE_CIPHER_METH);
85
86 if (cp != NULL)
87 return cp;
88
89 /*
90 * It's not in the method database, but it might be there under a different
91 * name. So we check for aliases in the EVP namemap and try all of those
92 * in turn.
93 */
94
95 namemap = ossl_namemap_stored(libctx);
96 id = ossl_namemap_name2num(namemap, name);
97 if (id == 0)
98 return NULL;
99
100 ossl_namemap_doall_names(namemap, id, cipher_from_name, &cp);
101
102 return cp;
103}
104
105static void digest_from_name(const char *name, void *data)
106{
107 const EVP_MD **md = data;
108
109 if (*md != NULL)
110 return;
111
112 *md = (const EVP_MD *)OBJ_NAME_get(name, OBJ_NAME_TYPE_MD_METH);
113}
114
115const EVP_MD *EVP_get_digestbyname(const char *name)
116{
117 return evp_get_digestbyname_ex(NULL, name);
118}
119
120const EVP_MD *evp_get_digestbyname_ex(OPENSSL_CTX *libctx, const char *name)
121{
122 const EVP_MD *dp;
123 OSSL_NAMEMAP *namemap;
124 int id;
125
126 if (!OPENSSL_init_crypto(OPENSSL_INIT_ADD_ALL_DIGESTS, NULL))
127 return NULL;
128
129 dp = (const EVP_MD *)OBJ_NAME_get(name, OBJ_NAME_TYPE_MD_METH);
130
131 if (dp != NULL)
132 return dp;
133
134 /*
135 * It's not in the method database, but it might be there under a different
136 * name. So we check for aliases in the EVP namemap and try all of those
137 * in turn.
138 */
139
140 namemap = ossl_namemap_stored(libctx);
141 id = ossl_namemap_name2num(namemap, name);
142 if (id == 0)
143 return NULL;
144
145 ossl_namemap_doall_names(namemap, id, digest_from_name, &dp);
146
147 return dp;
148}
149
150void evp_cleanup_int(void)
151{
152 OBJ_NAME_cleanup(OBJ_NAME_TYPE_KDF_METH);
153 OBJ_NAME_cleanup(OBJ_NAME_TYPE_CIPHER_METH);
154 OBJ_NAME_cleanup(OBJ_NAME_TYPE_MD_METH);
155 /*
156 * The above calls will only clean out the contents of the name hash
157 * table, but not the hash table itself. The following line does that
158 * part. -- Richard Levitte
159 */
160 OBJ_NAME_cleanup(-1);
161
162 EVP_PBE_cleanup();
163 OBJ_sigid_free();
164
165 evp_app_cleanup_int();
166}
167
168struct doall_cipher {
169 void *arg;
170 void (*fn) (const EVP_CIPHER *ciph,
171 const char *from, const char *to, void *arg);
172};
173
174static void do_all_cipher_fn(const OBJ_NAME *nm, void *arg)
175{
176 struct doall_cipher *dc = arg;
177 if (nm->alias)
178 dc->fn(NULL, nm->name, nm->data, dc->arg);
179 else
180 dc->fn((const EVP_CIPHER *)nm->data, nm->name, NULL, dc->arg);
181}
182
183void EVP_CIPHER_do_all(void (*fn) (const EVP_CIPHER *ciph,
184 const char *from, const char *to, void *x),
185 void *arg)
186{
187 struct doall_cipher dc;
188
189 /* Ignore errors */
190 OPENSSL_init_crypto(OPENSSL_INIT_ADD_ALL_CIPHERS, NULL);
191
192 dc.fn = fn;
193 dc.arg = arg;
194 OBJ_NAME_do_all(OBJ_NAME_TYPE_CIPHER_METH, do_all_cipher_fn, &dc);
195}
196
197void EVP_CIPHER_do_all_sorted(void (*fn) (const EVP_CIPHER *ciph,
198 const char *from, const char *to,
199 void *x), void *arg)
200{
201 struct doall_cipher dc;
202
203 /* Ignore errors */
204 OPENSSL_init_crypto(OPENSSL_INIT_ADD_ALL_CIPHERS, NULL);
205
206 dc.fn = fn;
207 dc.arg = arg;
208 OBJ_NAME_do_all_sorted(OBJ_NAME_TYPE_CIPHER_METH, do_all_cipher_fn, &dc);
209}
210
211struct doall_md {
212 void *arg;
213 void (*fn) (const EVP_MD *ciph,
214 const char *from, const char *to, void *arg);
215};
216
217static void do_all_md_fn(const OBJ_NAME *nm, void *arg)
218{
219 struct doall_md *dc = arg;
220 if (nm->alias)
221 dc->fn(NULL, nm->name, nm->data, dc->arg);
222 else
223 dc->fn((const EVP_MD *)nm->data, nm->name, NULL, dc->arg);
224}
225
226void EVP_MD_do_all(void (*fn) (const EVP_MD *md,
227 const char *from, const char *to, void *x),
228 void *arg)
229{
230 struct doall_md dc;
231
232 /* Ignore errors */
233 OPENSSL_init_crypto(OPENSSL_INIT_ADD_ALL_DIGESTS, NULL);
234
235 dc.fn = fn;
236 dc.arg = arg;
237 OBJ_NAME_do_all(OBJ_NAME_TYPE_MD_METH, do_all_md_fn, &dc);
238}
239
240void EVP_MD_do_all_sorted(void (*fn) (const EVP_MD *md,
241 const char *from, const char *to,
242 void *x), void *arg)
243{
244 struct doall_md dc;
245
246 OPENSSL_init_crypto(OPENSSL_INIT_ADD_ALL_DIGESTS, NULL);
247
248 dc.fn = fn;
249 dc.arg = arg;
250 OBJ_NAME_do_all_sorted(OBJ_NAME_TYPE_MD_METH, do_all_md_fn, &dc);
251}
252