1/* ssl/t1_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-2006 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  DTLS code by Eric Rescorla <ekr@rtfm.com>
113
114  Copyright (C) 2006, Network Resonance, Inc.
115  Copyright (C) 2011, RTFM, Inc.
116*/
117
118#include <stdio.h>
119#include <openssl/objects.h>
120#include "ssl_locl.h"
121
122#ifndef OPENSSL_NO_SRTP
123
124#include "srtp.h"
125
126
127static SRTP_PROTECTION_PROFILE srtp_known_profiles[]=
128    {
129    {
130    "SRTP_AES128_CM_SHA1_80",
131    SRTP_AES128_CM_SHA1_80,
132    },
133    {
134    "SRTP_AES128_CM_SHA1_32",
135    SRTP_AES128_CM_SHA1_32,
136    },
137#if 0
138    {
139    "SRTP_NULL_SHA1_80",
140    SRTP_NULL_SHA1_80,
141    },
142    {
143    "SRTP_NULL_SHA1_32",
144    SRTP_NULL_SHA1_32,
145    },
146#endif
147    {0}
148    };
149
150static int find_profile_by_name(char *profile_name,
151				SRTP_PROTECTION_PROFILE **pptr,unsigned len)
152	{
153	SRTP_PROTECTION_PROFILE *p;
154
155	p=srtp_known_profiles;
156	while(p->name)
157		{
158		if((len == strlen(p->name)) && !strncmp(p->name,profile_name,
159							len))
160			{
161			*pptr=p;
162			return 0;
163			}
164
165		p++;
166		}
167
168	return 1;
169	}
170
171static int find_profile_by_num(unsigned profile_num,
172			       SRTP_PROTECTION_PROFILE **pptr)
173	{
174	SRTP_PROTECTION_PROFILE *p;
175
176	p=srtp_known_profiles;
177	while(p->name)
178		{
179		if(p->id == profile_num)
180			{
181			*pptr=p;
182			return 0;
183			}
184		p++;
185		}
186
187	return 1;
188	}
189
190static int ssl_ctx_make_profiles(const char *profiles_string,STACK_OF(SRTP_PROTECTION_PROFILE) **out)
191	{
192	STACK_OF(SRTP_PROTECTION_PROFILE) *profiles;
193
194	char *col;
195	char *ptr=(char *)profiles_string;
196
197	SRTP_PROTECTION_PROFILE *p;
198
199	if(!(profiles=sk_SRTP_PROTECTION_PROFILE_new_null()))
200		{
201		SSLerr(SSL_F_SSL_CTX_MAKE_PROFILES, SSL_R_SRTP_COULD_NOT_ALLOCATE_PROFILES);
202		return 1;
203		}
204
205	do
206		{
207		col=strchr(ptr,':');
208
209		if(!find_profile_by_name(ptr,&p,
210					 col ? col-ptr : (int)strlen(ptr)))
211			{
212			sk_SRTP_PROTECTION_PROFILE_push(profiles,p);
213			}
214		else
215			{
216			SSLerr(SSL_F_SSL_CTX_MAKE_PROFILES,SSL_R_SRTP_UNKNOWN_PROTECTION_PROFILE);
217			return 1;
218			}
219
220		if(col) ptr=col+1;
221		} while (col);
222
223	*out=profiles;
224
225	return 0;
226	}
227
228int SSL_CTX_set_tlsext_use_srtp(SSL_CTX *ctx,const char *profiles)
229	{
230	return ssl_ctx_make_profiles(profiles,&ctx->srtp_profiles);
231	}
232
233int SSL_set_tlsext_use_srtp(SSL *s,const char *profiles)
234	{
235	return ssl_ctx_make_profiles(profiles,&s->srtp_profiles);
236	}
237
238
239STACK_OF(SRTP_PROTECTION_PROFILE) *SSL_get_srtp_profiles(SSL *s)
240	{
241	if(s != NULL)
242		{
243		if(s->srtp_profiles != NULL)
244			{
245			return s->srtp_profiles;
246			}
247		else if((s->ctx != NULL) &&
248			(s->ctx->srtp_profiles != NULL))
249			{
250			return s->ctx->srtp_profiles;
251			}
252		}
253
254	return NULL;
255	}
256
257SRTP_PROTECTION_PROFILE *SSL_get_selected_srtp_profile(SSL *s)
258	{
259	return s->srtp_profile;
260	}
261
262/* Note: this function returns 0 length if there are no
263   profiles specified */
264int ssl_add_clienthello_use_srtp_ext(SSL *s, unsigned char *p, int *len, int maxlen)
265	{
266	int ct=0;
267	int i;
268	STACK_OF(SRTP_PROTECTION_PROFILE) *clnt=0;
269	SRTP_PROTECTION_PROFILE *prof;
270
271	clnt=SSL_get_srtp_profiles(s);
272	ct=sk_SRTP_PROTECTION_PROFILE_num(clnt); /* -1 if clnt == 0 */
273
274	if(p)
275		{
276		if(ct==0)
277			{
278			SSLerr(SSL_F_SSL_ADD_CLIENTHELLO_USE_SRTP_EXT,SSL_R_EMPTY_SRTP_PROTECTION_PROFILE_LIST);
279			return 1;
280			}
281
282		if((2 + ct*2 + 1) > maxlen)
283			{
284			SSLerr(SSL_F_SSL_ADD_CLIENTHELLO_USE_SRTP_EXT,SSL_R_SRTP_PROTECTION_PROFILE_LIST_TOO_LONG);
285			return 1;
286			}
287
288                /* Add the length */
289                s2n(ct * 2, p);
290		for(i=0;i<ct;i++)
291			{
292			prof=sk_SRTP_PROTECTION_PROFILE_value(clnt,i);
293			s2n(prof->id,p);
294			}
295
296                /* Add an empty use_mki value */
297                *p++ = 0;
298		}
299
300	*len=2 + ct*2 + 1;
301
302	return 0;
303	}
304
305
306int ssl_parse_clienthello_use_srtp_ext(SSL *s, unsigned char *d, int len,int *al)
307	{
308	SRTP_PROTECTION_PROFILE *cprof,*sprof;
309	STACK_OF(SRTP_PROTECTION_PROFILE) *clnt=0,*srvr;
310        int ct;
311        int mki_len;
312	int i,j;
313	int id;
314	int ret;
315
316         /* Length value + the MKI length */
317        if(len < 3)
318		{
319		SSLerr(SSL_F_SSL_PARSE_CLIENTHELLO_USE_SRTP_EXT,SSL_R_BAD_SRTP_PROTECTION_PROFILE_LIST);
320		*al=SSL_AD_DECODE_ERROR;
321		return 1;
322                }
323
324        /* Pull off the length of the cipher suite list */
325        n2s(d, ct);
326        len -= 2;
327
328        /* Check that it is even */
329	if(ct%2)
330		{
331		SSLerr(SSL_F_SSL_PARSE_CLIENTHELLO_USE_SRTP_EXT,SSL_R_BAD_SRTP_PROTECTION_PROFILE_LIST);
332		*al=SSL_AD_DECODE_ERROR;
333		return 1;
334		}
335
336        /* Check that lengths are consistent */
337	if(len < (ct + 1))
338		{
339		SSLerr(SSL_F_SSL_PARSE_CLIENTHELLO_USE_SRTP_EXT,SSL_R_BAD_SRTP_PROTECTION_PROFILE_LIST);
340		*al=SSL_AD_DECODE_ERROR;
341		return 1;
342		}
343
344
345	clnt=sk_SRTP_PROTECTION_PROFILE_new_null();
346
347	while(ct)
348		{
349		n2s(d,id);
350		ct-=2;
351                len-=2;
352
353		if(!find_profile_by_num(id,&cprof))
354			{
355			sk_SRTP_PROTECTION_PROFILE_push(clnt,cprof);
356			}
357		else
358			{
359			; /* Ignore */
360			}
361		}
362
363        /* Now extract the MKI value as a sanity check, but discard it for now */
364        mki_len = *d;
365        d++; len--;
366
367        if (mki_len != len)
368		{
369		SSLerr(SSL_F_SSL_PARSE_CLIENTHELLO_USE_SRTP_EXT,SSL_R_BAD_SRTP_MKI_VALUE);
370		*al=SSL_AD_DECODE_ERROR;
371		return 1;
372		}
373
374	srvr=SSL_get_srtp_profiles(s);
375
376	/* Pick our most preferred profile. If no profiles have been
377	 configured then the outer loop doesn't run
378	 (sk_SRTP_PROTECTION_PROFILE_num() = -1)
379	 and so we just return without doing anything */
380	for(i=0;i<sk_SRTP_PROTECTION_PROFILE_num(srvr);i++)
381		{
382		sprof=sk_SRTP_PROTECTION_PROFILE_value(srvr,i);
383
384		for(j=0;j<sk_SRTP_PROTECTION_PROFILE_num(clnt);j++)
385			{
386			cprof=sk_SRTP_PROTECTION_PROFILE_value(clnt,j);
387
388			if(cprof->id==sprof->id)
389				{
390				s->srtp_profile=sprof;
391				*al=0;
392				ret=0;
393				goto done;
394				}
395			}
396		}
397
398	ret=0;
399
400done:
401	if(clnt) sk_SRTP_PROTECTION_PROFILE_free(clnt);
402
403	return ret;
404	}
405
406int ssl_add_serverhello_use_srtp_ext(SSL *s, unsigned char *p, int *len, int maxlen)
407	{
408	if(p)
409		{
410		if(maxlen < 5)
411			{
412			SSLerr(SSL_F_SSL_ADD_SERVERHELLO_USE_SRTP_EXT,SSL_R_SRTP_PROTECTION_PROFILE_LIST_TOO_LONG);
413			return 1;
414			}
415
416		if(s->srtp_profile==0)
417			{
418			SSLerr(SSL_F_SSL_ADD_SERVERHELLO_USE_SRTP_EXT,SSL_R_USE_SRTP_NOT_NEGOTIATED);
419			return 1;
420			}
421                s2n(2, p);
422		s2n(s->srtp_profile->id,p);
423                *p++ = 0;
424		}
425	*len=5;
426
427	return 0;
428	}
429
430
431int ssl_parse_serverhello_use_srtp_ext(SSL *s, unsigned char *d, int len,int *al)
432	{
433	unsigned id;
434	int i;
435        int ct;
436
437	STACK_OF(SRTP_PROTECTION_PROFILE) *clnt;
438	SRTP_PROTECTION_PROFILE *prof;
439
440	if(len!=5)
441		{
442		SSLerr(SSL_F_SSL_PARSE_SERVERHELLO_USE_SRTP_EXT,SSL_R_BAD_SRTP_PROTECTION_PROFILE_LIST);
443		*al=SSL_AD_DECODE_ERROR;
444		return 1;
445		}
446
447        n2s(d, ct);
448	if(ct!=2)
449		{
450		SSLerr(SSL_F_SSL_PARSE_SERVERHELLO_USE_SRTP_EXT,SSL_R_BAD_SRTP_PROTECTION_PROFILE_LIST);
451		*al=SSL_AD_DECODE_ERROR;
452		return 1;
453		}
454
455	n2s(d,id);
456        if (*d)  /* Must be no MKI, since we never offer one */
457		{
458		SSLerr(SSL_F_SSL_PARSE_SERVERHELLO_USE_SRTP_EXT,SSL_R_BAD_SRTP_MKI_VALUE);
459		*al=SSL_AD_ILLEGAL_PARAMETER;
460		return 1;
461		}
462
463	clnt=SSL_get_srtp_profiles(s);
464
465	/* Throw an error if the server gave us an unsolicited extension */
466	if (clnt == NULL)
467		{
468		SSLerr(SSL_F_SSL_PARSE_SERVERHELLO_USE_SRTP_EXT,SSL_R_NO_SRTP_PROFILES);
469		*al=SSL_AD_DECODE_ERROR;
470		return 1;
471		}
472
473	/* Check to see if the server gave us something we support
474	   (and presumably offered)
475	*/
476	for(i=0;i<sk_SRTP_PROTECTION_PROFILE_num(clnt);i++)
477		{
478		prof=sk_SRTP_PROTECTION_PROFILE_value(clnt,i);
479
480		if(prof->id == id)
481			{
482			s->srtp_profile=prof;
483			*al=0;
484			return 0;
485			}
486		}
487
488	SSLerr(SSL_F_SSL_PARSE_SERVERHELLO_USE_SRTP_EXT,SSL_R_BAD_SRTP_PROTECTION_PROFILE_LIST);
489	*al=SSL_AD_DECODE_ERROR;
490	return 1;
491	}
492
493
494#endif
495