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