Clear warnings/errors within RL_DEBUG code sections (RL_DEBUG should be renamed)

[openssl.git] / apps / genrsa.c

diff --git a/apps/genrsa.c b/apps/genrsa.c
index 37e9310910b2968c0b148531c371d5e06993b9e1..54e30d343bdb5272dfa1c4bbc3dc786ebce979a2 100644 (file)
--- a/apps/genrsa.c
+++ b/apps/genrsa.c
@@ -78,7 +78,7 @@
 #include <openssl/pem.h>
 #include <openssl/rand.h>
 
-#define DEFBITS        512
+#define DEFBITS        2048
 #undef PROG
 #define PROG genrsa_main
 
@@ -88,17 +88,18 @@ int MAIN(int, char **);
 
 int MAIN(int argc, char **argv)
        {
-       BN_GENCB cb;
+       BN_GENCB *cb = NULL;
 #ifndef OPENSSL_NO_ENGINE
        ENGINE *e = NULL;
 #endif
        int ret=1;
-       int i,num=DEFBITS;
-       long l;
+       int non_fips_allow = 0;
+       int num=DEFBITS;
        const EVP_CIPHER *enc=NULL;
        unsigned long f4=RSA_F4;
        char *outfile=NULL;
        char *passargout = NULL, *passout = NULL;
+       char *hexe, *dece;
 #ifndef OPENSSL_NO_ENGINE
        char *engine=NULL;
 #endif
@@ -106,11 +107,14 @@ int MAIN(int argc, char **argv)
        BIO *out=NULL;
        BIGNUM *bn = BN_new();
        RSA *rsa = NULL;
-
        if(!bn) goto err;
 
+       cb = BN_GENCB_new();
+       if(!cb) goto err;
+
        apps_startup();
-       BN_GENCB_set(&cb, genrsa_cb, bio_err);
+
+       BN_GENCB_set(cb, genrsa_cb, bio_err);
 
        if (bio_err == NULL)
                if ((bio_err=BIO_new(BIO_s_file())) != NULL)
@@ -185,6 +189,8 @@ int MAIN(int argc, char **argv)
                        if (--argc < 1) goto bad;
                        passargout= *(++argv);
                        }
+               else if (strcmp(*argv,"-non-fips-allow") == 0)
+                       non_fips_allow = 1;
                else
                        break;
                argv++;
@@ -273,23 +279,22 @@ bad:
        if (!rsa)
                goto err;
 
-       if(!BN_set_word(bn, f4) || !RSA_generate_key_ex(rsa, num, bn, &cb))
+       if (non_fips_allow)
+               rsa->flags |= RSA_FLAG_NON_FIPS_ALLOW;
+
+       if(!BN_set_word(bn, f4) || !RSA_generate_key_ex(rsa, num, bn, cb))
                goto err;
                
        app_RAND_write_file(NULL, bio_err);
 
-       /* We need to do the following for when the base number size is <
-        * long, esp windows 3.1 :-(. */
-       l=0L;
-       for (i=0; i<rsa->e->top; i++)
+       hexe = BN_bn2hex(rsa->e);
+       dece = BN_bn2dec(rsa->e);
+       if(hexe && dece)
                {
-#ifndef SIXTY_FOUR_BIT
-               l<<=BN_BITS4;
-               l<<=BN_BITS4;
-#endif
-               l+=rsa->e->d[i];
+               BIO_printf(bio_err,"e is %s (0x%s)\n",dece, hexe);
                }
-       BIO_printf(bio_err,"e is %ld (0x%lX)\n",l,l);
+       if(hexe) OPENSSL_free(hexe);
+       if(dece) OPENSSL_free(dece);
        {
        PW_CB_DATA cb_data;
        cb_data.password = passout;
@@ -302,6 +307,7 @@ bad:
        ret=0;
 err:
        if (bn) BN_free(bn);
+       if (cb) BN_GENCB_free(cb);
        if (rsa) RSA_free(rsa);
        if (out) BIO_free_all(out);
        if(passout) OPENSSL_free(passout);
@@ -319,11 +325,8 @@ static int MS_CALLBACK genrsa_cb(int p, int n, BN_GENCB *cb)
        if (p == 1) c='+';
        if (p == 2) c='*';
        if (p == 3) c='\n';
-       BIO_write(cb->arg,&c,1);
-       (void)BIO_flush(cb->arg);
-#ifdef LINT
-       p=n;
-#endif
+       BIO_write(BN_GENCB_get_arg(cb),&c,1);
+       (void)BIO_flush(BN_GENCB_get_arg(cb));
        return 1;
        }
 #else /* !OPENSSL_NO_RSA */