1 /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
4 * This package is an SSL implementation written
5 * by Eric Young (eay@cryptsoft.com).
6 * The implementation was written so as to conform with Netscapes SSL.
8 * This library is free for commercial and non-commercial use as long as
9 * the following conditions are aheared to. The following conditions
10 * apply to all code found in this distribution, be it the RC4, RSA,
11 * lhash, DES, etc., code; not just the SSL code. The SSL documentation
12 * included with this distribution is covered by the same copyright terms
13 * except that the holder is Tim Hudson (tjh@cryptsoft.com).
15 * Copyright remains Eric Young's, and as such any Copyright notices in
16 * the code are not to be removed.
17 * If this package is used in a product, Eric Young should be given attribution
18 * as the author of the parts of the library used.
19 * This can be in the form of a textual message at program startup or
20 * in documentation (online or textual) provided with the package.
22 * Redistribution and use in source and binary forms, with or without
23 * modification, are permitted provided that the following conditions
25 * 1. Redistributions of source code must retain the copyright
26 * notice, this list of conditions and the following disclaimer.
27 * 2. Redistributions in binary form must reproduce the above copyright
28 * notice, this list of conditions and the following disclaimer in the
29 * documentation and/or other materials provided with the distribution.
30 * 3. All advertising materials mentioning features or use of this software
31 * must display the following acknowledgement:
32 * "This product includes cryptographic software written by
33 * Eric Young (eay@cryptsoft.com)"
34 * The word 'cryptographic' can be left out if the rouines from the library
35 * being used are not cryptographic related :-).
36 * 4. If you include any Windows specific code (or a derivative thereof) from
37 * the apps directory (application code) you must include an acknowledgement:
38 * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
40 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
41 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
42 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
43 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
44 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
45 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
46 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
47 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
48 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
49 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
52 * The licence and distribution terms for any publically available version or
53 * derivative of this code cannot be changed. i.e. this code cannot simply be
54 * copied and put under another distribution licence
55 * [including the GNU Public Licence.]
57 /* ====================================================================
58 * Copyright (c) 1998-2015 The OpenSSL Project. All rights reserved.
60 * Redistribution and use in source and binary forms, with or without
61 * modification, are permitted provided that the following conditions
64 * 1. Redistributions of source code must retain the above copyright
65 * notice, this list of conditions and the following disclaimer.
67 * 2. Redistributions in binary form must reproduce the above copyright
68 * notice, this list of conditions and the following disclaimer in
69 * the documentation and/or other materials provided with the
72 * 3. All advertising materials mentioning features or use of this
73 * software must display the following acknowledgment:
74 * "This product includes software developed by the OpenSSL Project
75 * for use in the OpenSSL Toolkit. (http://www.openssl.org/)"
77 * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
78 * endorse or promote products derived from this software without
79 * prior written permission. For written permission, please contact
80 * openssl-core@openssl.org.
82 * 5. Products derived from this software may not be called "OpenSSL"
83 * nor may "OpenSSL" appear in their names without prior written
84 * permission of the OpenSSL Project.
86 * 6. Redistributions of any form whatsoever must retain the following
88 * "This product includes software developed by the OpenSSL Project
89 * for use in the OpenSSL Toolkit (http://www.openssl.org/)"
91 * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
92 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
93 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
94 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR
95 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
96 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
97 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
98 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
99 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
100 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
101 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
102 * OF THE POSSIBILITY OF SUCH DAMAGE.
103 * ====================================================================
105 * This product includes cryptographic software written by Eric Young
106 * (eay@cryptsoft.com). This product includes software written by Tim
107 * Hudson (tjh@cryptsoft.com).
112 #include "ssl_locl.h"
114 int ssl3_do_change_cipher_spec(SSL
*s
)
121 i
= SSL3_CHANGE_CIPHER_SERVER_READ
;
123 i
= SSL3_CHANGE_CIPHER_CLIENT_READ
;
125 if (s
->s3
->tmp
.key_block
== NULL
) {
126 if (s
->session
== NULL
|| s
->session
->master_key_length
== 0) {
127 /* might happen if dtls1_read_bytes() calls this */
128 SSLerr(SSL_F_SSL3_DO_CHANGE_CIPHER_SPEC
,
129 SSL_R_CCS_RECEIVED_EARLY
);
133 s
->session
->cipher
= s
->s3
->tmp
.new_cipher
;
134 if (!s
->method
->ssl3_enc
->setup_key_block(s
))
138 if (!s
->method
->ssl3_enc
->change_cipher_state(s
, i
))
142 * we have to record the message digest at this point so we can get it
143 * before we read the finished message
146 sender
= s
->method
->ssl3_enc
->server_finished_label
;
147 slen
= s
->method
->ssl3_enc
->server_finished_label_len
;
149 sender
= s
->method
->ssl3_enc
->client_finished_label
;
150 slen
= s
->method
->ssl3_enc
->client_finished_label_len
;
153 i
= s
->method
->ssl3_enc
->final_finish_mac(s
,
155 s
->s3
->tmp
.peer_finish_md
);
157 SSLerr(SSL_F_SSL3_DO_CHANGE_CIPHER_SPEC
, ERR_R_INTERNAL_ERROR
);
160 s
->s3
->tmp
.peer_finish_md_len
= i
;
165 int ssl3_send_alert(SSL
*s
, int level
, int desc
)
167 /* Map tls/ssl alert value to correct one */
168 desc
= s
->method
->ssl3_enc
->alert_value(desc
);
169 if (s
->version
== SSL3_VERSION
&& desc
== SSL_AD_PROTOCOL_VERSION
)
170 desc
= SSL_AD_HANDSHAKE_FAILURE
; /* SSL 3.0 does not have
171 * protocol_version alerts */
174 /* If a fatal one, remove from cache */
175 if ((level
== SSL3_AL_FATAL
) && (s
->session
!= NULL
))
176 SSL_CTX_remove_session(s
->ctx
, s
->session
);
178 s
->s3
->alert_dispatch
= 1;
179 s
->s3
->send_alert
[0] = level
;
180 s
->s3
->send_alert
[1] = desc
;
181 if (!RECORD_LAYER_write_pending(&s
->rlayer
)) {
182 /* data still being written out? */
183 return s
->method
->ssl_dispatch_alert(s
);
186 * else data is still being written out, we will get written some time in
192 int ssl3_dispatch_alert(SSL
*s
)
195 void (*cb
) (const SSL
*ssl
, int type
, int val
) = NULL
;
197 s
->s3
->alert_dispatch
= 0;
198 i
= do_ssl3_write(s
, SSL3_RT_ALERT
, &s
->s3
->send_alert
[0], 2, 0);
200 s
->s3
->alert_dispatch
= 1;
203 * Alert sent to BIO. If it is important, flush it now. If the
204 * message does not get sent due to non-blocking IO, we will not
207 if (s
->s3
->send_alert
[0] == SSL3_AL_FATAL
)
208 (void)BIO_flush(s
->wbio
);
211 s
->msg_callback(1, s
->version
, SSL3_RT_ALERT
, s
->s3
->send_alert
,
212 2, s
, s
->msg_callback_arg
);
214 if (s
->info_callback
!= NULL
)
215 cb
= s
->info_callback
;
216 else if (s
->ctx
->info_callback
!= NULL
)
217 cb
= s
->ctx
->info_callback
;
220 j
= (s
->s3
->send_alert
[0] << 8) | s
->s3
->send_alert
[1];
221 cb(s
, SSL_CB_WRITE_ALERT
, j
);