blob: b99179f27679daa2b1d5085bd7089d9050b69cf0 [file] [log] [blame]
Kinson Chika8fa74c2011-07-29 11:33:41 -07001/* apps/sess_id.c */
2/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
3 * All rights reserved.
4 *
5 * This package is an SSL implementation written
6 * by Eric Young (eay@cryptsoft.com).
7 * The implementation was written so as to conform with Netscapes SSL.
8 *
9 * This library is free for commercial and non-commercial use as long as
10 * the following conditions are aheared to. The following conditions
11 * apply to all code found in this distribution, be it the RC4, RSA,
12 * lhash, DES, etc., code; not just the SSL code. The SSL documentation
13 * included with this distribution is covered by the same copyright terms
14 * except that the holder is Tim Hudson (tjh@cryptsoft.com).
15 *
16 * Copyright remains Eric Young's, and as such any Copyright notices in
17 * the code are not to be removed.
18 * If this package is used in a product, Eric Young should be given attribution
19 * as the author of the parts of the library used.
20 * This can be in the form of a textual message at program startup or
21 * in documentation (online or textual) provided with the package.
22 *
23 * Redistribution and use in source and binary forms, with or without
24 * modification, are permitted provided that the following conditions
25 * are met:
26 * 1. Redistributions of source code must retain the copyright
27 * notice, this list of conditions and the following disclaimer.
28 * 2. Redistributions in binary form must reproduce the above copyright
29 * notice, this list of conditions and the following disclaimer in the
30 * documentation and/or other materials provided with the distribution.
31 * 3. All advertising materials mentioning features or use of this software
32 * must display the following acknowledgement:
33 * "This product includes cryptographic software written by
34 * Eric Young (eay@cryptsoft.com)"
35 * The word 'cryptographic' can be left out if the rouines from the library
36 * being used are not cryptographic related :-).
37 * 4. If you include any Windows specific code (or a derivative thereof) from
38 * the apps directory (application code) you must include an acknowledgement:
39 * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
40 *
41 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
42 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
43 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
44 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
45 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
46 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
47 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
48 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
49 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
50 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
51 * SUCH DAMAGE.
52 *
53 * The licence and distribution terms for any publically available version or
54 * derivative of this code cannot be changed. i.e. this code cannot simply be
55 * copied and put under another distribution licence
56 * [including the GNU Public Licence.]
57 */
58
59#include <stdio.h>
60#include <stdlib.h>
61#include <string.h>
62#include "apps.h"
63#include <openssl/bio.h>
64#include <openssl/err.h>
65#include <openssl/x509.h>
66#include <openssl/pem.h>
67#include <openssl/ssl.h>
68
69#undef PROG
70#define PROG sess_id_main
71
72static const char *sess_id_usage[]={
73"usage: sess_id args\n",
74"\n",
75" -inform arg - input format - default PEM (DER or PEM)\n",
76" -outform arg - output format - default PEM\n",
77" -in arg - input file - default stdin\n",
78" -out arg - output file - default stdout\n",
79" -text - print ssl session id details\n",
80" -cert - output certificate \n",
81" -noout - no CRL output\n",
82" -context arg - set the session ID context\n",
83NULL
84};
85
86static SSL_SESSION *load_sess_id(char *file, int format);
87
88int MAIN(int, char **);
89
90int MAIN(int argc, char **argv)
91 {
92 SSL_SESSION *x=NULL;
93 int ret=1,i,num,badops=0;
94 BIO *out=NULL;
95 int informat,outformat;
96 char *infile=NULL,*outfile=NULL,*context=NULL;
97 int cert=0,noout=0,text=0;
98 const char **pp;
99
100 apps_startup();
101
102 if (bio_err == NULL)
103 if ((bio_err=BIO_new(BIO_s_file())) != NULL)
104 BIO_set_fp(bio_err,stderr,BIO_NOCLOSE|BIO_FP_TEXT);
105
106 informat=FORMAT_PEM;
107 outformat=FORMAT_PEM;
108
109 argc--;
110 argv++;
111 num=0;
112 while (argc >= 1)
113 {
114 if (strcmp(*argv,"-inform") == 0)
115 {
116 if (--argc < 1) goto bad;
117 informat=str2fmt(*(++argv));
118 }
119 else if (strcmp(*argv,"-outform") == 0)
120 {
121 if (--argc < 1) goto bad;
122 outformat=str2fmt(*(++argv));
123 }
124 else if (strcmp(*argv,"-in") == 0)
125 {
126 if (--argc < 1) goto bad;
127 infile= *(++argv);
128 }
129 else if (strcmp(*argv,"-out") == 0)
130 {
131 if (--argc < 1) goto bad;
132 outfile= *(++argv);
133 }
134 else if (strcmp(*argv,"-text") == 0)
135 text= ++num;
136 else if (strcmp(*argv,"-cert") == 0)
137 cert= ++num;
138 else if (strcmp(*argv,"-noout") == 0)
139 noout= ++num;
140 else if (strcmp(*argv,"-context") == 0)
141 {
142 if(--argc < 1) goto bad;
143 context=*++argv;
144 }
145 else
146 {
147 BIO_printf(bio_err,"unknown option %s\n",*argv);
148 badops=1;
149 break;
150 }
151 argc--;
152 argv++;
153 }
154
155 if (badops)
156 {
157bad:
158 for (pp=sess_id_usage; (*pp != NULL); pp++)
159 BIO_printf(bio_err,"%s",*pp);
160 goto end;
161 }
162
163 ERR_load_crypto_strings();
164 x=load_sess_id(infile,informat);
165 if (x == NULL) { goto end; }
166
167 if(context)
168 {
169 x->sid_ctx_length=strlen(context);
170 if(x->sid_ctx_length > SSL_MAX_SID_CTX_LENGTH)
171 {
172 BIO_printf(bio_err,"Context too long\n");
173 goto end;
174 }
175 memcpy(x->sid_ctx,context,x->sid_ctx_length);
176 }
177
178#ifdef undef
179 /* just testing for memory leaks :-) */
180 {
181 SSL_SESSION *s;
182 char buf[1024*10],*p;
183 int i;
184
185 s=SSL_SESSION_new();
186
187 p= &buf;
188 i=i2d_SSL_SESSION(x,&p);
189 p= &buf;
190 d2i_SSL_SESSION(&s,&p,(long)i);
191 p= &buf;
192 d2i_SSL_SESSION(&s,&p,(long)i);
193 p= &buf;
194 d2i_SSL_SESSION(&s,&p,(long)i);
195 SSL_SESSION_free(s);
196 }
197#endif
198
199 if (!noout || text)
200 {
201 out=BIO_new(BIO_s_file());
202 if (out == NULL)
203 {
204 ERR_print_errors(bio_err);
205 goto end;
206 }
207
208 if (outfile == NULL)
209 {
210 BIO_set_fp(out,stdout,BIO_NOCLOSE);
211#ifdef OPENSSL_SYS_VMS
212 {
213 BIO *tmpbio = BIO_new(BIO_f_linebuffer());
214 out = BIO_push(tmpbio, out);
215 }
216#endif
217 }
218 else
219 {
220 if (BIO_write_filename(out,outfile) <= 0)
221 {
222 perror(outfile);
223 goto end;
224 }
225 }
226 }
227
228 if (text)
229 {
230 SSL_SESSION_print(out,x);
231
232 if (cert)
233 {
234 if (x->peer == NULL)
235 BIO_puts(out,"No certificate present\n");
236 else
237 X509_print(out,x->peer);
238 }
239 }
240
241 if (!noout && !cert)
242 {
243 if (outformat == FORMAT_ASN1)
244 i=i2d_SSL_SESSION_bio(out,x);
245 else if (outformat == FORMAT_PEM)
246 i=PEM_write_bio_SSL_SESSION(out,x);
247 else {
248 BIO_printf(bio_err,"bad output format specified for outfile\n");
249 goto end;
250 }
251 if (!i) {
252 BIO_printf(bio_err,"unable to write SSL_SESSION\n");
253 goto end;
254 }
255 }
256 else if (!noout && (x->peer != NULL)) /* just print the certificate */
257 {
258 if (outformat == FORMAT_ASN1)
259 i=(int)i2d_X509_bio(out,x->peer);
260 else if (outformat == FORMAT_PEM)
261 i=PEM_write_bio_X509(out,x->peer);
262 else {
263 BIO_printf(bio_err,"bad output format specified for outfile\n");
264 goto end;
265 }
266 if (!i) {
267 BIO_printf(bio_err,"unable to write X509\n");
268 goto end;
269 }
270 }
271 ret=0;
272end:
273 if (out != NULL) BIO_free_all(out);
274 if (x != NULL) SSL_SESSION_free(x);
275 apps_shutdown();
276 OPENSSL_EXIT(ret);
277 }
278
279static SSL_SESSION *load_sess_id(char *infile, int format)
280 {
281 SSL_SESSION *x=NULL;
282 BIO *in=NULL;
283
284 in=BIO_new(BIO_s_file());
285 if (in == NULL)
286 {
287 ERR_print_errors(bio_err);
288 goto end;
289 }
290
291 if (infile == NULL)
292 BIO_set_fp(in,stdin,BIO_NOCLOSE);
293 else
294 {
295 if (BIO_read_filename(in,infile) <= 0)
296 {
297 perror(infile);
298 goto end;
299 }
300 }
301 if (format == FORMAT_ASN1)
302 x=d2i_SSL_SESSION_bio(in,NULL);
303 else if (format == FORMAT_PEM)
304 x=PEM_read_bio_SSL_SESSION(in,NULL,NULL,NULL);
305 else {
306 BIO_printf(bio_err,"bad input format specified for input crl\n");
307 goto end;
308 }
309 if (x == NULL)
310 {
311 BIO_printf(bio_err,"unable to load SSL_SESSION\n");
312 ERR_print_errors(bio_err);
313 goto end;
314 }
315
316end:
317 if (in != NULL) BIO_free(in);
318 return(x);
319 }
320