1*0Sstevel@tonic-gate /* apps/rsa.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 #ifndef OPENSSL_NO_RSA 60*0Sstevel@tonic-gate #include <stdio.h> 61*0Sstevel@tonic-gate #include <stdlib.h> 62*0Sstevel@tonic-gate #include <string.h> 63*0Sstevel@tonic-gate #include <time.h> 64*0Sstevel@tonic-gate #include "apps.h" 65*0Sstevel@tonic-gate #include <openssl/bio.h> 66*0Sstevel@tonic-gate #include <openssl/err.h> 67*0Sstevel@tonic-gate #include <openssl/rsa.h> 68*0Sstevel@tonic-gate #include <openssl/evp.h> 69*0Sstevel@tonic-gate #include <openssl/x509.h> 70*0Sstevel@tonic-gate #include <openssl/pem.h> 71*0Sstevel@tonic-gate 72*0Sstevel@tonic-gate #undef PROG 73*0Sstevel@tonic-gate #define PROG rsa_main 74*0Sstevel@tonic-gate 75*0Sstevel@tonic-gate /* -inform arg - input format - default PEM (one of DER, NET or PEM) 76*0Sstevel@tonic-gate * -outform arg - output format - default PEM 77*0Sstevel@tonic-gate * -in arg - input file - default stdin 78*0Sstevel@tonic-gate * -out arg - output file - default stdout 79*0Sstevel@tonic-gate * -des - encrypt output if PEM format with DES in cbc mode 80*0Sstevel@tonic-gate * -des3 - encrypt output if PEM format 81*0Sstevel@tonic-gate * -idea - encrypt output if PEM format 82*0Sstevel@tonic-gate * -aes128 - encrypt output if PEM format 83*0Sstevel@tonic-gate * -aes192 - encrypt output if PEM format 84*0Sstevel@tonic-gate * -aes256 - encrypt output if PEM format 85*0Sstevel@tonic-gate * -text - print a text version 86*0Sstevel@tonic-gate * -modulus - print the RSA key modulus 87*0Sstevel@tonic-gate * -check - verify key consistency 88*0Sstevel@tonic-gate * -pubin - Expect a public key in input file. 89*0Sstevel@tonic-gate * -pubout - Output a public key. 90*0Sstevel@tonic-gate */ 91*0Sstevel@tonic-gate 92*0Sstevel@tonic-gate int MAIN(int, char **); 93*0Sstevel@tonic-gate 94*0Sstevel@tonic-gate int MAIN(int argc, char **argv) 95*0Sstevel@tonic-gate { 96*0Sstevel@tonic-gate ENGINE *e = NULL; 97*0Sstevel@tonic-gate int ret=1; 98*0Sstevel@tonic-gate RSA *rsa=NULL; 99*0Sstevel@tonic-gate int i,badops=0, sgckey=0; 100*0Sstevel@tonic-gate const EVP_CIPHER *enc=NULL; 101*0Sstevel@tonic-gate BIO *out=NULL; 102*0Sstevel@tonic-gate int informat,outformat,text=0,check=0,noout=0; 103*0Sstevel@tonic-gate int pubin = 0, pubout = 0; 104*0Sstevel@tonic-gate char *infile,*outfile,*prog; 105*0Sstevel@tonic-gate char *passargin = NULL, *passargout = NULL; 106*0Sstevel@tonic-gate char *passin = NULL, *passout = NULL; 107*0Sstevel@tonic-gate #ifndef OPENSSL_NO_ENGINE 108*0Sstevel@tonic-gate char *engine=NULL; 109*0Sstevel@tonic-gate #endif 110*0Sstevel@tonic-gate int modulus=0; 111*0Sstevel@tonic-gate 112*0Sstevel@tonic-gate apps_startup(); 113*0Sstevel@tonic-gate 114*0Sstevel@tonic-gate if (bio_err == NULL) 115*0Sstevel@tonic-gate if ((bio_err=BIO_new(BIO_s_file())) != NULL) 116*0Sstevel@tonic-gate BIO_set_fp(bio_err,stderr,BIO_NOCLOSE|BIO_FP_TEXT); 117*0Sstevel@tonic-gate 118*0Sstevel@tonic-gate if (!load_config(bio_err, NULL)) 119*0Sstevel@tonic-gate goto end; 120*0Sstevel@tonic-gate 121*0Sstevel@tonic-gate infile=NULL; 122*0Sstevel@tonic-gate outfile=NULL; 123*0Sstevel@tonic-gate informat=FORMAT_PEM; 124*0Sstevel@tonic-gate outformat=FORMAT_PEM; 125*0Sstevel@tonic-gate 126*0Sstevel@tonic-gate prog=argv[0]; 127*0Sstevel@tonic-gate argc--; 128*0Sstevel@tonic-gate argv++; 129*0Sstevel@tonic-gate while (argc >= 1) 130*0Sstevel@tonic-gate { 131*0Sstevel@tonic-gate if (strcmp(*argv,"-inform") == 0) 132*0Sstevel@tonic-gate { 133*0Sstevel@tonic-gate if (--argc < 1) goto bad; 134*0Sstevel@tonic-gate informat=str2fmt(*(++argv)); 135*0Sstevel@tonic-gate } 136*0Sstevel@tonic-gate else if (strcmp(*argv,"-outform") == 0) 137*0Sstevel@tonic-gate { 138*0Sstevel@tonic-gate if (--argc < 1) goto bad; 139*0Sstevel@tonic-gate outformat=str2fmt(*(++argv)); 140*0Sstevel@tonic-gate } 141*0Sstevel@tonic-gate else if (strcmp(*argv,"-in") == 0) 142*0Sstevel@tonic-gate { 143*0Sstevel@tonic-gate if (--argc < 1) goto bad; 144*0Sstevel@tonic-gate infile= *(++argv); 145*0Sstevel@tonic-gate } 146*0Sstevel@tonic-gate else if (strcmp(*argv,"-out") == 0) 147*0Sstevel@tonic-gate { 148*0Sstevel@tonic-gate if (--argc < 1) goto bad; 149*0Sstevel@tonic-gate outfile= *(++argv); 150*0Sstevel@tonic-gate } 151*0Sstevel@tonic-gate else if (strcmp(*argv,"-passin") == 0) 152*0Sstevel@tonic-gate { 153*0Sstevel@tonic-gate if (--argc < 1) goto bad; 154*0Sstevel@tonic-gate passargin= *(++argv); 155*0Sstevel@tonic-gate } 156*0Sstevel@tonic-gate else if (strcmp(*argv,"-passout") == 0) 157*0Sstevel@tonic-gate { 158*0Sstevel@tonic-gate if (--argc < 1) goto bad; 159*0Sstevel@tonic-gate passargout= *(++argv); 160*0Sstevel@tonic-gate } 161*0Sstevel@tonic-gate #ifndef OPENSSL_NO_ENGINE 162*0Sstevel@tonic-gate else if (strcmp(*argv,"-engine") == 0) 163*0Sstevel@tonic-gate { 164*0Sstevel@tonic-gate if (--argc < 1) goto bad; 165*0Sstevel@tonic-gate engine= *(++argv); 166*0Sstevel@tonic-gate } 167*0Sstevel@tonic-gate #endif 168*0Sstevel@tonic-gate else if (strcmp(*argv,"-sgckey") == 0) 169*0Sstevel@tonic-gate sgckey=1; 170*0Sstevel@tonic-gate else if (strcmp(*argv,"-pubin") == 0) 171*0Sstevel@tonic-gate pubin=1; 172*0Sstevel@tonic-gate else if (strcmp(*argv,"-pubout") == 0) 173*0Sstevel@tonic-gate pubout=1; 174*0Sstevel@tonic-gate else if (strcmp(*argv,"-noout") == 0) 175*0Sstevel@tonic-gate noout=1; 176*0Sstevel@tonic-gate else if (strcmp(*argv,"-text") == 0) 177*0Sstevel@tonic-gate text=1; 178*0Sstevel@tonic-gate else if (strcmp(*argv,"-modulus") == 0) 179*0Sstevel@tonic-gate modulus=1; 180*0Sstevel@tonic-gate else if (strcmp(*argv,"-check") == 0) 181*0Sstevel@tonic-gate check=1; 182*0Sstevel@tonic-gate else if ((enc=EVP_get_cipherbyname(&(argv[0][1]))) == NULL) 183*0Sstevel@tonic-gate { 184*0Sstevel@tonic-gate BIO_printf(bio_err,"unknown option %s\n",*argv); 185*0Sstevel@tonic-gate badops=1; 186*0Sstevel@tonic-gate break; 187*0Sstevel@tonic-gate } 188*0Sstevel@tonic-gate argc--; 189*0Sstevel@tonic-gate argv++; 190*0Sstevel@tonic-gate } 191*0Sstevel@tonic-gate 192*0Sstevel@tonic-gate if (badops) 193*0Sstevel@tonic-gate { 194*0Sstevel@tonic-gate bad: 195*0Sstevel@tonic-gate BIO_printf(bio_err,"%s [options] <infile >outfile\n",prog); 196*0Sstevel@tonic-gate BIO_printf(bio_err,"where options are\n"); 197*0Sstevel@tonic-gate BIO_printf(bio_err," -inform arg input format - one of DER NET PEM\n"); 198*0Sstevel@tonic-gate BIO_printf(bio_err," -outform arg output format - one of DER NET PEM\n"); 199*0Sstevel@tonic-gate BIO_printf(bio_err," -in arg input file\n"); 200*0Sstevel@tonic-gate BIO_printf(bio_err," -sgckey Use IIS SGC key format\n"); 201*0Sstevel@tonic-gate BIO_printf(bio_err," -passin arg input file pass phrase source\n"); 202*0Sstevel@tonic-gate BIO_printf(bio_err," -out arg output file\n"); 203*0Sstevel@tonic-gate BIO_printf(bio_err," -passout arg output file pass phrase source\n"); 204*0Sstevel@tonic-gate BIO_printf(bio_err," -des encrypt PEM output with cbc des\n"); 205*0Sstevel@tonic-gate BIO_printf(bio_err," -des3 encrypt PEM output with ede cbc des using 168 bit key\n"); 206*0Sstevel@tonic-gate #ifndef OPENSSL_NO_IDEA 207*0Sstevel@tonic-gate BIO_printf(bio_err," -idea encrypt PEM output with cbc idea\n"); 208*0Sstevel@tonic-gate #endif 209*0Sstevel@tonic-gate #ifndef OPENSSL_NO_AES 210*0Sstevel@tonic-gate BIO_printf(bio_err," -aes128, -aes192, -aes256\n"); 211*0Sstevel@tonic-gate BIO_printf(bio_err," encrypt PEM output with cbc aes\n"); 212*0Sstevel@tonic-gate #endif 213*0Sstevel@tonic-gate BIO_printf(bio_err," -text print the key in text\n"); 214*0Sstevel@tonic-gate BIO_printf(bio_err," -noout don't print key out\n"); 215*0Sstevel@tonic-gate BIO_printf(bio_err," -modulus print the RSA key modulus\n"); 216*0Sstevel@tonic-gate BIO_printf(bio_err," -check verify key consistency\n"); 217*0Sstevel@tonic-gate BIO_printf(bio_err," -pubin expect a public key in input file\n"); 218*0Sstevel@tonic-gate BIO_printf(bio_err," -pubout output a public key\n"); 219*0Sstevel@tonic-gate #ifndef OPENSSL_NO_ENGINE 220*0Sstevel@tonic-gate BIO_printf(bio_err," -engine e use engine e, possibly a hardware device.\n"); 221*0Sstevel@tonic-gate #endif 222*0Sstevel@tonic-gate goto end; 223*0Sstevel@tonic-gate } 224*0Sstevel@tonic-gate 225*0Sstevel@tonic-gate ERR_load_crypto_strings(); 226*0Sstevel@tonic-gate 227*0Sstevel@tonic-gate #ifndef OPENSSL_NO_ENGINE 228*0Sstevel@tonic-gate e = setup_engine(bio_err, engine, 0); 229*0Sstevel@tonic-gate #endif 230*0Sstevel@tonic-gate 231*0Sstevel@tonic-gate if(!app_passwd(bio_err, passargin, passargout, &passin, &passout)) { 232*0Sstevel@tonic-gate BIO_printf(bio_err, "Error getting passwords\n"); 233*0Sstevel@tonic-gate goto end; 234*0Sstevel@tonic-gate } 235*0Sstevel@tonic-gate 236*0Sstevel@tonic-gate if(check && pubin) { 237*0Sstevel@tonic-gate BIO_printf(bio_err, "Only private keys can be checked\n"); 238*0Sstevel@tonic-gate goto end; 239*0Sstevel@tonic-gate } 240*0Sstevel@tonic-gate 241*0Sstevel@tonic-gate out=BIO_new(BIO_s_file()); 242*0Sstevel@tonic-gate 243*0Sstevel@tonic-gate { 244*0Sstevel@tonic-gate EVP_PKEY *pkey; 245*0Sstevel@tonic-gate 246*0Sstevel@tonic-gate if (pubin) 247*0Sstevel@tonic-gate pkey = load_pubkey(bio_err, infile, 248*0Sstevel@tonic-gate (informat == FORMAT_NETSCAPE && sgckey ? 249*0Sstevel@tonic-gate FORMAT_IISSGC : informat), 1, 250*0Sstevel@tonic-gate passin, e, "Public Key"); 251*0Sstevel@tonic-gate else 252*0Sstevel@tonic-gate pkey = load_key(bio_err, infile, 253*0Sstevel@tonic-gate (informat == FORMAT_NETSCAPE && sgckey ? 254*0Sstevel@tonic-gate FORMAT_IISSGC : informat), 1, 255*0Sstevel@tonic-gate passin, e, "Private Key"); 256*0Sstevel@tonic-gate 257*0Sstevel@tonic-gate if (pkey != NULL) 258*0Sstevel@tonic-gate rsa = pkey == NULL ? NULL : EVP_PKEY_get1_RSA(pkey); 259*0Sstevel@tonic-gate EVP_PKEY_free(pkey); 260*0Sstevel@tonic-gate } 261*0Sstevel@tonic-gate 262*0Sstevel@tonic-gate if (rsa == NULL) 263*0Sstevel@tonic-gate { 264*0Sstevel@tonic-gate ERR_print_errors(bio_err); 265*0Sstevel@tonic-gate goto end; 266*0Sstevel@tonic-gate } 267*0Sstevel@tonic-gate 268*0Sstevel@tonic-gate if (outfile == NULL) 269*0Sstevel@tonic-gate { 270*0Sstevel@tonic-gate BIO_set_fp(out,stdout,BIO_NOCLOSE); 271*0Sstevel@tonic-gate #ifdef OPENSSL_SYS_VMS 272*0Sstevel@tonic-gate { 273*0Sstevel@tonic-gate BIO *tmpbio = BIO_new(BIO_f_linebuffer()); 274*0Sstevel@tonic-gate out = BIO_push(tmpbio, out); 275*0Sstevel@tonic-gate } 276*0Sstevel@tonic-gate #endif 277*0Sstevel@tonic-gate } 278*0Sstevel@tonic-gate else 279*0Sstevel@tonic-gate { 280*0Sstevel@tonic-gate if (BIO_write_filename(out,outfile) <= 0) 281*0Sstevel@tonic-gate { 282*0Sstevel@tonic-gate perror(outfile); 283*0Sstevel@tonic-gate goto end; 284*0Sstevel@tonic-gate } 285*0Sstevel@tonic-gate } 286*0Sstevel@tonic-gate 287*0Sstevel@tonic-gate if (text) 288*0Sstevel@tonic-gate if (!RSA_print(out,rsa,0)) 289*0Sstevel@tonic-gate { 290*0Sstevel@tonic-gate perror(outfile); 291*0Sstevel@tonic-gate ERR_print_errors(bio_err); 292*0Sstevel@tonic-gate goto end; 293*0Sstevel@tonic-gate } 294*0Sstevel@tonic-gate 295*0Sstevel@tonic-gate if (modulus) 296*0Sstevel@tonic-gate { 297*0Sstevel@tonic-gate BIO_printf(out,"Modulus="); 298*0Sstevel@tonic-gate BN_print(out,rsa->n); 299*0Sstevel@tonic-gate BIO_printf(out,"\n"); 300*0Sstevel@tonic-gate } 301*0Sstevel@tonic-gate 302*0Sstevel@tonic-gate if (check) 303*0Sstevel@tonic-gate { 304*0Sstevel@tonic-gate int r = RSA_check_key(rsa); 305*0Sstevel@tonic-gate 306*0Sstevel@tonic-gate if (r == 1) 307*0Sstevel@tonic-gate BIO_printf(out,"RSA key ok\n"); 308*0Sstevel@tonic-gate else if (r == 0) 309*0Sstevel@tonic-gate { 310*0Sstevel@tonic-gate long err; 311*0Sstevel@tonic-gate 312*0Sstevel@tonic-gate while ((err = ERR_peek_error()) != 0 && 313*0Sstevel@tonic-gate ERR_GET_LIB(err) == ERR_LIB_RSA && 314*0Sstevel@tonic-gate ERR_GET_FUNC(err) == RSA_F_RSA_CHECK_KEY && 315*0Sstevel@tonic-gate ERR_GET_REASON(err) != ERR_R_MALLOC_FAILURE) 316*0Sstevel@tonic-gate { 317*0Sstevel@tonic-gate BIO_printf(out, "RSA key error: %s\n", ERR_reason_error_string(err)); 318*0Sstevel@tonic-gate ERR_get_error(); /* remove e from error stack */ 319*0Sstevel@tonic-gate } 320*0Sstevel@tonic-gate } 321*0Sstevel@tonic-gate 322*0Sstevel@tonic-gate if (r == -1 || ERR_peek_error() != 0) /* should happen only if r == -1 */ 323*0Sstevel@tonic-gate { 324*0Sstevel@tonic-gate ERR_print_errors(bio_err); 325*0Sstevel@tonic-gate goto end; 326*0Sstevel@tonic-gate } 327*0Sstevel@tonic-gate } 328*0Sstevel@tonic-gate 329*0Sstevel@tonic-gate if (noout) 330*0Sstevel@tonic-gate { 331*0Sstevel@tonic-gate ret = 0; 332*0Sstevel@tonic-gate goto end; 333*0Sstevel@tonic-gate } 334*0Sstevel@tonic-gate BIO_printf(bio_err,"writing RSA key\n"); 335*0Sstevel@tonic-gate if (outformat == FORMAT_ASN1) { 336*0Sstevel@tonic-gate if(pubout || pubin) i=i2d_RSA_PUBKEY_bio(out,rsa); 337*0Sstevel@tonic-gate else i=i2d_RSAPrivateKey_bio(out,rsa); 338*0Sstevel@tonic-gate } 339*0Sstevel@tonic-gate #ifndef OPENSSL_NO_RC4 340*0Sstevel@tonic-gate else if (outformat == FORMAT_NETSCAPE) 341*0Sstevel@tonic-gate { 342*0Sstevel@tonic-gate unsigned char *p,*pp; 343*0Sstevel@tonic-gate int size; 344*0Sstevel@tonic-gate 345*0Sstevel@tonic-gate i=1; 346*0Sstevel@tonic-gate size=i2d_RSA_NET(rsa,NULL,NULL, sgckey); 347*0Sstevel@tonic-gate if ((p=(unsigned char *)OPENSSL_malloc(size)) == NULL) 348*0Sstevel@tonic-gate { 349*0Sstevel@tonic-gate BIO_printf(bio_err,"Memory allocation failure\n"); 350*0Sstevel@tonic-gate goto end; 351*0Sstevel@tonic-gate } 352*0Sstevel@tonic-gate pp=p; 353*0Sstevel@tonic-gate i2d_RSA_NET(rsa,&p,NULL, sgckey); 354*0Sstevel@tonic-gate BIO_write(out,(char *)pp,size); 355*0Sstevel@tonic-gate OPENSSL_free(pp); 356*0Sstevel@tonic-gate } 357*0Sstevel@tonic-gate #endif 358*0Sstevel@tonic-gate else if (outformat == FORMAT_PEM) { 359*0Sstevel@tonic-gate if(pubout || pubin) 360*0Sstevel@tonic-gate i=PEM_write_bio_RSA_PUBKEY(out,rsa); 361*0Sstevel@tonic-gate else i=PEM_write_bio_RSAPrivateKey(out,rsa, 362*0Sstevel@tonic-gate enc,NULL,0,NULL,passout); 363*0Sstevel@tonic-gate } else { 364*0Sstevel@tonic-gate BIO_printf(bio_err,"bad output format specified for outfile\n"); 365*0Sstevel@tonic-gate goto end; 366*0Sstevel@tonic-gate } 367*0Sstevel@tonic-gate if (!i) 368*0Sstevel@tonic-gate { 369*0Sstevel@tonic-gate BIO_printf(bio_err,"unable to write key\n"); 370*0Sstevel@tonic-gate ERR_print_errors(bio_err); 371*0Sstevel@tonic-gate } 372*0Sstevel@tonic-gate else 373*0Sstevel@tonic-gate ret=0; 374*0Sstevel@tonic-gate end: 375*0Sstevel@tonic-gate if(out != NULL) BIO_free_all(out); 376*0Sstevel@tonic-gate if(rsa != NULL) RSA_free(rsa); 377*0Sstevel@tonic-gate if(passin) OPENSSL_free(passin); 378*0Sstevel@tonic-gate if(passout) OPENSSL_free(passout); 379*0Sstevel@tonic-gate apps_shutdown(); 380*0Sstevel@tonic-gate OPENSSL_EXIT(ret); 381*0Sstevel@tonic-gate } 382*0Sstevel@tonic-gate #else /* !OPENSSL_NO_RSA */ 383*0Sstevel@tonic-gate 384*0Sstevel@tonic-gate # if PEDANTIC 385*0Sstevel@tonic-gate static void *dummy=&dummy; 386*0Sstevel@tonic-gate # endif 387*0Sstevel@tonic-gate 388*0Sstevel@tonic-gate #endif 389