Close fp in error case in ssl_parse_key_list to avoid leakage.
[metze/wireshark/wip.git] / epan / dissectors / packet-ssl-utils.c
1 /* packet-ssl-utils.c
2  * ssl manipulation functions
3  * By Paolo Abeni <paolo.abeni@email.com>
4  *
5  * $Id$
6  *
7  * Wireshark - Network traffic analyzer
8  * By Gerald Combs <gerald@wireshark.org>
9  * Copyright 1998 Gerald Combs
10  *
11  * This program is free software; you can redistribute it and/or
12  * modify it under the terms of the GNU General Public License
13  * as published by the Free Software Foundation; either version 2
14  * of the License, or (at your option) any later version.
15  *
16  * This program is distributed in the hope that it will be useful,
17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
19  * GNU General Public License for more details.
20  *
21  * You should have received a copy of the GNU General Public License
22  * along with this program; if not, write to the Free Software
23  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
24  */
25
26 #ifdef HAVE_CONFIG_H
27 # include "config.h"
28 #endif
29
30 #include <stdio.h>
31 #include <stdlib.h>
32 #include <string.h>
33 #ifdef HAVE_LIBZ
34 #include <zlib.h>
35 #endif
36 #include "packet-ssl-utils.h"
37
38 #include <epan/emem.h>
39 #include <epan/strutil.h>
40 #include <wsutil/file_util.h>
41
42 /*
43  * Lookup tables
44  */
45 const value_string ssl_version_short_names[] = {
46     { SSL_VER_UNKNOWN,    "SSL" },
47     { SSL_VER_SSLv2,      "SSLv2" },
48     { SSL_VER_SSLv3,      "SSLv3" },
49     { SSL_VER_TLS,        "TLSv1" },
50     { SSL_VER_TLSv1DOT1,  "TLSv1.1" },
51     { SSL_VER_DTLS,       "DTLSv1.0" },
52     { SSL_VER_PCT,        "PCT" },
53     { SSL_VER_TLSv1DOT2,  "TLSv1.2" },
54     { 0x00, NULL }
55 };
56
57 const value_string ssl_20_msg_types[] = {
58     { SSL2_HND_ERROR,               "Error" },
59     { SSL2_HND_CLIENT_HELLO,        "Client Hello" },
60     { SSL2_HND_CLIENT_MASTER_KEY,   "Client Master Key" },
61     { SSL2_HND_CLIENT_FINISHED,     "Client Finished" },
62     { SSL2_HND_SERVER_HELLO,        "Server Hello" },
63     { SSL2_HND_SERVER_VERIFY,       "Server Verify" },
64     { SSL2_HND_SERVER_FINISHED,     "Server Finished" },
65     { SSL2_HND_REQUEST_CERTIFICATE, "Request Certificate" },
66     { SSL2_HND_CLIENT_CERTIFICATE,  "Client Certificate" },
67     { 0x00, NULL }
68 };
69 /* http://www.iana.org/assignments/tls-parameters/tls-parameters.xhtml */
70 /* Note: sorted by ascending value so value_string-ext can do a binary search */
71 static const value_string ssl_20_cipher_suites[] = {
72     { 0x000000, "TLS_NULL_WITH_NULL_NULL" },
73     { 0x000001, "TLS_RSA_WITH_NULL_MD5" },
74     { 0x000002, "TLS_RSA_WITH_NULL_SHA" },
75     { 0x000003, "TLS_RSA_EXPORT_WITH_RC4_40_MD5" },
76     { 0x000004, "TLS_RSA_WITH_RC4_128_MD5" },
77     { 0x000005, "TLS_RSA_WITH_RC4_128_SHA" },
78     { 0x000006, "TLS_RSA_EXPORT_WITH_RC2_CBC_40_MD5" },
79     { 0x000007, "TLS_RSA_WITH_IDEA_CBC_SHA" },
80     { 0x000008, "TLS_RSA_EXPORT_WITH_DES40_CBC_SHA" },
81     { 0x000009, "TLS_RSA_WITH_DES_CBC_SHA" },
82     { 0x00000a, "TLS_RSA_WITH_3DES_EDE_CBC_SHA" },
83     { 0x00000b, "TLS_DH_DSS_EXPORT_WITH_DES40_CBC_SHA" },
84     { 0x00000c, "TLS_DH_DSS_WITH_DES_CBC_SHA" },
85     { 0x00000d, "TLS_DH_DSS_WITH_3DES_EDE_CBC_SHA" },
86     { 0x00000e, "TLS_DH_RSA_EXPORT_WITH_DES40_CBC_SHA" },
87     { 0x00000f, "TLS_DH_RSA_WITH_DES_CBC_SHA" },
88     { 0x000010, "TLS_DH_RSA_WITH_3DES_EDE_CBC_SHA" },
89     { 0x000011, "TLS_DHE_DSS_EXPORT_WITH_DES40_CBC_SHA" },
90     { 0x000012, "TLS_DHE_DSS_WITH_DES_CBC_SHA" },
91     { 0x000013, "TLS_DHE_DSS_WITH_3DES_EDE_CBC_SHA" },
92     { 0x000014, "TLS_DHE_RSA_EXPORT_WITH_DES40_CBC_SHA" },
93     { 0x000015, "TLS_DHE_RSA_WITH_DES_CBC_SHA" },
94     { 0x000016, "TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA" },
95     { 0x000017, "TLS_DH_anon_EXPORT_WITH_RC4_40_MD5" },
96     { 0x000018, "TLS_DH_anon_WITH_RC4_128_MD5" },
97     { 0x000019, "TLS_DH_anon_EXPORT_WITH_DES40_CBC_SHA" },
98     { 0x00001a, "TLS_DH_anon_WITH_DES_CBC_SHA" },
99     { 0x00001b, "TLS_DH_anon_WITH_3DES_EDE_CBC_SHA" },
100     { 0x00001c, "SSL_FORTEZZA_KEA_WITH_NULL_SHA" },
101     { 0x00001d, "SSL_FORTEZZA_KEA_WITH_FORTEZZA_CBC_SHA" },
102 #if 0
103     { 0x00001e, "SSL_FORTEZZA_KEA_WITH_RC4_128_SHA" },
104 #endif
105     /* RFC 2712 */
106     { 0x00001E, "TLS_KRB5_WITH_DES_CBC_SHA" },
107     { 0x00001F, "TLS_KRB5_WITH_3DES_EDE_CBC_SHA" },
108     { 0x000020, "TLS_KRB5_WITH_RC4_128_SHA" },
109     { 0x000021, "TLS_KRB5_WITH_IDEA_CBC_SHA" },
110     { 0x000022, "TLS_KRB5_WITH_DES_CBC_MD5" },
111     { 0x000023, "TLS_KRB5_WITH_3DES_EDE_CBC_MD5" },
112     { 0x000024, "TLS_KRB5_WITH_RC4_128_MD5" },
113     { 0x000025, "TLS_KRB5_WITH_IDEA_CBC_MD5" },
114     { 0x000026, "TLS_KRB5_EXPORT_WITH_DES_CBC_40_SHA" },
115     { 0x000027, "TLS_KRB5_EXPORT_WITH_RC2_CBC_40_SHA" },
116     { 0x000028, "TLS_KRB5_EXPORT_WITH_RC4_40_SHA" },
117     { 0x000029, "TLS_KRB5_EXPORT_WITH_DES_CBC_40_MD5" },
118     { 0x00002A, "TLS_KRB5_EXPORT_WITH_RC2_CBC_40_MD5" },
119     { 0x00002B, "TLS_KRB5_EXPORT_WITH_RC4_40_MD5" },
120     /* RFC 4785 */
121     { 0x00002C, "TLS_PSK_WITH_NULL_SHA" },
122     { 0x00002D, "TLS_DHE_PSK_WITH_NULL_SHA" },
123     { 0x00002E, "TLS_RSA_PSK_WITH_NULL_SHA" },
124     /* RFC 5246 */
125     { 0x00002f, "TLS_RSA_WITH_AES_128_CBC_SHA" },
126     { 0x000030, "TLS_DH_DSS_WITH_AES_128_CBC_SHA" },
127     { 0x000031, "TLS_DH_RSA_WITH_AES_128_CBC_SHA" },
128     { 0x000032, "TLS_DHE_DSS_WITH_AES_128_CBC_SHA" },
129     { 0x000033, "TLS_DHE_RSA_WITH_AES_128_CBC_SHA" },
130     { 0x000034, "TLS_DH_anon_WITH_AES_128_CBC_SHA" },
131     { 0x000035, "TLS_RSA_WITH_AES_256_CBC_SHA" },
132     { 0x000036, "TLS_DH_DSS_WITH_AES_256_CBC_SHA" },
133     { 0x000037, "TLS_DH_RSA_WITH_AES_256_CBC_SHA" },
134     { 0x000038, "TLS_DHE_DSS_WITH_AES_256_CBC_SHA" },
135     { 0x000039, "TLS_DHE_RSA_WITH_AES_256_CBC_SHA" },
136     { 0x00003A, "TLS_DH_anon_WITH_AES_256_CBC_SHA" },
137     { 0x00003B, "TLS_RSA_WITH_NULL_SHA256" },
138     { 0x00003C, "TLS_RSA_WITH_AES_128_CBC_SHA256" },
139     { 0x00003D, "TLS_RSA_WITH_AES_256_CBC_SHA256" },
140     { 0x00003E, "TLS_DH_DSS_WITH_AES_128_CBC_SHA256" },
141     { 0x00003F, "TLS_DH_RSA_WITH_AES_128_CBC_SHA256" },
142     { 0x000040, "TLS_DHE_DSS_WITH_AES_128_CBC_SHA256" },
143     { 0x000041, "TLS_RSA_WITH_CAMELLIA_128_CBC_SHA" },
144     { 0x000042, "TLS_DH_DSS_WITH_CAMELLIA_128_CBC_SHA" },
145     { 0x000043, "TLS_DH_RSA_WITH_CAMELLIA_128_CBC_SHA" },
146     { 0x000044, "TLS_DHE_DSS_WITH_CAMELLIA_128_CBC_SHA" },
147     { 0x000045, "TLS_DHE_RSA_WITH_CAMELLIA_128_CBC_SHA" },
148     { 0x000046, "TLS_DH_anon_WITH_CAMELLIA_128_CBC_SHA" },
149     { 0x000047, "TLS_ECDH_ECDSA_WITH_NULL_SHA" },
150     { 0x000048, "TLS_ECDH_ECDSA_WITH_RC4_128_SHA" },
151     { 0x000049, "TLS_ECDH_ECDSA_WITH_DES_CBC_SHA" },
152     { 0x00004A, "TLS_ECDH_ECDSA_WITH_3DES_EDE_CBC_SHA" },
153     { 0x00004B, "TLS_ECDH_ECDSA_WITH_AES_128_CBC_SHA" },
154     { 0x00004C, "TLS_ECDH_ECDSA_WITH_AES_256_CBC_SHA" },
155     { 0x000060, "TLS_RSA_EXPORT1024_WITH_RC4_56_MD5" },
156     { 0x000061, "TLS_RSA_EXPORT1024_WITH_RC2_CBC_56_MD5" },
157     { 0x000062, "TLS_RSA_EXPORT1024_WITH_DES_CBC_SHA" },
158     { 0x000063, "TLS_DHE_DSS_EXPORT1024_WITH_DES_CBC_SHA" },
159     { 0x000064, "TLS_RSA_EXPORT1024_WITH_RC4_56_SHA" },
160     { 0x000065, "TLS_DHE_DSS_EXPORT1024_WITH_RC4_56_SHA" },
161     { 0x000066, "TLS_DHE_DSS_WITH_RC4_128_SHA" },
162     { 0x000067, "TLS_DHE_RSA_WITH_AES_128_CBC_SHA256" },
163     { 0x000068, "TLS_DH_DSS_WITH_AES_256_CBC_SHA256" },
164     { 0x000069, "TLS_DH_RSA_WITH_AES_256_CBC_SHA256" },
165     { 0x00006A, "TLS_DHE_DSS_WITH_AES_256_CBC_SHA256" },
166     { 0x00006B, "TLS_DHE_RSA_WITH_AES_256_CBC_SHA256" },
167     { 0x00006C, "TLS_DH_anon_WITH_AES_128_CBC_SHA256" },
168     { 0x00006D, "TLS_DH_anon_WITH_AES_256_CBC_SHA256" },
169         /* 0x00,0x6E-83 Unassigned  */
170     { 0x000084, "TLS_RSA_WITH_CAMELLIA_256_CBC_SHA" },
171     { 0x000085, "TLS_DH_DSS_WITH_CAMELLIA_256_CBC_SHA" },
172     { 0x000086, "TLS_DH_RSA_WITH_CAMELLIA_256_CBC_SHA" },
173     { 0x000087, "TLS_DHE_DSS_WITH_CAMELLIA_256_CBC_SHA" },
174     { 0x000088, "TLS_DHE_RSA_WITH_CAMELLIA_256_CBC_SHA" },
175     { 0x000089, "TLS_DH_anon_WITH_CAMELLIA_256_CBC_SHA" },
176     /* RFC 4279 */
177     { 0x00008A, "TLS_PSK_WITH_RC4_128_SHA" },
178     { 0x00008B, "TLS_PSK_WITH_3DES_EDE_CBC_SHA" },
179     { 0x00008C, "TLS_PSK_WITH_AES_128_CBC_SHA" },
180     { 0x00008D, "TLS_PSK_WITH_AES_256_CBC_SHA" },
181     { 0x00008E, "TLS_DHE_PSK_WITH_RC4_128_SHA" },
182     { 0x00008F, "TLS_DHE_PSK_WITH_3DES_EDE_CBC_SHA" },
183     { 0x000090, "TLS_DHE_PSK_WITH_AES_128_CBC_SHA" },
184     { 0x000091, "TLS_DHE_PSK_WITH_AES_256_CBC_SHA" },
185     { 0x000092, "TLS_RSA_PSK_WITH_RC4_128_SHA" },
186     { 0x000093, "TLS_RSA_PSK_WITH_3DES_EDE_CBC_SHA" },
187     { 0x000094, "TLS_RSA_PSK_WITH_AES_128_CBC_SHA" },
188     { 0x000095, "TLS_RSA_PSK_WITH_AES_256_CBC_SHA" },
189     /* RFC 4162 */
190     { 0x000096, "TLS_RSA_WITH_SEED_CBC_SHA" },
191     { 0x000097, "TLS_DH_DSS_WITH_SEED_CBC_SHA" },
192     { 0x000098, "TLS_DH_RSA_WITH_SEED_CBC_SHA" },
193     { 0x000099, "TLS_DHE_DSS_WITH_SEED_CBC_SHA" },
194     { 0x00009A, "TLS_DHE_RSA_WITH_SEED_CBC_SHA" },
195     { 0x00009B, "TLS_DH_anon_WITH_SEED_CBC_SHA" },
196     /* RFC 5288 */
197     { 0x00009C, "TLS_RSA_WITH_AES_128_GCM_SHA256" },
198     { 0x00009D, "TLS_RSA_WITH_AES_256_GCM_SHA384" },
199     { 0x00009E, "TLS_DHE_RSA_WITH_AES_128_GCM_SHA256" },
200     { 0x00009F, "TLS_DHE_RSA_WITH_AES_256_GCM_SHA384" },
201     { 0x0000A0, "TLS_DH_RSA_WITH_AES_128_GCM_SHA256" },
202     { 0x0000A1, "TLS_DH_RSA_WITH_AES_256_GCM_SHA384" },
203     { 0x0000A2, "TLS_DHE_DSS_WITH_AES_128_GCM_SHA256" },
204     { 0x0000A3, "TLS_DHE_DSS_WITH_AES_256_GCM_SHA384" },
205     { 0x0000A4, "TLS_DH_DSS_WITH_AES_128_GCM_SHA256" },
206     { 0x0000A5, "TLS_DH_DSS_WITH_AES_256_GCM_SHA384" },
207     { 0x0000A6, "TLS_DH_anon_WITH_AES_128_GCM_SHA256" },
208     { 0x0000A7, "TLS_DH_anon_WITH_AES_256_GCM_SHA384" },
209     /* RFC 5487 */
210     { 0x0000A8, "TLS_PSK_WITH_AES_128_GCM_SHA256" },
211     { 0x0000A9, "TLS_PSK_WITH_AES_256_GCM_SHA384" },
212     { 0x0000AA, "TLS_DHE_PSK_WITH_AES_128_GCM_SHA256" },
213     { 0x0000AB, "TLS_DHE_PSK_WITH_AES_256_GCM_SHA384" },
214     { 0x0000AC, "TLS_RSA_PSK_WITH_AES_128_GCM_SHA256" },
215     { 0x0000AD, "TLS_RSA_PSK_WITH_AES_256_GCM_SHA384" },
216     { 0x0000AE, "TLS_PSK_WITH_AES_128_CBC_SHA256" },
217     { 0x0000AF, "TLS_PSK_WITH_AES_256_CBC_SHA384" },
218     { 0x0000B0, "TLS_PSK_WITH_NULL_SHA256" },
219     { 0x0000B1, "TLS_PSK_WITH_NULL_SHA384" },
220     { 0x0000B2, "TLS_DHE_PSK_WITH_AES_128_CBC_SHA256" },
221     { 0x0000B3, "TLS_DHE_PSK_WITH_AES_256_CBC_SHA384" },
222     { 0x0000B4, "TLS_DHE_PSK_WITH_NULL_SHA256" },
223     { 0x0000B5, "TLS_DHE_PSK_WITH_NULL_SHA384" },
224     { 0x0000B6, "TLS_RSA_PSK_WITH_AES_128_CBC_SHA256" },
225     { 0x0000B7, "TLS_RSA_PSK_WITH_AES_256_CBC_SHA384" },
226     { 0x0000B8, "TLS_RSA_PSK_WITH_NULL_SHA256" },
227     { 0x0000B9, "TLS_RSA_PSK_WITH_NULL_SHA384" },
228     /* From RFC 5932 */
229     { 0x0000BA, "TLS_RSA_WITH_CAMELLIA_128_CBC_SHA256" },
230     { 0x0000BB, "TLS_DH_DSS_WITH_CAMELLIA_128_CBC_SHA256" },
231     { 0x0000BC, "TLS_DH_RSA_WITH_CAMELLIA_128_CBC_SHA256" },
232     { 0x0000BD, "TLS_DHE_DSS_WITH_CAMELLIA_128_CBC_SHA256" },
233     { 0x0000BE, "TLS_DHE_RSA_WITH_CAMELLIA_128_CBC_SHA256" },
234     { 0x0000BF, "TLS_DH_anon_WITH_CAMELLIA_128_CBC_SHA256" },
235     { 0x0000C0, "TLS_RSA_WITH_CAMELLIA_256_CBC_SHA256" },
236     { 0x0000C1, "TLS_DH_DSS_WITH_CAMELLIA_256_CBC_SHA256" },
237     { 0x0000C2, "TLS_DH_RSA_WITH_CAMELLIA_256_CBC_SHA256" },
238     { 0x0000C3, "TLS_DHE_DSS_WITH_CAMELLIA_256_CBC_SHA256" },
239     { 0x0000C4, "TLS_DHE_RSA_WITH_CAMELLIA_256_CBC_SHA256" },
240     { 0x0000C5, "TLS_DH_anon_WITH_CAMELLIA_256_CBC_SHA256" },
241         /* 0x00,0xC6-FE Unassigned  */
242         { 0x0000FF, "TLS_EMPTY_RENEGOTIATION_INFO_SCSV" },
243         /* 0x01-BF,* Unassigned  */
244     /* From RFC 4492 */
245     { 0x00c001, "TLS_ECDH_ECDSA_WITH_NULL_SHA" },
246     { 0x00c002, "TLS_ECDH_ECDSA_WITH_RC4_128_SHA" },
247     { 0x00c003, "TLS_ECDH_ECDSA_WITH_3DES_EDE_CBC_SHA" },
248     { 0x00c004, "TLS_ECDH_ECDSA_WITH_AES_128_CBC_SHA" },
249     { 0x00c005, "TLS_ECDH_ECDSA_WITH_AES_256_CBC_SHA" },
250     { 0x00c006, "TLS_ECDHE_ECDSA_WITH_NULL_SHA" },
251     { 0x00c007, "TLS_ECDHE_ECDSA_WITH_RC4_128_SHA" },
252     { 0x00c008, "TLS_ECDHE_ECDSA_WITH_3DES_EDE_CBC_SHA" },
253     { 0x00c009, "TLS_ECDHE_ECDSA_WITH_AES_128_CBC_SHA" },
254     { 0x00c00a, "TLS_ECDHE_ECDSA_WITH_AES_256_CBC_SHA" },
255     { 0x00c00b, "TLS_ECDH_RSA_WITH_NULL_SHA" },
256     { 0x00c00c, "TLS_ECDH_RSA_WITH_RC4_128_SHA" },
257     { 0x00c00d, "TLS_ECDH_RSA_WITH_3DES_EDE_CBC_SHA" },
258     { 0x00c00e, "TLS_ECDH_RSA_WITH_AES_128_CBC_SHA" },
259     { 0x00c00f, "TLS_ECDH_RSA_WITH_AES_256_CBC_SHA" },
260     { 0x00c010, "TLS_ECDHE_RSA_WITH_NULL_SHA" },
261     { 0x00c011, "TLS_ECDHE_RSA_WITH_RC4_128_SHA" },
262     { 0x00c012, "TLS_ECDHE_RSA_WITH_3DES_EDE_CBC_SHA" },
263     { 0x00c013, "TLS_ECDHE_RSA_WITH_AES_128_CBC_SHA" },
264     { 0x00c014, "TLS_ECDHE_RSA_WITH_AES_256_CBC_SHA" },
265     { 0x00c015, "TLS_ECDH_anon_WITH_NULL_SHA" },
266     { 0x00c016, "TLS_ECDH_anon_WITH_RC4_128_SHA" },
267     { 0x00c017, "TLS_ECDH_anon_WITH_3DES_EDE_CBC_SHA" },
268     { 0x00c018, "TLS_ECDH_anon_WITH_AES_128_CBC_SHA" },
269     { 0x00c019, "TLS_ECDH_anon_WITH_AES_256_CBC_SHA" },
270     /* RFC 5054 */
271     { 0x00C01A, "TLS_SRP_SHA_WITH_3DES_EDE_CBC_SHA" },
272     { 0x00C01B, "TLS_SRP_SHA_RSA_WITH_3DES_EDE_CBC_SHA" },
273     { 0x00C01C, "TLS_SRP_SHA_DSS_WITH_3DES_EDE_CBC_SHA" },
274     { 0x00C01D, "TLS_SRP_SHA_WITH_AES_128_CBC_SHA" },
275     { 0x00C01E, "TLS_SRP_SHA_RSA_WITH_AES_128_CBC_SHA" },
276     { 0x00C01F, "TLS_SRP_SHA_DSS_WITH_AES_128_CBC_SHA" },
277     { 0x00C020, "TLS_SRP_SHA_WITH_AES_256_CBC_SHA" },
278     { 0x00C021, "TLS_SRP_SHA_RSA_WITH_AES_256_CBC_SHA" },
279     { 0x00C022, "TLS_SRP_SHA_DSS_WITH_AES_256_CBC_SHA" },
280     /* RFC 5589 */
281     { 0x00C023, "TLS_ECDHE_ECDSA_WITH_AES_128_CBC_SHA256" },
282     { 0x00C024, "TLS_ECDHE_ECDSA_WITH_AES_256_CBC_SHA384" },
283     { 0x00C025, "TLS_ECDH_ECDSA_WITH_AES_128_CBC_SHA256" },
284     { 0x00C026, "TLS_ECDH_ECDSA_WITH_AES_256_CBC_SHA384" },
285     { 0x00C027, "TLS_ECDHE_RSA_WITH_AES_128_CBC_SHA256" },
286     { 0x00C028, "TLS_ECDHE_RSA_WITH_AES_256_CBC_SHA384" },
287     { 0x00C029, "TLS_ECDH_RSA_WITH_AES_128_CBC_SHA256" },
288     { 0x00C02A, "TLS_ECDH_RSA_WITH_AES_256_CBC_SHA384" },
289     { 0x00C02B, "TLS_ECDHE_ECDSA_WITH_AES_128_GCM_SHA256" },
290     { 0x00C02C, "TLS_ECDHE_ECDSA_WITH_AES_256_GCM_SHA384" },
291     { 0x00C02D, "TLS_ECDH_ECDSA_WITH_AES_128_GCM_SHA256" },
292     { 0x00C02E, "TLS_ECDH_ECDSA_WITH_AES_256_GCM_SHA384" },
293     { 0x00C02F, "TLS_ECDHE_RSA_WITH_AES_128_GCM_SHA256" },
294     { 0x00C030, "TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384" },
295     { 0x00C031, "TLS_ECDH_RSA_WITH_AES_128_GCM_SHA256" },
296     { 0x00C032, "TLS_ECDH_RSA_WITH_AES_256_GCM_SHA384" },
297     /* RFC 5489 */
298     { 0x00C033, "TLS_ECDHE_PSK_WITH_RC4_128_SHA" },
299     { 0x00C034, "TLS_ECDHE_PSK_WITH_3DES_EDE_CBC_SHA" },
300     { 0x00C035, "TLS_ECDHE_PSK_WITH_AES_128_CBC_SHA" },
301     { 0x00C036, "TLS_ECDHE_PSK_WITH_AES_256_CBC_SHA" },
302     { 0x00C037, "TLS_ECDHE_PSK_WITH_AES_128_CBC_SHA256" },
303     { 0x00C038, "TLS_ECDHE_PSK_WITH_AES_256_CBC_SHA384" },
304     { 0x00C039, "TLS_ECDHE_PSK_WITH_NULL_SHA" },
305     { 0x00C03A, "TLS_ECDHE_PSK_WITH_NULL_SHA256" },
306     { 0x00C03B, "TLS_ECDHE_PSK_WITH_NULL_SHA384" },
307         /*      0xC0,0x3C-FF Unassigned
308                 0xC1-FD,* Unassigned
309                 0xFE,0x00-FD Unassigned
310                 0xFE,0xFE-FF Reserved to avoid conflicts with widely deployed implementations [Pasi_Eronen]
311                 0xFF,0x00-FF Reserved for Private Use [RFC5246]
312                 */
313
314     /* these from http://www.mozilla.org/projects/
315          security/pki/nss/ssl/fips-ssl-ciphersuites.html */
316     { 0x00fefe, "SSL_RSA_FIPS_WITH_DES_CBC_SHA"},
317     { 0x00feff, "SSL_RSA_FIPS_WITH_3DES_EDE_CBC_SHA" },
318     { 0x00ffe0, "SSL_RSA_FIPS_WITH_3DES_EDE_CBC_SHA" },
319     { 0x00ffe1, "SSL_RSA_FIPS_WITH_DES_CBC_SHA"},
320     /* note that ciphersuites of {0x00????} are TLS cipher suites in
321      * a sslv2 client hello message; the ???? above is the two-byte
322      * tls cipher suite id
323      */
324
325     { 0x010080, "SSL2_RC4_128_WITH_MD5" },
326     { 0x020080, "SSL2_RC4_128_EXPORT40_WITH_MD5" },
327     { 0x030080, "SSL2_RC2_CBC_128_CBC_WITH_MD5" },
328     { 0x040080, "SSL2_RC2_CBC_128_CBC_WITH_MD5" },
329     { 0x050080, "SSL2_IDEA_128_CBC_WITH_MD5" },
330     { 0x060040, "SSL2_DES_64_CBC_WITH_MD5" },
331     { 0x0700c0, "SSL2_DES_192_EDE3_CBC_WITH_MD5" },
332     { 0x080080, "SSL2_RC4_64_WITH_MD5" },
333
334     /* Microsoft's old PCT protocol. These are from Eric Rescorla's
335        book "SSL and TLS" */
336     { 0x800001, "PCT_SSL_CERT_TYPE | PCT1_CERT_X509" },
337     { 0x800003, "PCT_SSL_CERT_TYPE | PCT1_CERT_X509_CHAIN" },
338     { 0x810001, "PCT_SSL_HASH_TYPE | PCT1_HASH_MD5" },
339     { 0x810003, "PCT_SSL_HASH_TYPE | PCT1_HASH_SHA" },
340     { 0x820001, "PCT_SSL_EXCH_TYPE | PCT1_EXCH_RSA_PKCS1" },
341     { 0x830004, "PCT_SSL_CIPHER_TYPE_1ST_HALF | PCT1_CIPHER_RC4" },
342     { 0x842840, "PCT_SSL_CIPHER_TYPE_2ND_HALF | PCT1_ENC_BITS_40 | PCT1_MAC_BITS_128" },
343     { 0x848040, "PCT_SSL_CIPHER_TYPE_2ND_HALF | PCT1_ENC_BITS_128 | PCT1_MAC_BITS_128" },
344     { 0x8f8001, "PCT_SSL_COMPAT | PCT_VERSION_1" },
345     { 0x00, NULL }
346 };
347
348 value_string_ext ssl_20_cipher_suites_ext = VALUE_STRING_EXT_INIT(ssl_20_cipher_suites);
349
350
351 const value_string ssl_extension_curves[] = {
352     { 1, "sect163k1" },
353     { 2, "sect163r1" },
354     { 3, "sect163r2" },
355     { 4, "sect193r1" },
356     { 5, "sect193r2" },
357     { 6, "sect233k1" },
358     { 7, "sect233r1" },
359     { 8, "sect239k1" },
360     { 9, "sect283k1" },
361     { 10, "sect283r1" },
362     { 11, "sect409k1" },
363     { 12, "sect409r1" },
364     { 13, "sect571k1" },
365     { 14, "sect571r1" },
366     { 15, "secp160k1" },
367     { 16, "secp160r1" },
368     { 17, "secp160r2" },
369     { 18, "secp192k1" },
370     { 19, "secp192r1" },
371     { 20, "secp224k1" },
372     { 21, "secp224r1" },
373     { 22, "secp256k1" },
374     { 23, "secp256r1" },
375     { 24, "secp384r1" },
376     { 25, "secp521r1" },
377     { 0xFF01, "arbitrary_explicit_prime_curves" },
378     { 0xFF02, "arbitrary_explicit_char2_curves" },
379     { 0x00, NULL }
380 };
381
382 const value_string ssl_extension_ec_point_formats[] = {
383     { 0, "uncompressed" },
384     { 1, "ansiX962_compressed_prime" },
385     { 2, "ansiX962_compressed_char2" },
386     { 0x00, NULL }
387 };
388
389 const value_string ssl_20_certificate_type[] = {
390     { 0x00, "N/A" },
391     { 0x01, "X.509 Certificate" },
392     { 0x00, NULL }
393 };
394
395 const value_string ssl_31_content_type[] = {
396     { 20, "Change Cipher Spec" },
397     { 21, "Alert" },
398     { 22, "Handshake" },
399     { 23, "Application Data" },
400     { 0x00, NULL }
401 };
402
403 const value_string ssl_versions[] = {
404     { 0xfeff, "DTLS 1.0" },
405     { 0x0100, "DTLS 1.0 (OpenSSL pre 0.9.8f)" },
406     { 0x0303, "TLS 1.2" },
407     { 0x0302, "TLS 1.1" },
408     { 0x0301, "TLS 1.0" },
409     { 0x0300, "SSL 3.0" },
410     { 0x0002, "SSL 2.0" },
411     { 0x00, NULL }
412 };
413
414 #if 0
415 /* XXX - would be used if we dissected the body of a Change Cipher Spec
416    message. */
417 const value_string ssl_31_change_cipher_spec[] = {
418     { 1, "Change Cipher Spec" },
419     { 0x00, NULL }
420 };
421 #endif
422
423 const value_string ssl_31_alert_level[] = {
424     { 1, "Warning" },
425     { 2, "Fatal" },
426     { 0x00, NULL }
427 };
428
429 const value_string ssl_31_alert_description[] = {
430     {  0,  "Close Notify" },
431     { 10,  "Unexpected Message" },
432     { 20,  "Bad Record MAC" },
433     { 21,  "Decryption Failed" },
434     { 22,  "Record Overflow" },
435     { 30,  "Decompression Failure" },
436     { 40,  "Handshake Failure" },
437     { 41,  "No Certificate" },
438     { 42,  "Bad Certificate" },
439     { 43,  "Unsupported Certificate" },
440     { 44,  "Certificate Revoked" },
441     { 45,  "Certificate Expired" },
442     { 46,  "Certificate Unknown" },
443     { 47,  "Illegal Parameter" },
444     { 48,  "Unknown CA" },
445     { 49,  "Access Denied" },
446     { 50,  "Decode Error" },
447     { 51,  "Decrypt Error" },
448     { 60,  "Export Restriction" },
449     { 70,  "Protocol Version" },
450     { 71,  "Insufficient Security" },
451     { 80,  "Internal Error" },
452     { 90,  "User Canceled" },
453     { 100, "No Renegotiation" },
454     { 110, "Unsupported Extension" },
455     { 111, "Certificate Unobtainable" },
456     { 112, "Unrecognized Name" },
457     { 113, "Bad Certificate Status Response" },
458     { 114, "Bad Certificate Hash Value" },
459     { 115, "Unknown PSK Identity" },
460     { 0x00, NULL }
461 };
462
463 const value_string ssl_31_handshake_type[] = {
464     { SSL_HND_HELLO_REQUEST,     "Hello Request" },
465     { SSL_HND_CLIENT_HELLO,      "Client Hello" },
466     { SSL_HND_SERVER_HELLO,      "Server Hello" },
467     { SSL_HND_HELLO_VERIFY_REQUEST, "Hello Verify Request"},
468     { SSL_HND_CERTIFICATE,       "Certificate" },
469     { SSL_HND_SERVER_KEY_EXCHG,  "Server Key Exchange" },
470     { SSL_HND_CERT_REQUEST,      "Certificate Request" },
471     { SSL_HND_SVR_HELLO_DONE,    "Server Hello Done" },
472     { SSL_HND_CERT_VERIFY,       "Certificate Verify" },
473     { SSL_HND_CLIENT_KEY_EXCHG,  "Client Key Exchange" },
474     { SSL_HND_FINISHED,          "Finished" },
475     { SSL_HND_CERT_STATUS,       "Certificate Status" },
476     { 0x00, NULL }
477 };
478
479 const value_string ssl_31_compression_method[] = {
480     { 0, "null" },
481     { 1, "DEFLATE" },
482     { 64, "LZS" },
483     { 0x00, NULL }
484 };
485
486 #if 0
487 /* XXX - would be used if we dissected a Signature, as would be
488    seen in a server key exchange or certificate verify message. */
489 const value_string ssl_31_key_exchange_algorithm[] = {
490     { 0, "RSA" },
491     { 1, "Diffie Hellman" },
492     { 0x00, NULL }
493 };
494
495 const value_string ssl_31_signature_algorithm[] = {
496     { 0, "Anonymous" },
497     { 1, "RSA" },
498     { 2, "DSA" },
499     { 0x00, NULL }
500 };
501 #endif
502
503 const value_string ssl_31_client_certificate_type[] = {
504     { 1, "RSA Sign" },
505     { 2, "DSS Sign" },
506     { 3, "RSA Fixed DH" },
507     { 4, "DSS Fixed DH" },
508     { 64, "ECDSA Sign" },
509     { 65, "RSA Fixed ECDH" },
510     { 66, "ECDSA Fixed ECDH" },
511     { 0x00, NULL }
512 };
513
514 #if 0
515 /* XXX - would be used if we dissected exchange keys, as would be
516    seen in a client key exchange message. */
517 const value_string ssl_31_public_value_encoding[] = {
518     { 0, "Implicit" },
519     { 1, "Explicit" },
520     { 0x00, NULL }
521 };
522 #endif
523
524 /* http://www.iana.org/assignments/tls-parameters/tls-parameters.xhtml */
525 /* Note: sorted by ascending value so value_string_ext fcns can do a binary search */
526 static const value_string ssl_31_ciphersuite[] = {
527     /* RFC 2246, RFC 4346, RFC 5246 */
528     { 0x0000, "TLS_NULL_WITH_NULL_NULL" },
529     { 0x0001, "TLS_RSA_WITH_NULL_MD5" },
530     { 0x0002, "TLS_RSA_WITH_NULL_SHA" },
531     { 0x0003, "TLS_RSA_EXPORT_WITH_RC4_40_MD5" },
532     { 0x0004, "TLS_RSA_WITH_RC4_128_MD5" },
533     { 0x0005, "TLS_RSA_WITH_RC4_128_SHA" },
534     { 0x0006, "TLS_RSA_EXPORT_WITH_RC2_CBC_40_MD5" },
535     { 0x0007, "TLS_RSA_WITH_IDEA_CBC_SHA" },
536     { 0x0008, "TLS_RSA_EXPORT_WITH_DES40_CBC_SHA" },
537     { 0x0009, "TLS_RSA_WITH_DES_CBC_SHA" },
538     { 0x000a, "TLS_RSA_WITH_3DES_EDE_CBC_SHA" },
539     { 0x000b, "TLS_DH_DSS_EXPORT_WITH_DES40_CBC_SHA" },
540     { 0x000c, "TLS_DH_DSS_WITH_DES_CBC_SHA" },
541     { 0x000d, "TLS_DH_DSS_WITH_3DES_EDE_CBC_SHA" },
542     { 0x000e, "TLS_DH_RSA_EXPORT_WITH_DES40_CBC_SHA" },
543     { 0x000f, "TLS_DH_RSA_WITH_DES_CBC_SHA" },
544     { 0x0010, "TLS_DH_RSA_WITH_3DES_EDE_CBC_SHA" },
545     { 0x0011, "TLS_DHE_DSS_EXPORT_WITH_DES40_CBC_SHA" },
546     { 0x0012, "TLS_DHE_DSS_WITH_DES_CBC_SHA" },
547     { 0x0013, "TLS_DHE_DSS_WITH_3DES_EDE_CBC_SHA" },
548     { 0x0014, "TLS_DHE_RSA_EXPORT_WITH_DES40_CBC_SHA" },
549     { 0x0015, "TLS_DHE_RSA_WITH_DES_CBC_SHA" },
550     { 0x0016, "TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA" },
551     { 0x0017, "TLS_DH_anon_EXPORT_WITH_RC4_40_MD5" },
552     { 0x0018, "TLS_DH_anon_WITH_RC4_128_MD5" },
553     { 0x0019, "TLS_DH_anon_EXPORT_WITH_DES40_CBC_SHA" },
554     { 0x001a, "TLS_DH_anon_WITH_DES_CBC_SHA" },
555     { 0x001b, "TLS_DH_anon_WITH_3DES_EDE_CBC_SHA" },
556
557     { 0x001c, "SSL_FORTEZZA_KEA_WITH_NULL_SHA" },
558     { 0x001d, "SSL_FORTEZZA_KEA_WITH_FORTEZZA_CBC_SHA" },
559 #if 0 /* Because it clashes with KRB5, is never used any more, and is safe
560          to remove according to David Hopwood <david.hopwood@zetnet.co.uk>
561          of the ietf-tls list */
562     { 0x001e, "SSL_FORTEZZA_KEA_WITH_RC4_128_SHA" },
563 #endif
564
565     /* RFC 2712 */
566     { 0x001E, "TLS_KRB5_WITH_DES_CBC_SHA" },
567     { 0x001F, "TLS_KRB5_WITH_3DES_EDE_CBC_SHA" },
568     { 0x0020, "TLS_KRB5_WITH_RC4_128_SHA" },
569     { 0x0021, "TLS_KRB5_WITH_IDEA_CBC_SHA" },
570     { 0x0022, "TLS_KRB5_WITH_DES_CBC_MD5" },
571     { 0x0023, "TLS_KRB5_WITH_3DES_EDE_CBC_MD5" },
572     { 0x0024, "TLS_KRB5_WITH_RC4_128_MD5" },
573     { 0x0025, "TLS_KRB5_WITH_IDEA_CBC_MD5" },
574     { 0x0026, "TLS_KRB5_EXPORT_WITH_DES_CBC_40_SHA" },
575     { 0x0027, "TLS_KRB5_EXPORT_WITH_RC2_CBC_40_SHA" },
576     { 0x0028, "TLS_KRB5_EXPORT_WITH_RC4_40_SHA" },
577     { 0x0029, "TLS_KRB5_EXPORT_WITH_DES_CBC_40_MD5" },
578     { 0x002A, "TLS_KRB5_EXPORT_WITH_RC2_CBC_40_MD5" },
579     { 0x002B, "TLS_KRB5_EXPORT_WITH_RC4_40_MD5" },
580
581     /* RFC 4785 */
582     { 0x002C, "TLS_PSK_WITH_NULL_SHA" },
583     { 0x002D, "TLS_DHE_PSK_WITH_NULL_SHA" },
584     { 0x002E, "TLS_RSA_PSK_WITH_NULL_SHA" },
585
586     /* RFC 5246 */
587     { 0x002F, "TLS_RSA_WITH_AES_128_CBC_SHA" },
588     { 0x0030, "TLS_DH_DSS_WITH_AES_128_CBC_SHA" },
589     { 0x0031, "TLS_DH_RSA_WITH_AES_128_CBC_SHA" },
590     { 0x0032, "TLS_DHE_DSS_WITH_AES_128_CBC_SHA" },
591     { 0x0033, "TLS_DHE_RSA_WITH_AES_128_CBC_SHA" },
592     { 0x0034, "TLS_DH_anon_WITH_AES_128_CBC_SHA" },
593     { 0x0035, "TLS_RSA_WITH_AES_256_CBC_SHA" },
594     { 0x0036, "TLS_DH_DSS_WITH_AES_256_CBC_SHA" },
595     { 0x0037, "TLS_DH_RSA_WITH_AES_256_CBC_SHA" },
596     { 0x0038, "TLS_DHE_DSS_WITH_AES_256_CBC_SHA" },
597     { 0x0039, "TLS_DHE_RSA_WITH_AES_256_CBC_SHA" },
598     { 0x003A, "TLS_DH_anon_WITH_AES_256_CBC_SHA" },
599     { 0x003B, "TLS_RSA_WITH_NULL_SHA256" },
600     { 0x003C, "TLS_RSA_WITH_AES_128_CBC_SHA256" },
601     { 0x003D, "TLS_RSA_WITH_AES_256_CBC_SHA256" },
602     { 0x003E, "TLS_DH_DSS_WITH_AES_128_CBC_SHA256" },
603     { 0x003F, "TLS_DH_RSA_WITH_AES_128_CBC_SHA256" },
604     { 0x0040, "TLS_DHE_DSS_WITH_AES_128_CBC_SHA256" },
605
606     /* RFC 4132 */
607     { 0x0041, "TLS_RSA_WITH_CAMELLIA_128_CBC_SHA" },
608     { 0x0042, "TLS_DH_DSS_WITH_CAMELLIA_128_CBC_SHA" },
609     { 0x0043, "TLS_DH_RSA_WITH_CAMELLIA_128_CBC_SHA" },
610     { 0x0044, "TLS_DHE_DSS_WITH_CAMELLIA_128_CBC_SHA" },
611     { 0x0045, "TLS_DHE_RSA_WITH_CAMELLIA_128_CBC_SHA" },
612     { 0x0046, "TLS_DH_anon_WITH_CAMELLIA_128_CBC_SHA" },
613
614     /* 0x00,0x60-66 Reserved to avoid conflicts with widely deployed implementations  */
615     /* --- ??? --- */
616     { 0x0060, "TLS_RSA_EXPORT1024_WITH_RC4_56_MD5" },
617     { 0x0061, "TLS_RSA_EXPORT1024_WITH_RC2_CBC_56_MD5" },
618     /* draft-ietf-tls-56-bit-ciphersuites-01.txt */
619     { 0x0062, "TLS_RSA_EXPORT1024_WITH_DES_CBC_SHA" },
620     { 0x0063, "TLS_DHE_DSS_EXPORT1024_WITH_DES_CBC_SHA" },
621     { 0x0064, "TLS_RSA_EXPORT1024_WITH_RC4_56_SHA" },
622     { 0x0065, "TLS_DHE_DSS_EXPORT1024_WITH_RC4_56_SHA" },
623     { 0x0066, "TLS_DHE_DSS_WITH_RC4_128_SHA" },
624     /* --- ??? ---*/
625
626     { 0x0067, "TLS_DHE_RSA_WITH_AES_128_CBC_SHA256" },
627     { 0x0068, "TLS_DH_DSS_WITH_AES_256_CBC_SHA256" },
628     { 0x0069, "TLS_DH_RSA_WITH_AES_256_CBC_SHA256" },
629     { 0x006A, "TLS_DHE_DSS_WITH_AES_256_CBC_SHA256" },
630     { 0x006B, "TLS_DHE_RSA_WITH_AES_256_CBC_SHA256" },
631     { 0x006C, "TLS_DH_anon_WITH_AES_128_CBC_SHA256" },
632     { 0x006D, "TLS_DH_anon_WITH_AES_256_CBC_SHA256" },
633
634
635     /* RFC 4132 */
636     { 0x0084, "TLS_RSA_WITH_CAMELLIA_256_CBC_SHA" },
637     { 0x0085, "TLS_DH_DSS_WITH_CAMELLIA_256_CBC_SHA" },
638     { 0x0086, "TLS_DH_RSA_WITH_CAMELLIA_256_CBC_SHA" },
639     { 0x0087, "TLS_DHE_DSS_WITH_CAMELLIA_256_CBC_SHA" },
640     { 0x0088, "TLS_DHE_RSA_WITH_CAMELLIA_256_CBC_SHA" },
641     { 0x0089, "TLS_DH_anon_WITH_CAMELLIA_256_CBC_SHA" },
642
643     /* RFC 4279 */
644     { 0x008A, "TLS_PSK_WITH_RC4_128_SHA" },
645     { 0x008B, "TLS_PSK_WITH_3DES_EDE_CBC_SHA" },
646     { 0x008C, "TLS_PSK_WITH_AES_128_CBC_SHA" },
647     { 0x008D, "TLS_PSK_WITH_AES_256_CBC_SHA" },
648     { 0x008E, "TLS_DHE_PSK_WITH_RC4_128_SHA" },
649     { 0x008F, "TLS_DHE_PSK_WITH_3DES_EDE_CBC_SHA" },
650     { 0x0090, "TLS_DHE_PSK_WITH_AES_128_CBC_SHA" },
651     { 0x0091, "TLS_DHE_PSK_WITH_AES_256_CBC_SHA" },
652     { 0x0092, "TLS_RSA_PSK_WITH_RC4_128_SHA" },
653     { 0x0093, "TLS_RSA_PSK_WITH_3DES_EDE_CBC_SHA" },
654     { 0x0094, "TLS_RSA_PSK_WITH_AES_128_CBC_SHA" },
655     { 0x0095, "TLS_RSA_PSK_WITH_AES_256_CBC_SHA" },
656
657     /* RFC 4162 */
658     { 0x0096, "TLS_RSA_WITH_SEED_CBC_SHA" },
659     { 0x0097, "TLS_DH_DSS_WITH_SEED_CBC_SHA" },
660     { 0x0098, "TLS_DH_RSA_WITH_SEED_CBC_SHA" },
661     { 0x0099, "TLS_DHE_DSS_WITH_SEED_CBC_SHA" },
662     { 0x009A, "TLS_DHE_RSA_WITH_SEED_CBC_SHA" },
663     { 0x009B, "TLS_DH_anon_WITH_SEED_CBC_SHA" },
664
665     /* RFC 5288 */
666     { 0x009C, "TLS_RSA_WITH_AES_128_GCM_SHA256" },
667     { 0x009D, "TLS_RSA_WITH_AES_256_GCM_SHA384" },
668     { 0x009E, "TLS_DHE_RSA_WITH_AES_128_GCM_SHA256" },
669     { 0x009F, "TLS_DHE_RSA_WITH_AES_256_GCM_SHA384" },
670     { 0x00A0, "TLS_DH_RSA_WITH_AES_128_GCM_SHA256" },
671     { 0x00A1, "TLS_DH_RSA_WITH_AES_256_GCM_SHA384" },
672     { 0x00A2, "TLS_DHE_DSS_WITH_AES_128_GCM_SHA256" },
673     { 0x00A3, "TLS_DHE_DSS_WITH_AES_256_GCM_SHA384" },
674     { 0x00A4, "TLS_DH_DSS_WITH_AES_128_GCM_SHA256" },
675     { 0x00A5, "TLS_DH_DSS_WITH_AES_256_GCM_SHA384" },
676     { 0x00A6, "TLS_DH_anon_WITH_AES_128_GCM_SHA256" },
677     { 0x00A7, "TLS_DH_anon_WITH_AES_256_GCM_SHA384" },
678
679     /* RFC 5487 */
680     { 0x00A8, "TLS_PSK_WITH_AES_128_GCM_SHA256" },
681     { 0x00A9, "TLS_PSK_WITH_AES_256_GCM_SHA384" },
682     { 0x00AA, "TLS_DHE_PSK_WITH_AES_128_GCM_SHA256" },
683     { 0x00AB, "TLS_DHE_PSK_WITH_AES_256_GCM_SHA384" },
684     { 0x00AC, "TLS_RSA_PSK_WITH_AES_128_GCM_SHA256" },
685     { 0x00AD, "TLS_RSA_PSK_WITH_AES_256_GCM_SHA384" },
686     { 0x00AE, "TLS_PSK_WITH_AES_128_CBC_SHA256" },
687     { 0x00AF, "TLS_PSK_WITH_AES_256_CBC_SHA384" },
688     { 0x00B0, "TLS_PSK_WITH_NULL_SHA256" },
689     { 0x00B1, "TLS_PSK_WITH_NULL_SHA384" },
690     { 0x00B2, "TLS_DHE_PSK_WITH_AES_128_CBC_SHA256" },
691     { 0x00B3, "TLS_DHE_PSK_WITH_AES_256_CBC_SHA384" },
692     { 0x00B4, "TLS_DHE_PSK_WITH_NULL_SHA256" },
693     { 0x00B5, "TLS_DHE_PSK_WITH_NULL_SHA384" },
694     { 0x00B6, "TLS_RSA_PSK_WITH_AES_128_CBC_SHA256" },
695     { 0x00B7, "TLS_RSA_PSK_WITH_AES_256_CBC_SHA384" },
696     { 0x00B8, "TLS_RSA_PSK_WITH_NULL_SHA256" },
697     { 0x00B9, "TLS_RSA_PSK_WITH_NULL_SHA384" },
698
699     /* From RFC 5932 */
700     { 0x00BA, "TLS_RSA_WITH_CAMELLIA_128_CBC_SHA256" },
701     { 0x00BB, "TLS_DH_DSS_WITH_CAMELLIA_128_CBC_SHA256" },
702     { 0x00BC, "TLS_DH_RSA_WITH_CAMELLIA_128_CBC_SHA256" },
703     { 0x00BD, "TLS_DHE_DSS_WITH_CAMELLIA_128_CBC_SHA256" },
704     { 0x00BE, "TLS_DHE_RSA_WITH_CAMELLIA_128_CBC_SHA256" },
705     { 0x00BF, "TLS_DH_anon_WITH_CAMELLIA_128_CBC_SHA256" },
706     { 0x00C0, "TLS_RSA_WITH_CAMELLIA_256_CBC_SHA256" },
707     { 0x00C1, "TLS_DH_DSS_WITH_CAMELLIA_256_CBC_SHA256" },
708     { 0x00C2, "TLS_DH_RSA_WITH_CAMELLIA_256_CBC_SHA256" },
709     { 0x00C3, "TLS_DHE_DSS_WITH_CAMELLIA_256_CBC_SHA256" },
710     { 0x00C4, "TLS_DHE_RSA_WITH_CAMELLIA_256_CBC_SHA256" },
711     { 0x00C5, "TLS_DH_anon_WITH_CAMELLIA_256_CBC_SHA256" },
712         /* 0x00,0xC6-FE Unassigned  */
713     /* From RFC 5746 */
714     { 0x0000FF, "TLS_EMPTY_RENEGOTIATION_INFO_SCSV" },
715         /* 0x01-BF,* Unassigned */
716     /* From RFC 4492 */
717     { 0xc001, "TLS_ECDH_ECDSA_WITH_NULL_SHA" },
718     { 0xc002, "TLS_ECDH_ECDSA_WITH_RC4_128_SHA" },
719     { 0xc003, "TLS_ECDH_ECDSA_WITH_3DES_EDE_CBC_SHA" },
720     { 0xc004, "TLS_ECDH_ECDSA_WITH_AES_128_CBC_SHA" },
721     { 0xc005, "TLS_ECDH_ECDSA_WITH_AES_256_CBC_SHA" },
722     { 0xc006, "TLS_ECDHE_ECDSA_WITH_NULL_SHA" },
723     { 0xc007, "TLS_ECDHE_ECDSA_WITH_RC4_128_SHA" },
724     { 0xc008, "TLS_ECDHE_ECDSA_WITH_3DES_EDE_CBC_SHA" },
725     { 0xc009, "TLS_ECDHE_ECDSA_WITH_AES_128_CBC_SHA" },
726     { 0xc00a, "TLS_ECDHE_ECDSA_WITH_AES_256_CBC_SHA" },
727     { 0xc00b, "TLS_ECDH_RSA_WITH_NULL_SHA" },
728     { 0xc00c, "TLS_ECDH_RSA_WITH_RC4_128_SHA" },
729     { 0xc00d, "TLS_ECDH_RSA_WITH_3DES_EDE_CBC_SHA" },
730     { 0xc00e, "TLS_ECDH_RSA_WITH_AES_128_CBC_SHA" },
731     { 0xc00f, "TLS_ECDH_RSA_WITH_AES_256_CBC_SHA" },
732     { 0xc010, "TLS_ECDHE_RSA_WITH_NULL_SHA" },
733     { 0xc011, "TLS_ECDHE_RSA_WITH_RC4_128_SHA" },
734     { 0xc012, "TLS_ECDHE_RSA_WITH_3DES_EDE_CBC_SHA" },
735     { 0xc013, "TLS_ECDHE_RSA_WITH_AES_128_CBC_SHA" },
736     { 0xc014, "TLS_ECDHE_RSA_WITH_AES_256_CBC_SHA" },
737     { 0xc015, "TLS_ECDH_anon_WITH_NULL_SHA" },
738     { 0xc016, "TLS_ECDH_anon_WITH_RC4_128_SHA" },
739     { 0xc017, "TLS_ECDH_anon_WITH_3DES_EDE_CBC_SHA" },
740     { 0xc018, "TLS_ECDH_anon_WITH_AES_128_CBC_SHA" },
741     { 0xc019, "TLS_ECDH_anon_WITH_AES_256_CBC_SHA" },
742
743     /* RFC 5054 */
744     { 0xC01A, "TLS_SRP_SHA_WITH_3DES_EDE_CBC_SHA" },
745     { 0xC01B, "TLS_SRP_SHA_RSA_WITH_3DES_EDE_CBC_SHA" },
746     { 0xC01C, "TLS_SRP_SHA_DSS_WITH_3DES_EDE_CBC_SHA" },
747     { 0xC01D, "TLS_SRP_SHA_WITH_AES_128_CBC_SHA" },
748     { 0xC01E, "TLS_SRP_SHA_RSA_WITH_AES_128_CBC_SHA" },
749     { 0xC01F, "TLS_SRP_SHA_DSS_WITH_AES_128_CBC_SHA" },
750     { 0xC020, "TLS_SRP_SHA_WITH_AES_256_CBC_SHA" },
751     { 0xC021, "TLS_SRP_SHA_RSA_WITH_AES_256_CBC_SHA" },
752     { 0xC022, "TLS_SRP_SHA_DSS_WITH_AES_256_CBC_SHA" },
753
754     /* RFC 5589 */
755     { 0xC023, "TLS_ECDHE_ECDSA_WITH_AES_128_CBC_SHA256" },
756     { 0xC024, "TLS_ECDHE_ECDSA_WITH_AES_256_CBC_SHA384" },
757     { 0xC025, "TLS_ECDH_ECDSA_WITH_AES_128_CBC_SHA256" },
758     { 0xC026, "TLS_ECDH_ECDSA_WITH_AES_256_CBC_SHA384" },
759     { 0xC027, "TLS_ECDHE_RSA_WITH_AES_128_CBC_SHA256" },
760     { 0xC028, "TLS_ECDHE_RSA_WITH_AES_256_CBC_SHA384" },
761     { 0xC029, "TLS_ECDH_RSA_WITH_AES_128_CBC_SHA256" },
762     { 0xC02A, "TLS_ECDH_RSA_WITH_AES_256_CBC_SHA384" },
763     { 0xC02B, "TLS_ECDHE_ECDSA_WITH_AES_128_GCM_SHA256" },
764     { 0xC02C, "TLS_ECDHE_ECDSA_WITH_AES_256_GCM_SHA384" },
765     { 0xC02D, "TLS_ECDH_ECDSA_WITH_AES_128_GCM_SHA256" },
766     { 0xC02E, "TLS_ECDH_ECDSA_WITH_AES_256_GCM_SHA384" },
767     { 0xC02F, "TLS_ECDHE_RSA_WITH_AES_128_GCM_SHA256" },
768     { 0xC030, "TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384" },
769     { 0xC031, "TLS_ECDH_RSA_WITH_AES_128_GCM_SHA256" },
770     { 0xC032, "TLS_ECDH_RSA_WITH_AES_256_GCM_SHA384" },
771
772     /* RFC 5489 */
773     { 0xC033, "TLS_ECDHE_PSK_WITH_RC4_128_SHA" },
774     { 0xC034, "TLS_ECDHE_PSK_WITH_3DES_EDE_CBC_SHA" },
775     { 0xC035, "TLS_ECDHE_PSK_WITH_AES_128_CBC_SHA" },
776     { 0xC036, "TLS_ECDHE_PSK_WITH_AES_256_CBC_SHA" },
777     { 0xC037, "TLS_ECDHE_PSK_WITH_AES_128_CBC_SHA256" },
778     { 0xC038, "TLS_ECDHE_PSK_WITH_AES_256_CBC_SHA384" },
779     { 0xC039, "TLS_ECDHE_PSK_WITH_NULL_SHA" },
780     { 0xC03A, "TLS_ECDHE_PSK_WITH_NULL_SHA256" },
781     { 0xC03B, "TLS_ECDHE_PSK_WITH_NULL_SHA384" },
782 /*
783 0xC0,0x3C-FF Unassigned
784 0xC1-FD,* Unassigned
785 0xFE,0x00-FD Unassigned
786 0xFE,0xFE-FF Reserved to avoid conflicts with widely deployed implementations [Pasi_Eronen]
787 0xFF,0x00-FF Reserved for Private Use [RFC5246]
788 */
789     /* these from http://www.mozilla.org/projects/
790          security/pki/nss/ssl/fips-ssl-ciphersuites.html */
791     { 0xfefe, "SSL_RSA_FIPS_WITH_DES_CBC_SHA"},
792     { 0xfeff, "SSL_RSA_FIPS_WITH_3DES_EDE_CBC_SHA" },
793     { 0xffe0, "SSL_RSA_FIPS_WITH_3DES_EDE_CBC_SHA" },
794     { 0xffe1, "SSL_RSA_FIPS_WITH_DES_CBC_SHA"},
795     /* note that ciphersuites 0xff00 - 0xffff are private */
796     { 0x00, NULL }
797 };
798
799 value_string_ext ssl_31_ciphersuite_ext = VALUE_STRING_EXT_INIT(ssl_31_ciphersuite);
800
801
802 const value_string pct_msg_types[] = {
803     { PCT_MSG_CLIENT_HELLO,         "Client Hello" },
804     { PCT_MSG_SERVER_HELLO,         "Server Hello" },
805     { PCT_MSG_CLIENT_MASTER_KEY,    "Client Master Key" },
806     { PCT_MSG_SERVER_VERIFY,        "Server Verify" },
807     { PCT_MSG_ERROR,                "Error" },
808     { 0x00, NULL }
809 };
810
811 const value_string pct_cipher_type[] = {
812     { PCT_CIPHER_DES, "DES" },
813     { PCT_CIPHER_IDEA, "IDEA" },
814     { PCT_CIPHER_RC2, "RC2" },
815     { PCT_CIPHER_RC4, "RC4" },
816     { PCT_CIPHER_DES_112, "DES 112 bit" },
817     { PCT_CIPHER_DES_168, "DES 168 bit" },
818     { 0x00, NULL }
819 };
820
821 const value_string pct_hash_type[] = {
822     { PCT_HASH_MD5, "MD5" },
823     { PCT_HASH_MD5_TRUNC_64, "MD5_TRUNC_64"},
824     { PCT_HASH_SHA, "SHA"},
825     { PCT_HASH_SHA_TRUNC_80, "SHA_TRUNC_80"},
826     { PCT_HASH_DES_DM, "DES_DM"},
827     { 0x00, NULL }
828 };
829
830 const value_string pct_cert_type[] = {
831     { PCT_CERT_NONE, "None" },
832     { PCT_CERT_X509, "X.509" },
833     { PCT_CERT_PKCS7, "PKCS #7" },
834     { 0x00, NULL }
835 };
836 const value_string pct_sig_type[] = {
837     { PCT_SIG_NONE, "None" },
838     { PCT_SIG_RSA_MD5, "MD5" },
839     { PCT_SIG_RSA_SHA, "RSA SHA" },
840     { PCT_SIG_DSA_SHA, "DSA SHA" },
841     { 0x00, NULL }
842 };
843
844 const value_string pct_exch_type[] = {
845     { PCT_EXCH_RSA_PKCS1, "RSA PKCS#1" },
846     { PCT_EXCH_RSA_PKCS1_TOKEN_DES, "RSA PKCS#1 Token DES" },
847     { PCT_EXCH_RSA_PKCS1_TOKEN_DES3, "RSA PKCS#1 Token 3DES" },
848     { PCT_EXCH_RSA_PKCS1_TOKEN_RC2, "RSA PKCS#1 Token RC-2" },
849     { PCT_EXCH_RSA_PKCS1_TOKEN_RC4, "RSA PKCS#1 Token RC-4" },
850     { PCT_EXCH_DH_PKCS3, "DH PKCS#3" },
851     { PCT_EXCH_DH_PKCS3_TOKEN_DES, "DH PKCS#3 Token DES" },
852     { PCT_EXCH_DH_PKCS3_TOKEN_DES3, "DH PKCS#3 Token 3DES" },
853     { PCT_EXCH_FORTEZZA_TOKEN, "Fortezza" },
854     { 0x00, NULL }
855 };
856
857 const value_string pct_error_code[] = {
858     { PCT_ERR_BAD_CERTIFICATE, "PCT_ERR_BAD_CERTIFICATE" },
859     { PCT_ERR_CLIENT_AUTH_FAILED, "PCT_ERR_CLIENT_AUTH_FAILE" },
860     { PCT_ERR_ILLEGAL_MESSAGE, "PCT_ERR_ILLEGAL_MESSAGE" },
861     { PCT_ERR_INTEGRITY_CHECK_FAILED, "PCT_ERR_INTEGRITY_CHECK_FAILED" },
862     { PCT_ERR_SERVER_AUTH_FAILED, "PCT_ERR_SERVER_AUTH_FAILED" },
863     { PCT_ERR_SPECS_MISMATCH, "PCT_ERR_SPECS_MISMATCH" },
864     { 0x00, NULL }
865 };
866
867 /* RFC 4366 */
868 const value_string tls_hello_extension_types[] = {
869     { 0, "server_name" },
870     { 1, "max_fragment_length" },
871     { 2, "client_certificate_url" },
872     { 3, "trusted_ca_keys" },
873     { 4, "truncated_hmac" },
874     { 5, "status_request" },
875     { 6, "user_mapping" },  /* RFC 4681 */
876     { 7, "client_authz" },
877     { 8, "server_authz" },
878     { 9, "cert_type" },  /* RFC 5081 */
879     { SSL_HND_HELLO_EXT_ELLIPTIC_CURVES, "elliptic_curves" },  /* RFC 4492 */
880     { SSL_HND_HELLO_EXT_EC_POINT_FORMATS, "ec_point_formats" },  /* RFC 4492 */
881     { 12, "srp" },  /* RFC 5054 */
882     { 13, "signature_algorithms" },  /* RFC 5246 */
883     { 14, "use_srtp" },
884     { 35, "SessionTicket TLS" },  /* RFC 4507 */
885     { 65281, "renegotiation_info" },
886     { 0, NULL }
887 };
888
889 /* RFC 5246 7.4.1.4.1 */
890 const value_string tls_hash_algorithm[] = {
891     { 0, "None" },
892     { 1, "MD5" },
893     { 2, "SHA1" },
894     { 3, "SHA224" },
895     { 4, "SHA256" },
896     { 5, "SHA384" },
897     { 6, "SHA512" },
898     { 0, NULL }
899 };
900
901 const value_string tls_signature_algorithm[] = {
902     { 0, "Anonymous" },
903     { 1, "RSA" },
904     { 2, "DSA" },
905     { 3, "ECDSA" },
906     { 0, NULL }
907 };
908
909 const value_string tls_cert_status_type[] = {
910     { SSL_HND_CERT_STATUS_TYPE_OCSP, "OCSP" },
911     { 0, NULL }
912 };
913
914 /* we keep this internal to packet-ssl-utils, as there should be
915    no need to access it any other way.
916
917    This also allows us to hide the dependency on zlib.
918 */
919 struct _SslDecompress {
920     gint compression;
921 #ifdef HAVE_LIBZ
922     z_stream istream;
923 #endif
924 };
925
926 static gint
927 ssl_data_alloc(StringInfo* str, size_t len)
928 {
929     str->data = g_malloc(len);
930     /* the allocator can return a null pointer for a size equal to 0,
931      * and that must be allowed */
932     if (len > 0 && !str->data)
933         return -1;
934     str->data_len = (guint) len;
935     return 0;
936 }
937
938 void
939 ssl_data_set(StringInfo* str, const guchar* data, guint len)
940 {
941     memcpy(str->data, data, len);
942     str->data_len = len;
943 }
944
945 #ifdef HAVE_LIBGNUTLS
946
947 static gint ver_major, ver_minor, ver_patch;
948
949 /* hmac abstraction layer */
950 #define SSL_HMAC gcry_md_hd_t
951
952 static inline gint
953 ssl_hmac_init(SSL_HMAC* md, const void * key, gint len, gint algo)
954 {
955     gcry_error_t err;
956     const char *err_str, *err_src;
957     err = gcry_md_open(md,algo, GCRY_MD_FLAG_HMAC);
958     if (err != 0) {
959         err_str = gcry_strerror(err);
960         err_src = gcry_strsource(err);
961         ssl_debug_printf("ssl_hmac_init(): gcry_md_open failed %s/%s", err_str, err_src);
962         return -1;
963     }
964     gcry_md_setkey (*(md), key, len);
965     return 0;
966 }
967 static inline void
968 ssl_hmac_update(SSL_HMAC* md, const void* data, gint len)
969 {
970     gcry_md_write(*(md), data, len);
971 }
972 static inline void
973 ssl_hmac_final(SSL_HMAC* md, guchar* data, guint* datalen)
974 {
975     gint algo;
976     guint len;
977     algo = gcry_md_get_algo (*(md));
978     len = gcry_md_get_algo_dlen(algo);
979     memcpy(data, gcry_md_read(*(md), algo), len);
980     *datalen =len;
981 }
982 static inline void
983 ssl_hmac_cleanup(SSL_HMAC* md)
984 {
985     gcry_md_close(*(md));
986 }
987
988 /* memory digest abstraction layer*/
989 #define SSL_MD gcry_md_hd_t
990
991 static inline gint
992 ssl_md_init(SSL_MD* md, gint algo)
993 {
994     gcry_error_t err;
995     const char *err_str, *err_src;
996     err = gcry_md_open(md,algo, 0);
997     if (err != 0) {
998         err_str = gcry_strerror(err);
999         err_src = gcry_strsource(err);
1000         ssl_debug_printf("ssl_md_init(): gcry_md_open failed %s/%s", err_str, err_src);
1001         return -1;
1002     }
1003     return 0;
1004 }
1005 static inline void
1006 ssl_md_update(SSL_MD* md, guchar* data, gint len)
1007 {
1008     gcry_md_write(*(md), data, len);
1009 }
1010 static inline void
1011 ssl_md_final(SSL_MD* md, guchar* data, guint* datalen)
1012 {
1013     gint algo;
1014     gint len;
1015     algo = gcry_md_get_algo (*(md));
1016     len = gcry_md_get_algo_dlen (algo);
1017     memcpy(data, gcry_md_read(*(md),  algo), len);
1018     *datalen = len;
1019 }
1020 static inline void
1021 ssl_md_cleanup(SSL_MD* md)
1022 {
1023     gcry_md_close(*(md));
1024 }
1025
1026 /* md5 /sha abstraction layer */
1027 #define SSL_SHA_CTX gcry_md_hd_t
1028 #define SSL_MD5_CTX gcry_md_hd_t
1029
1030 static inline void
1031 ssl_sha_init(SSL_SHA_CTX* md)
1032 {
1033     gcry_md_open(md,GCRY_MD_SHA1, 0);
1034 }
1035 static inline void
1036 ssl_sha_update(SSL_SHA_CTX* md, guchar* data, gint len)
1037 {
1038     gcry_md_write(*(md), data, len);
1039 }
1040 static inline void
1041 ssl_sha_final(guchar* buf, SSL_SHA_CTX* md)
1042 {
1043     memcpy(buf, gcry_md_read(*(md),  GCRY_MD_SHA1),
1044         gcry_md_get_algo_dlen(GCRY_MD_SHA1));
1045 }
1046 static inline void
1047 ssl_sha_cleanup(SSL_SHA_CTX* md)
1048 {
1049     gcry_md_close(*(md));
1050 }
1051
1052 static inline gint
1053 ssl_md5_init(SSL_MD5_CTX* md)
1054 {
1055     return gcry_md_open(md,GCRY_MD_MD5, 0);
1056 }
1057 static inline void
1058 ssl_md5_update(SSL_MD5_CTX* md, guchar* data, gint len)
1059 {
1060     gcry_md_write(*(md), data, len);
1061 }
1062 static inline void
1063 ssl_md5_final(guchar* buf, SSL_MD5_CTX* md)
1064 {
1065     memcpy(buf, gcry_md_read(*(md),  GCRY_MD_MD5),
1066         gcry_md_get_algo_dlen(GCRY_MD_MD5));
1067 }
1068 static inline void
1069 ssl_md5_cleanup(SSL_MD5_CTX* md)
1070 {
1071     gcry_md_close(*(md));
1072 }
1073
1074 gint
1075 ssl_cipher_setiv(SSL_CIPHER_CTX *cipher, guchar* iv, gint iv_len)
1076 {
1077     /* guchar * ivp; */
1078     gint ret;
1079     /* gint i; */
1080     gcry_cipher_hd_t c;
1081     ret=0;
1082     c=(gcry_cipher_hd_t)*cipher;
1083
1084     ssl_debug_printf("--------------------------------------------------------------------");
1085     /*for(ivp=c->iv,i=0; i < iv_len; i++ )
1086         {
1087         ssl_debug_printf("%d ",ivp[i]);
1088         i++;
1089         }
1090     */
1091     ssl_debug_printf("--------------------------------------------------------------------");
1092     ret = gcry_cipher_setiv(*(cipher), iv, iv_len);
1093     /*for(ivp=c->iv,i=0; i < iv_len; i++ )
1094         {
1095         ssl_debug_printf("%d ",ivp[i]);
1096         i++;
1097         }
1098     */
1099     ssl_debug_printf("--------------------------------------------------------------------");
1100     return ret;
1101 }
1102 /* stream cipher abstraction layer*/
1103 static gint
1104 ssl_cipher_init(gcry_cipher_hd_t *cipher, gint algo, guchar* sk,
1105         guchar* iv, gint mode)
1106 {
1107     gint gcry_modes[]={GCRY_CIPHER_MODE_STREAM,GCRY_CIPHER_MODE_CBC};
1108     gint err;
1109     if (algo == -1) {
1110         /* NULL mode */
1111         *(cipher) = (gcry_cipher_hd_t)-1;
1112         return 0;
1113     }
1114     err = gcry_cipher_open(cipher, algo, gcry_modes[mode], 0);
1115     if (err !=0)
1116         return  -1;
1117     err = gcry_cipher_setkey(*(cipher), sk, gcry_cipher_get_algo_keylen (algo));
1118     if (err != 0)
1119         return -1;
1120     err = gcry_cipher_setiv(*(cipher), iv, gcry_cipher_get_algo_blklen (algo));
1121     if (err != 0)
1122         return -1;
1123     return 0;
1124 }
1125 static inline gint
1126 ssl_cipher_decrypt(gcry_cipher_hd_t *cipher, guchar * out, gint outl,
1127                    const guchar * in, gint inl)
1128 {
1129     if ((*cipher) == (gcry_cipher_hd_t)-1)
1130     {
1131         if (in && inl)
1132             memcpy(out, in, outl < inl ? outl : inl);
1133         return 0;
1134     }
1135     return gcry_cipher_decrypt ( *(cipher), out, outl, in, inl);
1136 }
1137 static inline gint
1138 ssl_get_digest_by_name(const gchar*name)
1139 {
1140     return gcry_md_map_name(name);
1141 }
1142 static inline gint
1143 ssl_get_cipher_by_name(const gchar* name)
1144 {
1145     return gcry_cipher_map_name(name);
1146 }
1147
1148 static inline void
1149 ssl_cipher_cleanup(gcry_cipher_hd_t *cipher)
1150 {
1151     if ((*cipher) != (gcry_cipher_hd_t)-1)
1152         gcry_cipher_close(*cipher);
1153     *cipher = NULL;
1154 }
1155
1156 /* private key abstraction layer */
1157 static inline gint
1158 ssl_get_key_len(SSL_PRIVATE_KEY* pk) {return gcry_pk_get_nbits (pk); }
1159
1160 gcry_err_code_t
1161 _gcry_rsa_decrypt (int algo, gcry_mpi_t *result, gcry_mpi_t *data,
1162                    gcry_mpi_t *skey, gint flags);
1163
1164 #define PUBKEY_FLAG_NO_BLINDING (1 << 0)
1165
1166 const gchar*
1167 ssl_private_key_to_str(SSL_PRIVATE_KEY* pk)
1168 {
1169     const gchar *str="NULL";
1170     size_t n;
1171     gchar *buf;
1172
1173     if (!pk) return str;
1174 #ifndef SSL_FAST
1175     n = gcry_sexp_sprint(pk, GCRYSEXP_FMT_ADVANCED, NULL, 0);
1176     buf = ep_alloc(n);
1177     n = gcry_sexp_sprint(pk, GCRYSEXP_FMT_ADVANCED, buf, n);
1178     str = buf;
1179 #else /* SSL_FAST */
1180     str = "TO DO: dump mpi gcry_mpi_print()";
1181 #endif /* SSL_FAST */
1182
1183     return str;
1184 }
1185
1186 /* decrypt data with private key. Store decrypted data directly into input
1187  * buffer */
1188 int
1189 ssl_private_decrypt(guint len, guchar* encr_data, SSL_PRIVATE_KEY* pk)
1190 {
1191     gint rc;
1192     size_t decr_len;
1193     gcry_sexp_t  s_data, s_plain;
1194     gcry_mpi_t encr_mpi;
1195     size_t i, encr_len;
1196     guchar* decr_data_ptr;
1197     gcry_mpi_t text;
1198     decr_len = 0;
1199     encr_len = len;
1200     text=NULL;
1201
1202     /* build up a mpi rappresentation for encrypted data */
1203     rc = gcry_mpi_scan(&encr_mpi, GCRYMPI_FMT_USG,encr_data, encr_len, &encr_len);
1204     if (rc != 0 ) {
1205         ssl_debug_printf("pcry_private_decrypt: can't convert encr_data to mpi (size %d):%s\n",
1206             len, gcry_strerror(rc));
1207         return 0;
1208     }
1209
1210     /*ssl_debug_printf("pcry_private_decrypt: pk=%s\n", ssl_private_key_to_str(pk));*/
1211
1212 #ifndef SSL_FAST
1213     /* put the data into a simple list */
1214     rc = gcry_sexp_build(&s_data, NULL, "(enc-val(rsa(a%m)))", encr_mpi);
1215     if (rc != 0) {
1216         ssl_debug_printf("pcry_private_decrypt: can't build encr_sexp:%s \n",
1217              gcry_strerror(rc));
1218         return 0;
1219     }
1220
1221     /* pass it to libgcrypt */
1222     rc = gcry_pk_decrypt(&s_plain, s_data, pk);
1223     gcry_sexp_release(s_data);
1224     if (rc != 0)
1225     {
1226         ssl_debug_printf("pcry_private_decrypt: can't decrypt key:%s\n",
1227             gcry_strerror(rc));
1228         goto out;
1229     }
1230
1231     /* convert plain text sexp to mpi format */
1232     text = gcry_sexp_nth_mpi(s_plain, 0, 0);
1233
1234     /* compute size requested for plaintext buffer */
1235     decr_len = len;
1236     if (gcry_mpi_print(GCRYMPI_FMT_USG, NULL, decr_len, &decr_len, text) != 0) {
1237         ssl_debug_printf("pcry_private_decrypt: can't compute decr size:%s\n",
1238             gcry_strerror(rc));
1239         decr_len = 0;
1240         goto out;
1241     }
1242
1243     /* sanity check on out buffer */
1244     if (decr_len > len) {
1245         ssl_debug_printf("pcry_private_decrypt: decrypted data is too long ?!? (%" G_GSIZE_MODIFIER "u max %d)\n",
1246             decr_len, len);
1247         return 0;
1248     }
1249
1250     /* write plain text to encrypted data buffer */
1251     decr_data_ptr = encr_data;
1252     if (gcry_mpi_print( GCRYMPI_FMT_USG, decr_data_ptr, decr_len, &decr_len,
1253             text) != 0) {
1254         ssl_debug_printf("pcry_private_decrypt: can't print decr data to mpi (size %" G_GSIZE_MODIFIER "u):%s\n",
1255             decr_len, gcry_strerror(rc));
1256         g_free(decr_data_ptr);
1257         decr_len = 0;
1258         goto out;
1259     }
1260
1261     /* strip the padding*/
1262     rc = 0;
1263     for (i = 1; i < decr_len; i++) {
1264         if (decr_data_ptr[i] == 0) {
1265             rc = (gint) i+1;
1266             break;
1267         }
1268     }
1269
1270     ssl_debug_printf("pcry_private_decrypt: stripping %d bytes, decr_len %" G_GSIZE_MODIFIER "u\n",
1271         rc, decr_len);
1272     ssl_print_data("decrypted_unstrip_pre_master", decr_data_ptr, decr_len);
1273     g_memmove(decr_data_ptr, &decr_data_ptr[rc], decr_len - rc);
1274     decr_len -= rc;
1275
1276 out:
1277     gcry_sexp_release(s_plain);
1278 #else /* SSL_FAST */
1279     rc = _gcry_rsa_decrypt(0, &text,  &encr_mpi, pk,0);
1280     gcry_mpi_print( GCRYMPI_FMT_USG, 0, 0, &decr_len, text);
1281
1282     /* sanity check on out buffer */
1283     if (decr_len > len) {
1284         ssl_debug_printf("pcry_private_decrypt: decrypted data is too long ?!? (%d max %d)\n",
1285             decr_len, len);
1286         return 0;
1287     }
1288
1289     /* write plain text to newly allocated buffer */
1290     decr_data_ptr = encr_data;
1291     if (gcry_mpi_print( GCRYMPI_FMT_USG, decr_data_ptr, decr_len, &decr_len,
1292             text) != 0) {
1293         ssl_debug_printf("pcry_private_decrypt: can't print decr data to mpi (size %d):%s\n",
1294             decr_len, gcry_strerror(rc));
1295         return 0;
1296     }
1297
1298     /* strip the padding*/
1299     rc = 0;
1300     for (i = 1; i < decr_len; i++) {
1301         if (decr_data_ptr[i] == 0) {
1302             rc = i+1;
1303             break;
1304         }
1305     }
1306
1307     ssl_debug_printf("pcry_private_decrypt: stripping %d bytes, decr_len %d\n",
1308         rc, decr_len);
1309     ssl_print_data("decrypted_unstrip_pre_master", decr_data_ptr, decr_len);
1310     g_memmove(decr_data_ptr, &decr_data_ptr[rc], decr_len - rc);
1311     decr_len -= rc;
1312 #endif /* SSL_FAST */
1313     gcry_mpi_release(text);
1314     return (int) decr_len;
1315 }
1316
1317 /* stringinfo interface */
1318 static gint
1319 ssl_data_realloc(StringInfo* str, guint len)
1320 {
1321     str->data = g_realloc(str->data, len);
1322     if (!str->data)
1323         return -1;
1324     str->data_len = len;
1325     return 0;
1326 }
1327
1328 static gint
1329 ssl_data_copy(StringInfo* dst, StringInfo* src)
1330 {
1331     if (dst->data_len < src->data_len) {
1332       if (ssl_data_realloc(dst, src->data_len))
1333         return -1;
1334     }
1335     memcpy(dst->data, src->data, src->data_len);
1336     dst->data_len = src->data_len;
1337     return 0;
1338 }
1339
1340 #define PRF(ssl,secret,usage,rnd1,rnd2,out) ((ssl->version_netorder==SSLV3_VERSION)? \
1341         ssl3_prf(secret,usage,rnd1,rnd2,out): \
1342         tls_prf(secret,usage,rnd1,rnd2,out))
1343
1344 static const gchar *digests[]={
1345     "MD5",
1346     "SHA1"
1347 };
1348
1349 static const gchar *ciphers[]={
1350     "DES",
1351     "3DES",
1352     "ARCFOUR", /* gnutls does not support rc4, but this should be 100% compatible*/
1353     "RC2",
1354     "IDEA",
1355     "AES",
1356     "AES256",
1357     "*UNKNOWN*"
1358 };
1359
1360 static SslCipherSuite cipher_suites[]={
1361     {1,KEX_RSA,SIG_RSA,ENC_NULL,1,0,0,DIG_MD5,16,0, SSL_CIPHER_MODE_STREAM},
1362     {2,KEX_RSA,SIG_RSA,ENC_NULL,1,0,0,DIG_SHA,20,0, SSL_CIPHER_MODE_STREAM},
1363     {3,KEX_RSA,SIG_RSA,ENC_RC4,1,128,40,DIG_MD5,16,1, SSL_CIPHER_MODE_STREAM},
1364     {4,KEX_RSA,SIG_RSA,ENC_RC4,1,128,128,DIG_MD5,16,0, SSL_CIPHER_MODE_STREAM},
1365     {5,KEX_RSA,SIG_RSA,ENC_RC4,1,128,128,DIG_SHA,20,0, SSL_CIPHER_MODE_STREAM},
1366     {6,KEX_RSA,SIG_RSA,ENC_RC2,8,128,40,DIG_SHA,20,1, SSL_CIPHER_MODE_STREAM},
1367     {7,KEX_RSA,SIG_RSA,ENC_IDEA,8,128,128,DIG_SHA,20,0, SSL_CIPHER_MODE_STREAM},
1368     {8,KEX_RSA,SIG_RSA,ENC_DES,8,64,40,DIG_SHA,20,1, SSL_CIPHER_MODE_CBC},
1369     {9,KEX_RSA,SIG_RSA,ENC_DES,8,64,64,DIG_SHA,20,0, SSL_CIPHER_MODE_CBC},
1370     {10,KEX_RSA,SIG_RSA,ENC_3DES,8,192,192,DIG_SHA,20,0, SSL_CIPHER_MODE_CBC},
1371     {11,KEX_DH,SIG_DSS,ENC_DES,8,64,40,DIG_SHA,20,1, SSL_CIPHER_MODE_CBC},
1372     {12,KEX_DH,SIG_DSS,ENC_DES,8,64,64,DIG_SHA,20,0, SSL_CIPHER_MODE_CBC},
1373     {13,KEX_DH,SIG_DSS,ENC_3DES,8,192,192,DIG_SHA,20,0, SSL_CIPHER_MODE_CBC},
1374     {14,KEX_DH,SIG_RSA,ENC_DES,8,64,40,DIG_SHA,20,1, SSL_CIPHER_MODE_CBC},
1375     {15,KEX_DH,SIG_RSA,ENC_DES,8,64,64,DIG_SHA,20,0, SSL_CIPHER_MODE_CBC},
1376     {16,KEX_DH,SIG_RSA,ENC_3DES,8,192,192,DIG_SHA,20,0, SSL_CIPHER_MODE_CBC},
1377     {17,KEX_DH,SIG_DSS,ENC_DES,8,64,40,DIG_SHA,20,1, SSL_CIPHER_MODE_CBC},
1378     {18,KEX_DH,SIG_DSS,ENC_DES,8,64,64,DIG_SHA,20,0, SSL_CIPHER_MODE_CBC},
1379     {19,KEX_DH,SIG_DSS,ENC_3DES,8,192,192,DIG_SHA,20,0, SSL_CIPHER_MODE_CBC},
1380     {20,KEX_DH,SIG_RSA,ENC_DES,8,64,40,DIG_SHA,20,1, SSL_CIPHER_MODE_CBC},
1381     {21,KEX_DH,SIG_RSA,ENC_DES,8,64,64,DIG_SHA,20,0, SSL_CIPHER_MODE_CBC},
1382     {22,KEX_DH,SIG_RSA,ENC_3DES,8,192,192,DIG_SHA,20,0, SSL_CIPHER_MODE_CBC},
1383     {23,KEX_DH,SIG_NONE,ENC_RC4,1,128,40,DIG_MD5,16,1, SSL_CIPHER_MODE_STREAM},
1384     {24,KEX_DH,SIG_NONE,ENC_RC4,1,128,128,DIG_MD5,16,0, SSL_CIPHER_MODE_STREAM},
1385     {25,KEX_DH,SIG_NONE,ENC_DES,8,64,40,DIG_MD5,16,1, SSL_CIPHER_MODE_CBC},
1386     {26,KEX_DH,SIG_NONE,ENC_DES,8,64,64,DIG_MD5,16,0, SSL_CIPHER_MODE_CBC},
1387     {27,KEX_DH,SIG_NONE,ENC_3DES,8,192,192,DIG_MD5,16,0, SSL_CIPHER_MODE_CBC},
1388     {47,KEX_RSA,SIG_RSA,ENC_AES,16,128,128,DIG_SHA,20,0, SSL_CIPHER_MODE_CBC},
1389     {51,KEX_DH, SIG_RSA,ENC_AES,16,128,128,DIG_SHA,20,0, SSL_CIPHER_MODE_CBC},
1390     {53,KEX_RSA,SIG_RSA,ENC_AES256,16,256,256,DIG_SHA,20,0, SSL_CIPHER_MODE_CBC},
1391     {96,KEX_RSA,SIG_RSA,ENC_RC4,1,128,56,DIG_MD5,16,1, SSL_CIPHER_MODE_STREAM},
1392     {97,KEX_RSA,SIG_RSA,ENC_RC2,1,128,56,DIG_MD5,16,1, SSL_CIPHER_MODE_STREAM},
1393     {98,KEX_RSA,SIG_RSA,ENC_DES,8,64,64,DIG_SHA,20,1, SSL_CIPHER_MODE_STREAM},
1394     {99,KEX_DH,SIG_DSS,ENC_DES,8,64,64,DIG_SHA,16,1, SSL_CIPHER_MODE_CBC},
1395     {100,KEX_RSA,SIG_RSA,ENC_RC4,1,128,56,DIG_SHA,20,1, SSL_CIPHER_MODE_STREAM},
1396     {101,KEX_DH,SIG_DSS,ENC_RC4,1,128,56,DIG_SHA,20,1, SSL_CIPHER_MODE_STREAM},
1397     {102,KEX_DH,SIG_DSS,ENC_RC4,1,128,128,DIG_SHA,20,0, SSL_CIPHER_MODE_STREAM},
1398     /*{138,KEX_PSK,SIG_RSA,ENC_RC4,16,128,128,DIG_SHA,20,0, SSL_CIPHER_MODE_CBC},*/
1399     {139,KEX_PSK,SIG_RSA,ENC_3DES,8,192,192,DIG_SHA,20,0, SSL_CIPHER_MODE_CBC},
1400     {140,KEX_PSK,SIG_RSA,ENC_AES,16,128,128,DIG_SHA,20,0, SSL_CIPHER_MODE_CBC},
1401     {141,KEX_PSK,SIG_RSA,ENC_AES256,16,256,256,DIG_SHA,20,0, SSL_CIPHER_MODE_CBC},
1402     {-1, 0,0,0,0,0,0,0,0,0, 0}
1403 };
1404
1405 #define MAX_BLOCK_SIZE 16
1406 #define MAX_KEY_SIZE 32
1407
1408 int
1409 ssl_find_cipher(int num,SslCipherSuite* cs)
1410 {
1411     SslCipherSuite *c;
1412
1413     for(c=cipher_suites;c->number!=-1;c++){
1414         if(c->number==num){
1415             *cs=*c;
1416             return 0;
1417         }
1418     }
1419
1420     return -1;
1421 }
1422
1423 static gint
1424 tls_hash(StringInfo* secret, StringInfo* seed, gint md, StringInfo* out)
1425 {
1426     guint8 *ptr;
1427     guint left;
1428     gint tocpy;
1429     guint8 *A;
1430     guint8 _A[20],tmp[20];
1431     guint A_l,tmp_l;
1432     SSL_HMAC hm;
1433     ptr=out->data;
1434     left=out->data_len;
1435
1436
1437     ssl_print_string("tls_hash: hash secret", secret);
1438     ssl_print_string("tls_hash: hash seed", seed);
1439     A=seed->data;
1440     A_l=seed->data_len;
1441
1442     while(left){
1443         ssl_hmac_init(&hm,secret->data,secret->data_len,md);
1444         ssl_hmac_update(&hm,A,A_l);
1445         ssl_hmac_final(&hm,_A,&A_l);
1446         ssl_hmac_cleanup(&hm);
1447         A=_A;
1448
1449         ssl_hmac_init(&hm,secret->data,secret->data_len,md);
1450         ssl_hmac_update(&hm,A,A_l);
1451         ssl_hmac_update(&hm,seed->data,seed->data_len);
1452         ssl_hmac_final(&hm,tmp,&tmp_l);
1453         ssl_hmac_cleanup(&hm);
1454
1455         tocpy=MIN(left,tmp_l);
1456         memcpy(ptr,tmp,tocpy);
1457         ptr+=tocpy;
1458         left-=tocpy;
1459     }
1460
1461     ssl_print_string("hash out", out);
1462     return (0);
1463 }
1464
1465 static gint
1466 tls_prf(StringInfo* secret, const gchar *usage,
1467         StringInfo* rnd1, StringInfo* rnd2, StringInfo* out)
1468 {
1469     StringInfo seed, sha_out, md5_out;
1470     guint8 *ptr;
1471     StringInfo s1, s2;
1472     guint i,s_l, r;
1473     size_t usage_len;
1474     r=-1;
1475     usage_len = strlen(usage);
1476
1477     /* initalize buffer for sha, md5 random seed*/
1478     if (ssl_data_alloc(&sha_out, MAX(out->data_len,20)) < 0) {
1479         ssl_debug_printf("tls_prf: can't allocate sha out\n");
1480         return -1;
1481     }
1482     if (ssl_data_alloc(&md5_out, MAX(out->data_len,16)) < 0) {
1483         ssl_debug_printf("tls_prf: can't allocate md5 out\n");
1484         goto free_sha;
1485     }
1486     if (ssl_data_alloc(&seed, usage_len+rnd1->data_len+rnd2->data_len) < 0) {
1487         ssl_debug_printf("tls_prf: can't allocate rnd %d\n",
1488                          (int) (usage_len+rnd1->data_len+rnd2->data_len));
1489         goto free_md5;
1490     }
1491
1492     ptr=seed.data;
1493     memcpy(ptr,usage,usage_len); ptr+=usage_len;
1494     memcpy(ptr,rnd1->data,rnd1->data_len); ptr+=rnd1->data_len;
1495     memcpy(ptr,rnd2->data,rnd2->data_len); ptr+=rnd2->data_len;
1496
1497     /* initalize buffer for client/server seeds*/
1498     s_l=secret->data_len/2 + secret->data_len%2;
1499     if (ssl_data_alloc(&s1, s_l) < 0) {
1500         ssl_debug_printf("tls_prf: can't allocate secret %d\n", s_l);
1501         goto free_seed;
1502     }
1503     if (ssl_data_alloc(&s2, s_l) < 0) {
1504         ssl_debug_printf("tls_prf: can't allocate secret(2) %d\n", s_l);
1505         goto free_s1;
1506     }
1507
1508     memcpy(s1.data,secret->data,s_l);
1509     memcpy(s2.data,secret->data + (secret->data_len - s_l),s_l);
1510
1511     ssl_debug_printf("tls_prf: tls_hash(md5 secret_len %d seed_len %d )\n", s1.data_len, seed.data_len);
1512     if(tls_hash(&s1,&seed,ssl_get_digest_by_name("MD5"),&md5_out) != 0)
1513         goto free_all;
1514     ssl_debug_printf("tls_prf: tls_hash(sha)\n");
1515     if(tls_hash(&s2,&seed,ssl_get_digest_by_name("SHA1"),&sha_out) != 0)
1516         goto free_all;
1517
1518     for(i=0;i<out->data_len;i++)
1519       out->data[i]=md5_out.data[i] ^ sha_out.data[i];
1520     r =0;
1521
1522     ssl_print_string("PRF out",out);
1523 free_all:
1524     g_free(s2.data);
1525 free_s1:
1526     g_free(s1.data);
1527 free_seed:
1528     g_free(seed.data);
1529 free_md5:
1530     g_free(md5_out.data);
1531 free_sha:
1532     g_free(sha_out.data);
1533     return r;
1534 }
1535
1536 static gint
1537 ssl3_generate_export_iv(StringInfo* r1,
1538         StringInfo* r2, StringInfo* out)
1539 {
1540     SSL_MD5_CTX md5;
1541     guint8 tmp[16];
1542
1543     ssl_md5_init(&md5);
1544     ssl_md5_update(&md5,r1->data,r1->data_len);
1545     ssl_md5_update(&md5,r2->data,r2->data_len);
1546     ssl_md5_final(tmp,&md5);
1547     ssl_md5_cleanup(&md5);
1548
1549     memcpy(out->data,tmp,out->data_len);
1550     ssl_print_string("export iv", out);
1551
1552     return(0);
1553 }
1554
1555 static gint
1556 ssl3_prf(StringInfo* secret, const gchar* usage,
1557         StringInfo* r1,
1558         StringInfo* r2,StringInfo* out)
1559 {
1560     SSL_MD5_CTX md5;
1561     SSL_SHA_CTX sha;
1562     StringInfo *rnd1,*rnd2;
1563     guint off;
1564     gint i=0,j;
1565     guint8 buf[20];
1566
1567     rnd1=r1; rnd2=r2;
1568
1569     for(off=0;off<out->data_len;off+=16){
1570         guchar outbuf[16];
1571         gint tocpy;
1572         i++;
1573
1574         ssl_debug_printf("ssl3_prf: sha1_hash(%d)\n",i);
1575         /* A, BB, CCC,  ... */
1576         for(j=0;j<i;j++){
1577             buf[j]=64+i;
1578         }
1579
1580         ssl_sha_init(&sha);
1581         ssl_sha_update(&sha,buf,i);
1582         ssl_sha_update(&sha,secret->data,secret->data_len);
1583
1584         if(!strcmp(usage,"client write key") || !strcmp(usage,"server write key")){
1585             ssl_sha_update(&sha,rnd2->data,rnd2->data_len);
1586             ssl_sha_update(&sha,rnd1->data,rnd1->data_len);
1587         }
1588         else{
1589             ssl_sha_update(&sha,rnd1->data,rnd1->data_len);
1590             ssl_sha_update(&sha,rnd2->data,rnd2->data_len);
1591         }
1592
1593         ssl_sha_final(buf,&sha);
1594         ssl_sha_cleanup(&sha);
1595
1596         ssl_debug_printf("ssl3_prf: md5_hash(%d) datalen %d\n",i,
1597             secret->data_len);
1598         ssl_md5_init(&md5);
1599         ssl_md5_update(&md5,secret->data,secret->data_len);
1600         ssl_md5_update(&md5,buf,20);
1601         ssl_md5_final(outbuf,&md5);
1602         ssl_md5_cleanup(&md5);
1603
1604         tocpy=MIN(out->data_len-off,16);
1605         memcpy(out->data+off,outbuf,tocpy);
1606     }
1607
1608     return(0);
1609 }
1610
1611 static SslFlow*
1612 ssl_create_flow(void)
1613 {
1614   SslFlow *flow;
1615
1616   flow = se_alloc(sizeof(SslFlow));
1617   flow->byte_seq = 0;
1618   flow->flags = 0;
1619   flow->multisegment_pdus = se_tree_create_non_persistent(EMEM_TREE_TYPE_RED_BLACK, "ssl_multisegment_pdus");
1620   return flow;
1621 }
1622
1623 #ifdef HAVE_LIBZ
1624 /* memory allocation functions for zlib initialization */
1625 static void* ssl_zalloc(void* opaque _U_, unsigned int no, unsigned int size)
1626 {
1627     return g_malloc0(no*size);
1628 }
1629 static void ssl_zfree(void* opaque _U_, void* addr)
1630 {
1631     g_free(addr);
1632 }
1633 #endif
1634
1635 static SslDecompress*
1636 ssl_create_decompressor(gint compression)
1637 {
1638     SslDecompress *decomp;
1639 #ifdef HAVE_LIBZ
1640     int err;
1641 #endif
1642
1643     if (compression == 0) return NULL;
1644     ssl_debug_printf("ssl_create_decompressor: compression method %d\n", compression);
1645     decomp = se_alloc(sizeof(SslDecompress));
1646     decomp->compression = compression;
1647     switch (decomp->compression) {
1648 #ifdef HAVE_LIBZ
1649         case 1:  /* DEFLATE */
1650             decomp->istream.zalloc = ssl_zalloc;
1651             decomp->istream.zfree = ssl_zfree;
1652             decomp->istream.opaque = Z_NULL;
1653             decomp->istream.next_in = Z_NULL;
1654             decomp->istream.next_out = Z_NULL;
1655             decomp->istream.avail_in = 0;
1656             decomp->istream.avail_out = 0;
1657             err = inflateInit_(&decomp->istream, ZLIB_VERSION, sizeof(z_stream));
1658             if (err != Z_OK) {
1659                 ssl_debug_printf("ssl_create_decompressor: inflateInit_() failed - %d\n", err);
1660                 return NULL;
1661             }
1662             break;
1663 #endif
1664         default:
1665             ssl_debug_printf("ssl_create_decompressor: unsupported compression method %d\n", decomp->compression);
1666             return NULL;
1667     }
1668     return decomp;
1669 }
1670
1671 static SslDecoder*
1672 ssl_create_decoder(SslCipherSuite *cipher_suite, gint compression,
1673         guint8 *mk, guint8 *sk, guint8 *iv)
1674 {
1675     SslDecoder *dec;
1676     gint ciph;
1677     ciph=0;
1678
1679     dec = se_alloc0(sizeof(SslDecoder));
1680     /* Find the SSLeay cipher */
1681     if(cipher_suite->enc!=ENC_NULL) {
1682         ssl_debug_printf("ssl_create_decoder CIPHER: %s\n", ciphers[cipher_suite->enc-0x30]);
1683         ciph=ssl_get_cipher_by_name(ciphers[cipher_suite->enc-0x30]);
1684     } else {
1685         ssl_debug_printf("ssl_create_decoder CIPHER: %s\n", "NULL");
1686         ciph = -1;
1687     }
1688     if (ciph == 0) {
1689         ssl_debug_printf("ssl_create_decoder can't find cipher %s\n",
1690             ciphers[(cipher_suite->enc-0x30) > 7 ? 7 : (cipher_suite->enc-0x30)]);
1691         return NULL;
1692     }
1693
1694     /* init mac buffer: mac storage is embedded into decoder struct to save a
1695      memory allocation and waste samo more memory*/
1696     dec->cipher_suite=cipher_suite;
1697     dec->compression = compression;
1698     dec->mac_key.data = dec->_mac_key;
1699     ssl_data_set(&dec->mac_key, mk, cipher_suite->dig_len);
1700     dec->seq = 0;
1701     dec->decomp = ssl_create_decompressor(compression);
1702     dec->flow = ssl_create_flow();
1703
1704     if (dec->evp)
1705         ssl_cipher_cleanup(&dec->evp);
1706
1707     if (ssl_cipher_init(&dec->evp,ciph,sk,iv,cipher_suite->mode) < 0) {
1708         ssl_debug_printf("ssl_create_decoder: can't create cipher id:%d mode:%d\n",
1709             ciph, cipher_suite->mode);
1710         return NULL;
1711     }
1712
1713     ssl_debug_printf("decoder initialized (digest len %d)\n", cipher_suite->dig_len);
1714     return dec;
1715 }
1716
1717 int
1718 ssl_generate_keyring_material(SslDecryptSession*ssl_session)
1719 {
1720     StringInfo key_block;
1721     guint8 _iv_c[MAX_BLOCK_SIZE],_iv_s[MAX_BLOCK_SIZE];
1722     guint8 _key_c[MAX_KEY_SIZE],_key_s[MAX_KEY_SIZE];
1723     gint needed;
1724     guint8 *ptr,*c_wk,*s_wk,*c_mk,*s_mk,*c_iv = _iv_c,*s_iv = _iv_s;
1725
1726     /* check for enough info to proced */
1727     guint need_all = SSL_CIPHER|SSL_CLIENT_RANDOM|SSL_SERVER_RANDOM|SSL_VERSION;
1728     guint need_any = SSL_MASTER_SECRET | SSL_PRE_MASTER_SECRET;
1729     if (((ssl_session->state & need_all) != need_all) || ((ssl_session->state & need_any) == 0)) {
1730         ssl_debug_printf("ssl_generate_keyring_material not enough data to generate key "
1731                          "(0x%02X required 0x%02X or 0x%02X)\n", ssl_session->state,
1732                          need_all|SSL_MASTER_SECRET, need_all|SSL_PRE_MASTER_SECRET);
1733         return -1;
1734     }
1735
1736     /* if master_key is not yet generate, create it now*/
1737     if (!(ssl_session->state & SSL_MASTER_SECRET)) {
1738         ssl_debug_printf("ssl_generate_keyring_material:PRF(pre_master_secret)\n");
1739         ssl_print_string("pre master secret",&ssl_session->pre_master_secret);
1740         ssl_print_string("client random",&ssl_session->client_random);
1741         ssl_print_string("server random",&ssl_session->server_random);
1742         if (PRF(ssl_session,&ssl_session->pre_master_secret,"master secret",
1743                 &ssl_session->client_random,
1744                 &ssl_session->server_random, &ssl_session->master_secret)) {
1745             ssl_debug_printf("ssl_generate_keyring_material can't generate master_secret\n");
1746             return -1;
1747         }
1748         ssl_print_string("master secret",&ssl_session->master_secret);
1749
1750         /* the pre-master secret has been 'consumend' so we must clear it now */
1751         ssl_session->state &= ~SSL_PRE_MASTER_SECRET;
1752         ssl_session->state |= SSL_MASTER_SECRET;
1753     }
1754
1755     /* Compute the key block. First figure out how much data we need*/
1756     needed=ssl_session->cipher_suite.dig_len*2;
1757     needed+=ssl_session->cipher_suite.bits / 4;
1758     if(ssl_session->cipher_suite.block>1)
1759         needed+=ssl_session->cipher_suite.block*2;
1760
1761     key_block.data_len = needed;
1762     key_block.data = g_malloc(needed);
1763     if (!key_block.data) {
1764         ssl_debug_printf("ssl_generate_keyring_material can't allocate key_block (len %d)\n", needed);
1765         return -1;
1766     }
1767     ssl_debug_printf("ssl_generate_keyring_material sess key generation\n");
1768     if (PRF(ssl_session,&ssl_session->master_secret,"key expansion",
1769             &ssl_session->server_random,&ssl_session->client_random,
1770             &key_block)) {
1771         ssl_debug_printf("ssl_generate_keyring_material can't generate key_block\n");
1772         goto fail;
1773     }
1774     ssl_print_string("key expansion", &key_block);
1775
1776     ptr=key_block.data;
1777     c_mk=ptr; ptr+=ssl_session->cipher_suite.dig_len;
1778     s_mk=ptr; ptr+=ssl_session->cipher_suite.dig_len;
1779
1780     c_wk=ptr; ptr+=ssl_session->cipher_suite.eff_bits/8;
1781     s_wk=ptr; ptr+=ssl_session->cipher_suite.eff_bits/8;
1782
1783     if(ssl_session->cipher_suite.block>1){
1784         c_iv=ptr; ptr+=ssl_session->cipher_suite.block;
1785         s_iv=ptr; ptr+=ssl_session->cipher_suite.block;
1786     }
1787
1788     if(ssl_session->cipher_suite.export){
1789         StringInfo iv_c,iv_s;
1790         StringInfo key_c,key_s;
1791         StringInfo k;
1792
1793         if(ssl_session->cipher_suite.block>1){
1794
1795             /* We only have room for MAX_BLOCK_SIZE bytes IVs, but that's
1796              all we should need. This is a sanity check */
1797             if(ssl_session->cipher_suite.block>MAX_BLOCK_SIZE) {
1798                 ssl_debug_printf("ssl_generate_keyring_material cipher suite block must be at most %d nut is %d\n",
1799                     MAX_BLOCK_SIZE, ssl_session->cipher_suite.block);
1800                 goto fail;
1801             }
1802
1803             iv_c.data = _iv_c;
1804             iv_c.data_len = ssl_session->cipher_suite.block;
1805             iv_s.data = _iv_s;
1806             iv_s.data_len = ssl_session->cipher_suite.block;
1807
1808             if(ssl_session->version_netorder==SSLV3_VERSION){
1809                 ssl_debug_printf("ssl_generate_keyring_material ssl3_generate_export_iv\n");
1810                 if (ssl3_generate_export_iv(&ssl_session->client_random,
1811                         &ssl_session->server_random,&iv_c)) {
1812                     ssl_debug_printf("ssl_generate_keyring_material can't generate sslv3 client iv\n");
1813                     goto fail;
1814                 }
1815                 ssl_debug_printf("ssl_generate_keyring_material ssl3_generate_export_iv(2)\n");
1816                 if (ssl3_generate_export_iv(&ssl_session->server_random,
1817                         &ssl_session->client_random,&iv_s)) {
1818                     ssl_debug_printf("ssl_generate_keyring_material can't generate sslv3 server iv\n");
1819                     goto fail;
1820                 }
1821             }
1822             else{
1823                 guint8 _iv_block[MAX_BLOCK_SIZE * 2];
1824                 StringInfo iv_block;
1825                 StringInfo key_null;
1826                 guint8 _key_null;
1827
1828                 key_null.data = &_key_null;
1829                 key_null.data_len = 0;
1830
1831                 iv_block.data = _iv_block;
1832                 iv_block.data_len = ssl_session->cipher_suite.block*2;
1833
1834                 ssl_debug_printf("ssl_generate_keyring_material prf(iv_block)\n");
1835                 if(PRF(ssl_session,&key_null, "IV block",
1836                         &ssl_session->client_random,
1837                         &ssl_session->server_random,&iv_block)) {
1838                     ssl_debug_printf("ssl_generate_keyring_material can't generate tls31 iv block\n");
1839                     goto fail;
1840                 }
1841
1842                 memcpy(_iv_c,iv_block.data,ssl_session->cipher_suite.block);
1843                 memcpy(_iv_s,iv_block.data+ssl_session->cipher_suite.block,
1844                     ssl_session->cipher_suite.block);
1845             }
1846
1847             c_iv=_iv_c;
1848             s_iv=_iv_s;
1849         }
1850
1851         if (ssl_session->version_netorder==SSLV3_VERSION){
1852
1853             SSL_MD5_CTX md5;
1854             ssl_debug_printf("ssl_generate_keyring_material MD5(client_random)\n");
1855
1856             ssl_md5_init(&md5);
1857             ssl_md5_update(&md5,c_wk,ssl_session->cipher_suite.eff_bits/8);
1858             ssl_md5_update(&md5,ssl_session->client_random.data,
1859                 ssl_session->client_random.data_len);
1860             ssl_md5_update(&md5,ssl_session->server_random.data,
1861                 ssl_session->server_random.data_len);
1862             ssl_md5_final(_key_c,&md5);
1863             ssl_md5_cleanup(&md5);
1864             c_wk=_key_c;
1865
1866             ssl_md5_init(&md5);
1867             ssl_debug_printf("ssl_generate_keyring_material MD5(server_random)\n");
1868             ssl_md5_update(&md5,s_wk,ssl_session->cipher_suite.eff_bits/8);
1869             ssl_md5_update(&md5,ssl_session->server_random.data,
1870                 ssl_session->server_random.data_len);
1871             ssl_md5_update(&md5,ssl_session->client_random.data,
1872                 ssl_session->client_random.data_len);
1873             ssl_md5_final(_key_s,&md5);
1874             ssl_md5_cleanup(&md5);
1875             s_wk=_key_s;
1876         }
1877         else{
1878             key_c.data = _key_c;
1879             key_c.data_len = sizeof(_key_c);
1880             key_s.data = _key_s;
1881             key_s.data_len = sizeof(_key_s);
1882
1883             k.data = c_wk;
1884             k.data_len = ssl_session->cipher_suite.eff_bits/8;
1885             ssl_debug_printf("ssl_generate_keyring_material PRF(key_c)\n");
1886             if (PRF(ssl_session,&k,"client write key",
1887                     &ssl_session->client_random,
1888                     &ssl_session->server_random, &key_c)) {
1889                 ssl_debug_printf("ssl_generate_keyring_material can't generate tll31 server key \n");
1890                 goto fail;
1891             }
1892             c_wk=_key_c;
1893
1894             k.data = s_wk;
1895             k.data_len = ssl_session->cipher_suite.eff_bits/8;
1896             ssl_debug_printf("ssl_generate_keyring_material PRF(key_s)\n");
1897             if(PRF(ssl_session,&k,"server write key",
1898                     &ssl_session->client_random,
1899                     &ssl_session->server_random, &key_s)) {
1900                 ssl_debug_printf("ssl_generate_keyring_material can't generate tll31 client key \n");
1901                 goto fail;
1902             }
1903             s_wk=_key_s;
1904         }
1905     }
1906
1907     /* show key material info */
1908     ssl_print_data("Client MAC key",c_mk,ssl_session->cipher_suite.dig_len);
1909     ssl_print_data("Server MAC key",s_mk,ssl_session->cipher_suite.dig_len);
1910     ssl_print_data("Client Write key",c_wk,ssl_session->cipher_suite.bits/8);
1911     ssl_print_data("Server Write key",s_wk,ssl_session->cipher_suite.bits/8);
1912
1913     if(ssl_session->cipher_suite.block>1) {
1914         ssl_print_data("Client Write IV",c_iv,ssl_session->cipher_suite.block);
1915         ssl_print_data("Server Write IV",s_iv,ssl_session->cipher_suite.block);
1916     }
1917     else {
1918         ssl_print_data("Client Write IV",c_iv,8);
1919         ssl_print_data("Server Write IV",s_iv,8);
1920     }
1921
1922     /* create both client and server ciphers*/
1923     ssl_debug_printf("ssl_generate_keyring_material ssl_create_decoder(client)\n");
1924     ssl_session->client_new = ssl_create_decoder(&ssl_session->cipher_suite, ssl_session->compression, c_mk, c_wk, c_iv);
1925     if (!ssl_session->client_new) {
1926         ssl_debug_printf("ssl_generate_keyring_material can't init client decoder\n");
1927         goto fail;
1928     }
1929     ssl_debug_printf("ssl_generate_keyring_material ssl_create_decoder(server)\n");
1930     ssl_session->server_new = ssl_create_decoder(&ssl_session->cipher_suite, ssl_session->compression, s_mk, s_wk, s_iv);
1931     if (!ssl_session->server_new) {
1932         ssl_debug_printf("ssl_generate_keyring_material can't init client decoder\n");
1933         goto fail;
1934     }
1935
1936     ssl_debug_printf("ssl_generate_keyring_material: client seq %d, server seq %d\n",
1937         ssl_session->client_new->seq, ssl_session->server_new->seq);
1938     g_free(key_block.data);
1939     ssl_session->state |= SSL_HAVE_SESSION_KEY;
1940     return 0;
1941
1942 fail:
1943     g_free(key_block.data);
1944     return -1;
1945 }
1946
1947 void
1948 ssl_change_cipher(SslDecryptSession *ssl_session, gboolean server)
1949 {
1950     ssl_debug_printf("ssl_change_cipher %s\n", (server)?"SERVER":"CLIENT");
1951     if (server) {
1952         ssl_session->server = ssl_session->server_new;
1953         ssl_session->server_new = NULL;
1954     } else {
1955         ssl_session->client = ssl_session->client_new;
1956         ssl_session->client_new = NULL;
1957     }
1958 }
1959
1960 int
1961 ssl_decrypt_pre_master_secret(SslDecryptSession*ssl_session,
1962     StringInfo* encrypted_pre_master, SSL_PRIVATE_KEY *pk)
1963 {
1964     gint i;
1965
1966     if(ssl_session->cipher_suite.kex == KEX_DH) {
1967         ssl_debug_printf("ssl_decrypt_pre_master_secret session uses DH (%d) key exchange, which is impossible to decrypt\n",
1968             KEX_DH);
1969         return -1;
1970     } else if(ssl_session->cipher_suite.kex != KEX_RSA) {
1971          ssl_debug_printf("ssl_decrypt_pre_master_secret key exchange %d different from KEX_RSA (%d)\n",
1972             ssl_session->cipher_suite.kex, KEX_RSA);
1973         return -1;
1974     }
1975
1976     /* with tls key loading will fail if not rsa type, so no need to check*/
1977     ssl_print_string("pre master encrypted",encrypted_pre_master);
1978     ssl_debug_printf("ssl_decrypt_pre_master_secret:RSA_private_decrypt\n");
1979     i=ssl_private_decrypt(encrypted_pre_master->data_len,
1980         encrypted_pre_master->data, pk);
1981
1982     if (i!=48) {
1983         ssl_debug_printf("ssl_decrypt_pre_master_secret wrong "
1984             "pre_master_secret length (%d, expected %d)\n", i, 48);
1985         return -1;
1986     }
1987
1988     /* the decrypted data has been written into the pre_master key buffer */
1989     ssl_session->pre_master_secret.data = encrypted_pre_master->data;
1990     ssl_session->pre_master_secret.data_len=48;
1991     ssl_print_string("pre master secret",&ssl_session->pre_master_secret);
1992
1993     /* Remove the master secret if it was there.
1994        This forces keying material regeneration in
1995        case we're renegotiating */
1996     ssl_session->state &= ~(SSL_MASTER_SECRET|SSL_HAVE_SESSION_KEY);
1997     ssl_session->state |= SSL_PRE_MASTER_SECRET;
1998     return 0;
1999 }
2000
2001 /* convert network byte order 32 byte number to right-aligned host byte order *
2002  * 8 bytes buffer */
2003 static gint fmt_seq(guint32 num, guint8* buf)
2004 {
2005     guint32 netnum;
2006
2007     memset(buf,0,8);
2008     netnum=g_htonl(num);
2009     memcpy(buf+4,&netnum,4);
2010
2011     return(0);
2012 }
2013
2014 static gint
2015 tls_check_mac(SslDecoder*decoder, gint ct, gint ver, guint8* data,
2016         guint32 datalen, guint8* mac)
2017 {
2018     SSL_HMAC hm;
2019     gint md;
2020     guint32 len;
2021     guint8 buf[20];
2022     gint16 temp;
2023
2024     md=ssl_get_digest_by_name(digests[decoder->cipher_suite->dig-0x40]);
2025     ssl_debug_printf("tls_check_mac mac type:%s md %d\n",
2026         digests[decoder->cipher_suite->dig-0x40], md);
2027
2028     if (ssl_hmac_init(&hm,decoder->mac_key.data,decoder->mac_key.data_len,md) != 0)
2029         return -1;;
2030
2031     /* hash sequence number */
2032     fmt_seq(decoder->seq,buf);
2033
2034     decoder->seq++;
2035
2036     ssl_hmac_update(&hm,buf,8);
2037
2038     /* hash content type */
2039     buf[0]=ct;
2040     ssl_hmac_update(&hm,buf,1);
2041
2042     /* hash version,data length and data*/
2043     /* *((gint16*)buf) = g_htons(ver); */
2044     temp = g_htons(ver);
2045     memcpy(buf, &temp, 2);
2046     ssl_hmac_update(&hm,buf,2);
2047
2048     /* *((gint16*)buf) = g_htons(datalen); */
2049     temp = g_htons(datalen);
2050     memcpy(buf, &temp, 2);
2051     ssl_hmac_update(&hm,buf,2);
2052     ssl_hmac_update(&hm,data,datalen);
2053
2054     /* get digest and digest len*/
2055     ssl_hmac_final(&hm,buf,&len);
2056     ssl_hmac_cleanup(&hm);
2057     ssl_print_data("Mac", buf, len);
2058     if(memcmp(mac,buf,len))
2059         return -1;
2060
2061     return 0;
2062 }
2063
2064 int
2065 ssl3_check_mac(SslDecoder*decoder,int ct,guint8* data,
2066         guint32 datalen, guint8* mac)
2067 {
2068     SSL_MD mc;
2069     gint md;
2070     guint32 len;
2071     guint8 buf[64],dgst[20];
2072     gint pad_ct;
2073     gint16 temp;
2074
2075     pad_ct=(decoder->cipher_suite->dig==DIG_SHA)?40:48;
2076
2077     /* get cipher used for digest comptuation */
2078     md=ssl_get_digest_by_name(digests[decoder->cipher_suite->dig-0x40]);
2079     if (ssl_md_init(&mc,md) !=0)
2080         return -1;
2081
2082     /* do hash computation on data && padding */
2083     ssl_md_update(&mc,decoder->mac_key.data,decoder->mac_key.data_len);
2084
2085     /* hash padding*/
2086     memset(buf,0x36,pad_ct);
2087     ssl_md_update(&mc,buf,pad_ct);
2088
2089     /* hash sequence number */
2090     fmt_seq(decoder->seq,buf);
2091     decoder->seq++;
2092     ssl_md_update(&mc,buf,8);
2093
2094     /* hash content type */
2095     buf[0]=ct;
2096     ssl_md_update(&mc,buf,1);
2097
2098     /* hash data length in network byte order and data*/
2099     /* *((gint16* )buf) = g_htons(datalen); */
2100     temp = g_htons(datalen);
2101     memcpy(buf, &temp, 2);
2102     ssl_md_update(&mc,buf,2);
2103     ssl_md_update(&mc,data,datalen);
2104
2105     /* get partial digest */
2106     ssl_md_final(&mc,dgst,&len);
2107     ssl_md_cleanup(&mc);
2108
2109     ssl_md_init(&mc,md);
2110
2111     /* hash mac key */
2112     ssl_md_update(&mc,decoder->mac_key.data,decoder->mac_key.data_len);
2113
2114     /* hash padding and partial digest*/
2115     memset(buf,0x5c,pad_ct);
2116     ssl_md_update(&mc,buf,pad_ct);
2117     ssl_md_update(&mc,dgst,len);
2118
2119     ssl_md_final(&mc,dgst,&len);
2120     ssl_md_cleanup(&mc);
2121
2122     if(memcmp(mac,dgst,len))
2123         return -1;
2124
2125     return(0);
2126 }
2127
2128 #if 0
2129 static gint
2130 dtls_check_mac(SslDecoder*decoder, gint ct,int ver, guint8* data,
2131         guint32 datalen, guint8* mac)
2132 {
2133     SSL_HMAC hm;
2134     gint md;
2135     guint32 len;
2136     guint8 buf[20];
2137     guint32 netnum;
2138     md=ssl_get_digest_by_name(digests[decoder->cipher_suite->dig-0x40]);
2139     ssl_debug_printf("dtls_check_mac mac type:%s md %d\n",
2140         digests[decoder->cipher_suite->dig-0x40], md);
2141
2142     if (ssl_hmac_init(&hm,decoder->mac_key.data,decoder->mac_key.data_len,md) != 0)
2143         return -1;
2144     ssl_debug_printf("dtls_check_mac seq: %d epoch: %d\n",decoder->seq,decoder->epoch);
2145     /* hash sequence number */
2146     fmt_seq(decoder->seq,buf);
2147     buf[0]=decoder->epoch>>8;
2148     buf[1]=decoder->epoch;
2149
2150     ssl_hmac_update(&hm,buf,8);
2151
2152     /* hash content type */
2153     buf[0]=ct;
2154     ssl_hmac_update(&hm,buf,1);
2155
2156     /* hash version,data length and data */
2157     *((gint16*)buf) = g_htons(ver);
2158     ssl_hmac_update(&hm,buf,2);
2159
2160     *((gint16*)buf) = g_htons(datalen);
2161     ssl_hmac_update(&hm,buf,2);
2162     ssl_hmac_update(&hm,data,datalen);
2163     /* get digest and digest len */
2164     ssl_hmac_final(&hm,buf,&len);
2165     ssl_hmac_cleanup(&hm);
2166     ssl_print_data("Mac", buf, len);
2167     if(memcmp(mac,buf,len))
2168         return -1;
2169
2170     return(0);
2171 }
2172 #endif
2173
2174 #ifdef HAVE_LIBZ
2175 int
2176 ssl_decompress_record(SslDecompress* decomp, const guchar* in, guint inl, StringInfo* out_str, guint* outl)
2177 {
2178     gint err;
2179
2180     switch (decomp->compression) {
2181         case 1:  /* DEFLATE */
2182             err = Z_OK;
2183             if (out_str->data_len < 16384) {  /* maximal plain length */
2184                 ssl_data_realloc(out_str, 16384);
2185             }
2186             decomp->istream.next_in = (guchar*)in;
2187             decomp->istream.avail_in = inl;
2188             decomp->istream.next_out = out_str->data;
2189             decomp->istream.avail_out = out_str->data_len;
2190             if (inl > 0)
2191                 err = inflate(&decomp->istream, Z_SYNC_FLUSH);
2192             if (err != Z_OK) {
2193                 ssl_debug_printf("ssl_decompress_record: inflate() failed - %d\n", err);
2194                 return -1;
2195             }
2196             *outl = out_str->data_len - decomp->istream.avail_out;
2197             break;
2198         default:
2199             ssl_debug_printf("ssl_decompress_record: unsupported compression method %d\n", decomp->compression);
2200             return -1;
2201     }
2202     return 0;
2203 }
2204 #else
2205 int
2206 ssl_decompress_record(SslDecompress* decomp _U_, const guchar* in _U_, guint inl _U_, StringInfo* out_str _U_, guint* outl _U_)
2207 {
2208     ssl_debug_printf("ssl_decompress_record: unsupported compression method %d\n", decomp->compression);
2209     return -1;
2210 }
2211 #endif
2212
2213 int
2214 ssl_decrypt_record(SslDecryptSession*ssl,SslDecoder* decoder, gint ct,
2215         const guchar* in, guint inl, StringInfo* comp_str, StringInfo* out_str, guint* outl)
2216 {
2217     guint pad, worklen, uncomplen;
2218     guint8 *mac;
2219
2220     ssl_debug_printf("ssl_decrypt_record ciphertext len %d\n", inl);
2221     ssl_print_data("Ciphertext",in, inl);
2222
2223     /* ensure we have enough storage space for decrypted data */
2224     if (inl > out_str->data_len)
2225     {
2226         ssl_debug_printf("ssl_decrypt_record: allocating %d bytes for decrypt data (old len %d)\n",
2227                 inl + 32, out_str->data_len);
2228         ssl_data_realloc(out_str, inl + 32);
2229     }
2230
2231     /* First decrypt*/
2232     if ((pad = ssl_cipher_decrypt(&decoder->evp, out_str->data, out_str->data_len, in, inl))!= 0) {
2233         ssl_debug_printf("ssl_decrypt_record failed: ssl_cipher_decrypt: %s %s\n", gcry_strsource (pad),
2234                     gcry_strerror (pad));
2235         return -1;
2236     }
2237
2238     ssl_print_data("Plaintext", out_str->data, inl);
2239     worklen=inl;
2240
2241     /* Now strip off the padding*/
2242     if(decoder->cipher_suite->block!=1) {
2243         pad=out_str->data[inl-1];
2244         worklen-=(pad+1);
2245         ssl_debug_printf("ssl_decrypt_record found padding %d final len %d\n",
2246             pad, worklen);
2247     }
2248
2249     /* And the MAC */
2250     if (decoder->cipher_suite->dig_len > (gint)worklen)
2251     {
2252         ssl_debug_printf("ssl_decrypt_record wrong record len/padding outlen %d\n work %d\n",*outl, worklen);
2253         return -1;
2254     }
2255     worklen-=decoder->cipher_suite->dig_len;
2256     mac = out_str->data + worklen;
2257
2258     /* if TLS 1.1 we use the transmitted IV and remove it after (to not modify dissector in others parts)*/
2259     if(ssl->version_netorder==TLSV1DOT1_VERSION){
2260         worklen=worklen-decoder->cipher_suite->block;
2261         memcpy(out_str->data,out_str->data+decoder->cipher_suite->block,worklen);
2262     }
2263     if(ssl->version_netorder==DTLSV1DOT0_VERSION ||
2264       ssl->version_netorder==DTLSV1DOT0_VERSION_NOT){
2265         worklen=worklen-decoder->cipher_suite->block;
2266         memcpy(out_str->data,out_str->data+decoder->cipher_suite->block,worklen);
2267     }
2268     /* Now check the MAC */
2269     ssl_debug_printf("checking mac (len %d, version %X, ct %d seq %d)\n",
2270         worklen, ssl->version_netorder, ct, decoder->seq);
2271     if(ssl->version_netorder==SSLV3_VERSION){
2272         if(ssl3_check_mac(decoder,ct,out_str->data,worklen,mac) < 0) {
2273             ssl_debug_printf("ssl_decrypt_record: mac failed\n");
2274             return -1;
2275         }
2276     }
2277     else if(ssl->version_netorder==TLSV1_VERSION || ssl->version_netorder==TLSV1DOT1_VERSION){
2278         if(tls_check_mac(decoder,ct,ssl->version_netorder,out_str->data,worklen,mac)< 0) {
2279             ssl_debug_printf("ssl_decrypt_record: mac failed\n");
2280             return -1;
2281         }
2282     }
2283     else if(ssl->version_netorder==DTLSV1DOT0_VERSION ||
2284         ssl->version_netorder==DTLSV1DOT0_VERSION_NOT){
2285         /* following the openssl dtls errors the right test is:
2286         if(dtls_check_mac(decoder,ct,ssl->version_netorder,out_str->data,worklen,mac)< 0) { */
2287         if(tls_check_mac(decoder,ct,TLSV1_VERSION,out_str->data,worklen,mac)< 0) {
2288             ssl_debug_printf("ssl_decrypt_record: mac failed\n");
2289             return -1;
2290         }
2291     }
2292     ssl_debug_printf("ssl_decrypt_record: mac ok\n");
2293     *outl = worklen;
2294
2295     if (decoder->compression > 0) {
2296       ssl_debug_printf("ssl_decrypt_record: compression method %d\n", decoder->compression);
2297       ssl_data_copy(comp_str, out_str);
2298       ssl_print_data("Plaintext compressed", comp_str->data, worklen);
2299       if (!decoder->decomp) {
2300         ssl_debug_printf("decrypt_ssl3_record: no decoder available\n");
2301         return -1;
2302       }
2303       if (ssl_decompress_record(decoder->decomp, comp_str->data, worklen, out_str, &uncomplen) < 0) return -1;
2304       ssl_print_data("Plaintext uncompressed", out_str->data, uncomplen);
2305       *outl = uncomplen;
2306     }
2307
2308     return 0;
2309 }
2310
2311 static void
2312 ssl_get_version(gint* major, gint* minor, gint* patch)
2313 {
2314   *major = ver_major;
2315   *minor = ver_minor;
2316   *patch = ver_patch;
2317 }
2318
2319 #define RSA_PARS 6
2320 SSL_PRIVATE_KEY*
2321 ssl_privkey_to_sexp(struct gnutls_x509_privkey_int* priv_key)
2322 {
2323     gnutls_datum_t rsa_datum[RSA_PARS]; /* m, e, d, p, q, u */
2324     size_t tmp_size;
2325     gcry_sexp_t rsa_priv_key;
2326     gint major, minor, patch;
2327     gint i, p_idx, q_idx;
2328     int ret;
2329     size_t buf_len;
2330     unsigned char buf_keyid[32];
2331
2332 #ifdef SSL_FAST
2333     gcry_mpi_t* rsa_params = g_malloc(sizeof(gcry_mpi_t)*RSA_PARS);
2334 #else
2335     gcry_mpi_t rsa_params[RSA_PARS];
2336 #endif
2337
2338     buf_len = sizeof(buf_keyid);
2339     ret = gnutls_x509_privkey_get_key_id(priv_key, 0, buf_keyid, &buf_len);
2340     if (ret != 0) {
2341         ssl_debug_printf( "gnutls_x509_privkey_get_key_id(ssl_pkey, 0, buf_keyid, &buf_len) - %s\n", gnutls_strerror(ret));
2342     } else {
2343         ssl_debug_printf( "Private key imported: KeyID %s\n", bytes_to_str_punct(buf_keyid, (int) buf_len, ':'));
2344     }
2345
2346     /*
2347      * note: openssl and gnutls use 'p' and 'q' with opposite meaning:
2348      * our 'p' must be equal to 'q' as provided from openssl and viceversa
2349      */
2350
2351 #if (LIBGNUTLS_VERSION_MAJOR>2)||((LIBGNUTLS_VERSION_MAJOR==2)&&(LIBGNUTLS_VERSION_MINOR>=5))
2352     p_idx = 3; q_idx = 4;
2353 #else /* versions 2.4.x and older need 'p' and 'q' swapped */
2354     p_idx = 4; q_idx = 3;
2355 #endif
2356
2357     /* RSA get parameter */
2358     if (gnutls_x509_privkey_export_rsa_raw(priv_key,
2359                                            &rsa_datum[0],
2360                                            &rsa_datum[1],
2361                                            &rsa_datum[2],
2362                                            &rsa_datum[p_idx],
2363                                            &rsa_datum[q_idx],
2364                                            &rsa_datum[5])  != 0) {
2365         ssl_debug_printf("ssl_load_key: can't export rsa param (is a rsa private key file ?!?)\n");
2366 #ifdef SSL_FAST
2367         g_free(rsa_params);
2368 #endif
2369         return NULL;
2370     }
2371
2372     /* convert each rsa parameter to mpi format*/
2373     for(i=0; i<RSA_PARS; i++) {
2374       if (gcry_mpi_scan(&rsa_params[i], GCRYMPI_FMT_USG, rsa_datum[i].data, rsa_datum[i].size,&tmp_size) != 0) {
2375         ssl_debug_printf("ssl_load_key: can't convert m rsa param to int (size %d)\n", rsa_datum[i].size);
2376 #ifdef SSL_FAST
2377         g_free(rsa_params);
2378 #endif
2379         return NULL;
2380       }
2381     }
2382
2383     ssl_get_version(&major, &minor, &patch);
2384
2385     /* certain versions of gnutls require swap of rsa params 'p' and 'q' */
2386     if ((major <= 1) && (minor <= 0) && (patch <=13))
2387     {
2388         gcry_mpi_t tmp;
2389         ssl_debug_printf("ssl_load_key: swapping p and q parameters\n");
2390         tmp = rsa_params[4];
2391         rsa_params[4] = rsa_params[3];
2392         rsa_params[3] = tmp;
2393     }
2394
2395     if  (gcry_sexp_build( &rsa_priv_key, NULL,
2396             "(private-key(rsa((n%m)(e%m)(d%m)(p%m)(q%m)(u%m))))", rsa_params[0],
2397             rsa_params[1], rsa_params[2], rsa_params[3], rsa_params[4],
2398             rsa_params[5]) != 0) {
2399         ssl_debug_printf("ssl_load_key: can't build rsa private key s-exp\n");
2400 #ifdef SSL_FAST
2401         g_free(rsa_params);
2402 #endif
2403         return NULL;
2404     }
2405
2406 #if SSL_FAST
2407     return rsa_params;
2408 #else
2409     for (i=0; i< 6; i++)
2410         gcry_mpi_release(rsa_params[i]);
2411     return rsa_priv_key;
2412 #endif
2413
2414 }
2415
2416 Ssl_private_key_t *
2417 ssl_load_key(FILE* fp)
2418 {
2419     /* gnutls make our work much harded, since we have to work internally with
2420      * s-exp formatted data, but PEM loader export only in "gnutls_datum"
2421      * format, and a datum -> s-exp convertion function does not exist.
2422      */
2423     gnutls_x509_privkey_t priv_key;
2424     gnutls_datum key;
2425     gint size;
2426     guint bytes;
2427
2428     Ssl_private_key_t *private_key = g_malloc(sizeof(Ssl_private_key_t));
2429     private_key->x509_cert = 0;
2430     private_key->x509_pkey = 0;
2431     private_key->sexp_pkey = 0;
2432
2433     /* init private key data*/
2434     gnutls_x509_privkey_init(&priv_key);
2435
2436     /* compute file size and load all file contents into a datum buffer*/
2437     if (fseek(fp, 0, SEEK_END) < 0) {
2438         ssl_debug_printf("ssl_load_key: can't fseek file\n");
2439         g_free(private_key);
2440         return NULL;
2441     }
2442     if ((size = ftell(fp)) < 0) {
2443         ssl_debug_printf("ssl_load_key: can't ftell file\n");
2444         g_free(private_key);
2445         return NULL;
2446     }
2447     if (fseek(fp, 0, SEEK_SET) < 0) {
2448         ssl_debug_printf("ssl_load_key: can't re-fseek file\n");
2449         g_free(private_key);
2450         return NULL;
2451     }
2452     key.data = g_malloc(size);
2453     key.size = size;
2454     bytes = (guint) fread(key.data, 1, key.size, fp);
2455     if (bytes < key.size) {
2456         ssl_debug_printf("ssl_load_key: can't read from file %d bytes, got %d\n",
2457             key.size, bytes);
2458         g_free(private_key);
2459         g_free(key.data);
2460         return NULL;
2461     }
2462
2463     /* import PEM data*/
2464     if (gnutls_x509_privkey_import(priv_key, &key, GNUTLS_X509_FMT_PEM)!=0) {
2465         ssl_debug_printf("ssl_load_key: can't import pem data\n");
2466         g_free(private_key);
2467         g_free(key.data);
2468         return NULL;
2469     }
2470
2471     if (gnutls_x509_privkey_get_pk_algorithm(priv_key) != GNUTLS_PK_RSA) {
2472         ssl_debug_printf("ssl_load_key: private key public key algorithm isn't RSA\n");
2473         g_free(private_key);
2474         g_free(key.data);
2475         return NULL;
2476     }
2477
2478     g_free(key.data);
2479
2480     private_key->x509_pkey = priv_key;
2481     private_key->sexp_pkey = ssl_privkey_to_sexp(priv_key);
2482     if ( !private_key->sexp_pkey ) {
2483         g_free(private_key);
2484         return NULL;
2485     }
2486     return private_key;
2487 }
2488
2489 static const char *
2490 BAGTYPE(gnutls_pkcs12_bag_type_t x) {
2491     switch (x) {
2492         case GNUTLS_BAG_EMPTY:               return "Empty";
2493         case GNUTLS_BAG_PKCS8_ENCRYPTED_KEY: return "PKCS#8 Encrypted key";
2494         case GNUTLS_BAG_PKCS8_KEY:           return "PKCS#8 Key";
2495         case GNUTLS_BAG_CERTIFICATE:         return "Certificate";
2496         case GNUTLS_BAG_CRL:                 return "CRL";
2497         case GNUTLS_BAG_ENCRYPTED:           return "Encrypted";
2498         case GNUTLS_BAG_UNKNOWN:             return "Unknown";
2499         default:                             return "<undefined>";
2500     }
2501 }
2502
2503 Ssl_private_key_t *
2504 ssl_load_pkcs12(FILE* fp, const gchar *cert_passwd) {
2505
2506     int i, j, ret;
2507     int rest;
2508     unsigned char *p;
2509     gnutls_datum_t data;
2510     gnutls_pkcs12_bag_t bag = NULL;
2511     gnutls_pkcs12_bag_type_t bag_type;
2512     size_t len, buf_len;
2513     static char buf_name[256];
2514     static char buf_email[128];
2515     unsigned char buf_keyid[32];
2516
2517     gnutls_pkcs12_t       ssl_p12  = NULL;
2518     gnutls_x509_crt_t     ssl_cert = NULL;
2519     gnutls_x509_privkey_t ssl_pkey = NULL;
2520
2521     Ssl_private_key_t *private_key = g_malloc(sizeof(Ssl_private_key_t));
2522     private_key->x509_cert = 0;
2523     private_key->x509_pkey = 0;
2524     private_key->sexp_pkey = 0;
2525
2526     rest = 4096;
2527     data.data = g_malloc(rest);
2528     data.size = rest;
2529     p = data.data;
2530     while ((len = fread(p, 1, rest, fp)) > 0) {
2531         p += len;
2532         rest -= (int) len;
2533         if (!rest) {
2534             rest = 1024;
2535             data.data = g_realloc(data.data, data.size + rest);
2536             p = data.data + data.size;
2537             data.size += rest;
2538         }
2539     }
2540     data.size -= rest;
2541     ssl_debug_printf("%d bytes read\n", data.size);
2542     if (!feof(fp)) {
2543         ssl_debug_printf( "Error during certificate reading.\n");
2544         g_free(private_key);
2545         return 0;
2546     }
2547
2548     ret = gnutls_pkcs12_init(&ssl_p12);
2549     if (ret < 0) {
2550         ssl_debug_printf("gnutls_pkcs12_init(&st_p12) - %s", gnutls_strerror(ret));
2551         g_free(private_key);
2552         return 0;
2553     }
2554     ret = gnutls_pkcs12_import(ssl_p12, &data, GNUTLS_X509_FMT_DER, 0);
2555     g_free(data.data);
2556     if (ret < 0) {
2557         ssl_debug_printf("gnutls_pkcs12_import(ssl_p12, &data, GNUTLS_X509_FMT_DER, 0) - %s\n", gnutls_strerror(ret));
2558         g_free(private_key);
2559         return 0;
2560     }
2561
2562     ssl_debug_printf( "PKCS#12 imported\n");
2563
2564     for (i=0; ret==0; i++) {
2565
2566         if (bag) { gnutls_pkcs12_bag_deinit(bag); bag = NULL; }
2567
2568         ret = gnutls_pkcs12_bag_init(&bag);
2569         if (ret < 0) continue;
2570
2571         ret = gnutls_pkcs12_get_bag(ssl_p12, i, bag);
2572         if (ret < 0) continue;
2573
2574         for (j=0; ret==0 && j<gnutls_pkcs12_bag_get_count(bag); j++) {
2575
2576             bag_type = gnutls_pkcs12_bag_get_type(bag, j);
2577             if (bag_type >= GNUTLS_BAG_UNKNOWN) continue;
2578             ssl_debug_printf( "Bag %d/%d: %s\n", i, j, BAGTYPE(bag_type));
2579             if (bag_type == GNUTLS_BAG_ENCRYPTED) {
2580                 ret = gnutls_pkcs12_bag_decrypt(bag, cert_passwd);
2581                 if (ret == 0) {
2582                     bag_type = gnutls_pkcs12_bag_get_type(bag, j);
2583                     if (bag_type >= GNUTLS_BAG_UNKNOWN) continue;
2584                     ssl_debug_printf( "Bag %d/%d decrypted: %s\n", i, j, BAGTYPE(bag_type));
2585                 }
2586                 ret = 0;
2587             }
2588
2589             ret = gnutls_pkcs12_bag_get_data(bag, j, &data);
2590             if (ret < 0) continue;
2591
2592             switch (bag_type) {
2593
2594                 case GNUTLS_BAG_CERTIFICATE:
2595
2596                     ret = gnutls_x509_crt_init(&ssl_cert);
2597                     if (ret < 0) {
2598                         ssl_debug_printf( "gnutls_x509_crt_init(&ssl_cert) - %s\n", gnutls_strerror(ret));
2599                         g_free(private_key);
2600                         return 0;
2601                     }
2602
2603                     ret = gnutls_x509_crt_import(ssl_cert, &data, GNUTLS_X509_FMT_DER);
2604                     if (ret < 0) {
2605                         ssl_debug_printf( "gnutls_x509_crt_import(ssl_cert, &data, GNUTLS_X509_FMT_DER) - %s\n", gnutls_strerror(ret));
2606                         g_free(private_key);
2607                         return 0;
2608                     }
2609
2610                     buf_len = sizeof(buf_name);
2611                     ret = gnutls_x509_crt_get_dn_by_oid(ssl_cert, GNUTLS_OID_X520_COMMON_NAME, 0, 0, buf_name, &buf_len);
2612                     if (ret < 0) { g_strlcpy(buf_name, "<ERROR>", 256); }
2613                     buf_len = sizeof(buf_email);
2614                     ret = gnutls_x509_crt_get_dn_by_oid(ssl_cert, GNUTLS_OID_PKCS9_EMAIL, 0, 0, buf_email, &buf_len);
2615                     if (ret < 0) { g_strlcpy(buf_email, "<ERROR>", 128); }
2616
2617                     buf_len = sizeof(buf_keyid);
2618                     ret = gnutls_x509_crt_get_key_id(ssl_cert, 0, buf_keyid, &buf_len);
2619                     if (ret < 0) { g_strlcpy(buf_keyid, "<ERROR>", 32); }
2620
2621                     private_key->x509_cert = ssl_cert;
2622                     ssl_debug_printf( "Certificate imported: %s <%s>, KeyID %s\n", buf_name, buf_email, bytes_to_str(buf_keyid, (int) buf_len));
2623                     break;
2624
2625                 case GNUTLS_BAG_PKCS8_KEY:
2626                 case GNUTLS_BAG_PKCS8_ENCRYPTED_KEY:
2627
2628                     ret = gnutls_x509_privkey_init(&ssl_pkey);
2629                     if (ret < 0) {
2630                         ssl_debug_printf( "gnutls_x509_privkey_init(&ssl_pkey) - %s\n", gnutls_strerror(ret));
2631                         g_free(private_key);
2632                         return 0;
2633                     }
2634                     ret = gnutls_x509_privkey_import_pkcs8(ssl_pkey, &data, GNUTLS_X509_FMT_DER, cert_passwd,
2635                                                            (bag_type==GNUTLS_BAG_PKCS8_KEY) ? GNUTLS_PKCS_PLAIN : 0);
2636                     if (ret < 0) {
2637                         ssl_debug_printf( "Can not decrypt private key - %s\n", gnutls_strerror(ret));
2638                         g_free(private_key);
2639                         return 0;
2640                     }
2641
2642                     if (gnutls_x509_privkey_get_pk_algorithm(ssl_pkey) != GNUTLS_PK_RSA) {
2643                         ssl_debug_printf("ssl_load_pkcs12: private key public key algorithm isn't RSA\n");
2644                         g_free(private_key);
2645                         return 0;
2646                     }
2647
2648                     private_key->x509_pkey = ssl_pkey;
2649                     private_key->sexp_pkey = ssl_privkey_to_sexp(ssl_pkey);
2650                     if ( !private_key->sexp_pkey ) {
2651                         g_free(private_key);
2652                         return NULL;
2653                     }
2654                     break;
2655
2656                 default: ;
2657             }
2658         }  /* j */
2659     }  /* i */
2660
2661     return private_key;
2662 }
2663
2664
2665 void ssl_free_key(Ssl_private_key_t* key)
2666 {
2667 #if SSL_FAST
2668     gint i;
2669     for (i=0; i< 6; i++)
2670         gcry_mpi_release(key->sexp_pkey[i]);
2671 #else
2672     gcry_sexp_release(key->sexp_pkey);
2673 #endif
2674
2675     if (!key->x509_cert)
2676         gnutls_x509_crt_deinit (key->x509_cert);
2677
2678     if (!key->x509_pkey)
2679         gnutls_x509_privkey_deinit(key->x509_pkey);
2680
2681     g_free((Ssl_private_key_t*)key);
2682 }
2683
2684 gint
2685 ssl_find_private_key(SslDecryptSession *ssl_session, GHashTable *key_hash, GTree* associations, packet_info *pinfo) {
2686     SslService dummy;
2687     char ip_addr_any[] = {0,0,0,0};
2688     guint32 port = 0;
2689     Ssl_private_key_t * private_key;
2690
2691     /* we need to know which side of the conversation is speaking */
2692     if (ssl_packet_from_server(ssl_session, associations, pinfo)) {
2693         dummy.addr = pinfo->src;
2694         dummy.port = port = pinfo->srcport;
2695     } else {
2696         dummy.addr = pinfo->dst;
2697         dummy.port = port = pinfo->destport;
2698     }
2699     ssl_debug_printf("ssl_find_private_key server %s:%u\n",
2700                      ep_address_to_str(&dummy.addr),dummy.port);
2701
2702     /* try to retrieve private key for this service. Do it now 'cause pinfo
2703      * is not always available
2704      * Note that with HAVE_LIBGNUTLS undefined private_key is allways 0
2705      * and thus decryption never engaged*/
2706
2707
2708     ssl_session->private_key = 0;
2709     private_key = g_hash_table_lookup(key_hash, &dummy);
2710
2711     if (!private_key) {
2712         ssl_debug_printf("ssl_find_private_key can't find private key for this server! Try it again with universal port 0\n");
2713
2714         dummy.port = 0;
2715         private_key = g_hash_table_lookup(key_hash, &dummy);
2716     }
2717
2718     if (!private_key) {
2719         ssl_debug_printf("ssl_find_private_key can't find private key for this server (universal port)! Try it again with universal address 0.0.0.0\n");
2720
2721         dummy.addr.type = AT_IPv4;
2722         dummy.addr.len = 4;
2723         dummy.addr.data = ip_addr_any;
2724
2725         dummy.port = port;
2726         private_key = g_hash_table_lookup(key_hash, &dummy);
2727     }
2728
2729     if (!private_key) {
2730         ssl_debug_printf("ssl_find_private_key can't find any private key!\n");
2731     } else {
2732         ssl_session->private_key = private_key->sexp_pkey;
2733     }
2734
2735     return 0;
2736 }
2737
2738 void
2739 ssl_lib_init(void)
2740 {
2741     const gchar* str = gnutls_check_version(NULL);
2742
2743     /* get library version */
2744     /* old relase of gnutls does not define the appropriate macros, so get
2745      * them from the string*/
2746     ssl_debug_printf("gnutls version: %s\n", str);
2747     sscanf(str, "%d.%d.%d", &ver_major, &ver_minor, &ver_patch);
2748 }
2749
2750 #else /* HAVE_LIBGNUTLS */
2751 /* no libgnutl: dummy operation to keep interface consistent*/
2752 void
2753 ssl_lib_init(void)
2754 {
2755 }
2756
2757 Ssl_private_key_t *
2758 ssl_load_key(FILE* fp)
2759 {
2760     ssl_debug_printf("ssl_load_key: impossible without gnutls. fp %p\n",fp);
2761     return NULL;
2762 }
2763
2764 Ssl_private_key_t *
2765 ssl_load_pkcs12(FILE* fp, const gchar *cert_passwd _U_) {
2766     ssl_debug_printf("ssl_load_pkcs12: impossible without gnutls. fp %p\n",fp);
2767     return NULL;
2768 }
2769
2770 void
2771 ssl_free_key(Ssl_private_key_t* key _U_)
2772 {
2773 }
2774
2775 gint
2776 ssl_find_private_key(SslDecryptSession *ssl_session _U_, GHashTable *key_hash _U_, GTree* associations _U_, packet_info *pinfo _U_)
2777 {
2778     return 0;
2779 }
2780
2781 int
2782 ssl_find_cipher(int num,SslCipherSuite* cs)
2783 {
2784     ssl_debug_printf("ssl_find_cipher: dummy without gnutls. num %d cs %p\n",
2785         num,cs);
2786     return 0;
2787 }
2788 int
2789 ssl_generate_keyring_material(SslDecryptSession*ssl)
2790 {
2791     ssl_debug_printf("ssl_generate_keyring_material: impossible without gnutls. ssl %p\n",
2792         ssl);
2793     return 0;
2794 }
2795 void
2796 ssl_change_cipher(SslDecryptSession *ssl_session, gboolean server)
2797 {
2798     ssl_debug_printf("ssl_change_cipher %s: makes no sense without gnutls. ssl %p\n",
2799         (server)?"SERVER":"CLIENT", ssl_session);
2800 }
2801
2802 int
2803 ssl_decrypt_pre_master_secret(SslDecryptSession* ssl_session,
2804     StringInfo* encrypted_pre_master, SSL_PRIVATE_KEY *pk)
2805 {
2806     ssl_debug_printf("ssl_decrypt_pre_master_secret: impossible without gnutls."
2807         " ssl %p encrypted_pre_master %p pk %p\n", ssl_session,
2808         encrypted_pre_master, pk);
2809     return 0;
2810 }
2811
2812 int
2813 ssl_decrypt_record(SslDecryptSession*ssl, SslDecoder* decoder, gint ct,
2814         const guchar* in, guint inl, StringInfo* comp_str _U_, StringInfo* out, guint* outl)
2815 {
2816     ssl_debug_printf("ssl_decrypt_record: impossible without gnutls. ssl %p"
2817         "decoder %p ct %d, in %p inl %d out %p outl %p\n", ssl, decoder, ct,
2818         in, inl, out, outl);
2819     return 0;
2820 }
2821
2822 gint
2823 ssl_cipher_setiv(SSL_CIPHER_CTX *cipher _U_, guchar* iv _U_, gint iv_len _U_)
2824 {
2825     ssl_debug_printf("ssl_cipher_setiv: impossible without gnutls.\n");
2826     return 0;
2827 }
2828
2829 #endif /* HAVE_LIBGNUTLS */
2830
2831 /* get ssl data for this session. if no ssl data is found allocate a new one*/
2832 void
2833 ssl_session_init(SslDecryptSession* ssl_session)
2834 {
2835     ssl_debug_printf("ssl_session_init: initializing ptr %p size %" G_GSIZE_MODIFIER "u\n",
2836                      (void *)ssl_session, sizeof(SslDecryptSession));
2837
2838     ssl_session->master_secret.data = ssl_session->_master_secret;
2839     ssl_session->session_id.data = ssl_session->_session_id;
2840     ssl_session->client_random.data = ssl_session->_client_random;
2841     ssl_session->server_random.data = ssl_session->_server_random;
2842     ssl_session->master_secret.data_len = 48;
2843     ssl_session->server_data_for_iv.data_len = 0;
2844     ssl_session->server_data_for_iv.data = ssl_session->_server_data_for_iv;
2845     ssl_session->client_data_for_iv.data_len = 0;
2846     ssl_session->client_data_for_iv.data = ssl_session->_client_data_for_iv;
2847     ssl_session->app_data_segment.data=NULL;
2848     ssl_session->app_data_segment.data_len=0;
2849     SET_ADDRESS(&ssl_session->srv_addr, AT_NONE, 0, NULL);
2850     ssl_session->srv_ptype = PT_NONE;
2851     ssl_session->srv_port = 0;
2852 }
2853
2854 void
2855 ssl_set_server(SslDecryptSession* ssl, address *addr, port_type ptype, guint32 port)
2856 {
2857     SE_COPY_ADDRESS(&ssl->srv_addr, addr);
2858     ssl->srv_ptype = ptype;
2859     ssl->srv_port = port;
2860 }
2861
2862 /* Hash Functions for TLS/DTLS sessions table and private keys table*/
2863 gint
2864 ssl_equal (gconstpointer v, gconstpointer v2)
2865 {
2866     const StringInfo *val1;
2867     const StringInfo *val2;
2868     val1 = (const StringInfo *)v;
2869     val2 = (const StringInfo *)v2;
2870
2871     if (val1->data_len == val2->data_len &&
2872         !memcmp(val1->data, val2->data, val2->data_len)) {
2873         return 1;
2874     }
2875     return 0;
2876 }
2877
2878 guint
2879 ssl_hash  (gconstpointer v)
2880 {
2881     guint l,hash;
2882     const StringInfo* id;
2883     const guint* cur;
2884     hash = 0;
2885     id = (const StringInfo*) v;
2886
2887     /*  id and id->data are mallocated in ssl_save_session().  As such 'data'
2888      *  should be aligned for any kind of access (for example as a guint as
2889      *  is done below).  The intermediate void* cast is to prevent "cast
2890      *  increases required alignment of target type" warnings on CPUs (such
2891      *  as SPARCs) that do not allow misaligned memory accesses.
2892      */
2893     cur = (const guint*)(void*) id->data;
2894
2895     for (l=4; (l < id->data_len); l+=4, cur++)
2896         hash = hash ^ (*cur);
2897
2898     return hash;
2899 }
2900
2901 gint
2902 ssl_private_key_equal (gconstpointer v, gconstpointer v2)
2903 {
2904     const SslService *val1;
2905     const SslService *val2;
2906     val1 = (const SslService *)v;
2907     val2 = (const SslService *)v2;
2908
2909     if ((val1->port == val2->port) &&
2910         ! CMP_ADDRESS(&val1->addr, &val2->addr)) {
2911         return 1;
2912     }
2913     return 0;
2914 }
2915
2916 guint
2917 ssl_private_key_hash  (gconstpointer v)
2918 {
2919     const SslService *key;
2920     guint l, hash, len ;
2921     const guint* cur;
2922     key = (const SslService *)v;
2923     hash = key->port;
2924     len = key->addr.len;
2925     cur = (const guint*) key->addr.data;
2926
2927     for (l=4; (l<len); l+=4, cur++)
2928         hash = hash ^ (*cur);
2929
2930     return hash;
2931 }
2932
2933 /* private key table entries have a scope 'larger' then packet capture,
2934  * so we can't relay on se_alloc** function */
2935 void
2936 ssl_private_key_free(gpointer id, gpointer key, gpointer dummy _U_)
2937 {
2938     g_free(id);
2939     ssl_free_key((Ssl_private_key_t*) key);
2940 }
2941
2942 /* handling of association between tls/dtls ports and clear text protocol */
2943 void
2944 ssl_association_add(GTree* associations, dissector_handle_t handle, guint port, const gchar *protocol, gboolean tcp, gboolean from_key_list)
2945 {
2946
2947     SslAssociation* assoc;
2948     assoc = g_malloc(sizeof(SslAssociation));
2949
2950     assoc->tcp = tcp;
2951     assoc->ssl_port = port;
2952     assoc->info=g_strdup(protocol);
2953     assoc->handle = find_dissector(protocol);
2954     assoc->from_key_list = from_key_list;
2955
2956     ssl_debug_printf("association_add %s port %d protocol %s handle %p\n",
2957                      (assoc->tcp)?"TCP":"UDP", port, protocol, (void *)(assoc->handle));
2958
2959
2960     if (!assoc->handle) {
2961         ssl_debug_printf("association_add could not find handle for protocol '%s', try to find 'data' dissector\n", protocol);
2962         assoc->handle = find_dissector("data");
2963     }
2964
2965     if(!assoc->handle) {
2966         fprintf(stderr, "association_add() could not find handle for protocol:%s\n",protocol);
2967     } else {
2968         if(port) {
2969             if(tcp)
2970                 dissector_add_uint("tcp.port", port, handle);
2971             else
2972                 dissector_add_uint("udp.port", port, handle);
2973         }
2974         g_tree_insert(associations, assoc, assoc);
2975     }
2976 }
2977
2978 void
2979 ssl_association_remove(GTree* associations, SslAssociation *assoc)
2980 {
2981     ssl_debug_printf("ssl_association_remove removing %s %u - %s handle %p\n",
2982                      (assoc->tcp)?"TCP":"UDP", assoc->ssl_port, assoc->info, (void *)(assoc->handle));
2983     if (assoc->handle)
2984         dissector_delete_uint((assoc->tcp)?"tcp.port":"udp.port", assoc->ssl_port, assoc->handle);
2985
2986     g_free(assoc->info);
2987
2988     g_tree_remove(associations, assoc);
2989     g_free(assoc);
2990 }
2991
2992 gint
2993 ssl_association_cmp(gconstpointer a, gconstpointer b)
2994 {
2995     const SslAssociation *assoc_a=a, *assoc_b=b;
2996     if (assoc_a->tcp != assoc_b->tcp) return (assoc_a->tcp)?1:-1;
2997     return assoc_a->ssl_port - assoc_b->ssl_port;
2998 }
2999
3000 SslAssociation*
3001 ssl_association_find(GTree * associations, guint port, gboolean tcp)
3002 {
3003     register SslAssociation* ret;
3004     SslAssociation assoc_tmp;
3005
3006     assoc_tmp.tcp = tcp;
3007     assoc_tmp.ssl_port = port;
3008     ret = g_tree_lookup(associations, &assoc_tmp);
3009
3010     ssl_debug_printf("association_find: %s port %d found %p\n", (tcp)?"TCP":"UDP", port, (void *)ret);
3011     return ret;
3012 }
3013
3014 gint
3015 ssl_assoc_from_key_list(gpointer key _U_, gpointer data, gpointer user_data)
3016 {
3017     if (((SslAssociation*)data)->from_key_list)
3018         ep_stack_push((ep_stack_t)user_data, data);
3019     return FALSE;
3020 }
3021
3022 int
3023 ssl_packet_from_server(SslDecryptSession* ssl, GTree* associations, packet_info *pinfo)
3024 {
3025     gint ret;
3026     if (ssl && (ssl->srv_ptype != PT_NONE)) {
3027         ret = (ssl->srv_ptype == pinfo->ptype) && (ssl->srv_port == pinfo->srcport) && ADDRESSES_EQUAL(&ssl->srv_addr, &pinfo->src);
3028     } else {
3029         ret = ssl_association_find(associations, pinfo->srcport, pinfo->ptype == PT_TCP) != 0;
3030     }
3031
3032     ssl_debug_printf("packet_from_server: is from server - %s\n", (ret)?"TRUE":"FALSE");
3033     return ret;
3034 }
3035
3036 /* add to packet data a newly allocated tvb with the specified real data*/
3037 void
3038 ssl_add_record_info(gint proto, packet_info *pinfo, guchar* data, gint data_len, gint record_id)
3039 {
3040     guchar* real_data;
3041     SslRecordInfo* rec;
3042     SslPacketInfo* pi;
3043     real_data = se_alloc(data_len);
3044     rec = se_alloc(sizeof(SslRecordInfo));
3045     pi = p_get_proto_data(pinfo->fd, proto);
3046
3047     if (!pi)
3048     {
3049         pi = se_alloc0(sizeof(SslPacketInfo));
3050         p_add_proto_data(pinfo->fd, proto,pi);
3051     }
3052
3053     rec->id = record_id;
3054     rec->tvb = tvb_new_real_data(real_data, data_len, data_len);
3055     memcpy(real_data, data, data_len);
3056
3057     /* head insertion */
3058     rec->next= pi->handshake_data;
3059     pi->handshake_data = rec;
3060 }
3061
3062
3063 /* search in packet data the tvbuff associated to the specified id */
3064 tvbuff_t*
3065 ssl_get_record_info(int proto, packet_info *pinfo, gint record_id)
3066 {
3067     SslRecordInfo* rec;
3068     SslPacketInfo* pi;
3069     pi = p_get_proto_data(pinfo->fd, proto);
3070
3071     if (!pi)
3072         return NULL;
3073
3074     for (rec = pi->handshake_data; rec; rec = rec->next)
3075         if (rec->id == record_id)
3076             return rec->tvb;
3077
3078     return NULL;
3079 }
3080
3081 void
3082 ssl_add_data_info(gint proto, packet_info *pinfo, guchar* data, gint data_len, gint key, SslFlow *flow)
3083 {
3084     SslDataInfo *rec, **prec;
3085     SslPacketInfo *pi;
3086
3087     pi = p_get_proto_data(pinfo->fd, proto);
3088     if (!pi)
3089     {
3090         pi = se_alloc0(sizeof(SslPacketInfo));
3091         p_add_proto_data(pinfo->fd, proto,pi);
3092     }
3093
3094     rec = se_alloc(sizeof(SslDataInfo)+data_len);
3095     rec->key = key;
3096     rec->plain_data.data = (guchar*)(rec + 1);
3097     memcpy(rec->plain_data.data, data, data_len);
3098     rec->plain_data.data_len = data_len;
3099     rec->seq = flow->byte_seq;
3100     rec->nxtseq = flow->byte_seq + data_len;
3101     rec->flow = flow;
3102     rec->next = NULL;
3103
3104     flow->byte_seq += data_len;
3105
3106     /* insertion */
3107     prec = &pi->appl_data;
3108     while (*prec) prec = &(*prec)->next;
3109     *prec = rec;
3110
3111     ssl_debug_printf("ssl_add_data_info: new data inserted data_len = %d, seq = %u, nxtseq = %u\n",
3112                      rec->plain_data.data_len, rec->seq, rec->nxtseq);
3113 }
3114
3115 SslDataInfo*
3116 ssl_get_data_info(int proto, packet_info *pinfo, gint key)
3117 {
3118     SslDataInfo* rec;
3119     SslPacketInfo* pi;
3120     pi = p_get_proto_data(pinfo->fd, proto);
3121
3122     if (!pi) return NULL;
3123
3124     rec = pi->appl_data;
3125     while (rec) {
3126         if (rec->key == key) return rec;
3127         rec = rec->next;
3128     }
3129
3130     return NULL;
3131 }
3132
3133 /* initialize/reset per capture state data (ssl sessions cache) */
3134 void
3135 ssl_common_init(GHashTable **session_hash, StringInfo *decrypted_data, StringInfo *compressed_data)
3136 {
3137     if (*session_hash)
3138         g_hash_table_destroy(*session_hash);
3139     *session_hash = g_hash_table_new(ssl_hash, ssl_equal);
3140
3141     g_free(decrypted_data->data);
3142     ssl_data_alloc(decrypted_data, 32);
3143
3144     g_free(compressed_data->data);
3145     ssl_data_alloc(compressed_data, 32);
3146 }
3147
3148 /* parse ssl related preferences (private keys and ports association strings) */
3149 void
3150 ssl_parse_key_list(const gchar * keys_list, GHashTable *key_hash, GTree* associations, dissector_handle_t handle, gboolean tcp)
3151 {
3152     gchar* end;
3153     gchar* start;
3154     gchar* tmp;
3155     guchar* ip;
3156     SslService* service;
3157     Ssl_private_key_t * private_key, *tmp_private_key;
3158     FILE* fp;
3159
3160     start = g_strdup(keys_list);
3161     tmp = start;
3162     ssl_debug_printf("ssl_init keys string:\n%s\n", start);
3163     do {
3164         int read_index, write_index;
3165         gchar* addr, *port, *protocol, *filename, *cert_passwd;
3166
3167         addr = start;
3168         /* split ip/file couple with ';' separator*/
3169         end = strpbrk(start, ";\n\r");
3170         if (end) {
3171             *end = 0;
3172             start = end+1;
3173         }
3174
3175         /* skip comments (in file) */
3176         if (addr[0] == '#') continue;
3177
3178         /* for each entry split ip, port, protocol, filename with ',' separator */
3179         ssl_debug_printf("ssl_init found host entry %s\n", addr);
3180         port = strchr(addr, ',');
3181         if (!port)
3182         {
3183             ssl_debug_printf("ssl_init entry malformed can't find port in '%s'\n", addr);
3184             continue;
3185         }
3186         *port = 0;
3187         port++;
3188
3189         protocol = strchr(port,',');
3190         if (!protocol)
3191         {
3192             ssl_debug_printf("ssl_init entry malformed can't find protocol in %s\n", port);
3193             continue;
3194         }
3195         *protocol=0;
3196         protocol++;
3197
3198         filename = strchr(protocol,',');
3199         if (!filename)
3200         {
3201             ssl_debug_printf("ssl_init entry malformed can't find filename in %s\n", protocol);
3202             continue;
3203         }
3204         *filename=0;
3205         filename++;
3206
3207         cert_passwd = strchr(filename,',');
3208         if (cert_passwd)
3209         {
3210             *cert_passwd=0;
3211             cert_passwd++;
3212         }
3213
3214         /* convert ip and port string to network rappresentation*/
3215         service = g_malloc(sizeof(SslService) + 4);
3216         service->addr.type = AT_IPv4;
3217         service->addr.len = 4;
3218         service->addr.data = ip = ((guchar*)service) + sizeof(SslService);
3219
3220         /* remove all spaces in addr */
3221         read_index = 0;
3222         write_index = 0;
3223
3224         while(addr[read_index]) {
3225             if (addr[read_index] != ' ') {
3226                 addr[write_index] = addr[read_index];
3227                 write_index++;
3228             }
3229             read_index++;
3230         }
3231         addr[write_index] = 0;
3232
3233         if ( !strcmp("any", addr) || !strcmp("ANY", addr) ) {
3234             ip[0] = 0;
3235             ip[1] = 0;
3236             ip[2] = 0;
3237             ip[3] = 0;
3238         } else {
3239             guint tmp0, tmp1, tmp2, tmp3;
3240
3241             sscanf(addr, "%u.%u.%u.%u", &tmp0, &tmp1, &tmp2, &tmp3);
3242             ip[0] = (guchar)tmp0;
3243             ip[1] = (guchar)tmp1;
3244             ip[2] = (guchar)tmp2;
3245             ip[3] = (guchar)tmp3;
3246         }
3247
3248         if(!strcmp("start_tls", port)) {
3249             service->port = 0;
3250         } else {
3251             service->port = atoi(port);
3252         }
3253         ssl_debug_printf("ssl_init addr '%u.%u.%u.%u' port '%d' filename '%s' password(only for p12 file) '%s'\n",
3254                          ip[0], ip[1], ip[2], ip[3], service->port, filename, cert_passwd ? cert_passwd : "(null)");
3255
3256         /* try to load pen or p12 file*/
3257         fp = ws_fopen(filename, "rb");
3258         if (!fp) {
3259             fprintf(stderr, "can't open file %s \n",filename);
3260             continue;
3261         }
3262
3263         if (!cert_passwd) {
3264             private_key = ssl_load_key(fp);
3265         }
3266         else
3267         {
3268             private_key = ssl_load_pkcs12(fp,cert_passwd);
3269         }
3270         /* !!! */
3271         if (!private_key) {
3272             fprintf(stderr,"can't load private key from %s\n",
3273                     filename);
3274             fclose(fp);
3275             continue;
3276         }
3277
3278         fclose(fp);
3279
3280         ssl_debug_printf("ssl_init private key file %s successfully loaded\n",filename);
3281
3282         /* if item exists, remove first */
3283         tmp_private_key = g_hash_table_lookup(key_hash, service);
3284         if (tmp_private_key) {
3285             g_hash_table_remove(key_hash, service);
3286             ssl_free_key(tmp_private_key);
3287         }
3288         g_hash_table_insert(key_hash, service, private_key);
3289
3290         ssl_association_add(associations, handle, service->port, protocol, tcp, TRUE);
3291
3292     } while (end != NULL);
3293     g_free(tmp);
3294 }
3295
3296 /* store master secret into session data cache */
3297 void
3298 ssl_save_session(SslDecryptSession* ssl, GHashTable *session_hash)
3299 {
3300     /* allocate stringinfo chunks for session id and master secret data*/
3301     StringInfo* session_id;
3302     StringInfo* master_secret;
3303     session_id = se_alloc0(sizeof(StringInfo) + ssl->session_id.data_len);
3304     master_secret = se_alloc0(48 + sizeof(StringInfo));
3305
3306     master_secret->data = ((guchar*)master_secret+sizeof(StringInfo));
3307
3308     /*  ssl_hash() depends on session_id->data being aligned for guint access
3309      *  so be careful in changing how it is allocated.
3310      */
3311     session_id->data = ((guchar*)session_id+sizeof(StringInfo));
3312
3313     ssl_data_set(session_id, ssl->session_id.data, ssl->session_id.data_len);
3314     ssl_data_set(master_secret, ssl->master_secret.data, ssl->master_secret.data_len);
3315     g_hash_table_insert(session_hash, session_id, master_secret);
3316     ssl_print_string("ssl_save_session stored session id", session_id);
3317     ssl_print_string("ssl_save_session stored master secret", master_secret);
3318 }
3319
3320 void
3321 ssl_restore_session(SslDecryptSession* ssl, GHashTable *session_hash)
3322 {
3323     StringInfo* ms;
3324     ms = g_hash_table_lookup(session_hash, &ssl->session_id);
3325
3326     if (!ms) {
3327         ssl_debug_printf("ssl_restore_session can't find stored session\n");
3328         return;
3329     }
3330     ssl_data_set(&ssl->master_secret, ms->data, ms->data_len);
3331     ssl->state |= SSL_MASTER_SECRET;
3332     ssl_debug_printf("ssl_restore_session master key retrieved\n");
3333 }
3334
3335 int
3336 ssl_is_valid_content_type(guint8 type)
3337 {
3338     if (type >= 0x14 && type <= 0x17)
3339     {
3340         return 1;
3341     }
3342
3343     return 0;
3344 }
3345
3346 #ifdef SSL_DECRYPT_DEBUG
3347
3348 static FILE* ssl_debug_file=NULL;
3349
3350 void
3351 ssl_set_debug(char* name)
3352 {
3353     static gint debug_file_must_be_closed;
3354     gint use_stderr;
3355     debug_file_must_be_closed = 0;
3356     use_stderr = name?(strcmp(name, SSL_DEBUG_USE_STDERR) == 0):0;
3357
3358     if (debug_file_must_be_closed)
3359         fclose(ssl_debug_file);
3360     if (use_stderr)
3361         ssl_debug_file = stderr;
3362     else if (!name || (strcmp(name, "") ==0))
3363         ssl_debug_file = NULL;
3364     else
3365         ssl_debug_file = ws_fopen(name, "w");
3366     if (!use_stderr && ssl_debug_file)
3367         debug_file_must_be_closed = 1;
3368 }
3369
3370 void
3371 ssl_debug_flush(void)
3372 {
3373     if (ssl_debug_file)
3374         fflush(ssl_debug_file);
3375 }
3376
3377 void
3378 ssl_debug_printf(const gchar* fmt, ...)
3379 {
3380     va_list ap;
3381     gint ret;
3382     ret=0;
3383
3384     if (!ssl_debug_file)
3385         return;
3386
3387     va_start(ap, fmt);
3388     ret += vfprintf(ssl_debug_file, fmt, ap);
3389     va_end(ap);
3390 }
3391
3392 void
3393 ssl_print_text_data(const gchar* name, const guchar* data, size_t len)
3394 {
3395     size_t i;
3396     if (!ssl_debug_file)
3397         return;
3398     fprintf(ssl_debug_file,"%s: ",name);
3399     for (i=0; i< len; i++) {
3400       fprintf(ssl_debug_file,"%c",data[i]);
3401     }
3402     fprintf(ssl_debug_file,"\n");
3403 }
3404
3405 void
3406 ssl_print_data(const gchar* name, const guchar* data, size_t len)
3407 {
3408     size_t i;
3409     if (!ssl_debug_file)
3410         return;
3411     fprintf(ssl_debug_file,"%s[%d]:\n",name, (int) len);
3412     for (i=0; i< len; i++) {
3413         if ((i>0) && (i%16 == 0))
3414             fprintf(ssl_debug_file,"\n");
3415         fprintf(ssl_debug_file,"%.2x ",data[i]&255);
3416     }
3417     fprintf(ssl_debug_file,"\n");
3418 }
3419
3420 void
3421 ssl_print_string(const gchar* name, const StringInfo* data)
3422 {
3423     ssl_print_data(name, data->data, data->data_len);
3424 }
3425 #endif /* SSL_DECRYPT_DEBUG */