]>
Commit | Line | Data |
---|---|---|
d02b48c6 | 1 | /* crypto/dsa/dsatest.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. | |
8 | * | |
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). | |
15 | * | |
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. | |
22 | * | |
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 :-). | |
37 | * 4. If you include any Windows specific code (or a derivative thereof) from | |
38 | * the apps directory (application code) you must include an acknowledgement: | |
39 | * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" | |
40 | * | |
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. | |
52 | * | |
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 | ||
e9224c71 GT |
59 | /* Until the key-gen callbacks are modified to use newer prototypes, we allow |
60 | * deprecated functions for openssl-internal code */ | |
61 | #ifdef OPENSSL_NO_DEPRECATED | |
62 | #undef OPENSSL_NO_DEPRECATED | |
63 | #endif | |
64 | ||
d02b48c6 RE |
65 | #include <stdio.h> |
66 | #include <stdlib.h> | |
67 | #include <string.h> | |
68 | #include <sys/types.h> | |
69 | #include <sys/stat.h> | |
55f78baf RL |
70 | |
71 | #include "../e_os.h" | |
72 | ||
ec577822 BM |
73 | #include <openssl/crypto.h> |
74 | #include <openssl/rand.h> | |
75 | #include <openssl/bio.h> | |
76 | #include <openssl/err.h> | |
3eeaab4b | 77 | #include <openssl/bn.h> |
d02b48c6 | 78 | |
cf1b7d96 | 79 | #ifdef OPENSSL_NO_DSA |
f5d7a031 UM |
80 | int main(int argc, char *argv[]) |
81 | { | |
82 | printf("No DSA support\n"); | |
83 | return(0); | |
84 | } | |
85 | #else | |
86 | #include <openssl/dsa.h> | |
87 | ||
bc36ee62 | 88 | #ifdef OPENSSL_SYS_WIN16 |
d02b48c6 RE |
89 | #define MS_CALLBACK _far _loadds |
90 | #else | |
91 | #define MS_CALLBACK | |
92 | #endif | |
93 | ||
2aaec9cc | 94 | static int MS_CALLBACK dsa_cb(int p, int n, BN_GENCB *arg); |
a87030a1 BM |
95 | |
96 | /* seed, out_p, out_q, out_g are taken from the updated Appendix 5 to | |
97 | * FIPS PUB 186 and also appear in Appendix 5 to FIPS PIB 186-1 */ | |
d02b48c6 RE |
98 | static unsigned char seed[20]={ |
99 | 0xd5,0x01,0x4e,0x4b,0x60,0xef,0x2b,0xa8,0xb6,0x21,0x1b,0x40, | |
100 | 0x62,0xba,0x32,0x24,0xe0,0x42,0x7d,0xd3, | |
101 | }; | |
102 | ||
103 | static unsigned char out_p[]={ | |
104 | 0x8d,0xf2,0xa4,0x94,0x49,0x22,0x76,0xaa, | |
105 | 0x3d,0x25,0x75,0x9b,0xb0,0x68,0x69,0xcb, | |
106 | 0xea,0xc0,0xd8,0x3a,0xfb,0x8d,0x0c,0xf7, | |
107 | 0xcb,0xb8,0x32,0x4f,0x0d,0x78,0x82,0xe5, | |
108 | 0xd0,0x76,0x2f,0xc5,0xb7,0x21,0x0e,0xaf, | |
109 | 0xc2,0xe9,0xad,0xac,0x32,0xab,0x7a,0xac, | |
110 | 0x49,0x69,0x3d,0xfb,0xf8,0x37,0x24,0xc2, | |
111 | 0xec,0x07,0x36,0xee,0x31,0xc8,0x02,0x91, | |
112 | }; | |
113 | ||
114 | static unsigned char out_q[]={ | |
115 | 0xc7,0x73,0x21,0x8c,0x73,0x7e,0xc8,0xee, | |
116 | 0x99,0x3b,0x4f,0x2d,0xed,0x30,0xf4,0x8e, | |
117 | 0xda,0xce,0x91,0x5f, | |
118 | }; | |
119 | ||
120 | static unsigned char out_g[]={ | |
121 | 0x62,0x6d,0x02,0x78,0x39,0xea,0x0a,0x13, | |
122 | 0x41,0x31,0x63,0xa5,0x5b,0x4c,0xb5,0x00, | |
123 | 0x29,0x9d,0x55,0x22,0x95,0x6c,0xef,0xcb, | |
124 | 0x3b,0xff,0x10,0xf3,0x99,0xce,0x2c,0x2e, | |
125 | 0x71,0xcb,0x9d,0xe5,0xfa,0x24,0xba,0xbf, | |
126 | 0x58,0xe5,0xb7,0x95,0x21,0x92,0x5c,0x9c, | |
127 | 0xc4,0x2e,0x9f,0x6f,0x46,0x4b,0x08,0x8c, | |
128 | 0xc5,0x72,0xaf,0x53,0xe6,0xd7,0x88,0x02, | |
129 | }; | |
130 | ||
61f5b6f3 BL |
131 | static const unsigned char str1[]="12345678901234567890"; |
132 | ||
7d388202 BM |
133 | static const char rnd_seed[] = "string to make the random number generator think it has entropy"; |
134 | ||
d02b48c6 RE |
135 | static BIO *bio_err=NULL; |
136 | ||
6b691a5c | 137 | int main(int argc, char **argv) |
d02b48c6 | 138 | { |
2aaec9cc | 139 | BN_GENCB cb; |
d02b48c6 RE |
140 | DSA *dsa=NULL; |
141 | int counter,ret=0,i,j; | |
142 | unsigned char buf[256]; | |
143 | unsigned long h; | |
a8da8918 | 144 | unsigned char sig[256]; |
61f5b6f3 | 145 | unsigned int siglen; |
d02b48c6 RE |
146 | |
147 | if (bio_err == NULL) | |
148 | bio_err=BIO_new_fp(stderr,BIO_NOCLOSE); | |
149 | ||
10654d3a BM |
150 | CRYPTO_malloc_debug_init(); |
151 | CRYPTO_dbg_set_options(V_CRYPTO_MDEBUG_ALL); | |
777ab7e6 | 152 | CRYPTO_mem_ctrl(CRYPTO_MEM_CHECK_ON); |
227cd06f | 153 | |
cb78486d GT |
154 | ERR_load_crypto_strings(); |
155 | RAND_seed(rnd_seed, sizeof rnd_seed); | |
156 | ||
d02b48c6 | 157 | BIO_printf(bio_err,"test generation of DSA parameters\n"); |
a87030a1 | 158 | |
2aaec9cc GT |
159 | BN_GENCB_set(&cb, dsa_cb, bio_err); |
160 | if(((dsa = DSA_new()) == NULL) || !DSA_generate_parameters_ex(dsa, 512, | |
161 | seed, 20, &counter, &h, &cb)) | |
162 | goto end; | |
d02b48c6 RE |
163 | |
164 | BIO_printf(bio_err,"seed\n"); | |
165 | for (i=0; i<20; i+=4) | |
166 | { | |
167 | BIO_printf(bio_err,"%02X%02X%02X%02X ", | |
168 | seed[i],seed[i+1],seed[i+2],seed[i+3]); | |
169 | } | |
3ae70939 | 170 | BIO_printf(bio_err,"\ncounter=%d h=%ld\n",counter,h); |
d02b48c6 RE |
171 | |
172 | if (dsa == NULL) goto end; | |
173 | DSA_print(bio_err,dsa,0); | |
174 | if (counter != 105) | |
175 | { | |
176 | BIO_printf(bio_err,"counter should be 105\n"); | |
177 | goto end; | |
178 | } | |
179 | if (h != 2) | |
180 | { | |
181 | BIO_printf(bio_err,"h should be 2\n"); | |
182 | goto end; | |
183 | } | |
184 | ||
185 | i=BN_bn2bin(dsa->q,buf); | |
186 | j=sizeof(out_q); | |
187 | if ((i != j) || (memcmp(buf,out_q,i) != 0)) | |
188 | { | |
189 | BIO_printf(bio_err,"q value is wrong\n"); | |
190 | goto end; | |
191 | } | |
192 | ||
193 | i=BN_bn2bin(dsa->p,buf); | |
194 | j=sizeof(out_p); | |
195 | if ((i != j) || (memcmp(buf,out_p,i) != 0)) | |
196 | { | |
197 | BIO_printf(bio_err,"p value is wrong\n"); | |
198 | goto end; | |
199 | } | |
200 | ||
201 | i=BN_bn2bin(dsa->g,buf); | |
202 | j=sizeof(out_g); | |
203 | if ((i != j) || (memcmp(buf,out_g,i) != 0)) | |
204 | { | |
205 | BIO_printf(bio_err,"g value is wrong\n"); | |
206 | goto end; | |
207 | } | |
46a64376 BM |
208 | |
209 | dsa->flags |= DSA_FLAG_NO_EXP_CONSTTIME; | |
a8da8918 | 210 | DSA_generate_key(dsa); |
61f5b6f3 BL |
211 | DSA_sign(0, str1, 20, sig, &siglen, dsa); |
212 | if (DSA_verify(0, str1, 20, sig, siglen, dsa) == 1) | |
a8da8918 | 213 | ret=1; |
46a64376 BM |
214 | |
215 | dsa->flags &= ~DSA_FLAG_NO_EXP_CONSTTIME; | |
216 | DSA_generate_key(dsa); | |
217 | DSA_sign(0, str1, 20, sig, &siglen, dsa); | |
218 | if (DSA_verify(0, str1, 20, sig, siglen, dsa) == 1) | |
219 | ret=1; | |
220 | ||
d02b48c6 RE |
221 | end: |
222 | if (!ret) | |
223 | ERR_print_errors(bio_err); | |
d02b48c6 | 224 | if (dsa != NULL) DSA_free(dsa); |
79aa04ef | 225 | CRYPTO_cleanup_all_ex_data(); |
29a28ee5 | 226 | ERR_remove_state(0); |
cb78486d | 227 | ERR_free_strings(); |
227cd06f | 228 | CRYPTO_mem_leaks(bio_err); |
79875776 BM |
229 | if (bio_err != NULL) |
230 | { | |
231 | BIO_free(bio_err); | |
232 | bio_err = NULL; | |
233 | } | |
4d8743f4 RL |
234 | #ifdef OPENSSL_SYS_NETWARE |
235 | if (!ret) printf("ERROR\n"); | |
236 | #endif | |
55f78baf | 237 | EXIT(!ret); |
d02b48c6 RE |
238 | return(0); |
239 | } | |
240 | ||
2aaec9cc | 241 | static int MS_CALLBACK dsa_cb(int p, int n, BN_GENCB *arg) |
d02b48c6 RE |
242 | { |
243 | char c='*'; | |
244 | static int ok=0,num=0; | |
245 | ||
246 | if (p == 0) { c='.'; num++; }; | |
247 | if (p == 1) c='+'; | |
248 | if (p == 2) { c='*'; ok++; } | |
249 | if (p == 3) c='\n'; | |
2aaec9cc GT |
250 | BIO_write(arg->arg,&c,1); |
251 | (void)BIO_flush(arg->arg); | |
d02b48c6 RE |
252 | |
253 | if (!ok && (p == 0) && (num > 1)) | |
254 | { | |
58964a49 | 255 | BIO_printf((BIO *)arg,"error in dsatest\n"); |
2aaec9cc | 256 | return 0; |
d02b48c6 | 257 | } |
2aaec9cc | 258 | return 1; |
d02b48c6 | 259 | } |
f5d7a031 | 260 | #endif |