]>
Commit | Line | Data |
---|---|---|
d02b48c6 | 1 | /* crypto/dh/dhtest.c */ |
58964a49 | 2 | /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) |
d02b48c6 RE |
3 | * All rights reserved. |
4 | * | |
5 | * This package is an SSL implementation written | |
6 | * by Eric Young (eay@cryptsoft.com). | |
7 | * The implementation was written so as to conform with Netscapes SSL. | |
40720ce3 | 8 | * |
d02b48c6 RE |
9 | * This library is free for commercial and non-commercial use as long as |
10 | * the following conditions are aheared to. The following conditions | |
11 | * apply to all code found in this distribution, be it the RC4, RSA, | |
12 | * lhash, DES, etc., code; not just the SSL code. The SSL documentation | |
13 | * included with this distribution is covered by the same copyright terms | |
14 | * except that the holder is Tim Hudson (tjh@cryptsoft.com). | |
40720ce3 | 15 | * |
d02b48c6 RE |
16 | * Copyright remains Eric Young's, and as such any Copyright notices in |
17 | * the code are not to be removed. | |
18 | * If this package is used in a product, Eric Young should be given attribution | |
19 | * as the author of the parts of the library used. | |
20 | * This can be in the form of a textual message at program startup or | |
21 | * in documentation (online or textual) provided with the package. | |
40720ce3 | 22 | * |
d02b48c6 RE |
23 | * Redistribution and use in source and binary forms, with or without |
24 | * modification, are permitted provided that the following conditions | |
25 | * are met: | |
26 | * 1. Redistributions of source code must retain the copyright | |
27 | * notice, this list of conditions and the following disclaimer. | |
28 | * 2. Redistributions in binary form must reproduce the above copyright | |
29 | * notice, this list of conditions and the following disclaimer in the | |
30 | * documentation and/or other materials provided with the distribution. | |
31 | * 3. All advertising materials mentioning features or use of this software | |
32 | * must display the following acknowledgement: | |
33 | * "This product includes cryptographic software written by | |
34 | * Eric Young (eay@cryptsoft.com)" | |
35 | * The word 'cryptographic' can be left out if the rouines from the library | |
36 | * being used are not cryptographic related :-). | |
40720ce3 | 37 | * 4. If you include any Windows specific code (or a derivative thereof) from |
d02b48c6 RE |
38 | * the apps directory (application code) you must include an acknowledgement: |
39 | * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" | |
40720ce3 | 40 | * |
d02b48c6 RE |
41 | * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND |
42 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |
43 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | |
44 | * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE | |
45 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |
46 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | |
47 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | |
48 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | |
49 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | |
50 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | |
51 | * SUCH DAMAGE. | |
40720ce3 | 52 | * |
d02b48c6 RE |
53 | * The licence and distribution terms for any publically available version or |
54 | * derivative of this code cannot be changed. i.e. this code cannot simply be | |
55 | * copied and put under another distribution licence | |
56 | * [including the GNU Public Licence.] | |
57 | */ | |
58 | ||
40720ce3 MC |
59 | /* |
60 | * Until the key-gen callbacks are modified to use newer prototypes, we allow | |
61 | * deprecated functions for openssl-internal code | |
62 | */ | |
e9224c71 | 63 | #ifdef OPENSSL_NO_DEPRECATED |
40720ce3 | 64 | # undef OPENSSL_NO_DEPRECATED |
e9224c71 GT |
65 | #endif |
66 | ||
d02b48c6 RE |
67 | #include <stdio.h> |
68 | #include <stdlib.h> | |
69 | #include <string.h> | |
55f78baf RL |
70 | |
71 | #include "../e_os.h" | |
72 | ||
ec577822 BM |
73 | #include <openssl/crypto.h> |
74 | #include <openssl/bio.h> | |
75 | #include <openssl/bn.h> | |
b0bb2b91 | 76 | #include <openssl/rand.h> |
cb78486d | 77 | #include <openssl/err.h> |
f5d7a031 | 78 | |
cf1b7d96 | 79 | #ifdef OPENSSL_NO_DH |
f5d7a031 UM |
80 | int main(int argc, char *argv[]) |
81 | { | |
82 | printf("No DH support\n"); | |
40720ce3 | 83 | return (0); |
f5d7a031 UM |
84 | } |
85 | #else | |
40720ce3 | 86 | # include <openssl/dh.h> |
d02b48c6 | 87 | |
40720ce3 MC |
88 | # ifdef OPENSSL_SYS_WIN16 |
89 | # define MS_CALLBACK _far _loadds | |
90 | # else | |
91 | # define MS_CALLBACK | |
92 | # endif | |
d02b48c6 | 93 | |
2aaec9cc | 94 | static int MS_CALLBACK cb(int p, int n, BN_GENCB *arg); |
d02b48c6 | 95 | |
40720ce3 MC |
96 | static const char rnd_seed[] = |
97 | "string to make the random number generator think it has entropy"; | |
7d388202 | 98 | |
6b691a5c | 99 | int main(int argc, char *argv[]) |
40720ce3 MC |
100 | { |
101 | BN_GENCB _cb; | |
102 | DH *a; | |
103 | DH *b = NULL; | |
104 | char buf[12]; | |
105 | unsigned char *abuf = NULL, *bbuf = NULL; | |
106 | int i, alen, blen, aout, bout, ret = 1; | |
107 | BIO *out; | |
108 | ||
109 | CRYPTO_malloc_debug_init(); | |
110 | CRYPTO_dbg_set_options(V_CRYPTO_MDEBUG_ALL); | |
111 | CRYPTO_mem_ctrl(CRYPTO_MEM_CHECK_ON); | |
112 | ||
113 | # ifdef OPENSSL_SYS_WIN32 | |
114 | CRYPTO_malloc_init(); | |
115 | # endif | |
116 | ||
117 | RAND_seed(rnd_seed, sizeof rnd_seed); | |
118 | ||
119 | out = BIO_new(BIO_s_file()); | |
120 | if (out == NULL) | |
121 | EXIT(1); | |
122 | BIO_set_fp(out, stdout, BIO_NOCLOSE); | |
123 | ||
124 | BN_GENCB_set(&_cb, &cb, out); | |
125 | if (((a = DH_new()) == NULL) || !DH_generate_parameters_ex(a, 64, | |
126 | DH_GENERATOR_5, | |
127 | &_cb)) | |
128 | goto err; | |
129 | ||
130 | if (!DH_check(a, &i)) | |
131 | goto err; | |
132 | if (i & DH_CHECK_P_NOT_PRIME) | |
133 | BIO_puts(out, "p value is not prime\n"); | |
134 | if (i & DH_CHECK_P_NOT_SAFE_PRIME) | |
135 | BIO_puts(out, "p value is not a safe prime\n"); | |
136 | if (i & DH_UNABLE_TO_CHECK_GENERATOR) | |
137 | BIO_puts(out, "unable to check the generator value\n"); | |
138 | if (i & DH_NOT_SUITABLE_GENERATOR) | |
139 | BIO_puts(out, "the g value is not a generator\n"); | |
140 | ||
141 | BIO_puts(out, "\np ="); | |
142 | BN_print(out, a->p); | |
143 | BIO_puts(out, "\ng ="); | |
144 | BN_print(out, a->g); | |
145 | BIO_puts(out, "\n"); | |
146 | ||
147 | b = DH_new(); | |
148 | if (b == NULL) | |
149 | goto err; | |
150 | ||
151 | b->p = BN_dup(a->p); | |
152 | b->g = BN_dup(a->g); | |
153 | if ((b->p == NULL) || (b->g == NULL)) | |
154 | goto err; | |
155 | ||
156 | /* Set a to run with normal modexp and b to use constant time */ | |
157 | a->flags &= ~DH_FLAG_NO_EXP_CONSTTIME; | |
158 | b->flags |= DH_FLAG_NO_EXP_CONSTTIME; | |
159 | ||
160 | if (!DH_generate_key(a)) | |
161 | goto err; | |
162 | BIO_puts(out, "pri 1="); | |
163 | BN_print(out, a->priv_key); | |
164 | BIO_puts(out, "\npub 1="); | |
165 | BN_print(out, a->pub_key); | |
166 | BIO_puts(out, "\n"); | |
167 | ||
168 | if (!DH_generate_key(b)) | |
169 | goto err; | |
170 | BIO_puts(out, "pri 2="); | |
171 | BN_print(out, b->priv_key); | |
172 | BIO_puts(out, "\npub 2="); | |
173 | BN_print(out, b->pub_key); | |
174 | BIO_puts(out, "\n"); | |
175 | ||
176 | alen = DH_size(a); | |
177 | abuf = (unsigned char *)OPENSSL_malloc(alen); | |
178 | aout = DH_compute_key(abuf, b->pub_key, a); | |
179 | ||
180 | BIO_puts(out, "key1 ="); | |
181 | for (i = 0; i < aout; i++) { | |
182 | sprintf(buf, "%02X", abuf[i]); | |
183 | BIO_puts(out, buf); | |
184 | } | |
185 | BIO_puts(out, "\n"); | |
186 | ||
187 | blen = DH_size(b); | |
188 | bbuf = (unsigned char *)OPENSSL_malloc(blen); | |
189 | bout = DH_compute_key(bbuf, a->pub_key, b); | |
190 | ||
191 | BIO_puts(out, "key2 ="); | |
192 | for (i = 0; i < bout; i++) { | |
193 | sprintf(buf, "%02X", bbuf[i]); | |
194 | BIO_puts(out, buf); | |
195 | } | |
196 | BIO_puts(out, "\n"); | |
197 | if ((aout < 4) || (bout != aout) || (memcmp(abuf, bbuf, aout) != 0)) { | |
198 | fprintf(stderr, "Error in DH routines\n"); | |
199 | ret = 1; | |
200 | } else | |
201 | ret = 0; | |
202 | err: | |
203 | ERR_print_errors_fp(stderr); | |
204 | ||
205 | if (abuf != NULL) | |
206 | OPENSSL_free(abuf); | |
207 | if (bbuf != NULL) | |
208 | OPENSSL_free(bbuf); | |
209 | if (b != NULL) | |
210 | DH_free(b); | |
211 | if (a != NULL) | |
212 | DH_free(a); | |
213 | BIO_free(out); | |
214 | # ifdef OPENSSL_SYS_NETWARE | |
215 | if (ret) | |
216 | printf("ERROR: %d\n", ret); | |
217 | # endif | |
218 | EXIT(ret); | |
219 | return (ret); | |
220 | } | |
d02b48c6 | 221 | |
2aaec9cc | 222 | static int MS_CALLBACK cb(int p, int n, BN_GENCB *arg) |
40720ce3 MC |
223 | { |
224 | char c = '*'; | |
225 | ||
226 | if (p == 0) | |
227 | c = '.'; | |
228 | if (p == 1) | |
229 | c = '+'; | |
230 | if (p == 2) | |
231 | c = '*'; | |
232 | if (p == 3) | |
233 | c = '\n'; | |
234 | BIO_write(arg->arg, &c, 1); | |
235 | (void)BIO_flush(arg->arg); | |
236 | # ifdef LINT | |
237 | p = n; | |
238 | # endif | |
239 | return 1; | |
240 | } | |
f5d7a031 | 241 | #endif |