1*0Sstevel@tonic-gate /* apps/crl.c */ 2*0Sstevel@tonic-gate /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) 3*0Sstevel@tonic-gate * All rights reserved. 4*0Sstevel@tonic-gate * 5*0Sstevel@tonic-gate * This package is an SSL implementation written 6*0Sstevel@tonic-gate * by Eric Young (eay@cryptsoft.com). 7*0Sstevel@tonic-gate * The implementation was written so as to conform with Netscapes SSL. 8*0Sstevel@tonic-gate * 9*0Sstevel@tonic-gate * This library is free for commercial and non-commercial use as long as 10*0Sstevel@tonic-gate * the following conditions are aheared to. The following conditions 11*0Sstevel@tonic-gate * apply to all code found in this distribution, be it the RC4, RSA, 12*0Sstevel@tonic-gate * lhash, DES, etc., code; not just the SSL code. The SSL documentation 13*0Sstevel@tonic-gate * included with this distribution is covered by the same copyright terms 14*0Sstevel@tonic-gate * except that the holder is Tim Hudson (tjh@cryptsoft.com). 15*0Sstevel@tonic-gate * 16*0Sstevel@tonic-gate * Copyright remains Eric Young's, and as such any Copyright notices in 17*0Sstevel@tonic-gate * the code are not to be removed. 18*0Sstevel@tonic-gate * If this package is used in a product, Eric Young should be given attribution 19*0Sstevel@tonic-gate * as the author of the parts of the library used. 20*0Sstevel@tonic-gate * This can be in the form of a textual message at program startup or 21*0Sstevel@tonic-gate * in documentation (online or textual) provided with the package. 22*0Sstevel@tonic-gate * 23*0Sstevel@tonic-gate * Redistribution and use in source and binary forms, with or without 24*0Sstevel@tonic-gate * modification, are permitted provided that the following conditions 25*0Sstevel@tonic-gate * are met: 26*0Sstevel@tonic-gate * 1. Redistributions of source code must retain the copyright 27*0Sstevel@tonic-gate * notice, this list of conditions and the following disclaimer. 28*0Sstevel@tonic-gate * 2. Redistributions in binary form must reproduce the above copyright 29*0Sstevel@tonic-gate * notice, this list of conditions and the following disclaimer in the 30*0Sstevel@tonic-gate * documentation and/or other materials provided with the distribution. 31*0Sstevel@tonic-gate * 3. All advertising materials mentioning features or use of this software 32*0Sstevel@tonic-gate * must display the following acknowledgement: 33*0Sstevel@tonic-gate * "This product includes cryptographic software written by 34*0Sstevel@tonic-gate * Eric Young (eay@cryptsoft.com)" 35*0Sstevel@tonic-gate * The word 'cryptographic' can be left out if the rouines from the library 36*0Sstevel@tonic-gate * being used are not cryptographic related :-). 37*0Sstevel@tonic-gate * 4. If you include any Windows specific code (or a derivative thereof) from 38*0Sstevel@tonic-gate * the apps directory (application code) you must include an acknowledgement: 39*0Sstevel@tonic-gate * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" 40*0Sstevel@tonic-gate * 41*0Sstevel@tonic-gate * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND 42*0Sstevel@tonic-gate * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 43*0Sstevel@tonic-gate * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 44*0Sstevel@tonic-gate * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 45*0Sstevel@tonic-gate * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 46*0Sstevel@tonic-gate * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 47*0Sstevel@tonic-gate * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 48*0Sstevel@tonic-gate * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 49*0Sstevel@tonic-gate * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 50*0Sstevel@tonic-gate * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 51*0Sstevel@tonic-gate * SUCH DAMAGE. 52*0Sstevel@tonic-gate * 53*0Sstevel@tonic-gate * The licence and distribution terms for any publically available version or 54*0Sstevel@tonic-gate * derivative of this code cannot be changed. i.e. this code cannot simply be 55*0Sstevel@tonic-gate * copied and put under another distribution licence 56*0Sstevel@tonic-gate * [including the GNU Public Licence.] 57*0Sstevel@tonic-gate */ 58*0Sstevel@tonic-gate 59*0Sstevel@tonic-gate #include <stdio.h> 60*0Sstevel@tonic-gate #include <stdlib.h> 61*0Sstevel@tonic-gate #include <string.h> 62*0Sstevel@tonic-gate #include "apps.h" 63*0Sstevel@tonic-gate #include <openssl/bio.h> 64*0Sstevel@tonic-gate #include <openssl/err.h> 65*0Sstevel@tonic-gate #include <openssl/x509.h> 66*0Sstevel@tonic-gate #include <openssl/x509v3.h> 67*0Sstevel@tonic-gate #include <openssl/pem.h> 68*0Sstevel@tonic-gate 69*0Sstevel@tonic-gate #undef PROG 70*0Sstevel@tonic-gate #define PROG crl_main 71*0Sstevel@tonic-gate 72*0Sstevel@tonic-gate #undef POSTFIX 73*0Sstevel@tonic-gate #define POSTFIX ".rvk" 74*0Sstevel@tonic-gate 75*0Sstevel@tonic-gate static char *crl_usage[]={ 76*0Sstevel@tonic-gate "usage: crl args\n", 77*0Sstevel@tonic-gate "\n", 78*0Sstevel@tonic-gate " -inform arg - input format - default PEM (DER or PEM)\n", 79*0Sstevel@tonic-gate " -outform arg - output format - default PEM\n", 80*0Sstevel@tonic-gate " -text - print out a text format version\n", 81*0Sstevel@tonic-gate " -in arg - input file - default stdin\n", 82*0Sstevel@tonic-gate " -out arg - output file - default stdout\n", 83*0Sstevel@tonic-gate " -hash - print hash value\n", 84*0Sstevel@tonic-gate " -fingerprint - print the crl fingerprint\n", 85*0Sstevel@tonic-gate " -issuer - print issuer DN\n", 86*0Sstevel@tonic-gate " -lastupdate - lastUpdate field\n", 87*0Sstevel@tonic-gate " -nextupdate - nextUpdate field\n", 88*0Sstevel@tonic-gate " -noout - no CRL output\n", 89*0Sstevel@tonic-gate " -CAfile name - verify CRL using certificates in file \"name\"\n", 90*0Sstevel@tonic-gate " -CApath dir - verify CRL using certificates in \"dir\"\n", 91*0Sstevel@tonic-gate " -nameopt arg - various certificate name options\n", 92*0Sstevel@tonic-gate NULL 93*0Sstevel@tonic-gate }; 94*0Sstevel@tonic-gate 95*0Sstevel@tonic-gate static X509_CRL *load_crl(char *file, int format); 96*0Sstevel@tonic-gate static BIO *bio_out=NULL; 97*0Sstevel@tonic-gate 98*0Sstevel@tonic-gate int MAIN(int, char **); 99*0Sstevel@tonic-gate 100*0Sstevel@tonic-gate int MAIN(int argc, char **argv) 101*0Sstevel@tonic-gate { 102*0Sstevel@tonic-gate unsigned long nmflag = 0; 103*0Sstevel@tonic-gate X509_CRL *x=NULL; 104*0Sstevel@tonic-gate char *CAfile = NULL, *CApath = NULL; 105*0Sstevel@tonic-gate int ret=1,i,num,badops=0; 106*0Sstevel@tonic-gate BIO *out=NULL; 107*0Sstevel@tonic-gate int informat,outformat; 108*0Sstevel@tonic-gate char *infile=NULL,*outfile=NULL; 109*0Sstevel@tonic-gate int hash=0,issuer=0,lastupdate=0,nextupdate=0,noout=0,text=0; 110*0Sstevel@tonic-gate int fingerprint = 0; 111*0Sstevel@tonic-gate char **pp; 112*0Sstevel@tonic-gate X509_STORE *store = NULL; 113*0Sstevel@tonic-gate X509_STORE_CTX ctx; 114*0Sstevel@tonic-gate X509_LOOKUP *lookup = NULL; 115*0Sstevel@tonic-gate X509_OBJECT xobj; 116*0Sstevel@tonic-gate EVP_PKEY *pkey; 117*0Sstevel@tonic-gate int do_ver = 0; 118*0Sstevel@tonic-gate const EVP_MD *md_alg,*digest=EVP_md5(); 119*0Sstevel@tonic-gate 120*0Sstevel@tonic-gate apps_startup(); 121*0Sstevel@tonic-gate 122*0Sstevel@tonic-gate if (bio_err == NULL) 123*0Sstevel@tonic-gate if ((bio_err=BIO_new(BIO_s_file())) != NULL) 124*0Sstevel@tonic-gate BIO_set_fp(bio_err,stderr,BIO_NOCLOSE|BIO_FP_TEXT); 125*0Sstevel@tonic-gate 126*0Sstevel@tonic-gate if (!load_config(bio_err, NULL)) 127*0Sstevel@tonic-gate goto end; 128*0Sstevel@tonic-gate 129*0Sstevel@tonic-gate if (bio_out == NULL) 130*0Sstevel@tonic-gate if ((bio_out=BIO_new(BIO_s_file())) != NULL) 131*0Sstevel@tonic-gate { 132*0Sstevel@tonic-gate BIO_set_fp(bio_out,stdout,BIO_NOCLOSE); 133*0Sstevel@tonic-gate #ifdef OPENSSL_SYS_VMS 134*0Sstevel@tonic-gate { 135*0Sstevel@tonic-gate BIO *tmpbio = BIO_new(BIO_f_linebuffer()); 136*0Sstevel@tonic-gate bio_out = BIO_push(tmpbio, bio_out); 137*0Sstevel@tonic-gate } 138*0Sstevel@tonic-gate #endif 139*0Sstevel@tonic-gate } 140*0Sstevel@tonic-gate 141*0Sstevel@tonic-gate informat=FORMAT_PEM; 142*0Sstevel@tonic-gate outformat=FORMAT_PEM; 143*0Sstevel@tonic-gate 144*0Sstevel@tonic-gate argc--; 145*0Sstevel@tonic-gate argv++; 146*0Sstevel@tonic-gate num=0; 147*0Sstevel@tonic-gate while (argc >= 1) 148*0Sstevel@tonic-gate { 149*0Sstevel@tonic-gate #ifdef undef 150*0Sstevel@tonic-gate if (strcmp(*argv,"-p") == 0) 151*0Sstevel@tonic-gate { 152*0Sstevel@tonic-gate if (--argc < 1) goto bad; 153*0Sstevel@tonic-gate if (!args_from_file(++argv,Nargc,Nargv)) { goto end; }*/ 154*0Sstevel@tonic-gate } 155*0Sstevel@tonic-gate #endif 156*0Sstevel@tonic-gate if (strcmp(*argv,"-inform") == 0) 157*0Sstevel@tonic-gate { 158*0Sstevel@tonic-gate if (--argc < 1) goto bad; 159*0Sstevel@tonic-gate informat=str2fmt(*(++argv)); 160*0Sstevel@tonic-gate } 161*0Sstevel@tonic-gate else if (strcmp(*argv,"-outform") == 0) 162*0Sstevel@tonic-gate { 163*0Sstevel@tonic-gate if (--argc < 1) goto bad; 164*0Sstevel@tonic-gate outformat=str2fmt(*(++argv)); 165*0Sstevel@tonic-gate } 166*0Sstevel@tonic-gate else if (strcmp(*argv,"-in") == 0) 167*0Sstevel@tonic-gate { 168*0Sstevel@tonic-gate if (--argc < 1) goto bad; 169*0Sstevel@tonic-gate infile= *(++argv); 170*0Sstevel@tonic-gate } 171*0Sstevel@tonic-gate else if (strcmp(*argv,"-out") == 0) 172*0Sstevel@tonic-gate { 173*0Sstevel@tonic-gate if (--argc < 1) goto bad; 174*0Sstevel@tonic-gate outfile= *(++argv); 175*0Sstevel@tonic-gate } 176*0Sstevel@tonic-gate else if (strcmp(*argv,"-CApath") == 0) 177*0Sstevel@tonic-gate { 178*0Sstevel@tonic-gate if (--argc < 1) goto bad; 179*0Sstevel@tonic-gate CApath = *(++argv); 180*0Sstevel@tonic-gate do_ver = 1; 181*0Sstevel@tonic-gate } 182*0Sstevel@tonic-gate else if (strcmp(*argv,"-CAfile") == 0) 183*0Sstevel@tonic-gate { 184*0Sstevel@tonic-gate if (--argc < 1) goto bad; 185*0Sstevel@tonic-gate CAfile = *(++argv); 186*0Sstevel@tonic-gate do_ver = 1; 187*0Sstevel@tonic-gate } 188*0Sstevel@tonic-gate else if (strcmp(*argv,"-verify") == 0) 189*0Sstevel@tonic-gate do_ver = 1; 190*0Sstevel@tonic-gate else if (strcmp(*argv,"-text") == 0) 191*0Sstevel@tonic-gate text = 1; 192*0Sstevel@tonic-gate else if (strcmp(*argv,"-hash") == 0) 193*0Sstevel@tonic-gate hash= ++num; 194*0Sstevel@tonic-gate else if (strcmp(*argv,"-nameopt") == 0) 195*0Sstevel@tonic-gate { 196*0Sstevel@tonic-gate if (--argc < 1) goto bad; 197*0Sstevel@tonic-gate if (!set_name_ex(&nmflag, *(++argv))) goto bad; 198*0Sstevel@tonic-gate } 199*0Sstevel@tonic-gate else if (strcmp(*argv,"-issuer") == 0) 200*0Sstevel@tonic-gate issuer= ++num; 201*0Sstevel@tonic-gate else if (strcmp(*argv,"-lastupdate") == 0) 202*0Sstevel@tonic-gate lastupdate= ++num; 203*0Sstevel@tonic-gate else if (strcmp(*argv,"-nextupdate") == 0) 204*0Sstevel@tonic-gate nextupdate= ++num; 205*0Sstevel@tonic-gate else if (strcmp(*argv,"-noout") == 0) 206*0Sstevel@tonic-gate noout= ++num; 207*0Sstevel@tonic-gate else if (strcmp(*argv,"-fingerprint") == 0) 208*0Sstevel@tonic-gate fingerprint= ++num; 209*0Sstevel@tonic-gate else if ((md_alg=EVP_get_digestbyname(*argv + 1))) 210*0Sstevel@tonic-gate { 211*0Sstevel@tonic-gate /* ok */ 212*0Sstevel@tonic-gate digest=md_alg; 213*0Sstevel@tonic-gate } 214*0Sstevel@tonic-gate else 215*0Sstevel@tonic-gate { 216*0Sstevel@tonic-gate BIO_printf(bio_err,"unknown option %s\n",*argv); 217*0Sstevel@tonic-gate badops=1; 218*0Sstevel@tonic-gate break; 219*0Sstevel@tonic-gate } 220*0Sstevel@tonic-gate argc--; 221*0Sstevel@tonic-gate argv++; 222*0Sstevel@tonic-gate } 223*0Sstevel@tonic-gate 224*0Sstevel@tonic-gate if (badops) 225*0Sstevel@tonic-gate { 226*0Sstevel@tonic-gate bad: 227*0Sstevel@tonic-gate for (pp=crl_usage; (*pp != NULL); pp++) 228*0Sstevel@tonic-gate BIO_printf(bio_err,"%s",*pp); 229*0Sstevel@tonic-gate goto end; 230*0Sstevel@tonic-gate } 231*0Sstevel@tonic-gate 232*0Sstevel@tonic-gate ERR_load_crypto_strings(); 233*0Sstevel@tonic-gate x=load_crl(infile,informat); 234*0Sstevel@tonic-gate if (x == NULL) { goto end; } 235*0Sstevel@tonic-gate 236*0Sstevel@tonic-gate if(do_ver) { 237*0Sstevel@tonic-gate store = X509_STORE_new(); 238*0Sstevel@tonic-gate lookup=X509_STORE_add_lookup(store,X509_LOOKUP_file()); 239*0Sstevel@tonic-gate if (lookup == NULL) goto end; 240*0Sstevel@tonic-gate if (!X509_LOOKUP_load_file(lookup,CAfile,X509_FILETYPE_PEM)) 241*0Sstevel@tonic-gate X509_LOOKUP_load_file(lookup,NULL,X509_FILETYPE_DEFAULT); 242*0Sstevel@tonic-gate 243*0Sstevel@tonic-gate lookup=X509_STORE_add_lookup(store,X509_LOOKUP_hash_dir()); 244*0Sstevel@tonic-gate if (lookup == NULL) goto end; 245*0Sstevel@tonic-gate if (!X509_LOOKUP_add_dir(lookup,CApath,X509_FILETYPE_PEM)) 246*0Sstevel@tonic-gate X509_LOOKUP_add_dir(lookup,NULL,X509_FILETYPE_DEFAULT); 247*0Sstevel@tonic-gate ERR_clear_error(); 248*0Sstevel@tonic-gate 249*0Sstevel@tonic-gate if(!X509_STORE_CTX_init(&ctx, store, NULL, NULL)) { 250*0Sstevel@tonic-gate BIO_printf(bio_err, 251*0Sstevel@tonic-gate "Error initialising X509 store\n"); 252*0Sstevel@tonic-gate goto end; 253*0Sstevel@tonic-gate } 254*0Sstevel@tonic-gate 255*0Sstevel@tonic-gate i = X509_STORE_get_by_subject(&ctx, X509_LU_X509, 256*0Sstevel@tonic-gate X509_CRL_get_issuer(x), &xobj); 257*0Sstevel@tonic-gate if(i <= 0) { 258*0Sstevel@tonic-gate BIO_printf(bio_err, 259*0Sstevel@tonic-gate "Error getting CRL issuer certificate\n"); 260*0Sstevel@tonic-gate goto end; 261*0Sstevel@tonic-gate } 262*0Sstevel@tonic-gate pkey = X509_get_pubkey(xobj.data.x509); 263*0Sstevel@tonic-gate X509_OBJECT_free_contents(&xobj); 264*0Sstevel@tonic-gate if(!pkey) { 265*0Sstevel@tonic-gate BIO_printf(bio_err, 266*0Sstevel@tonic-gate "Error getting CRL issuer public key\n"); 267*0Sstevel@tonic-gate goto end; 268*0Sstevel@tonic-gate } 269*0Sstevel@tonic-gate i = X509_CRL_verify(x, pkey); 270*0Sstevel@tonic-gate EVP_PKEY_free(pkey); 271*0Sstevel@tonic-gate if(i < 0) goto end; 272*0Sstevel@tonic-gate if(i == 0) BIO_printf(bio_err, "verify failure\n"); 273*0Sstevel@tonic-gate else BIO_printf(bio_err, "verify OK\n"); 274*0Sstevel@tonic-gate } 275*0Sstevel@tonic-gate 276*0Sstevel@tonic-gate if (num) 277*0Sstevel@tonic-gate { 278*0Sstevel@tonic-gate for (i=1; i<=num; i++) 279*0Sstevel@tonic-gate { 280*0Sstevel@tonic-gate if (issuer == i) 281*0Sstevel@tonic-gate { 282*0Sstevel@tonic-gate print_name(bio_out, "issuer=", X509_CRL_get_issuer(x), nmflag); 283*0Sstevel@tonic-gate } 284*0Sstevel@tonic-gate 285*0Sstevel@tonic-gate if (hash == i) 286*0Sstevel@tonic-gate { 287*0Sstevel@tonic-gate BIO_printf(bio_out,"%08lx\n", 288*0Sstevel@tonic-gate X509_NAME_hash(X509_CRL_get_issuer(x))); 289*0Sstevel@tonic-gate } 290*0Sstevel@tonic-gate if (lastupdate == i) 291*0Sstevel@tonic-gate { 292*0Sstevel@tonic-gate BIO_printf(bio_out,"lastUpdate="); 293*0Sstevel@tonic-gate ASN1_TIME_print(bio_out, 294*0Sstevel@tonic-gate X509_CRL_get_lastUpdate(x)); 295*0Sstevel@tonic-gate BIO_printf(bio_out,"\n"); 296*0Sstevel@tonic-gate } 297*0Sstevel@tonic-gate if (nextupdate == i) 298*0Sstevel@tonic-gate { 299*0Sstevel@tonic-gate BIO_printf(bio_out,"nextUpdate="); 300*0Sstevel@tonic-gate if (X509_CRL_get_nextUpdate(x)) 301*0Sstevel@tonic-gate ASN1_TIME_print(bio_out, 302*0Sstevel@tonic-gate X509_CRL_get_nextUpdate(x)); 303*0Sstevel@tonic-gate else 304*0Sstevel@tonic-gate BIO_printf(bio_out,"NONE"); 305*0Sstevel@tonic-gate BIO_printf(bio_out,"\n"); 306*0Sstevel@tonic-gate } 307*0Sstevel@tonic-gate if (fingerprint == i) 308*0Sstevel@tonic-gate { 309*0Sstevel@tonic-gate int j; 310*0Sstevel@tonic-gate unsigned int n; 311*0Sstevel@tonic-gate unsigned char md[EVP_MAX_MD_SIZE]; 312*0Sstevel@tonic-gate 313*0Sstevel@tonic-gate if (!X509_CRL_digest(x,digest,md,&n)) 314*0Sstevel@tonic-gate { 315*0Sstevel@tonic-gate BIO_printf(bio_err,"out of memory\n"); 316*0Sstevel@tonic-gate goto end; 317*0Sstevel@tonic-gate } 318*0Sstevel@tonic-gate BIO_printf(bio_out,"%s Fingerprint=", 319*0Sstevel@tonic-gate OBJ_nid2sn(EVP_MD_type(digest))); 320*0Sstevel@tonic-gate for (j=0; j<(int)n; j++) 321*0Sstevel@tonic-gate { 322*0Sstevel@tonic-gate BIO_printf(bio_out,"%02X%c",md[j], 323*0Sstevel@tonic-gate (j+1 == (int)n) 324*0Sstevel@tonic-gate ?'\n':':'); 325*0Sstevel@tonic-gate } 326*0Sstevel@tonic-gate } 327*0Sstevel@tonic-gate } 328*0Sstevel@tonic-gate } 329*0Sstevel@tonic-gate 330*0Sstevel@tonic-gate out=BIO_new(BIO_s_file()); 331*0Sstevel@tonic-gate if (out == NULL) 332*0Sstevel@tonic-gate { 333*0Sstevel@tonic-gate ERR_print_errors(bio_err); 334*0Sstevel@tonic-gate goto end; 335*0Sstevel@tonic-gate } 336*0Sstevel@tonic-gate 337*0Sstevel@tonic-gate if (outfile == NULL) 338*0Sstevel@tonic-gate { 339*0Sstevel@tonic-gate BIO_set_fp(out,stdout,BIO_NOCLOSE); 340*0Sstevel@tonic-gate #ifdef OPENSSL_SYS_VMS 341*0Sstevel@tonic-gate { 342*0Sstevel@tonic-gate BIO *tmpbio = BIO_new(BIO_f_linebuffer()); 343*0Sstevel@tonic-gate out = BIO_push(tmpbio, out); 344*0Sstevel@tonic-gate } 345*0Sstevel@tonic-gate #endif 346*0Sstevel@tonic-gate } 347*0Sstevel@tonic-gate else 348*0Sstevel@tonic-gate { 349*0Sstevel@tonic-gate if (BIO_write_filename(out,outfile) <= 0) 350*0Sstevel@tonic-gate { 351*0Sstevel@tonic-gate perror(outfile); 352*0Sstevel@tonic-gate goto end; 353*0Sstevel@tonic-gate } 354*0Sstevel@tonic-gate } 355*0Sstevel@tonic-gate 356*0Sstevel@tonic-gate if (text) X509_CRL_print(out, x); 357*0Sstevel@tonic-gate 358*0Sstevel@tonic-gate if (noout) goto end; 359*0Sstevel@tonic-gate 360*0Sstevel@tonic-gate if (outformat == FORMAT_ASN1) 361*0Sstevel@tonic-gate i=(int)i2d_X509_CRL_bio(out,x); 362*0Sstevel@tonic-gate else if (outformat == FORMAT_PEM) 363*0Sstevel@tonic-gate i=PEM_write_bio_X509_CRL(out,x); 364*0Sstevel@tonic-gate else 365*0Sstevel@tonic-gate { 366*0Sstevel@tonic-gate BIO_printf(bio_err,"bad output format specified for outfile\n"); 367*0Sstevel@tonic-gate goto end; 368*0Sstevel@tonic-gate } 369*0Sstevel@tonic-gate if (!i) { BIO_printf(bio_err,"unable to write CRL\n"); goto end; } 370*0Sstevel@tonic-gate ret=0; 371*0Sstevel@tonic-gate end: 372*0Sstevel@tonic-gate BIO_free_all(out); 373*0Sstevel@tonic-gate BIO_free_all(bio_out); 374*0Sstevel@tonic-gate bio_out=NULL; 375*0Sstevel@tonic-gate X509_CRL_free(x); 376*0Sstevel@tonic-gate if(store) { 377*0Sstevel@tonic-gate X509_STORE_CTX_cleanup(&ctx); 378*0Sstevel@tonic-gate X509_STORE_free(store); 379*0Sstevel@tonic-gate } 380*0Sstevel@tonic-gate apps_shutdown(); 381*0Sstevel@tonic-gate OPENSSL_EXIT(ret); 382*0Sstevel@tonic-gate } 383*0Sstevel@tonic-gate 384*0Sstevel@tonic-gate static X509_CRL *load_crl(char *infile, int format) 385*0Sstevel@tonic-gate { 386*0Sstevel@tonic-gate X509_CRL *x=NULL; 387*0Sstevel@tonic-gate BIO *in=NULL; 388*0Sstevel@tonic-gate 389*0Sstevel@tonic-gate in=BIO_new(BIO_s_file()); 390*0Sstevel@tonic-gate if (in == NULL) 391*0Sstevel@tonic-gate { 392*0Sstevel@tonic-gate ERR_print_errors(bio_err); 393*0Sstevel@tonic-gate goto end; 394*0Sstevel@tonic-gate } 395*0Sstevel@tonic-gate 396*0Sstevel@tonic-gate if (infile == NULL) 397*0Sstevel@tonic-gate BIO_set_fp(in,stdin,BIO_NOCLOSE); 398*0Sstevel@tonic-gate else 399*0Sstevel@tonic-gate { 400*0Sstevel@tonic-gate if (BIO_read_filename(in,infile) <= 0) 401*0Sstevel@tonic-gate { 402*0Sstevel@tonic-gate perror(infile); 403*0Sstevel@tonic-gate goto end; 404*0Sstevel@tonic-gate } 405*0Sstevel@tonic-gate } 406*0Sstevel@tonic-gate if (format == FORMAT_ASN1) 407*0Sstevel@tonic-gate x=d2i_X509_CRL_bio(in,NULL); 408*0Sstevel@tonic-gate else if (format == FORMAT_PEM) 409*0Sstevel@tonic-gate x=PEM_read_bio_X509_CRL(in,NULL,NULL,NULL); 410*0Sstevel@tonic-gate else { 411*0Sstevel@tonic-gate BIO_printf(bio_err,"bad input format specified for input crl\n"); 412*0Sstevel@tonic-gate goto end; 413*0Sstevel@tonic-gate } 414*0Sstevel@tonic-gate if (x == NULL) 415*0Sstevel@tonic-gate { 416*0Sstevel@tonic-gate BIO_printf(bio_err,"unable to load CRL\n"); 417*0Sstevel@tonic-gate ERR_print_errors(bio_err); 418*0Sstevel@tonic-gate goto end; 419*0Sstevel@tonic-gate } 420*0Sstevel@tonic-gate 421*0Sstevel@tonic-gate end: 422*0Sstevel@tonic-gate BIO_free(in); 423*0Sstevel@tonic-gate return(x); 424*0Sstevel@tonic-gate } 425*0Sstevel@tonic-gate 426