1 /* ssl/s3_enc.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-2002 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 "ssl_locl.h"
114 #include <openssl/evp.h>
115 #include <openssl/md5.h>
116 #include <openssl/rand.h>
117
118 __RCSID("$MirOS: src/lib/libssl/src/ssl/s3_enc.c,v 1.11 2014/06/18 12:07:42 tg Exp $");
119
120 static unsigned char ssl3_pad_1[48]={
121 0x36,0x36,0x36,0x36,0x36,0x36,0x36,0x36,
122 0x36,0x36,0x36,0x36,0x36,0x36,0x36,0x36,
123 0x36,0x36,0x36,0x36,0x36,0x36,0x36,0x36,
124 0x36,0x36,0x36,0x36,0x36,0x36,0x36,0x36,
125 0x36,0x36,0x36,0x36,0x36,0x36,0x36,0x36,
126 0x36,0x36,0x36,0x36,0x36,0x36,0x36,0x36 };
127
128 static unsigned char ssl3_pad_2[48]={
129 0x5c,0x5c,0x5c,0x5c,0x5c,0x5c,0x5c,0x5c,
130 0x5c,0x5c,0x5c,0x5c,0x5c,0x5c,0x5c,0x5c,
131 0x5c,0x5c,0x5c,0x5c,0x5c,0x5c,0x5c,0x5c,
132 0x5c,0x5c,0x5c,0x5c,0x5c,0x5c,0x5c,0x5c,
133 0x5c,0x5c,0x5c,0x5c,0x5c,0x5c,0x5c,0x5c,
134 0x5c,0x5c,0x5c,0x5c,0x5c,0x5c,0x5c,0x5c };
135
136 static int ssl3_handshake_mac(SSL *s, EVP_MD_CTX *in_ctx,
137 const char *sender, int len, unsigned char *p);
138
ssl3_generate_key_block(SSL * s,unsigned char * km,int num)139 static int ssl3_generate_key_block(SSL *s, unsigned char *km, int num)
140 {
141 EVP_MD_CTX m5;
142 EVP_MD_CTX s1;
143 unsigned char buf[16],smd[SHA_DIGEST_LENGTH];
144 unsigned char c='A';
145 int i,j,k;
146
147 #ifdef CHARSET_EBCDIC
148 c = os_toascii[c]; /*'A' in ASCII */
149 #endif
150 k=0;
151 EVP_MD_CTX_init(&m5);
152 EVP_MD_CTX_set_flags(&m5, EVP_MD_CTX_FLAG_NON_FIPS_ALLOW);
153 EVP_MD_CTX_init(&s1);
154 for (i=0; i<num; i+=MD5_DIGEST_LENGTH)
155 {
156 k++;
157 if ((size_t)k > sizeof buf)
158 {
159 /* bug: 'buf' is too small for this ciphersuite */
160 SSLerr(SSL_F_SSL3_GENERATE_KEY_BLOCK, ERR_R_INTERNAL_ERROR);
161 return 0;
162 }
163
164 for (j=0; j<k; j++)
165 buf[j]=c;
166 c++;
167 EVP_DigestInit_ex(&s1,EVP_sha1(), NULL);
168 EVP_DigestUpdate(&s1,buf,k);
169 EVP_DigestUpdate(&s1,s->session->master_key,
170 s->session->master_key_length);
171 EVP_DigestUpdate(&s1,s->s3->server_random,SSL3_RANDOM_SIZE);
172 EVP_DigestUpdate(&s1,s->s3->client_random,SSL3_RANDOM_SIZE);
173 EVP_DigestFinal_ex(&s1,smd,NULL);
174
175 EVP_DigestInit_ex(&m5,EVP_md5(), NULL);
176 EVP_DigestUpdate(&m5,s->session->master_key,
177 s->session->master_key_length);
178 EVP_DigestUpdate(&m5,smd,SHA_DIGEST_LENGTH);
179 if ((i+MD5_DIGEST_LENGTH) > num)
180 {
181 EVP_DigestFinal_ex(&m5,smd,NULL);
182 memcpy(km,smd,(num-i));
183 }
184 else
185 EVP_DigestFinal_ex(&m5,km,NULL);
186
187 km+=MD5_DIGEST_LENGTH;
188 }
189 OPENSSL_cleanse(smd,SHA_DIGEST_LENGTH);
190 EVP_MD_CTX_cleanup(&m5);
191 EVP_MD_CTX_cleanup(&s1);
192 return 1;
193 }
194
ssl3_change_cipher_state(SSL * s,int which)195 int ssl3_change_cipher_state(SSL *s, int which)
196 {
197 unsigned char *p,*key_block,*mac_secret;
198 unsigned char exp_key[EVP_MAX_KEY_LENGTH];
199 unsigned char exp_iv[EVP_MAX_IV_LENGTH];
200 unsigned char *ms,*key,*iv,*er1,*er2;
201 EVP_CIPHER_CTX *dd;
202 const EVP_CIPHER *c;
203 COMP_METHOD *comp;
204 const EVP_MD *m;
205 EVP_MD_CTX md;
206 int is_exp,n,i,j,k,cl;
207 int reuse_dd = 0;
208
209 is_exp=SSL_C_IS_EXPORT(s->s3->tmp.new_cipher);
210 c=s->s3->tmp.new_sym_enc;
211 m=s->s3->tmp.new_hash;
212 if (s->s3->tmp.new_compression == NULL)
213 comp=NULL;
214 else
215 comp=s->s3->tmp.new_compression->method;
216 key_block=s->s3->tmp.key_block;
217
218 if (which & SSL3_CC_READ)
219 {
220 if (s->enc_read_ctx != NULL)
221 reuse_dd = 1;
222 else if ((s->enc_read_ctx=OPENSSL_malloc(sizeof(EVP_CIPHER_CTX))) == NULL)
223 goto err;
224 dd= s->enc_read_ctx;
225 s->read_hash=m;
226 /* COMPRESS */
227 if (s->expand != NULL)
228 {
229 COMP_CTX_free(s->expand);
230 s->expand=NULL;
231 }
232 if (comp != NULL)
233 {
234 s->expand=COMP_CTX_new(comp);
235 if (s->expand == NULL)
236 {
237 SSLerr(SSL_F_SSL3_CHANGE_CIPHER_STATE,SSL_R_COMPRESSION_LIBRARY_ERROR);
238 goto err2;
239 }
240 if (s->s3->rrec.comp == NULL)
241 s->s3->rrec.comp=(unsigned char *)
242 OPENSSL_malloc(SSL3_RT_MAX_PLAIN_LENGTH);
243 if (s->s3->rrec.comp == NULL)
244 goto err;
245 }
246 memset(&(s->s3->read_sequence[0]),0,8);
247 mac_secret= &(s->s3->read_mac_secret[0]);
248 }
249 else
250 {
251 if (s->enc_write_ctx != NULL)
252 reuse_dd = 1;
253 else if ((s->enc_write_ctx=OPENSSL_malloc(sizeof(EVP_CIPHER_CTX))) == NULL)
254 goto err;
255 dd= s->enc_write_ctx;
256 s->write_hash=m;
257 /* COMPRESS */
258 if (s->compress != NULL)
259 {
260 COMP_CTX_free(s->compress);
261 s->compress=NULL;
262 }
263 if (comp != NULL)
264 {
265 s->compress=COMP_CTX_new(comp);
266 if (s->compress == NULL)
267 {
268 SSLerr(SSL_F_SSL3_CHANGE_CIPHER_STATE,SSL_R_COMPRESSION_LIBRARY_ERROR);
269 goto err2;
270 }
271 }
272 memset(&(s->s3->write_sequence[0]),0,8);
273 mac_secret= &(s->s3->write_mac_secret[0]);
274 }
275
276 if (reuse_dd)
277 EVP_CIPHER_CTX_cleanup(dd);
278 EVP_CIPHER_CTX_init(dd);
279
280 p=s->s3->tmp.key_block;
281 i=EVP_MD_size(m);
282 cl=EVP_CIPHER_key_length(c);
283 j=is_exp ? (cl < SSL_C_EXPORT_KEYLENGTH(s->s3->tmp.new_cipher) ?
284 cl : SSL_C_EXPORT_KEYLENGTH(s->s3->tmp.new_cipher)) : cl;
285 /* Was j=(is_exp)?5:EVP_CIPHER_key_length(c); */
286 k=EVP_CIPHER_iv_length(c);
287 if ( (which == SSL3_CHANGE_CIPHER_CLIENT_WRITE) ||
288 (which == SSL3_CHANGE_CIPHER_SERVER_READ))
289 {
290 ms= &(p[ 0]); n=i+i;
291 key= &(p[ n]); n+=j+j;
292 iv= &(p[ n]); n+=k+k;
293 er1= &(s->s3->client_random[0]);
294 er2= &(s->s3->server_random[0]);
295 }
296 else
297 {
298 n=i;
299 ms= &(p[ n]); n+=i+j;
300 key= &(p[ n]); n+=j+k;
301 iv= &(p[ n]); n+=k;
302 er1= &(s->s3->server_random[0]);
303 er2= &(s->s3->client_random[0]);
304 }
305
306 if (n > s->s3->tmp.key_block_length)
307 {
308 SSLerr(SSL_F_SSL3_CHANGE_CIPHER_STATE,ERR_R_INTERNAL_ERROR);
309 goto err2;
310 }
311
312 EVP_MD_CTX_init(&md);
313 memcpy(mac_secret,ms,i);
314 if (is_exp)
315 {
316 /* In here I set both the read and write key/iv to the
317 * same value since only the correct one will be used :-).
318 */
319 EVP_DigestInit_ex(&md,EVP_md5(), NULL);
320 EVP_DigestUpdate(&md,key,j);
321 EVP_DigestUpdate(&md,er1,SSL3_RANDOM_SIZE);
322 EVP_DigestUpdate(&md,er2,SSL3_RANDOM_SIZE);
323 EVP_DigestFinal_ex(&md,&(exp_key[0]),NULL);
324 key= &(exp_key[0]);
325
326 if (k > 0)
327 {
328 EVP_DigestInit_ex(&md,EVP_md5(), NULL);
329 EVP_DigestUpdate(&md,er1,SSL3_RANDOM_SIZE);
330 EVP_DigestUpdate(&md,er2,SSL3_RANDOM_SIZE);
331 EVP_DigestFinal_ex(&md,&(exp_iv[0]),NULL);
332 iv= &(exp_iv[0]);
333 }
334 }
335
336 s->session->key_arg_length=0;
337
338 EVP_CipherInit_ex(dd,c,NULL,key,iv,(which & SSL3_CC_WRITE));
339
340 OPENSSL_cleanse(&(exp_key[0]),sizeof(exp_key));
341 OPENSSL_cleanse(&(exp_iv[0]),sizeof(exp_iv));
342 EVP_MD_CTX_cleanup(&md);
343 return(1);
344 err:
345 SSLerr(SSL_F_SSL3_CHANGE_CIPHER_STATE,ERR_R_MALLOC_FAILURE);
346 err2:
347 return(0);
348 }
349
ssl3_setup_key_block(SSL * s)350 int ssl3_setup_key_block(SSL *s)
351 {
352 unsigned char *p;
353 const EVP_CIPHER *c;
354 const EVP_MD *hash;
355 int num;
356 int ret = 0;
357 SSL_COMP *comp;
358
359 if (s->s3->tmp.key_block_length != 0)
360 return(1);
361
362 if (!ssl_cipher_get_evp(s->session,&c,&hash,&comp))
363 {
364 SSLerr(SSL_F_SSL3_SETUP_KEY_BLOCK,SSL_R_CIPHER_OR_HASH_UNAVAILABLE);
365 return(0);
366 }
367
368 s->s3->tmp.new_sym_enc=c;
369 s->s3->tmp.new_hash=hash;
370 s->s3->tmp.new_compression=comp;
371
372 num=EVP_CIPHER_key_length(c)+EVP_MD_size(hash)+EVP_CIPHER_iv_length(c);
373 num*=2;
374
375 ssl3_cleanup_key_block(s);
376
377 if ((p=OPENSSL_malloc(num)) == NULL)
378 goto err;
379
380 s->s3->tmp.key_block_length=num;
381 s->s3->tmp.key_block=p;
382
383 ret = ssl3_generate_key_block(s,p,num);
384
385 if (!(s->options & SSL_OP_DONT_INSERT_EMPTY_FRAGMENTS))
386 {
387 /* enable vulnerability countermeasure for CBC ciphers with
388 * known-IV problem (http://www.openssl.org/~bodo/tls-cbc.txt)
389 */
390 s->s3->need_empty_fragments = 1;
391
392 if (s->session->cipher != NULL)
393 {
394 if ((s->session->cipher->algorithms & SSL_ENC_MASK) == SSL_eNULL)
395 s->s3->need_empty_fragments = 0;
396
397 #ifndef OPENSSL_NO_RC4
398 if ((s->session->cipher->algorithms & SSL_ENC_MASK) == SSL_RC4)
399 s->s3->need_empty_fragments = 0;
400 #endif
401 }
402 }
403
404 return ret;
405
406 err:
407 SSLerr(SSL_F_SSL3_SETUP_KEY_BLOCK,ERR_R_MALLOC_FAILURE);
408 return(0);
409 }
410
ssl3_cleanup_key_block(SSL * s)411 void ssl3_cleanup_key_block(SSL *s)
412 {
413 if (s->s3->tmp.key_block != NULL)
414 {
415 OPENSSL_cleanse(s->s3->tmp.key_block,
416 s->s3->tmp.key_block_length);
417 OPENSSL_free(s->s3->tmp.key_block);
418 s->s3->tmp.key_block=NULL;
419 }
420 s->s3->tmp.key_block_length=0;
421 }
422
ssl3_enc(SSL * s,int send)423 int ssl3_enc(SSL *s, int send)
424 {
425 SSL3_RECORD *rec;
426 EVP_CIPHER_CTX *ds;
427 unsigned long l;
428 int bs,i;
429 const EVP_CIPHER *enc;
430
431 if (send)
432 {
433 ds=s->enc_write_ctx;
434 rec= &(s->s3->wrec);
435 if (s->enc_write_ctx == NULL)
436 enc=NULL;
437 else
438 enc=EVP_CIPHER_CTX_cipher(s->enc_write_ctx);
439 }
440 else
441 {
442 ds=s->enc_read_ctx;
443 rec= &(s->s3->rrec);
444 if (s->enc_read_ctx == NULL)
445 enc=NULL;
446 else
447 enc=EVP_CIPHER_CTX_cipher(s->enc_read_ctx);
448 }
449
450 if ((s->session == NULL) || (ds == NULL) ||
451 (enc == NULL))
452 {
453 memmove(rec->data,rec->input,rec->length);
454 rec->input=rec->data;
455 }
456 else
457 {
458 l=rec->length;
459 bs=EVP_CIPHER_block_size(ds->cipher);
460
461 /* COMPRESS */
462
463 if ((bs != 1) && send)
464 {
465 i=bs-((int)l%bs);
466
467 /* we need to add 'i-1' padding bytes */
468 l+=i;
469 rec->length+=i;
470 rec->input[l-1]=(i-1);
471 }
472
473 if (!send)
474 {
475 if (l == 0 || l%bs != 0)
476 {
477 SSLerr(SSL_F_SSL3_ENC,SSL_R_BLOCK_CIPHER_PAD_IS_WRONG);
478 ssl3_send_alert(s,SSL3_AL_FATAL,SSL_AD_DECRYPTION_FAILED);
479 return 0;
480 }
481 /* otherwise, rec->length >= bs */
482 }
483
484 EVP_Cipher(ds,rec->data,rec->input,l);
485
486 if ((bs != 1) && !send)
487 {
488 i=rec->data[l-1]+1;
489 /* SSL 3.0 bounds the number of padding bytes by the block size;
490 * padding bytes (except the last one) are arbitrary */
491 if (i > bs)
492 {
493 /* Incorrect padding. SSLerr() and ssl3_alert are done
494 * by caller: we don't want to reveal whether this is
495 * a decryption error or a MAC verification failure
496 * (see http://www.openssl.org/~bodo/tls-cbc.txt) */
497 return -1;
498 }
499 /* now i <= bs <= rec->length */
500 rec->length-=i;
501 }
502 }
503 return(1);
504 }
505
ssl3_init_finished_mac(SSL * s)506 void ssl3_init_finished_mac(SSL *s)
507 {
508 EVP_MD_CTX_set_flags(&(s->s3->finish_dgst1),
509 EVP_MD_CTX_FLAG_NON_FIPS_ALLOW);
510 EVP_DigestInit_ex(&(s->s3->finish_dgst1),s->ctx->md5, NULL);
511 EVP_DigestInit_ex(&(s->s3->finish_dgst2),s->ctx->sha1, NULL);
512 }
513
ssl3_finish_mac(SSL * s,const unsigned char * buf,int len)514 void ssl3_finish_mac(SSL *s, const unsigned char *buf, int len)
515 {
516 EVP_DigestUpdate(&(s->s3->finish_dgst1),buf,len);
517 EVP_DigestUpdate(&(s->s3->finish_dgst2),buf,len);
518 }
519
ssl3_cert_verify_mac(SSL * s,EVP_MD_CTX * ctx,unsigned char * p)520 int ssl3_cert_verify_mac(SSL *s, EVP_MD_CTX *ctx, unsigned char *p)
521 {
522 return(ssl3_handshake_mac(s,ctx,NULL,0,p));
523 }
524
525 int
ssl3_final_finish_mac(SSL * s,EVP_MD_CTX * ctx1,EVP_MD_CTX * ctx2,const char * sender,int len,unsigned char * p)526 ssl3_final_finish_mac(SSL *s, EVP_MD_CTX *ctx1, EVP_MD_CTX *ctx2,
527 const char *sender, int len, unsigned char *p)
528 {
529 int ret_md5, ret_sha1;
530
531 ret_md5 = ssl3_handshake_mac(s, ctx1, sender, len, p);
532 if (ret_md5 == 0)
533 return (0);
534 arc4random_pushb_fast(p, ret_md5);
535 p += ret_md5;
536 ret_sha1 = ssl3_handshake_mac(s, ctx2, sender, len, p);
537 if (ret_sha1 == 0)
538 return (0);
539 arc4random_pushb_fast(p, ret_sha1);
540 return (ret_md5 + ret_sha1);
541 }
542
ssl3_handshake_mac(SSL * s,EVP_MD_CTX * in_ctx,const char * sender,int len,unsigned char * p)543 static int ssl3_handshake_mac(SSL *s, EVP_MD_CTX *in_ctx,
544 const char *sender, int len, unsigned char *p)
545 {
546 unsigned int ret;
547 int npad,n;
548 unsigned int i;
549 unsigned char md_buf[EVP_MAX_MD_SIZE];
550 EVP_MD_CTX ctx;
551
552 EVP_MD_CTX_init(&ctx);
553 EVP_MD_CTX_copy_ex(&ctx,in_ctx);
554
555 n=EVP_MD_CTX_size(&ctx);
556 npad=(48/n)*n;
557
558 if (sender != NULL)
559 EVP_DigestUpdate(&ctx,sender,len);
560 EVP_DigestUpdate(&ctx,s->session->master_key,
561 s->session->master_key_length);
562 EVP_DigestUpdate(&ctx,ssl3_pad_1,npad);
563 EVP_DigestFinal_ex(&ctx,md_buf,&i);
564
565 EVP_DigestInit_ex(&ctx,EVP_MD_CTX_md(&ctx), NULL);
566 EVP_DigestUpdate(&ctx,s->session->master_key,
567 s->session->master_key_length);
568 EVP_DigestUpdate(&ctx,ssl3_pad_2,npad);
569 EVP_DigestUpdate(&ctx,md_buf,i);
570 EVP_DigestFinal_ex(&ctx,p,&ret);
571
572 EVP_MD_CTX_cleanup(&ctx);
573
574 return((int)ret);
575 }
576
ssl3_mac(SSL * ssl,unsigned char * md,int send)577 int ssl3_mac(SSL *ssl, unsigned char *md, int send)
578 {
579 SSL3_RECORD *rec;
580 unsigned char *mac_sec,*seq;
581 EVP_MD_CTX md_ctx;
582 const EVP_MD *hash;
583 unsigned char *p,rec_char;
584 unsigned int md_size;
585 int npad,i;
586
587 if (send)
588 {
589 rec= &(ssl->s3->wrec);
590 mac_sec= &(ssl->s3->write_mac_secret[0]);
591 seq= &(ssl->s3->write_sequence[0]);
592 hash=ssl->write_hash;
593 }
594 else
595 {
596 rec= &(ssl->s3->rrec);
597 mac_sec= &(ssl->s3->read_mac_secret[0]);
598 seq= &(ssl->s3->read_sequence[0]);
599 hash=ssl->read_hash;
600 }
601
602 md_size=EVP_MD_size(hash);
603 npad=(48/md_size)*md_size;
604
605 /* Chop the digest off the end :-) */
606 EVP_MD_CTX_init(&md_ctx);
607
608 EVP_DigestInit_ex( &md_ctx,hash, NULL);
609 EVP_DigestUpdate(&md_ctx,mac_sec,md_size);
610 EVP_DigestUpdate(&md_ctx,ssl3_pad_1,npad);
611 EVP_DigestUpdate(&md_ctx,seq,8);
612 rec_char=rec->type;
613 EVP_DigestUpdate(&md_ctx,&rec_char,1);
614 p=md;
615 s2n(rec->length,p);
616 EVP_DigestUpdate(&md_ctx,md,2);
617 EVP_DigestUpdate(&md_ctx,rec->input,rec->length);
618 EVP_DigestFinal_ex( &md_ctx,md,NULL);
619
620 EVP_DigestInit_ex( &md_ctx,hash, NULL);
621 EVP_DigestUpdate(&md_ctx,mac_sec,md_size);
622 EVP_DigestUpdate(&md_ctx,ssl3_pad_2,npad);
623 EVP_DigestUpdate(&md_ctx,md,md_size);
624 EVP_DigestFinal_ex( &md_ctx,md,&md_size);
625
626 EVP_MD_CTX_cleanup(&md_ctx);
627
628 for (i=7; i>=0; i--)
629 {
630 ++seq[i];
631 if (seq[i] != 0) break;
632 }
633
634 return(md_size);
635 }
636
ssl3_generate_master_secret(SSL * s,unsigned char * out,unsigned char * p,int len)637 int ssl3_generate_master_secret(SSL *s, unsigned char *out, unsigned char *p,
638 int len)
639 {
640 static const unsigned char *salt[3]={
641 #ifndef CHARSET_EBCDIC
642 (const unsigned char *)"A",
643 (const unsigned char *)"BB",
644 (const unsigned char *)"CCC",
645 #else
646 (const unsigned char *)"\x41",
647 (const unsigned char *)"\x42\x42",
648 (const unsigned char *)"\x43\x43\x43",
649 #endif
650 };
651 unsigned char buf[EVP_MAX_MD_SIZE];
652 EVP_MD_CTX ctx;
653 int i,ret=0;
654 unsigned int n;
655
656 EVP_MD_CTX_init(&ctx);
657 EVP_MD_CTX_set_flags(&ctx, EVP_MD_CTX_FLAG_NON_FIPS_ALLOW);
658 for (i=0; i<3; i++)
659 {
660 EVP_DigestInit_ex(&ctx,s->ctx->sha1, NULL);
661 EVP_DigestUpdate(&ctx,salt[i],strlen((const char *)salt[i]));
662 EVP_DigestUpdate(&ctx,p,len);
663 EVP_DigestUpdate(&ctx,&(s->s3->client_random[0]),
664 SSL3_RANDOM_SIZE);
665 EVP_DigestUpdate(&ctx,&(s->s3->server_random[0]),
666 SSL3_RANDOM_SIZE);
667 EVP_DigestFinal_ex(&ctx,buf,&n);
668
669 EVP_DigestInit_ex(&ctx,s->ctx->md5, NULL);
670 EVP_DigestUpdate(&ctx,p,len);
671 EVP_DigestUpdate(&ctx,buf,n);
672 EVP_DigestFinal_ex(&ctx,out,&n);
673 out+=n;
674 ret+=n;
675 }
676 EVP_MD_CTX_cleanup(&ctx);
677 return(ret);
678 }
679
ssl3_alert_code(int code)680 int ssl3_alert_code(int code)
681 {
682 switch (code)
683 {
684 case SSL_AD_CLOSE_NOTIFY: return(SSL3_AD_CLOSE_NOTIFY);
685 case SSL_AD_UNEXPECTED_MESSAGE: return(SSL3_AD_UNEXPECTED_MESSAGE);
686 case SSL_AD_BAD_RECORD_MAC: return(SSL3_AD_BAD_RECORD_MAC);
687 case SSL_AD_DECRYPTION_FAILED: return(SSL3_AD_BAD_RECORD_MAC);
688 case SSL_AD_RECORD_OVERFLOW: return(SSL3_AD_BAD_RECORD_MAC);
689 case SSL_AD_DECOMPRESSION_FAILURE:return(SSL3_AD_DECOMPRESSION_FAILURE);
690 case SSL_AD_HANDSHAKE_FAILURE: return(SSL3_AD_HANDSHAKE_FAILURE);
691 case SSL_AD_NO_CERTIFICATE: return(SSL3_AD_NO_CERTIFICATE);
692 case SSL_AD_BAD_CERTIFICATE: return(SSL3_AD_BAD_CERTIFICATE);
693 case SSL_AD_UNSUPPORTED_CERTIFICATE:return(SSL3_AD_UNSUPPORTED_CERTIFICATE);
694 case SSL_AD_CERTIFICATE_REVOKED:return(SSL3_AD_CERTIFICATE_REVOKED);
695 case SSL_AD_CERTIFICATE_EXPIRED:return(SSL3_AD_CERTIFICATE_EXPIRED);
696 case SSL_AD_CERTIFICATE_UNKNOWN:return(SSL3_AD_CERTIFICATE_UNKNOWN);
697 case SSL_AD_ILLEGAL_PARAMETER: return(SSL3_AD_ILLEGAL_PARAMETER);
698 case SSL_AD_UNKNOWN_CA: return(SSL3_AD_BAD_CERTIFICATE);
699 case SSL_AD_ACCESS_DENIED: return(SSL3_AD_HANDSHAKE_FAILURE);
700 case SSL_AD_DECODE_ERROR: return(SSL3_AD_HANDSHAKE_FAILURE);
701 case SSL_AD_DECRYPT_ERROR: return(SSL3_AD_HANDSHAKE_FAILURE);
702 case SSL_AD_EXPORT_RESTRICTION: return(SSL3_AD_HANDSHAKE_FAILURE);
703 case SSL_AD_PROTOCOL_VERSION: return(SSL3_AD_HANDSHAKE_FAILURE);
704 case SSL_AD_INSUFFICIENT_SECURITY:return(SSL3_AD_HANDSHAKE_FAILURE);
705 case SSL_AD_INTERNAL_ERROR: return(SSL3_AD_HANDSHAKE_FAILURE);
706 case SSL_AD_USER_CANCELLED: return(SSL3_AD_HANDSHAKE_FAILURE);
707 case SSL_AD_NO_RENEGOTIATION: return(-1); /* Don't send it :-) */
708 default: return(-1);
709 }
710 }
711
712