Fix SSL_pending() for DTLS
[openssl.git] / ssl / ssl_txt.c
1 /*
2  * Copyright 1995-2016 The OpenSSL Project Authors. All Rights Reserved.
3  * Copyright 2005 Nokia. All rights reserved.
4  *
5  * Licensed under the OpenSSL license (the "License").  You may not use
6  * this file except in compliance with the License.  You can obtain a copy
7  * in the file LICENSE in the source distribution or at
8  * https://www.openssl.org/source/license.html
9  */
10
11 #include <stdio.h>
12 #include <openssl/buffer.h>
13 #include "ssl_locl.h"
14
15 #ifndef OPENSSL_NO_STDIO
16 int SSL_SESSION_print_fp(FILE *fp, const SSL_SESSION *x)
17 {
18     BIO *b;
19     int ret;
20
21     if ((b = BIO_new(BIO_s_file())) == NULL) {
22         SSLerr(SSL_F_SSL_SESSION_PRINT_FP, ERR_R_BUF_LIB);
23         return 0;
24     }
25     BIO_set_fp(b, fp, BIO_NOCLOSE);
26     ret = SSL_SESSION_print(b, x);
27     BIO_free(b);
28     return ret;
29 }
30 #endif
31
32 int SSL_SESSION_print(BIO *bp, const SSL_SESSION *x)
33 {
34     size_t i;
35     const char *s;
36
37     if (x == NULL)
38         goto err;
39     if (BIO_puts(bp, "SSL-Session:\n") <= 0)
40         goto err;
41     s = ssl_protocol_to_string(x->ssl_version);
42     if (BIO_printf(bp, "    Protocol  : %s\n", s) <= 0)
43         goto err;
44
45     if (x->cipher == NULL) {
46         if (((x->cipher_id) & 0xff000000) == 0x02000000) {
47             if (BIO_printf
48                 (bp, "    Cipher    : %06lX\n", x->cipher_id & 0xffffff) <= 0)
49                 goto err;
50         } else {
51             if (BIO_printf
52                 (bp, "    Cipher    : %04lX\n", x->cipher_id & 0xffff) <= 0)
53                 goto err;
54         }
55     } else {
56         if (BIO_printf
57             (bp, "    Cipher    : %s\n",
58              ((x->cipher == NULL) ? "unknown" : x->cipher->name)) <= 0)
59             goto err;
60     }
61     if (BIO_puts(bp, "    Session-ID: ") <= 0)
62         goto err;
63     for (i = 0; i < x->session_id_length; i++) {
64         if (BIO_printf(bp, "%02X", x->session_id[i]) <= 0)
65             goto err;
66     }
67     if (BIO_puts(bp, "\n    Session-ID-ctx: ") <= 0)
68         goto err;
69     for (i = 0; i < x->sid_ctx_length; i++) {
70         if (BIO_printf(bp, "%02X", x->sid_ctx[i]) <= 0)
71             goto err;
72     }
73     if (BIO_puts(bp, "\n    Master-Key: ") <= 0)
74         goto err;
75     for (i = 0; i < x->master_key_length; i++) {
76         if (BIO_printf(bp, "%02X", x->master_key[i]) <= 0)
77             goto err;
78     }
79 #ifndef OPENSSL_NO_PSK
80     if (BIO_puts(bp, "\n    PSK identity: ") <= 0)
81         goto err;
82     if (BIO_printf(bp, "%s", x->psk_identity ? x->psk_identity : "None") <= 0)
83         goto err;
84     if (BIO_puts(bp, "\n    PSK identity hint: ") <= 0)
85         goto err;
86     if (BIO_printf
87         (bp, "%s", x->psk_identity_hint ? x->psk_identity_hint : "None") <= 0)
88         goto err;
89 #endif
90 #ifndef OPENSSL_NO_SRP
91     if (BIO_puts(bp, "\n    SRP username: ") <= 0)
92         goto err;
93     if (BIO_printf(bp, "%s", x->srp_username ? x->srp_username : "None") <= 0)
94         goto err;
95 #endif
96     if (x->ext.tick_lifetime_hint) {
97         if (BIO_printf(bp,
98                        "\n    TLS session ticket lifetime hint: %ld (seconds)",
99                        x->ext.tick_lifetime_hint) <= 0)
100             goto err;
101     }
102     if (x->ext.tick) {
103         if (BIO_puts(bp, "\n    TLS session ticket:\n") <= 0)
104             goto err;
105         /* TODO(size_t): Convert this call */
106         if (BIO_dump_indent
107             (bp, (const char *)x->ext.tick, (int)x->ext.ticklen, 4)
108             <= 0)
109             goto err;
110     }
111 #ifndef OPENSSL_NO_COMP
112     if (x->compress_meth != 0) {
113         SSL_COMP *comp = NULL;
114
115         if (!ssl_cipher_get_evp(x, NULL, NULL, NULL, NULL, &comp, 0))
116             goto err;
117         if (comp == NULL) {
118             if (BIO_printf(bp, "\n    Compression: %d", x->compress_meth) <= 0)
119                 goto err;
120         } else {
121             if (BIO_printf(bp, "\n    Compression: %d (%s)", comp->id,
122                            comp->name) <= 0)
123                 goto err;
124         }
125     }
126 #endif
127     if (x->time != 0L) {
128         if (BIO_printf(bp, "\n    Start Time: %ld", x->time) <= 0)
129             goto err;
130     }
131     if (x->timeout != 0L) {
132         if (BIO_printf(bp, "\n    Timeout   : %ld (sec)", x->timeout) <= 0)
133             goto err;
134     }
135     if (BIO_puts(bp, "\n") <= 0)
136         goto err;
137
138     if (BIO_puts(bp, "    Verify return code: ") <= 0)
139         goto err;
140     if (BIO_printf(bp, "%ld (%s)\n", x->verify_result,
141                    X509_verify_cert_error_string(x->verify_result)) <= 0)
142         goto err;
143
144     if (BIO_printf(bp, "    Extended master secret: %s\n",
145                    x->flags & SSL_SESS_FLAG_EXTMS ? "yes" : "no") <= 0)
146         goto err;
147
148     return 1;
149  err:
150     return 0;
151 }
152
153 /*
154  * print session id and master key in NSS keylog format (RSA
155  * Session-ID:<session id> Master-Key:<master key>)
156  */
157 int SSL_SESSION_print_keylog(BIO *bp, const SSL_SESSION *x)
158 {
159     size_t i;
160
161     if (x == NULL)
162         goto err;
163     if (x->session_id_length == 0 || x->master_key_length == 0)
164         goto err;
165
166     /*
167      * the RSA prefix is required by the format's definition although there's
168      * nothing RSA-specific in the output, therefore, we don't have to check if
169      * the cipher suite is based on RSA
170      */
171     if (BIO_puts(bp, "RSA ") <= 0)
172         goto err;
173
174     if (BIO_puts(bp, "Session-ID:") <= 0)
175         goto err;
176     for (i = 0; i < x->session_id_length; i++) {
177         if (BIO_printf(bp, "%02X", x->session_id[i]) <= 0)
178             goto err;
179     }
180     if (BIO_puts(bp, " Master-Key:") <= 0)
181         goto err;
182     for (i = 0; i < x->master_key_length; i++) {
183         if (BIO_printf(bp, "%02X", x->master_key[i]) <= 0)
184             goto err;
185     }
186     if (BIO_puts(bp, "\n") <= 0)
187         goto err;
188
189     return 1;
190  err:
191     return 0;
192 }