Fix up path generation to use OPENSSL_MODULES
[openssl.git] / crypto / x509 / x_all.c
1 /*
2  * Copyright 1995-2021 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 /*
11  * Low level APIs are deprecated for public use, but still ok for
12  * internal use.
13  */
14 #include "internal/deprecated.h"
15
16 #include <stdio.h>
17 #include "internal/cryptlib.h"
18 #include <openssl/buffer.h>
19 #include <openssl/asn1.h>
20 #include <openssl/evp.h>
21 #include <openssl/x509.h>
22 #include <openssl/http.h>
23 #include <openssl/rsa.h>
24 #include <openssl/dsa.h>
25 #include <openssl/x509v3.h>
26 #include "internal/asn1.h"
27 #include "crypto/pkcs7.h"
28 #include "crypto/x509.h"
29 #include "crypto/rsa.h"
30
31 int X509_verify(X509 *a, EVP_PKEY *r)
32 {
33     if (X509_ALGOR_cmp(&a->sig_alg, &a->cert_info.signature) != 0)
34         return 0;
35
36     return ASN1_item_verify_ex(ASN1_ITEM_rptr(X509_CINF), &a->sig_alg,
37                                &a->signature, &a->cert_info,
38                                a->distinguishing_id, r, a->libctx, a->propq);
39 }
40
41 int X509_REQ_verify_ex(X509_REQ *a, EVP_PKEY *r, OSSL_LIB_CTX *libctx,
42                        const char *propq)
43 {
44     return ASN1_item_verify_ex(ASN1_ITEM_rptr(X509_REQ_INFO), &a->sig_alg,
45                                a->signature, &a->req_info, a->distinguishing_id,
46                                r, libctx, propq);
47 }
48
49 int X509_REQ_verify(X509_REQ *a, EVP_PKEY *r)
50 {
51     return X509_REQ_verify_ex(a, r, NULL, NULL);
52 }
53
54 int NETSCAPE_SPKI_verify(NETSCAPE_SPKI *a, EVP_PKEY *r)
55 {
56     return ASN1_item_verify(ASN1_ITEM_rptr(NETSCAPE_SPKAC),
57                             &a->sig_algor, a->signature, a->spkac, r);
58 }
59
60 int X509_sign(X509 *x, EVP_PKEY *pkey, const EVP_MD *md)
61 {
62     int ret;
63
64     if (x == NULL) {
65         ERR_raise(ERR_LIB_X509, ERR_R_PASSED_NULL_PARAMETER);
66         return 0;
67     }
68     ret = ASN1_item_sign_ex(ASN1_ITEM_rptr(X509_CINF), &x->cert_info.signature,
69                             &x->sig_alg, &x->signature, &x->cert_info, NULL,
70                             pkey, md, x->libctx, x->propq);
71     if (ret > 0)
72         x->cert_info.enc.modified = 1;
73     return ret;
74 }
75
76 int X509_sign_ctx(X509 *x, EVP_MD_CTX *ctx)
77 {
78     int ret;
79
80     if (x == NULL) {
81         ERR_raise(ERR_LIB_X509, ERR_R_PASSED_NULL_PARAMETER);
82         return 0;
83     }
84     ret = ASN1_item_sign_ctx(ASN1_ITEM_rptr(X509_CINF),
85                              &x->cert_info.signature,
86                              &x->sig_alg, &x->signature, &x->cert_info, ctx);
87     if (ret > 0)
88         x->cert_info.enc.modified = 1;
89     return ret;
90 }
91
92 static ASN1_VALUE *simple_get_asn1(const char *url, BIO *bio, BIO *rbio,
93                                    int timeout, const ASN1_ITEM *it)
94 {
95     BIO *mem = OSSL_HTTP_get(url, NULL /* proxy */, NULL /* no_proxy */,
96                              bio, rbio, NULL /* cb */, NULL /* arg */,
97                              1024 /* buf_size */, NULL /* headers */,
98                              NULL /* expected_ct */, 1 /* expect_asn1 */,
99                              OSSL_HTTP_DEFAULT_MAX_RESP_LEN, timeout);
100     ASN1_VALUE *res = ASN1_item_d2i_bio(it, mem, NULL);
101
102     BIO_free(mem);
103     return res;
104 }
105
106 X509 *X509_load_http(const char *url, BIO *bio, BIO *rbio, int timeout)
107 {
108     return (X509 *)simple_get_asn1(url, bio, rbio, timeout,
109                                    ASN1_ITEM_rptr(X509));
110 }
111
112 int X509_REQ_sign(X509_REQ *x, EVP_PKEY *pkey, const EVP_MD *md)
113 {
114     int ret;
115
116     if (x == NULL) {
117         ERR_raise(ERR_LIB_X509, ERR_R_PASSED_NULL_PARAMETER);
118         return 0;
119     }
120     ret = ASN1_item_sign_ex(ASN1_ITEM_rptr(X509_REQ_INFO), &x->sig_alg, NULL,
121                             x->signature, &x->req_info, NULL,
122                             pkey, md, x->libctx, x->propq);
123     if (ret > 0)
124         x->req_info.enc.modified = 1;
125     return ret;
126 }
127
128 int X509_REQ_sign_ctx(X509_REQ *x, EVP_MD_CTX *ctx)
129 {
130     int ret;
131
132     if (x == NULL) {
133         ERR_raise(ERR_LIB_X509, ERR_R_PASSED_NULL_PARAMETER);
134         return 0;
135     }
136     ret = ASN1_item_sign_ctx(ASN1_ITEM_rptr(X509_REQ_INFO),
137                              &x->sig_alg, NULL, x->signature, &x->req_info,
138                              ctx);
139     if (ret > 0)
140         x->req_info.enc.modified = 1;
141     return ret;
142 }
143
144 int X509_CRL_sign(X509_CRL *x, EVP_PKEY *pkey, const EVP_MD *md)
145 {
146     int ret;
147
148     if (x == NULL) {
149         ERR_raise(ERR_LIB_X509, ERR_R_PASSED_NULL_PARAMETER);
150         return 0;
151     }
152     ret = ASN1_item_sign_ex(ASN1_ITEM_rptr(X509_CRL_INFO), &x->crl.sig_alg,
153                             &x->sig_alg, &x->signature, &x->crl, NULL,
154                             pkey, md, x->libctx, x->propq);
155     if (ret > 0)
156         x->crl.enc.modified = 1;
157     return ret;
158 }
159
160 int X509_CRL_sign_ctx(X509_CRL *x, EVP_MD_CTX *ctx)
161 {
162     int ret;
163
164     if (x == NULL) {
165         ERR_raise(ERR_LIB_X509, ERR_R_PASSED_NULL_PARAMETER);
166         return 0;
167     }
168     ret = ASN1_item_sign_ctx(ASN1_ITEM_rptr(X509_CRL_INFO),
169                              &x->crl.sig_alg, &x->sig_alg, &x->signature,
170                              &x->crl, ctx);
171     if (ret > 0)
172         x->crl.enc.modified = 1;
173     return ret;
174 }
175
176 X509_CRL *X509_CRL_load_http(const char *url, BIO *bio, BIO *rbio, int timeout)
177 {
178     return (X509_CRL *)simple_get_asn1(url, bio, rbio, timeout,
179                                        ASN1_ITEM_rptr(X509_CRL));
180 }
181
182 int NETSCAPE_SPKI_sign(NETSCAPE_SPKI *x, EVP_PKEY *pkey, const EVP_MD *md)
183 {
184     return
185         ASN1_item_sign_ex(ASN1_ITEM_rptr(NETSCAPE_SPKAC), &x->sig_algor, NULL,
186                           x->signature, x->spkac, NULL, pkey, md, NULL, NULL);
187 }
188
189 #ifndef OPENSSL_NO_STDIO
190 X509 *d2i_X509_fp(FILE *fp, X509 **x509)
191 {
192     return ASN1_item_d2i_fp(ASN1_ITEM_rptr(X509), fp, x509);
193 }
194
195 int i2d_X509_fp(FILE *fp, const X509 *x509)
196 {
197     return ASN1_item_i2d_fp(ASN1_ITEM_rptr(X509), fp, x509);
198 }
199 #endif
200
201 X509 *d2i_X509_bio(BIO *bp, X509 **x509)
202 {
203     return ASN1_item_d2i_bio(ASN1_ITEM_rptr(X509), bp, x509);
204 }
205
206 int i2d_X509_bio(BIO *bp, const X509 *x509)
207 {
208     return ASN1_item_i2d_bio(ASN1_ITEM_rptr(X509), bp, x509);
209 }
210
211 #ifndef OPENSSL_NO_STDIO
212 X509_CRL *d2i_X509_CRL_fp(FILE *fp, X509_CRL **crl)
213 {
214     return ASN1_item_d2i_fp(ASN1_ITEM_rptr(X509_CRL), fp, crl);
215 }
216
217 int i2d_X509_CRL_fp(FILE *fp, const X509_CRL *crl)
218 {
219     return ASN1_item_i2d_fp(ASN1_ITEM_rptr(X509_CRL), fp, crl);
220 }
221 #endif
222
223 X509_CRL *d2i_X509_CRL_bio(BIO *bp, X509_CRL **crl)
224 {
225     return ASN1_item_d2i_bio(ASN1_ITEM_rptr(X509_CRL), bp, crl);
226 }
227
228 int i2d_X509_CRL_bio(BIO *bp, const X509_CRL *crl)
229 {
230     return ASN1_item_i2d_bio(ASN1_ITEM_rptr(X509_CRL), bp, crl);
231 }
232
233 #ifndef OPENSSL_NO_STDIO
234 PKCS7 *d2i_PKCS7_fp(FILE *fp, PKCS7 **p7)
235 {
236     PKCS7 *ret;
237     OSSL_LIB_CTX *libctx = NULL;
238     const char *propq = NULL;
239
240     if (p7 != NULL && *p7 != NULL) {
241         libctx = (*p7)->ctx.libctx;
242         propq = (*p7)->ctx.propq;
243     }
244
245     ret = ASN1_item_d2i_fp_ex(ASN1_ITEM_rptr(PKCS7), fp, p7, libctx, propq);
246     if (ret != NULL)
247         ossl_pkcs7_resolve_libctx(ret);
248     return ret;
249 }
250
251 int i2d_PKCS7_fp(FILE *fp, const PKCS7 *p7)
252 {
253     return ASN1_item_i2d_fp(ASN1_ITEM_rptr(PKCS7), fp, p7);
254 }
255 #endif
256
257 PKCS7 *d2i_PKCS7_bio(BIO *bp, PKCS7 **p7)
258 {
259     PKCS7 *ret;
260     OSSL_LIB_CTX *libctx = NULL;
261     const char *propq = NULL;
262
263     if (p7 != NULL && *p7 != NULL) {
264         libctx = (*p7)->ctx.libctx;
265         propq = (*p7)->ctx.propq;
266     }
267
268     ret = ASN1_item_d2i_bio_ex(ASN1_ITEM_rptr(PKCS7), bp, p7, libctx, propq);
269     if (ret != NULL)
270         ossl_pkcs7_resolve_libctx(ret);
271     return ret;
272 }
273
274 int i2d_PKCS7_bio(BIO *bp, const PKCS7 *p7)
275 {
276     return ASN1_item_i2d_bio(ASN1_ITEM_rptr(PKCS7), bp, p7);
277 }
278
279 #ifndef OPENSSL_NO_STDIO
280 X509_REQ *d2i_X509_REQ_fp(FILE *fp, X509_REQ **req)
281 {
282     return ASN1_item_d2i_fp(ASN1_ITEM_rptr(X509_REQ), fp, req);
283 }
284
285 int i2d_X509_REQ_fp(FILE *fp, const X509_REQ *req)
286 {
287     return ASN1_item_i2d_fp(ASN1_ITEM_rptr(X509_REQ), fp, req);
288 }
289 #endif
290
291 X509_REQ *d2i_X509_REQ_bio(BIO *bp, X509_REQ **req)
292 {
293     OSSL_LIB_CTX *libctx = NULL;
294     const char *propq = NULL;
295
296     if (req != NULL && *req != NULL) {
297         libctx = (*req)->libctx;
298         propq = (*req)->propq;
299     }
300
301     return ASN1_item_d2i_bio_ex(ASN1_ITEM_rptr(X509_REQ), bp, req, libctx, propq);
302 }
303
304 int i2d_X509_REQ_bio(BIO *bp, const X509_REQ *req)
305 {
306     return ASN1_item_i2d_bio(ASN1_ITEM_rptr(X509_REQ), bp, req);
307 }
308
309 #ifndef OPENSSL_NO_STDIO
310 RSA *d2i_RSAPrivateKey_fp(FILE *fp, RSA **rsa)
311 {
312     return ASN1_item_d2i_fp(ASN1_ITEM_rptr(RSAPrivateKey), fp, rsa);
313 }
314
315 int i2d_RSAPrivateKey_fp(FILE *fp, const RSA *rsa)
316 {
317     return ASN1_item_i2d_fp(ASN1_ITEM_rptr(RSAPrivateKey), fp, rsa);
318 }
319
320 RSA *d2i_RSAPublicKey_fp(FILE *fp, RSA **rsa)
321 {
322     return ASN1_item_d2i_fp(ASN1_ITEM_rptr(RSAPublicKey), fp, rsa);
323 }
324
325 RSA *d2i_RSA_PUBKEY_fp(FILE *fp, RSA **rsa)
326 {
327     return ASN1_d2i_fp((void *(*)(void))
328                        RSA_new, (D2I_OF(void)) d2i_RSA_PUBKEY, fp,
329                        (void **)rsa);
330 }
331
332 int i2d_RSAPublicKey_fp(FILE *fp, const RSA *rsa)
333 {
334     return ASN1_item_i2d_fp(ASN1_ITEM_rptr(RSAPublicKey), fp, rsa);
335 }
336
337 int i2d_RSA_PUBKEY_fp(FILE *fp, const RSA *rsa)
338 {
339     return ASN1_i2d_fp((I2D_OF(void))i2d_RSA_PUBKEY, fp, rsa);
340 }
341 #endif
342
343 RSA *d2i_RSAPrivateKey_bio(BIO *bp, RSA **rsa)
344 {
345     return ASN1_item_d2i_bio(ASN1_ITEM_rptr(RSAPrivateKey), bp, rsa);
346 }
347
348 int i2d_RSAPrivateKey_bio(BIO *bp, const RSA *rsa)
349 {
350     return ASN1_item_i2d_bio(ASN1_ITEM_rptr(RSAPrivateKey), bp, rsa);
351 }
352
353 RSA *d2i_RSAPublicKey_bio(BIO *bp, RSA **rsa)
354 {
355     return ASN1_item_d2i_bio(ASN1_ITEM_rptr(RSAPublicKey), bp, rsa);
356 }
357
358 RSA *d2i_RSA_PUBKEY_bio(BIO *bp, RSA **rsa)
359 {
360     return ASN1_d2i_bio_of(RSA, RSA_new, d2i_RSA_PUBKEY, bp, rsa);
361 }
362
363 int i2d_RSAPublicKey_bio(BIO *bp, const RSA *rsa)
364 {
365     return ASN1_item_i2d_bio(ASN1_ITEM_rptr(RSAPublicKey), bp, rsa);
366 }
367
368 int i2d_RSA_PUBKEY_bio(BIO *bp, const RSA *rsa)
369 {
370     return ASN1_i2d_bio_of(RSA, i2d_RSA_PUBKEY, bp, rsa);
371 }
372
373 #ifndef OPENSSL_NO_DSA
374 # ifndef OPENSSL_NO_STDIO
375 DSA *d2i_DSAPrivateKey_fp(FILE *fp, DSA **dsa)
376 {
377     return ASN1_d2i_fp_of(DSA, DSA_new, d2i_DSAPrivateKey, fp, dsa);
378 }
379
380 int i2d_DSAPrivateKey_fp(FILE *fp, const DSA *dsa)
381 {
382     return ASN1_i2d_fp_of(DSA, i2d_DSAPrivateKey, fp, dsa);
383 }
384
385 DSA *d2i_DSA_PUBKEY_fp(FILE *fp, DSA **dsa)
386 {
387     return ASN1_d2i_fp_of(DSA, DSA_new, d2i_DSA_PUBKEY, fp, dsa);
388 }
389
390 int i2d_DSA_PUBKEY_fp(FILE *fp, const DSA *dsa)
391 {
392     return ASN1_i2d_fp_of(DSA, i2d_DSA_PUBKEY, fp, dsa);
393 }
394 # endif
395
396 DSA *d2i_DSAPrivateKey_bio(BIO *bp, DSA **dsa)
397 {
398     return ASN1_d2i_bio_of(DSA, DSA_new, d2i_DSAPrivateKey, bp, dsa);
399 }
400
401 int i2d_DSAPrivateKey_bio(BIO *bp, const DSA *dsa)
402 {
403     return ASN1_i2d_bio_of(DSA, i2d_DSAPrivateKey, bp, dsa);
404 }
405
406 DSA *d2i_DSA_PUBKEY_bio(BIO *bp, DSA **dsa)
407 {
408     return ASN1_d2i_bio_of(DSA, DSA_new, d2i_DSA_PUBKEY, bp, dsa);
409 }
410
411 int i2d_DSA_PUBKEY_bio(BIO *bp, const DSA *dsa)
412 {
413     return ASN1_i2d_bio_of(DSA, i2d_DSA_PUBKEY, bp, dsa);
414 }
415
416 #endif
417
418 #ifndef OPENSSL_NO_EC
419 # ifndef OPENSSL_NO_STDIO
420 EC_KEY *d2i_EC_PUBKEY_fp(FILE *fp, EC_KEY **eckey)
421 {
422     return ASN1_d2i_fp_of(EC_KEY, EC_KEY_new, d2i_EC_PUBKEY, fp, eckey);
423 }
424
425 int i2d_EC_PUBKEY_fp(FILE *fp, const EC_KEY *eckey)
426 {
427     return ASN1_i2d_fp_of(EC_KEY, i2d_EC_PUBKEY, fp, eckey);
428 }
429
430 EC_KEY *d2i_ECPrivateKey_fp(FILE *fp, EC_KEY **eckey)
431 {
432     return ASN1_d2i_fp_of(EC_KEY, EC_KEY_new, d2i_ECPrivateKey, fp, eckey);
433 }
434
435 int i2d_ECPrivateKey_fp(FILE *fp, const EC_KEY *eckey)
436 {
437     return ASN1_i2d_fp_of(EC_KEY, i2d_ECPrivateKey, fp, eckey);
438 }
439 # endif
440 EC_KEY *d2i_EC_PUBKEY_bio(BIO *bp, EC_KEY **eckey)
441 {
442     return ASN1_d2i_bio_of(EC_KEY, EC_KEY_new, d2i_EC_PUBKEY, bp, eckey);
443 }
444
445 int i2d_EC_PUBKEY_bio(BIO *bp, const EC_KEY *ecdsa)
446 {
447     return ASN1_i2d_bio_of(EC_KEY, i2d_EC_PUBKEY, bp, ecdsa);
448 }
449
450 EC_KEY *d2i_ECPrivateKey_bio(BIO *bp, EC_KEY **eckey)
451 {
452     return ASN1_d2i_bio_of(EC_KEY, EC_KEY_new, d2i_ECPrivateKey, bp, eckey);
453 }
454
455 int i2d_ECPrivateKey_bio(BIO *bp, const EC_KEY *eckey)
456 {
457     return ASN1_i2d_bio_of(EC_KEY, i2d_ECPrivateKey, bp, eckey);
458 }
459 #endif
460
461 int X509_pubkey_digest(const X509 *data, const EVP_MD *type,
462                        unsigned char *md, unsigned int *len)
463 {
464     ASN1_BIT_STRING *key = X509_get0_pubkey_bitstr(data);
465
466     if (key == NULL)
467         return 0;
468     return EVP_Digest(key->data, key->length, md, len, type, NULL);
469 }
470
471 int X509_digest(const X509 *cert, const EVP_MD *md, unsigned char *data,
472                 unsigned int *len)
473 {
474     if (EVP_MD_is_a(md, SN_sha1) && (cert->ex_flags & EXFLAG_SET) != 0
475             && (cert->ex_flags & EXFLAG_NO_FINGERPRINT) == 0) {
476         /* Asking for SHA1 and we already computed it. */
477         if (len != NULL)
478             *len = sizeof(cert->sha1_hash);
479         memcpy(data, cert->sha1_hash, sizeof(cert->sha1_hash));
480         return 1;
481     }
482     return ossl_asn1_item_digest_ex(ASN1_ITEM_rptr(X509), md, (char *)cert,
483                                     data, len, cert->libctx, cert->propq);
484 }
485
486 /* calculate cert digest using the same hash algorithm as in its signature */
487 ASN1_OCTET_STRING *X509_digest_sig(const X509 *cert,
488                                    EVP_MD **md_used, int *md_is_fallback)
489 {
490     unsigned int len;
491     unsigned char hash[EVP_MAX_MD_SIZE];
492     int mdnid, pknid;
493     EVP_MD *md = NULL;
494     const char *md_name;
495     ASN1_OCTET_STRING *new;
496
497     if (md_used != NULL)
498         *md_used = NULL;
499     if (md_is_fallback != NULL)
500         *md_is_fallback = 0;
501
502     if (cert == NULL) {
503         ERR_raise(ERR_LIB_X509, ERR_R_PASSED_NULL_PARAMETER);
504         return NULL;
505     }
506
507     if (!OBJ_find_sigid_algs(X509_get_signature_nid(cert), &mdnid, &pknid)) {
508         ERR_raise(ERR_LIB_X509, X509_R_UNKNOWN_SIGID_ALGS);
509         return NULL;
510     }
511
512     if (mdnid == NID_undef) {
513         if (pknid == EVP_PKEY_RSA_PSS) {
514             RSA_PSS_PARAMS *pss = ossl_rsa_pss_decode(&cert->sig_alg);
515             const EVP_MD *mgf1md, *mmd = NULL;
516             int saltlen, trailerfield;
517
518             if (pss == NULL
519                 || !ossl_rsa_pss_get_param_unverified(pss, &mmd, &mgf1md,
520                                                       &saltlen,
521                                                       &trailerfield)
522                 || mmd == NULL) {
523                 RSA_PSS_PARAMS_free(pss);
524                 ERR_raise(ERR_LIB_X509, X509_R_UNSUPPORTED_ALGORITHM);
525                 return NULL;
526             }
527             RSA_PSS_PARAMS_free(pss);
528             /* Fetch explicitly and do not fallback */
529             if ((md = EVP_MD_fetch(cert->libctx, EVP_MD_get0_name(mmd),
530                                    cert->propq)) == NULL)
531                 /* Error code from fetch is sufficient */
532                 return NULL;
533         } else if (pknid != NID_undef) {
534             /* A known algorithm, but without a digest */
535             switch (pknid) {
536             case NID_ED25519: /* Follow CMS default given in RFC8419 */
537                 md_name = "SHA512";
538                 break;
539             case NID_ED448: /* Follow CMS default given in RFC8419 */
540                 md_name = "SHAKE256";
541                 break;
542             default: /* Fall back to SHA-256 */
543                 md_name = "SHA256";
544                 break;
545             }
546             if ((md = EVP_MD_fetch(cert->libctx, md_name,
547                                    cert->propq)) == NULL)
548                 return NULL;
549             if (md_is_fallback != NULL)
550                 *md_is_fallback = 1;
551         } else {
552             /* A completely unknown algorithm */
553             ERR_raise(ERR_LIB_X509, X509_R_UNSUPPORTED_ALGORITHM);
554             return NULL;
555         }
556     } else if ((md = EVP_MD_fetch(cert->libctx, OBJ_nid2sn(mdnid),
557                                   cert->propq)) == NULL
558                && (md = (EVP_MD *)EVP_get_digestbynid(mdnid)) == NULL) {
559         ERR_raise(ERR_LIB_X509, X509_R_UNSUPPORTED_ALGORITHM);
560         return NULL;
561     }
562     if (!X509_digest(cert, md, hash, &len)
563             || (new = ASN1_OCTET_STRING_new()) == NULL)
564         goto err;
565     if (ASN1_OCTET_STRING_set(new, hash, len)) {
566         if (md_used != NULL)
567             *md_used = md;
568         else
569             EVP_MD_free(md);
570         return new;
571     }
572     ASN1_OCTET_STRING_free(new);
573  err:
574     EVP_MD_free(md);
575     return NULL;
576 }
577
578 int X509_CRL_digest(const X509_CRL *data, const EVP_MD *type,
579                     unsigned char *md, unsigned int *len)
580 {
581     if (type == NULL) {
582         ERR_raise(ERR_LIB_X509, ERR_R_PASSED_NULL_PARAMETER);
583         return 0;
584     }
585     if (EVP_MD_is_a(type, SN_sha1)
586             && (data->flags & EXFLAG_SET) != 0
587             && (data->flags & EXFLAG_NO_FINGERPRINT) == 0) {
588         /* Asking for SHA1; always computed in CRL d2i. */
589         if (len != NULL)
590             *len = sizeof(data->sha1_hash);
591         memcpy(md, data->sha1_hash, sizeof(data->sha1_hash));
592         return 1;
593     }
594     return ossl_asn1_item_digest_ex(ASN1_ITEM_rptr(X509_CRL), type, (char *)data,
595                                     md, len, data->libctx, data->propq);
596 }
597
598 int X509_REQ_digest(const X509_REQ *data, const EVP_MD *type,
599                     unsigned char *md, unsigned int *len)
600 {
601     return ossl_asn1_item_digest_ex(ASN1_ITEM_rptr(X509_REQ), type, (char *)data,
602                                     md, len, data->libctx, data->propq);
603 }
604
605 int X509_NAME_digest(const X509_NAME *data, const EVP_MD *type,
606                      unsigned char *md, unsigned int *len)
607 {
608     return ASN1_item_digest(ASN1_ITEM_rptr(X509_NAME), type, (char *)data,
609                             md, len);
610 }
611
612 int PKCS7_ISSUER_AND_SERIAL_digest(PKCS7_ISSUER_AND_SERIAL *data,
613                                    const EVP_MD *type, unsigned char *md,
614                                    unsigned int *len)
615 {
616     return ASN1_item_digest(ASN1_ITEM_rptr(PKCS7_ISSUER_AND_SERIAL), type,
617                             (char *)data, md, len);
618 }
619
620 #ifndef OPENSSL_NO_STDIO
621 X509_SIG *d2i_PKCS8_fp(FILE *fp, X509_SIG **p8)
622 {
623     return ASN1_d2i_fp_of(X509_SIG, X509_SIG_new, d2i_X509_SIG, fp, p8);
624 }
625
626 int i2d_PKCS8_fp(FILE *fp, const X509_SIG *p8)
627 {
628     return ASN1_i2d_fp_of(X509_SIG, i2d_X509_SIG, fp, p8);
629 }
630 #endif
631
632 X509_SIG *d2i_PKCS8_bio(BIO *bp, X509_SIG **p8)
633 {
634     return ASN1_d2i_bio_of(X509_SIG, X509_SIG_new, d2i_X509_SIG, bp, p8);
635 }
636
637 int i2d_PKCS8_bio(BIO *bp, const X509_SIG *p8)
638 {
639     return ASN1_i2d_bio_of(X509_SIG, i2d_X509_SIG, bp, p8);
640 }
641
642 #ifndef OPENSSL_NO_STDIO
643 X509_PUBKEY *d2i_X509_PUBKEY_fp(FILE *fp, X509_PUBKEY **xpk)
644 {
645     return ASN1_d2i_fp_of(X509_PUBKEY, X509_PUBKEY_new, d2i_X509_PUBKEY,
646                           fp, xpk);
647 }
648
649 int i2d_X509_PUBKEY_fp(FILE *fp, const X509_PUBKEY *xpk)
650 {
651     return ASN1_i2d_fp_of(X509_PUBKEY, i2d_X509_PUBKEY, fp, xpk);
652 }
653 #endif
654
655 X509_PUBKEY *d2i_X509_PUBKEY_bio(BIO *bp, X509_PUBKEY **xpk)
656 {
657     return ASN1_d2i_bio_of(X509_PUBKEY, X509_PUBKEY_new, d2i_X509_PUBKEY,
658                            bp, xpk);
659 }
660
661 int i2d_X509_PUBKEY_bio(BIO *bp, const X509_PUBKEY *xpk)
662 {
663     return ASN1_i2d_bio_of(X509_PUBKEY, i2d_X509_PUBKEY, bp, xpk);
664 }
665
666 #ifndef OPENSSL_NO_STDIO
667 PKCS8_PRIV_KEY_INFO *d2i_PKCS8_PRIV_KEY_INFO_fp(FILE *fp,
668                                                 PKCS8_PRIV_KEY_INFO **p8inf)
669 {
670     return ASN1_d2i_fp_of(PKCS8_PRIV_KEY_INFO, PKCS8_PRIV_KEY_INFO_new,
671                           d2i_PKCS8_PRIV_KEY_INFO, fp, p8inf);
672 }
673
674 int i2d_PKCS8_PRIV_KEY_INFO_fp(FILE *fp, const PKCS8_PRIV_KEY_INFO *p8inf)
675 {
676     return ASN1_i2d_fp_of(PKCS8_PRIV_KEY_INFO, i2d_PKCS8_PRIV_KEY_INFO, fp,
677                           p8inf);
678 }
679
680 int i2d_PKCS8PrivateKeyInfo_fp(FILE *fp, const EVP_PKEY *key)
681 {
682     PKCS8_PRIV_KEY_INFO *p8inf;
683     int ret;
684
685     p8inf = EVP_PKEY2PKCS8(key);
686     if (p8inf == NULL)
687         return 0;
688     ret = i2d_PKCS8_PRIV_KEY_INFO_fp(fp, p8inf);
689     PKCS8_PRIV_KEY_INFO_free(p8inf);
690     return ret;
691 }
692
693 int i2d_PrivateKey_fp(FILE *fp, const EVP_PKEY *pkey)
694 {
695     return ASN1_i2d_fp_of(EVP_PKEY, i2d_PrivateKey, fp, pkey);
696 }
697
698 EVP_PKEY *d2i_PrivateKey_fp(FILE *fp, EVP_PKEY **a)
699 {
700     return ASN1_d2i_fp_of(EVP_PKEY, EVP_PKEY_new, d2i_AutoPrivateKey, fp, a);
701 }
702
703 EVP_PKEY *d2i_PrivateKey_ex_fp(FILE *fp, EVP_PKEY **a, OSSL_LIB_CTX *libctx,
704                                const char *propq)
705 {
706     BIO *b;
707     void *ret;
708
709     if ((b = BIO_new(BIO_s_file())) == NULL) {
710         ERR_raise(ERR_LIB_X509, ERR_R_BUF_LIB);
711         return NULL;
712     }
713     BIO_set_fp(b, fp, BIO_NOCLOSE);
714     ret = d2i_PrivateKey_ex_bio(b, a, libctx, propq);
715     BIO_free(b);
716     return ret;
717 }
718
719 int i2d_PUBKEY_fp(FILE *fp, const EVP_PKEY *pkey)
720 {
721     return ASN1_i2d_fp_of(EVP_PKEY, i2d_PUBKEY, fp, pkey);
722 }
723
724 EVP_PKEY *d2i_PUBKEY_fp(FILE *fp, EVP_PKEY **a)
725 {
726     return ASN1_d2i_fp_of(EVP_PKEY, EVP_PKEY_new, d2i_PUBKEY, fp, a);
727 }
728
729 #endif
730
731 PKCS8_PRIV_KEY_INFO *d2i_PKCS8_PRIV_KEY_INFO_bio(BIO *bp,
732                                                  PKCS8_PRIV_KEY_INFO **p8inf)
733 {
734     return ASN1_d2i_bio_of(PKCS8_PRIV_KEY_INFO, PKCS8_PRIV_KEY_INFO_new,
735                            d2i_PKCS8_PRIV_KEY_INFO, bp, p8inf);
736 }
737
738 int i2d_PKCS8_PRIV_KEY_INFO_bio(BIO *bp, const PKCS8_PRIV_KEY_INFO *p8inf)
739 {
740     return ASN1_i2d_bio_of(PKCS8_PRIV_KEY_INFO, i2d_PKCS8_PRIV_KEY_INFO, bp,
741                            p8inf);
742 }
743
744 int i2d_PKCS8PrivateKeyInfo_bio(BIO *bp, const EVP_PKEY *key)
745 {
746     PKCS8_PRIV_KEY_INFO *p8inf;
747     int ret;
748
749     p8inf = EVP_PKEY2PKCS8(key);
750     if (p8inf == NULL)
751         return 0;
752     ret = i2d_PKCS8_PRIV_KEY_INFO_bio(bp, p8inf);
753     PKCS8_PRIV_KEY_INFO_free(p8inf);
754     return ret;
755 }
756
757 int i2d_PrivateKey_bio(BIO *bp, const EVP_PKEY *pkey)
758 {
759     return ASN1_i2d_bio_of(EVP_PKEY, i2d_PrivateKey, bp, pkey);
760 }
761
762 EVP_PKEY *d2i_PrivateKey_bio(BIO *bp, EVP_PKEY **a)
763 {
764     return ASN1_d2i_bio_of(EVP_PKEY, EVP_PKEY_new, d2i_AutoPrivateKey, bp, a);
765 }
766
767 EVP_PKEY *d2i_PrivateKey_ex_bio(BIO *bp, EVP_PKEY **a, OSSL_LIB_CTX *libctx,
768                                 const char *propq)
769 {
770     BUF_MEM *b = NULL;
771     const unsigned char *p;
772     void *ret = NULL;
773     int len;
774
775     len = asn1_d2i_read_bio(bp, &b);
776     if (len < 0)
777         goto err;
778
779     p = (unsigned char *)b->data;
780     ret = d2i_AutoPrivateKey_ex(a, &p, len, libctx, propq);
781  err:
782     BUF_MEM_free(b);
783     return ret;
784 }
785
786 int i2d_PUBKEY_bio(BIO *bp, const EVP_PKEY *pkey)
787 {
788     return ASN1_i2d_bio_of(EVP_PKEY, i2d_PUBKEY, bp, pkey);
789 }
790
791 EVP_PKEY *d2i_PUBKEY_bio(BIO *bp, EVP_PKEY **a)
792 {
793     return ASN1_d2i_bio_of(EVP_PKEY, EVP_PKEY_new, d2i_PUBKEY, bp, a);
794 }