| /* |
| * Copyright 2002-2016 The OpenSSL Project Authors. All Rights Reserved. |
| * |
| * Licensed under the OpenSSL license (the "License"). You may not use |
| * this file except in compliance with the License. You can obtain a copy |
| * in the file LICENSE in the source distribution or at |
| * https://www.openssl.org/source/license.html |
| */ |
| |
| /* |
| * NB: This file contains deprecated functions (compatibility wrappers to the |
| * "new" versions). |
| */ |
| |
| #include <openssl/opensslconf.h> |
| #if OPENSSL_API_COMPAT >= 0x00908000L |
| NON_EMPTY_TRANSLATION_UNIT |
| |
| #else |
| |
| # include <stdio.h> |
| # include <time.h> |
| # include "internal/cryptlib.h" |
| # include <openssl/bn.h> |
| # include <openssl/rsa.h> |
| |
| RSA *RSA_generate_key(int bits, unsigned long e_value, |
| void (*callback) (int, int, void *), void *cb_arg) |
| { |
| int i; |
| BN_GENCB *cb = BN_GENCB_new(); |
| RSA *rsa = RSA_new(); |
| BIGNUM *e = BN_new(); |
| |
| if (cb == NULL || rsa == NULL || e == NULL) |
| goto err; |
| |
| /* |
| * The problem is when building with 8, 16, or 32 BN_ULONG, unsigned long |
| * can be larger |
| */ |
| for (i = 0; i < (int)sizeof(unsigned long) * 8; i++) { |
| if (e_value & (1UL << i)) |
| if (BN_set_bit(e, i) == 0) |
| goto err; |
| } |
| |
| BN_GENCB_set_old(cb, callback, cb_arg); |
| |
| if (RSA_generate_key_ex(rsa, bits, e, cb)) { |
| BN_free(e); |
| BN_GENCB_free(cb); |
| return rsa; |
| } |
| err: |
| BN_free(e); |
| RSA_free(rsa); |
| BN_GENCB_free(cb); |
| return 0; |
| } |
| #endif |
