2 * Copyright 1995-2018 The OpenSSL Project Authors. All Rights Reserved.
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
11 #include "internal/cryptlib.h"
12 #include <openssl/evp.h>
13 #include <openssl/objects.h>
14 #include "internal/evp_int.h"
15 #include "internal/provider.h"
18 int EVP_CIPHER_param_to_asn1(EVP_CIPHER_CTX
*c
, ASN1_TYPE
*type
)
22 if (c
->cipher
->set_asn1_parameters
!= NULL
)
23 ret
= c
->cipher
->set_asn1_parameters(c
, type
);
24 else if (c
->cipher
->flags
& EVP_CIPH_FLAG_DEFAULT_ASN1
) {
25 switch (EVP_CIPHER_CTX_mode(c
)) {
26 case EVP_CIPH_WRAP_MODE
:
27 if (EVP_CIPHER_CTX_nid(c
) == NID_id_smime_alg_CMS3DESwrap
)
28 ASN1_TYPE_set(type
, V_ASN1_NULL
, NULL
);
32 case EVP_CIPH_GCM_MODE
:
33 case EVP_CIPH_CCM_MODE
:
34 case EVP_CIPH_XTS_MODE
:
35 case EVP_CIPH_OCB_MODE
:
40 ret
= EVP_CIPHER_set_asn1_iv(c
, type
);
45 EVPerr(EVP_F_EVP_CIPHER_PARAM_TO_ASN1
, ret
== -2 ?
46 ASN1_R_UNSUPPORTED_CIPHER
:
47 EVP_R_CIPHER_PARAMETER_ERROR
);
53 int EVP_CIPHER_asn1_to_param(EVP_CIPHER_CTX
*c
, ASN1_TYPE
*type
)
57 if (c
->cipher
->get_asn1_parameters
!= NULL
)
58 ret
= c
->cipher
->get_asn1_parameters(c
, type
);
59 else if (c
->cipher
->flags
& EVP_CIPH_FLAG_DEFAULT_ASN1
) {
60 switch (EVP_CIPHER_CTX_mode(c
)) {
62 case EVP_CIPH_WRAP_MODE
:
66 case EVP_CIPH_GCM_MODE
:
67 case EVP_CIPH_CCM_MODE
:
68 case EVP_CIPH_XTS_MODE
:
69 case EVP_CIPH_OCB_MODE
:
74 ret
= EVP_CIPHER_get_asn1_iv(c
, type
);
80 EVPerr(EVP_F_EVP_CIPHER_ASN1_TO_PARAM
, ret
== -2 ?
81 EVP_R_UNSUPPORTED_CIPHER
:
82 EVP_R_CIPHER_PARAMETER_ERROR
);
88 int EVP_CIPHER_get_asn1_iv(EVP_CIPHER_CTX
*c
, ASN1_TYPE
*type
)
94 l
= EVP_CIPHER_CTX_iv_length(c
);
95 OPENSSL_assert(l
<= sizeof(c
->iv
));
96 i
= ASN1_TYPE_get_octetstring(type
, c
->oiv
, l
);
100 memcpy(c
->iv
, c
->oiv
, l
);
105 int EVP_CIPHER_set_asn1_iv(EVP_CIPHER_CTX
*c
, ASN1_TYPE
*type
)
111 j
= EVP_CIPHER_CTX_iv_length(c
);
112 OPENSSL_assert(j
<= sizeof(c
->iv
));
113 i
= ASN1_TYPE_set_octetstring(type
, c
->oiv
, j
);
118 /* Convert the various cipher NIDs and dummies to a proper OID NID */
119 int EVP_CIPHER_type(const EVP_CIPHER
*ctx
)
123 nid
= EVP_CIPHER_nid(ctx
);
138 case NID_aes_128_cfb128
:
139 case NID_aes_128_cfb8
:
140 case NID_aes_128_cfb1
:
142 return NID_aes_128_cfb128
;
144 case NID_aes_192_cfb128
:
145 case NID_aes_192_cfb8
:
146 case NID_aes_192_cfb1
:
148 return NID_aes_192_cfb128
;
150 case NID_aes_256_cfb128
:
151 case NID_aes_256_cfb8
:
152 case NID_aes_256_cfb1
:
154 return NID_aes_256_cfb128
;
160 return NID_des_cfb64
;
162 case NID_des_ede3_cfb64
:
163 case NID_des_ede3_cfb8
:
164 case NID_des_ede3_cfb1
:
166 return NID_des_cfb64
;
169 /* Check it has an OID and it is valid */
170 otmp
= OBJ_nid2obj(nid
);
171 if (OBJ_get0_data(otmp
) == NULL
)
173 ASN1_OBJECT_free(otmp
);
178 int EVP_CIPHER_block_size(const EVP_CIPHER
*e
)
180 return e
->block_size
;
183 int EVP_CIPHER_CTX_block_size(const EVP_CIPHER_CTX
*ctx
)
185 return ctx
->cipher
->block_size
;
188 int EVP_CIPHER_impl_ctx_size(const EVP_CIPHER
*e
)
193 int EVP_Cipher(EVP_CIPHER_CTX
*ctx
, unsigned char *out
,
194 const unsigned char *in
, unsigned int inl
)
196 return ctx
->cipher
->do_cipher(ctx
, out
, in
, inl
);
199 const EVP_CIPHER
*EVP_CIPHER_CTX_cipher(const EVP_CIPHER_CTX
*ctx
)
204 int EVP_CIPHER_CTX_encrypting(const EVP_CIPHER_CTX
*ctx
)
209 unsigned long EVP_CIPHER_flags(const EVP_CIPHER
*cipher
)
211 return cipher
->flags
;
214 void *EVP_CIPHER_CTX_get_app_data(const EVP_CIPHER_CTX
*ctx
)
216 return ctx
->app_data
;
219 void EVP_CIPHER_CTX_set_app_data(EVP_CIPHER_CTX
*ctx
, void *data
)
221 ctx
->app_data
= data
;
224 void *EVP_CIPHER_CTX_get_cipher_data(const EVP_CIPHER_CTX
*ctx
)
226 return ctx
->cipher_data
;
229 void *EVP_CIPHER_CTX_set_cipher_data(EVP_CIPHER_CTX
*ctx
, void *cipher_data
)
231 void *old_cipher_data
;
233 old_cipher_data
= ctx
->cipher_data
;
234 ctx
->cipher_data
= cipher_data
;
236 return old_cipher_data
;
239 int EVP_CIPHER_iv_length(const EVP_CIPHER
*cipher
)
241 return cipher
->iv_len
;
244 int EVP_CIPHER_CTX_iv_length(const EVP_CIPHER_CTX
*ctx
)
246 return ctx
->cipher
->iv_len
;
249 const unsigned char *EVP_CIPHER_CTX_original_iv(const EVP_CIPHER_CTX
*ctx
)
254 const unsigned char *EVP_CIPHER_CTX_iv(const EVP_CIPHER_CTX
*ctx
)
259 unsigned char *EVP_CIPHER_CTX_iv_noconst(EVP_CIPHER_CTX
*ctx
)
264 unsigned char *EVP_CIPHER_CTX_buf_noconst(EVP_CIPHER_CTX
*ctx
)
269 int EVP_CIPHER_CTX_num(const EVP_CIPHER_CTX
*ctx
)
274 void EVP_CIPHER_CTX_set_num(EVP_CIPHER_CTX
*ctx
, int num
)
279 int EVP_CIPHER_key_length(const EVP_CIPHER
*cipher
)
281 return cipher
->key_len
;
284 int EVP_CIPHER_CTX_key_length(const EVP_CIPHER_CTX
*ctx
)
289 int EVP_CIPHER_nid(const EVP_CIPHER
*cipher
)
294 int EVP_CIPHER_CTX_nid(const EVP_CIPHER_CTX
*ctx
)
296 return ctx
->cipher
->nid
;
299 int EVP_MD_block_size(const EVP_MD
*md
)
301 return md
->block_size
;
304 int EVP_MD_type(const EVP_MD
*md
)
309 int EVP_MD_pkey_type(const EVP_MD
*md
)
311 return md
->pkey_type
;
314 int EVP_MD_size(const EVP_MD
*md
)
317 EVPerr(EVP_F_EVP_MD_SIZE
, EVP_R_MESSAGE_DIGEST_IS_NULL
);
321 if (md
->prov
!= NULL
&& md
->size
!= NULL
)
322 return (int)md
->size();
327 unsigned long EVP_MD_flags(const EVP_MD
*md
)
332 EVP_MD
*EVP_MD_meth_new(int md_type
, int pkey_type
)
334 EVP_MD
*md
= OPENSSL_zalloc(sizeof(*md
));
338 md
->pkey_type
= pkey_type
;
339 md
->lock
= CRYPTO_THREAD_lock_new();
340 if (md
->lock
== NULL
) {
348 EVP_MD
*EVP_MD_meth_dup(const EVP_MD
*md
)
350 EVP_MD
*to
= EVP_MD_meth_new(md
->type
, md
->pkey_type
);
353 memcpy(to
, md
, sizeof(*to
));
357 int EVP_MD_upref(EVP_MD
*md
)
361 CRYPTO_UP_REF(&md
->refcnt
, &ref
, md
->lock
);
365 void EVP_MD_meth_free(EVP_MD
*md
)
370 CRYPTO_DOWN_REF(&md
->refcnt
, &i
, md
->lock
);
373 ossl_provider_free(md
->prov
);
374 CRYPTO_THREAD_lock_free(md
->lock
);
378 int EVP_MD_meth_set_input_blocksize(EVP_MD
*md
, int blocksize
)
380 md
->block_size
= blocksize
;
383 int EVP_MD_meth_set_result_size(EVP_MD
*md
, int resultsize
)
385 md
->md_size
= resultsize
;
388 int EVP_MD_meth_set_app_datasize(EVP_MD
*md
, int datasize
)
390 md
->ctx_size
= datasize
;
393 int EVP_MD_meth_set_flags(EVP_MD
*md
, unsigned long flags
)
398 int EVP_MD_meth_set_init(EVP_MD
*md
, int (*init
)(EVP_MD_CTX
*ctx
))
403 int EVP_MD_meth_set_update(EVP_MD
*md
, int (*update
)(EVP_MD_CTX
*ctx
,
410 int EVP_MD_meth_set_final(EVP_MD
*md
, int (*final
)(EVP_MD_CTX
*ctx
,
416 int EVP_MD_meth_set_copy(EVP_MD
*md
, int (*copy
)(EVP_MD_CTX
*to
,
417 const EVP_MD_CTX
*from
))
422 int EVP_MD_meth_set_cleanup(EVP_MD
*md
, int (*cleanup
)(EVP_MD_CTX
*ctx
))
424 md
->cleanup
= cleanup
;
427 int EVP_MD_meth_set_ctrl(EVP_MD
*md
, int (*ctrl
)(EVP_MD_CTX
*ctx
, int cmd
,
434 int EVP_MD_meth_get_input_blocksize(const EVP_MD
*md
)
436 return md
->block_size
;
438 int EVP_MD_meth_get_result_size(const EVP_MD
*md
)
442 int EVP_MD_meth_get_app_datasize(const EVP_MD
*md
)
446 unsigned long EVP_MD_meth_get_flags(const EVP_MD
*md
)
450 int (*EVP_MD_meth_get_init(const EVP_MD
*md
))(EVP_MD_CTX
*ctx
)
454 int (*EVP_MD_meth_get_update(const EVP_MD
*md
))(EVP_MD_CTX
*ctx
,
460 int (*EVP_MD_meth_get_final(const EVP_MD
*md
))(EVP_MD_CTX
*ctx
,
465 int (*EVP_MD_meth_get_copy(const EVP_MD
*md
))(EVP_MD_CTX
*to
,
466 const EVP_MD_CTX
*from
)
470 int (*EVP_MD_meth_get_cleanup(const EVP_MD
*md
))(EVP_MD_CTX
*ctx
)
474 int (*EVP_MD_meth_get_ctrl(const EVP_MD
*md
))(EVP_MD_CTX
*ctx
, int cmd
,
480 const EVP_MD
*EVP_MD_CTX_md(const EVP_MD_CTX
*ctx
)
484 return ctx
->reqdigest
;
487 EVP_PKEY_CTX
*EVP_MD_CTX_pkey_ctx(const EVP_MD_CTX
*ctx
)
492 void EVP_MD_CTX_set_pkey_ctx(EVP_MD_CTX
*ctx
, EVP_PKEY_CTX
*pctx
)
495 * it's reasonable to set NULL pctx (a.k.a clear the ctx->pctx), so
496 * we have to deal with the cleanup job here.
498 if (!EVP_MD_CTX_test_flags(ctx
, EVP_MD_CTX_FLAG_KEEP_PKEY_CTX
))
499 EVP_PKEY_CTX_free(ctx
->pctx
);
504 /* make sure pctx is not freed when destroying EVP_MD_CTX */
505 EVP_MD_CTX_set_flags(ctx
, EVP_MD_CTX_FLAG_KEEP_PKEY_CTX
);
507 EVP_MD_CTX_clear_flags(ctx
, EVP_MD_CTX_FLAG_KEEP_PKEY_CTX
);
511 void *EVP_MD_CTX_md_data(const EVP_MD_CTX
*ctx
)
516 int (*EVP_MD_CTX_update_fn(EVP_MD_CTX
*ctx
))(EVP_MD_CTX
*ctx
,
517 const void *data
, size_t count
)
522 void EVP_MD_CTX_set_update_fn(EVP_MD_CTX
*ctx
,
523 int (*update
) (EVP_MD_CTX
*ctx
,
524 const void *data
, size_t count
))
526 ctx
->update
= update
;
529 void EVP_MD_CTX_set_flags(EVP_MD_CTX
*ctx
, int flags
)
534 void EVP_MD_CTX_clear_flags(EVP_MD_CTX
*ctx
, int flags
)
536 ctx
->flags
&= ~flags
;
539 int EVP_MD_CTX_test_flags(const EVP_MD_CTX
*ctx
, int flags
)
541 return (ctx
->flags
& flags
);
544 void EVP_CIPHER_CTX_set_flags(EVP_CIPHER_CTX
*ctx
, int flags
)
549 void EVP_CIPHER_CTX_clear_flags(EVP_CIPHER_CTX
*ctx
, int flags
)
551 ctx
->flags
&= ~flags
;
554 int EVP_CIPHER_CTX_test_flags(const EVP_CIPHER_CTX
*ctx
, int flags
)
556 return (ctx
->flags
& flags
);
559 int EVP_str2ctrl(int (*cb
)(void *ctx
, int cmd
, void *buf
, size_t buflen
),
560 void *ctx
, int cmd
, const char *value
)
567 return cb(ctx
, cmd
, (void *)value
, len
);
570 int EVP_hex2ctrl(int (*cb
)(void *ctx
, int cmd
, void *buf
, size_t buflen
),
571 void *ctx
, int cmd
, const char *hex
)
577 bin
= OPENSSL_hexstr2buf(hex
, &binlen
);
580 if (binlen
<= INT_MAX
)
581 rv
= cb(ctx
, cmd
, bin
, binlen
);