diff options
Diffstat (limited to 'src/lib/libssl/s3_lib.c')
-rw-r--r-- | src/lib/libssl/s3_lib.c | 1379 |
1 files changed, 0 insertions, 1379 deletions
diff --git a/src/lib/libssl/s3_lib.c b/src/lib/libssl/s3_lib.c deleted file mode 100644 index c32c06de32..0000000000 --- a/src/lib/libssl/s3_lib.c +++ /dev/null | |||
@@ -1,1379 +0,0 @@ | |||
1 | /* ssl/s3_lib.c */ | ||
2 | /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) | ||
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 | /* ==================================================================== | ||
59 | * Copyright (c) 1998-2000 The OpenSSL Project. All rights reserved. | ||
60 | * | ||
61 | * Redistribution and use in source and binary forms, with or without | ||
62 | * modification, are permitted provided that the following conditions | ||
63 | * are met: | ||
64 | * | ||
65 | * 1. Redistributions of source code must retain the above copyright | ||
66 | * notice, this list of conditions and the following disclaimer. | ||
67 | * | ||
68 | * 2. Redistributions in binary form must reproduce the above copyright | ||
69 | * notice, this list of conditions and the following disclaimer in | ||
70 | * the documentation and/or other materials provided with the | ||
71 | * distribution. | ||
72 | * | ||
73 | * 3. All advertising materials mentioning features or use of this | ||
74 | * software must display the following acknowledgment: | ||
75 | * "This product includes software developed by the OpenSSL Project | ||
76 | * for use in the OpenSSL Toolkit. (http://www.openssl.org/)" | ||
77 | * | ||
78 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
79 | * endorse or promote products derived from this software without | ||
80 | * prior written permission. For written permission, please contact | ||
81 | * openssl-core@openssl.org. | ||
82 | * | ||
83 | * 5. Products derived from this software may not be called "OpenSSL" | ||
84 | * nor may "OpenSSL" appear in their names without prior written | ||
85 | * permission of the OpenSSL Project. | ||
86 | * | ||
87 | * 6. Redistributions of any form whatsoever must retain the following | ||
88 | * acknowledgment: | ||
89 | * "This product includes software developed by the OpenSSL Project | ||
90 | * for use in the OpenSSL Toolkit (http://www.openssl.org/)" | ||
91 | * | ||
92 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
93 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
94 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
95 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
96 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
97 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
98 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
99 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
100 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
101 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
102 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
103 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
104 | * ==================================================================== | ||
105 | * | ||
106 | * This product includes cryptographic software written by Eric Young | ||
107 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
108 | * Hudson (tjh@cryptsoft.com). | ||
109 | * | ||
110 | */ | ||
111 | |||
112 | #include <stdio.h> | ||
113 | #include <openssl/md5.h> | ||
114 | #include <openssl/sha.h> | ||
115 | #include <openssl/objects.h> | ||
116 | #include "ssl_locl.h" | ||
117 | |||
118 | const char *ssl3_version_str="SSLv3" OPENSSL_VERSION_PTEXT; | ||
119 | |||
120 | #define SSL3_NUM_CIPHERS (sizeof(ssl3_ciphers)/sizeof(SSL_CIPHER)) | ||
121 | |||
122 | static long ssl3_default_timeout(void ); | ||
123 | |||
124 | OPENSSL_GLOBAL SSL_CIPHER ssl3_ciphers[]={ | ||
125 | /* The RSA ciphers */ | ||
126 | /* Cipher 01 */ | ||
127 | { | ||
128 | 1, | ||
129 | SSL3_TXT_RSA_NULL_MD5, | ||
130 | SSL3_CK_RSA_NULL_MD5, | ||
131 | SSL_kRSA|SSL_aRSA|SSL_eNULL |SSL_MD5|SSL_SSLV3, | ||
132 | SSL_NOT_EXP, | ||
133 | 0, | ||
134 | 0, | ||
135 | 0, | ||
136 | SSL_ALL_CIPHERS, | ||
137 | SSL_ALL_STRENGTHS, | ||
138 | }, | ||
139 | /* Cipher 02 */ | ||
140 | { | ||
141 | 1, | ||
142 | SSL3_TXT_RSA_NULL_SHA, | ||
143 | SSL3_CK_RSA_NULL_SHA, | ||
144 | SSL_kRSA|SSL_aRSA|SSL_eNULL |SSL_SHA1|SSL_SSLV3, | ||
145 | SSL_NOT_EXP, | ||
146 | 0, | ||
147 | 0, | ||
148 | 0, | ||
149 | SSL_ALL_CIPHERS, | ||
150 | SSL_ALL_STRENGTHS, | ||
151 | }, | ||
152 | |||
153 | /* anon DH */ | ||
154 | /* Cipher 17 */ | ||
155 | { | ||
156 | 1, | ||
157 | SSL3_TXT_ADH_RC4_40_MD5, | ||
158 | SSL3_CK_ADH_RC4_40_MD5, | ||
159 | SSL_kEDH |SSL_aNULL|SSL_RC4 |SSL_MD5 |SSL_SSLV3, | ||
160 | SSL_EXPORT|SSL_EXP40, | ||
161 | 0, | ||
162 | 40, | ||
163 | 128, | ||
164 | SSL_ALL_CIPHERS, | ||
165 | SSL_ALL_STRENGTHS, | ||
166 | }, | ||
167 | /* Cipher 18 */ | ||
168 | { | ||
169 | 1, | ||
170 | SSL3_TXT_ADH_RC4_128_MD5, | ||
171 | SSL3_CK_ADH_RC4_128_MD5, | ||
172 | SSL_kEDH |SSL_aNULL|SSL_RC4 |SSL_MD5 |SSL_SSLV3, | ||
173 | SSL_NOT_EXP, | ||
174 | 0, | ||
175 | 128, | ||
176 | 128, | ||
177 | SSL_ALL_CIPHERS, | ||
178 | SSL_ALL_STRENGTHS, | ||
179 | }, | ||
180 | /* Cipher 19 */ | ||
181 | { | ||
182 | 1, | ||
183 | SSL3_TXT_ADH_DES_40_CBC_SHA, | ||
184 | SSL3_CK_ADH_DES_40_CBC_SHA, | ||
185 | SSL_kEDH |SSL_aNULL|SSL_DES|SSL_SHA1|SSL_SSLV3, | ||
186 | SSL_EXPORT|SSL_EXP40, | ||
187 | 0, | ||
188 | 40, | ||
189 | 128, | ||
190 | SSL_ALL_CIPHERS, | ||
191 | SSL_ALL_STRENGTHS, | ||
192 | }, | ||
193 | /* Cipher 1A */ | ||
194 | { | ||
195 | 1, | ||
196 | SSL3_TXT_ADH_DES_64_CBC_SHA, | ||
197 | SSL3_CK_ADH_DES_64_CBC_SHA, | ||
198 | SSL_kEDH |SSL_aNULL|SSL_DES |SSL_SHA1|SSL_SSLV3, | ||
199 | SSL_NOT_EXP, | ||
200 | 0, | ||
201 | 56, | ||
202 | 56, | ||
203 | SSL_ALL_CIPHERS, | ||
204 | SSL_ALL_STRENGTHS, | ||
205 | }, | ||
206 | /* Cipher 1B */ | ||
207 | { | ||
208 | 1, | ||
209 | SSL3_TXT_ADH_DES_192_CBC_SHA, | ||
210 | SSL3_CK_ADH_DES_192_CBC_SHA, | ||
211 | SSL_kEDH |SSL_aNULL|SSL_3DES |SSL_SHA1|SSL_SSLV3, | ||
212 | SSL_NOT_EXP, | ||
213 | 0, | ||
214 | 168, | ||
215 | 168, | ||
216 | SSL_ALL_CIPHERS, | ||
217 | SSL_ALL_STRENGTHS, | ||
218 | }, | ||
219 | |||
220 | /* RSA again */ | ||
221 | /* Cipher 03 */ | ||
222 | { | ||
223 | 1, | ||
224 | SSL3_TXT_RSA_RC4_40_MD5, | ||
225 | SSL3_CK_RSA_RC4_40_MD5, | ||
226 | SSL_kRSA|SSL_aRSA|SSL_RC4 |SSL_MD5 |SSL_SSLV3, | ||
227 | SSL_EXPORT|SSL_EXP40, | ||
228 | 0, | ||
229 | 40, | ||
230 | 128, | ||
231 | SSL_ALL_CIPHERS, | ||
232 | SSL_ALL_STRENGTHS, | ||
233 | }, | ||
234 | /* Cipher 04 */ | ||
235 | { | ||
236 | 1, | ||
237 | SSL3_TXT_RSA_RC4_128_MD5, | ||
238 | SSL3_CK_RSA_RC4_128_MD5, | ||
239 | SSL_kRSA|SSL_aRSA|SSL_RC4 |SSL_MD5|SSL_SSLV3, | ||
240 | SSL_NOT_EXP|SSL_MEDIUM, | ||
241 | 0, | ||
242 | 128, | ||
243 | 128, | ||
244 | SSL_ALL_CIPHERS, | ||
245 | SSL_ALL_STRENGTHS, | ||
246 | }, | ||
247 | /* Cipher 05 */ | ||
248 | { | ||
249 | 1, | ||
250 | SSL3_TXT_RSA_RC4_128_SHA, | ||
251 | SSL3_CK_RSA_RC4_128_SHA, | ||
252 | SSL_kRSA|SSL_aRSA|SSL_RC4 |SSL_SHA1|SSL_SSLV3, | ||
253 | SSL_NOT_EXP|SSL_MEDIUM, | ||
254 | 0, | ||
255 | 128, | ||
256 | 128, | ||
257 | SSL_ALL_CIPHERS, | ||
258 | SSL_ALL_STRENGTHS, | ||
259 | }, | ||
260 | /* Cipher 06 */ | ||
261 | { | ||
262 | 1, | ||
263 | SSL3_TXT_RSA_RC2_40_MD5, | ||
264 | SSL3_CK_RSA_RC2_40_MD5, | ||
265 | SSL_kRSA|SSL_aRSA|SSL_RC2 |SSL_MD5 |SSL_SSLV3, | ||
266 | SSL_EXPORT|SSL_EXP40, | ||
267 | 0, | ||
268 | 40, | ||
269 | 128, | ||
270 | SSL_ALL_CIPHERS, | ||
271 | SSL_ALL_STRENGTHS, | ||
272 | }, | ||
273 | /* Cipher 07 */ | ||
274 | { | ||
275 | 1, | ||
276 | SSL3_TXT_RSA_IDEA_128_SHA, | ||
277 | SSL3_CK_RSA_IDEA_128_SHA, | ||
278 | SSL_kRSA|SSL_aRSA|SSL_IDEA |SSL_SHA1|SSL_SSLV3, | ||
279 | SSL_NOT_EXP|SSL_MEDIUM, | ||
280 | 0, | ||
281 | 128, | ||
282 | 128, | ||
283 | SSL_ALL_CIPHERS, | ||
284 | SSL_ALL_STRENGTHS, | ||
285 | }, | ||
286 | /* Cipher 08 */ | ||
287 | { | ||
288 | 1, | ||
289 | SSL3_TXT_RSA_DES_40_CBC_SHA, | ||
290 | SSL3_CK_RSA_DES_40_CBC_SHA, | ||
291 | SSL_kRSA|SSL_aRSA|SSL_DES|SSL_SHA1|SSL_SSLV3, | ||
292 | SSL_EXPORT|SSL_EXP40, | ||
293 | 0, | ||
294 | 40, | ||
295 | 56, | ||
296 | SSL_ALL_CIPHERS, | ||
297 | SSL_ALL_STRENGTHS, | ||
298 | }, | ||
299 | /* Cipher 09 */ | ||
300 | { | ||
301 | 1, | ||
302 | SSL3_TXT_RSA_DES_64_CBC_SHA, | ||
303 | SSL3_CK_RSA_DES_64_CBC_SHA, | ||
304 | SSL_kRSA|SSL_aRSA|SSL_DES |SSL_SHA1|SSL_SSLV3, | ||
305 | SSL_NOT_EXP|SSL_LOW, | ||
306 | 0, | ||
307 | 56, | ||
308 | 56, | ||
309 | SSL_ALL_CIPHERS, | ||
310 | SSL_ALL_STRENGTHS, | ||
311 | }, | ||
312 | /* Cipher 0A */ | ||
313 | { | ||
314 | 1, | ||
315 | SSL3_TXT_RSA_DES_192_CBC3_SHA, | ||
316 | SSL3_CK_RSA_DES_192_CBC3_SHA, | ||
317 | SSL_kRSA|SSL_aRSA|SSL_3DES |SSL_SHA1|SSL_SSLV3, | ||
318 | SSL_NOT_EXP|SSL_HIGH, | ||
319 | 0, | ||
320 | 168, | ||
321 | 168, | ||
322 | SSL_ALL_CIPHERS, | ||
323 | SSL_ALL_STRENGTHS, | ||
324 | }, | ||
325 | |||
326 | /* The DH ciphers */ | ||
327 | /* Cipher 0B */ | ||
328 | { | ||
329 | 0, | ||
330 | SSL3_TXT_DH_DSS_DES_40_CBC_SHA, | ||
331 | SSL3_CK_DH_DSS_DES_40_CBC_SHA, | ||
332 | SSL_kDHd |SSL_aDH|SSL_DES|SSL_SHA1|SSL_SSLV3, | ||
333 | SSL_EXPORT|SSL_EXP40, | ||
334 | 0, | ||
335 | 40, | ||
336 | 56, | ||
337 | SSL_ALL_CIPHERS, | ||
338 | SSL_ALL_STRENGTHS, | ||
339 | }, | ||
340 | /* Cipher 0C */ | ||
341 | { | ||
342 | 0, | ||
343 | SSL3_TXT_DH_DSS_DES_64_CBC_SHA, | ||
344 | SSL3_CK_DH_DSS_DES_64_CBC_SHA, | ||
345 | SSL_kDHd |SSL_aDH|SSL_DES |SSL_SHA1|SSL_SSLV3, | ||
346 | SSL_NOT_EXP|SSL_LOW, | ||
347 | 0, | ||
348 | 56, | ||
349 | 56, | ||
350 | SSL_ALL_CIPHERS, | ||
351 | SSL_ALL_STRENGTHS, | ||
352 | }, | ||
353 | /* Cipher 0D */ | ||
354 | { | ||
355 | 0, | ||
356 | SSL3_TXT_DH_DSS_DES_192_CBC3_SHA, | ||
357 | SSL3_CK_DH_DSS_DES_192_CBC3_SHA, | ||
358 | SSL_kDHd |SSL_aDH|SSL_3DES |SSL_SHA1|SSL_SSLV3, | ||
359 | SSL_NOT_EXP|SSL_HIGH, | ||
360 | 0, | ||
361 | 168, | ||
362 | 168, | ||
363 | SSL_ALL_CIPHERS, | ||
364 | SSL_ALL_STRENGTHS, | ||
365 | }, | ||
366 | /* Cipher 0E */ | ||
367 | { | ||
368 | 0, | ||
369 | SSL3_TXT_DH_RSA_DES_40_CBC_SHA, | ||
370 | SSL3_CK_DH_RSA_DES_40_CBC_SHA, | ||
371 | SSL_kDHr |SSL_aDH|SSL_DES|SSL_SHA1|SSL_SSLV3, | ||
372 | SSL_EXPORT|SSL_EXP40, | ||
373 | 0, | ||
374 | 40, | ||
375 | 56, | ||
376 | SSL_ALL_CIPHERS, | ||
377 | SSL_ALL_STRENGTHS, | ||
378 | }, | ||
379 | /* Cipher 0F */ | ||
380 | { | ||
381 | 0, | ||
382 | SSL3_TXT_DH_RSA_DES_64_CBC_SHA, | ||
383 | SSL3_CK_DH_RSA_DES_64_CBC_SHA, | ||
384 | SSL_kDHr |SSL_aDH|SSL_DES |SSL_SHA1|SSL_SSLV3, | ||
385 | SSL_NOT_EXP|SSL_LOW, | ||
386 | 0, | ||
387 | 56, | ||
388 | 56, | ||
389 | SSL_ALL_CIPHERS, | ||
390 | SSL_ALL_STRENGTHS, | ||
391 | }, | ||
392 | /* Cipher 10 */ | ||
393 | { | ||
394 | 0, | ||
395 | SSL3_TXT_DH_RSA_DES_192_CBC3_SHA, | ||
396 | SSL3_CK_DH_RSA_DES_192_CBC3_SHA, | ||
397 | SSL_kDHr |SSL_aDH|SSL_3DES |SSL_SHA1|SSL_SSLV3, | ||
398 | SSL_NOT_EXP|SSL_HIGH, | ||
399 | 0, | ||
400 | 168, | ||
401 | 168, | ||
402 | SSL_ALL_CIPHERS, | ||
403 | SSL_ALL_STRENGTHS, | ||
404 | }, | ||
405 | |||
406 | /* The Ephemeral DH ciphers */ | ||
407 | /* Cipher 11 */ | ||
408 | { | ||
409 | 1, | ||
410 | SSL3_TXT_EDH_DSS_DES_40_CBC_SHA, | ||
411 | SSL3_CK_EDH_DSS_DES_40_CBC_SHA, | ||
412 | SSL_kEDH|SSL_aDSS|SSL_DES|SSL_SHA1|SSL_SSLV3, | ||
413 | SSL_EXPORT|SSL_EXP40, | ||
414 | 0, | ||
415 | 40, | ||
416 | 56, | ||
417 | SSL_ALL_CIPHERS, | ||
418 | SSL_ALL_STRENGTHS, | ||
419 | }, | ||
420 | /* Cipher 12 */ | ||
421 | { | ||
422 | 1, | ||
423 | SSL3_TXT_EDH_DSS_DES_64_CBC_SHA, | ||
424 | SSL3_CK_EDH_DSS_DES_64_CBC_SHA, | ||
425 | SSL_kEDH|SSL_aDSS|SSL_DES |SSL_SHA1|SSL_SSLV3, | ||
426 | SSL_NOT_EXP|SSL_LOW, | ||
427 | 0, | ||
428 | 56, | ||
429 | 56, | ||
430 | SSL_ALL_CIPHERS, | ||
431 | SSL_ALL_STRENGTHS, | ||
432 | }, | ||
433 | /* Cipher 13 */ | ||
434 | { | ||
435 | 1, | ||
436 | SSL3_TXT_EDH_DSS_DES_192_CBC3_SHA, | ||
437 | SSL3_CK_EDH_DSS_DES_192_CBC3_SHA, | ||
438 | SSL_kEDH|SSL_aDSS|SSL_3DES |SSL_SHA1|SSL_SSLV3, | ||
439 | SSL_NOT_EXP|SSL_HIGH, | ||
440 | 0, | ||
441 | 168, | ||
442 | 168, | ||
443 | SSL_ALL_CIPHERS, | ||
444 | SSL_ALL_STRENGTHS, | ||
445 | }, | ||
446 | /* Cipher 14 */ | ||
447 | { | ||
448 | 1, | ||
449 | SSL3_TXT_EDH_RSA_DES_40_CBC_SHA, | ||
450 | SSL3_CK_EDH_RSA_DES_40_CBC_SHA, | ||
451 | SSL_kEDH|SSL_aRSA|SSL_DES|SSL_SHA1|SSL_SSLV3, | ||
452 | SSL_EXPORT|SSL_EXP40, | ||
453 | 0, | ||
454 | 40, | ||
455 | 56, | ||
456 | SSL_ALL_CIPHERS, | ||
457 | SSL_ALL_STRENGTHS, | ||
458 | }, | ||
459 | /* Cipher 15 */ | ||
460 | { | ||
461 | 1, | ||
462 | SSL3_TXT_EDH_RSA_DES_64_CBC_SHA, | ||
463 | SSL3_CK_EDH_RSA_DES_64_CBC_SHA, | ||
464 | SSL_kEDH|SSL_aRSA|SSL_DES |SSL_SHA1|SSL_SSLV3, | ||
465 | SSL_NOT_EXP|SSL_LOW, | ||
466 | 0, | ||
467 | 56, | ||
468 | 56, | ||
469 | SSL_ALL_CIPHERS, | ||
470 | SSL_ALL_STRENGTHS, | ||
471 | }, | ||
472 | /* Cipher 16 */ | ||
473 | { | ||
474 | 1, | ||
475 | SSL3_TXT_EDH_RSA_DES_192_CBC3_SHA, | ||
476 | SSL3_CK_EDH_RSA_DES_192_CBC3_SHA, | ||
477 | SSL_kEDH|SSL_aRSA|SSL_3DES |SSL_SHA1|SSL_SSLV3, | ||
478 | SSL_NOT_EXP|SSL_HIGH, | ||
479 | 0, | ||
480 | 168, | ||
481 | 168, | ||
482 | SSL_ALL_CIPHERS, | ||
483 | SSL_ALL_STRENGTHS, | ||
484 | }, | ||
485 | |||
486 | /* Fortezza */ | ||
487 | /* Cipher 1C */ | ||
488 | { | ||
489 | 0, | ||
490 | SSL3_TXT_FZA_DMS_NULL_SHA, | ||
491 | SSL3_CK_FZA_DMS_NULL_SHA, | ||
492 | SSL_kFZA|SSL_aFZA |SSL_eNULL |SSL_SHA1|SSL_SSLV3, | ||
493 | SSL_NOT_EXP, | ||
494 | 0, | ||
495 | 0, | ||
496 | 0, | ||
497 | SSL_ALL_CIPHERS, | ||
498 | SSL_ALL_STRENGTHS, | ||
499 | }, | ||
500 | |||
501 | /* Cipher 1D */ | ||
502 | { | ||
503 | 0, | ||
504 | SSL3_TXT_FZA_DMS_FZA_SHA, | ||
505 | SSL3_CK_FZA_DMS_FZA_SHA, | ||
506 | SSL_kFZA|SSL_aFZA |SSL_eFZA |SSL_SHA1|SSL_SSLV3, | ||
507 | SSL_NOT_EXP, | ||
508 | 0, | ||
509 | 0, | ||
510 | 0, | ||
511 | SSL_ALL_CIPHERS, | ||
512 | SSL_ALL_STRENGTHS, | ||
513 | }, | ||
514 | |||
515 | /* Cipher 1E */ | ||
516 | { | ||
517 | 0, | ||
518 | SSL3_TXT_FZA_DMS_RC4_SHA, | ||
519 | SSL3_CK_FZA_DMS_RC4_SHA, | ||
520 | SSL_kFZA|SSL_aFZA |SSL_RC4 |SSL_SHA1|SSL_SSLV3, | ||
521 | SSL_NOT_EXP, | ||
522 | 0, | ||
523 | 128, | ||
524 | 128, | ||
525 | SSL_ALL_CIPHERS, | ||
526 | SSL_ALL_STRENGTHS, | ||
527 | }, | ||
528 | |||
529 | #if TLS1_ALLOW_EXPERIMENTAL_CIPHERSUITES | ||
530 | /* New TLS Export CipherSuites */ | ||
531 | /* Cipher 60 */ | ||
532 | { | ||
533 | 1, | ||
534 | TLS1_TXT_RSA_EXPORT1024_WITH_RC4_56_MD5, | ||
535 | TLS1_CK_RSA_EXPORT1024_WITH_RC4_56_MD5, | ||
536 | SSL_kRSA|SSL_aRSA|SSL_RC4|SSL_MD5|SSL_TLSV1, | ||
537 | SSL_EXPORT|SSL_EXP56, | ||
538 | 0, | ||
539 | 56, | ||
540 | 128, | ||
541 | SSL_ALL_CIPHERS, | ||
542 | SSL_ALL_STRENGTHS, | ||
543 | }, | ||
544 | /* Cipher 61 */ | ||
545 | { | ||
546 | 1, | ||
547 | TLS1_TXT_RSA_EXPORT1024_WITH_RC2_CBC_56_MD5, | ||
548 | TLS1_CK_RSA_EXPORT1024_WITH_RC2_CBC_56_MD5, | ||
549 | SSL_kRSA|SSL_aRSA|SSL_RC2|SSL_MD5|SSL_TLSV1, | ||
550 | SSL_EXPORT|SSL_EXP56, | ||
551 | 0, | ||
552 | 56, | ||
553 | 128, | ||
554 | SSL_ALL_CIPHERS, | ||
555 | SSL_ALL_STRENGTHS, | ||
556 | }, | ||
557 | /* Cipher 62 */ | ||
558 | { | ||
559 | 1, | ||
560 | TLS1_TXT_RSA_EXPORT1024_WITH_DES_CBC_SHA, | ||
561 | TLS1_CK_RSA_EXPORT1024_WITH_DES_CBC_SHA, | ||
562 | SSL_kRSA|SSL_aRSA|SSL_DES|SSL_SHA|SSL_TLSV1, | ||
563 | SSL_EXPORT|SSL_EXP56, | ||
564 | 0, | ||
565 | 56, | ||
566 | 56, | ||
567 | SSL_ALL_CIPHERS, | ||
568 | SSL_ALL_STRENGTHS, | ||
569 | }, | ||
570 | /* Cipher 63 */ | ||
571 | { | ||
572 | 1, | ||
573 | TLS1_TXT_DHE_DSS_EXPORT1024_WITH_DES_CBC_SHA, | ||
574 | TLS1_CK_DHE_DSS_EXPORT1024_WITH_DES_CBC_SHA, | ||
575 | SSL_kEDH|SSL_aDSS|SSL_DES|SSL_SHA|SSL_TLSV1, | ||
576 | SSL_EXPORT|SSL_EXP56, | ||
577 | 0, | ||
578 | 56, | ||
579 | 56, | ||
580 | SSL_ALL_CIPHERS, | ||
581 | SSL_ALL_STRENGTHS, | ||
582 | }, | ||
583 | /* Cipher 64 */ | ||
584 | { | ||
585 | 1, | ||
586 | TLS1_TXT_RSA_EXPORT1024_WITH_RC4_56_SHA, | ||
587 | TLS1_CK_RSA_EXPORT1024_WITH_RC4_56_SHA, | ||
588 | SSL_kRSA|SSL_aRSA|SSL_RC4|SSL_SHA|SSL_TLSV1, | ||
589 | SSL_EXPORT|SSL_EXP56, | ||
590 | 0, | ||
591 | 56, | ||
592 | 128, | ||
593 | SSL_ALL_CIPHERS, | ||
594 | SSL_ALL_STRENGTHS, | ||
595 | }, | ||
596 | /* Cipher 65 */ | ||
597 | { | ||
598 | 1, | ||
599 | TLS1_TXT_DHE_DSS_EXPORT1024_WITH_RC4_56_SHA, | ||
600 | TLS1_CK_DHE_DSS_EXPORT1024_WITH_RC4_56_SHA, | ||
601 | SSL_kEDH|SSL_aDSS|SSL_RC4|SSL_SHA|SSL_TLSV1, | ||
602 | SSL_EXPORT|SSL_EXP56, | ||
603 | 0, | ||
604 | 56, | ||
605 | 128, | ||
606 | SSL_ALL_CIPHERS, | ||
607 | SSL_ALL_STRENGTHS, | ||
608 | }, | ||
609 | /* Cipher 66 */ | ||
610 | { | ||
611 | 1, | ||
612 | TLS1_TXT_DHE_DSS_WITH_RC4_128_SHA, | ||
613 | TLS1_CK_DHE_DSS_WITH_RC4_128_SHA, | ||
614 | SSL_kEDH|SSL_aDSS|SSL_RC4|SSL_SHA|SSL_TLSV1, | ||
615 | SSL_NOT_EXP, | ||
616 | 0, | ||
617 | 128, | ||
618 | 128, | ||
619 | SSL_ALL_CIPHERS, | ||
620 | SSL_ALL_STRENGTHS | ||
621 | }, | ||
622 | #endif | ||
623 | |||
624 | /* end of list */ | ||
625 | }; | ||
626 | |||
627 | static SSL3_ENC_METHOD SSLv3_enc_data={ | ||
628 | ssl3_enc, | ||
629 | ssl3_mac, | ||
630 | ssl3_setup_key_block, | ||
631 | ssl3_generate_master_secret, | ||
632 | ssl3_change_cipher_state, | ||
633 | ssl3_final_finish_mac, | ||
634 | MD5_DIGEST_LENGTH+SHA_DIGEST_LENGTH, | ||
635 | ssl3_cert_verify_mac, | ||
636 | SSL3_MD_CLIENT_FINISHED_CONST,4, | ||
637 | SSL3_MD_SERVER_FINISHED_CONST,4, | ||
638 | ssl3_alert_code, | ||
639 | }; | ||
640 | |||
641 | static SSL_METHOD SSLv3_data= { | ||
642 | SSL3_VERSION, | ||
643 | ssl3_new, | ||
644 | ssl3_clear, | ||
645 | ssl3_free, | ||
646 | ssl_undefined_function, | ||
647 | ssl_undefined_function, | ||
648 | ssl3_read, | ||
649 | ssl3_peek, | ||
650 | ssl3_write, | ||
651 | ssl3_shutdown, | ||
652 | ssl3_renegotiate, | ||
653 | ssl3_renegotiate_check, | ||
654 | ssl3_ctrl, | ||
655 | ssl3_ctx_ctrl, | ||
656 | ssl3_get_cipher_by_char, | ||
657 | ssl3_put_cipher_by_char, | ||
658 | ssl3_pending, | ||
659 | ssl3_num_ciphers, | ||
660 | ssl3_get_cipher, | ||
661 | ssl_bad_method, | ||
662 | ssl3_default_timeout, | ||
663 | &SSLv3_enc_data, | ||
664 | ssl_undefined_function, | ||
665 | ssl3_callback_ctrl, | ||
666 | ssl3_ctx_callback_ctrl, | ||
667 | }; | ||
668 | |||
669 | static long ssl3_default_timeout(void) | ||
670 | { | ||
671 | /* 2 hours, the 24 hours mentioned in the SSLv3 spec | ||
672 | * is way too long for http, the cache would over fill */ | ||
673 | return(60*60*2); | ||
674 | } | ||
675 | |||
676 | SSL_METHOD *sslv3_base_method(void) | ||
677 | { | ||
678 | return(&SSLv3_data); | ||
679 | } | ||
680 | |||
681 | int ssl3_num_ciphers(void) | ||
682 | { | ||
683 | return(SSL3_NUM_CIPHERS); | ||
684 | } | ||
685 | |||
686 | SSL_CIPHER *ssl3_get_cipher(unsigned int u) | ||
687 | { | ||
688 | if (u < SSL3_NUM_CIPHERS) | ||
689 | return(&(ssl3_ciphers[SSL3_NUM_CIPHERS-1-u])); | ||
690 | else | ||
691 | return(NULL); | ||
692 | } | ||
693 | |||
694 | int ssl3_pending(SSL *s) | ||
695 | { | ||
696 | return (s->s3->rrec.type == SSL3_RT_APPLICATION_DATA) ? s->s3->rrec.length : 0; | ||
697 | } | ||
698 | |||
699 | int ssl3_new(SSL *s) | ||
700 | { | ||
701 | SSL3_STATE *s3; | ||
702 | |||
703 | if ((s3=OPENSSL_malloc(sizeof *s3)) == NULL) goto err; | ||
704 | memset(s3,0,sizeof *s3); | ||
705 | |||
706 | s->s3=s3; | ||
707 | |||
708 | s->method->ssl_clear(s); | ||
709 | return(1); | ||
710 | err: | ||
711 | return(0); | ||
712 | } | ||
713 | |||
714 | void ssl3_free(SSL *s) | ||
715 | { | ||
716 | if(s == NULL) | ||
717 | return; | ||
718 | |||
719 | ssl3_cleanup_key_block(s); | ||
720 | if (s->s3->rbuf.buf != NULL) | ||
721 | OPENSSL_free(s->s3->rbuf.buf); | ||
722 | if (s->s3->wbuf.buf != NULL) | ||
723 | OPENSSL_free(s->s3->wbuf.buf); | ||
724 | if (s->s3->rrec.comp != NULL) | ||
725 | OPENSSL_free(s->s3->rrec.comp); | ||
726 | #ifndef NO_DH | ||
727 | if (s->s3->tmp.dh != NULL) | ||
728 | DH_free(s->s3->tmp.dh); | ||
729 | #endif | ||
730 | if (s->s3->tmp.ca_names != NULL) | ||
731 | sk_X509_NAME_pop_free(s->s3->tmp.ca_names,X509_NAME_free); | ||
732 | memset(s->s3,0,sizeof *s->s3); | ||
733 | OPENSSL_free(s->s3); | ||
734 | s->s3=NULL; | ||
735 | } | ||
736 | |||
737 | void ssl3_clear(SSL *s) | ||
738 | { | ||
739 | unsigned char *rp,*wp; | ||
740 | |||
741 | ssl3_cleanup_key_block(s); | ||
742 | if (s->s3->tmp.ca_names != NULL) | ||
743 | sk_X509_NAME_pop_free(s->s3->tmp.ca_names,X509_NAME_free); | ||
744 | |||
745 | if (s->s3->rrec.comp != NULL) | ||
746 | { | ||
747 | OPENSSL_free(s->s3->rrec.comp); | ||
748 | s->s3->rrec.comp=NULL; | ||
749 | } | ||
750 | #ifndef NO_DH | ||
751 | if (s->s3->tmp.dh != NULL) | ||
752 | DH_free(s->s3->tmp.dh); | ||
753 | #endif | ||
754 | |||
755 | rp=s->s3->rbuf.buf; | ||
756 | wp=s->s3->wbuf.buf; | ||
757 | |||
758 | memset(s->s3,0,sizeof *s->s3); | ||
759 | if (rp != NULL) s->s3->rbuf.buf=rp; | ||
760 | if (wp != NULL) s->s3->wbuf.buf=wp; | ||
761 | |||
762 | ssl_free_wbio_buffer(s); | ||
763 | |||
764 | s->packet_length=0; | ||
765 | s->s3->renegotiate=0; | ||
766 | s->s3->total_renegotiations=0; | ||
767 | s->s3->num_renegotiations=0; | ||
768 | s->s3->in_read_app_data=0; | ||
769 | s->version=SSL3_VERSION; | ||
770 | } | ||
771 | |||
772 | long ssl3_ctrl(SSL *s, int cmd, long larg, char *parg) | ||
773 | { | ||
774 | int ret=0; | ||
775 | |||
776 | #if !defined(NO_DSA) || !defined(NO_RSA) | ||
777 | if ( | ||
778 | #ifndef NO_RSA | ||
779 | cmd == SSL_CTRL_SET_TMP_RSA || | ||
780 | cmd == SSL_CTRL_SET_TMP_RSA_CB || | ||
781 | #endif | ||
782 | #ifndef NO_DSA | ||
783 | cmd == SSL_CTRL_SET_TMP_DH || | ||
784 | cmd == SSL_CTRL_SET_TMP_DH_CB || | ||
785 | #endif | ||
786 | 0) | ||
787 | { | ||
788 | if (!ssl_cert_inst(&s->cert)) | ||
789 | { | ||
790 | SSLerr(SSL_F_SSL3_CTRL, ERR_R_MALLOC_FAILURE); | ||
791 | return(0); | ||
792 | } | ||
793 | } | ||
794 | #endif | ||
795 | |||
796 | switch (cmd) | ||
797 | { | ||
798 | case SSL_CTRL_GET_SESSION_REUSED: | ||
799 | ret=s->hit; | ||
800 | break; | ||
801 | case SSL_CTRL_GET_CLIENT_CERT_REQUEST: | ||
802 | break; | ||
803 | case SSL_CTRL_GET_NUM_RENEGOTIATIONS: | ||
804 | ret=s->s3->num_renegotiations; | ||
805 | break; | ||
806 | case SSL_CTRL_CLEAR_NUM_RENEGOTIATIONS: | ||
807 | ret=s->s3->num_renegotiations; | ||
808 | s->s3->num_renegotiations=0; | ||
809 | break; | ||
810 | case SSL_CTRL_GET_TOTAL_RENEGOTIATIONS: | ||
811 | ret=s->s3->total_renegotiations; | ||
812 | break; | ||
813 | case SSL_CTRL_GET_FLAGS: | ||
814 | ret=(int)(s->s3->flags); | ||
815 | break; | ||
816 | #ifndef NO_RSA | ||
817 | case SSL_CTRL_NEED_TMP_RSA: | ||
818 | if ((s->cert != NULL) && (s->cert->rsa_tmp == NULL) && | ||
819 | ((s->cert->pkeys[SSL_PKEY_RSA_ENC].privatekey == NULL) || | ||
820 | (EVP_PKEY_size(s->cert->pkeys[SSL_PKEY_RSA_ENC].privatekey) > (512/8)))) | ||
821 | ret = 1; | ||
822 | break; | ||
823 | case SSL_CTRL_SET_TMP_RSA: | ||
824 | { | ||
825 | RSA *rsa = (RSA *)parg; | ||
826 | if (rsa == NULL) | ||
827 | { | ||
828 | SSLerr(SSL_F_SSL3_CTRL, ERR_R_PASSED_NULL_PARAMETER); | ||
829 | return(ret); | ||
830 | } | ||
831 | if ((rsa = RSAPrivateKey_dup(rsa)) == NULL) | ||
832 | { | ||
833 | SSLerr(SSL_F_SSL3_CTRL, ERR_R_RSA_LIB); | ||
834 | return(ret); | ||
835 | } | ||
836 | if (s->cert->rsa_tmp != NULL) | ||
837 | RSA_free(s->cert->rsa_tmp); | ||
838 | s->cert->rsa_tmp = rsa; | ||
839 | ret = 1; | ||
840 | } | ||
841 | break; | ||
842 | case SSL_CTRL_SET_TMP_RSA_CB: | ||
843 | { | ||
844 | SSLerr(SSL_F_SSL3_CTRL, ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED); | ||
845 | return(ret); | ||
846 | } | ||
847 | break; | ||
848 | #endif | ||
849 | #ifndef NO_DH | ||
850 | case SSL_CTRL_SET_TMP_DH: | ||
851 | { | ||
852 | DH *dh = (DH *)parg; | ||
853 | if (dh == NULL) | ||
854 | { | ||
855 | SSLerr(SSL_F_SSL3_CTRL, ERR_R_PASSED_NULL_PARAMETER); | ||
856 | return(ret); | ||
857 | } | ||
858 | if ((dh = DHparams_dup(dh)) == NULL) | ||
859 | { | ||
860 | SSLerr(SSL_F_SSL3_CTRL, ERR_R_DH_LIB); | ||
861 | return(ret); | ||
862 | } | ||
863 | if (!(s->options & SSL_OP_SINGLE_DH_USE)) | ||
864 | { | ||
865 | if (!DH_generate_key(dh)) | ||
866 | { | ||
867 | DH_free(dh); | ||
868 | SSLerr(SSL_F_SSL3_CTRL, ERR_R_DH_LIB); | ||
869 | return(ret); | ||
870 | } | ||
871 | } | ||
872 | if (s->cert->dh_tmp != NULL) | ||
873 | DH_free(s->cert->dh_tmp); | ||
874 | s->cert->dh_tmp = dh; | ||
875 | ret = 1; | ||
876 | } | ||
877 | break; | ||
878 | case SSL_CTRL_SET_TMP_DH_CB: | ||
879 | { | ||
880 | SSLerr(SSL_F_SSL3_CTRL, ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED); | ||
881 | return(ret); | ||
882 | } | ||
883 | break; | ||
884 | #endif | ||
885 | default: | ||
886 | break; | ||
887 | } | ||
888 | return(ret); | ||
889 | } | ||
890 | |||
891 | long ssl3_callback_ctrl(SSL *s, int cmd, void (*fp)()) | ||
892 | { | ||
893 | int ret=0; | ||
894 | |||
895 | #if !defined(NO_DSA) || !defined(NO_RSA) | ||
896 | if ( | ||
897 | #ifndef NO_RSA | ||
898 | cmd == SSL_CTRL_SET_TMP_RSA_CB || | ||
899 | #endif | ||
900 | #ifndef NO_DSA | ||
901 | cmd == SSL_CTRL_SET_TMP_DH_CB || | ||
902 | #endif | ||
903 | 0) | ||
904 | { | ||
905 | if (!ssl_cert_inst(&s->cert)) | ||
906 | { | ||
907 | SSLerr(SSL_F_SSL3_CALLBACK_CTRL, ERR_R_MALLOC_FAILURE); | ||
908 | return(0); | ||
909 | } | ||
910 | } | ||
911 | #endif | ||
912 | |||
913 | switch (cmd) | ||
914 | { | ||
915 | #ifndef NO_RSA | ||
916 | case SSL_CTRL_SET_TMP_RSA_CB: | ||
917 | { | ||
918 | s->cert->rsa_tmp_cb = (RSA *(*)(SSL *, int, int))fp; | ||
919 | } | ||
920 | break; | ||
921 | #endif | ||
922 | #ifndef NO_DH | ||
923 | case SSL_CTRL_SET_TMP_DH_CB: | ||
924 | { | ||
925 | s->cert->dh_tmp_cb = (DH *(*)(SSL *, int, int))fp; | ||
926 | } | ||
927 | break; | ||
928 | #endif | ||
929 | default: | ||
930 | break; | ||
931 | } | ||
932 | return(ret); | ||
933 | } | ||
934 | |||
935 | long ssl3_ctx_ctrl(SSL_CTX *ctx, int cmd, long larg, char *parg) | ||
936 | { | ||
937 | CERT *cert; | ||
938 | |||
939 | cert=ctx->cert; | ||
940 | |||
941 | switch (cmd) | ||
942 | { | ||
943 | #ifndef NO_RSA | ||
944 | case SSL_CTRL_NEED_TMP_RSA: | ||
945 | if ( (cert->rsa_tmp == NULL) && | ||
946 | ((cert->pkeys[SSL_PKEY_RSA_ENC].privatekey == NULL) || | ||
947 | (EVP_PKEY_size(cert->pkeys[SSL_PKEY_RSA_ENC].privatekey) > (512/8))) | ||
948 | ) | ||
949 | return(1); | ||
950 | else | ||
951 | return(0); | ||
952 | /* break; */ | ||
953 | case SSL_CTRL_SET_TMP_RSA: | ||
954 | { | ||
955 | RSA *rsa; | ||
956 | int i; | ||
957 | |||
958 | rsa=(RSA *)parg; | ||
959 | i=1; | ||
960 | if (rsa == NULL) | ||
961 | i=0; | ||
962 | else | ||
963 | { | ||
964 | if ((rsa=RSAPrivateKey_dup(rsa)) == NULL) | ||
965 | i=0; | ||
966 | } | ||
967 | if (!i) | ||
968 | { | ||
969 | SSLerr(SSL_F_SSL3_CTX_CTRL,ERR_R_RSA_LIB); | ||
970 | return(0); | ||
971 | } | ||
972 | else | ||
973 | { | ||
974 | if (cert->rsa_tmp != NULL) | ||
975 | RSA_free(cert->rsa_tmp); | ||
976 | cert->rsa_tmp=rsa; | ||
977 | return(1); | ||
978 | } | ||
979 | } | ||
980 | /* break; */ | ||
981 | case SSL_CTRL_SET_TMP_RSA_CB: | ||
982 | { | ||
983 | SSLerr(SSL_F_SSL3_CTX_CTRL, ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED); | ||
984 | return(0); | ||
985 | } | ||
986 | break; | ||
987 | #endif | ||
988 | #ifndef NO_DH | ||
989 | case SSL_CTRL_SET_TMP_DH: | ||
990 | { | ||
991 | DH *new=NULL,*dh; | ||
992 | |||
993 | dh=(DH *)parg; | ||
994 | if ((new=DHparams_dup(dh)) == NULL) | ||
995 | { | ||
996 | SSLerr(SSL_F_SSL3_CTX_CTRL,ERR_R_DH_LIB); | ||
997 | return 0; | ||
998 | } | ||
999 | if (!(ctx->options & SSL_OP_SINGLE_DH_USE)) | ||
1000 | { | ||
1001 | if (!DH_generate_key(new)) | ||
1002 | { | ||
1003 | SSLerr(SSL_F_SSL3_CTX_CTRL,ERR_R_DH_LIB); | ||
1004 | DH_free(new); | ||
1005 | return 0; | ||
1006 | } | ||
1007 | } | ||
1008 | if (cert->dh_tmp != NULL) | ||
1009 | DH_free(cert->dh_tmp); | ||
1010 | cert->dh_tmp=new; | ||
1011 | return 1; | ||
1012 | } | ||
1013 | /*break; */ | ||
1014 | case SSL_CTRL_SET_TMP_DH_CB: | ||
1015 | { | ||
1016 | SSLerr(SSL_F_SSL3_CTX_CTRL, ERR_R_SHOULD_NOT_HAVE_BEEN_CALLED); | ||
1017 | return(0); | ||
1018 | } | ||
1019 | break; | ||
1020 | #endif | ||
1021 | /* A Thawte special :-) */ | ||
1022 | case SSL_CTRL_EXTRA_CHAIN_CERT: | ||
1023 | if (ctx->extra_certs == NULL) | ||
1024 | { | ||
1025 | if ((ctx->extra_certs=sk_X509_new_null()) == NULL) | ||
1026 | return(0); | ||
1027 | } | ||
1028 | sk_X509_push(ctx->extra_certs,(X509 *)parg); | ||
1029 | break; | ||
1030 | |||
1031 | default: | ||
1032 | return(0); | ||
1033 | } | ||
1034 | return(1); | ||
1035 | } | ||
1036 | |||
1037 | long ssl3_ctx_callback_ctrl(SSL_CTX *ctx, int cmd, void (*fp)()) | ||
1038 | { | ||
1039 | CERT *cert; | ||
1040 | |||
1041 | cert=ctx->cert; | ||
1042 | |||
1043 | switch (cmd) | ||
1044 | { | ||
1045 | #ifndef NO_RSA | ||
1046 | case SSL_CTRL_SET_TMP_RSA_CB: | ||
1047 | { | ||
1048 | cert->rsa_tmp_cb = (RSA *(*)(SSL *, int, int))fp; | ||
1049 | } | ||
1050 | break; | ||
1051 | #endif | ||
1052 | #ifndef NO_DH | ||
1053 | case SSL_CTRL_SET_TMP_DH_CB: | ||
1054 | { | ||
1055 | cert->dh_tmp_cb = (DH *(*)(SSL *, int, int))fp; | ||
1056 | } | ||
1057 | break; | ||
1058 | #endif | ||
1059 | default: | ||
1060 | return(0); | ||
1061 | } | ||
1062 | return(1); | ||
1063 | } | ||
1064 | |||
1065 | /* This function needs to check if the ciphers required are actually | ||
1066 | * available */ | ||
1067 | SSL_CIPHER *ssl3_get_cipher_by_char(const unsigned char *p) | ||
1068 | { | ||
1069 | static int init=1; | ||
1070 | static SSL_CIPHER *sorted[SSL3_NUM_CIPHERS]; | ||
1071 | SSL_CIPHER c,*cp= &c,**cpp; | ||
1072 | unsigned long id; | ||
1073 | int i; | ||
1074 | |||
1075 | if (init) | ||
1076 | { | ||
1077 | CRYPTO_w_lock(CRYPTO_LOCK_SSL); | ||
1078 | |||
1079 | for (i=0; i<SSL3_NUM_CIPHERS; i++) | ||
1080 | sorted[i]= &(ssl3_ciphers[i]); | ||
1081 | |||
1082 | qsort( (char *)sorted, | ||
1083 | SSL3_NUM_CIPHERS,sizeof(SSL_CIPHER *), | ||
1084 | FP_ICC ssl_cipher_ptr_id_cmp); | ||
1085 | |||
1086 | CRYPTO_w_unlock(CRYPTO_LOCK_SSL); | ||
1087 | |||
1088 | init=0; | ||
1089 | } | ||
1090 | |||
1091 | id=0x03000000L|((unsigned long)p[0]<<8L)|(unsigned long)p[1]; | ||
1092 | c.id=id; | ||
1093 | cpp=(SSL_CIPHER **)OBJ_bsearch((char *)&cp, | ||
1094 | (char *)sorted, | ||
1095 | SSL3_NUM_CIPHERS,sizeof(SSL_CIPHER *), | ||
1096 | FP_ICC ssl_cipher_ptr_id_cmp); | ||
1097 | if ((cpp == NULL) || !(*cpp)->valid) | ||
1098 | return(NULL); | ||
1099 | else | ||
1100 | return(*cpp); | ||
1101 | } | ||
1102 | |||
1103 | int ssl3_put_cipher_by_char(const SSL_CIPHER *c, unsigned char *p) | ||
1104 | { | ||
1105 | long l; | ||
1106 | |||
1107 | if (p != NULL) | ||
1108 | { | ||
1109 | l=c->id; | ||
1110 | if ((l & 0xff000000) != 0x03000000) return(0); | ||
1111 | p[0]=((unsigned char)(l>> 8L))&0xFF; | ||
1112 | p[1]=((unsigned char)(l ))&0xFF; | ||
1113 | } | ||
1114 | return(2); | ||
1115 | } | ||
1116 | |||
1117 | SSL_CIPHER *ssl3_choose_cipher(SSL *s, STACK_OF(SSL_CIPHER) *have, | ||
1118 | STACK_OF(SSL_CIPHER) *pref) | ||
1119 | { | ||
1120 | SSL_CIPHER *c,*ret=NULL; | ||
1121 | int i,j,ok; | ||
1122 | CERT *cert; | ||
1123 | unsigned long alg,mask,emask; | ||
1124 | |||
1125 | /* Let's see which ciphers we can support */ | ||
1126 | cert=s->cert; | ||
1127 | |||
1128 | sk_SSL_CIPHER_set_cmp_func(pref,ssl_cipher_ptr_id_cmp); | ||
1129 | |||
1130 | #ifdef CIPHER_DEBUG | ||
1131 | printf("Have:\n"); | ||
1132 | for(i=0 ; i < sk_num(pref) ; ++i) | ||
1133 | { | ||
1134 | c=(SSL_CIPHER *)sk_value(pref,i); | ||
1135 | printf("%p:%s\n",c,c->name); | ||
1136 | } | ||
1137 | #endif | ||
1138 | |||
1139 | for (i=0; i<sk_SSL_CIPHER_num(have); i++) | ||
1140 | { | ||
1141 | c=sk_SSL_CIPHER_value(have,i); | ||
1142 | |||
1143 | ssl_set_cert_masks(cert,c); | ||
1144 | mask=cert->mask; | ||
1145 | emask=cert->export_mask; | ||
1146 | |||
1147 | alg=c->algorithms&(SSL_MKEY_MASK|SSL_AUTH_MASK); | ||
1148 | if (SSL_C_IS_EXPORT(c)) | ||
1149 | { | ||
1150 | ok=((alg & emask) == alg)?1:0; | ||
1151 | #ifdef CIPHER_DEBUG | ||
1152 | printf("%d:[%08lX:%08lX]%p:%s (export)\n",ok,alg,emask, | ||
1153 | c,c->name); | ||
1154 | #endif | ||
1155 | } | ||
1156 | else | ||
1157 | { | ||
1158 | ok=((alg & mask) == alg)?1:0; | ||
1159 | #ifdef CIPHER_DEBUG | ||
1160 | printf("%d:[%08lX:%08lX]%p:%s\n",ok,alg,mask,c, | ||
1161 | c->name); | ||
1162 | #endif | ||
1163 | } | ||
1164 | |||
1165 | if (!ok) continue; | ||
1166 | |||
1167 | j=sk_SSL_CIPHER_find(pref,c); | ||
1168 | if (j >= 0) | ||
1169 | { | ||
1170 | ret=sk_SSL_CIPHER_value(pref,j); | ||
1171 | break; | ||
1172 | } | ||
1173 | } | ||
1174 | return(ret); | ||
1175 | } | ||
1176 | |||
1177 | int ssl3_get_req_cert_type(SSL *s, unsigned char *p) | ||
1178 | { | ||
1179 | int ret=0; | ||
1180 | unsigned long alg; | ||
1181 | |||
1182 | alg=s->s3->tmp.new_cipher->algorithms; | ||
1183 | |||
1184 | #ifndef NO_DH | ||
1185 | if (alg & (SSL_kDHr|SSL_kEDH)) | ||
1186 | { | ||
1187 | # ifndef NO_RSA | ||
1188 | p[ret++]=SSL3_CT_RSA_FIXED_DH; | ||
1189 | # endif | ||
1190 | # ifndef NO_DSA | ||
1191 | p[ret++]=SSL3_CT_DSS_FIXED_DH; | ||
1192 | # endif | ||
1193 | } | ||
1194 | if ((s->version == SSL3_VERSION) && | ||
1195 | (alg & (SSL_kEDH|SSL_kDHd|SSL_kDHr))) | ||
1196 | { | ||
1197 | # ifndef NO_RSA | ||
1198 | p[ret++]=SSL3_CT_RSA_EPHEMERAL_DH; | ||
1199 | # endif | ||
1200 | # ifndef NO_DSA | ||
1201 | p[ret++]=SSL3_CT_DSS_EPHEMERAL_DH; | ||
1202 | # endif | ||
1203 | } | ||
1204 | #endif /* !NO_DH */ | ||
1205 | #ifndef NO_RSA | ||
1206 | p[ret++]=SSL3_CT_RSA_SIGN; | ||
1207 | #endif | ||
1208 | #ifndef NO_DSA | ||
1209 | p[ret++]=SSL3_CT_DSS_SIGN; | ||
1210 | #endif | ||
1211 | return(ret); | ||
1212 | } | ||
1213 | |||
1214 | int ssl3_shutdown(SSL *s) | ||
1215 | { | ||
1216 | |||
1217 | /* Don't do anything much if we have not done the handshake or | ||
1218 | * we don't want to send messages :-) */ | ||
1219 | if ((s->quiet_shutdown) || (s->state == SSL_ST_BEFORE)) | ||
1220 | { | ||
1221 | s->shutdown=(SSL_SENT_SHUTDOWN|SSL_RECEIVED_SHUTDOWN); | ||
1222 | return(1); | ||
1223 | } | ||
1224 | |||
1225 | if (!(s->shutdown & SSL_SENT_SHUTDOWN)) | ||
1226 | { | ||
1227 | s->shutdown|=SSL_SENT_SHUTDOWN; | ||
1228 | #if 1 | ||
1229 | ssl3_send_alert(s,SSL3_AL_WARNING,SSL_AD_CLOSE_NOTIFY); | ||
1230 | #endif | ||
1231 | /* our shutdown alert has been sent now, and if it still needs | ||
1232 | * to be written, s->s3->alert_dispatch will be true */ | ||
1233 | } | ||
1234 | else if (s->s3->alert_dispatch) | ||
1235 | { | ||
1236 | /* resend it if not sent */ | ||
1237 | #if 1 | ||
1238 | ssl3_dispatch_alert(s); | ||
1239 | #endif | ||
1240 | } | ||
1241 | else if (!(s->shutdown & SSL_RECEIVED_SHUTDOWN)) | ||
1242 | { | ||
1243 | /* If we are waiting for a close from our peer, we are closed */ | ||
1244 | ssl3_read_bytes(s,0,NULL,0,0); | ||
1245 | } | ||
1246 | |||
1247 | if ((s->shutdown == (SSL_SENT_SHUTDOWN|SSL_RECEIVED_SHUTDOWN)) && | ||
1248 | !s->s3->alert_dispatch) | ||
1249 | return(1); | ||
1250 | else | ||
1251 | return(0); | ||
1252 | } | ||
1253 | |||
1254 | int ssl3_write(SSL *s, const void *buf, int len) | ||
1255 | { | ||
1256 | int ret,n; | ||
1257 | |||
1258 | #if 0 | ||
1259 | if (s->shutdown & SSL_SEND_SHUTDOWN) | ||
1260 | { | ||
1261 | s->rwstate=SSL_NOTHING; | ||
1262 | return(0); | ||
1263 | } | ||
1264 | #endif | ||
1265 | clear_sys_error(); | ||
1266 | if (s->s3->renegotiate) ssl3_renegotiate_check(s); | ||
1267 | |||
1268 | /* This is an experimental flag that sends the | ||
1269 | * last handshake message in the same packet as the first | ||
1270 | * use data - used to see if it helps the TCP protocol during | ||
1271 | * session-id reuse */ | ||
1272 | /* The second test is because the buffer may have been removed */ | ||
1273 | if ((s->s3->flags & SSL3_FLAGS_POP_BUFFER) && (s->wbio == s->bbio)) | ||
1274 | { | ||
1275 | /* First time through, we write into the buffer */ | ||
1276 | if (s->s3->delay_buf_pop_ret == 0) | ||
1277 | { | ||
1278 | ret=ssl3_write_bytes(s,SSL3_RT_APPLICATION_DATA, | ||
1279 | buf,len); | ||
1280 | if (ret <= 0) return(ret); | ||
1281 | |||
1282 | s->s3->delay_buf_pop_ret=ret; | ||
1283 | } | ||
1284 | |||
1285 | s->rwstate=SSL_WRITING; | ||
1286 | n=BIO_flush(s->wbio); | ||
1287 | if (n <= 0) return(n); | ||
1288 | s->rwstate=SSL_NOTHING; | ||
1289 | |||
1290 | /* We have flushed the buffer, so remove it */ | ||
1291 | ssl_free_wbio_buffer(s); | ||
1292 | s->s3->flags&= ~SSL3_FLAGS_POP_BUFFER; | ||
1293 | |||
1294 | ret=s->s3->delay_buf_pop_ret; | ||
1295 | s->s3->delay_buf_pop_ret=0; | ||
1296 | } | ||
1297 | else | ||
1298 | { | ||
1299 | ret=ssl3_write_bytes(s,SSL3_RT_APPLICATION_DATA, | ||
1300 | buf,len); | ||
1301 | if (ret <= 0) return(ret); | ||
1302 | } | ||
1303 | |||
1304 | return(ret); | ||
1305 | } | ||
1306 | |||
1307 | static int ssl3_read_internal(SSL *s, void *buf, int len, int peek) | ||
1308 | { | ||
1309 | int ret; | ||
1310 | |||
1311 | clear_sys_error(); | ||
1312 | if (s->s3->renegotiate) ssl3_renegotiate_check(s); | ||
1313 | s->s3->in_read_app_data=1; | ||
1314 | ret=ssl3_read_bytes(s,SSL3_RT_APPLICATION_DATA,buf,len,peek); | ||
1315 | if ((ret == -1) && (s->s3->in_read_app_data == 0)) | ||
1316 | { | ||
1317 | /* ssl3_read_bytes decided to call s->handshake_func, which | ||
1318 | * called ssl3_read_bytes to read handshake data. | ||
1319 | * However, ssl3_read_bytes actually found application data | ||
1320 | * and thinks that application data makes sense here (signalled | ||
1321 | * by resetting 'in_read_app_data', strangely); so disable | ||
1322 | * handshake processing and try to read application data again. */ | ||
1323 | s->in_handshake++; | ||
1324 | ret=ssl3_read_bytes(s,SSL3_RT_APPLICATION_DATA,buf,len,peek); | ||
1325 | s->in_handshake--; | ||
1326 | } | ||
1327 | else | ||
1328 | s->s3->in_read_app_data=0; | ||
1329 | |||
1330 | return(ret); | ||
1331 | } | ||
1332 | |||
1333 | int ssl3_read(SSL *s, void *buf, int len) | ||
1334 | { | ||
1335 | return ssl3_read_internal(s, buf, len, 0); | ||
1336 | } | ||
1337 | |||
1338 | int ssl3_peek(SSL *s, void *buf, int len) | ||
1339 | { | ||
1340 | return ssl3_read_internal(s, buf, len, 1); | ||
1341 | } | ||
1342 | |||
1343 | int ssl3_renegotiate(SSL *s) | ||
1344 | { | ||
1345 | if (s->handshake_func == NULL) | ||
1346 | return(1); | ||
1347 | |||
1348 | if (s->s3->flags & SSL3_FLAGS_NO_RENEGOTIATE_CIPHERS) | ||
1349 | return(0); | ||
1350 | |||
1351 | s->s3->renegotiate=1; | ||
1352 | return(1); | ||
1353 | } | ||
1354 | |||
1355 | int ssl3_renegotiate_check(SSL *s) | ||
1356 | { | ||
1357 | int ret=0; | ||
1358 | |||
1359 | if (s->s3->renegotiate) | ||
1360 | { | ||
1361 | if ( (s->s3->rbuf.left == 0) && | ||
1362 | (s->s3->wbuf.left == 0) && | ||
1363 | !SSL_in_init(s)) | ||
1364 | { | ||
1365 | /* | ||
1366 | if we are the server, and we have sent a 'RENEGOTIATE' message, we | ||
1367 | need to go to SSL_ST_ACCEPT. | ||
1368 | */ | ||
1369 | /* SSL_ST_ACCEPT */ | ||
1370 | s->state=SSL_ST_RENEGOTIATE; | ||
1371 | s->s3->renegotiate=0; | ||
1372 | s->s3->num_renegotiations++; | ||
1373 | s->s3->total_renegotiations++; | ||
1374 | ret=1; | ||
1375 | } | ||
1376 | } | ||
1377 | return(ret); | ||
1378 | } | ||
1379 | |||