crypto/x509/x_all.c

   1 /* crypto/x509/x_all.c */
   2 /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
   3  * All rights reserved.
   4  *
   5  * This package is an SSL implementation written
   6  * by Eric Young (eay@cryptsoft.com).
   7  * The implementation was written so as to conform with Netscapes SSL.
   8  *
   9  * This library is free for commercial and non-commercial use as long as
  10  * the following conditions are aheared to.  The following conditions
  11  * apply to all code found in this distribution, be it the RC4, RSA,
  12  * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
  13  * included with this distribution is covered by the same copyright terms
  14  * except that the holder is Tim Hudson (tjh@cryptsoft.com).
  15  *
  16  * Copyright remains Eric Young's, and as such any Copyright notices in
  17  * the code are not to be removed.
  18  * If this package is used in a product, Eric Young should be given attribution
  19  * as the author of the parts of the library used.
  20  * This can be in the form of a textual message at program startup or
  21  * in documentation (online or textual) provided with the package.
  22  *
  23  * Redistribution and use in source and binary forms, with or without
  24  * modification, are permitted provided that the following conditions
  25  * are met:
  26  * 1. Redistributions of source code must retain the copyright
  27  *    notice, this list of conditions and the following disclaimer.
  28  * 2. Redistributions in binary form must reproduce the above copyright
  29  *    notice, this list of conditions and the following disclaimer in the
  30  *    documentation and/or other materials provided with the distribution.
  31  * 3. All advertising materials mentioning features or use of this software
  32  *    must display the following acknowledgement:
  33  *    "This product includes cryptographic software written by
  34  *     Eric Young (eay@cryptsoft.com)"
  35  *    The word 'cryptographic' can be left out if the rouines from the library
  36  *    being used are not cryptographic related :-).
  37  * 4. If you include any Windows specific code (or a derivative thereof) from
  38  *    the apps directory (application code) you must include an acknowledgement:
  39  *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
  40  *
  41  * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
  42  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  43  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  44  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  45  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  46  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  47  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  48  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  49  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  50  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  51  * SUCH DAMAGE.
  52  *
  53  * The licence and distribution terms for any publically available version or
  54  * derivative of this code cannot be changed.  i.e. this code cannot simply be
  55  * copied and put under another distribution licence
  56  * [including the GNU Public Licence.]
  57  */
  58
  59 #include <stdio.h>
  60 #undef SSLEAY_MACROS
  61 #include <openssl/stack.h>
  62 #include "cryptlib.h"
  63 #include <openssl/buffer.h>
  64 #include <openssl/asn1.h>
  65 #include <openssl/evp.h>
  66 #include <openssl/x509.h>
  67
  68 int X509_verify(X509 *a, EVP_PKEY *r)
  69         {
  70         return(ASN1_verify((int (*)())i2d_X509_CINF,a->sig_alg,
  71                 a->signature,(char *)a->cert_info,r));
  72         }
  73
  74 int X509_REQ_verify(X509_REQ *a, EVP_PKEY *r)
  75         {
  76         return( ASN1_verify((int (*)())i2d_X509_REQ_INFO,
  77                 a->sig_alg,a->signature,(char *)a->req_info,r));
  78         }
  79
  80 int X509_CRL_verify(X509_CRL *a, EVP_PKEY *r)
  81         {
  82         return(ASN1_verify((int (*)())i2d_X509_CRL_INFO,
  83                 a->sig_alg, a->signature,(char *)a->crl,r));
  84         }
  85
  86 int NETSCAPE_SPKI_verify(NETSCAPE_SPKI *a, EVP_PKEY *r)
  87         {
  88         return(ASN1_verify((int (*)())i2d_NETSCAPE_SPKAC,
  89                 a->sig_algor,a->signature, (char *)a->spkac,r));
  90         }
  91
  92 int X509_sign(X509 *x, EVP_PKEY *pkey, const EVP_MD *md)
  93         {
  94         return(ASN1_sign((int (*)())i2d_X509_CINF, x->cert_info->signature,
  95                 x->sig_alg, x->signature, (char *)x->cert_info,pkey,md));
  96         }
  97
  98 int X509_REQ_sign(X509_REQ *x, EVP_PKEY *pkey, const EVP_MD *md)
  99         {
 100         return(ASN1_sign((int (*)())i2d_X509_REQ_INFO,x->sig_alg, NULL,
 101                 x->signature, (char *)x->req_info,pkey,md));
 102         }
 103
 104 int X509_CRL_sign(X509_CRL *x, EVP_PKEY *pkey, const EVP_MD *md)
 105         {
 106         return(ASN1_sign((int (*)())i2d_X509_CRL_INFO,x->crl->sig_alg,
 107                 x->sig_alg, x->signature, (char *)x->crl,pkey,md));
 108         }
 109
 110 int NETSCAPE_SPKI_sign(NETSCAPE_SPKI *x, EVP_PKEY *pkey, const EVP_MD *md)
 111         {
 112         return(ASN1_sign((int (*)())i2d_NETSCAPE_SPKAC, x->sig_algor,NULL,
 113                 x->signature, (char *)x->spkac,pkey,md));
 114         }
 115
 116 X509_ATTRIBUTE *X509_ATTRIBUTE_dup(X509_ATTRIBUTE *xa)
 117         {
 118         return((X509_ATTRIBUTE *)ASN1_dup((int (*)())i2d_X509_ATTRIBUTE,
 119                 (char *(*)())d2i_X509_ATTRIBUTE,(char *)xa));
 120         }
 121
 122 X509 *X509_dup(X509 *x509)
 123         {
 124         return((X509 *)ASN1_dup((int (*)())i2d_X509,
 125                 (char *(*)())d2i_X509,(char *)x509));
 126         }
 127
 128 X509_EXTENSION *X509_EXTENSION_dup(X509_EXTENSION *ex)
 129         {
 130         return((X509_EXTENSION *)ASN1_dup(
 131                 (int (*)())i2d_X509_EXTENSION,
 132                 (char *(*)())d2i_X509_EXTENSION,(char *)ex));
 133         }
 134
 135 #ifndef NO_FP_API
 136 X509 *d2i_X509_fp(FILE *fp, X509 **x509)
 137         {
 138         return((X509 *)ASN1_d2i_fp((char *(*)())X509_new,
 139                 (char *(*)())d2i_X509, (fp),(unsigned char **)(x509)));
 140         }
 141
 142 int i2d_X509_fp(FILE *fp, X509 *x509)
 143         {
 144         return(ASN1_i2d_fp(i2d_X509,fp,(unsigned char *)x509));
 145         }
 146 #endif
 147
 148 X509 *d2i_X509_bio(BIO *bp, X509 **x509)
 149         {
 150         return((X509 *)ASN1_d2i_bio((char *(*)())X509_new,
 151                 (char *(*)())d2i_X509, (bp),(unsigned char **)(x509)));
 152         }
 153
 154 int i2d_X509_bio(BIO *bp, X509 *x509)
 155         {
 156         return(ASN1_i2d_bio(i2d_X509,bp,(unsigned char *)x509));
 157         }
 158
 159 X509_CRL *X509_CRL_dup(X509_CRL *crl)
 160         {
 161         return((X509_CRL *)ASN1_dup((int (*)())i2d_X509_CRL,
 162                 (char *(*)())d2i_X509_CRL,(char *)crl));
 163         }
 164
 165 #ifndef NO_FP_API
 166 X509_CRL *d2i_X509_CRL_fp(FILE *fp, X509_CRL **crl)
 167         {
 168         return((X509_CRL *)ASN1_d2i_fp((char *(*)())
 169                 X509_CRL_new,(char *(*)())d2i_X509_CRL, (fp),
 170                 (unsigned char **)(crl)));
 171         }
 172
 173 int i2d_X509_CRL_fp(FILE *fp, X509_CRL *crl)
 174         {
 175         return(ASN1_i2d_fp(i2d_X509_CRL,fp,(unsigned char *)crl));
 176         }
 177 #endif
 178
 179 X509_CRL *d2i_X509_CRL_bio(BIO *bp, X509_CRL **crl)
 180         {
 181         return((X509_CRL *)ASN1_d2i_bio((char *(*)())
 182                 X509_CRL_new,(char *(*)())d2i_X509_CRL, (bp),
 183                 (unsigned char **)(crl)));
 184         }
 185
 186 int i2d_X509_CRL_bio(BIO *bp, X509_CRL *crl)
 187         {
 188         return(ASN1_i2d_bio(i2d_X509_CRL,bp,(unsigned char *)crl));
 189         }
 190
 191 PKCS7 *PKCS7_dup(PKCS7 *p7)
 192         {
 193         return((PKCS7 *)ASN1_dup((int (*)())i2d_PKCS7,
 194                 (char *(*)())d2i_PKCS7,(char *)p7));
 195         }
 196
 197 #ifndef NO_FP_API
 198 PKCS7 *d2i_PKCS7_fp(FILE *fp, PKCS7 **p7)
 199         {
 200         return((PKCS7 *)ASN1_d2i_fp((char *(*)())
 201                 PKCS7_new,(char *(*)())d2i_PKCS7, (fp),
 202                 (unsigned char **)(p7)));
 203         }
 204
 205 int i2d_PKCS7_fp(FILE *fp, PKCS7 *p7)
 206         {
 207         return(ASN1_i2d_fp(i2d_PKCS7,fp,(unsigned char *)p7));
 208         }
 209 #endif
 210
 211 PKCS7 *d2i_PKCS7_bio(BIO *bp, PKCS7 **p7)
 212         {
 213         return((PKCS7 *)ASN1_d2i_bio((char *(*)())
 214                 PKCS7_new,(char *(*)())d2i_PKCS7, (bp),
 215                 (unsigned char **)(p7)));
 216         }
 217
 218 int i2d_PKCS7_bio(BIO *bp, PKCS7 *p7)
 219         {
 220         return(ASN1_i2d_bio(i2d_PKCS7,bp,(unsigned char *)p7));
 221         }
 222
 223 X509_REQ *X509_REQ_dup(X509_REQ *req)
 224         {
 225         return((X509_REQ *)ASN1_dup((int (*)())i2d_X509_REQ,
 226                 (char *(*)())d2i_X509_REQ,(char *)req));
 227         }
 228
 229 #ifndef NO_FP_API
 230 X509_REQ *d2i_X509_REQ_fp(FILE *fp, X509_REQ **req)
 231         {
 232         return((X509_REQ *)ASN1_d2i_fp((char *(*)())
 233                 X509_REQ_new, (char *(*)())d2i_X509_REQ, (fp),
 234                 (unsigned char **)(req)));
 235         }
 236
 237 int i2d_X509_REQ_fp(FILE *fp, X509_REQ *req)
 238         {
 239         return(ASN1_i2d_fp(i2d_X509_REQ,fp,(unsigned char *)req));
 240         }
 241 #endif
 242
 243 X509_REQ *d2i_X509_REQ_bio(BIO *bp, X509_REQ **req)
 244         {
 245         return((X509_REQ *)ASN1_d2i_bio((char *(*)())
 246                 X509_REQ_new, (char *(*)())d2i_X509_REQ, (bp),
 247                 (unsigned char **)(req)));
 248         }
 249
 250 int i2d_X509_REQ_bio(BIO *bp, X509_REQ *req)
 251         {
 252         return(ASN1_i2d_bio(i2d_X509_REQ,bp,(unsigned char *)req));
 253         }
 254
 255 #ifndef NO_RSA
 256 RSA *RSAPublicKey_dup(RSA *rsa)
 257         {
 258         return((RSA *)ASN1_dup((int (*)())i2d_RSAPublicKey,
 259                 (char *(*)())d2i_RSAPublicKey,(char *)rsa));
 260         }
 261
 262 RSA *RSAPrivateKey_dup(RSA *rsa)
 263         {
 264         return((RSA *)ASN1_dup((int (*)())i2d_RSAPrivateKey,
 265                 (char *(*)())d2i_RSAPrivateKey,(char *)rsa));
 266         }
 267
 268 #ifndef NO_FP_API
 269 RSA *d2i_RSAPrivateKey_fp(FILE *fp, RSA **rsa)
 270         {
 271         return((RSA *)ASN1_d2i_fp((char *(*)())
 272                 RSA_new,(char *(*)())d2i_RSAPrivateKey, (fp),
 273                 (unsigned char **)(rsa)));
 274         }
 275
 276 int i2d_RSAPrivateKey_fp(FILE *fp, RSA *rsa)
 277         {
 278         return(ASN1_i2d_fp(i2d_RSAPrivateKey,fp,(unsigned char *)rsa));
 279         }
 280
 281 RSA *d2i_RSAPublicKey_fp(FILE *fp, RSA **rsa)
 282         {
 283         return((RSA *)ASN1_d2i_fp((char *(*)())
 284                 RSA_new,(char *(*)())d2i_RSAPublicKey, (fp),
 285                 (unsigned char **)(rsa)));
 286         }
 287
 288 RSA *d2i_RSA_PUBKEY_fp(FILE *fp, RSA **rsa)
 289         {
 290         return((RSA *)ASN1_d2i_fp((char *(*)())
 291                 RSA_new,(char *(*)())d2i_RSA_PUBKEY, (fp),
 292                 (unsigned char **)(rsa)));
 293         }
 294
 295 int i2d_RSAPublicKey_fp(FILE *fp, RSA *rsa)
 296         {
 297         return(ASN1_i2d_fp(i2d_RSAPublicKey,fp,(unsigned char *)rsa));
 298         }
 299
 300 int i2d_RSA_PUBKEY_fp(FILE *fp, RSA *rsa)
 301         {
 302         return(ASN1_i2d_fp(i2d_RSA_PUBKEY,fp,(unsigned char *)rsa));
 303         }
 304 #endif
 305
 306 RSA *d2i_RSAPrivateKey_bio(BIO *bp, RSA **rsa)
 307         {
 308         return((RSA *)ASN1_d2i_bio((char *(*)())
 309                 RSA_new,(char *(*)())d2i_RSAPrivateKey, (bp),
 310                 (unsigned char **)(rsa)));
 311         }
 312
 313 int i2d_RSAPrivateKey_bio(BIO *bp, RSA *rsa)
 314         {
 315         return(ASN1_i2d_bio(i2d_RSAPrivateKey,bp,(unsigned char *)rsa));
 316         }
 317
 318 RSA *d2i_RSAPublicKey_bio(BIO *bp, RSA **rsa)
 319         {
 320         return((RSA *)ASN1_d2i_bio((char *(*)())
 321                 RSA_new,(char *(*)())d2i_RSAPublicKey, (bp),
 322                 (unsigned char **)(rsa)));
 323         }
 324
 325 RSA *d2i_RSA_PUBKEY_bio(BIO *bp, RSA **rsa)
 326         {
 327         return((RSA *)ASN1_d2i_bio((char *(*)())
 328                 RSA_new,(char *(*)())d2i_RSA_PUBKEY, (bp),
 329                 (unsigned char **)(rsa)));
 330         }
 331
 332 int i2d_RSAPublicKey_bio(BIO *bp, RSA *rsa)
 333         {
 334         return(ASN1_i2d_bio(i2d_RSAPublicKey,bp,(unsigned char *)rsa));
 335         }
 336
 337 int i2d_RSA_PUBKEY_bio(BIO *bp, RSA *rsa)
 338         {
 339         return(ASN1_i2d_bio(i2d_RSA_PUBKEY,bp,(unsigned char *)rsa));
 340         }
 341 #endif
 342
 343 #ifndef NO_DSA
 344 #ifndef NO_FP_API
 345 DSA *d2i_DSAPrivateKey_fp(FILE *fp, DSA **dsa)
 346         {
 347         return((DSA *)ASN1_d2i_fp((char *(*)())
 348                 DSA_new,(char *(*)())d2i_DSAPrivateKey, (fp),
 349                 (unsigned char **)(dsa)));
 350         }
 351
 352 int i2d_DSAPrivateKey_fp(FILE *fp, DSA *dsa)
 353         {
 354         return(ASN1_i2d_fp(i2d_DSAPrivateKey,fp,(unsigned char *)dsa));
 355         }
 356
 357 DSA *d2i_DSA_PUBKEY_fp(FILE *fp, DSA **dsa)
 358         {
 359         return((DSA *)ASN1_d2i_fp((char *(*)())
 360                 DSA_new,(char *(*)())d2i_DSA_PUBKEY, (fp),
 361                 (unsigned char **)(dsa)));
 362         }
 363
 364 int i2d_DSA_PUBKEY_fp(FILE *fp, DSA *dsa)
 365         {
 366         return(ASN1_i2d_fp(i2d_DSA_PUBKEY,fp,(unsigned char *)dsa));
 367         }
 368 #endif
 369
 370 DSA *d2i_DSAPrivateKey_bio(BIO *bp, DSA **dsa)
 371         {
 372         return((DSA *)ASN1_d2i_bio((char *(*)())
 373                 DSA_new,(char *(*)())d2i_DSAPrivateKey, (bp),
 374                 (unsigned char **)(dsa)));
 375         }
 376
 377 int i2d_DSAPrivateKey_bio(BIO *bp, DSA *dsa)
 378         {
 379         return(ASN1_i2d_bio(i2d_DSAPrivateKey,bp,(unsigned char *)dsa));
 380         }
 381
 382 DSA *d2i_DSA_PUBKEY_bio(BIO *bp, DSA **dsa)
 383         {
 384         return((DSA *)ASN1_d2i_bio((char *(*)())
 385                 DSA_new,(char *(*)())d2i_DSA_PUBKEY, (bp),
 386                 (unsigned char **)(dsa)));
 387         }
 388
 389 int i2d_DSA_PUBKEY_bio(BIO *bp, DSA *dsa)
 390         {
 391         return(ASN1_i2d_bio(i2d_DSA_PUBKEY,bp,(unsigned char *)dsa));
 392         }
 393
 394 #endif
 395
 396 X509_ALGOR *X509_ALGOR_dup(X509_ALGOR *xn)
 397         {
 398         return((X509_ALGOR *)ASN1_dup((int (*)())i2d_X509_ALGOR,
 399         (char *(*)())d2i_X509_ALGOR,(char *)xn));
 400         }
 401
 402 X509_NAME *X509_NAME_dup(X509_NAME *xn)
 403         {
 404         return((X509_NAME *)ASN1_dup((int (*)())i2d_X509_NAME,
 405                 (char *(*)())d2i_X509_NAME,(char *)xn));
 406         }
 407
 408 X509_NAME_ENTRY *X509_NAME_ENTRY_dup(X509_NAME_ENTRY *ne)
 409         {
 410         return((X509_NAME_ENTRY *)ASN1_dup((int (*)())i2d_X509_NAME_ENTRY,
 411                 (char *(*)())d2i_X509_NAME_ENTRY,(char *)ne));
 412         }
 413
 414 int X509_digest(X509 *data, const EVP_MD *type, unsigned char *md,
 415              unsigned int *len)
 416         {
 417         return(ASN1_digest((int (*)())i2d_X509,type,(char *)data,md,len));
 418         }
 419
 420 int X509_NAME_digest(X509_NAME *data, const EVP_MD *type, unsigned char *md,
 421              unsigned int *len)
 422         {
 423         return(ASN1_digest((int (*)())i2d_X509_NAME,type,(char *)data,md,len));
 424         }
 425
 426 int PKCS7_ISSUER_AND_SERIAL_digest(PKCS7_ISSUER_AND_SERIAL *data, const EVP_MD *type,
 427              unsigned char *md, unsigned int *len)
 428         {
 429         return(ASN1_digest((int (*)())i2d_PKCS7_ISSUER_AND_SERIAL,type,
 430                 (char *)data,md,len));
 431         }
 432
 433
 434 #ifndef NO_FP_API
 435 X509_SIG *d2i_PKCS8_fp(FILE *fp, X509_SIG **p8)
 436         {
 437         return((X509_SIG *)ASN1_d2i_fp((char *(*)())X509_SIG_new,
 438                 (char *(*)())d2i_X509_SIG, (fp),(unsigned char **)(p8)));
 439         }
 440
 441 int i2d_PKCS8_fp(FILE *fp, X509_SIG *p8)
 442         {
 443         return(ASN1_i2d_fp(i2d_X509_SIG,fp,(unsigned char *)p8));
 444         }
 445 #endif
 446
 447 X509_SIG *d2i_PKCS8_bio(BIO *bp, X509_SIG **p8)
 448         {
 449         return((X509_SIG *)ASN1_d2i_bio((char *(*)())X509_SIG_new,
 450                 (char *(*)())d2i_X509_SIG, (bp),(unsigned char **)(p8)));
 451         }
 452
 453 int i2d_PKCS8_bio(BIO *bp, X509_SIG *p8)
 454         {
 455         return(ASN1_i2d_bio(i2d_X509_SIG,bp,(unsigned char *)p8));
 456         }
 457
 458 #ifndef NO_FP_API
 459 PKCS8_PRIV_KEY_INFO *d2i_PKCS8_PRIV_KEY_INFO_fp(FILE *fp,
 460                                                  PKCS8_PRIV_KEY_INFO **p8inf)
 461         {
 462         return((PKCS8_PRIV_KEY_INFO *)ASN1_d2i_fp(
 463                 (char *(*)())PKCS8_PRIV_KEY_INFO_new,
 464                 (char *(*)())d2i_PKCS8_PRIV_KEY_INFO, (fp),
 465                                 (unsigned char **)(p8inf)));
 466         }
 467
 468 int i2d_PKCS8_PRIV_KEY_INFO_fp(FILE *fp, PKCS8_PRIV_KEY_INFO *p8inf)
 469         {
 470         return(ASN1_i2d_fp(i2d_PKCS8_PRIV_KEY_INFO,fp,(unsigned char *)p8inf));
 471         }
 472
 473 int i2d_PKCS8PrivateKeyInfo_fp(FILE *fp, EVP_PKEY *key)
 474         {
 475         PKCS8_PRIV_KEY_INFO *p8inf;
 476         int ret;
 477         p8inf = EVP_PKEY2PKCS8(key);
 478         if(!p8inf) return 0;
 479         ret = i2d_PKCS8_PRIV_KEY_INFO_fp(fp, p8inf);
 480         PKCS8_PRIV_KEY_INFO_free(p8inf);
 481         return ret;
 482         }
 483
 484 int i2d_PrivateKey_fp(FILE *fp, EVP_PKEY *pkey)
 485         {
 486         return(ASN1_i2d_fp(i2d_PrivateKey,fp,(unsigned char *)pkey));
 487         }
 488
 489 EVP_PKEY *d2i_PrivateKey_fp(FILE *fp, int type, EVP_PKEY **a)
 490 {
 491         BIO *bp;
 492         EVP_PKEY *ret;
 493         if(!(bp = BIO_new_fp(fp, BIO_NOCLOSE))) {
 494                 ASN1err(ASN1_F_D2I_PRIVATEKEY_FP,ERR_R_MALLOC_FAILURE);
 495                 return NULL;
 496         }
 497         ret = d2i_PrivateKey_bio(bp, type, a);
 498         BIO_free(bp);
 499         return ret;
 500 }
 501
 502 #endif
 503
 504 PKCS8_PRIV_KEY_INFO *d2i_PKCS8_PRIV_KEY_INFO_bio(BIO *bp,
 505                                                  PKCS8_PRIV_KEY_INFO **p8inf)
 506         {
 507         return((PKCS8_PRIV_KEY_INFO *)ASN1_d2i_bio(
 508                 (char *(*)())PKCS8_PRIV_KEY_INFO_new,
 509                 (char *(*)())d2i_PKCS8_PRIV_KEY_INFO, (bp),
 510                                 (unsigned char **)(p8inf)));
 511         }
 512
 513 int i2d_PKCS8_PRIV_KEY_INFO_bio(BIO *bp, PKCS8_PRIV_KEY_INFO *p8inf)
 514         {
 515         return(ASN1_i2d_bio(i2d_PKCS8_PRIV_KEY_INFO,bp,(unsigned char *)p8inf));
 516         }
 517
 518 int i2d_PKCS8PrivateKeyInfo_bio(BIO *bp, EVP_PKEY *key)
 519         {
 520         PKCS8_PRIV_KEY_INFO *p8inf;
 521         int ret;
 522         p8inf = EVP_PKEY2PKCS8(key);
 523         if(!p8inf) return 0;
 524         ret = i2d_PKCS8_PRIV_KEY_INFO_bio(bp, p8inf);
 525         PKCS8_PRIV_KEY_INFO_free(p8inf);
 526         return ret;
 527         }
 528
 529 int i2d_PrivateKey_bio(BIO *bp, EVP_PKEY *pkey)
 530         {
 531         return(ASN1_i2d_bio(i2d_PrivateKey,bp,(unsigned char *)pkey));
 532         }
 533
 534 EVP_PKEY *d2i_PrivateKey_bio(BIO *bp, int type, EVP_PKEY **a)
 535         {
 536         EVP_PKEY *ret;
 537
 538         if ((a == NULL) || (*a == NULL))
 539                 {
 540                 if ((ret=EVP_PKEY_new()) == NULL)
 541                         {
 542                         ASN1err(ASN1_F_D2I_PRIVATEKEY_BIO,ERR_R_EVP_LIB);
 543                         return(NULL);
 544                         }
 545                 }
 546         else    ret= *a;
 547
 548         ret->save_type=type;
 549         ret->type=EVP_PKEY_type(type);
 550         switch (ret->type)
 551                 {
 552 #ifndef NO_RSA
 553         case EVP_PKEY_RSA:
 554                 if ((ret->pkey.rsa=d2i_RSAPrivateKey_bio(bp,NULL)) == NULL)
 555                         {
 556                         ASN1err(ASN1_F_D2I_PRIVATEKEY_BIO,ERR_R_ASN1_LIB);
 557                         goto err;
 558                         }
 559                 break;
 560 #endif
 561 #ifndef NO_DSA
 562         case EVP_PKEY_DSA:
 563                 if ((ret->pkey.dsa=d2i_DSAPrivateKey_bio(bp, NULL)) == NULL)
 564                         {
 565                         ASN1err(ASN1_F_D2I_PRIVATEKEY_BIO,ERR_R_ASN1_LIB);
 566                         goto err;
 567                         }
 568                 break;
 569 #endif
 570         default:
 571                 ASN1err(ASN1_F_D2I_PRIVATEKEY_BIO,ASN1_R_UNKNOWN_PUBLIC_KEY_TYPE);
 572                 goto err;
 573                 /* break; */
 574                 }
 575         if (a != NULL) (*a)=ret;
 576         return(ret);
 577 err:
 578         if ((ret != NULL) && ((a == NULL) || (*a != ret))) EVP_PKEY_free(ret);
 579         return(NULL);
 580         }