1 | /* |
2 | * Copyright 2002-2016 The OpenSSL Project Authors. All Rights Reserved. |
3 | * |
4 | * Licensed under the Apache License 2.0 (the "License"). You may not use |
5 | * this file except in compliance with the License. You can obtain a copy |
6 | * in the file LICENSE in the source distribution or at |
7 | * https://www.openssl.org/source/license.html |
8 | */ |
9 | |
10 | /* |
11 | * NB: This file contains deprecated functions (compatibility wrappers to the |
12 | * "new" versions). |
13 | */ |
14 | |
15 | #include <openssl/opensslconf.h> |
16 | #ifdef OPENSSL_NO_DEPRECATED_0_9_8 |
17 | NON_EMPTY_TRANSLATION_UNIT |
18 | |
19 | #else |
20 | |
21 | # include <stdio.h> |
22 | # include <time.h> |
23 | # include "internal/cryptlib.h" |
24 | # include <openssl/bn.h> |
25 | # include <openssl/rsa.h> |
26 | |
27 | RSA *RSA_generate_key(int bits, unsigned long e_value, |
28 | void (*callback) (int, int, void *), void *cb_arg) |
29 | { |
30 | int i; |
31 | BN_GENCB *cb = BN_GENCB_new(); |
32 | RSA *rsa = RSA_new(); |
33 | BIGNUM *e = BN_new(); |
34 | |
35 | if (cb == NULL || rsa == NULL || e == NULL) |
36 | goto err; |
37 | |
38 | /* |
39 | * The problem is when building with 8, 16, or 32 BN_ULONG, unsigned long |
40 | * can be larger |
41 | */ |
42 | for (i = 0; i < (int)sizeof(unsigned long) * 8; i++) { |
43 | if (e_value & (1UL << i)) |
44 | if (BN_set_bit(e, i) == 0) |
45 | goto err; |
46 | } |
47 | |
48 | BN_GENCB_set_old(cb, callback, cb_arg); |
49 | |
50 | if (RSA_generate_key_ex(rsa, bits, e, cb)) { |
51 | BN_free(e); |
52 | BN_GENCB_free(cb); |
53 | return rsa; |
54 | } |
55 | err: |
56 | BN_free(e); |
57 | RSA_free(rsa); |
58 | BN_GENCB_free(cb); |
59 | return 0; |
60 | } |
61 | #endif |
62 | |