2 * Copyright 1995-2017 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 * Low level APIs are deprecated for public use, but still ok for
14 #include "internal/deprecated.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 "crypto/x509.h"
23 #include <openssl/http.h>
24 #include <openssl/rsa.h>
25 #include <openssl/dsa.h>
26 #include <openssl/x509v3.h>
28 static void clean_id_ctx(EVP_MD_CTX *ctx)
30 EVP_PKEY_CTX *pctx = EVP_MD_CTX_pkey_ctx(ctx);
32 EVP_PKEY_CTX_free(pctx);
36 static EVP_MD_CTX *make_id_ctx(EVP_PKEY *r, ASN1_OCTET_STRING *id)
38 EVP_MD_CTX *ctx = NULL;
39 EVP_PKEY_CTX *pctx = NULL;
41 if ((ctx = EVP_MD_CTX_new()) == NULL
42 || (pctx = EVP_PKEY_CTX_new(r, NULL)) == NULL) {
43 X509err(0, ERR_R_MALLOC_FAILURE);
49 if (EVP_PKEY_CTX_set1_id(pctx, id->data, id->length) <= 0) {
50 X509err(0, ERR_R_MALLOC_FAILURE);
56 EVP_MD_CTX_set_pkey_ctx(ctx, pctx);
60 EVP_PKEY_CTX_free(pctx);
65 int X509_verify(X509 *a, EVP_PKEY *r)
68 EVP_MD_CTX *ctx = NULL;
69 ASN1_OCTET_STRING *id = NULL;
71 if (X509_ALGOR_cmp(&a->sig_alg, &a->cert_info.signature))
74 #ifndef OPENSSL_NO_SM2
78 if ((ctx = make_id_ctx(r, id)) != NULL) {
79 rv = ASN1_item_verify_ctx(ASN1_ITEM_rptr(X509_CINF), &a->sig_alg,
80 &a->signature, &a->cert_info, ctx);
86 int X509_REQ_verify(X509_REQ *a, EVP_PKEY *r)
89 EVP_MD_CTX *ctx = NULL;
90 ASN1_OCTET_STRING *id = NULL;
92 #ifndef OPENSSL_NO_SM2
96 if ((ctx = make_id_ctx(r, id)) != NULL) {
97 rv = ASN1_item_verify_ctx(ASN1_ITEM_rptr(X509_REQ_INFO), &a->sig_alg,
98 a->signature, &a->req_info, ctx);
104 int NETSCAPE_SPKI_verify(NETSCAPE_SPKI *a, EVP_PKEY *r)
106 return (ASN1_item_verify(ASN1_ITEM_rptr(NETSCAPE_SPKAC),
107 &a->sig_algor, a->signature, a->spkac, r));
110 int X509_sign(X509 *x, EVP_PKEY *pkey, const EVP_MD *md)
112 x->cert_info.enc.modified = 1;
113 return (ASN1_item_sign(ASN1_ITEM_rptr(X509_CINF), &x->cert_info.signature,
114 &x->sig_alg, &x->signature, &x->cert_info, pkey,
118 int X509_sign_ctx(X509 *x, EVP_MD_CTX *ctx)
120 x->cert_info.enc.modified = 1;
121 return ASN1_item_sign_ctx(ASN1_ITEM_rptr(X509_CINF),
122 &x->cert_info.signature,
123 &x->sig_alg, &x->signature, &x->cert_info, ctx);
126 #if !defined(OPENSSL_NO_SOCK)
127 static ASN1_VALUE *simple_get_asn1(const char *url, BIO *bio, BIO *rbio,
128 int timeout, const ASN1_ITEM *it)
130 return OSSL_HTTP_get_asn1(url, NULL, NULL /* no proxy and port */, bio,
131 rbio, NULL /* no callback for SSL/TLS */, NULL,
132 NULL /* headers */, 1024 /* maxline */,
133 0 /* max_resp_len */, timeout,
134 NULL /* expected_content_type */, it);
137 X509 *X509_load_http(const char *url, BIO *bio, BIO *rbio, int timeout)
139 return (X509 *)simple_get_asn1(url, bio, rbio, timeout,
140 ASN1_ITEM_rptr(X509));
144 int X509_REQ_sign(X509_REQ *x, EVP_PKEY *pkey, const EVP_MD *md)
146 return (ASN1_item_sign(ASN1_ITEM_rptr(X509_REQ_INFO), &x->sig_alg, NULL,
147 x->signature, &x->req_info, pkey, md));
150 int X509_REQ_sign_ctx(X509_REQ *x, EVP_MD_CTX *ctx)
152 return ASN1_item_sign_ctx(ASN1_ITEM_rptr(X509_REQ_INFO),
153 &x->sig_alg, NULL, x->signature, &x->req_info,
157 int X509_CRL_sign(X509_CRL *x, EVP_PKEY *pkey, const EVP_MD *md)
159 x->crl.enc.modified = 1;
160 return (ASN1_item_sign(ASN1_ITEM_rptr(X509_CRL_INFO), &x->crl.sig_alg,
161 &x->sig_alg, &x->signature, &x->crl, pkey, md));
164 int X509_CRL_sign_ctx(X509_CRL *x, EVP_MD_CTX *ctx)
166 x->crl.enc.modified = 1;
167 return ASN1_item_sign_ctx(ASN1_ITEM_rptr(X509_CRL_INFO),
168 &x->crl.sig_alg, &x->sig_alg, &x->signature,
172 #if !defined(OPENSSL_NO_SOCK)
173 X509_CRL *X509_CRL_load_http(const char *url, BIO *bio, BIO *rbio, int timeout)
175 return (X509_CRL *)simple_get_asn1(url, bio, rbio, timeout,
176 ASN1_ITEM_rptr(X509_CRL));
180 int NETSCAPE_SPKI_sign(NETSCAPE_SPKI *x, EVP_PKEY *pkey, const EVP_MD *md)
182 return (ASN1_item_sign(ASN1_ITEM_rptr(NETSCAPE_SPKAC), &x->sig_algor, NULL,
183 x->signature, x->spkac, pkey, md));
186 #ifndef OPENSSL_NO_STDIO
187 X509 *d2i_X509_fp(FILE *fp, X509 **x509)
189 return ASN1_item_d2i_fp(ASN1_ITEM_rptr(X509), fp, x509);
192 int i2d_X509_fp(FILE *fp, const X509 *x509)
194 return ASN1_item_i2d_fp(ASN1_ITEM_rptr(X509), fp, x509);
198 X509 *d2i_X509_bio(BIO *bp, X509 **x509)
200 return ASN1_item_d2i_bio(ASN1_ITEM_rptr(X509), bp, x509);
203 int i2d_X509_bio(BIO *bp, const X509 *x509)
205 return ASN1_item_i2d_bio(ASN1_ITEM_rptr(X509), bp, x509);
208 #ifndef OPENSSL_NO_STDIO
209 X509_CRL *d2i_X509_CRL_fp(FILE *fp, X509_CRL **crl)
211 return ASN1_item_d2i_fp(ASN1_ITEM_rptr(X509_CRL), fp, crl);
214 int i2d_X509_CRL_fp(FILE *fp, const X509_CRL *crl)
216 return ASN1_item_i2d_fp(ASN1_ITEM_rptr(X509_CRL), fp, crl);
220 X509_CRL *d2i_X509_CRL_bio(BIO *bp, X509_CRL **crl)
222 return ASN1_item_d2i_bio(ASN1_ITEM_rptr(X509_CRL), bp, crl);
225 int i2d_X509_CRL_bio(BIO *bp, const X509_CRL *crl)
227 return ASN1_item_i2d_bio(ASN1_ITEM_rptr(X509_CRL), bp, crl);
230 #ifndef OPENSSL_NO_STDIO
231 PKCS7 *d2i_PKCS7_fp(FILE *fp, PKCS7 **p7)
233 return ASN1_item_d2i_fp(ASN1_ITEM_rptr(PKCS7), fp, p7);
236 int i2d_PKCS7_fp(FILE *fp, const PKCS7 *p7)
238 return ASN1_item_i2d_fp(ASN1_ITEM_rptr(PKCS7), fp, p7);
242 PKCS7 *d2i_PKCS7_bio(BIO *bp, PKCS7 **p7)
244 return ASN1_item_d2i_bio(ASN1_ITEM_rptr(PKCS7), bp, p7);
247 int i2d_PKCS7_bio(BIO *bp, const PKCS7 *p7)
249 return ASN1_item_i2d_bio(ASN1_ITEM_rptr(PKCS7), bp, p7);
252 #ifndef OPENSSL_NO_STDIO
253 X509_REQ *d2i_X509_REQ_fp(FILE *fp, X509_REQ **req)
255 return ASN1_item_d2i_fp(ASN1_ITEM_rptr(X509_REQ), fp, req);
258 int i2d_X509_REQ_fp(FILE *fp, const X509_REQ *req)
260 return ASN1_item_i2d_fp(ASN1_ITEM_rptr(X509_REQ), fp, req);
264 X509_REQ *d2i_X509_REQ_bio(BIO *bp, X509_REQ **req)
266 return ASN1_item_d2i_bio(ASN1_ITEM_rptr(X509_REQ), bp, req);
269 int i2d_X509_REQ_bio(BIO *bp, const X509_REQ *req)
271 return ASN1_item_i2d_bio(ASN1_ITEM_rptr(X509_REQ), bp, req);
274 #ifndef OPENSSL_NO_RSA
276 # ifndef OPENSSL_NO_STDIO
277 RSA *d2i_RSAPrivateKey_fp(FILE *fp, RSA **rsa)
279 return ASN1_item_d2i_fp(ASN1_ITEM_rptr(RSAPrivateKey), fp, rsa);
282 int i2d_RSAPrivateKey_fp(FILE *fp, const RSA *rsa)
284 return ASN1_item_i2d_fp(ASN1_ITEM_rptr(RSAPrivateKey), fp, rsa);
287 RSA *d2i_RSAPublicKey_fp(FILE *fp, RSA **rsa)
289 return ASN1_item_d2i_fp(ASN1_ITEM_rptr(RSAPublicKey), fp, rsa);
292 RSA *d2i_RSA_PUBKEY_fp(FILE *fp, RSA **rsa)
294 return ASN1_d2i_fp((void *(*)(void))
295 RSA_new, (D2I_OF(void)) d2i_RSA_PUBKEY, fp,
299 int i2d_RSAPublicKey_fp(FILE *fp, const RSA *rsa)
301 return ASN1_item_i2d_fp(ASN1_ITEM_rptr(RSAPublicKey), fp, rsa);
304 int i2d_RSA_PUBKEY_fp(FILE *fp, const RSA *rsa)
306 return ASN1_i2d_fp((I2D_OF(void))i2d_RSA_PUBKEY, fp, rsa);
310 RSA *d2i_RSAPrivateKey_bio(BIO *bp, RSA **rsa)
312 return ASN1_item_d2i_bio(ASN1_ITEM_rptr(RSAPrivateKey), bp, rsa);
315 int i2d_RSAPrivateKey_bio(BIO *bp, const RSA *rsa)
317 return ASN1_item_i2d_bio(ASN1_ITEM_rptr(RSAPrivateKey), bp, rsa);
320 RSA *d2i_RSAPublicKey_bio(BIO *bp, RSA **rsa)
322 return ASN1_item_d2i_bio(ASN1_ITEM_rptr(RSAPublicKey), bp, rsa);
325 RSA *d2i_RSA_PUBKEY_bio(BIO *bp, RSA **rsa)
327 return ASN1_d2i_bio_of(RSA, RSA_new, d2i_RSA_PUBKEY, bp, rsa);
330 int i2d_RSAPublicKey_bio(BIO *bp, const RSA *rsa)
332 return ASN1_item_i2d_bio(ASN1_ITEM_rptr(RSAPublicKey), bp, rsa);
335 int i2d_RSA_PUBKEY_bio(BIO *bp, const RSA *rsa)
337 return ASN1_i2d_bio_of(RSA, i2d_RSA_PUBKEY, bp, rsa);
341 #ifndef OPENSSL_NO_DSA
342 # ifndef OPENSSL_NO_STDIO
343 DSA *d2i_DSAPrivateKey_fp(FILE *fp, DSA **dsa)
345 return ASN1_d2i_fp_of(DSA, DSA_new, d2i_DSAPrivateKey, fp, dsa);
348 int i2d_DSAPrivateKey_fp(FILE *fp, const DSA *dsa)
350 return ASN1_i2d_fp_of(DSA, i2d_DSAPrivateKey, fp, dsa);
353 DSA *d2i_DSA_PUBKEY_fp(FILE *fp, DSA **dsa)
355 return ASN1_d2i_fp_of(DSA, DSA_new, d2i_DSA_PUBKEY, fp, dsa);
358 int i2d_DSA_PUBKEY_fp(FILE *fp, const DSA *dsa)
360 return ASN1_i2d_fp_of(DSA, i2d_DSA_PUBKEY, fp, dsa);
364 DSA *d2i_DSAPrivateKey_bio(BIO *bp, DSA **dsa)
366 return ASN1_d2i_bio_of(DSA, DSA_new, d2i_DSAPrivateKey, bp, dsa);
369 int i2d_DSAPrivateKey_bio(BIO *bp, const DSA *dsa)
371 return ASN1_i2d_bio_of(DSA, i2d_DSAPrivateKey, bp, dsa);
374 DSA *d2i_DSA_PUBKEY_bio(BIO *bp, DSA **dsa)
376 return ASN1_d2i_bio_of(DSA, DSA_new, d2i_DSA_PUBKEY, bp, dsa);
379 int i2d_DSA_PUBKEY_bio(BIO *bp, const DSA *dsa)
381 return ASN1_i2d_bio_of(DSA, i2d_DSA_PUBKEY, bp, dsa);
386 #ifndef OPENSSL_NO_EC
387 # ifndef OPENSSL_NO_STDIO
388 EC_KEY *d2i_EC_PUBKEY_fp(FILE *fp, EC_KEY **eckey)
390 return ASN1_d2i_fp_of(EC_KEY, EC_KEY_new, d2i_EC_PUBKEY, fp, eckey);
393 int i2d_EC_PUBKEY_fp(FILE *fp, const EC_KEY *eckey)
395 return ASN1_i2d_fp_of(EC_KEY, i2d_EC_PUBKEY, fp, eckey);
398 EC_KEY *d2i_ECPrivateKey_fp(FILE *fp, EC_KEY **eckey)
400 return ASN1_d2i_fp_of(EC_KEY, EC_KEY_new, d2i_ECPrivateKey, fp, eckey);
403 int i2d_ECPrivateKey_fp(FILE *fp, const EC_KEY *eckey)
405 return ASN1_i2d_fp_of(EC_KEY, i2d_ECPrivateKey, fp, eckey);
408 EC_KEY *d2i_EC_PUBKEY_bio(BIO *bp, EC_KEY **eckey)
410 return ASN1_d2i_bio_of(EC_KEY, EC_KEY_new, d2i_EC_PUBKEY, bp, eckey);
413 int i2d_EC_PUBKEY_bio(BIO *bp, const EC_KEY *ecdsa)
415 return ASN1_i2d_bio_of(EC_KEY, i2d_EC_PUBKEY, bp, ecdsa);
418 EC_KEY *d2i_ECPrivateKey_bio(BIO *bp, EC_KEY **eckey)
420 return ASN1_d2i_bio_of(EC_KEY, EC_KEY_new, d2i_ECPrivateKey, bp, eckey);
423 int i2d_ECPrivateKey_bio(BIO *bp, const EC_KEY *eckey)
425 return ASN1_i2d_bio_of(EC_KEY, i2d_ECPrivateKey, bp, eckey);
429 int X509_pubkey_digest(const X509 *data, const EVP_MD *type,
430 unsigned char *md, unsigned int *len)
432 ASN1_BIT_STRING *key;
433 key = X509_get0_pubkey_bitstr(data);
436 return EVP_Digest(key->data, key->length, md, len, type, NULL);
439 int X509_digest(const X509 *data, const EVP_MD *type, unsigned char *md,
442 if (type == EVP_sha1() && (data->ex_flags & EXFLAG_SET) != 0) {
443 /* Asking for SHA1 and we already computed it. */
445 *len = sizeof(data->sha1_hash);
446 memcpy(md, data->sha1_hash, sizeof(data->sha1_hash));
449 return (ASN1_item_digest
450 (ASN1_ITEM_rptr(X509), type, (char *)data, md, len));
453 /* calculate cert digest using the same hash algorithm as in its signature */
454 ASN1_OCTET_STRING *X509_digest_sig(const X509 *cert)
457 unsigned char hash[EVP_MAX_MD_SIZE];
459 const EVP_MD *md = NULL;
460 ASN1_OCTET_STRING *new = NULL;
463 X509err(0, ERR_R_PASSED_NULL_PARAMETER);
467 if (!OBJ_find_sigid_algs(X509_get_signature_nid(cert), &md_NID, NULL)
468 || (md = EVP_get_digestbynid(md_NID)) == NULL) {
469 CMPerr(0, X509_R_UNSUPPORTED_ALGORITHM);
472 if (!X509_digest(cert, md, hash, &len)
473 || (new = ASN1_OCTET_STRING_new()) == NULL)
475 if (!(ASN1_OCTET_STRING_set(new, hash, len))) {
476 ASN1_OCTET_STRING_free(new);
482 int X509_CRL_digest(const X509_CRL *data, const EVP_MD *type,
483 unsigned char *md, unsigned int *len)
485 if (type == EVP_sha1() && (data->flags & EXFLAG_SET) != 0) {
486 /* Asking for SHA1; always computed in CRL d2i. */
488 *len = sizeof(data->sha1_hash);
489 memcpy(md, data->sha1_hash, sizeof(data->sha1_hash));
492 return (ASN1_item_digest
493 (ASN1_ITEM_rptr(X509_CRL), type, (char *)data, md, len));
496 int X509_REQ_digest(const X509_REQ *data, const EVP_MD *type,
497 unsigned char *md, unsigned int *len)
499 return (ASN1_item_digest
500 (ASN1_ITEM_rptr(X509_REQ), type, (char *)data, md, len));
503 int X509_NAME_digest(const X509_NAME *data, const EVP_MD *type,
504 unsigned char *md, unsigned int *len)
506 return (ASN1_item_digest
507 (ASN1_ITEM_rptr(X509_NAME), type, (char *)data, md, len));
510 int PKCS7_ISSUER_AND_SERIAL_digest(PKCS7_ISSUER_AND_SERIAL *data,
511 const EVP_MD *type, unsigned char *md,
514 return (ASN1_item_digest(ASN1_ITEM_rptr(PKCS7_ISSUER_AND_SERIAL), type,
515 (char *)data, md, len));
518 #ifndef OPENSSL_NO_STDIO
519 X509_SIG *d2i_PKCS8_fp(FILE *fp, X509_SIG **p8)
521 return ASN1_d2i_fp_of(X509_SIG, X509_SIG_new, d2i_X509_SIG, fp, p8);
524 int i2d_PKCS8_fp(FILE *fp, const X509_SIG *p8)
526 return ASN1_i2d_fp_of(X509_SIG, i2d_X509_SIG, fp, p8);
530 X509_SIG *d2i_PKCS8_bio(BIO *bp, X509_SIG **p8)
532 return ASN1_d2i_bio_of(X509_SIG, X509_SIG_new, d2i_X509_SIG, bp, p8);
535 int i2d_PKCS8_bio(BIO *bp, const X509_SIG *p8)
537 return ASN1_i2d_bio_of(X509_SIG, i2d_X509_SIG, bp, p8);
540 #ifndef OPENSSL_NO_STDIO
541 X509_PUBKEY *d2i_X509_PUBKEY_fp(FILE *fp, X509_PUBKEY **xpk)
543 return ASN1_d2i_fp_of(X509_PUBKEY, X509_PUBKEY_new, d2i_X509_PUBKEY,
547 int i2d_X509_PUBKEY_fp(FILE *fp, const X509_PUBKEY *xpk)
549 return ASN1_i2d_fp_of(X509_PUBKEY, i2d_X509_PUBKEY, fp, xpk);
553 X509_PUBKEY *d2i_X509_PUBKEY_bio(BIO *bp, X509_PUBKEY **xpk)
555 return ASN1_d2i_bio_of(X509_PUBKEY, X509_PUBKEY_new, d2i_X509_PUBKEY,
559 int i2d_X509_PUBKEY_bio(BIO *bp, const X509_PUBKEY *xpk)
561 return ASN1_i2d_bio_of(X509_PUBKEY, i2d_X509_PUBKEY, bp, xpk);
564 #ifndef OPENSSL_NO_STDIO
565 PKCS8_PRIV_KEY_INFO *d2i_PKCS8_PRIV_KEY_INFO_fp(FILE *fp,
566 PKCS8_PRIV_KEY_INFO **p8inf)
568 return ASN1_d2i_fp_of(PKCS8_PRIV_KEY_INFO, PKCS8_PRIV_KEY_INFO_new,
569 d2i_PKCS8_PRIV_KEY_INFO, fp, p8inf);
572 int i2d_PKCS8_PRIV_KEY_INFO_fp(FILE *fp, const PKCS8_PRIV_KEY_INFO *p8inf)
574 return ASN1_i2d_fp_of(PKCS8_PRIV_KEY_INFO, i2d_PKCS8_PRIV_KEY_INFO, fp,
578 int i2d_PKCS8PrivateKeyInfo_fp(FILE *fp, const EVP_PKEY *key)
580 PKCS8_PRIV_KEY_INFO *p8inf;
583 p8inf = EVP_PKEY2PKCS8(key);
586 ret = i2d_PKCS8_PRIV_KEY_INFO_fp(fp, p8inf);
587 PKCS8_PRIV_KEY_INFO_free(p8inf);
591 int i2d_PrivateKey_fp(FILE *fp, const EVP_PKEY *pkey)
593 return ASN1_i2d_fp_of(EVP_PKEY, i2d_PrivateKey, fp, pkey);
596 EVP_PKEY *d2i_PrivateKey_fp(FILE *fp, EVP_PKEY **a)
598 return ASN1_d2i_fp_of(EVP_PKEY, EVP_PKEY_new, d2i_AutoPrivateKey, fp, a);
601 int i2d_PUBKEY_fp(FILE *fp, const EVP_PKEY *pkey)
603 return ASN1_i2d_fp_of(EVP_PKEY, i2d_PUBKEY, fp, pkey);
606 EVP_PKEY *d2i_PUBKEY_fp(FILE *fp, EVP_PKEY **a)
608 return ASN1_d2i_fp_of(EVP_PKEY, EVP_PKEY_new, d2i_PUBKEY, fp, a);
613 PKCS8_PRIV_KEY_INFO *d2i_PKCS8_PRIV_KEY_INFO_bio(BIO *bp,
614 PKCS8_PRIV_KEY_INFO **p8inf)
616 return ASN1_d2i_bio_of(PKCS8_PRIV_KEY_INFO, PKCS8_PRIV_KEY_INFO_new,
617 d2i_PKCS8_PRIV_KEY_INFO, bp, p8inf);
620 int i2d_PKCS8_PRIV_KEY_INFO_bio(BIO *bp, const PKCS8_PRIV_KEY_INFO *p8inf)
622 return ASN1_i2d_bio_of(PKCS8_PRIV_KEY_INFO, i2d_PKCS8_PRIV_KEY_INFO, bp,
626 int i2d_PKCS8PrivateKeyInfo_bio(BIO *bp, const EVP_PKEY *key)
628 PKCS8_PRIV_KEY_INFO *p8inf;
631 p8inf = EVP_PKEY2PKCS8(key);
634 ret = i2d_PKCS8_PRIV_KEY_INFO_bio(bp, p8inf);
635 PKCS8_PRIV_KEY_INFO_free(p8inf);
639 int i2d_PrivateKey_bio(BIO *bp, const EVP_PKEY *pkey)
641 return ASN1_i2d_bio_of(EVP_PKEY, i2d_PrivateKey, bp, pkey);
644 EVP_PKEY *d2i_PrivateKey_bio(BIO *bp, EVP_PKEY **a)
646 return ASN1_d2i_bio_of(EVP_PKEY, EVP_PKEY_new, d2i_AutoPrivateKey, bp, a);
649 int i2d_PUBKEY_bio(BIO *bp, const EVP_PKEY *pkey)
651 return ASN1_i2d_bio_of(EVP_PKEY, i2d_PUBKEY, bp, pkey);
654 EVP_PKEY *d2i_PUBKEY_bio(BIO *bp, EVP_PKEY **a)
656 return ASN1_d2i_bio_of(EVP_PKEY, EVP_PKEY_new, d2i_PUBKEY, bp, a);