diff options
author | jsing <> | 2014-08-26 17:47:25 +0000 |
---|---|---|
committer | jsing <> | 2014-08-26 17:47:25 +0000 |
commit | f3755acd5513f85ff734de6a822b6f804d3776ce (patch) | |
tree | 1f859a78eae941040f58599de8c0e1e56d61fdad /src/usr.bin/openssl | |
parent | 0779b9f30aa9875c290af18a4362799668829707 (diff) | |
download | openbsd-f3755acd5513f85ff734de6a822b6f804d3776ce.tar.gz openbsd-f3755acd5513f85ff734de6a822b6f804d3776ce.tar.bz2 openbsd-f3755acd5513f85ff734de6a822b6f804d3776ce.zip |
Move openssl(1) from /usr/sbin/openssl to /usr/bin/openssl, since it is not
a system/superuser binary. At the same time, move the source code from its
current lib/libssl/src/apps location to a more appropriate home under
usr.bin/openssl.
ok deraadt@ miod@
Diffstat (limited to 'src/usr.bin/openssl')
57 files changed, 44053 insertions, 0 deletions
diff --git a/src/usr.bin/openssl/Makefile b/src/usr.bin/openssl/Makefile new file mode 100644 index 0000000000..f4c9ed4f2b --- /dev/null +++ b/src/usr.bin/openssl/Makefile | |||
@@ -0,0 +1,27 @@ | |||
1 | # $OpenBSD: Makefile,v 1.1 2014/08/26 17:47:24 jsing Exp $ | ||
2 | |||
3 | PROG= openssl | ||
4 | LDADD= -lssl -lcrypto | ||
5 | DPADD= ${LIBSSL} ${LIBCRYPTO} | ||
6 | MAN1= openssl.1 | ||
7 | |||
8 | CFLAGS+= -Wall -Werror | ||
9 | CFLAGS+= -Wformat | ||
10 | CFLAGS+= -Wformat-security | ||
11 | CFLAGS+= -Wimplicit | ||
12 | CFLAGS+= -Wreturn-type | ||
13 | #CFLAGS+= -Wshadow | ||
14 | CFLAGS+= -Wtrigraphs | ||
15 | CFLAGS+= -Wuninitialized | ||
16 | CFLAGS+= -Wunused | ||
17 | |||
18 | CFLAGS+= -DLIBRESSL_INTERNAL | ||
19 | |||
20 | SRCS= apps.c asn1pars.c ca.c ciphers.c cms.c crl.c crl2p7.c dgst.c dh.c \ | ||
21 | dhparam.c dsa.c dsaparam.c ec.c ecparam.c enc.c engine.c errstr.c \ | ||
22 | gendh.c gendsa.c genpkey.c genrsa.c nseq.c ocsp.c openssl.c passwd.c \ | ||
23 | pkcs12.c pkcs7.c pkcs8.c pkey.c pkeyparam.c pkeyutl.c prime.c rand.c \ | ||
24 | req.c rsa.c rsautl.c s_cb.c s_client.c s_server.c s_socket.c s_time.c \ | ||
25 | sess_id.c smime.c speed.c spkac.c ts.c verify.c version.c x509.c | ||
26 | |||
27 | .include <bsd.prog.mk> | ||
diff --git a/src/usr.bin/openssl/apps.c b/src/usr.bin/openssl/apps.c new file mode 100644 index 0000000000..ac1c5107f1 --- /dev/null +++ b/src/usr.bin/openssl/apps.c | |||
@@ -0,0 +1,2220 @@ | |||
1 | /* $OpenBSD: apps.c,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
2 | /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) | ||
3 | * All rights reserved. | ||
4 | * | ||
5 | * This package is an SSL implementation written | ||
6 | * by Eric Young (eay@cryptsoft.com). | ||
7 | * The implementation was written so as to conform with Netscapes SSL. | ||
8 | * | ||
9 | * This library is free for commercial and non-commercial use as long as | ||
10 | * the following conditions are aheared to. The following conditions | ||
11 | * apply to all code found in this distribution, be it the RC4, RSA, | ||
12 | * lhash, DES, etc., code; not just the SSL code. The SSL documentation | ||
13 | * included with this distribution is covered by the same copyright terms | ||
14 | * except that the holder is Tim Hudson (tjh@cryptsoft.com). | ||
15 | * | ||
16 | * Copyright remains Eric Young's, and as such any Copyright notices in | ||
17 | * the code are not to be removed. | ||
18 | * If this package is used in a product, Eric Young should be given attribution | ||
19 | * as the author of the parts of the library used. | ||
20 | * This can be in the form of a textual message at program startup or | ||
21 | * in documentation (online or textual) provided with the package. | ||
22 | * | ||
23 | * Redistribution and use in source and binary forms, with or without | ||
24 | * modification, are permitted provided that the following conditions | ||
25 | * are met: | ||
26 | * 1. Redistributions of source code must retain the copyright | ||
27 | * notice, this list of conditions and the following disclaimer. | ||
28 | * 2. Redistributions in binary form must reproduce the above copyright | ||
29 | * notice, this list of conditions and the following disclaimer in the | ||
30 | * documentation and/or other materials provided with the distribution. | ||
31 | * 3. All advertising materials mentioning features or use of this software | ||
32 | * must display the following acknowledgement: | ||
33 | * "This product includes cryptographic software written by | ||
34 | * Eric Young (eay@cryptsoft.com)" | ||
35 | * The word 'cryptographic' can be left out if the rouines from the library | ||
36 | * being used are not cryptographic related :-). | ||
37 | * 4. If you include any Windows specific code (or a derivative thereof) from | ||
38 | * the apps directory (application code) you must include an acknowledgement: | ||
39 | * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" | ||
40 | * | ||
41 | * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND | ||
42 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
43 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
44 | * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE | ||
45 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
46 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
47 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
48 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
49 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
50 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
51 | * SUCH DAMAGE. | ||
52 | * | ||
53 | * The licence and distribution terms for any publically available version or | ||
54 | * derivative of this code cannot be changed. i.e. this code cannot simply be | ||
55 | * copied and put under another distribution licence | ||
56 | * [including the GNU Public Licence.] | ||
57 | */ | ||
58 | /* ==================================================================== | ||
59 | * Copyright (c) 1998-2001 The OpenSSL Project. All rights reserved. | ||
60 | * | ||
61 | * Redistribution and use in source and binary forms, with or without | ||
62 | * modification, are permitted provided that the following conditions | ||
63 | * are met: | ||
64 | * | ||
65 | * 1. Redistributions of source code must retain the above copyright | ||
66 | * notice, this list of conditions and the following disclaimer. | ||
67 | * | ||
68 | * 2. Redistributions in binary form must reproduce the above copyright | ||
69 | * notice, this list of conditions and the following disclaimer in | ||
70 | * the documentation and/or other materials provided with the | ||
71 | * distribution. | ||
72 | * | ||
73 | * 3. All advertising materials mentioning features or use of this | ||
74 | * software must display the following acknowledgment: | ||
75 | * "This product includes software developed by the OpenSSL Project | ||
76 | * for use in the OpenSSL Toolkit. (http://www.openssl.org/)" | ||
77 | * | ||
78 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
79 | * endorse or promote products derived from this software without | ||
80 | * prior written permission. For written permission, please contact | ||
81 | * openssl-core@openssl.org. | ||
82 | * | ||
83 | * 5. Products derived from this software may not be called "OpenSSL" | ||
84 | * nor may "OpenSSL" appear in their names without prior written | ||
85 | * permission of the OpenSSL Project. | ||
86 | * | ||
87 | * 6. Redistributions of any form whatsoever must retain the following | ||
88 | * acknowledgment: | ||
89 | * "This product includes software developed by the OpenSSL Project | ||
90 | * for use in the OpenSSL Toolkit (http://www.openssl.org/)" | ||
91 | * | ||
92 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
93 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
94 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
95 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
96 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
97 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
98 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
99 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
100 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
101 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
102 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
103 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
104 | * ==================================================================== | ||
105 | * | ||
106 | * This product includes cryptographic software written by Eric Young | ||
107 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
108 | * Hudson (tjh@cryptsoft.com). | ||
109 | * | ||
110 | */ | ||
111 | |||
112 | #include <sys/types.h> | ||
113 | #include <sys/stat.h> | ||
114 | #include <sys/times.h> | ||
115 | |||
116 | #include <ctype.h> | ||
117 | #include <errno.h> | ||
118 | #include <stdio.h> | ||
119 | #include <stdlib.h> | ||
120 | #include <limits.h> | ||
121 | #include <string.h> | ||
122 | #include <strings.h> | ||
123 | #include <unistd.h> | ||
124 | |||
125 | #include "apps.h" | ||
126 | |||
127 | #include <openssl/bn.h> | ||
128 | #include <openssl/err.h> | ||
129 | #include <openssl/pem.h> | ||
130 | #include <openssl/pkcs12.h> | ||
131 | #include <openssl/safestack.h> | ||
132 | #include <openssl/ui.h> | ||
133 | #include <openssl/x509.h> | ||
134 | #include <openssl/x509v3.h> | ||
135 | |||
136 | #ifndef OPENSSL_NO_ENGINE | ||
137 | #include <openssl/engine.h> | ||
138 | #endif | ||
139 | |||
140 | #include <openssl/rsa.h> | ||
141 | |||
142 | typedef struct { | ||
143 | const char *name; | ||
144 | unsigned long flag; | ||
145 | unsigned long mask; | ||
146 | } NAME_EX_TBL; | ||
147 | |||
148 | static UI_METHOD *ui_method = NULL; | ||
149 | |||
150 | static int set_table_opts(unsigned long *flags, const char *arg, | ||
151 | const NAME_EX_TBL *in_tbl); | ||
152 | static int set_multi_opts(unsigned long *flags, const char *arg, | ||
153 | const NAME_EX_TBL *in_tbl); | ||
154 | |||
155 | #if !defined(OPENSSL_NO_RC4) && !defined(OPENSSL_NO_RSA) | ||
156 | /* Looks like this stuff is worth moving into separate function */ | ||
157 | static EVP_PKEY *load_netscape_key(BIO *err, BIO *key, const char *file, | ||
158 | const char *key_descrip, int format); | ||
159 | #endif | ||
160 | |||
161 | int | ||
162 | str2fmt(char *s) | ||
163 | { | ||
164 | if (s == NULL) | ||
165 | return FORMAT_UNDEF; | ||
166 | if ((*s == 'D') || (*s == 'd')) | ||
167 | return (FORMAT_ASN1); | ||
168 | else if ((*s == 'T') || (*s == 't')) | ||
169 | return (FORMAT_TEXT); | ||
170 | else if ((*s == 'N') || (*s == 'n')) | ||
171 | return (FORMAT_NETSCAPE); | ||
172 | else if ((*s == 'S') || (*s == 's')) | ||
173 | return (FORMAT_SMIME); | ||
174 | else if ((*s == 'M') || (*s == 'm')) | ||
175 | return (FORMAT_MSBLOB); | ||
176 | else if ((*s == '1') || | ||
177 | (strcmp(s, "PKCS12") == 0) || (strcmp(s, "pkcs12") == 0) || | ||
178 | (strcmp(s, "P12") == 0) || (strcmp(s, "p12") == 0)) | ||
179 | return (FORMAT_PKCS12); | ||
180 | else if ((*s == 'E') || (*s == 'e')) | ||
181 | return (FORMAT_ENGINE); | ||
182 | else if ((*s == 'P') || (*s == 'p')) { | ||
183 | if (s[1] == 'V' || s[1] == 'v') | ||
184 | return FORMAT_PVK; | ||
185 | else | ||
186 | return (FORMAT_PEM); | ||
187 | } else | ||
188 | return (FORMAT_UNDEF); | ||
189 | } | ||
190 | |||
191 | void | ||
192 | program_name(char *in, char *out, int size) | ||
193 | { | ||
194 | char *p; | ||
195 | |||
196 | p = strrchr(in, '/'); | ||
197 | if (p != NULL) | ||
198 | p++; | ||
199 | else | ||
200 | p = in; | ||
201 | strlcpy(out, p, size); | ||
202 | } | ||
203 | |||
204 | int | ||
205 | chopup_args(ARGS *arg, char *buf, int *argc, char **argv[]) | ||
206 | { | ||
207 | int num, i; | ||
208 | char *p; | ||
209 | |||
210 | *argc = 0; | ||
211 | *argv = NULL; | ||
212 | |||
213 | i = 0; | ||
214 | if (arg->count == 0) { | ||
215 | arg->count = 20; | ||
216 | arg->data = reallocarray(NULL, arg->count, sizeof(char *)); | ||
217 | } | ||
218 | for (i = 0; i < arg->count; i++) | ||
219 | arg->data[i] = NULL; | ||
220 | |||
221 | num = 0; | ||
222 | p = buf; | ||
223 | for (;;) { | ||
224 | /* first scan over white space */ | ||
225 | if (!*p) | ||
226 | break; | ||
227 | while (*p && ((*p == ' ') || (*p == '\t') || (*p == '\n'))) | ||
228 | p++; | ||
229 | if (!*p) | ||
230 | break; | ||
231 | |||
232 | /* The start of something good :-) */ | ||
233 | if (num >= arg->count) { | ||
234 | char **tmp_p; | ||
235 | int tlen = arg->count + 20; | ||
236 | tmp_p = reallocarray(arg->data, tlen, sizeof(char *)); | ||
237 | if (tmp_p == NULL) | ||
238 | return 0; | ||
239 | arg->data = tmp_p; | ||
240 | arg->count = tlen; | ||
241 | /* initialize newly allocated data */ | ||
242 | for (i = num; i < arg->count; i++) | ||
243 | arg->data[i] = NULL; | ||
244 | } | ||
245 | arg->data[num++] = p; | ||
246 | |||
247 | /* now look for the end of this */ | ||
248 | if ((*p == '\'') || (*p == '\"')) { /* scan for closing | ||
249 | * quote */ | ||
250 | i = *(p++); | ||
251 | arg->data[num - 1]++; /* jump over quote */ | ||
252 | while (*p && (*p != i)) | ||
253 | p++; | ||
254 | *p = '\0'; | ||
255 | } else { | ||
256 | while (*p && ((*p != ' ') && | ||
257 | (*p != '\t') && (*p != '\n'))) | ||
258 | p++; | ||
259 | |||
260 | if (*p == '\0') | ||
261 | p--; | ||
262 | else | ||
263 | *p = '\0'; | ||
264 | } | ||
265 | p++; | ||
266 | } | ||
267 | *argc = num; | ||
268 | *argv = arg->data; | ||
269 | return (1); | ||
270 | } | ||
271 | |||
272 | int | ||
273 | dump_cert_text(BIO *out, X509 *x) | ||
274 | { | ||
275 | char *p; | ||
276 | |||
277 | p = X509_NAME_oneline(X509_get_subject_name(x), NULL, 0); | ||
278 | BIO_puts(out, "subject="); | ||
279 | BIO_puts(out, p); | ||
280 | free(p); | ||
281 | |||
282 | p = X509_NAME_oneline(X509_get_issuer_name(x), NULL, 0); | ||
283 | BIO_puts(out, "\nissuer="); | ||
284 | BIO_puts(out, p); | ||
285 | BIO_puts(out, "\n"); | ||
286 | free(p); | ||
287 | |||
288 | return 0; | ||
289 | } | ||
290 | |||
291 | static int | ||
292 | ui_open(UI *ui) | ||
293 | { | ||
294 | return UI_method_get_opener(UI_OpenSSL()) (ui); | ||
295 | } | ||
296 | |||
297 | static int | ||
298 | ui_read(UI *ui, UI_STRING *uis) | ||
299 | { | ||
300 | if (UI_get_input_flags(uis) & UI_INPUT_FLAG_DEFAULT_PWD && | ||
301 | UI_get0_user_data(ui)) { | ||
302 | switch (UI_get_string_type(uis)) { | ||
303 | case UIT_PROMPT: | ||
304 | case UIT_VERIFY: | ||
305 | { | ||
306 | const char *password = | ||
307 | ((PW_CB_DATA *)UI_get0_user_data(ui))->password; | ||
308 | if (password && password[0] != '\0') { | ||
309 | UI_set_result(ui, uis, password); | ||
310 | return 1; | ||
311 | } | ||
312 | } | ||
313 | break; | ||
314 | default: | ||
315 | break; | ||
316 | } | ||
317 | } | ||
318 | return UI_method_get_reader(UI_OpenSSL()) (ui, uis); | ||
319 | } | ||
320 | |||
321 | static int | ||
322 | ui_write(UI *ui, UI_STRING *uis) | ||
323 | { | ||
324 | if (UI_get_input_flags(uis) & UI_INPUT_FLAG_DEFAULT_PWD && | ||
325 | UI_get0_user_data(ui)) { | ||
326 | switch (UI_get_string_type(uis)) { | ||
327 | case UIT_PROMPT: | ||
328 | case UIT_VERIFY: | ||
329 | { | ||
330 | const char *password = | ||
331 | ((PW_CB_DATA *)UI_get0_user_data(ui))->password; | ||
332 | if (password && password[0] != '\0') | ||
333 | return 1; | ||
334 | } | ||
335 | break; | ||
336 | default: | ||
337 | break; | ||
338 | } | ||
339 | } | ||
340 | return UI_method_get_writer(UI_OpenSSL()) (ui, uis); | ||
341 | } | ||
342 | |||
343 | static int | ||
344 | ui_close(UI *ui) | ||
345 | { | ||
346 | return UI_method_get_closer(UI_OpenSSL()) (ui); | ||
347 | } | ||
348 | |||
349 | int | ||
350 | setup_ui_method(void) | ||
351 | { | ||
352 | ui_method = UI_create_method("OpenSSL application user interface"); | ||
353 | UI_method_set_opener(ui_method, ui_open); | ||
354 | UI_method_set_reader(ui_method, ui_read); | ||
355 | UI_method_set_writer(ui_method, ui_write); | ||
356 | UI_method_set_closer(ui_method, ui_close); | ||
357 | return 0; | ||
358 | } | ||
359 | |||
360 | void | ||
361 | destroy_ui_method(void) | ||
362 | { | ||
363 | if (ui_method) { | ||
364 | UI_destroy_method(ui_method); | ||
365 | ui_method = NULL; | ||
366 | } | ||
367 | } | ||
368 | |||
369 | int | ||
370 | password_callback(char *buf, int bufsiz, int verify, void *arg) | ||
371 | { | ||
372 | PW_CB_DATA *cb_tmp = arg; | ||
373 | UI *ui = NULL; | ||
374 | int res = 0; | ||
375 | const char *prompt_info = NULL; | ||
376 | const char *password = NULL; | ||
377 | PW_CB_DATA *cb_data = (PW_CB_DATA *) cb_tmp; | ||
378 | |||
379 | if (cb_data) { | ||
380 | if (cb_data->password) | ||
381 | password = cb_data->password; | ||
382 | if (cb_data->prompt_info) | ||
383 | prompt_info = cb_data->prompt_info; | ||
384 | } | ||
385 | if (password) { | ||
386 | res = strlen(password); | ||
387 | if (res > bufsiz) | ||
388 | res = bufsiz; | ||
389 | memcpy(buf, password, res); | ||
390 | return res; | ||
391 | } | ||
392 | ui = UI_new_method(ui_method); | ||
393 | if (ui) { | ||
394 | int ok = 0; | ||
395 | char *buff = NULL; | ||
396 | int ui_flags = 0; | ||
397 | char *prompt = NULL; | ||
398 | |||
399 | prompt = UI_construct_prompt(ui, "pass phrase", prompt_info); | ||
400 | |||
401 | ui_flags |= UI_INPUT_FLAG_DEFAULT_PWD; | ||
402 | UI_ctrl(ui, UI_CTRL_PRINT_ERRORS, 1, 0, 0); | ||
403 | |||
404 | if (ok >= 0) | ||
405 | ok = UI_add_input_string(ui, prompt, ui_flags, buf, | ||
406 | PW_MIN_LENGTH, bufsiz - 1); | ||
407 | if (ok >= 0 && verify) { | ||
408 | buff = malloc(bufsiz); | ||
409 | ok = UI_add_verify_string(ui, prompt, ui_flags, buff, | ||
410 | PW_MIN_LENGTH, bufsiz - 1, buf); | ||
411 | } | ||
412 | if (ok >= 0) | ||
413 | do { | ||
414 | ok = UI_process(ui); | ||
415 | } while (ok < 0 && | ||
416 | UI_ctrl(ui, UI_CTRL_IS_REDOABLE, 0, 0, 0)); | ||
417 | |||
418 | if (buff) { | ||
419 | OPENSSL_cleanse(buff, (unsigned int) bufsiz); | ||
420 | free(buff); | ||
421 | } | ||
422 | if (ok >= 0) | ||
423 | res = strlen(buf); | ||
424 | if (ok == -1) { | ||
425 | BIO_printf(bio_err, "User interface error\n"); | ||
426 | ERR_print_errors(bio_err); | ||
427 | OPENSSL_cleanse(buf, (unsigned int) bufsiz); | ||
428 | res = 0; | ||
429 | } | ||
430 | if (ok == -2) { | ||
431 | BIO_printf(bio_err, "aborted!\n"); | ||
432 | OPENSSL_cleanse(buf, (unsigned int) bufsiz); | ||
433 | res = 0; | ||
434 | } | ||
435 | UI_free(ui); | ||
436 | free(prompt); | ||
437 | } | ||
438 | return res; | ||
439 | } | ||
440 | |||
441 | static char *app_get_pass(BIO *err, char *arg, int keepbio); | ||
442 | |||
443 | int | ||
444 | app_passwd(BIO *err, char *arg1, char *arg2, char **pass1, char **pass2) | ||
445 | { | ||
446 | int same; | ||
447 | |||
448 | if (!arg2 || !arg1 || strcmp(arg1, arg2)) | ||
449 | same = 0; | ||
450 | else | ||
451 | same = 1; | ||
452 | if (arg1) { | ||
453 | *pass1 = app_get_pass(err, arg1, same); | ||
454 | if (!*pass1) | ||
455 | return 0; | ||
456 | } else if (pass1) | ||
457 | *pass1 = NULL; | ||
458 | if (arg2) { | ||
459 | *pass2 = app_get_pass(err, arg2, same ? 2 : 0); | ||
460 | if (!*pass2) | ||
461 | return 0; | ||
462 | } else if (pass2) | ||
463 | *pass2 = NULL; | ||
464 | return 1; | ||
465 | } | ||
466 | |||
467 | static char * | ||
468 | app_get_pass(BIO *err, char *arg, int keepbio) | ||
469 | { | ||
470 | char *tmp, tpass[APP_PASS_LEN]; | ||
471 | static BIO *pwdbio = NULL; | ||
472 | const char *errstr = NULL; | ||
473 | int i; | ||
474 | |||
475 | if (!strncmp(arg, "pass:", 5)) | ||
476 | return strdup(arg + 5); | ||
477 | if (!strncmp(arg, "env:", 4)) { | ||
478 | tmp = getenv(arg + 4); | ||
479 | if (!tmp) { | ||
480 | BIO_printf(err, "Can't read environment variable %s\n", | ||
481 | arg + 4); | ||
482 | return NULL; | ||
483 | } | ||
484 | return strdup(tmp); | ||
485 | } | ||
486 | if (!keepbio || !pwdbio) { | ||
487 | if (!strncmp(arg, "file:", 5)) { | ||
488 | pwdbio = BIO_new_file(arg + 5, "r"); | ||
489 | if (!pwdbio) { | ||
490 | BIO_printf(err, "Can't open file %s\n", | ||
491 | arg + 5); | ||
492 | return NULL; | ||
493 | } | ||
494 | } else if (!strncmp(arg, "fd:", 3)) { | ||
495 | BIO *btmp; | ||
496 | i = strtonum(arg + 3, 0, INT_MAX, &errstr); | ||
497 | if (errstr) { | ||
498 | BIO_printf(err, | ||
499 | "Invalid file descriptor %s: %s\n", | ||
500 | arg, errstr); | ||
501 | return NULL; | ||
502 | } | ||
503 | pwdbio = BIO_new_fd(i, BIO_NOCLOSE); | ||
504 | if (!pwdbio) { | ||
505 | BIO_printf(err, | ||
506 | "Can't access file descriptor %s\n", | ||
507 | arg + 3); | ||
508 | return NULL; | ||
509 | } | ||
510 | /* | ||
511 | * Can't do BIO_gets on an fd BIO so add a buffering | ||
512 | * BIO | ||
513 | */ | ||
514 | btmp = BIO_new(BIO_f_buffer()); | ||
515 | pwdbio = BIO_push(btmp, pwdbio); | ||
516 | } else if (!strcmp(arg, "stdin")) { | ||
517 | pwdbio = BIO_new_fp(stdin, BIO_NOCLOSE); | ||
518 | if (!pwdbio) { | ||
519 | BIO_printf(err, "Can't open BIO for stdin\n"); | ||
520 | return NULL; | ||
521 | } | ||
522 | } else { | ||
523 | BIO_printf(err, "Invalid password argument \"%s\"\n", | ||
524 | arg); | ||
525 | return NULL; | ||
526 | } | ||
527 | } | ||
528 | i = BIO_gets(pwdbio, tpass, APP_PASS_LEN); | ||
529 | if (keepbio != 1) { | ||
530 | BIO_free_all(pwdbio); | ||
531 | pwdbio = NULL; | ||
532 | } | ||
533 | if (i <= 0) { | ||
534 | BIO_printf(err, "Error reading password from BIO\n"); | ||
535 | return NULL; | ||
536 | } | ||
537 | tmp = strchr(tpass, '\n'); | ||
538 | if (tmp) | ||
539 | *tmp = 0; | ||
540 | return strdup(tpass); | ||
541 | } | ||
542 | |||
543 | int | ||
544 | add_oid_section(BIO *err, CONF *conf) | ||
545 | { | ||
546 | char *p; | ||
547 | STACK_OF(CONF_VALUE) *sktmp; | ||
548 | CONF_VALUE *cnf; | ||
549 | int i; | ||
550 | |||
551 | if (!(p = NCONF_get_string(conf, NULL, "oid_section"))) { | ||
552 | ERR_clear_error(); | ||
553 | return 1; | ||
554 | } | ||
555 | if (!(sktmp = NCONF_get_section(conf, p))) { | ||
556 | BIO_printf(err, "problem loading oid section %s\n", p); | ||
557 | return 0; | ||
558 | } | ||
559 | for (i = 0; i < sk_CONF_VALUE_num(sktmp); i++) { | ||
560 | cnf = sk_CONF_VALUE_value(sktmp, i); | ||
561 | if (OBJ_create(cnf->value, cnf->name, cnf->name) == NID_undef) { | ||
562 | BIO_printf(err, "problem creating object %s=%s\n", | ||
563 | cnf->name, cnf->value); | ||
564 | return 0; | ||
565 | } | ||
566 | } | ||
567 | return 1; | ||
568 | } | ||
569 | |||
570 | static int | ||
571 | load_pkcs12(BIO *err, BIO *in, const char *desc, pem_password_cb *pem_cb, | ||
572 | void *cb_data, EVP_PKEY **pkey, X509 **cert, STACK_OF(X509) **ca) | ||
573 | { | ||
574 | const char *pass; | ||
575 | char tpass[PEM_BUFSIZE]; | ||
576 | int len, ret = 0; | ||
577 | PKCS12 *p12; | ||
578 | |||
579 | p12 = d2i_PKCS12_bio(in, NULL); | ||
580 | if (p12 == NULL) { | ||
581 | BIO_printf(err, "Error loading PKCS12 file for %s\n", desc); | ||
582 | goto die; | ||
583 | } | ||
584 | /* See if an empty password will do */ | ||
585 | if (PKCS12_verify_mac(p12, "", 0) || PKCS12_verify_mac(p12, NULL, 0)) | ||
586 | pass = ""; | ||
587 | else { | ||
588 | if (!pem_cb) | ||
589 | pem_cb = password_callback; | ||
590 | len = pem_cb(tpass, PEM_BUFSIZE, 0, cb_data); | ||
591 | if (len < 0) { | ||
592 | BIO_printf(err, "Passpharse callback error for %s\n", | ||
593 | desc); | ||
594 | goto die; | ||
595 | } | ||
596 | if (len < PEM_BUFSIZE) | ||
597 | tpass[len] = 0; | ||
598 | if (!PKCS12_verify_mac(p12, tpass, len)) { | ||
599 | BIO_printf(err, | ||
600 | "Mac verify error (wrong password?) in PKCS12 file for %s\n", desc); | ||
601 | goto die; | ||
602 | } | ||
603 | pass = tpass; | ||
604 | } | ||
605 | ret = PKCS12_parse(p12, pass, pkey, cert, ca); | ||
606 | |||
607 | die: | ||
608 | if (p12) | ||
609 | PKCS12_free(p12); | ||
610 | return ret; | ||
611 | } | ||
612 | |||
613 | X509 * | ||
614 | load_cert(BIO *err, const char *file, int format, const char *pass, ENGINE *e, | ||
615 | const char *cert_descrip) | ||
616 | { | ||
617 | X509 *x = NULL; | ||
618 | BIO *cert; | ||
619 | |||
620 | if ((cert = BIO_new(BIO_s_file())) == NULL) { | ||
621 | ERR_print_errors(err); | ||
622 | goto end; | ||
623 | } | ||
624 | if (file == NULL) { | ||
625 | setvbuf(stdin, NULL, _IONBF, 0); | ||
626 | BIO_set_fp(cert, stdin, BIO_NOCLOSE); | ||
627 | } else { | ||
628 | if (BIO_read_filename(cert, file) <= 0) { | ||
629 | BIO_printf(err, "Error opening %s %s\n", | ||
630 | cert_descrip, file); | ||
631 | ERR_print_errors(err); | ||
632 | goto end; | ||
633 | } | ||
634 | } | ||
635 | |||
636 | if (format == FORMAT_ASN1) | ||
637 | x = d2i_X509_bio(cert, NULL); | ||
638 | else if (format == FORMAT_NETSCAPE) { | ||
639 | NETSCAPE_X509 *nx; | ||
640 | nx = ASN1_item_d2i_bio(ASN1_ITEM_rptr(NETSCAPE_X509), | ||
641 | cert, NULL); | ||
642 | if (nx == NULL) | ||
643 | goto end; | ||
644 | |||
645 | if ((strncmp(NETSCAPE_CERT_HDR, (char *) nx->header->data, | ||
646 | nx->header->length) != 0)) { | ||
647 | NETSCAPE_X509_free(nx); | ||
648 | BIO_printf(err, | ||
649 | "Error reading header on certificate\n"); | ||
650 | goto end; | ||
651 | } | ||
652 | x = nx->cert; | ||
653 | nx->cert = NULL; | ||
654 | NETSCAPE_X509_free(nx); | ||
655 | } else if (format == FORMAT_PEM) | ||
656 | x = PEM_read_bio_X509_AUX(cert, NULL, password_callback, NULL); | ||
657 | else if (format == FORMAT_PKCS12) { | ||
658 | if (!load_pkcs12(err, cert, cert_descrip, NULL, NULL, | ||
659 | NULL, &x, NULL)) | ||
660 | goto end; | ||
661 | } else { | ||
662 | BIO_printf(err, "bad input format specified for %s\n", | ||
663 | cert_descrip); | ||
664 | goto end; | ||
665 | } | ||
666 | |||
667 | end: | ||
668 | if (x == NULL) { | ||
669 | BIO_printf(err, "unable to load certificate\n"); | ||
670 | ERR_print_errors(err); | ||
671 | } | ||
672 | BIO_free(cert); | ||
673 | return (x); | ||
674 | } | ||
675 | |||
676 | EVP_PKEY * | ||
677 | load_key(BIO *err, const char *file, int format, int maybe_stdin, | ||
678 | const char *pass, ENGINE *e, const char *key_descrip) | ||
679 | { | ||
680 | BIO *key = NULL; | ||
681 | EVP_PKEY *pkey = NULL; | ||
682 | PW_CB_DATA cb_data; | ||
683 | |||
684 | cb_data.password = pass; | ||
685 | cb_data.prompt_info = file; | ||
686 | |||
687 | if (file == NULL && (!maybe_stdin || format == FORMAT_ENGINE)) { | ||
688 | BIO_printf(err, "no keyfile specified\n"); | ||
689 | goto end; | ||
690 | } | ||
691 | #ifndef OPENSSL_NO_ENGINE | ||
692 | if (format == FORMAT_ENGINE) { | ||
693 | if (!e) | ||
694 | BIO_printf(err, "no engine specified\n"); | ||
695 | else { | ||
696 | pkey = ENGINE_load_private_key(e, file, | ||
697 | ui_method, &cb_data); | ||
698 | if (!pkey) { | ||
699 | BIO_printf(err, "cannot load %s from engine\n", | ||
700 | key_descrip); | ||
701 | ERR_print_errors(err); | ||
702 | } | ||
703 | } | ||
704 | goto end; | ||
705 | } | ||
706 | #endif | ||
707 | key = BIO_new(BIO_s_file()); | ||
708 | if (key == NULL) { | ||
709 | ERR_print_errors(err); | ||
710 | goto end; | ||
711 | } | ||
712 | if (file == NULL && maybe_stdin) { | ||
713 | setvbuf(stdin, NULL, _IONBF, 0); | ||
714 | BIO_set_fp(key, stdin, BIO_NOCLOSE); | ||
715 | } else if (BIO_read_filename(key, file) <= 0) { | ||
716 | BIO_printf(err, "Error opening %s %s\n", | ||
717 | key_descrip, file); | ||
718 | ERR_print_errors(err); | ||
719 | goto end; | ||
720 | } | ||
721 | if (format == FORMAT_ASN1) { | ||
722 | pkey = d2i_PrivateKey_bio(key, NULL); | ||
723 | } else if (format == FORMAT_PEM) { | ||
724 | pkey = PEM_read_bio_PrivateKey(key, NULL, password_callback, &cb_data); | ||
725 | } | ||
726 | #if !defined(OPENSSL_NO_RC4) && !defined(OPENSSL_NO_RSA) | ||
727 | else if (format == FORMAT_NETSCAPE || format == FORMAT_IISSGC) | ||
728 | pkey = load_netscape_key(err, key, file, key_descrip, format); | ||
729 | #endif | ||
730 | else if (format == FORMAT_PKCS12) { | ||
731 | if (!load_pkcs12(err, key, key_descrip, password_callback, &cb_data, | ||
732 | &pkey, NULL, NULL)) | ||
733 | goto end; | ||
734 | } | ||
735 | #if !defined(OPENSSL_NO_RSA) && !defined(OPENSSL_NO_DSA) && !defined (OPENSSL_NO_RC4) | ||
736 | else if (format == FORMAT_MSBLOB) | ||
737 | pkey = b2i_PrivateKey_bio(key); | ||
738 | else if (format == FORMAT_PVK) | ||
739 | pkey = b2i_PVK_bio(key, password_callback, | ||
740 | &cb_data); | ||
741 | #endif | ||
742 | else { | ||
743 | BIO_printf(err, "bad input format specified for key file\n"); | ||
744 | goto end; | ||
745 | } | ||
746 | end: | ||
747 | BIO_free(key); | ||
748 | if (pkey == NULL) { | ||
749 | BIO_printf(err, "unable to load %s\n", key_descrip); | ||
750 | ERR_print_errors(err); | ||
751 | } | ||
752 | return (pkey); | ||
753 | } | ||
754 | |||
755 | EVP_PKEY * | ||
756 | load_pubkey(BIO *err, const char *file, int format, int maybe_stdin, | ||
757 | const char *pass, ENGINE *e, const char *key_descrip) | ||
758 | { | ||
759 | BIO *key = NULL; | ||
760 | EVP_PKEY *pkey = NULL; | ||
761 | PW_CB_DATA cb_data; | ||
762 | |||
763 | cb_data.password = pass; | ||
764 | cb_data.prompt_info = file; | ||
765 | |||
766 | if (file == NULL && (!maybe_stdin || format == FORMAT_ENGINE)) { | ||
767 | BIO_printf(err, "no keyfile specified\n"); | ||
768 | goto end; | ||
769 | } | ||
770 | #ifndef OPENSSL_NO_ENGINE | ||
771 | if (format == FORMAT_ENGINE) { | ||
772 | if (!e) | ||
773 | BIO_printf(bio_err, "no engine specified\n"); | ||
774 | else | ||
775 | pkey = ENGINE_load_public_key(e, file, | ||
776 | ui_method, &cb_data); | ||
777 | goto end; | ||
778 | } | ||
779 | #endif | ||
780 | key = BIO_new(BIO_s_file()); | ||
781 | if (key == NULL) { | ||
782 | ERR_print_errors(err); | ||
783 | goto end; | ||
784 | } | ||
785 | if (file == NULL && maybe_stdin) { | ||
786 | setvbuf(stdin, NULL, _IONBF, 0); | ||
787 | BIO_set_fp(key, stdin, BIO_NOCLOSE); | ||
788 | } else if (BIO_read_filename(key, file) <= 0) { | ||
789 | BIO_printf(err, "Error opening %s %s\n", key_descrip, file); | ||
790 | ERR_print_errors(err); | ||
791 | goto end; | ||
792 | } | ||
793 | if (format == FORMAT_ASN1) { | ||
794 | pkey = d2i_PUBKEY_bio(key, NULL); | ||
795 | } | ||
796 | else if (format == FORMAT_ASN1RSA) { | ||
797 | RSA *rsa; | ||
798 | rsa = d2i_RSAPublicKey_bio(key, NULL); | ||
799 | if (rsa) { | ||
800 | pkey = EVP_PKEY_new(); | ||
801 | if (pkey) | ||
802 | EVP_PKEY_set1_RSA(pkey, rsa); | ||
803 | RSA_free(rsa); | ||
804 | } else | ||
805 | pkey = NULL; | ||
806 | } else if (format == FORMAT_PEMRSA) { | ||
807 | RSA *rsa; | ||
808 | rsa = PEM_read_bio_RSAPublicKey(key, NULL, password_callback, &cb_data); | ||
809 | if (rsa) { | ||
810 | pkey = EVP_PKEY_new(); | ||
811 | if (pkey) | ||
812 | EVP_PKEY_set1_RSA(pkey, rsa); | ||
813 | RSA_free(rsa); | ||
814 | } else | ||
815 | pkey = NULL; | ||
816 | } | ||
817 | else if (format == FORMAT_PEM) { | ||
818 | pkey = PEM_read_bio_PUBKEY(key, NULL, password_callback, &cb_data); | ||
819 | } | ||
820 | #if !defined(OPENSSL_NO_RC4) && !defined(OPENSSL_NO_RSA) | ||
821 | else if (format == FORMAT_NETSCAPE || format == FORMAT_IISSGC) | ||
822 | pkey = load_netscape_key(err, key, file, key_descrip, format); | ||
823 | #endif | ||
824 | #if !defined(OPENSSL_NO_RSA) && !defined(OPENSSL_NO_DSA) | ||
825 | else if (format == FORMAT_MSBLOB) | ||
826 | pkey = b2i_PublicKey_bio(key); | ||
827 | #endif | ||
828 | else { | ||
829 | BIO_printf(err, "bad input format specified for key file\n"); | ||
830 | goto end; | ||
831 | } | ||
832 | |||
833 | end: | ||
834 | BIO_free(key); | ||
835 | if (pkey == NULL) | ||
836 | BIO_printf(err, "unable to load %s\n", key_descrip); | ||
837 | return (pkey); | ||
838 | } | ||
839 | |||
840 | #if !defined(OPENSSL_NO_RC4) && !defined(OPENSSL_NO_RSA) | ||
841 | static EVP_PKEY * | ||
842 | load_netscape_key(BIO *err, BIO *key, const char *file, | ||
843 | const char *key_descrip, int format) | ||
844 | { | ||
845 | EVP_PKEY *pkey; | ||
846 | BUF_MEM *buf; | ||
847 | RSA *rsa; | ||
848 | const unsigned char *p; | ||
849 | int size, i; | ||
850 | |||
851 | buf = BUF_MEM_new(); | ||
852 | pkey = EVP_PKEY_new(); | ||
853 | size = 0; | ||
854 | if (buf == NULL || pkey == NULL) | ||
855 | goto error; | ||
856 | for (;;) { | ||
857 | if (!BUF_MEM_grow_clean(buf, size + 1024 * 10)) | ||
858 | goto error; | ||
859 | i = BIO_read(key, &(buf->data[size]), 1024 * 10); | ||
860 | size += i; | ||
861 | if (i == 0) | ||
862 | break; | ||
863 | if (i < 0) { | ||
864 | BIO_printf(err, "Error reading %s %s", | ||
865 | key_descrip, file); | ||
866 | goto error; | ||
867 | } | ||
868 | } | ||
869 | p = (unsigned char *) buf->data; | ||
870 | rsa = d2i_RSA_NET(NULL, &p, (long) size, NULL, | ||
871 | (format == FORMAT_IISSGC ? 1 : 0)); | ||
872 | if (rsa == NULL) | ||
873 | goto error; | ||
874 | BUF_MEM_free(buf); | ||
875 | EVP_PKEY_set1_RSA(pkey, rsa); | ||
876 | return pkey; | ||
877 | |||
878 | error: | ||
879 | BUF_MEM_free(buf); | ||
880 | EVP_PKEY_free(pkey); | ||
881 | return NULL; | ||
882 | } | ||
883 | #endif /* ndef OPENSSL_NO_RC4 */ | ||
884 | |||
885 | static int | ||
886 | load_certs_crls(BIO *err, const char *file, int format, const char *pass, | ||
887 | ENGINE *e, const char *desc, STACK_OF(X509) **pcerts, | ||
888 | STACK_OF(X509_CRL) **pcrls) | ||
889 | { | ||
890 | int i; | ||
891 | BIO *bio; | ||
892 | STACK_OF(X509_INFO) *xis = NULL; | ||
893 | X509_INFO *xi; | ||
894 | PW_CB_DATA cb_data; | ||
895 | int rv = 0; | ||
896 | |||
897 | cb_data.password = pass; | ||
898 | cb_data.prompt_info = file; | ||
899 | |||
900 | if (format != FORMAT_PEM) { | ||
901 | BIO_printf(err, "bad input format specified for %s\n", desc); | ||
902 | return 0; | ||
903 | } | ||
904 | if (file == NULL) | ||
905 | bio = BIO_new_fp(stdin, BIO_NOCLOSE); | ||
906 | else | ||
907 | bio = BIO_new_file(file, "r"); | ||
908 | |||
909 | if (bio == NULL) { | ||
910 | BIO_printf(err, "Error opening %s %s\n", | ||
911 | desc, file ? file : "stdin"); | ||
912 | ERR_print_errors(err); | ||
913 | return 0; | ||
914 | } | ||
915 | xis = PEM_X509_INFO_read_bio(bio, NULL, password_callback, &cb_data); | ||
916 | |||
917 | BIO_free(bio); | ||
918 | |||
919 | if (pcerts) { | ||
920 | *pcerts = sk_X509_new_null(); | ||
921 | if (!*pcerts) | ||
922 | goto end; | ||
923 | } | ||
924 | if (pcrls) { | ||
925 | *pcrls = sk_X509_CRL_new_null(); | ||
926 | if (!*pcrls) | ||
927 | goto end; | ||
928 | } | ||
929 | for (i = 0; i < sk_X509_INFO_num(xis); i++) { | ||
930 | xi = sk_X509_INFO_value(xis, i); | ||
931 | if (xi->x509 && pcerts) { | ||
932 | if (!sk_X509_push(*pcerts, xi->x509)) | ||
933 | goto end; | ||
934 | xi->x509 = NULL; | ||
935 | } | ||
936 | if (xi->crl && pcrls) { | ||
937 | if (!sk_X509_CRL_push(*pcrls, xi->crl)) | ||
938 | goto end; | ||
939 | xi->crl = NULL; | ||
940 | } | ||
941 | } | ||
942 | |||
943 | if (pcerts && sk_X509_num(*pcerts) > 0) | ||
944 | rv = 1; | ||
945 | |||
946 | if (pcrls && sk_X509_CRL_num(*pcrls) > 0) | ||
947 | rv = 1; | ||
948 | |||
949 | end: | ||
950 | if (xis) | ||
951 | sk_X509_INFO_pop_free(xis, X509_INFO_free); | ||
952 | |||
953 | if (rv == 0) { | ||
954 | if (pcerts) { | ||
955 | sk_X509_pop_free(*pcerts, X509_free); | ||
956 | *pcerts = NULL; | ||
957 | } | ||
958 | if (pcrls) { | ||
959 | sk_X509_CRL_pop_free(*pcrls, X509_CRL_free); | ||
960 | *pcrls = NULL; | ||
961 | } | ||
962 | BIO_printf(err, "unable to load %s\n", | ||
963 | pcerts ? "certificates" : "CRLs"); | ||
964 | ERR_print_errors(err); | ||
965 | } | ||
966 | return rv; | ||
967 | } | ||
968 | |||
969 | STACK_OF(X509) * | ||
970 | load_certs(BIO *err, const char *file, int format, const char *pass, | ||
971 | ENGINE *e, const char *desc) | ||
972 | { | ||
973 | STACK_OF(X509) *certs; | ||
974 | |||
975 | if (!load_certs_crls(err, file, format, pass, e, desc, &certs, NULL)) | ||
976 | return NULL; | ||
977 | return certs; | ||
978 | } | ||
979 | |||
980 | STACK_OF(X509_CRL) * | ||
981 | load_crls(BIO *err, const char *file, int format, const char *pass, ENGINE *e, | ||
982 | const char *desc) | ||
983 | { | ||
984 | STACK_OF(X509_CRL) *crls; | ||
985 | |||
986 | if (!load_certs_crls(err, file, format, pass, e, desc, NULL, &crls)) | ||
987 | return NULL; | ||
988 | return crls; | ||
989 | } | ||
990 | |||
991 | #define X509V3_EXT_UNKNOWN_MASK (0xfL << 16) | ||
992 | /* Return error for unknown extensions */ | ||
993 | #define X509V3_EXT_DEFAULT 0 | ||
994 | /* Print error for unknown extensions */ | ||
995 | #define X509V3_EXT_ERROR_UNKNOWN (1L << 16) | ||
996 | /* ASN1 parse unknown extensions */ | ||
997 | #define X509V3_EXT_PARSE_UNKNOWN (2L << 16) | ||
998 | /* BIO_dump unknown extensions */ | ||
999 | #define X509V3_EXT_DUMP_UNKNOWN (3L << 16) | ||
1000 | |||
1001 | #define X509_FLAG_CA (X509_FLAG_NO_ISSUER | X509_FLAG_NO_PUBKEY | \ | ||
1002 | X509_FLAG_NO_HEADER | X509_FLAG_NO_VERSION) | ||
1003 | |||
1004 | int | ||
1005 | set_cert_ex(unsigned long *flags, const char *arg) | ||
1006 | { | ||
1007 | static const NAME_EX_TBL cert_tbl[] = { | ||
1008 | {"compatible", X509_FLAG_COMPAT, 0xffffffffl}, | ||
1009 | {"ca_default", X509_FLAG_CA, 0xffffffffl}, | ||
1010 | {"no_header", X509_FLAG_NO_HEADER, 0}, | ||
1011 | {"no_version", X509_FLAG_NO_VERSION, 0}, | ||
1012 | {"no_serial", X509_FLAG_NO_SERIAL, 0}, | ||
1013 | {"no_signame", X509_FLAG_NO_SIGNAME, 0}, | ||
1014 | {"no_validity", X509_FLAG_NO_VALIDITY, 0}, | ||
1015 | {"no_subject", X509_FLAG_NO_SUBJECT, 0}, | ||
1016 | {"no_issuer", X509_FLAG_NO_ISSUER, 0}, | ||
1017 | {"no_pubkey", X509_FLAG_NO_PUBKEY, 0}, | ||
1018 | {"no_extensions", X509_FLAG_NO_EXTENSIONS, 0}, | ||
1019 | {"no_sigdump", X509_FLAG_NO_SIGDUMP, 0}, | ||
1020 | {"no_aux", X509_FLAG_NO_AUX, 0}, | ||
1021 | {"no_attributes", X509_FLAG_NO_ATTRIBUTES, 0}, | ||
1022 | {"ext_default", X509V3_EXT_DEFAULT, X509V3_EXT_UNKNOWN_MASK}, | ||
1023 | {"ext_error", X509V3_EXT_ERROR_UNKNOWN, X509V3_EXT_UNKNOWN_MASK}, | ||
1024 | {"ext_parse", X509V3_EXT_PARSE_UNKNOWN, X509V3_EXT_UNKNOWN_MASK}, | ||
1025 | {"ext_dump", X509V3_EXT_DUMP_UNKNOWN, X509V3_EXT_UNKNOWN_MASK}, | ||
1026 | {NULL, 0, 0} | ||
1027 | }; | ||
1028 | return set_multi_opts(flags, arg, cert_tbl); | ||
1029 | } | ||
1030 | |||
1031 | int | ||
1032 | set_name_ex(unsigned long *flags, const char *arg) | ||
1033 | { | ||
1034 | static const NAME_EX_TBL ex_tbl[] = { | ||
1035 | {"esc_2253", ASN1_STRFLGS_ESC_2253, 0}, | ||
1036 | {"esc_ctrl", ASN1_STRFLGS_ESC_CTRL, 0}, | ||
1037 | {"esc_msb", ASN1_STRFLGS_ESC_MSB, 0}, | ||
1038 | {"use_quote", ASN1_STRFLGS_ESC_QUOTE, 0}, | ||
1039 | {"utf8", ASN1_STRFLGS_UTF8_CONVERT, 0}, | ||
1040 | {"ignore_type", ASN1_STRFLGS_IGNORE_TYPE, 0}, | ||
1041 | {"show_type", ASN1_STRFLGS_SHOW_TYPE, 0}, | ||
1042 | {"dump_all", ASN1_STRFLGS_DUMP_ALL, 0}, | ||
1043 | {"dump_nostr", ASN1_STRFLGS_DUMP_UNKNOWN, 0}, | ||
1044 | {"dump_der", ASN1_STRFLGS_DUMP_DER, 0}, | ||
1045 | {"compat", XN_FLAG_COMPAT, 0xffffffffL}, | ||
1046 | {"sep_comma_plus", XN_FLAG_SEP_COMMA_PLUS, XN_FLAG_SEP_MASK}, | ||
1047 | {"sep_comma_plus_space", XN_FLAG_SEP_CPLUS_SPC, XN_FLAG_SEP_MASK}, | ||
1048 | {"sep_semi_plus_space", XN_FLAG_SEP_SPLUS_SPC, XN_FLAG_SEP_MASK}, | ||
1049 | {"sep_multiline", XN_FLAG_SEP_MULTILINE, XN_FLAG_SEP_MASK}, | ||
1050 | {"dn_rev", XN_FLAG_DN_REV, 0}, | ||
1051 | {"nofname", XN_FLAG_FN_NONE, XN_FLAG_FN_MASK}, | ||
1052 | {"sname", XN_FLAG_FN_SN, XN_FLAG_FN_MASK}, | ||
1053 | {"lname", XN_FLAG_FN_LN, XN_FLAG_FN_MASK}, | ||
1054 | {"align", XN_FLAG_FN_ALIGN, 0}, | ||
1055 | {"oid", XN_FLAG_FN_OID, XN_FLAG_FN_MASK}, | ||
1056 | {"space_eq", XN_FLAG_SPC_EQ, 0}, | ||
1057 | {"dump_unknown", XN_FLAG_DUMP_UNKNOWN_FIELDS, 0}, | ||
1058 | {"RFC2253", XN_FLAG_RFC2253, 0xffffffffL}, | ||
1059 | {"oneline", XN_FLAG_ONELINE, 0xffffffffL}, | ||
1060 | {"multiline", XN_FLAG_MULTILINE, 0xffffffffL}, | ||
1061 | {"ca_default", XN_FLAG_MULTILINE, 0xffffffffL}, | ||
1062 | {NULL, 0, 0} | ||
1063 | }; | ||
1064 | return set_multi_opts(flags, arg, ex_tbl); | ||
1065 | } | ||
1066 | |||
1067 | int | ||
1068 | set_ext_copy(int *copy_type, const char *arg) | ||
1069 | { | ||
1070 | if (!strcasecmp(arg, "none")) | ||
1071 | *copy_type = EXT_COPY_NONE; | ||
1072 | else if (!strcasecmp(arg, "copy")) | ||
1073 | *copy_type = EXT_COPY_ADD; | ||
1074 | else if (!strcasecmp(arg, "copyall")) | ||
1075 | *copy_type = EXT_COPY_ALL; | ||
1076 | else | ||
1077 | return 0; | ||
1078 | return 1; | ||
1079 | } | ||
1080 | |||
1081 | int | ||
1082 | copy_extensions(X509 *x, X509_REQ *req, int copy_type) | ||
1083 | { | ||
1084 | STACK_OF(X509_EXTENSION) *exts = NULL; | ||
1085 | X509_EXTENSION *ext, *tmpext; | ||
1086 | ASN1_OBJECT *obj; | ||
1087 | int i, idx, ret = 0; | ||
1088 | |||
1089 | if (!x || !req || (copy_type == EXT_COPY_NONE)) | ||
1090 | return 1; | ||
1091 | exts = X509_REQ_get_extensions(req); | ||
1092 | |||
1093 | for (i = 0; i < sk_X509_EXTENSION_num(exts); i++) { | ||
1094 | ext = sk_X509_EXTENSION_value(exts, i); | ||
1095 | obj = X509_EXTENSION_get_object(ext); | ||
1096 | idx = X509_get_ext_by_OBJ(x, obj, -1); | ||
1097 | /* Does extension exist? */ | ||
1098 | if (idx != -1) { | ||
1099 | /* If normal copy don't override existing extension */ | ||
1100 | if (copy_type == EXT_COPY_ADD) | ||
1101 | continue; | ||
1102 | /* Delete all extensions of same type */ | ||
1103 | do { | ||
1104 | tmpext = X509_get_ext(x, idx); | ||
1105 | X509_delete_ext(x, idx); | ||
1106 | X509_EXTENSION_free(tmpext); | ||
1107 | idx = X509_get_ext_by_OBJ(x, obj, -1); | ||
1108 | } while (idx != -1); | ||
1109 | } | ||
1110 | if (!X509_add_ext(x, ext, -1)) | ||
1111 | goto end; | ||
1112 | } | ||
1113 | |||
1114 | ret = 1; | ||
1115 | |||
1116 | end: | ||
1117 | sk_X509_EXTENSION_pop_free(exts, X509_EXTENSION_free); | ||
1118 | |||
1119 | return ret; | ||
1120 | } | ||
1121 | |||
1122 | static int | ||
1123 | set_multi_opts(unsigned long *flags, const char *arg, | ||
1124 | const NAME_EX_TBL *in_tbl) | ||
1125 | { | ||
1126 | STACK_OF(CONF_VALUE) *vals; | ||
1127 | CONF_VALUE *val; | ||
1128 | int i, ret = 1; | ||
1129 | |||
1130 | if (!arg) | ||
1131 | return 0; | ||
1132 | vals = X509V3_parse_list(arg); | ||
1133 | for (i = 0; i < sk_CONF_VALUE_num(vals); i++) { | ||
1134 | val = sk_CONF_VALUE_value(vals, i); | ||
1135 | if (!set_table_opts(flags, val->name, in_tbl)) | ||
1136 | ret = 0; | ||
1137 | } | ||
1138 | sk_CONF_VALUE_pop_free(vals, X509V3_conf_free); | ||
1139 | return ret; | ||
1140 | } | ||
1141 | |||
1142 | static int | ||
1143 | set_table_opts(unsigned long *flags, const char *arg, | ||
1144 | const NAME_EX_TBL *in_tbl) | ||
1145 | { | ||
1146 | char c; | ||
1147 | const NAME_EX_TBL *ptbl; | ||
1148 | |||
1149 | c = arg[0]; | ||
1150 | if (c == '-') { | ||
1151 | c = 0; | ||
1152 | arg++; | ||
1153 | } else if (c == '+') { | ||
1154 | c = 1; | ||
1155 | arg++; | ||
1156 | } else | ||
1157 | c = 1; | ||
1158 | |||
1159 | for (ptbl = in_tbl; ptbl->name; ptbl++) { | ||
1160 | if (!strcasecmp(arg, ptbl->name)) { | ||
1161 | *flags &= ~ptbl->mask; | ||
1162 | if (c) | ||
1163 | *flags |= ptbl->flag; | ||
1164 | else | ||
1165 | *flags &= ~ptbl->flag; | ||
1166 | return 1; | ||
1167 | } | ||
1168 | } | ||
1169 | return 0; | ||
1170 | } | ||
1171 | |||
1172 | void | ||
1173 | print_name(BIO *out, const char *title, X509_NAME *nm, unsigned long lflags) | ||
1174 | { | ||
1175 | char *buf; | ||
1176 | char mline = 0; | ||
1177 | int indent = 0; | ||
1178 | |||
1179 | if (title) | ||
1180 | BIO_puts(out, title); | ||
1181 | if ((lflags & XN_FLAG_SEP_MASK) == XN_FLAG_SEP_MULTILINE) { | ||
1182 | mline = 1; | ||
1183 | indent = 4; | ||
1184 | } | ||
1185 | if (lflags == XN_FLAG_COMPAT) { | ||
1186 | buf = X509_NAME_oneline(nm, 0, 0); | ||
1187 | BIO_puts(out, buf); | ||
1188 | BIO_puts(out, "\n"); | ||
1189 | free(buf); | ||
1190 | } else { | ||
1191 | if (mline) | ||
1192 | BIO_puts(out, "\n"); | ||
1193 | X509_NAME_print_ex(out, nm, indent, lflags); | ||
1194 | BIO_puts(out, "\n"); | ||
1195 | } | ||
1196 | } | ||
1197 | |||
1198 | X509_STORE * | ||
1199 | setup_verify(BIO *bp, char *CAfile, char *CApath) | ||
1200 | { | ||
1201 | X509_STORE *store; | ||
1202 | X509_LOOKUP *lookup; | ||
1203 | |||
1204 | if (!(store = X509_STORE_new())) | ||
1205 | goto end; | ||
1206 | lookup = X509_STORE_add_lookup(store, X509_LOOKUP_file()); | ||
1207 | if (lookup == NULL) | ||
1208 | goto end; | ||
1209 | if (CAfile) { | ||
1210 | if (!X509_LOOKUP_load_file(lookup, CAfile, X509_FILETYPE_PEM)) { | ||
1211 | BIO_printf(bp, "Error loading file %s\n", CAfile); | ||
1212 | goto end; | ||
1213 | } | ||
1214 | } else | ||
1215 | X509_LOOKUP_load_file(lookup, NULL, X509_FILETYPE_DEFAULT); | ||
1216 | |||
1217 | lookup = X509_STORE_add_lookup(store, X509_LOOKUP_hash_dir()); | ||
1218 | if (lookup == NULL) | ||
1219 | goto end; | ||
1220 | if (CApath) { | ||
1221 | if (!X509_LOOKUP_add_dir(lookup, CApath, X509_FILETYPE_PEM)) { | ||
1222 | BIO_printf(bp, "Error loading directory %s\n", CApath); | ||
1223 | goto end; | ||
1224 | } | ||
1225 | } else | ||
1226 | X509_LOOKUP_add_dir(lookup, NULL, X509_FILETYPE_DEFAULT); | ||
1227 | |||
1228 | ERR_clear_error(); | ||
1229 | return store; | ||
1230 | |||
1231 | end: | ||
1232 | X509_STORE_free(store); | ||
1233 | return NULL; | ||
1234 | } | ||
1235 | |||
1236 | #ifndef OPENSSL_NO_ENGINE | ||
1237 | /* Try to load an engine in a shareable library */ | ||
1238 | static ENGINE * | ||
1239 | try_load_engine(BIO *err, const char *engine, int debug) | ||
1240 | { | ||
1241 | ENGINE *e = ENGINE_by_id("dynamic"); | ||
1242 | |||
1243 | if (e) { | ||
1244 | if (!ENGINE_ctrl_cmd_string(e, "SO_PATH", engine, 0) || | ||
1245 | !ENGINE_ctrl_cmd_string(e, "LOAD", NULL, 0)) { | ||
1246 | ENGINE_free(e); | ||
1247 | e = NULL; | ||
1248 | } | ||
1249 | } | ||
1250 | return e; | ||
1251 | } | ||
1252 | |||
1253 | ENGINE * | ||
1254 | setup_engine(BIO *err, const char *engine, int debug) | ||
1255 | { | ||
1256 | ENGINE *e = NULL; | ||
1257 | |||
1258 | if (engine) { | ||
1259 | if (strcmp(engine, "auto") == 0) { | ||
1260 | BIO_printf(err, "enabling auto ENGINE support\n"); | ||
1261 | ENGINE_register_all_complete(); | ||
1262 | return NULL; | ||
1263 | } | ||
1264 | if ((e = ENGINE_by_id(engine)) == NULL && | ||
1265 | (e = try_load_engine(err, engine, debug)) == NULL) { | ||
1266 | BIO_printf(err, "invalid engine \"%s\"\n", engine); | ||
1267 | ERR_print_errors(err); | ||
1268 | return NULL; | ||
1269 | } | ||
1270 | if (debug) { | ||
1271 | ENGINE_ctrl(e, ENGINE_CTRL_SET_LOGSTREAM, | ||
1272 | 0, err, 0); | ||
1273 | } | ||
1274 | ENGINE_ctrl_cmd(e, "SET_USER_INTERFACE", 0, ui_method, 0, 1); | ||
1275 | if (!ENGINE_set_default(e, ENGINE_METHOD_ALL)) { | ||
1276 | BIO_printf(err, "can't use that engine\n"); | ||
1277 | ERR_print_errors(err); | ||
1278 | ENGINE_free(e); | ||
1279 | return NULL; | ||
1280 | } | ||
1281 | BIO_printf(err, "engine \"%s\" set.\n", ENGINE_get_id(e)); | ||
1282 | |||
1283 | /* Free our "structural" reference. */ | ||
1284 | ENGINE_free(e); | ||
1285 | } | ||
1286 | return e; | ||
1287 | } | ||
1288 | #endif | ||
1289 | |||
1290 | int | ||
1291 | load_config(BIO *err, CONF *cnf) | ||
1292 | { | ||
1293 | static int load_config_called = 0; | ||
1294 | |||
1295 | if (load_config_called) | ||
1296 | return 1; | ||
1297 | load_config_called = 1; | ||
1298 | if (cnf == NULL) | ||
1299 | cnf = config; | ||
1300 | if (cnf == NULL) | ||
1301 | return 1; | ||
1302 | |||
1303 | OPENSSL_load_builtin_modules(); | ||
1304 | |||
1305 | if (CONF_modules_load(cnf, NULL, 0) <= 0) { | ||
1306 | BIO_printf(err, "Error configuring OpenSSL\n"); | ||
1307 | ERR_print_errors(err); | ||
1308 | return 0; | ||
1309 | } | ||
1310 | return 1; | ||
1311 | } | ||
1312 | |||
1313 | char * | ||
1314 | make_config_name() | ||
1315 | { | ||
1316 | const char *t = X509_get_default_cert_area(); | ||
1317 | char *p; | ||
1318 | |||
1319 | if (asprintf(&p, "%s/openssl.cnf", t) == -1) | ||
1320 | return NULL; | ||
1321 | return p; | ||
1322 | } | ||
1323 | |||
1324 | static unsigned long | ||
1325 | index_serial_hash(const OPENSSL_CSTRING *a) | ||
1326 | { | ||
1327 | const char *n; | ||
1328 | |||
1329 | n = a[DB_serial]; | ||
1330 | while (*n == '0') | ||
1331 | n++; | ||
1332 | return (lh_strhash(n)); | ||
1333 | } | ||
1334 | |||
1335 | static int | ||
1336 | index_serial_cmp(const OPENSSL_CSTRING *a, const OPENSSL_CSTRING *b) | ||
1337 | { | ||
1338 | const char *aa, *bb; | ||
1339 | |||
1340 | for (aa = a[DB_serial]; *aa == '0'; aa++) | ||
1341 | ; | ||
1342 | for (bb = b[DB_serial]; *bb == '0'; bb++) | ||
1343 | ; | ||
1344 | return (strcmp(aa, bb)); | ||
1345 | } | ||
1346 | |||
1347 | static int | ||
1348 | index_name_qual(char **a) | ||
1349 | { | ||
1350 | return (a[0][0] == 'V'); | ||
1351 | } | ||
1352 | |||
1353 | static unsigned long | ||
1354 | index_name_hash(const OPENSSL_CSTRING *a) | ||
1355 | { | ||
1356 | return (lh_strhash(a[DB_name])); | ||
1357 | } | ||
1358 | |||
1359 | int | ||
1360 | index_name_cmp(const OPENSSL_CSTRING *a, const OPENSSL_CSTRING *b) | ||
1361 | { | ||
1362 | return (strcmp(a[DB_name], b[DB_name])); | ||
1363 | } | ||
1364 | |||
1365 | static IMPLEMENT_LHASH_HASH_FN(index_serial, OPENSSL_CSTRING) | ||
1366 | static IMPLEMENT_LHASH_COMP_FN(index_serial, OPENSSL_CSTRING) | ||
1367 | static IMPLEMENT_LHASH_HASH_FN(index_name, OPENSSL_CSTRING) | ||
1368 | static IMPLEMENT_LHASH_COMP_FN(index_name, OPENSSL_CSTRING) | ||
1369 | |||
1370 | #define BSIZE 256 | ||
1371 | |||
1372 | BIGNUM * | ||
1373 | load_serial(char *serialfile, int create, ASN1_INTEGER **retai) | ||
1374 | { | ||
1375 | BIO *in = NULL; | ||
1376 | BIGNUM *ret = NULL; | ||
1377 | char buf[1024]; | ||
1378 | ASN1_INTEGER *ai = NULL; | ||
1379 | |||
1380 | ai = ASN1_INTEGER_new(); | ||
1381 | if (ai == NULL) | ||
1382 | goto err; | ||
1383 | |||
1384 | if ((in = BIO_new(BIO_s_file())) == NULL) { | ||
1385 | ERR_print_errors(bio_err); | ||
1386 | goto err; | ||
1387 | } | ||
1388 | if (BIO_read_filename(in, serialfile) <= 0) { | ||
1389 | if (!create) { | ||
1390 | perror(serialfile); | ||
1391 | goto err; | ||
1392 | } else { | ||
1393 | ret = BN_new(); | ||
1394 | if (ret == NULL || !rand_serial(ret, ai)) | ||
1395 | BIO_printf(bio_err, "Out of memory\n"); | ||
1396 | } | ||
1397 | } else { | ||
1398 | if (!a2i_ASN1_INTEGER(in, ai, buf, 1024)) { | ||
1399 | BIO_printf(bio_err, "unable to load number from %s\n", | ||
1400 | serialfile); | ||
1401 | goto err; | ||
1402 | } | ||
1403 | ret = ASN1_INTEGER_to_BN(ai, NULL); | ||
1404 | if (ret == NULL) { | ||
1405 | BIO_printf(bio_err, | ||
1406 | "error converting number from bin to BIGNUM\n"); | ||
1407 | goto err; | ||
1408 | } | ||
1409 | } | ||
1410 | |||
1411 | if (ret && retai) { | ||
1412 | *retai = ai; | ||
1413 | ai = NULL; | ||
1414 | } | ||
1415 | |||
1416 | err: | ||
1417 | if (in != NULL) | ||
1418 | BIO_free(in); | ||
1419 | if (ai != NULL) | ||
1420 | ASN1_INTEGER_free(ai); | ||
1421 | return (ret); | ||
1422 | } | ||
1423 | |||
1424 | int | ||
1425 | save_serial(char *serialfile, char *suffix, BIGNUM *serial, | ||
1426 | ASN1_INTEGER **retai) | ||
1427 | { | ||
1428 | char buf[1][BSIZE]; | ||
1429 | BIO *out = NULL; | ||
1430 | int ret = 0, n; | ||
1431 | ASN1_INTEGER *ai = NULL; | ||
1432 | int j; | ||
1433 | |||
1434 | if (suffix == NULL) | ||
1435 | j = strlen(serialfile); | ||
1436 | else | ||
1437 | j = strlen(serialfile) + strlen(suffix) + 1; | ||
1438 | if (j >= BSIZE) { | ||
1439 | BIO_printf(bio_err, "file name too long\n"); | ||
1440 | goto err; | ||
1441 | } | ||
1442 | if (suffix == NULL) | ||
1443 | n = strlcpy(buf[0], serialfile, BSIZE); | ||
1444 | else | ||
1445 | n = snprintf(buf[0], sizeof buf[0], "%s.%s", | ||
1446 | serialfile, suffix); | ||
1447 | if (n == -1 || n >= sizeof(buf[0])) { | ||
1448 | BIO_printf(bio_err, "serial too long\n"); | ||
1449 | goto err; | ||
1450 | } | ||
1451 | out = BIO_new(BIO_s_file()); | ||
1452 | if (out == NULL) { | ||
1453 | ERR_print_errors(bio_err); | ||
1454 | goto err; | ||
1455 | } | ||
1456 | if (BIO_write_filename(out, buf[0]) <= 0) { | ||
1457 | perror(serialfile); | ||
1458 | goto err; | ||
1459 | } | ||
1460 | if ((ai = BN_to_ASN1_INTEGER(serial, NULL)) == NULL) { | ||
1461 | BIO_printf(bio_err, | ||
1462 | "error converting serial to ASN.1 format\n"); | ||
1463 | goto err; | ||
1464 | } | ||
1465 | i2a_ASN1_INTEGER(out, ai); | ||
1466 | BIO_puts(out, "\n"); | ||
1467 | ret = 1; | ||
1468 | if (retai) { | ||
1469 | *retai = ai; | ||
1470 | ai = NULL; | ||
1471 | } | ||
1472 | |||
1473 | err: | ||
1474 | if (out != NULL) | ||
1475 | BIO_free_all(out); | ||
1476 | if (ai != NULL) | ||
1477 | ASN1_INTEGER_free(ai); | ||
1478 | return (ret); | ||
1479 | } | ||
1480 | |||
1481 | int | ||
1482 | rotate_serial(char *serialfile, char *new_suffix, char *old_suffix) | ||
1483 | { | ||
1484 | char buf[5][BSIZE]; | ||
1485 | int i, j; | ||
1486 | |||
1487 | i = strlen(serialfile) + strlen(old_suffix); | ||
1488 | j = strlen(serialfile) + strlen(new_suffix); | ||
1489 | if (i > j) | ||
1490 | j = i; | ||
1491 | if (j + 1 >= BSIZE) { | ||
1492 | BIO_printf(bio_err, "file name too long\n"); | ||
1493 | goto err; | ||
1494 | } | ||
1495 | snprintf(buf[0], sizeof buf[0], "%s.%s", serialfile, new_suffix); | ||
1496 | snprintf(buf[1], sizeof buf[1], "%s.%s", serialfile, old_suffix); | ||
1497 | |||
1498 | |||
1499 | if (rename(serialfile, buf[1]) < 0 && | ||
1500 | errno != ENOENT && errno != ENOTDIR) { | ||
1501 | BIO_printf(bio_err, "unable to rename %s to %s\n", | ||
1502 | serialfile, buf[1]); | ||
1503 | perror("reason"); | ||
1504 | goto err; | ||
1505 | } | ||
1506 | |||
1507 | |||
1508 | if (rename(buf[0], serialfile) < 0) { | ||
1509 | BIO_printf(bio_err, "unable to rename %s to %s\n", | ||
1510 | buf[0], serialfile); | ||
1511 | perror("reason"); | ||
1512 | rename(buf[1], serialfile); | ||
1513 | goto err; | ||
1514 | } | ||
1515 | return 1; | ||
1516 | |||
1517 | err: | ||
1518 | return 0; | ||
1519 | } | ||
1520 | |||
1521 | int | ||
1522 | rand_serial(BIGNUM *b, ASN1_INTEGER *ai) | ||
1523 | { | ||
1524 | BIGNUM *btmp; | ||
1525 | int ret = 0; | ||
1526 | |||
1527 | if (b) | ||
1528 | btmp = b; | ||
1529 | else | ||
1530 | btmp = BN_new(); | ||
1531 | |||
1532 | if (!btmp) | ||
1533 | return 0; | ||
1534 | |||
1535 | if (!BN_pseudo_rand(btmp, SERIAL_RAND_BITS, 0, 0)) | ||
1536 | goto error; | ||
1537 | if (ai && !BN_to_ASN1_INTEGER(btmp, ai)) | ||
1538 | goto error; | ||
1539 | |||
1540 | ret = 1; | ||
1541 | |||
1542 | error: | ||
1543 | if (!b) | ||
1544 | BN_free(btmp); | ||
1545 | |||
1546 | return ret; | ||
1547 | } | ||
1548 | |||
1549 | CA_DB * | ||
1550 | load_index(char *dbfile, DB_ATTR *db_attr) | ||
1551 | { | ||
1552 | CA_DB *retdb = NULL; | ||
1553 | TXT_DB *tmpdb = NULL; | ||
1554 | BIO *in = BIO_new(BIO_s_file()); | ||
1555 | CONF *dbattr_conf = NULL; | ||
1556 | char buf[1][BSIZE]; | ||
1557 | long errorline = -1; | ||
1558 | |||
1559 | if (in == NULL) { | ||
1560 | ERR_print_errors(bio_err); | ||
1561 | goto err; | ||
1562 | } | ||
1563 | if (BIO_read_filename(in, dbfile) <= 0) { | ||
1564 | perror(dbfile); | ||
1565 | BIO_printf(bio_err, "unable to open '%s'\n", dbfile); | ||
1566 | goto err; | ||
1567 | } | ||
1568 | if ((tmpdb = TXT_DB_read(in, DB_NUMBER)) == NULL) | ||
1569 | goto err; | ||
1570 | |||
1571 | snprintf(buf[0], sizeof buf[0], "%s.attr", dbfile); | ||
1572 | dbattr_conf = NCONF_new(NULL); | ||
1573 | if (NCONF_load(dbattr_conf, buf[0], &errorline) <= 0) { | ||
1574 | if (errorline > 0) { | ||
1575 | BIO_printf(bio_err, | ||
1576 | "error on line %ld of db attribute file '%s'\n", | ||
1577 | errorline, buf[0]); | ||
1578 | goto err; | ||
1579 | } else { | ||
1580 | NCONF_free(dbattr_conf); | ||
1581 | dbattr_conf = NULL; | ||
1582 | } | ||
1583 | } | ||
1584 | if ((retdb = malloc(sizeof(CA_DB))) == NULL) { | ||
1585 | fprintf(stderr, "Out of memory\n"); | ||
1586 | goto err; | ||
1587 | } | ||
1588 | retdb->db = tmpdb; | ||
1589 | tmpdb = NULL; | ||
1590 | if (db_attr) | ||
1591 | retdb->attributes = *db_attr; | ||
1592 | else { | ||
1593 | retdb->attributes.unique_subject = 1; | ||
1594 | } | ||
1595 | |||
1596 | if (dbattr_conf) { | ||
1597 | char *p = NCONF_get_string(dbattr_conf, NULL, "unique_subject"); | ||
1598 | if (p) { | ||
1599 | retdb->attributes.unique_subject = parse_yesno(p, 1); | ||
1600 | } | ||
1601 | } | ||
1602 | |||
1603 | err: | ||
1604 | if (dbattr_conf) | ||
1605 | NCONF_free(dbattr_conf); | ||
1606 | if (tmpdb) | ||
1607 | TXT_DB_free(tmpdb); | ||
1608 | if (in) | ||
1609 | BIO_free_all(in); | ||
1610 | return retdb; | ||
1611 | } | ||
1612 | |||
1613 | int | ||
1614 | index_index(CA_DB *db) | ||
1615 | { | ||
1616 | if (!TXT_DB_create_index(db->db, DB_serial, NULL, | ||
1617 | LHASH_HASH_FN(index_serial), LHASH_COMP_FN(index_serial))) { | ||
1618 | BIO_printf(bio_err, | ||
1619 | "error creating serial number index:(%ld,%ld,%ld)\n", | ||
1620 | db->db->error, db->db->arg1, db->db->arg2); | ||
1621 | return 0; | ||
1622 | } | ||
1623 | if (db->attributes.unique_subject && | ||
1624 | !TXT_DB_create_index(db->db, DB_name, index_name_qual, | ||
1625 | LHASH_HASH_FN(index_name), LHASH_COMP_FN(index_name))) { | ||
1626 | BIO_printf(bio_err, "error creating name index:(%ld,%ld,%ld)\n", | ||
1627 | db->db->error, db->db->arg1, db->db->arg2); | ||
1628 | return 0; | ||
1629 | } | ||
1630 | return 1; | ||
1631 | } | ||
1632 | |||
1633 | int | ||
1634 | save_index(const char *dbfile, const char *suffix, CA_DB *db) | ||
1635 | { | ||
1636 | char buf[3][BSIZE]; | ||
1637 | BIO *out = BIO_new(BIO_s_file()); | ||
1638 | int j; | ||
1639 | |||
1640 | if (out == NULL) { | ||
1641 | ERR_print_errors(bio_err); | ||
1642 | goto err; | ||
1643 | } | ||
1644 | j = strlen(dbfile) + strlen(suffix); | ||
1645 | if (j + 6 >= BSIZE) { | ||
1646 | BIO_printf(bio_err, "file name too long\n"); | ||
1647 | goto err; | ||
1648 | } | ||
1649 | snprintf(buf[2], sizeof buf[2], "%s.attr", dbfile); | ||
1650 | snprintf(buf[1], sizeof buf[1], "%s.attr.%s", dbfile, suffix); | ||
1651 | snprintf(buf[0], sizeof buf[0], "%s.%s", dbfile, suffix); | ||
1652 | |||
1653 | |||
1654 | if (BIO_write_filename(out, buf[0]) <= 0) { | ||
1655 | perror(dbfile); | ||
1656 | BIO_printf(bio_err, "unable to open '%s'\n", dbfile); | ||
1657 | goto err; | ||
1658 | } | ||
1659 | j = TXT_DB_write(out, db->db); | ||
1660 | if (j <= 0) | ||
1661 | goto err; | ||
1662 | |||
1663 | BIO_free(out); | ||
1664 | |||
1665 | out = BIO_new(BIO_s_file()); | ||
1666 | |||
1667 | |||
1668 | if (BIO_write_filename(out, buf[1]) <= 0) { | ||
1669 | perror(buf[2]); | ||
1670 | BIO_printf(bio_err, "unable to open '%s'\n", buf[2]); | ||
1671 | goto err; | ||
1672 | } | ||
1673 | BIO_printf(out, "unique_subject = %s\n", | ||
1674 | db->attributes.unique_subject ? "yes" : "no"); | ||
1675 | BIO_free(out); | ||
1676 | |||
1677 | return 1; | ||
1678 | |||
1679 | err: | ||
1680 | return 0; | ||
1681 | } | ||
1682 | |||
1683 | int | ||
1684 | rotate_index(const char *dbfile, const char *new_suffix, const char *old_suffix) | ||
1685 | { | ||
1686 | char buf[5][BSIZE]; | ||
1687 | int i, j; | ||
1688 | |||
1689 | i = strlen(dbfile) + strlen(old_suffix); | ||
1690 | j = strlen(dbfile) + strlen(new_suffix); | ||
1691 | if (i > j) | ||
1692 | j = i; | ||
1693 | if (j + 6 >= BSIZE) { | ||
1694 | BIO_printf(bio_err, "file name too long\n"); | ||
1695 | goto err; | ||
1696 | } | ||
1697 | snprintf(buf[4], sizeof buf[4], "%s.attr", dbfile); | ||
1698 | snprintf(buf[2], sizeof buf[2], "%s.attr.%s", dbfile, new_suffix); | ||
1699 | snprintf(buf[0], sizeof buf[0], "%s.%s", dbfile, new_suffix); | ||
1700 | snprintf(buf[1], sizeof buf[1], "%s.%s", dbfile, old_suffix); | ||
1701 | snprintf(buf[3], sizeof buf[3], "%s.attr.%s", dbfile, old_suffix); | ||
1702 | |||
1703 | |||
1704 | if (rename(dbfile, buf[1]) < 0 && errno != ENOENT && errno != ENOTDIR) { | ||
1705 | BIO_printf(bio_err, "unable to rename %s to %s\n", | ||
1706 | dbfile, buf[1]); | ||
1707 | perror("reason"); | ||
1708 | goto err; | ||
1709 | } | ||
1710 | |||
1711 | |||
1712 | if (rename(buf[0], dbfile) < 0) { | ||
1713 | BIO_printf(bio_err, "unable to rename %s to %s\n", | ||
1714 | buf[0], dbfile); | ||
1715 | perror("reason"); | ||
1716 | rename(buf[1], dbfile); | ||
1717 | goto err; | ||
1718 | } | ||
1719 | |||
1720 | |||
1721 | if (rename(buf[4], buf[3]) < 0 && errno != ENOENT && errno != ENOTDIR) { | ||
1722 | BIO_printf(bio_err, "unable to rename %s to %s\n", | ||
1723 | buf[4], buf[3]); | ||
1724 | perror("reason"); | ||
1725 | rename(dbfile, buf[0]); | ||
1726 | rename(buf[1], dbfile); | ||
1727 | goto err; | ||
1728 | } | ||
1729 | |||
1730 | |||
1731 | if (rename(buf[2], buf[4]) < 0) { | ||
1732 | BIO_printf(bio_err, "unable to rename %s to %s\n", | ||
1733 | buf[2], buf[4]); | ||
1734 | perror("reason"); | ||
1735 | rename(buf[3], buf[4]); | ||
1736 | rename(dbfile, buf[0]); | ||
1737 | rename(buf[1], dbfile); | ||
1738 | goto err; | ||
1739 | } | ||
1740 | return 1; | ||
1741 | |||
1742 | err: | ||
1743 | return 0; | ||
1744 | } | ||
1745 | |||
1746 | void | ||
1747 | free_index(CA_DB *db) | ||
1748 | { | ||
1749 | if (db) { | ||
1750 | if (db->db) | ||
1751 | TXT_DB_free(db->db); | ||
1752 | free(db); | ||
1753 | } | ||
1754 | } | ||
1755 | |||
1756 | int | ||
1757 | parse_yesno(const char *str, int def) | ||
1758 | { | ||
1759 | int ret = def; | ||
1760 | |||
1761 | if (str) { | ||
1762 | switch (*str) { | ||
1763 | case 'f': /* false */ | ||
1764 | case 'F': /* FALSE */ | ||
1765 | case 'n': /* no */ | ||
1766 | case 'N': /* NO */ | ||
1767 | case '0': /* 0 */ | ||
1768 | ret = 0; | ||
1769 | break; | ||
1770 | case 't': /* true */ | ||
1771 | case 'T': /* TRUE */ | ||
1772 | case 'y': /* yes */ | ||
1773 | case 'Y': /* YES */ | ||
1774 | case '1': /* 1 */ | ||
1775 | ret = 1; | ||
1776 | break; | ||
1777 | default: | ||
1778 | ret = def; | ||
1779 | break; | ||
1780 | } | ||
1781 | } | ||
1782 | return ret; | ||
1783 | } | ||
1784 | |||
1785 | /* | ||
1786 | * subject is expected to be in the format /type0=value0/type1=value1/type2=... | ||
1787 | * where characters may be escaped by \ | ||
1788 | */ | ||
1789 | X509_NAME * | ||
1790 | parse_name(char *subject, long chtype, int multirdn) | ||
1791 | { | ||
1792 | X509_NAME *name = NULL; | ||
1793 | size_t buflen, max_ne; | ||
1794 | char **ne_types, **ne_values; | ||
1795 | char *buf, *bp, *sp; | ||
1796 | int i, nid, ne_num = 0; | ||
1797 | int *mval; | ||
1798 | |||
1799 | /* | ||
1800 | * Buffer to copy the types and values into. Due to escaping the | ||
1801 | * copy can only become shorter. | ||
1802 | */ | ||
1803 | buflen = strlen(subject) + 1; | ||
1804 | buf = malloc(buflen); | ||
1805 | |||
1806 | /* Maximum number of name elements. */ | ||
1807 | max_ne = buflen / 2 + 1; | ||
1808 | ne_types = reallocarray(NULL, max_ne, sizeof(char *)); | ||
1809 | ne_values = reallocarray(NULL, max_ne, sizeof(char *)); | ||
1810 | mval = reallocarray(NULL, max_ne, sizeof(int)); | ||
1811 | |||
1812 | if (buf == NULL || ne_types == NULL || ne_values == NULL || | ||
1813 | mval == NULL) { | ||
1814 | BIO_printf(bio_err, "malloc error\n"); | ||
1815 | goto error; | ||
1816 | } | ||
1817 | |||
1818 | bp = buf; | ||
1819 | sp = subject; | ||
1820 | |||
1821 | if (*subject != '/') { | ||
1822 | BIO_printf(bio_err, "Subject does not start with '/'.\n"); | ||
1823 | goto error; | ||
1824 | } | ||
1825 | |||
1826 | /* Skip leading '/'. */ | ||
1827 | sp++; | ||
1828 | |||
1829 | /* No multivalued RDN by default. */ | ||
1830 | mval[ne_num] = 0; | ||
1831 | |||
1832 | while (*sp) { | ||
1833 | /* Collect type. */ | ||
1834 | ne_types[ne_num] = bp; | ||
1835 | while (*sp) { | ||
1836 | /* is there anything to escape in the type...? */ | ||
1837 | if (*sp == '\\') { | ||
1838 | if (*++sp) | ||
1839 | *bp++ = *sp++; | ||
1840 | else { | ||
1841 | BIO_printf(bio_err, "escape character " | ||
1842 | "at end of string\n"); | ||
1843 | goto error; | ||
1844 | } | ||
1845 | } else if (*sp == '=') { | ||
1846 | sp++; | ||
1847 | *bp++ = '\0'; | ||
1848 | break; | ||
1849 | } else | ||
1850 | *bp++ = *sp++; | ||
1851 | } | ||
1852 | if (!*sp) { | ||
1853 | BIO_printf(bio_err, "end of string encountered while " | ||
1854 | "processing type of subject name element #%d\n", | ||
1855 | ne_num); | ||
1856 | goto error; | ||
1857 | } | ||
1858 | ne_values[ne_num] = bp; | ||
1859 | while (*sp) { | ||
1860 | if (*sp == '\\') { | ||
1861 | if (*++sp) | ||
1862 | *bp++ = *sp++; | ||
1863 | else { | ||
1864 | BIO_printf(bio_err, "escape character " | ||
1865 | "at end of string\n"); | ||
1866 | goto error; | ||
1867 | } | ||
1868 | } else if (*sp == '/') { | ||
1869 | sp++; | ||
1870 | /* no multivalued RDN by default */ | ||
1871 | mval[ne_num + 1] = 0; | ||
1872 | break; | ||
1873 | } else if (*sp == '+' && multirdn) { | ||
1874 | /* a not escaped + signals a mutlivalued RDN */ | ||
1875 | sp++; | ||
1876 | mval[ne_num + 1] = -1; | ||
1877 | break; | ||
1878 | } else | ||
1879 | *bp++ = *sp++; | ||
1880 | } | ||
1881 | *bp++ = '\0'; | ||
1882 | ne_num++; | ||
1883 | } | ||
1884 | |||
1885 | if ((name = X509_NAME_new()) == NULL) | ||
1886 | goto error; | ||
1887 | |||
1888 | for (i = 0; i < ne_num; i++) { | ||
1889 | if ((nid = OBJ_txt2nid(ne_types[i])) == NID_undef) { | ||
1890 | BIO_printf(bio_err, | ||
1891 | "Subject Attribute %s has no known NID, skipped\n", | ||
1892 | ne_types[i]); | ||
1893 | continue; | ||
1894 | } | ||
1895 | if (!*ne_values[i]) { | ||
1896 | BIO_printf(bio_err, "No value provided for Subject " | ||
1897 | "Attribute %s, skipped\n", ne_types[i]); | ||
1898 | continue; | ||
1899 | } | ||
1900 | if (!X509_NAME_add_entry_by_NID(name, nid, chtype, | ||
1901 | (unsigned char *) ne_values[i], -1, -1, mval[i])) | ||
1902 | goto error; | ||
1903 | } | ||
1904 | goto done; | ||
1905 | |||
1906 | error: | ||
1907 | X509_NAME_free(name); | ||
1908 | name = NULL; | ||
1909 | |||
1910 | done: | ||
1911 | free(ne_values); | ||
1912 | free(ne_types); | ||
1913 | free(mval); | ||
1914 | free(buf); | ||
1915 | |||
1916 | return name; | ||
1917 | } | ||
1918 | |||
1919 | int | ||
1920 | args_verify(char ***pargs, int *pargc, int *badarg, BIO *err, | ||
1921 | X509_VERIFY_PARAM **pm) | ||
1922 | { | ||
1923 | ASN1_OBJECT *otmp = NULL; | ||
1924 | unsigned long flags = 0; | ||
1925 | int i; | ||
1926 | int purpose = 0, depth = -1; | ||
1927 | char **oldargs = *pargs; | ||
1928 | char *arg = **pargs, *argn = (*pargs)[1]; | ||
1929 | time_t at_time = 0; | ||
1930 | const char *errstr = NULL; | ||
1931 | |||
1932 | if (!strcmp(arg, "-policy")) { | ||
1933 | if (!argn) | ||
1934 | *badarg = 1; | ||
1935 | else { | ||
1936 | otmp = OBJ_txt2obj(argn, 0); | ||
1937 | if (!otmp) { | ||
1938 | BIO_printf(err, "Invalid Policy \"%s\"\n", | ||
1939 | argn); | ||
1940 | *badarg = 1; | ||
1941 | } | ||
1942 | } | ||
1943 | (*pargs)++; | ||
1944 | } else if (strcmp(arg, "-purpose") == 0) { | ||
1945 | X509_PURPOSE *xptmp; | ||
1946 | if (!argn) | ||
1947 | *badarg = 1; | ||
1948 | else { | ||
1949 | i = X509_PURPOSE_get_by_sname(argn); | ||
1950 | if (i < 0) { | ||
1951 | BIO_printf(err, "unrecognized purpose\n"); | ||
1952 | *badarg = 1; | ||
1953 | } else { | ||
1954 | xptmp = X509_PURPOSE_get0(i); | ||
1955 | purpose = X509_PURPOSE_get_id(xptmp); | ||
1956 | } | ||
1957 | } | ||
1958 | (*pargs)++; | ||
1959 | } else if (strcmp(arg, "-verify_depth") == 0) { | ||
1960 | if (!argn) | ||
1961 | *badarg = 1; | ||
1962 | else { | ||
1963 | depth = strtonum(argn, 1, INT_MAX, &errstr); | ||
1964 | if (errstr) { | ||
1965 | BIO_printf(err, "invalid depth %s: %s\n", | ||
1966 | argn, errstr); | ||
1967 | *badarg = 1; | ||
1968 | } | ||
1969 | } | ||
1970 | (*pargs)++; | ||
1971 | } else if (strcmp(arg, "-attime") == 0) { | ||
1972 | if (!argn) | ||
1973 | *badarg = 1; | ||
1974 | else { | ||
1975 | long long timestamp; | ||
1976 | /* | ||
1977 | * interpret the -attime argument as seconds since | ||
1978 | * Epoch | ||
1979 | */ | ||
1980 | if (sscanf(argn, "%lli", ×tamp) != 1) { | ||
1981 | BIO_printf(bio_err, | ||
1982 | "Error parsing timestamp %s\n", | ||
1983 | argn); | ||
1984 | *badarg = 1; | ||
1985 | } | ||
1986 | /* XXX 2038 truncation */ | ||
1987 | at_time = (time_t) timestamp; | ||
1988 | } | ||
1989 | (*pargs)++; | ||
1990 | } else if (!strcmp(arg, "-ignore_critical")) | ||
1991 | flags |= X509_V_FLAG_IGNORE_CRITICAL; | ||
1992 | else if (!strcmp(arg, "-issuer_checks")) | ||
1993 | flags |= X509_V_FLAG_CB_ISSUER_CHECK; | ||
1994 | else if (!strcmp(arg, "-crl_check")) | ||
1995 | flags |= X509_V_FLAG_CRL_CHECK; | ||
1996 | else if (!strcmp(arg, "-crl_check_all")) | ||
1997 | flags |= X509_V_FLAG_CRL_CHECK | X509_V_FLAG_CRL_CHECK_ALL; | ||
1998 | else if (!strcmp(arg, "-policy_check")) | ||
1999 | flags |= X509_V_FLAG_POLICY_CHECK; | ||
2000 | else if (!strcmp(arg, "-explicit_policy")) | ||
2001 | flags |= X509_V_FLAG_EXPLICIT_POLICY; | ||
2002 | else if (!strcmp(arg, "-inhibit_any")) | ||
2003 | flags |= X509_V_FLAG_INHIBIT_ANY; | ||
2004 | else if (!strcmp(arg, "-inhibit_map")) | ||
2005 | flags |= X509_V_FLAG_INHIBIT_MAP; | ||
2006 | else if (!strcmp(arg, "-x509_strict")) | ||
2007 | flags |= X509_V_FLAG_X509_STRICT; | ||
2008 | else if (!strcmp(arg, "-extended_crl")) | ||
2009 | flags |= X509_V_FLAG_EXTENDED_CRL_SUPPORT; | ||
2010 | else if (!strcmp(arg, "-use_deltas")) | ||
2011 | flags |= X509_V_FLAG_USE_DELTAS; | ||
2012 | else if (!strcmp(arg, "-policy_print")) | ||
2013 | flags |= X509_V_FLAG_NOTIFY_POLICY; | ||
2014 | else if (!strcmp(arg, "-check_ss_sig")) | ||
2015 | flags |= X509_V_FLAG_CHECK_SS_SIGNATURE; | ||
2016 | else | ||
2017 | return 0; | ||
2018 | |||
2019 | if (*badarg) { | ||
2020 | if (*pm) | ||
2021 | X509_VERIFY_PARAM_free(*pm); | ||
2022 | *pm = NULL; | ||
2023 | goto end; | ||
2024 | } | ||
2025 | if (!*pm && !(*pm = X509_VERIFY_PARAM_new())) { | ||
2026 | *badarg = 1; | ||
2027 | goto end; | ||
2028 | } | ||
2029 | if (otmp) | ||
2030 | X509_VERIFY_PARAM_add0_policy(*pm, otmp); | ||
2031 | if (flags) | ||
2032 | X509_VERIFY_PARAM_set_flags(*pm, flags); | ||
2033 | |||
2034 | if (purpose) | ||
2035 | X509_VERIFY_PARAM_set_purpose(*pm, purpose); | ||
2036 | |||
2037 | if (depth >= 0) | ||
2038 | X509_VERIFY_PARAM_set_depth(*pm, depth); | ||
2039 | |||
2040 | if (at_time) | ||
2041 | X509_VERIFY_PARAM_set_time(*pm, at_time); | ||
2042 | |||
2043 | end: | ||
2044 | (*pargs)++; | ||
2045 | |||
2046 | if (pargc) | ||
2047 | *pargc -= *pargs - oldargs; | ||
2048 | |||
2049 | return 1; | ||
2050 | } | ||
2051 | |||
2052 | /* Read whole contents of a BIO into an allocated memory buffer and | ||
2053 | * return it. | ||
2054 | */ | ||
2055 | |||
2056 | int | ||
2057 | bio_to_mem(unsigned char **out, int maxlen, BIO *in) | ||
2058 | { | ||
2059 | BIO *mem; | ||
2060 | int len, ret; | ||
2061 | unsigned char tbuf[1024]; | ||
2062 | |||
2063 | mem = BIO_new(BIO_s_mem()); | ||
2064 | if (!mem) | ||
2065 | return -1; | ||
2066 | for (;;) { | ||
2067 | if ((maxlen != -1) && maxlen < 1024) | ||
2068 | len = maxlen; | ||
2069 | else | ||
2070 | len = 1024; | ||
2071 | len = BIO_read(in, tbuf, len); | ||
2072 | if (len <= 0) | ||
2073 | break; | ||
2074 | if (BIO_write(mem, tbuf, len) != len) { | ||
2075 | BIO_free(mem); | ||
2076 | return -1; | ||
2077 | } | ||
2078 | maxlen -= len; | ||
2079 | |||
2080 | if (maxlen == 0) | ||
2081 | break; | ||
2082 | } | ||
2083 | ret = BIO_get_mem_data(mem, (char **) out); | ||
2084 | BIO_set_flags(mem, BIO_FLAGS_MEM_RDONLY); | ||
2085 | BIO_free(mem); | ||
2086 | return ret; | ||
2087 | } | ||
2088 | |||
2089 | int | ||
2090 | pkey_ctrl_string(EVP_PKEY_CTX *ctx, char *value) | ||
2091 | { | ||
2092 | int rv; | ||
2093 | char *stmp, *vtmp = NULL; | ||
2094 | |||
2095 | stmp = BUF_strdup(value); | ||
2096 | if (!stmp) | ||
2097 | return -1; | ||
2098 | vtmp = strchr(stmp, ':'); | ||
2099 | if (vtmp) { | ||
2100 | *vtmp = 0; | ||
2101 | vtmp++; | ||
2102 | } | ||
2103 | rv = EVP_PKEY_CTX_ctrl_str(ctx, stmp, vtmp); | ||
2104 | free(stmp); | ||
2105 | |||
2106 | return rv; | ||
2107 | } | ||
2108 | |||
2109 | static void | ||
2110 | nodes_print(BIO *out, const char *name, STACK_OF(X509_POLICY_NODE) *nodes) | ||
2111 | { | ||
2112 | X509_POLICY_NODE *node; | ||
2113 | int i; | ||
2114 | |||
2115 | BIO_printf(out, "%s Policies:", name); | ||
2116 | if (nodes) { | ||
2117 | BIO_puts(out, "\n"); | ||
2118 | for (i = 0; i < sk_X509_POLICY_NODE_num(nodes); i++) { | ||
2119 | node = sk_X509_POLICY_NODE_value(nodes, i); | ||
2120 | X509_POLICY_NODE_print(out, node, 2); | ||
2121 | } | ||
2122 | } else | ||
2123 | BIO_puts(out, " <empty>\n"); | ||
2124 | } | ||
2125 | |||
2126 | void | ||
2127 | policies_print(BIO *out, X509_STORE_CTX *ctx) | ||
2128 | { | ||
2129 | X509_POLICY_TREE *tree; | ||
2130 | int explicit_policy; | ||
2131 | int free_out = 0; | ||
2132 | |||
2133 | if (out == NULL) { | ||
2134 | out = BIO_new_fp(stderr, BIO_NOCLOSE); | ||
2135 | free_out = 1; | ||
2136 | } | ||
2137 | tree = X509_STORE_CTX_get0_policy_tree(ctx); | ||
2138 | explicit_policy = X509_STORE_CTX_get_explicit_policy(ctx); | ||
2139 | |||
2140 | BIO_printf(out, "Require explicit Policy: %s\n", | ||
2141 | explicit_policy ? "True" : "False"); | ||
2142 | |||
2143 | nodes_print(out, "Authority", X509_policy_tree_get0_policies(tree)); | ||
2144 | nodes_print(out, "User", X509_policy_tree_get0_user_policies(tree)); | ||
2145 | if (free_out) | ||
2146 | BIO_free(out); | ||
2147 | } | ||
2148 | |||
2149 | #if !defined(OPENSSL_NO_TLSEXT) && !defined(OPENSSL_NO_NEXTPROTONEG) | ||
2150 | /* next_protos_parse parses a comma separated list of strings into a string | ||
2151 | * in a format suitable for passing to SSL_CTX_set_next_protos_advertised. | ||
2152 | * outlen: (output) set to the length of the resulting buffer on success. | ||
2153 | * err: (maybe NULL) on failure, an error message line is written to this BIO. | ||
2154 | * in: a NUL termianted string like "abc,def,ghi" | ||
2155 | * | ||
2156 | * returns: a malloced buffer or NULL on failure. | ||
2157 | */ | ||
2158 | unsigned char * | ||
2159 | next_protos_parse(unsigned short *outlen, const char *in) | ||
2160 | { | ||
2161 | size_t len; | ||
2162 | unsigned char *out; | ||
2163 | size_t i, start = 0; | ||
2164 | |||
2165 | len = strlen(in); | ||
2166 | if (len >= 65535) | ||
2167 | return NULL; | ||
2168 | |||
2169 | out = malloc(strlen(in) + 1); | ||
2170 | if (!out) | ||
2171 | return NULL; | ||
2172 | |||
2173 | for (i = 0; i <= len; ++i) { | ||
2174 | if (i == len || in[i] == ',') { | ||
2175 | if (i - start > 255) { | ||
2176 | free(out); | ||
2177 | return NULL; | ||
2178 | } | ||
2179 | out[start] = i - start; | ||
2180 | start = i + 1; | ||
2181 | } else | ||
2182 | out[i + 1] = in[i]; | ||
2183 | } | ||
2184 | |||
2185 | *outlen = len + 1; | ||
2186 | return out; | ||
2187 | } | ||
2188 | #endif | ||
2189 | /* !OPENSSL_NO_TLSEXT && !OPENSSL_NO_NEXTPROTONEG */ | ||
2190 | |||
2191 | double | ||
2192 | app_tminterval(int stop, int usertime) | ||
2193 | { | ||
2194 | double ret = 0; | ||
2195 | struct tms rus; | ||
2196 | clock_t now = times(&rus); | ||
2197 | static clock_t tmstart; | ||
2198 | |||
2199 | if (usertime) | ||
2200 | now = rus.tms_utime; | ||
2201 | |||
2202 | if (stop == TM_START) | ||
2203 | tmstart = now; | ||
2204 | else { | ||
2205 | long int tck = sysconf(_SC_CLK_TCK); | ||
2206 | ret = (now - tmstart) / (double) tck; | ||
2207 | } | ||
2208 | |||
2209 | return (ret); | ||
2210 | } | ||
2211 | |||
2212 | int | ||
2213 | app_isdir(const char *name) | ||
2214 | { | ||
2215 | struct stat st; | ||
2216 | |||
2217 | if (stat(name, &st) == 0) | ||
2218 | return S_ISDIR(st.st_mode); | ||
2219 | return -1; | ||
2220 | } | ||
diff --git a/src/usr.bin/openssl/apps.h b/src/usr.bin/openssl/apps.h new file mode 100644 index 0000000000..38c5f4be8c --- /dev/null +++ b/src/usr.bin/openssl/apps.h | |||
@@ -0,0 +1,285 @@ | |||
1 | /* $OpenBSD: apps.h,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
2 | /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) | ||
3 | * All rights reserved. | ||
4 | * | ||
5 | * This package is an SSL implementation written | ||
6 | * by Eric Young (eay@cryptsoft.com). | ||
7 | * The implementation was written so as to conform with Netscapes SSL. | ||
8 | * | ||
9 | * This library is free for commercial and non-commercial use as long as | ||
10 | * the following conditions are aheared to. The following conditions | ||
11 | * apply to all code found in this distribution, be it the RC4, RSA, | ||
12 | * lhash, DES, etc., code; not just the SSL code. The SSL documentation | ||
13 | * included with this distribution is covered by the same copyright terms | ||
14 | * except that the holder is Tim Hudson (tjh@cryptsoft.com). | ||
15 | * | ||
16 | * Copyright remains Eric Young's, and as such any Copyright notices in | ||
17 | * the code are not to be removed. | ||
18 | * If this package is used in a product, Eric Young should be given attribution | ||
19 | * as the author of the parts of the library used. | ||
20 | * This can be in the form of a textual message at program startup or | ||
21 | * in documentation (online or textual) provided with the package. | ||
22 | * | ||
23 | * Redistribution and use in source and binary forms, with or without | ||
24 | * modification, are permitted provided that the following conditions | ||
25 | * are met: | ||
26 | * 1. Redistributions of source code must retain the copyright | ||
27 | * notice, this list of conditions and the following disclaimer. | ||
28 | * 2. Redistributions in binary form must reproduce the above copyright | ||
29 | * notice, this list of conditions and the following disclaimer in the | ||
30 | * documentation and/or other materials provided with the distribution. | ||
31 | * 3. All advertising materials mentioning features or use of this software | ||
32 | * must display the following acknowledgement: | ||
33 | * "This product includes cryptographic software written by | ||
34 | * Eric Young (eay@cryptsoft.com)" | ||
35 | * The word 'cryptographic' can be left out if the rouines from the library | ||
36 | * being used are not cryptographic related :-). | ||
37 | * 4. If you include any Windows specific code (or a derivative thereof) from | ||
38 | * the apps directory (application code) you must include an acknowledgement: | ||
39 | * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" | ||
40 | * | ||
41 | * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND | ||
42 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
43 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
44 | * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE | ||
45 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
46 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
47 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
48 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
49 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
50 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
51 | * SUCH DAMAGE. | ||
52 | * | ||
53 | * The licence and distribution terms for any publically available version or | ||
54 | * derivative of this code cannot be changed. i.e. this code cannot simply be | ||
55 | * copied and put under another distribution licence | ||
56 | * [including the GNU Public Licence.] | ||
57 | */ | ||
58 | /* ==================================================================== | ||
59 | * Copyright (c) 1998-2001 The OpenSSL Project. All rights reserved. | ||
60 | * | ||
61 | * Redistribution and use in source and binary forms, with or without | ||
62 | * modification, are permitted provided that the following conditions | ||
63 | * are met: | ||
64 | * | ||
65 | * 1. Redistributions of source code must retain the above copyright | ||
66 | * notice, this list of conditions and the following disclaimer. | ||
67 | * | ||
68 | * 2. Redistributions in binary form must reproduce the above copyright | ||
69 | * notice, this list of conditions and the following disclaimer in | ||
70 | * the documentation and/or other materials provided with the | ||
71 | * distribution. | ||
72 | * | ||
73 | * 3. All advertising materials mentioning features or use of this | ||
74 | * software must display the following acknowledgment: | ||
75 | * "This product includes software developed by the OpenSSL Project | ||
76 | * for use in the OpenSSL Toolkit. (http://www.openssl.org/)" | ||
77 | * | ||
78 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
79 | * endorse or promote products derived from this software without | ||
80 | * prior written permission. For written permission, please contact | ||
81 | * openssl-core@openssl.org. | ||
82 | * | ||
83 | * 5. Products derived from this software may not be called "OpenSSL" | ||
84 | * nor may "OpenSSL" appear in their names without prior written | ||
85 | * permission of the OpenSSL Project. | ||
86 | * | ||
87 | * 6. Redistributions of any form whatsoever must retain the following | ||
88 | * acknowledgment: | ||
89 | * "This product includes software developed by the OpenSSL Project | ||
90 | * for use in the OpenSSL Toolkit (http://www.openssl.org/)" | ||
91 | * | ||
92 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
93 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
94 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
95 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
96 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
97 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
98 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
99 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
100 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
101 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
102 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
103 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
104 | * ==================================================================== | ||
105 | * | ||
106 | * This product includes cryptographic software written by Eric Young | ||
107 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
108 | * Hudson (tjh@cryptsoft.com). | ||
109 | * | ||
110 | */ | ||
111 | |||
112 | #ifndef HEADER_APPS_H | ||
113 | #define HEADER_APPS_H | ||
114 | |||
115 | #include <openssl/opensslconf.h> | ||
116 | |||
117 | #include <openssl/bio.h> | ||
118 | #include <openssl/conf.h> | ||
119 | #include <openssl/lhash.h> | ||
120 | #include <openssl/ossl_typ.h> | ||
121 | #include <openssl/txt_db.h> | ||
122 | #include <openssl/x509.h> | ||
123 | |||
124 | #ifndef OPENSSL_NO_ENGINE | ||
125 | #include <openssl/engine.h> | ||
126 | #endif | ||
127 | |||
128 | #ifndef OPENSSL_NO_OCSP | ||
129 | #include <openssl/ocsp.h> | ||
130 | #endif | ||
131 | |||
132 | extern CONF *config; | ||
133 | extern char *default_config_file; | ||
134 | extern BIO *bio_err; | ||
135 | |||
136 | typedef struct args_st { | ||
137 | char **data; | ||
138 | int count; | ||
139 | } ARGS; | ||
140 | |||
141 | #define PW_MIN_LENGTH 4 | ||
142 | typedef struct pw_cb_data { | ||
143 | const void *password; | ||
144 | const char *prompt_info; | ||
145 | } PW_CB_DATA; | ||
146 | |||
147 | int password_callback(char *buf, int bufsiz, int verify, void *cb_data); | ||
148 | |||
149 | int setup_ui_method(void); | ||
150 | void destroy_ui_method(void); | ||
151 | |||
152 | int should_retry(int i); | ||
153 | int args_from_file(char *file, int *argc, char **argv[]); | ||
154 | int str2fmt(char *s); | ||
155 | void program_name(char *in, char *out, int size); | ||
156 | int chopup_args(ARGS *arg, char *buf, int *argc, char **argv[]); | ||
157 | #ifdef HEADER_X509_H | ||
158 | int dump_cert_text(BIO *out, X509 *x); | ||
159 | void print_name(BIO *out, const char *title, X509_NAME *nm, | ||
160 | unsigned long lflags); | ||
161 | #endif | ||
162 | int set_cert_ex(unsigned long *flags, const char *arg); | ||
163 | int set_name_ex(unsigned long *flags, const char *arg); | ||
164 | int set_ext_copy(int *copy_type, const char *arg); | ||
165 | int copy_extensions(X509 *x, X509_REQ *req, int copy_type); | ||
166 | int app_passwd(BIO *err, char *arg1, char *arg2, char **pass1, char **pass2); | ||
167 | int add_oid_section(BIO *err, CONF *conf); | ||
168 | X509 *load_cert(BIO *err, const char *file, int format, | ||
169 | const char *pass, ENGINE *e, const char *cert_descrip); | ||
170 | EVP_PKEY *load_key(BIO *err, const char *file, int format, int maybe_stdin, | ||
171 | const char *pass, ENGINE *e, const char *key_descrip); | ||
172 | EVP_PKEY *load_pubkey(BIO *err, const char *file, int format, int maybe_stdin, | ||
173 | const char *pass, ENGINE *e, const char *key_descrip); | ||
174 | STACK_OF(X509) *load_certs(BIO *err, const char *file, int format, | ||
175 | const char *pass, ENGINE *e, const char *cert_descrip); | ||
176 | STACK_OF(X509_CRL) *load_crls(BIO *err, const char *file, int format, | ||
177 | const char *pass, ENGINE *e, const char *cert_descrip); | ||
178 | X509_STORE *setup_verify(BIO *bp, char *CAfile, char *CApath); | ||
179 | #ifndef OPENSSL_NO_ENGINE | ||
180 | ENGINE *setup_engine(BIO *err, const char *engine, int debug); | ||
181 | #endif | ||
182 | |||
183 | #ifndef OPENSSL_NO_OCSP | ||
184 | OCSP_RESPONSE *process_responder(BIO *err, OCSP_REQUEST *req, | ||
185 | char *host, char *path, char *port, int use_ssl, | ||
186 | STACK_OF(CONF_VALUE) *headers, int req_timeout); | ||
187 | #endif | ||
188 | |||
189 | int load_config(BIO *err, CONF *cnf); | ||
190 | char *make_config_name(void); | ||
191 | |||
192 | /* Functions defined in ca.c and also used in ocsp.c */ | ||
193 | int unpack_revinfo(ASN1_TIME **prevtm, int *preason, ASN1_OBJECT **phold, | ||
194 | ASN1_GENERALIZEDTIME **pinvtm, const char *str); | ||
195 | |||
196 | #define DB_type 0 | ||
197 | #define DB_exp_date 1 | ||
198 | #define DB_rev_date 2 | ||
199 | #define DB_serial 3 /* index - unique */ | ||
200 | #define DB_file 4 | ||
201 | #define DB_name 5 /* index - unique when active and not disabled */ | ||
202 | #define DB_NUMBER 6 | ||
203 | |||
204 | #define DB_TYPE_REV 'R' | ||
205 | #define DB_TYPE_EXP 'E' | ||
206 | #define DB_TYPE_VAL 'V' | ||
207 | |||
208 | typedef struct db_attr_st { | ||
209 | int unique_subject; | ||
210 | } DB_ATTR; | ||
211 | typedef struct ca_db_st { | ||
212 | DB_ATTR attributes; | ||
213 | TXT_DB *db; | ||
214 | } CA_DB; | ||
215 | |||
216 | BIGNUM *load_serial(char *serialfile, int create, ASN1_INTEGER **retai); | ||
217 | int save_serial(char *serialfile, char *suffix, BIGNUM *serial, | ||
218 | ASN1_INTEGER **retai); | ||
219 | int rotate_serial(char *serialfile, char *new_suffix, char *old_suffix); | ||
220 | int rand_serial(BIGNUM *b, ASN1_INTEGER *ai); | ||
221 | CA_DB *load_index(char *dbfile, DB_ATTR *dbattr); | ||
222 | int index_index(CA_DB *db); | ||
223 | int save_index(const char *dbfile, const char *suffix, CA_DB *db); | ||
224 | int rotate_index(const char *dbfile, const char *new_suffix, | ||
225 | const char *old_suffix); | ||
226 | void free_index(CA_DB *db); | ||
227 | #define index_name_cmp_noconst(a, b) \ | ||
228 | index_name_cmp((const OPENSSL_CSTRING *)CHECKED_PTR_OF(OPENSSL_STRING, a), \ | ||
229 | (const OPENSSL_CSTRING *)CHECKED_PTR_OF(OPENSSL_STRING, b)) | ||
230 | int index_name_cmp(const OPENSSL_CSTRING *a, const OPENSSL_CSTRING *b); | ||
231 | int parse_yesno(const char *str, int def); | ||
232 | |||
233 | X509_NAME *parse_name(char *str, long chtype, int multirdn); | ||
234 | int args_verify(char ***pargs, int *pargc, int *badarg, BIO *err, | ||
235 | X509_VERIFY_PARAM **pm); | ||
236 | void policies_print(BIO *out, X509_STORE_CTX *ctx); | ||
237 | int bio_to_mem(unsigned char **out, int maxlen, BIO *in); | ||
238 | int pkey_ctrl_string(EVP_PKEY_CTX *ctx, char *value); | ||
239 | int init_gen_str(BIO *err, EVP_PKEY_CTX **pctx, const char *algname, ENGINE *e, | ||
240 | int do_param); | ||
241 | int do_X509_sign(BIO *err, X509 *x, EVP_PKEY *pkey, const EVP_MD *md, | ||
242 | STACK_OF(OPENSSL_STRING) *sigopts); | ||
243 | int do_X509_REQ_sign(BIO *err, X509_REQ *x, EVP_PKEY *pkey, const EVP_MD *md, | ||
244 | STACK_OF(OPENSSL_STRING) *sigopts); | ||
245 | int do_X509_CRL_sign(BIO *err, X509_CRL *x, EVP_PKEY *pkey, const EVP_MD *md, | ||
246 | STACK_OF(OPENSSL_STRING) *sigopts); | ||
247 | |||
248 | #if !defined(OPENSSL_NO_TLSEXT) && !defined(OPENSSL_NO_NEXTPROTONEG) | ||
249 | unsigned char *next_protos_parse(unsigned short *outlen, const char *in); | ||
250 | #endif /* !OPENSSL_NO_TLSEXT && !OPENSSL_NO_NEXTPROTONEG */ | ||
251 | |||
252 | #define FORMAT_UNDEF 0 | ||
253 | #define FORMAT_ASN1 1 | ||
254 | #define FORMAT_TEXT 2 | ||
255 | #define FORMAT_PEM 3 | ||
256 | #define FORMAT_NETSCAPE 4 | ||
257 | #define FORMAT_PKCS12 5 | ||
258 | #define FORMAT_SMIME 6 | ||
259 | #define FORMAT_ENGINE 7 | ||
260 | #define FORMAT_IISSGC 8 /* XXX this stupid macro helps us to avoid | ||
261 | * adding yet another param to load_*key() */ | ||
262 | #define FORMAT_PEMRSA 9 /* PEM RSAPubicKey format */ | ||
263 | #define FORMAT_ASN1RSA 10 /* DER RSAPubicKey format */ | ||
264 | #define FORMAT_MSBLOB 11 /* MS Key blob format */ | ||
265 | #define FORMAT_PVK 12 /* MS PVK file format */ | ||
266 | |||
267 | #define EXT_COPY_NONE 0 | ||
268 | #define EXT_COPY_ADD 1 | ||
269 | #define EXT_COPY_ALL 2 | ||
270 | |||
271 | #define NETSCAPE_CERT_HDR "certificate" | ||
272 | |||
273 | #define APP_PASS_LEN 1024 | ||
274 | |||
275 | #define SERIAL_RAND_BITS 64 | ||
276 | |||
277 | int app_isdir(const char *); | ||
278 | |||
279 | #define TM_START 0 | ||
280 | #define TM_STOP 1 | ||
281 | double app_tminterval (int stop, int usertime); | ||
282 | |||
283 | #define OPENSSL_NO_SSL_INTERN | ||
284 | |||
285 | #endif | ||
diff --git a/src/usr.bin/openssl/asn1pars.c b/src/usr.bin/openssl/asn1pars.c new file mode 100644 index 0000000000..6ba43afb97 --- /dev/null +++ b/src/usr.bin/openssl/asn1pars.c | |||
@@ -0,0 +1,406 @@ | |||
1 | /* $OpenBSD: asn1pars.c,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
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 | /* A nice addition from Dr Stephen Henson <steve@openssl.org> to | ||
60 | * add the -strparse option which parses nested binary structures | ||
61 | */ | ||
62 | |||
63 | #include <stdio.h> | ||
64 | #include <stdlib.h> | ||
65 | #include <limits.h> | ||
66 | #include <string.h> | ||
67 | |||
68 | #include "apps.h" | ||
69 | |||
70 | #include <openssl/err.h> | ||
71 | #include <openssl/evp.h> | ||
72 | #include <openssl/pem.h> | ||
73 | #include <openssl/x509.h> | ||
74 | |||
75 | /* -inform arg - input format - default PEM (DER or PEM) | ||
76 | * -in arg - input file - default stdin | ||
77 | * -i - indent the details by depth | ||
78 | * -offset - where in the file to start | ||
79 | * -length - how many bytes to use | ||
80 | * -oid file - extra oid description file | ||
81 | */ | ||
82 | |||
83 | int asn1parse_main(int, char **); | ||
84 | |||
85 | static int do_generate(BIO * bio, char *genstr, char *genconf, BUF_MEM * buf); | ||
86 | |||
87 | int | ||
88 | asn1parse_main(int argc, char **argv) | ||
89 | { | ||
90 | int i, badops = 0, offset = 0, ret = 1, j; | ||
91 | unsigned int length = 0; | ||
92 | long num, tmplen; | ||
93 | BIO *in = NULL, *out = NULL, *b64 = NULL, *derout = NULL; | ||
94 | int informat, indent = 0, noout = 0, dump = 0; | ||
95 | char *infile = NULL, *str = NULL, *prog, *oidfile = NULL, *derfile = NULL; | ||
96 | char *genstr = NULL, *genconf = NULL; | ||
97 | const char *errstr = NULL; | ||
98 | unsigned char *tmpbuf; | ||
99 | const unsigned char *ctmpbuf; | ||
100 | BUF_MEM *buf = NULL; | ||
101 | STACK_OF(OPENSSL_STRING) * osk = NULL; | ||
102 | ASN1_TYPE *at = NULL; | ||
103 | |||
104 | informat = FORMAT_PEM; | ||
105 | |||
106 | prog = argv[0]; | ||
107 | argc--; | ||
108 | argv++; | ||
109 | if ((osk = sk_OPENSSL_STRING_new_null()) == NULL) { | ||
110 | BIO_printf(bio_err, "Memory allocation failure\n"); | ||
111 | goto end; | ||
112 | } | ||
113 | while (argc >= 1) { | ||
114 | if (strcmp(*argv, "-inform") == 0) { | ||
115 | if (--argc < 1) | ||
116 | goto bad; | ||
117 | informat = str2fmt(*(++argv)); | ||
118 | } else if (strcmp(*argv, "-in") == 0) { | ||
119 | if (--argc < 1) | ||
120 | goto bad; | ||
121 | infile = *(++argv); | ||
122 | } else if (strcmp(*argv, "-out") == 0) { | ||
123 | if (--argc < 1) | ||
124 | goto bad; | ||
125 | derfile = *(++argv); | ||
126 | } else if (strcmp(*argv, "-i") == 0) { | ||
127 | indent = 1; | ||
128 | } else if (strcmp(*argv, "-noout") == 0) | ||
129 | noout = 1; | ||
130 | else if (strcmp(*argv, "-oid") == 0) { | ||
131 | if (--argc < 1) | ||
132 | goto bad; | ||
133 | oidfile = *(++argv); | ||
134 | } else if (strcmp(*argv, "-offset") == 0) { | ||
135 | if (--argc < 1) | ||
136 | goto bad; | ||
137 | offset = strtonum(*(++argv), 0, INT_MAX, &errstr); | ||
138 | if (errstr) | ||
139 | goto bad; | ||
140 | } else if (strcmp(*argv, "-length") == 0) { | ||
141 | if (--argc < 1) | ||
142 | goto bad; | ||
143 | length = strtonum(*(++argv), 1, UINT_MAX, &errstr); | ||
144 | if (errstr) | ||
145 | goto bad; | ||
146 | } else if (strcmp(*argv, "-dump") == 0) { | ||
147 | dump = -1; | ||
148 | } else if (strcmp(*argv, "-dlimit") == 0) { | ||
149 | if (--argc < 1) | ||
150 | goto bad; | ||
151 | dump = strtonum(*(++argv), 1, INT_MAX, &errstr); | ||
152 | if (errstr) | ||
153 | goto bad; | ||
154 | } else if (strcmp(*argv, "-strparse") == 0) { | ||
155 | if (--argc < 1) | ||
156 | goto bad; | ||
157 | sk_OPENSSL_STRING_push(osk, *(++argv)); | ||
158 | } else if (strcmp(*argv, "-genstr") == 0) { | ||
159 | if (--argc < 1) | ||
160 | goto bad; | ||
161 | genstr = *(++argv); | ||
162 | } else if (strcmp(*argv, "-genconf") == 0) { | ||
163 | if (--argc < 1) | ||
164 | goto bad; | ||
165 | genconf = *(++argv); | ||
166 | } else { | ||
167 | BIO_printf(bio_err, "unknown option %s\n", *argv); | ||
168 | badops = 1; | ||
169 | break; | ||
170 | } | ||
171 | argc--; | ||
172 | argv++; | ||
173 | } | ||
174 | |||
175 | if (badops) { | ||
176 | bad: | ||
177 | BIO_printf(bio_err, "%s [options] <infile\n", prog); | ||
178 | BIO_printf(bio_err, "where options are\n"); | ||
179 | BIO_printf(bio_err, " -inform arg input format - one of DER PEM\n"); | ||
180 | BIO_printf(bio_err, " -in arg input file\n"); | ||
181 | BIO_printf(bio_err, " -out arg output file (output format is always DER\n"); | ||
182 | BIO_printf(bio_err, " -noout arg don't produce any output\n"); | ||
183 | BIO_printf(bio_err, " -offset arg offset into file\n"); | ||
184 | BIO_printf(bio_err, " -length arg length of section in file\n"); | ||
185 | BIO_printf(bio_err, " -i indent entries\n"); | ||
186 | BIO_printf(bio_err, " -dump dump unknown data in hex form\n"); | ||
187 | BIO_printf(bio_err, " -dlimit arg dump the first arg bytes of unknown data in hex form\n"); | ||
188 | BIO_printf(bio_err, " -oid file file of extra oid definitions\n"); | ||
189 | BIO_printf(bio_err, " -strparse offset\n"); | ||
190 | BIO_printf(bio_err, " a series of these can be used to 'dig' into multiple\n"); | ||
191 | BIO_printf(bio_err, " ASN1 blob wrappings\n"); | ||
192 | BIO_printf(bio_err, " -genstr str string to generate ASN1 structure from\n"); | ||
193 | BIO_printf(bio_err, " -genconf file file to generate ASN1 structure from\n"); | ||
194 | goto end; | ||
195 | } | ||
196 | ERR_load_crypto_strings(); | ||
197 | |||
198 | in = BIO_new(BIO_s_file()); | ||
199 | out = BIO_new(BIO_s_file()); | ||
200 | if ((in == NULL) || (out == NULL)) { | ||
201 | ERR_print_errors(bio_err); | ||
202 | goto end; | ||
203 | } | ||
204 | BIO_set_fp(out, stdout, BIO_NOCLOSE | BIO_FP_TEXT); | ||
205 | |||
206 | if (oidfile != NULL) { | ||
207 | if (BIO_read_filename(in, oidfile) <= 0) { | ||
208 | BIO_printf(bio_err, "problems opening %s\n", oidfile); | ||
209 | ERR_print_errors(bio_err); | ||
210 | goto end; | ||
211 | } | ||
212 | OBJ_create_objects(in); | ||
213 | } | ||
214 | if (infile == NULL) | ||
215 | BIO_set_fp(in, stdin, BIO_NOCLOSE); | ||
216 | else { | ||
217 | if (BIO_read_filename(in, infile) <= 0) { | ||
218 | perror(infile); | ||
219 | goto end; | ||
220 | } | ||
221 | } | ||
222 | |||
223 | if (derfile) { | ||
224 | if (!(derout = BIO_new_file(derfile, "wb"))) { | ||
225 | BIO_printf(bio_err, "problems opening %s\n", derfile); | ||
226 | ERR_print_errors(bio_err); | ||
227 | goto end; | ||
228 | } | ||
229 | } | ||
230 | if ((buf = BUF_MEM_new()) == NULL) | ||
231 | goto end; | ||
232 | if (!BUF_MEM_grow(buf, BUFSIZ * 8)) | ||
233 | goto end; /* Pre-allocate :-) */ | ||
234 | |||
235 | if (genstr || genconf) { | ||
236 | num = do_generate(bio_err, genstr, genconf, buf); | ||
237 | if (num < 0) { | ||
238 | ERR_print_errors(bio_err); | ||
239 | goto end; | ||
240 | } | ||
241 | } else { | ||
242 | |||
243 | if (informat == FORMAT_PEM) { | ||
244 | BIO *tmp; | ||
245 | |||
246 | if ((b64 = BIO_new(BIO_f_base64())) == NULL) | ||
247 | goto end; | ||
248 | BIO_push(b64, in); | ||
249 | tmp = in; | ||
250 | in = b64; | ||
251 | b64 = tmp; | ||
252 | } | ||
253 | num = 0; | ||
254 | for (;;) { | ||
255 | if (!BUF_MEM_grow(buf, (int) num + BUFSIZ)) | ||
256 | goto end; | ||
257 | i = BIO_read(in, &(buf->data[num]), BUFSIZ); | ||
258 | if (i <= 0) | ||
259 | break; | ||
260 | num += i; | ||
261 | } | ||
262 | } | ||
263 | str = buf->data; | ||
264 | |||
265 | /* If any structs to parse go through in sequence */ | ||
266 | |||
267 | if (sk_OPENSSL_STRING_num(osk)) { | ||
268 | tmpbuf = (unsigned char *) str; | ||
269 | tmplen = num; | ||
270 | for (i = 0; i < sk_OPENSSL_STRING_num(osk); i++) { | ||
271 | ASN1_TYPE *atmp; | ||
272 | int typ; | ||
273 | j = strtonum(sk_OPENSSL_STRING_value(osk, i), | ||
274 | 1, INT_MAX, &errstr); | ||
275 | if (errstr) { | ||
276 | BIO_printf(bio_err, | ||
277 | "'%s' is an invalid number: %s\n", | ||
278 | sk_OPENSSL_STRING_value(osk, i), errstr); | ||
279 | continue; | ||
280 | } | ||
281 | tmpbuf += j; | ||
282 | tmplen -= j; | ||
283 | atmp = at; | ||
284 | ctmpbuf = tmpbuf; | ||
285 | at = d2i_ASN1_TYPE(NULL, &ctmpbuf, tmplen); | ||
286 | ASN1_TYPE_free(atmp); | ||
287 | if (!at) { | ||
288 | BIO_printf(bio_err, "Error parsing structure\n"); | ||
289 | ERR_print_errors(bio_err); | ||
290 | goto end; | ||
291 | } | ||
292 | typ = ASN1_TYPE_get(at); | ||
293 | if ((typ == V_ASN1_OBJECT) || | ||
294 | (typ == V_ASN1_NULL)) { | ||
295 | BIO_printf(bio_err, "Can't parse %s type\n", | ||
296 | typ == V_ASN1_NULL ? "NULL" : "OBJECT"); | ||
297 | ERR_print_errors(bio_err); | ||
298 | goto end; | ||
299 | } | ||
300 | /* hmm... this is a little evil but it works */ | ||
301 | tmpbuf = at->value.asn1_string->data; | ||
302 | tmplen = at->value.asn1_string->length; | ||
303 | } | ||
304 | str = (char *) tmpbuf; | ||
305 | num = tmplen; | ||
306 | } | ||
307 | if (offset >= num) { | ||
308 | BIO_printf(bio_err, "Error: offset too large\n"); | ||
309 | goto end; | ||
310 | } | ||
311 | num -= offset; | ||
312 | |||
313 | if ((length == 0) || ((long) length > num)) | ||
314 | length = (unsigned int) num; | ||
315 | if (derout) { | ||
316 | if (BIO_write(derout, str + offset, length) != (int) length) { | ||
317 | BIO_printf(bio_err, "Error writing output\n"); | ||
318 | ERR_print_errors(bio_err); | ||
319 | goto end; | ||
320 | } | ||
321 | } | ||
322 | if (!noout && | ||
323 | !ASN1_parse_dump(out, (unsigned char *) &(str[offset]), length, | ||
324 | indent, dump)) { | ||
325 | ERR_print_errors(bio_err); | ||
326 | goto end; | ||
327 | } | ||
328 | ret = 0; | ||
329 | end: | ||
330 | BIO_free(derout); | ||
331 | if (in != NULL) | ||
332 | BIO_free(in); | ||
333 | if (out != NULL) | ||
334 | BIO_free_all(out); | ||
335 | if (b64 != NULL) | ||
336 | BIO_free(b64); | ||
337 | if (ret != 0) | ||
338 | ERR_print_errors(bio_err); | ||
339 | if (buf != NULL) | ||
340 | BUF_MEM_free(buf); | ||
341 | if (at != NULL) | ||
342 | ASN1_TYPE_free(at); | ||
343 | if (osk != NULL) | ||
344 | sk_OPENSSL_STRING_free(osk); | ||
345 | OBJ_cleanup(); | ||
346 | |||
347 | return (ret); | ||
348 | } | ||
349 | |||
350 | static int | ||
351 | do_generate(BIO * bio, char *genstr, char *genconf, BUF_MEM * buf) | ||
352 | { | ||
353 | CONF *cnf = NULL; | ||
354 | int len; | ||
355 | long errline; | ||
356 | unsigned char *p; | ||
357 | ASN1_TYPE *atyp = NULL; | ||
358 | |||
359 | if (genconf) { | ||
360 | cnf = NCONF_new(NULL); | ||
361 | if (!NCONF_load(cnf, genconf, &errline)) | ||
362 | goto conferr; | ||
363 | if (!genstr) | ||
364 | genstr = NCONF_get_string(cnf, "default", "asn1"); | ||
365 | if (!genstr) { | ||
366 | BIO_printf(bio, "Can't find 'asn1' in '%s'\n", genconf); | ||
367 | goto err; | ||
368 | } | ||
369 | } | ||
370 | atyp = ASN1_generate_nconf(genstr, cnf); | ||
371 | NCONF_free(cnf); | ||
372 | cnf = NULL; | ||
373 | |||
374 | if (!atyp) | ||
375 | return -1; | ||
376 | |||
377 | len = i2d_ASN1_TYPE(atyp, NULL); | ||
378 | |||
379 | if (len <= 0) | ||
380 | goto err; | ||
381 | |||
382 | if (!BUF_MEM_grow(buf, len)) | ||
383 | goto err; | ||
384 | |||
385 | p = (unsigned char *) buf->data; | ||
386 | |||
387 | i2d_ASN1_TYPE(atyp, &p); | ||
388 | |||
389 | ASN1_TYPE_free(atyp); | ||
390 | return len; | ||
391 | |||
392 | conferr: | ||
393 | |||
394 | if (errline > 0) | ||
395 | BIO_printf(bio, "Error on line %ld of config file '%s'\n", | ||
396 | errline, genconf); | ||
397 | else | ||
398 | BIO_printf(bio, "Error loading config file '%s'\n", genconf); | ||
399 | |||
400 | err: | ||
401 | NCONF_free(cnf); | ||
402 | ASN1_TYPE_free(atyp); | ||
403 | |||
404 | return -1; | ||
405 | |||
406 | } | ||
diff --git a/src/usr.bin/openssl/ca.c b/src/usr.bin/openssl/ca.c new file mode 100644 index 0000000000..c19ecc6616 --- /dev/null +++ b/src/usr.bin/openssl/ca.c | |||
@@ -0,0 +1,2743 @@ | |||
1 | /* $OpenBSD: ca.c,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
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 | /* The PPKI stuff has been donated by Jeff Barber <jeffb@issl.atl.hp.com> */ | ||
60 | |||
61 | #include <sys/types.h> | ||
62 | |||
63 | #include <ctype.h> | ||
64 | #include <stdio.h> | ||
65 | #include <stdlib.h> | ||
66 | #include <limits.h> | ||
67 | #include <string.h> | ||
68 | #include <unistd.h> | ||
69 | |||
70 | #include "apps.h" | ||
71 | |||
72 | #include <openssl/bio.h> | ||
73 | #include <openssl/bn.h> | ||
74 | #include <openssl/conf.h> | ||
75 | #include <openssl/err.h> | ||
76 | #include <openssl/evp.h> | ||
77 | #include <openssl/objects.h> | ||
78 | #include <openssl/ocsp.h> | ||
79 | #include <openssl/pem.h> | ||
80 | #include <openssl/txt_db.h> | ||
81 | #include <openssl/x509.h> | ||
82 | #include <openssl/x509v3.h> | ||
83 | |||
84 | #define BASE_SECTION "ca" | ||
85 | |||
86 | #define ENV_DEFAULT_CA "default_ca" | ||
87 | |||
88 | #define STRING_MASK "string_mask" | ||
89 | #define UTF8_IN "utf8" | ||
90 | |||
91 | #define ENV_DIR "dir" | ||
92 | #define ENV_CERTS "certs" | ||
93 | #define ENV_CRL_DIR "crl_dir" | ||
94 | #define ENV_CA_DB "CA_DB" | ||
95 | #define ENV_NEW_CERTS_DIR "new_certs_dir" | ||
96 | #define ENV_CERTIFICATE "certificate" | ||
97 | #define ENV_SERIAL "serial" | ||
98 | #define ENV_CRLNUMBER "crlnumber" | ||
99 | #define ENV_CRL "crl" | ||
100 | #define ENV_PRIVATE_KEY "private_key" | ||
101 | #define ENV_DEFAULT_DAYS "default_days" | ||
102 | #define ENV_DEFAULT_STARTDATE "default_startdate" | ||
103 | #define ENV_DEFAULT_ENDDATE "default_enddate" | ||
104 | #define ENV_DEFAULT_CRL_DAYS "default_crl_days" | ||
105 | #define ENV_DEFAULT_CRL_HOURS "default_crl_hours" | ||
106 | #define ENV_DEFAULT_MD "default_md" | ||
107 | #define ENV_DEFAULT_EMAIL_DN "email_in_dn" | ||
108 | #define ENV_PRESERVE "preserve" | ||
109 | #define ENV_POLICY "policy" | ||
110 | #define ENV_EXTENSIONS "x509_extensions" | ||
111 | #define ENV_CRLEXT "crl_extensions" | ||
112 | #define ENV_MSIE_HACK "msie_hack" | ||
113 | #define ENV_NAMEOPT "name_opt" | ||
114 | #define ENV_CERTOPT "cert_opt" | ||
115 | #define ENV_EXTCOPY "copy_extensions" | ||
116 | #define ENV_UNIQUE_SUBJECT "unique_subject" | ||
117 | |||
118 | #define ENV_DATABASE "database" | ||
119 | |||
120 | /* Additional revocation information types */ | ||
121 | |||
122 | #define REV_NONE 0 /* No addditional information */ | ||
123 | #define REV_CRL_REASON 1 /* Value is CRL reason code */ | ||
124 | #define REV_HOLD 2 /* Value is hold instruction */ | ||
125 | #define REV_KEY_COMPROMISE 3 /* Value is cert key compromise time */ | ||
126 | #define REV_CA_COMPROMISE 4 /* Value is CA key compromise time */ | ||
127 | |||
128 | static const char *ca_usage[] = { | ||
129 | "usage: ca args\n", | ||
130 | "\n", | ||
131 | " -verbose - Talk a lot while doing things\n", | ||
132 | " -config file - A config file\n", | ||
133 | " -name arg - The particular CA definition to use\n", | ||
134 | " -gencrl - Generate a new CRL\n", | ||
135 | " -crldays days - Days is when the next CRL is due\n", | ||
136 | " -crlhours hours - Hours is when the next CRL is due\n", | ||
137 | " -startdate YYMMDDHHMMSSZ - certificate validity notBefore\n", | ||
138 | " -enddate YYMMDDHHMMSSZ - certificate validity notAfter (overrides -days)\n", | ||
139 | " -days arg - number of days to certify the certificate for\n", | ||
140 | " -md arg - md to use, one of md2, md5, sha or sha1\n", | ||
141 | " -policy arg - The CA 'policy' to support\n", | ||
142 | " -keyfile arg - private key file\n", | ||
143 | " -keyform arg - private key file format (PEM or ENGINE)\n", | ||
144 | " -key arg - key to decode the private key if it is encrypted\n", | ||
145 | " -cert file - The CA certificate\n", | ||
146 | " -selfsign - sign a certificate with the key associated with it\n", | ||
147 | " -in file - The input PEM encoded certificate request(s)\n", | ||
148 | " -out file - Where to put the output file(s)\n", | ||
149 | " -outdir dir - Where to put output certificates\n", | ||
150 | " -infiles .... - The last argument, requests to process\n", | ||
151 | " -spkac file - File contains DN and signed public key and challenge\n", | ||
152 | " -ss_cert file - File contains a self signed cert to sign\n", | ||
153 | " -preserveDN - Don't re-order the DN\n", | ||
154 | " -noemailDN - Don't add the EMAIL field into certificate' subject\n", | ||
155 | " -batch - Don't ask questions\n", | ||
156 | " -msie_hack - msie modifications to handle all those universal strings\n", | ||
157 | " -revoke file - Revoke a certificate (given in file)\n", | ||
158 | " -subj arg - Use arg instead of request's subject\n", | ||
159 | " -utf8 - input characters are UTF8 (default ASCII)\n", | ||
160 | " -multivalue-rdn - enable support for multivalued RDNs\n", | ||
161 | " -extensions .. - Extension section (override value in config file)\n", | ||
162 | " -extfile file - Configuration file with X509v3 extentions to add\n", | ||
163 | " -crlexts .. - CRL extension section (override value in config file)\n", | ||
164 | #ifndef OPENSSL_NO_ENGINE | ||
165 | " -engine e - use engine e, possibly a hardware device.\n", | ||
166 | #endif | ||
167 | " -status serial - Shows certificate status given the serial number\n", | ||
168 | " -updatedb - Updates db for expired certificates\n", | ||
169 | NULL | ||
170 | }; | ||
171 | |||
172 | static void lookup_fail(const char *name, const char *tag); | ||
173 | static int certify(X509 ** xret, char *infile, EVP_PKEY * pkey, X509 * x509, | ||
174 | const EVP_MD * dgst, STACK_OF(OPENSSL_STRING) * sigopts, | ||
175 | STACK_OF(CONF_VALUE) * policy, CA_DB * db, BIGNUM * serial, char *subj, | ||
176 | unsigned long chtype, int multirdn, int email_dn, char *startdate, | ||
177 | char *enddate, long days, int batch, char *ext_sect, CONF * conf, | ||
178 | int verbose, unsigned long certopt, unsigned long nameopt, | ||
179 | int default_op, int ext_copy, int selfsign); | ||
180 | static int certify_cert(X509 ** xret, char *infile, EVP_PKEY * pkey, | ||
181 | X509 * x509, const EVP_MD * dgst, STACK_OF(OPENSSL_STRING) * sigopts, | ||
182 | STACK_OF(CONF_VALUE) * policy, CA_DB * db, BIGNUM * serial, char *subj, | ||
183 | unsigned long chtype, int multirdn, int email_dn, char *startdate, | ||
184 | char *enddate, long days, int batch, char *ext_sect, CONF * conf, | ||
185 | int verbose, unsigned long certopt, unsigned long nameopt, int default_op, | ||
186 | int ext_copy, ENGINE * e); | ||
187 | static int certify_spkac(X509 ** xret, char *infile, EVP_PKEY * pkey, | ||
188 | X509 * x509, const EVP_MD * dgst, STACK_OF(OPENSSL_STRING) * sigopts, | ||
189 | STACK_OF(CONF_VALUE) * policy, CA_DB * db, BIGNUM * serial, char *subj, | ||
190 | unsigned long chtype, int multirdn, int email_dn, char *startdate, | ||
191 | char *enddate, long days, char *ext_sect, CONF * conf, int verbose, | ||
192 | unsigned long certopt, unsigned long nameopt, int default_op, int ext_copy); | ||
193 | static void write_new_certificate(BIO * bp, X509 * x, int output_der, | ||
194 | int notext); | ||
195 | static int do_body(X509 ** xret, EVP_PKEY * pkey, X509 * x509, | ||
196 | const EVP_MD * dgst, STACK_OF(OPENSSL_STRING) * sigopts, | ||
197 | STACK_OF(CONF_VALUE) * policy, CA_DB * db, BIGNUM * serial, char *subj, | ||
198 | unsigned long chtype, int multirdn, int email_dn, char *startdate, | ||
199 | char *enddate, long days, int batch, int verbose, X509_REQ * req, | ||
200 | char *ext_sect, CONF * conf, unsigned long certopt, unsigned long nameopt, | ||
201 | int default_op, int ext_copy, int selfsign); | ||
202 | static int do_revoke(X509 * x509, CA_DB * db, int ext, char *extval); | ||
203 | static int get_certificate_status(const char *ser_status, CA_DB * db); | ||
204 | static int do_updatedb(CA_DB * db); | ||
205 | static int check_time_format(const char *str); | ||
206 | static char * bin2hex(unsigned char *, size_t); | ||
207 | char *make_revocation_str(int rev_type, char *rev_arg); | ||
208 | int make_revoked(X509_REVOKED * rev, const char *str); | ||
209 | int old_entry_print(BIO * bp, ASN1_OBJECT * obj, ASN1_STRING * str); | ||
210 | static CONF *conf = NULL; | ||
211 | static CONF *extconf = NULL; | ||
212 | static char *section = NULL; | ||
213 | |||
214 | static int preserve = 0; | ||
215 | static int msie_hack = 0; | ||
216 | |||
217 | |||
218 | int ca_main(int, char **); | ||
219 | |||
220 | int | ||
221 | ca_main(int argc, char **argv) | ||
222 | { | ||
223 | ENGINE *e = NULL; | ||
224 | char *key = NULL, *passargin = NULL; | ||
225 | int create_ser = 0; | ||
226 | int free_key = 0; | ||
227 | int total = 0; | ||
228 | int total_done = 0; | ||
229 | int badops = 0; | ||
230 | int ret = 1; | ||
231 | int email_dn = 1; | ||
232 | int req = 0; | ||
233 | int verbose = 0; | ||
234 | int gencrl = 0; | ||
235 | int dorevoke = 0; | ||
236 | int doupdatedb = 0; | ||
237 | long crldays = 0; | ||
238 | long crlhours = 0; | ||
239 | long crlsec = 0; | ||
240 | long errorline = -1; | ||
241 | char *configfile = NULL; | ||
242 | char *md = NULL; | ||
243 | char *policy = NULL; | ||
244 | char *keyfile = NULL; | ||
245 | char *certfile = NULL; | ||
246 | int keyform = FORMAT_PEM; | ||
247 | char *infile = NULL; | ||
248 | char *spkac_file = NULL; | ||
249 | char *ss_cert_file = NULL; | ||
250 | char *ser_status = NULL; | ||
251 | EVP_PKEY *pkey = NULL; | ||
252 | int output_der = 0; | ||
253 | char *outfile = NULL; | ||
254 | char *outdir = NULL; | ||
255 | char *serialfile = NULL; | ||
256 | char *crlnumberfile = NULL; | ||
257 | char *extensions = NULL; | ||
258 | char *extfile = NULL; | ||
259 | char *subj = NULL; | ||
260 | unsigned long chtype = MBSTRING_ASC; | ||
261 | int multirdn = 0; | ||
262 | char *tmp_email_dn = NULL; | ||
263 | char *crl_ext = NULL; | ||
264 | int rev_type = REV_NONE; | ||
265 | char *rev_arg = NULL; | ||
266 | BIGNUM *serial = NULL; | ||
267 | BIGNUM *crlnumber = NULL; | ||
268 | char *startdate = NULL; | ||
269 | char *enddate = NULL; | ||
270 | long days = 0; | ||
271 | int batch = 0; | ||
272 | int notext = 0; | ||
273 | unsigned long nameopt = 0, certopt = 0; | ||
274 | int default_op = 1; | ||
275 | int ext_copy = EXT_COPY_NONE; | ||
276 | int selfsign = 0; | ||
277 | X509 *x509 = NULL, *x509p = NULL; | ||
278 | X509 *x = NULL; | ||
279 | BIO *in = NULL, *out = NULL, *Sout = NULL, *Cout = NULL; | ||
280 | char *dbfile = NULL; | ||
281 | CA_DB *db = NULL; | ||
282 | X509_CRL *crl = NULL; | ||
283 | X509_REVOKED *r = NULL; | ||
284 | ASN1_TIME *tmptm; | ||
285 | ASN1_INTEGER *tmpser; | ||
286 | char *f; | ||
287 | const char *p; | ||
288 | char *const * pp; | ||
289 | int i, j; | ||
290 | const EVP_MD *dgst = NULL; | ||
291 | STACK_OF(CONF_VALUE) * attribs = NULL; | ||
292 | STACK_OF(X509) * cert_sk = NULL; | ||
293 | STACK_OF(OPENSSL_STRING) * sigopts = NULL; | ||
294 | #define BSIZE 256 | ||
295 | char buf[3][BSIZE]; | ||
296 | #ifndef OPENSSL_NO_ENGINE | ||
297 | char *engine = NULL; | ||
298 | #endif | ||
299 | char *tofree = NULL; | ||
300 | const char *errstr = NULL; | ||
301 | DB_ATTR db_attr; | ||
302 | |||
303 | conf = NULL; | ||
304 | key = NULL; | ||
305 | section = NULL; | ||
306 | |||
307 | preserve = 0; | ||
308 | msie_hack = 0; | ||
309 | |||
310 | argc--; | ||
311 | argv++; | ||
312 | while (argc >= 1) { | ||
313 | if (strcmp(*argv, "-verbose") == 0) | ||
314 | verbose = 1; | ||
315 | else if (strcmp(*argv, "-config") == 0) { | ||
316 | if (--argc < 1) | ||
317 | goto bad; | ||
318 | configfile = *(++argv); | ||
319 | } else if (strcmp(*argv, "-name") == 0) { | ||
320 | if (--argc < 1) | ||
321 | goto bad; | ||
322 | section = *(++argv); | ||
323 | } else if (strcmp(*argv, "-subj") == 0) { | ||
324 | if (--argc < 1) | ||
325 | goto bad; | ||
326 | subj = *(++argv); | ||
327 | /* preserve=1; */ | ||
328 | } else if (strcmp(*argv, "-utf8") == 0) | ||
329 | chtype = MBSTRING_UTF8; | ||
330 | else if (strcmp(*argv, "-create_serial") == 0) | ||
331 | create_ser = 1; | ||
332 | else if (strcmp(*argv, "-multivalue-rdn") == 0) | ||
333 | multirdn = 1; | ||
334 | else if (strcmp(*argv, "-startdate") == 0) { | ||
335 | if (--argc < 1) | ||
336 | goto bad; | ||
337 | startdate = *(++argv); | ||
338 | } else if (strcmp(*argv, "-enddate") == 0) { | ||
339 | if (--argc < 1) | ||
340 | goto bad; | ||
341 | enddate = *(++argv); | ||
342 | } else if (strcmp(*argv, "-days") == 0) { | ||
343 | if (--argc < 1) | ||
344 | goto bad; | ||
345 | days = strtonum(*(++argv), 0, LONG_MAX, &errstr); | ||
346 | if (errstr) | ||
347 | goto bad; | ||
348 | } else if (strcmp(*argv, "-md") == 0) { | ||
349 | if (--argc < 1) | ||
350 | goto bad; | ||
351 | md = *(++argv); | ||
352 | } else if (strcmp(*argv, "-policy") == 0) { | ||
353 | if (--argc < 1) | ||
354 | goto bad; | ||
355 | policy = *(++argv); | ||
356 | } else if (strcmp(*argv, "-keyfile") == 0) { | ||
357 | if (--argc < 1) | ||
358 | goto bad; | ||
359 | keyfile = *(++argv); | ||
360 | } else if (strcmp(*argv, "-keyform") == 0) { | ||
361 | if (--argc < 1) | ||
362 | goto bad; | ||
363 | keyform = str2fmt(*(++argv)); | ||
364 | } else if (strcmp(*argv, "-passin") == 0) { | ||
365 | if (--argc < 1) | ||
366 | goto bad; | ||
367 | passargin = *(++argv); | ||
368 | } else if (strcmp(*argv, "-key") == 0) { | ||
369 | if (--argc < 1) | ||
370 | goto bad; | ||
371 | key = *(++argv); | ||
372 | } else if (strcmp(*argv, "-cert") == 0) { | ||
373 | if (--argc < 1) | ||
374 | goto bad; | ||
375 | certfile = *(++argv); | ||
376 | } else if (strcmp(*argv, "-selfsign") == 0) | ||
377 | selfsign = 1; | ||
378 | else if (strcmp(*argv, "-in") == 0) { | ||
379 | if (--argc < 1) | ||
380 | goto bad; | ||
381 | infile = *(++argv); | ||
382 | req = 1; | ||
383 | } else if (strcmp(*argv, "-out") == 0) { | ||
384 | if (--argc < 1) | ||
385 | goto bad; | ||
386 | outfile = *(++argv); | ||
387 | } else if (strcmp(*argv, "-outdir") == 0) { | ||
388 | if (--argc < 1) | ||
389 | goto bad; | ||
390 | outdir = *(++argv); | ||
391 | } else if (strcmp(*argv, "-sigopt") == 0) { | ||
392 | if (--argc < 1) | ||
393 | goto bad; | ||
394 | if (!sigopts) | ||
395 | sigopts = sk_OPENSSL_STRING_new_null(); | ||
396 | if (!sigopts || | ||
397 | !sk_OPENSSL_STRING_push(sigopts, *(++argv))) | ||
398 | goto bad; | ||
399 | } else if (strcmp(*argv, "-notext") == 0) | ||
400 | notext = 1; | ||
401 | else if (strcmp(*argv, "-batch") == 0) | ||
402 | batch = 1; | ||
403 | else if (strcmp(*argv, "-preserveDN") == 0) | ||
404 | preserve = 1; | ||
405 | else if (strcmp(*argv, "-noemailDN") == 0) | ||
406 | email_dn = 0; | ||
407 | else if (strcmp(*argv, "-gencrl") == 0) | ||
408 | gencrl = 1; | ||
409 | else if (strcmp(*argv, "-msie_hack") == 0) | ||
410 | msie_hack = 1; | ||
411 | else if (strcmp(*argv, "-crldays") == 0) { | ||
412 | if (--argc < 1) | ||
413 | goto bad; | ||
414 | crldays = strtonum(*(++argv), 0, LONG_MAX, &errstr); | ||
415 | if (errstr) | ||
416 | goto bad; | ||
417 | } else if (strcmp(*argv, "-crlhours") == 0) { | ||
418 | if (--argc < 1) | ||
419 | goto bad; | ||
420 | crlhours = strtonum(*(++argv), 0, LONG_MAX, &errstr); | ||
421 | if (errstr) | ||
422 | goto bad; | ||
423 | } else if (strcmp(*argv, "-crlsec") == 0) { | ||
424 | if (--argc < 1) | ||
425 | goto bad; | ||
426 | crlsec = strtonum(*(++argv), 0, LONG_MAX, &errstr); | ||
427 | if (errstr) | ||
428 | goto bad; | ||
429 | } else if (strcmp(*argv, "-infiles") == 0) { | ||
430 | argc--; | ||
431 | argv++; | ||
432 | req = 1; | ||
433 | break; | ||
434 | } else if (strcmp(*argv, "-ss_cert") == 0) { | ||
435 | if (--argc < 1) | ||
436 | goto bad; | ||
437 | ss_cert_file = *(++argv); | ||
438 | req = 1; | ||
439 | } else if (strcmp(*argv, "-spkac") == 0) { | ||
440 | if (--argc < 1) | ||
441 | goto bad; | ||
442 | spkac_file = *(++argv); | ||
443 | req = 1; | ||
444 | } else if (strcmp(*argv, "-revoke") == 0) { | ||
445 | if (--argc < 1) | ||
446 | goto bad; | ||
447 | infile = *(++argv); | ||
448 | dorevoke = 1; | ||
449 | } else if (strcmp(*argv, "-extensions") == 0) { | ||
450 | if (--argc < 1) | ||
451 | goto bad; | ||
452 | extensions = *(++argv); | ||
453 | } else if (strcmp(*argv, "-extfile") == 0) { | ||
454 | if (--argc < 1) | ||
455 | goto bad; | ||
456 | extfile = *(++argv); | ||
457 | } else if (strcmp(*argv, "-status") == 0) { | ||
458 | if (--argc < 1) | ||
459 | goto bad; | ||
460 | ser_status = *(++argv); | ||
461 | } else if (strcmp(*argv, "-updatedb") == 0) { | ||
462 | doupdatedb = 1; | ||
463 | } else if (strcmp(*argv, "-crlexts") == 0) { | ||
464 | if (--argc < 1) | ||
465 | goto bad; | ||
466 | crl_ext = *(++argv); | ||
467 | } else if (strcmp(*argv, "-crl_reason") == 0) { | ||
468 | if (--argc < 1) | ||
469 | goto bad; | ||
470 | rev_arg = *(++argv); | ||
471 | rev_type = REV_CRL_REASON; | ||
472 | } else if (strcmp(*argv, "-crl_hold") == 0) { | ||
473 | if (--argc < 1) | ||
474 | goto bad; | ||
475 | rev_arg = *(++argv); | ||
476 | rev_type = REV_HOLD; | ||
477 | } else if (strcmp(*argv, "-crl_compromise") == 0) { | ||
478 | if (--argc < 1) | ||
479 | goto bad; | ||
480 | rev_arg = *(++argv); | ||
481 | rev_type = REV_KEY_COMPROMISE; | ||
482 | } else if (strcmp(*argv, "-crl_CA_compromise") == 0) { | ||
483 | if (--argc < 1) | ||
484 | goto bad; | ||
485 | rev_arg = *(++argv); | ||
486 | rev_type = REV_CA_COMPROMISE; | ||
487 | } | ||
488 | #ifndef OPENSSL_NO_ENGINE | ||
489 | else if (strcmp(*argv, "-engine") == 0) { | ||
490 | if (--argc < 1) | ||
491 | goto bad; | ||
492 | engine = *(++argv); | ||
493 | } | ||
494 | #endif | ||
495 | else { | ||
496 | bad: | ||
497 | if (errstr) | ||
498 | BIO_printf(bio_err, "invalid argument %s: %s\n", | ||
499 | *argv, errstr); | ||
500 | else | ||
501 | BIO_printf(bio_err, "unknown option %s\n", *argv); | ||
502 | badops = 1; | ||
503 | break; | ||
504 | } | ||
505 | argc--; | ||
506 | argv++; | ||
507 | } | ||
508 | |||
509 | if (badops) { | ||
510 | const char **pp2; | ||
511 | |||
512 | for (pp2 = ca_usage; (*pp2 != NULL); pp2++) | ||
513 | BIO_printf(bio_err, "%s", *pp2); | ||
514 | goto err; | ||
515 | } | ||
516 | ERR_load_crypto_strings(); | ||
517 | |||
518 | /*****************************************************************/ | ||
519 | tofree = NULL; | ||
520 | if (configfile == NULL) | ||
521 | configfile = getenv("OPENSSL_CONF"); | ||
522 | if (configfile == NULL) | ||
523 | configfile = getenv("SSLEAY_CONF"); | ||
524 | if (configfile == NULL) { | ||
525 | if ((tofree = make_config_name()) == NULL) { | ||
526 | BIO_printf(bio_err, "error making config file name\n"); | ||
527 | goto err; | ||
528 | } | ||
529 | configfile = tofree; | ||
530 | } | ||
531 | BIO_printf(bio_err, "Using configuration from %s\n", configfile); | ||
532 | conf = NCONF_new(NULL); | ||
533 | if (NCONF_load(conf, configfile, &errorline) <= 0) { | ||
534 | if (errorline <= 0) | ||
535 | BIO_printf(bio_err, | ||
536 | "error loading the config file '%s'\n", | ||
537 | configfile); | ||
538 | else | ||
539 | BIO_printf(bio_err, | ||
540 | "error on line %ld of config file '%s'\n", | ||
541 | errorline, configfile); | ||
542 | goto err; | ||
543 | } | ||
544 | free(tofree); | ||
545 | tofree = NULL; | ||
546 | |||
547 | #ifndef OPENSSL_NO_ENGINE | ||
548 | e = setup_engine(bio_err, engine, 0); | ||
549 | #endif | ||
550 | |||
551 | /* Lets get the config section we are using */ | ||
552 | if (section == NULL) { | ||
553 | section = NCONF_get_string(conf, BASE_SECTION, ENV_DEFAULT_CA); | ||
554 | if (section == NULL) { | ||
555 | lookup_fail(BASE_SECTION, ENV_DEFAULT_CA); | ||
556 | goto err; | ||
557 | } | ||
558 | } | ||
559 | if (conf != NULL) { | ||
560 | p = NCONF_get_string(conf, NULL, "oid_file"); | ||
561 | if (p == NULL) | ||
562 | ERR_clear_error(); | ||
563 | if (p != NULL) { | ||
564 | BIO *oid_bio; | ||
565 | |||
566 | oid_bio = BIO_new_file(p, "r"); | ||
567 | if (oid_bio == NULL) { | ||
568 | /* | ||
569 | BIO_printf(bio_err, | ||
570 | "problems opening %s for extra oid's\n", p); | ||
571 | ERR_print_errors(bio_err); | ||
572 | */ | ||
573 | ERR_clear_error(); | ||
574 | } else { | ||
575 | OBJ_create_objects(oid_bio); | ||
576 | BIO_free(oid_bio); | ||
577 | } | ||
578 | } | ||
579 | if (!add_oid_section(bio_err, conf)) { | ||
580 | ERR_print_errors(bio_err); | ||
581 | goto err; | ||
582 | } | ||
583 | } | ||
584 | f = NCONF_get_string(conf, section, STRING_MASK); | ||
585 | if (!f) | ||
586 | ERR_clear_error(); | ||
587 | |||
588 | if (f && !ASN1_STRING_set_default_mask_asc(f)) { | ||
589 | BIO_printf(bio_err, | ||
590 | "Invalid global string mask setting %s\n", f); | ||
591 | goto err; | ||
592 | } | ||
593 | if (chtype != MBSTRING_UTF8) { | ||
594 | f = NCONF_get_string(conf, section, UTF8_IN); | ||
595 | if (!f) | ||
596 | ERR_clear_error(); | ||
597 | else if (!strcmp(f, "yes")) | ||
598 | chtype = MBSTRING_UTF8; | ||
599 | } | ||
600 | db_attr.unique_subject = 1; | ||
601 | p = NCONF_get_string(conf, section, ENV_UNIQUE_SUBJECT); | ||
602 | if (p) { | ||
603 | db_attr.unique_subject = parse_yesno(p, 1); | ||
604 | } else | ||
605 | ERR_clear_error(); | ||
606 | |||
607 | in = BIO_new(BIO_s_file()); | ||
608 | out = BIO_new(BIO_s_file()); | ||
609 | Sout = BIO_new(BIO_s_file()); | ||
610 | Cout = BIO_new(BIO_s_file()); | ||
611 | if ((in == NULL) || (out == NULL) || (Sout == NULL) || (Cout == NULL)) { | ||
612 | ERR_print_errors(bio_err); | ||
613 | goto err; | ||
614 | } | ||
615 | /*****************************************************************/ | ||
616 | /* report status of cert with serial number given on command line */ | ||
617 | if (ser_status) { | ||
618 | if ((dbfile = NCONF_get_string(conf, section, | ||
619 | ENV_DATABASE)) == NULL) { | ||
620 | lookup_fail(section, ENV_DATABASE); | ||
621 | goto err; | ||
622 | } | ||
623 | db = load_index(dbfile, &db_attr); | ||
624 | if (db == NULL) | ||
625 | goto err; | ||
626 | |||
627 | if (!index_index(db)) | ||
628 | goto err; | ||
629 | |||
630 | if (get_certificate_status(ser_status, db) != 1) | ||
631 | BIO_printf(bio_err, "Error verifying serial %s!\n", | ||
632 | ser_status); | ||
633 | goto err; | ||
634 | } | ||
635 | /*****************************************************************/ | ||
636 | /* we definitely need a private key, so let's get it */ | ||
637 | |||
638 | if ((keyfile == NULL) && ((keyfile = NCONF_get_string(conf, | ||
639 | section, ENV_PRIVATE_KEY)) == NULL)) { | ||
640 | lookup_fail(section, ENV_PRIVATE_KEY); | ||
641 | goto err; | ||
642 | } | ||
643 | if (!key) { | ||
644 | free_key = 1; | ||
645 | if (!app_passwd(bio_err, passargin, NULL, &key, NULL)) { | ||
646 | BIO_printf(bio_err, "Error getting password\n"); | ||
647 | goto err; | ||
648 | } | ||
649 | } | ||
650 | pkey = load_key(bio_err, keyfile, keyform, 0, key, e, "CA private key"); | ||
651 | if (key) | ||
652 | OPENSSL_cleanse(key, strlen(key)); | ||
653 | if (pkey == NULL) { | ||
654 | /* load_key() has already printed an appropriate message */ | ||
655 | goto err; | ||
656 | } | ||
657 | /*****************************************************************/ | ||
658 | /* we need a certificate */ | ||
659 | if (!selfsign || spkac_file || ss_cert_file || gencrl) { | ||
660 | if ((certfile == NULL) && | ||
661 | ((certfile = NCONF_get_string(conf, | ||
662 | section, ENV_CERTIFICATE)) == NULL)) { | ||
663 | lookup_fail(section, ENV_CERTIFICATE); | ||
664 | goto err; | ||
665 | } | ||
666 | x509 = load_cert(bio_err, certfile, FORMAT_PEM, NULL, e, | ||
667 | "CA certificate"); | ||
668 | if (x509 == NULL) | ||
669 | goto err; | ||
670 | |||
671 | if (!X509_check_private_key(x509, pkey)) { | ||
672 | BIO_printf(bio_err, | ||
673 | "CA certificate and CA private key do not match\n"); | ||
674 | goto err; | ||
675 | } | ||
676 | } | ||
677 | if (!selfsign) | ||
678 | x509p = x509; | ||
679 | |||
680 | f = NCONF_get_string(conf, BASE_SECTION, ENV_PRESERVE); | ||
681 | if (f == NULL) | ||
682 | ERR_clear_error(); | ||
683 | if ((f != NULL) && ((*f == 'y') || (*f == 'Y'))) | ||
684 | preserve = 1; | ||
685 | f = NCONF_get_string(conf, BASE_SECTION, ENV_MSIE_HACK); | ||
686 | if (f == NULL) | ||
687 | ERR_clear_error(); | ||
688 | if ((f != NULL) && ((*f == 'y') || (*f == 'Y'))) | ||
689 | msie_hack = 1; | ||
690 | |||
691 | f = NCONF_get_string(conf, section, ENV_NAMEOPT); | ||
692 | |||
693 | if (f) { | ||
694 | if (!set_name_ex(&nameopt, f)) { | ||
695 | BIO_printf(bio_err, | ||
696 | "Invalid name options: \"%s\"\n", f); | ||
697 | goto err; | ||
698 | } | ||
699 | default_op = 0; | ||
700 | } else | ||
701 | ERR_clear_error(); | ||
702 | |||
703 | f = NCONF_get_string(conf, section, ENV_CERTOPT); | ||
704 | |||
705 | if (f) { | ||
706 | if (!set_cert_ex(&certopt, f)) { | ||
707 | BIO_printf(bio_err, | ||
708 | "Invalid certificate options: \"%s\"\n", f); | ||
709 | goto err; | ||
710 | } | ||
711 | default_op = 0; | ||
712 | } else | ||
713 | ERR_clear_error(); | ||
714 | |||
715 | f = NCONF_get_string(conf, section, ENV_EXTCOPY); | ||
716 | |||
717 | if (f) { | ||
718 | if (!set_ext_copy(&ext_copy, f)) { | ||
719 | BIO_printf(bio_err, | ||
720 | "Invalid extension copy option: \"%s\"\n", f); | ||
721 | goto err; | ||
722 | } | ||
723 | } else | ||
724 | ERR_clear_error(); | ||
725 | |||
726 | /*****************************************************************/ | ||
727 | /* lookup where to write new certificates */ | ||
728 | if ((outdir == NULL) && (req)) { | ||
729 | |||
730 | if ((outdir = NCONF_get_string(conf, section, | ||
731 | ENV_NEW_CERTS_DIR)) == NULL) { | ||
732 | BIO_printf(bio_err, "there needs to be defined a directory for new certificate to be placed in\n"); | ||
733 | goto err; | ||
734 | } | ||
735 | /* | ||
736 | * outdir is a directory spec, but access() for VMS demands a | ||
737 | * filename. In any case, stat(), below, will catch the | ||
738 | * problem if outdir is not a directory spec, and the fopen() | ||
739 | * or open() will catch an error if there is no write access. | ||
740 | * | ||
741 | * Presumably, this problem could also be solved by using the | ||
742 | * DEC C routines to convert the directory syntax to Unixly, | ||
743 | * and give that to access(). However, time's too short to | ||
744 | * do that just now. | ||
745 | */ | ||
746 | if (access(outdir, R_OK | W_OK | X_OK) != 0) { | ||
747 | BIO_printf(bio_err, | ||
748 | "I am unable to access the %s directory\n", outdir); | ||
749 | perror(outdir); | ||
750 | goto err; | ||
751 | } | ||
752 | if (app_isdir(outdir) <= 0) { | ||
753 | BIO_printf(bio_err, | ||
754 | "%s need to be a directory\n", outdir); | ||
755 | perror(outdir); | ||
756 | goto err; | ||
757 | } | ||
758 | } | ||
759 | /*****************************************************************/ | ||
760 | /* we need to load the database file */ | ||
761 | if ((dbfile = NCONF_get_string(conf, section, ENV_DATABASE)) == NULL) { | ||
762 | lookup_fail(section, ENV_DATABASE); | ||
763 | goto err; | ||
764 | } | ||
765 | db = load_index(dbfile, &db_attr); | ||
766 | if (db == NULL) | ||
767 | goto err; | ||
768 | |||
769 | /* Lets check some fields */ | ||
770 | for (i = 0; i < sk_OPENSSL_PSTRING_num(db->db->data); i++) { | ||
771 | pp = sk_OPENSSL_PSTRING_value(db->db->data, i); | ||
772 | if ((pp[DB_type][0] != DB_TYPE_REV) && | ||
773 | (pp[DB_rev_date][0] != '\0')) { | ||
774 | BIO_printf(bio_err, "entry %d: not revoked yet, but has a revocation date\n", i + 1); | ||
775 | goto err; | ||
776 | } | ||
777 | if ((pp[DB_type][0] == DB_TYPE_REV) && | ||
778 | !make_revoked(NULL, pp[DB_rev_date])) { | ||
779 | BIO_printf(bio_err, " in entry %d\n", i + 1); | ||
780 | goto err; | ||
781 | } | ||
782 | if (!check_time_format((char *) pp[DB_exp_date])) { | ||
783 | BIO_printf(bio_err, "entry %d: invalid expiry date\n", | ||
784 | i + 1); | ||
785 | goto err; | ||
786 | } | ||
787 | p = pp[DB_serial]; | ||
788 | j = strlen(p); | ||
789 | if (*p == '-') { | ||
790 | p++; | ||
791 | j--; | ||
792 | } | ||
793 | if ((j & 1) || (j < 2)) { | ||
794 | BIO_printf(bio_err, | ||
795 | "entry %d: bad serial number length (%d)\n", | ||
796 | i + 1, j); | ||
797 | goto err; | ||
798 | } | ||
799 | while (*p) { | ||
800 | if (!(((*p >= '0') && (*p <= '9')) || | ||
801 | ((*p >= 'A') && (*p <= 'F')) || | ||
802 | ((*p >= 'a') && (*p <= 'f')))) { | ||
803 | BIO_printf(bio_err, "entry %d: bad serial number characters, char pos %ld, char is '%c'\n", i + 1, (long) (p - pp[DB_serial]), *p); | ||
804 | goto err; | ||
805 | } | ||
806 | p++; | ||
807 | } | ||
808 | } | ||
809 | if (verbose) { | ||
810 | BIO_set_fp(out, stdout, BIO_NOCLOSE | BIO_FP_TEXT); /* cannot fail */ | ||
811 | TXT_DB_write(out, db->db); | ||
812 | BIO_printf(bio_err, "%d entries loaded from the database\n", | ||
813 | sk_OPENSSL_PSTRING_num(db->db->data)); | ||
814 | BIO_printf(bio_err, "generating index\n"); | ||
815 | } | ||
816 | if (!index_index(db)) | ||
817 | goto err; | ||
818 | |||
819 | /*****************************************************************/ | ||
820 | /* Update the db file for expired certificates */ | ||
821 | if (doupdatedb) { | ||
822 | if (verbose) | ||
823 | BIO_printf(bio_err, "Updating %s ...\n", dbfile); | ||
824 | |||
825 | i = do_updatedb(db); | ||
826 | if (i == -1) { | ||
827 | BIO_printf(bio_err, "Malloc failure\n"); | ||
828 | goto err; | ||
829 | } else if (i == 0) { | ||
830 | if (verbose) | ||
831 | BIO_printf(bio_err, | ||
832 | "No entries found to mark expired\n"); | ||
833 | } else { | ||
834 | if (!save_index(dbfile, "new", db)) | ||
835 | goto err; | ||
836 | |||
837 | if (!rotate_index(dbfile, "new", "old")) | ||
838 | goto err; | ||
839 | |||
840 | if (verbose) | ||
841 | BIO_printf(bio_err, | ||
842 | "Done. %d entries marked as expired\n", i); | ||
843 | } | ||
844 | } | ||
845 | /*****************************************************************/ | ||
846 | /* Read extentions config file */ | ||
847 | if (extfile) { | ||
848 | extconf = NCONF_new(NULL); | ||
849 | if (NCONF_load(extconf, extfile, &errorline) <= 0) { | ||
850 | if (errorline <= 0) | ||
851 | BIO_printf(bio_err, | ||
852 | "ERROR: loading the config file '%s'\n", | ||
853 | extfile); | ||
854 | else | ||
855 | BIO_printf(bio_err, | ||
856 | "ERROR: on line %ld of config file '%s'\n", | ||
857 | errorline, extfile); | ||
858 | ret = 1; | ||
859 | goto err; | ||
860 | } | ||
861 | if (verbose) | ||
862 | BIO_printf(bio_err, | ||
863 | "Successfully loaded extensions file %s\n", | ||
864 | extfile); | ||
865 | |||
866 | /* We can have sections in the ext file */ | ||
867 | if (!extensions && !(extensions = NCONF_get_string(extconf, | ||
868 | "default", "extensions"))) | ||
869 | extensions = "default"; | ||
870 | } | ||
871 | /*****************************************************************/ | ||
872 | if (req || gencrl) { | ||
873 | if (outfile != NULL) { | ||
874 | if (BIO_write_filename(Sout, outfile) <= 0) { | ||
875 | perror(outfile); | ||
876 | goto err; | ||
877 | } | ||
878 | } else { | ||
879 | BIO_set_fp(Sout, stdout, BIO_NOCLOSE | BIO_FP_TEXT); | ||
880 | } | ||
881 | } | ||
882 | if ((md == NULL) && ((md = NCONF_get_string(conf, section, | ||
883 | ENV_DEFAULT_MD)) == NULL)) { | ||
884 | lookup_fail(section, ENV_DEFAULT_MD); | ||
885 | goto err; | ||
886 | } | ||
887 | if (!strcmp(md, "default")) { | ||
888 | int def_nid; | ||
889 | if (EVP_PKEY_get_default_digest_nid(pkey, &def_nid) <= 0) { | ||
890 | BIO_puts(bio_err, "no default digest\n"); | ||
891 | goto err; | ||
892 | } | ||
893 | md = (char *) OBJ_nid2sn(def_nid); | ||
894 | } | ||
895 | if ((dgst = EVP_get_digestbyname(md)) == NULL) { | ||
896 | BIO_printf(bio_err, | ||
897 | "%s is an unsupported message digest type\n", md); | ||
898 | goto err; | ||
899 | } | ||
900 | if (req) { | ||
901 | if ((email_dn == 1) && ((tmp_email_dn = NCONF_get_string(conf, | ||
902 | section, ENV_DEFAULT_EMAIL_DN)) != NULL)) { | ||
903 | if (strcmp(tmp_email_dn, "no") == 0) | ||
904 | email_dn = 0; | ||
905 | } | ||
906 | if (verbose) | ||
907 | BIO_printf(bio_err, "message digest is %s\n", | ||
908 | OBJ_nid2ln(dgst->type)); | ||
909 | if ((policy == NULL) && ((policy = NCONF_get_string(conf, | ||
910 | section, ENV_POLICY)) == NULL)) { | ||
911 | lookup_fail(section, ENV_POLICY); | ||
912 | goto err; | ||
913 | } | ||
914 | if (verbose) | ||
915 | BIO_printf(bio_err, "policy is %s\n", policy); | ||
916 | |||
917 | if ((serialfile = NCONF_get_string(conf, section, | ||
918 | ENV_SERIAL)) == NULL) { | ||
919 | lookup_fail(section, ENV_SERIAL); | ||
920 | goto err; | ||
921 | } | ||
922 | if (!extconf) { | ||
923 | /* | ||
924 | * no '-extfile' option, so we look for extensions in | ||
925 | * the main configuration file | ||
926 | */ | ||
927 | if (!extensions) { | ||
928 | extensions = NCONF_get_string(conf, section, | ||
929 | ENV_EXTENSIONS); | ||
930 | if (!extensions) | ||
931 | ERR_clear_error(); | ||
932 | } | ||
933 | if (extensions) { | ||
934 | /* Check syntax of file */ | ||
935 | X509V3_CTX ctx; | ||
936 | X509V3_set_ctx_test(&ctx); | ||
937 | X509V3_set_nconf(&ctx, conf); | ||
938 | if (!X509V3_EXT_add_nconf(conf, &ctx, | ||
939 | extensions, NULL)) { | ||
940 | BIO_printf(bio_err, | ||
941 | "Error Loading extension section %s\n", | ||
942 | extensions); | ||
943 | ret = 1; | ||
944 | goto err; | ||
945 | } | ||
946 | } | ||
947 | } | ||
948 | if (startdate == NULL) { | ||
949 | startdate = NCONF_get_string(conf, section, | ||
950 | ENV_DEFAULT_STARTDATE); | ||
951 | if (startdate == NULL) | ||
952 | ERR_clear_error(); | ||
953 | } | ||
954 | if (startdate && !ASN1_TIME_set_string(NULL, startdate)) { | ||
955 | BIO_printf(bio_err, "start date is invalid, it should be YYMMDDHHMMSSZ or YYYYMMDDHHMMSSZ\n"); | ||
956 | goto err; | ||
957 | } | ||
958 | if (startdate == NULL) | ||
959 | startdate = "today"; | ||
960 | |||
961 | if (enddate == NULL) { | ||
962 | enddate = NCONF_get_string(conf, section, | ||
963 | ENV_DEFAULT_ENDDATE); | ||
964 | if (enddate == NULL) | ||
965 | ERR_clear_error(); | ||
966 | } | ||
967 | if (enddate && !ASN1_TIME_set_string(NULL, enddate)) { | ||
968 | BIO_printf(bio_err, "end date is invalid, it should be YYMMDDHHMMSSZ or YYYYMMDDHHMMSSZ\n"); | ||
969 | goto err; | ||
970 | } | ||
971 | if (days == 0) { | ||
972 | if (!NCONF_get_number(conf, section, | ||
973 | ENV_DEFAULT_DAYS, &days)) | ||
974 | days = 0; | ||
975 | } | ||
976 | if (!enddate && (days == 0)) { | ||
977 | BIO_printf(bio_err, | ||
978 | "cannot lookup how many days to certify for\n"); | ||
979 | goto err; | ||
980 | } | ||
981 | if ((serial = load_serial(serialfile, create_ser, NULL)) == | ||
982 | NULL) { | ||
983 | BIO_printf(bio_err, | ||
984 | "error while loading serial number\n"); | ||
985 | goto err; | ||
986 | } | ||
987 | if (verbose) { | ||
988 | if (BN_is_zero(serial)) | ||
989 | BIO_printf(bio_err, | ||
990 | "next serial number is 00\n"); | ||
991 | else { | ||
992 | if ((f = BN_bn2hex(serial)) == NULL) | ||
993 | goto err; | ||
994 | BIO_printf(bio_err, | ||
995 | "next serial number is %s\n", f); | ||
996 | free(f); | ||
997 | } | ||
998 | } | ||
999 | if ((attribs = NCONF_get_section(conf, policy)) == NULL) { | ||
1000 | BIO_printf(bio_err, | ||
1001 | "unable to find 'section' for %s\n", policy); | ||
1002 | goto err; | ||
1003 | } | ||
1004 | if ((cert_sk = sk_X509_new_null()) == NULL) { | ||
1005 | BIO_printf(bio_err, "Memory allocation failure\n"); | ||
1006 | goto err; | ||
1007 | } | ||
1008 | if (spkac_file != NULL) { | ||
1009 | total++; | ||
1010 | j = certify_spkac(&x, spkac_file, pkey, x509, dgst, | ||
1011 | sigopts, attribs, db, serial, subj, chtype, | ||
1012 | multirdn, email_dn, startdate, enddate, days, | ||
1013 | extensions, conf, verbose, certopt, nameopt, | ||
1014 | default_op, ext_copy); | ||
1015 | if (j < 0) | ||
1016 | goto err; | ||
1017 | if (j > 0) { | ||
1018 | total_done++; | ||
1019 | BIO_printf(bio_err, "\n"); | ||
1020 | if (!BN_add_word(serial, 1)) | ||
1021 | goto err; | ||
1022 | if (!sk_X509_push(cert_sk, x)) { | ||
1023 | BIO_printf(bio_err, | ||
1024 | "Memory allocation failure\n"); | ||
1025 | goto err; | ||
1026 | } | ||
1027 | if (outfile) { | ||
1028 | output_der = 1; | ||
1029 | batch = 1; | ||
1030 | } | ||
1031 | } | ||
1032 | } | ||
1033 | if (ss_cert_file != NULL) { | ||
1034 | total++; | ||
1035 | j = certify_cert(&x, ss_cert_file, pkey, x509, dgst, | ||
1036 | sigopts, attribs, db, serial, subj, chtype, | ||
1037 | multirdn, email_dn, startdate, enddate, days, batch, | ||
1038 | extensions, conf, verbose, certopt, nameopt, | ||
1039 | default_op, ext_copy, e); | ||
1040 | if (j < 0) | ||
1041 | goto err; | ||
1042 | if (j > 0) { | ||
1043 | total_done++; | ||
1044 | BIO_printf(bio_err, "\n"); | ||
1045 | if (!BN_add_word(serial, 1)) | ||
1046 | goto err; | ||
1047 | if (!sk_X509_push(cert_sk, x)) { | ||
1048 | BIO_printf(bio_err, | ||
1049 | "Memory allocation failure\n"); | ||
1050 | goto err; | ||
1051 | } | ||
1052 | } | ||
1053 | } | ||
1054 | if (infile != NULL) { | ||
1055 | total++; | ||
1056 | j = certify(&x, infile, pkey, x509p, dgst, sigopts, | ||
1057 | attribs, db, serial, subj, chtype, multirdn, | ||
1058 | email_dn, startdate, enddate, days, batch, | ||
1059 | extensions, conf, verbose, certopt, nameopt, | ||
1060 | default_op, ext_copy, selfsign); | ||
1061 | if (j < 0) | ||
1062 | goto err; | ||
1063 | if (j > 0) { | ||
1064 | total_done++; | ||
1065 | BIO_printf(bio_err, "\n"); | ||
1066 | if (!BN_add_word(serial, 1)) | ||
1067 | goto err; | ||
1068 | if (!sk_X509_push(cert_sk, x)) { | ||
1069 | BIO_printf(bio_err, | ||
1070 | "Memory allocation failure\n"); | ||
1071 | goto err; | ||
1072 | } | ||
1073 | } | ||
1074 | } | ||
1075 | for (i = 0; i < argc; i++) { | ||
1076 | total++; | ||
1077 | j = certify(&x, argv[i], pkey, x509p, dgst, sigopts, | ||
1078 | attribs, db, serial, subj, chtype, multirdn, | ||
1079 | email_dn, startdate, enddate, days, batch, | ||
1080 | extensions, conf, verbose, certopt, nameopt, | ||
1081 | default_op, ext_copy, selfsign); | ||
1082 | if (j < 0) | ||
1083 | goto err; | ||
1084 | if (j > 0) { | ||
1085 | total_done++; | ||
1086 | BIO_printf(bio_err, "\n"); | ||
1087 | if (!BN_add_word(serial, 1)) | ||
1088 | goto err; | ||
1089 | if (!sk_X509_push(cert_sk, x)) { | ||
1090 | BIO_printf(bio_err, | ||
1091 | "Memory allocation failure\n"); | ||
1092 | goto err; | ||
1093 | } | ||
1094 | } | ||
1095 | } | ||
1096 | /* | ||
1097 | * we have a stack of newly certified certificates and a data | ||
1098 | * base and serial number that need updating | ||
1099 | */ | ||
1100 | |||
1101 | if (sk_X509_num(cert_sk) > 0) { | ||
1102 | if (!batch) { | ||
1103 | BIO_printf(bio_err, "\n%d out of %d certificate requests certified, commit? [y/n]", total_done, total); | ||
1104 | (void) BIO_flush(bio_err); | ||
1105 | buf[0][0] = '\0'; | ||
1106 | if (!fgets(buf[0], 10, stdin)) { | ||
1107 | BIO_printf(bio_err, "CERTIFICATION CANCELED: I/O error\n"); | ||
1108 | ret = 0; | ||
1109 | goto err; | ||
1110 | } | ||
1111 | if ((buf[0][0] != 'y') && (buf[0][0] != 'Y')) { | ||
1112 | BIO_printf(bio_err, "CERTIFICATION CANCELED\n"); | ||
1113 | ret = 0; | ||
1114 | goto err; | ||
1115 | } | ||
1116 | } | ||
1117 | BIO_printf(bio_err, "Write out database with %d new entries\n", sk_X509_num(cert_sk)); | ||
1118 | |||
1119 | if (!save_serial(serialfile, "new", serial, NULL)) | ||
1120 | goto err; | ||
1121 | |||
1122 | if (!save_index(dbfile, "new", db)) | ||
1123 | goto err; | ||
1124 | } | ||
1125 | if (verbose) | ||
1126 | BIO_printf(bio_err, "writing new certificates\n"); | ||
1127 | for (i = 0; i < sk_X509_num(cert_sk); i++) { | ||
1128 | int k; | ||
1129 | char *serial; | ||
1130 | unsigned char *data; | ||
1131 | |||
1132 | x = sk_X509_value(cert_sk, i); | ||
1133 | |||
1134 | j = x->cert_info->serialNumber->length; | ||
1135 | data = (unsigned char *)x->cert_info->serialNumber->data; | ||
1136 | if (j > 0) | ||
1137 | serial = bin2hex(data, j); | ||
1138 | else | ||
1139 | serial = strdup("00"); | ||
1140 | if (serial) { | ||
1141 | k = snprintf(buf[2], sizeof(buf[2]), | ||
1142 | "%s/%s.pem", outdir, serial); | ||
1143 | free(serial); | ||
1144 | if (k == -1 || k >= sizeof(buf[2])) { | ||
1145 | BIO_printf(bio_err, | ||
1146 | "certificate file name too long\n"); | ||
1147 | goto err; | ||
1148 | } | ||
1149 | } else { | ||
1150 | BIO_printf(bio_err, | ||
1151 | "memory allocation failed\n"); | ||
1152 | goto err; | ||
1153 | } | ||
1154 | if (verbose) | ||
1155 | BIO_printf(bio_err, "writing %s\n", buf[2]); | ||
1156 | |||
1157 | if (BIO_write_filename(Cout, buf[2]) <= 0) { | ||
1158 | perror(buf[2]); | ||
1159 | goto err; | ||
1160 | } | ||
1161 | write_new_certificate(Cout, x, 0, notext); | ||
1162 | write_new_certificate(Sout, x, output_der, notext); | ||
1163 | } | ||
1164 | |||
1165 | if (sk_X509_num(cert_sk)) { | ||
1166 | /* Rename the database and the serial file */ | ||
1167 | if (!rotate_serial(serialfile, "new", "old")) | ||
1168 | goto err; | ||
1169 | |||
1170 | if (!rotate_index(dbfile, "new", "old")) | ||
1171 | goto err; | ||
1172 | |||
1173 | BIO_printf(bio_err, "Data Base Updated\n"); | ||
1174 | } | ||
1175 | } | ||
1176 | /*****************************************************************/ | ||
1177 | if (gencrl) { | ||
1178 | int crl_v2 = 0; | ||
1179 | if (!crl_ext) { | ||
1180 | crl_ext = NCONF_get_string(conf, section, ENV_CRLEXT); | ||
1181 | if (!crl_ext) | ||
1182 | ERR_clear_error(); | ||
1183 | } | ||
1184 | if (crl_ext) { | ||
1185 | /* Check syntax of file */ | ||
1186 | X509V3_CTX ctx; | ||
1187 | X509V3_set_ctx_test(&ctx); | ||
1188 | X509V3_set_nconf(&ctx, conf); | ||
1189 | if (!X509V3_EXT_add_nconf(conf, &ctx, crl_ext, NULL)) { | ||
1190 | BIO_printf(bio_err, | ||
1191 | "Error Loading CRL extension section %s\n", | ||
1192 | crl_ext); | ||
1193 | ret = 1; | ||
1194 | goto err; | ||
1195 | } | ||
1196 | } | ||
1197 | if ((crlnumberfile = NCONF_get_string(conf, section, | ||
1198 | ENV_CRLNUMBER)) != NULL) | ||
1199 | if ((crlnumber = load_serial(crlnumberfile, 0, | ||
1200 | NULL)) == NULL) { | ||
1201 | BIO_printf(bio_err, | ||
1202 | "error while loading CRL number\n"); | ||
1203 | goto err; | ||
1204 | } | ||
1205 | if (!crldays && !crlhours && !crlsec) { | ||
1206 | if (!NCONF_get_number(conf, section, | ||
1207 | ENV_DEFAULT_CRL_DAYS, &crldays)) | ||
1208 | crldays = 0; | ||
1209 | if (!NCONF_get_number(conf, section, | ||
1210 | ENV_DEFAULT_CRL_HOURS, &crlhours)) | ||
1211 | crlhours = 0; | ||
1212 | ERR_clear_error(); | ||
1213 | } | ||
1214 | if ((crldays == 0) && (crlhours == 0) && (crlsec == 0)) { | ||
1215 | BIO_printf(bio_err, "cannot lookup how long until the next CRL is issued\n"); | ||
1216 | goto err; | ||
1217 | } | ||
1218 | if (verbose) | ||
1219 | BIO_printf(bio_err, "making CRL\n"); | ||
1220 | if ((crl = X509_CRL_new()) == NULL) | ||
1221 | goto err; | ||
1222 | if (!X509_CRL_set_issuer_name(crl, X509_get_subject_name(x509))) | ||
1223 | goto err; | ||
1224 | |||
1225 | tmptm = ASN1_TIME_new(); | ||
1226 | if (!tmptm) | ||
1227 | goto err; | ||
1228 | X509_gmtime_adj(tmptm, 0); | ||
1229 | X509_CRL_set_lastUpdate(crl, tmptm); | ||
1230 | if (!X509_time_adj_ex(tmptm, crldays, | ||
1231 | crlhours * 60 * 60 + crlsec, NULL)) { | ||
1232 | BIO_puts(bio_err, "error setting CRL nextUpdate\n"); | ||
1233 | goto err; | ||
1234 | } | ||
1235 | X509_CRL_set_nextUpdate(crl, tmptm); | ||
1236 | |||
1237 | ASN1_TIME_free(tmptm); | ||
1238 | |||
1239 | for (i = 0; i < sk_OPENSSL_PSTRING_num(db->db->data); i++) { | ||
1240 | pp = sk_OPENSSL_PSTRING_value(db->db->data, i); | ||
1241 | if (pp[DB_type][0] == DB_TYPE_REV) { | ||
1242 | if ((r = X509_REVOKED_new()) == NULL) | ||
1243 | goto err; | ||
1244 | j = make_revoked(r, pp[DB_rev_date]); | ||
1245 | if (!j) | ||
1246 | goto err; | ||
1247 | if (j == 2) | ||
1248 | crl_v2 = 1; | ||
1249 | if (!BN_hex2bn(&serial, pp[DB_serial])) | ||
1250 | goto err; | ||
1251 | tmpser = BN_to_ASN1_INTEGER(serial, NULL); | ||
1252 | BN_free(serial); | ||
1253 | serial = NULL; | ||
1254 | if (!tmpser) | ||
1255 | goto err; | ||
1256 | X509_REVOKED_set_serialNumber(r, tmpser); | ||
1257 | ASN1_INTEGER_free(tmpser); | ||
1258 | X509_CRL_add0_revoked(crl, r); | ||
1259 | } | ||
1260 | } | ||
1261 | |||
1262 | /* | ||
1263 | * sort the data so it will be written in serial number order | ||
1264 | */ | ||
1265 | X509_CRL_sort(crl); | ||
1266 | |||
1267 | /* we now have a CRL */ | ||
1268 | if (verbose) | ||
1269 | BIO_printf(bio_err, "signing CRL\n"); | ||
1270 | |||
1271 | /* Add any extensions asked for */ | ||
1272 | |||
1273 | if (crl_ext || crlnumberfile != NULL) { | ||
1274 | X509V3_CTX crlctx; | ||
1275 | X509V3_set_ctx(&crlctx, x509, NULL, NULL, crl, 0); | ||
1276 | X509V3_set_nconf(&crlctx, conf); | ||
1277 | |||
1278 | if (crl_ext) | ||
1279 | if (!X509V3_EXT_CRL_add_nconf(conf, &crlctx, | ||
1280 | crl_ext, crl)) | ||
1281 | goto err; | ||
1282 | if (crlnumberfile != NULL) { | ||
1283 | tmpser = BN_to_ASN1_INTEGER(crlnumber, NULL); | ||
1284 | if (!tmpser) | ||
1285 | goto err; | ||
1286 | X509_CRL_add1_ext_i2d(crl, NID_crl_number, | ||
1287 | tmpser, 0, 0); | ||
1288 | ASN1_INTEGER_free(tmpser); | ||
1289 | crl_v2 = 1; | ||
1290 | if (!BN_add_word(crlnumber, 1)) | ||
1291 | goto err; | ||
1292 | } | ||
1293 | } | ||
1294 | if (crl_ext || crl_v2) { | ||
1295 | if (!X509_CRL_set_version(crl, 1)) | ||
1296 | goto err; /* version 2 CRL */ | ||
1297 | } | ||
1298 | if (crlnumberfile != NULL) /* we have a CRL number that | ||
1299 | * need updating */ | ||
1300 | if (!save_serial(crlnumberfile, "new", crlnumber, NULL)) | ||
1301 | goto err; | ||
1302 | |||
1303 | if (crlnumber) { | ||
1304 | BN_free(crlnumber); | ||
1305 | crlnumber = NULL; | ||
1306 | } | ||
1307 | if (!do_X509_CRL_sign(bio_err, crl, pkey, dgst, sigopts)) | ||
1308 | goto err; | ||
1309 | |||
1310 | PEM_write_bio_X509_CRL(Sout, crl); | ||
1311 | |||
1312 | if (crlnumberfile != NULL) /* Rename the crlnumber file */ | ||
1313 | if (!rotate_serial(crlnumberfile, "new", "old")) | ||
1314 | goto err; | ||
1315 | |||
1316 | } | ||
1317 | /*****************************************************************/ | ||
1318 | if (dorevoke) { | ||
1319 | if (infile == NULL) { | ||
1320 | BIO_printf(bio_err, "no input files\n"); | ||
1321 | goto err; | ||
1322 | } else { | ||
1323 | X509 *revcert; | ||
1324 | revcert = load_cert(bio_err, infile, FORMAT_PEM, | ||
1325 | NULL, e, infile); | ||
1326 | if (revcert == NULL) | ||
1327 | goto err; | ||
1328 | j = do_revoke(revcert, db, rev_type, rev_arg); | ||
1329 | if (j <= 0) | ||
1330 | goto err; | ||
1331 | X509_free(revcert); | ||
1332 | |||
1333 | if (!save_index(dbfile, "new", db)) | ||
1334 | goto err; | ||
1335 | |||
1336 | if (!rotate_index(dbfile, "new", "old")) | ||
1337 | goto err; | ||
1338 | |||
1339 | BIO_printf(bio_err, "Data Base Updated\n"); | ||
1340 | } | ||
1341 | } | ||
1342 | /*****************************************************************/ | ||
1343 | ret = 0; | ||
1344 | |||
1345 | err: | ||
1346 | free(tofree); | ||
1347 | |||
1348 | BIO_free_all(Cout); | ||
1349 | BIO_free_all(Sout); | ||
1350 | BIO_free_all(out); | ||
1351 | BIO_free_all(in); | ||
1352 | |||
1353 | if (cert_sk) | ||
1354 | sk_X509_pop_free(cert_sk, X509_free); | ||
1355 | |||
1356 | if (ret) | ||
1357 | ERR_print_errors(bio_err); | ||
1358 | if (free_key && key) | ||
1359 | free(key); | ||
1360 | BN_free(serial); | ||
1361 | BN_free(crlnumber); | ||
1362 | free_index(db); | ||
1363 | if (sigopts) | ||
1364 | sk_OPENSSL_STRING_free(sigopts); | ||
1365 | EVP_PKEY_free(pkey); | ||
1366 | if (x509) | ||
1367 | X509_free(x509); | ||
1368 | X509_CRL_free(crl); | ||
1369 | NCONF_free(conf); | ||
1370 | NCONF_free(extconf); | ||
1371 | OBJ_cleanup(); | ||
1372 | |||
1373 | return (ret); | ||
1374 | } | ||
1375 | |||
1376 | static void | ||
1377 | lookup_fail(const char *name, const char *tag) | ||
1378 | { | ||
1379 | BIO_printf(bio_err, "variable lookup failed for %s::%s\n", name, tag); | ||
1380 | } | ||
1381 | |||
1382 | static int | ||
1383 | certify(X509 ** xret, char *infile, EVP_PKEY * pkey, X509 * x509, | ||
1384 | const EVP_MD * dgst, STACK_OF(OPENSSL_STRING) * sigopts, | ||
1385 | STACK_OF(CONF_VALUE) * policy, CA_DB * db, BIGNUM * serial, char *subj, | ||
1386 | unsigned long chtype, int multirdn, int email_dn, char *startdate, | ||
1387 | char *enddate, long days, int batch, char *ext_sect, CONF * lconf, | ||
1388 | int verbose, unsigned long certopt, unsigned long nameopt, int default_op, | ||
1389 | int ext_copy, int selfsign) | ||
1390 | { | ||
1391 | X509_REQ *req = NULL; | ||
1392 | BIO *in = NULL; | ||
1393 | EVP_PKEY *pktmp = NULL; | ||
1394 | int ok = -1, i; | ||
1395 | |||
1396 | in = BIO_new(BIO_s_file()); | ||
1397 | |||
1398 | if (BIO_read_filename(in, infile) <= 0) { | ||
1399 | perror(infile); | ||
1400 | goto err; | ||
1401 | } | ||
1402 | if ((req = PEM_read_bio_X509_REQ(in, NULL, NULL, NULL)) == NULL) { | ||
1403 | BIO_printf(bio_err, "Error reading certificate request in %s\n", | ||
1404 | infile); | ||
1405 | goto err; | ||
1406 | } | ||
1407 | if (verbose) | ||
1408 | X509_REQ_print(bio_err, req); | ||
1409 | |||
1410 | BIO_printf(bio_err, "Check that the request matches the signature\n"); | ||
1411 | |||
1412 | if (selfsign && !X509_REQ_check_private_key(req, pkey)) { | ||
1413 | BIO_printf(bio_err, | ||
1414 | "Certificate request and CA private key do not match\n"); | ||
1415 | ok = 0; | ||
1416 | goto err; | ||
1417 | } | ||
1418 | if ((pktmp = X509_REQ_get_pubkey(req)) == NULL) { | ||
1419 | BIO_printf(bio_err, "error unpacking public key\n"); | ||
1420 | goto err; | ||
1421 | } | ||
1422 | i = X509_REQ_verify(req, pktmp); | ||
1423 | EVP_PKEY_free(pktmp); | ||
1424 | if (i < 0) { | ||
1425 | ok = 0; | ||
1426 | BIO_printf(bio_err, "Signature verification problems....\n"); | ||
1427 | goto err; | ||
1428 | } | ||
1429 | if (i == 0) { | ||
1430 | ok = 0; | ||
1431 | BIO_printf(bio_err, | ||
1432 | "Signature did not match the certificate request\n"); | ||
1433 | goto err; | ||
1434 | } else | ||
1435 | BIO_printf(bio_err, "Signature ok\n"); | ||
1436 | |||
1437 | ok = do_body(xret, pkey, x509, dgst, sigopts, policy, db, serial, | ||
1438 | subj, chtype, multirdn, email_dn, startdate, enddate, days, batch, | ||
1439 | verbose, req, ext_sect, lconf, certopt, nameopt, default_op, | ||
1440 | ext_copy, selfsign); | ||
1441 | |||
1442 | err: | ||
1443 | if (req != NULL) | ||
1444 | X509_REQ_free(req); | ||
1445 | if (in != NULL) | ||
1446 | BIO_free(in); | ||
1447 | return (ok); | ||
1448 | } | ||
1449 | |||
1450 | static int | ||
1451 | certify_cert(X509 ** xret, char *infile, EVP_PKEY * pkey, X509 * x509, | ||
1452 | const EVP_MD * dgst, STACK_OF(OPENSSL_STRING) * sigopts, | ||
1453 | STACK_OF(CONF_VALUE) * policy, CA_DB * db, BIGNUM * serial, char *subj, | ||
1454 | unsigned long chtype, int multirdn, int email_dn, char *startdate, | ||
1455 | char *enddate, long days, int batch, char *ext_sect, CONF * lconf, | ||
1456 | int verbose, unsigned long certopt, unsigned long nameopt, int default_op, | ||
1457 | int ext_copy, ENGINE * e) | ||
1458 | { | ||
1459 | X509 *req = NULL; | ||
1460 | X509_REQ *rreq = NULL; | ||
1461 | EVP_PKEY *pktmp = NULL; | ||
1462 | int ok = -1, i; | ||
1463 | |||
1464 | if ((req = load_cert(bio_err, infile, FORMAT_PEM, NULL, e, | ||
1465 | infile)) == NULL) | ||
1466 | goto err; | ||
1467 | if (verbose) | ||
1468 | X509_print(bio_err, req); | ||
1469 | |||
1470 | BIO_printf(bio_err, "Check that the request matches the signature\n"); | ||
1471 | |||
1472 | if ((pktmp = X509_get_pubkey(req)) == NULL) { | ||
1473 | BIO_printf(bio_err, "error unpacking public key\n"); | ||
1474 | goto err; | ||
1475 | } | ||
1476 | i = X509_verify(req, pktmp); | ||
1477 | EVP_PKEY_free(pktmp); | ||
1478 | if (i < 0) { | ||
1479 | ok = 0; | ||
1480 | BIO_printf(bio_err, "Signature verification problems....\n"); | ||
1481 | goto err; | ||
1482 | } | ||
1483 | if (i == 0) { | ||
1484 | ok = 0; | ||
1485 | BIO_printf(bio_err, | ||
1486 | "Signature did not match the certificate\n"); | ||
1487 | goto err; | ||
1488 | } else | ||
1489 | BIO_printf(bio_err, "Signature ok\n"); | ||
1490 | |||
1491 | if ((rreq = X509_to_X509_REQ(req, NULL, EVP_md5())) == NULL) | ||
1492 | goto err; | ||
1493 | |||
1494 | ok = do_body(xret, pkey, x509, dgst, sigopts, policy, db, serial, | ||
1495 | subj, chtype, multirdn, email_dn, startdate, enddate, days, batch, | ||
1496 | verbose, rreq, ext_sect, lconf, certopt, nameopt, default_op, | ||
1497 | ext_copy, 0); | ||
1498 | |||
1499 | err: | ||
1500 | if (rreq != NULL) | ||
1501 | X509_REQ_free(rreq); | ||
1502 | if (req != NULL) | ||
1503 | X509_free(req); | ||
1504 | return (ok); | ||
1505 | } | ||
1506 | |||
1507 | static int | ||
1508 | do_body(X509 ** xret, EVP_PKEY * pkey, X509 * x509, const EVP_MD * dgst, | ||
1509 | STACK_OF(OPENSSL_STRING) * sigopts, STACK_OF(CONF_VALUE) * policy, | ||
1510 | CA_DB * db, BIGNUM * serial, char *subj, unsigned long chtype, int multirdn, | ||
1511 | int email_dn, char *startdate, char *enddate, long days, int batch, | ||
1512 | int verbose, X509_REQ * req, char *ext_sect, CONF * lconf, | ||
1513 | unsigned long certopt, unsigned long nameopt, int default_op, | ||
1514 | int ext_copy, int selfsign) | ||
1515 | { | ||
1516 | X509_NAME *name = NULL, *CAname = NULL, *subject = NULL, *dn_subject = NULL; | ||
1517 | ASN1_UTCTIME *tm, *tmptm; | ||
1518 | ASN1_STRING *str, *str2; | ||
1519 | ASN1_OBJECT *obj; | ||
1520 | X509 *ret = NULL; | ||
1521 | X509_CINF *ci; | ||
1522 | X509_NAME_ENTRY *ne; | ||
1523 | X509_NAME_ENTRY *tne, *push; | ||
1524 | EVP_PKEY *pktmp; | ||
1525 | int ok = -1, i, j, last, nid; | ||
1526 | const char *p; | ||
1527 | CONF_VALUE *cv; | ||
1528 | OPENSSL_STRING row[DB_NUMBER]; | ||
1529 | OPENSSL_STRING *irow = NULL; | ||
1530 | OPENSSL_STRING *rrow = NULL; | ||
1531 | char buf[25]; | ||
1532 | |||
1533 | tmptm = ASN1_UTCTIME_new(); | ||
1534 | if (tmptm == NULL) { | ||
1535 | BIO_printf(bio_err, "malloc error\n"); | ||
1536 | return (0); | ||
1537 | } | ||
1538 | for (i = 0; i < DB_NUMBER; i++) | ||
1539 | row[i] = NULL; | ||
1540 | |||
1541 | if (subj) { | ||
1542 | X509_NAME *n = parse_name(subj, chtype, multirdn); | ||
1543 | |||
1544 | if (!n) { | ||
1545 | ERR_print_errors(bio_err); | ||
1546 | goto err; | ||
1547 | } | ||
1548 | X509_REQ_set_subject_name(req, n); | ||
1549 | req->req_info->enc.modified = 1; | ||
1550 | X509_NAME_free(n); | ||
1551 | } | ||
1552 | if (default_op) | ||
1553 | BIO_printf(bio_err, | ||
1554 | "The Subject's Distinguished Name is as follows\n"); | ||
1555 | |||
1556 | name = X509_REQ_get_subject_name(req); | ||
1557 | for (i = 0; i < X509_NAME_entry_count(name); i++) { | ||
1558 | ne = X509_NAME_get_entry(name, i); | ||
1559 | str = X509_NAME_ENTRY_get_data(ne); | ||
1560 | obj = X509_NAME_ENTRY_get_object(ne); | ||
1561 | |||
1562 | if (msie_hack) { | ||
1563 | /* assume all type should be strings */ | ||
1564 | nid = OBJ_obj2nid(ne->object); | ||
1565 | |||
1566 | if (str->type == V_ASN1_UNIVERSALSTRING) | ||
1567 | ASN1_UNIVERSALSTRING_to_string(str); | ||
1568 | |||
1569 | if ((str->type == V_ASN1_IA5STRING) && | ||
1570 | (nid != NID_pkcs9_emailAddress)) | ||
1571 | str->type = V_ASN1_T61STRING; | ||
1572 | |||
1573 | if ((nid == NID_pkcs9_emailAddress) && | ||
1574 | (str->type == V_ASN1_PRINTABLESTRING)) | ||
1575 | str->type = V_ASN1_IA5STRING; | ||
1576 | } | ||
1577 | /* If no EMAIL is wanted in the subject */ | ||
1578 | if ((OBJ_obj2nid(obj) == NID_pkcs9_emailAddress) && (!email_dn)) | ||
1579 | continue; | ||
1580 | |||
1581 | /* check some things */ | ||
1582 | if ((OBJ_obj2nid(obj) == NID_pkcs9_emailAddress) && | ||
1583 | (str->type != V_ASN1_IA5STRING)) { | ||
1584 | BIO_printf(bio_err, "\nemailAddress type needs to be of type IA5STRING\n"); | ||
1585 | goto err; | ||
1586 | } | ||
1587 | if ((str->type != V_ASN1_BMPSTRING) && | ||
1588 | (str->type != V_ASN1_UTF8STRING)) { | ||
1589 | j = ASN1_PRINTABLE_type(str->data, str->length); | ||
1590 | if (((j == V_ASN1_T61STRING) && | ||
1591 | (str->type != V_ASN1_T61STRING)) || | ||
1592 | ((j == V_ASN1_IA5STRING) && | ||
1593 | (str->type == V_ASN1_PRINTABLESTRING))) { | ||
1594 | BIO_printf(bio_err, "\nThe string contains characters that are illegal for the ASN.1 type\n"); | ||
1595 | goto err; | ||
1596 | } | ||
1597 | } | ||
1598 | if (default_op) | ||
1599 | old_entry_print(bio_err, obj, str); | ||
1600 | } | ||
1601 | |||
1602 | /* Ok, now we check the 'policy' stuff. */ | ||
1603 | if ((subject = X509_NAME_new()) == NULL) { | ||
1604 | BIO_printf(bio_err, "Memory allocation failure\n"); | ||
1605 | goto err; | ||
1606 | } | ||
1607 | /* take a copy of the issuer name before we mess with it. */ | ||
1608 | if (selfsign) | ||
1609 | CAname = X509_NAME_dup(name); | ||
1610 | else | ||
1611 | CAname = X509_NAME_dup(x509->cert_info->subject); | ||
1612 | if (CAname == NULL) | ||
1613 | goto err; | ||
1614 | str = str2 = NULL; | ||
1615 | |||
1616 | for (i = 0; i < sk_CONF_VALUE_num(policy); i++) { | ||
1617 | cv = sk_CONF_VALUE_value(policy, i); /* get the object id */ | ||
1618 | if ((j = OBJ_txt2nid(cv->name)) == NID_undef) { | ||
1619 | BIO_printf(bio_err, "%s:unknown object type in 'policy' configuration\n", cv->name); | ||
1620 | goto err; | ||
1621 | } | ||
1622 | obj = OBJ_nid2obj(j); | ||
1623 | |||
1624 | last = -1; | ||
1625 | for (;;) { | ||
1626 | /* lookup the object in the supplied name list */ | ||
1627 | j = X509_NAME_get_index_by_OBJ(name, obj, last); | ||
1628 | if (j < 0) { | ||
1629 | if (last != -1) | ||
1630 | break; | ||
1631 | tne = NULL; | ||
1632 | } else { | ||
1633 | tne = X509_NAME_get_entry(name, j); | ||
1634 | } | ||
1635 | last = j; | ||
1636 | |||
1637 | /* depending on the 'policy', decide what to do. */ | ||
1638 | push = NULL; | ||
1639 | if (strcmp(cv->value, "optional") == 0) { | ||
1640 | if (tne != NULL) | ||
1641 | push = tne; | ||
1642 | } else if (strcmp(cv->value, "supplied") == 0) { | ||
1643 | if (tne == NULL) { | ||
1644 | BIO_printf(bio_err, "The %s field needed to be supplied and was missing\n", cv->name); | ||
1645 | goto err; | ||
1646 | } else | ||
1647 | push = tne; | ||
1648 | } else if (strcmp(cv->value, "match") == 0) { | ||
1649 | int last2; | ||
1650 | |||
1651 | if (tne == NULL) { | ||
1652 | BIO_printf(bio_err, "The mandatory %s field was missing\n", cv->name); | ||
1653 | goto err; | ||
1654 | } | ||
1655 | last2 = -1; | ||
1656 | |||
1657 | again2: | ||
1658 | j = X509_NAME_get_index_by_OBJ(CAname, obj, last2); | ||
1659 | if ((j < 0) && (last2 == -1)) { | ||
1660 | BIO_printf(bio_err, "The %s field does not exist in the CA certificate,\nthe 'policy' is misconfigured\n", cv->name); | ||
1661 | goto err; | ||
1662 | } | ||
1663 | if (j >= 0) { | ||
1664 | push = X509_NAME_get_entry(CAname, j); | ||
1665 | str = X509_NAME_ENTRY_get_data(tne); | ||
1666 | str2 = X509_NAME_ENTRY_get_data(push); | ||
1667 | last2 = j; | ||
1668 | if (ASN1_STRING_cmp(str, str2) != 0) | ||
1669 | goto again2; | ||
1670 | } | ||
1671 | if (j < 0) { | ||
1672 | BIO_printf(bio_err, "The %s field needed to be the same in the\nCA certificate (%s) and the request (%s)\n", cv->name, ((str2 == NULL) ? "NULL" : (char *) str2->data), ((str == NULL) ? "NULL" : (char *) str->data)); | ||
1673 | goto err; | ||
1674 | } | ||
1675 | } else { | ||
1676 | BIO_printf(bio_err, "%s:invalid type in 'policy' configuration\n", cv->value); | ||
1677 | goto err; | ||
1678 | } | ||
1679 | |||
1680 | if (push != NULL) { | ||
1681 | if (!X509_NAME_add_entry(subject, push, | ||
1682 | -1, 0)) { | ||
1683 | if (push != NULL) | ||
1684 | X509_NAME_ENTRY_free(push); | ||
1685 | BIO_printf(bio_err, | ||
1686 | "Memory allocation failure\n"); | ||
1687 | goto err; | ||
1688 | } | ||
1689 | } | ||
1690 | if (j < 0) | ||
1691 | break; | ||
1692 | } | ||
1693 | } | ||
1694 | |||
1695 | if (preserve) { | ||
1696 | X509_NAME_free(subject); | ||
1697 | /* subject=X509_NAME_dup(X509_REQ_get_subject_name(req)); */ | ||
1698 | subject = X509_NAME_dup(name); | ||
1699 | if (subject == NULL) | ||
1700 | goto err; | ||
1701 | } | ||
1702 | if (verbose) | ||
1703 | BIO_printf(bio_err, "The subject name appears to be ok, checking data base for clashes\n"); | ||
1704 | |||
1705 | /* Build the correct Subject if no e-mail is wanted in the subject */ | ||
1706 | /* | ||
1707 | * and add it later on because of the method extensions are added | ||
1708 | * (altName) | ||
1709 | */ | ||
1710 | |||
1711 | if (email_dn) | ||
1712 | dn_subject = subject; | ||
1713 | else { | ||
1714 | X509_NAME_ENTRY *tmpne; | ||
1715 | /* | ||
1716 | * Its best to dup the subject DN and then delete any email | ||
1717 | * addresses because this retains its structure. | ||
1718 | */ | ||
1719 | if (!(dn_subject = X509_NAME_dup(subject))) { | ||
1720 | BIO_printf(bio_err, "Memory allocation failure\n"); | ||
1721 | goto err; | ||
1722 | } | ||
1723 | while ((i = X509_NAME_get_index_by_NID(dn_subject, | ||
1724 | NID_pkcs9_emailAddress, -1)) >= 0) { | ||
1725 | tmpne = X509_NAME_get_entry(dn_subject, i); | ||
1726 | X509_NAME_delete_entry(dn_subject, i); | ||
1727 | X509_NAME_ENTRY_free(tmpne); | ||
1728 | } | ||
1729 | } | ||
1730 | |||
1731 | if (BN_is_zero(serial)) | ||
1732 | row[DB_serial] = strdup("00"); | ||
1733 | else | ||
1734 | row[DB_serial] = BN_bn2hex(serial); | ||
1735 | if (row[DB_serial] == NULL) { | ||
1736 | BIO_printf(bio_err, "Memory allocation failure\n"); | ||
1737 | goto err; | ||
1738 | } | ||
1739 | if (db->attributes.unique_subject) { | ||
1740 | OPENSSL_STRING *crow = row; | ||
1741 | |||
1742 | rrow = TXT_DB_get_by_index(db->db, DB_name, crow); | ||
1743 | if (rrow != NULL) { | ||
1744 | BIO_printf(bio_err, | ||
1745 | "ERROR:There is already a certificate for %s\n", | ||
1746 | row[DB_name]); | ||
1747 | } | ||
1748 | } | ||
1749 | if (rrow == NULL) { | ||
1750 | rrow = TXT_DB_get_by_index(db->db, DB_serial, row); | ||
1751 | if (rrow != NULL) { | ||
1752 | BIO_printf(bio_err, | ||
1753 | "ERROR:Serial number %s has already been issued,\n", | ||
1754 | row[DB_serial]); | ||
1755 | BIO_printf(bio_err, " check the database/serial_file for corruption\n"); | ||
1756 | } | ||
1757 | } | ||
1758 | if (rrow != NULL) { | ||
1759 | BIO_printf(bio_err, | ||
1760 | "The matching entry has the following details\n"); | ||
1761 | if (rrow[DB_type][0] == 'E') | ||
1762 | p = "Expired"; | ||
1763 | else if (rrow[DB_type][0] == 'R') | ||
1764 | p = "Revoked"; | ||
1765 | else if (rrow[DB_type][0] == 'V') | ||
1766 | p = "Valid"; | ||
1767 | else | ||
1768 | p = "\ninvalid type, Data base error\n"; | ||
1769 | BIO_printf(bio_err, "Type :%s\n", p); | ||
1770 | if (rrow[DB_type][0] == 'R') { | ||
1771 | p = rrow[DB_exp_date]; | ||
1772 | if (p == NULL) | ||
1773 | p = "undef"; | ||
1774 | BIO_printf(bio_err, "Was revoked on:%s\n", p); | ||
1775 | } | ||
1776 | p = rrow[DB_exp_date]; | ||
1777 | if (p == NULL) | ||
1778 | p = "undef"; | ||
1779 | BIO_printf(bio_err, "Expires on :%s\n", p); | ||
1780 | p = rrow[DB_serial]; | ||
1781 | if (p == NULL) | ||
1782 | p = "undef"; | ||
1783 | BIO_printf(bio_err, "Serial Number :%s\n", p); | ||
1784 | p = rrow[DB_file]; | ||
1785 | if (p == NULL) | ||
1786 | p = "undef"; | ||
1787 | BIO_printf(bio_err, "File name :%s\n", p); | ||
1788 | p = rrow[DB_name]; | ||
1789 | if (p == NULL) | ||
1790 | p = "undef"; | ||
1791 | BIO_printf(bio_err, "Subject Name :%s\n", p); | ||
1792 | ok = -1; /* This is now a 'bad' error. */ | ||
1793 | goto err; | ||
1794 | } | ||
1795 | /* We are now totally happy, lets make and sign the certificate */ | ||
1796 | if (verbose) | ||
1797 | BIO_printf(bio_err, "Everything appears to be ok, creating and signing the certificate\n"); | ||
1798 | |||
1799 | if ((ret = X509_new()) == NULL) | ||
1800 | goto err; | ||
1801 | ci = ret->cert_info; | ||
1802 | |||
1803 | #ifdef X509_V3 | ||
1804 | /* Make it an X509 v3 certificate. */ | ||
1805 | if (!X509_set_version(ret, 2)) | ||
1806 | goto err; | ||
1807 | #endif | ||
1808 | |||
1809 | if (BN_to_ASN1_INTEGER(serial, ci->serialNumber) == NULL) | ||
1810 | goto err; | ||
1811 | if (selfsign) { | ||
1812 | if (!X509_set_issuer_name(ret, subject)) | ||
1813 | goto err; | ||
1814 | } else { | ||
1815 | if (!X509_set_issuer_name(ret, X509_get_subject_name(x509))) | ||
1816 | goto err; | ||
1817 | } | ||
1818 | |||
1819 | if (strcmp(startdate, "today") == 0) | ||
1820 | X509_gmtime_adj(X509_get_notBefore(ret), 0); | ||
1821 | else | ||
1822 | ASN1_TIME_set_string(X509_get_notBefore(ret), startdate); | ||
1823 | |||
1824 | if (enddate == NULL) | ||
1825 | X509_time_adj_ex(X509_get_notAfter(ret), days, 0, NULL); | ||
1826 | else | ||
1827 | ASN1_TIME_set_string(X509_get_notAfter(ret), enddate); | ||
1828 | |||
1829 | if (!X509_set_subject_name(ret, subject)) | ||
1830 | goto err; | ||
1831 | |||
1832 | pktmp = X509_REQ_get_pubkey(req); | ||
1833 | i = X509_set_pubkey(ret, pktmp); | ||
1834 | EVP_PKEY_free(pktmp); | ||
1835 | if (!i) | ||
1836 | goto err; | ||
1837 | |||
1838 | /* Lets add the extensions, if there are any */ | ||
1839 | if (ext_sect) { | ||
1840 | X509V3_CTX ctx; | ||
1841 | if (ci->version == NULL) | ||
1842 | if ((ci->version = ASN1_INTEGER_new()) == NULL) | ||
1843 | goto err; | ||
1844 | ASN1_INTEGER_set(ci->version, 2); /* version 3 certificate */ | ||
1845 | |||
1846 | /* | ||
1847 | * Free the current entries if any, there should not be any I | ||
1848 | * believe | ||
1849 | */ | ||
1850 | if (ci->extensions != NULL) | ||
1851 | sk_X509_EXTENSION_pop_free(ci->extensions, | ||
1852 | X509_EXTENSION_free); | ||
1853 | |||
1854 | ci->extensions = NULL; | ||
1855 | |||
1856 | /* Initialize the context structure */ | ||
1857 | if (selfsign) | ||
1858 | X509V3_set_ctx(&ctx, ret, ret, req, NULL, 0); | ||
1859 | else | ||
1860 | X509V3_set_ctx(&ctx, x509, ret, req, NULL, 0); | ||
1861 | |||
1862 | if (extconf) { | ||
1863 | if (verbose) | ||
1864 | BIO_printf(bio_err, | ||
1865 | "Extra configuration file found\n"); | ||
1866 | |||
1867 | /* Use the extconf configuration db LHASH */ | ||
1868 | X509V3_set_nconf(&ctx, extconf); | ||
1869 | |||
1870 | /* Test the structure (needed?) */ | ||
1871 | /* X509V3_set_ctx_test(&ctx); */ | ||
1872 | |||
1873 | /* Adds exts contained in the configuration file */ | ||
1874 | if (!X509V3_EXT_add_nconf(extconf, &ctx, | ||
1875 | ext_sect, ret)) { | ||
1876 | BIO_printf(bio_err, | ||
1877 | "ERROR: adding extensions in section %s\n", | ||
1878 | ext_sect); | ||
1879 | ERR_print_errors(bio_err); | ||
1880 | goto err; | ||
1881 | } | ||
1882 | if (verbose) | ||
1883 | BIO_printf(bio_err, "Successfully added extensions from file.\n"); | ||
1884 | } else if (ext_sect) { | ||
1885 | /* We found extensions to be set from config file */ | ||
1886 | X509V3_set_nconf(&ctx, lconf); | ||
1887 | |||
1888 | if (!X509V3_EXT_add_nconf(lconf, &ctx, ext_sect, ret)) { | ||
1889 | BIO_printf(bio_err, | ||
1890 | "ERROR: adding extensions in section %s\n", | ||
1891 | ext_sect); | ||
1892 | ERR_print_errors(bio_err); | ||
1893 | goto err; | ||
1894 | } | ||
1895 | if (verbose) | ||
1896 | BIO_printf(bio_err, "Successfully added extensions from config\n"); | ||
1897 | } | ||
1898 | } | ||
1899 | /* Copy extensions from request (if any) */ | ||
1900 | |||
1901 | if (!copy_extensions(ret, req, ext_copy)) { | ||
1902 | BIO_printf(bio_err, "ERROR: adding extensions from request\n"); | ||
1903 | ERR_print_errors(bio_err); | ||
1904 | goto err; | ||
1905 | } | ||
1906 | /* Set the right value for the noemailDN option */ | ||
1907 | if (email_dn == 0) { | ||
1908 | if (!X509_set_subject_name(ret, dn_subject)) | ||
1909 | goto err; | ||
1910 | } | ||
1911 | if (!default_op) { | ||
1912 | BIO_printf(bio_err, "Certificate Details:\n"); | ||
1913 | /* | ||
1914 | * Never print signature details because signature not | ||
1915 | * present | ||
1916 | */ | ||
1917 | certopt |= X509_FLAG_NO_SIGDUMP | X509_FLAG_NO_SIGNAME; | ||
1918 | X509_print_ex(bio_err, ret, nameopt, certopt); | ||
1919 | } | ||
1920 | BIO_printf(bio_err, "Certificate is to be certified until "); | ||
1921 | ASN1_TIME_print(bio_err, X509_get_notAfter(ret)); | ||
1922 | if (days) | ||
1923 | BIO_printf(bio_err, " (%ld days)", days); | ||
1924 | BIO_printf(bio_err, "\n"); | ||
1925 | |||
1926 | if (!batch) { | ||
1927 | |||
1928 | BIO_printf(bio_err, "Sign the certificate? [y/n]:"); | ||
1929 | (void) BIO_flush(bio_err); | ||
1930 | buf[0] = '\0'; | ||
1931 | if (!fgets(buf, sizeof(buf) - 1, stdin)) { | ||
1932 | BIO_printf(bio_err, | ||
1933 | "CERTIFICATE WILL NOT BE CERTIFIED: I/O error\n"); | ||
1934 | ok = 0; | ||
1935 | goto err; | ||
1936 | } | ||
1937 | if (!((buf[0] == 'y') || (buf[0] == 'Y'))) { | ||
1938 | BIO_printf(bio_err, | ||
1939 | "CERTIFICATE WILL NOT BE CERTIFIED\n"); | ||
1940 | ok = 0; | ||
1941 | goto err; | ||
1942 | } | ||
1943 | } | ||
1944 | pktmp = X509_get_pubkey(ret); | ||
1945 | if (EVP_PKEY_missing_parameters(pktmp) && | ||
1946 | !EVP_PKEY_missing_parameters(pkey)) | ||
1947 | EVP_PKEY_copy_parameters(pktmp, pkey); | ||
1948 | EVP_PKEY_free(pktmp); | ||
1949 | |||
1950 | if (!do_X509_sign(bio_err, ret, pkey, dgst, sigopts)) | ||
1951 | goto err; | ||
1952 | |||
1953 | /* We now just add it to the database */ | ||
1954 | row[DB_type] = malloc(2); | ||
1955 | |||
1956 | tm = X509_get_notAfter(ret); | ||
1957 | row[DB_exp_date] = malloc(tm->length + 1); | ||
1958 | memcpy(row[DB_exp_date], tm->data, tm->length); | ||
1959 | row[DB_exp_date][tm->length] = '\0'; | ||
1960 | |||
1961 | row[DB_rev_date] = NULL; | ||
1962 | |||
1963 | /* row[DB_serial] done already */ | ||
1964 | row[DB_file] = malloc(8); | ||
1965 | row[DB_name] = X509_NAME_oneline(X509_get_subject_name(ret), NULL, 0); | ||
1966 | |||
1967 | if ((row[DB_type] == NULL) || (row[DB_exp_date] == NULL) || | ||
1968 | (row[DB_file] == NULL) || (row[DB_name] == NULL)) { | ||
1969 | BIO_printf(bio_err, "Memory allocation failure\n"); | ||
1970 | goto err; | ||
1971 | } | ||
1972 | (void) strlcpy(row[DB_file], "unknown", 8); | ||
1973 | row[DB_type][0] = 'V'; | ||
1974 | row[DB_type][1] = '\0'; | ||
1975 | |||
1976 | if ((irow = reallocarray(NULL, DB_NUMBER + 1, sizeof(char *))) == | ||
1977 | NULL) { | ||
1978 | BIO_printf(bio_err, "Memory allocation failure\n"); | ||
1979 | goto err; | ||
1980 | } | ||
1981 | for (i = 0; i < DB_NUMBER; i++) { | ||
1982 | irow[i] = row[i]; | ||
1983 | row[i] = NULL; | ||
1984 | } | ||
1985 | irow[DB_NUMBER] = NULL; | ||
1986 | |||
1987 | if (!TXT_DB_insert(db->db, irow)) { | ||
1988 | BIO_printf(bio_err, "failed to update database\n"); | ||
1989 | BIO_printf(bio_err, "TXT_DB error number %ld\n", db->db->error); | ||
1990 | goto err; | ||
1991 | } | ||
1992 | ok = 1; | ||
1993 | err: | ||
1994 | for (i = 0; i < DB_NUMBER; i++) | ||
1995 | free(row[i]); | ||
1996 | |||
1997 | if (CAname != NULL) | ||
1998 | X509_NAME_free(CAname); | ||
1999 | if (subject != NULL) | ||
2000 | X509_NAME_free(subject); | ||
2001 | if ((dn_subject != NULL) && !email_dn) | ||
2002 | X509_NAME_free(dn_subject); | ||
2003 | if (tmptm != NULL) | ||
2004 | ASN1_UTCTIME_free(tmptm); | ||
2005 | if (ok <= 0) { | ||
2006 | if (ret != NULL) | ||
2007 | X509_free(ret); | ||
2008 | ret = NULL; | ||
2009 | } else | ||
2010 | *xret = ret; | ||
2011 | return (ok); | ||
2012 | } | ||
2013 | |||
2014 | static void | ||
2015 | write_new_certificate(BIO * bp, X509 * x, int output_der, int notext) | ||
2016 | { | ||
2017 | if (output_der) { | ||
2018 | (void) i2d_X509_bio(bp, x); | ||
2019 | return; | ||
2020 | } | ||
2021 | #if 0 | ||
2022 | /* ??? Not needed since X509_print prints all this stuff anyway */ | ||
2023 | f = X509_NAME_oneline(X509_get_issuer_name(x), buf, 256); | ||
2024 | BIO_printf(bp, "issuer :%s\n", f); | ||
2025 | |||
2026 | f = X509_NAME_oneline(X509_get_subject_name(x), buf, 256); | ||
2027 | BIO_printf(bp, "subject:%s\n", f); | ||
2028 | |||
2029 | BIO_puts(bp, "serial :"); | ||
2030 | i2a_ASN1_INTEGER(bp, x->cert_info->serialNumber); | ||
2031 | BIO_puts(bp, "\n\n"); | ||
2032 | #endif | ||
2033 | if (!notext) | ||
2034 | X509_print(bp, x); | ||
2035 | PEM_write_bio_X509(bp, x); | ||
2036 | } | ||
2037 | |||
2038 | static int | ||
2039 | certify_spkac(X509 ** xret, char *infile, EVP_PKEY * pkey, X509 * x509, | ||
2040 | const EVP_MD * dgst, STACK_OF(OPENSSL_STRING) * sigopts, | ||
2041 | STACK_OF(CONF_VALUE) * policy, CA_DB * db, BIGNUM * serial, char *subj, | ||
2042 | unsigned long chtype, int multirdn, int email_dn, char *startdate, | ||
2043 | char *enddate, long days, char *ext_sect, CONF * lconf, int verbose, | ||
2044 | unsigned long certopt, unsigned long nameopt, int default_op, int ext_copy) | ||
2045 | { | ||
2046 | STACK_OF(CONF_VALUE) * sk = NULL; | ||
2047 | LHASH_OF(CONF_VALUE) * parms = NULL; | ||
2048 | X509_REQ *req = NULL; | ||
2049 | CONF_VALUE *cv = NULL; | ||
2050 | NETSCAPE_SPKI *spki = NULL; | ||
2051 | X509_REQ_INFO *ri; | ||
2052 | char *type, *buf; | ||
2053 | EVP_PKEY *pktmp = NULL; | ||
2054 | X509_NAME *n = NULL; | ||
2055 | X509_NAME_ENTRY *ne = NULL; | ||
2056 | int ok = -1, i, j; | ||
2057 | long errline; | ||
2058 | int nid; | ||
2059 | |||
2060 | /* | ||
2061 | * Load input file into a hash table. (This is just an easy | ||
2062 | * way to read and parse the file, then put it into a convenient | ||
2063 | * STACK format). | ||
2064 | */ | ||
2065 | parms = CONF_load(NULL, infile, &errline); | ||
2066 | if (parms == NULL) { | ||
2067 | BIO_printf(bio_err, "error on line %ld of %s\n", | ||
2068 | errline, infile); | ||
2069 | ERR_print_errors(bio_err); | ||
2070 | goto err; | ||
2071 | } | ||
2072 | sk = CONF_get_section(parms, "default"); | ||
2073 | if (sk_CONF_VALUE_num(sk) == 0) { | ||
2074 | BIO_printf(bio_err, "no name/value pairs found in %s\n", | ||
2075 | infile); | ||
2076 | CONF_free(parms); | ||
2077 | goto err; | ||
2078 | } | ||
2079 | /* | ||
2080 | * Now create a dummy X509 request structure. We don't actually | ||
2081 | * have an X509 request, but we have many of the components | ||
2082 | * (a public key, various DN components). The idea is that we | ||
2083 | * put these components into the right X509 request structure | ||
2084 | * and we can use the same code as if you had a real X509 request. | ||
2085 | */ | ||
2086 | req = X509_REQ_new(); | ||
2087 | if (req == NULL) { | ||
2088 | ERR_print_errors(bio_err); | ||
2089 | goto err; | ||
2090 | } | ||
2091 | /* | ||
2092 | * Build up the subject name set. | ||
2093 | */ | ||
2094 | ri = req->req_info; | ||
2095 | n = ri->subject; | ||
2096 | |||
2097 | for (i = 0;; i++) { | ||
2098 | if (sk_CONF_VALUE_num(sk) <= i) | ||
2099 | break; | ||
2100 | |||
2101 | cv = sk_CONF_VALUE_value(sk, i); | ||
2102 | type = cv->name; | ||
2103 | /* | ||
2104 | * Skip past any leading X. X: X, etc to allow for multiple | ||
2105 | * instances | ||
2106 | */ | ||
2107 | for (buf = cv->name; *buf; buf++) { | ||
2108 | if ((*buf == ':') || (*buf == ',') || (*buf == '.')) { | ||
2109 | buf++; | ||
2110 | if (*buf) | ||
2111 | type = buf; | ||
2112 | break; | ||
2113 | } | ||
2114 | } | ||
2115 | |||
2116 | buf = cv->value; | ||
2117 | if ((nid = OBJ_txt2nid(type)) == NID_undef) { | ||
2118 | if (strcmp(type, "SPKAC") == 0) { | ||
2119 | spki = NETSCAPE_SPKI_b64_decode(cv->value, -1); | ||
2120 | if (spki == NULL) { | ||
2121 | BIO_printf(bio_err, "unable to load Netscape SPKAC structure\n"); | ||
2122 | ERR_print_errors(bio_err); | ||
2123 | goto err; | ||
2124 | } | ||
2125 | } | ||
2126 | continue; | ||
2127 | } | ||
2128 | if (!X509_NAME_add_entry_by_NID(n, nid, chtype, | ||
2129 | (unsigned char *)buf, -1, -1, 0)) | ||
2130 | goto err; | ||
2131 | } | ||
2132 | if (spki == NULL) { | ||
2133 | BIO_printf(bio_err, | ||
2134 | "Netscape SPKAC structure not found in %s\n", infile); | ||
2135 | goto err; | ||
2136 | } | ||
2137 | /* | ||
2138 | * Now extract the key from the SPKI structure. | ||
2139 | */ | ||
2140 | |||
2141 | BIO_printf(bio_err, | ||
2142 | "Check that the SPKAC request matches the signature\n"); | ||
2143 | |||
2144 | if ((pktmp = NETSCAPE_SPKI_get_pubkey(spki)) == NULL) { | ||
2145 | BIO_printf(bio_err, "error unpacking SPKAC public key\n"); | ||
2146 | goto err; | ||
2147 | } | ||
2148 | j = NETSCAPE_SPKI_verify(spki, pktmp); | ||
2149 | if (j <= 0) { | ||
2150 | BIO_printf(bio_err, | ||
2151 | "signature verification failed on SPKAC public key\n"); | ||
2152 | goto err; | ||
2153 | } | ||
2154 | BIO_printf(bio_err, "Signature ok\n"); | ||
2155 | |||
2156 | X509_REQ_set_pubkey(req, pktmp); | ||
2157 | EVP_PKEY_free(pktmp); | ||
2158 | ok = do_body(xret, pkey, x509, dgst, sigopts, policy, db, serial, | ||
2159 | subj, chtype, multirdn, email_dn, startdate, enddate, days, 1, | ||
2160 | verbose, req, ext_sect, lconf, certopt, nameopt, default_op, | ||
2161 | ext_copy, 0); | ||
2162 | |||
2163 | err: | ||
2164 | if (req != NULL) | ||
2165 | X509_REQ_free(req); | ||
2166 | if (parms != NULL) | ||
2167 | CONF_free(parms); | ||
2168 | if (spki != NULL) | ||
2169 | NETSCAPE_SPKI_free(spki); | ||
2170 | if (ne != NULL) | ||
2171 | X509_NAME_ENTRY_free(ne); | ||
2172 | |||
2173 | return (ok); | ||
2174 | } | ||
2175 | |||
2176 | static int | ||
2177 | check_time_format(const char *str) | ||
2178 | { | ||
2179 | return ASN1_TIME_set_string(NULL, str); | ||
2180 | } | ||
2181 | |||
2182 | static int | ||
2183 | do_revoke(X509 * x509, CA_DB * db, int type, char *value) | ||
2184 | { | ||
2185 | ASN1_UTCTIME *tm = NULL; | ||
2186 | char *row[DB_NUMBER], **rrow, **irow; | ||
2187 | char *rev_str = NULL; | ||
2188 | BIGNUM *bn = NULL; | ||
2189 | int ok = -1, i; | ||
2190 | |||
2191 | for (i = 0; i < DB_NUMBER; i++) | ||
2192 | row[i] = NULL; | ||
2193 | row[DB_name] = X509_NAME_oneline(X509_get_subject_name(x509), NULL, 0); | ||
2194 | bn = ASN1_INTEGER_to_BN(X509_get_serialNumber(x509), NULL); | ||
2195 | if (!bn) | ||
2196 | goto err; | ||
2197 | if (BN_is_zero(bn)) | ||
2198 | row[DB_serial] = strdup("00"); | ||
2199 | else | ||
2200 | row[DB_serial] = BN_bn2hex(bn); | ||
2201 | BN_free(bn); | ||
2202 | if ((row[DB_name] == NULL) || (row[DB_serial] == NULL)) { | ||
2203 | BIO_printf(bio_err, "Memory allocation failure\n"); | ||
2204 | goto err; | ||
2205 | } | ||
2206 | /* | ||
2207 | * We have to lookup by serial number because name lookup skips | ||
2208 | * revoked certs | ||
2209 | */ | ||
2210 | rrow = TXT_DB_get_by_index(db->db, DB_serial, row); | ||
2211 | if (rrow == NULL) { | ||
2212 | BIO_printf(bio_err, | ||
2213 | "Adding Entry with serial number %s to DB for %s\n", | ||
2214 | row[DB_serial], row[DB_name]); | ||
2215 | |||
2216 | /* We now just add it to the database */ | ||
2217 | row[DB_type] = malloc(2); | ||
2218 | |||
2219 | tm = X509_get_notAfter(x509); | ||
2220 | row[DB_exp_date] = malloc(tm->length + 1); | ||
2221 | memcpy(row[DB_exp_date], tm->data, tm->length); | ||
2222 | row[DB_exp_date][tm->length] = '\0'; | ||
2223 | |||
2224 | row[DB_rev_date] = NULL; | ||
2225 | |||
2226 | /* row[DB_serial] done already */ | ||
2227 | row[DB_file] = malloc(8); | ||
2228 | |||
2229 | /* row[DB_name] done already */ | ||
2230 | |||
2231 | if ((row[DB_type] == NULL) || (row[DB_exp_date] == NULL) || | ||
2232 | (row[DB_file] == NULL)) { | ||
2233 | BIO_printf(bio_err, "Memory allocation failure\n"); | ||
2234 | goto err; | ||
2235 | } | ||
2236 | (void) strlcpy(row[DB_file], "unknown", 8); | ||
2237 | row[DB_type][0] = 'V'; | ||
2238 | row[DB_type][1] = '\0'; | ||
2239 | |||
2240 | if ((irow = reallocarray(NULL, sizeof(char *), | ||
2241 | (DB_NUMBER + 1))) == NULL) { | ||
2242 | BIO_printf(bio_err, "Memory allocation failure\n"); | ||
2243 | goto err; | ||
2244 | } | ||
2245 | for (i = 0; i < DB_NUMBER; i++) { | ||
2246 | irow[i] = row[i]; | ||
2247 | row[i] = NULL; | ||
2248 | } | ||
2249 | irow[DB_NUMBER] = NULL; | ||
2250 | |||
2251 | if (!TXT_DB_insert(db->db, irow)) { | ||
2252 | BIO_printf(bio_err, "failed to update database\n"); | ||
2253 | BIO_printf(bio_err, "TXT_DB error number %ld\n", | ||
2254 | db->db->error); | ||
2255 | goto err; | ||
2256 | } | ||
2257 | /* Revoke Certificate */ | ||
2258 | ok = do_revoke(x509, db, type, value); | ||
2259 | |||
2260 | goto err; | ||
2261 | |||
2262 | } else if (index_name_cmp_noconst(row, rrow)) { | ||
2263 | BIO_printf(bio_err, "ERROR:name does not match %s\n", | ||
2264 | row[DB_name]); | ||
2265 | goto err; | ||
2266 | } else if (rrow[DB_type][0] == 'R') { | ||
2267 | BIO_printf(bio_err, "ERROR:Already revoked, serial number %s\n", | ||
2268 | row[DB_serial]); | ||
2269 | goto err; | ||
2270 | } else { | ||
2271 | BIO_printf(bio_err, "Revoking Certificate %s.\n", | ||
2272 | rrow[DB_serial]); | ||
2273 | rev_str = make_revocation_str(type, value); | ||
2274 | if (!rev_str) { | ||
2275 | BIO_printf(bio_err, "Error in revocation arguments\n"); | ||
2276 | goto err; | ||
2277 | } | ||
2278 | rrow[DB_type][0] = 'R'; | ||
2279 | rrow[DB_type][1] = '\0'; | ||
2280 | rrow[DB_rev_date] = rev_str; | ||
2281 | } | ||
2282 | ok = 1; | ||
2283 | |||
2284 | err: | ||
2285 | for (i = 0; i < DB_NUMBER; i++) | ||
2286 | free(row[i]); | ||
2287 | |||
2288 | return (ok); | ||
2289 | } | ||
2290 | |||
2291 | static int | ||
2292 | get_certificate_status(const char *serial, CA_DB * db) | ||
2293 | { | ||
2294 | char *row[DB_NUMBER], **rrow; | ||
2295 | int ok = -1, i; | ||
2296 | |||
2297 | /* Free Resources */ | ||
2298 | for (i = 0; i < DB_NUMBER; i++) | ||
2299 | row[i] = NULL; | ||
2300 | |||
2301 | /* Malloc needed char spaces */ | ||
2302 | row[DB_serial] = malloc(strlen(serial) + 2); | ||
2303 | if (row[DB_serial] == NULL) { | ||
2304 | BIO_printf(bio_err, "Malloc failure\n"); | ||
2305 | goto err; | ||
2306 | } | ||
2307 | if (strlen(serial) % 2) { | ||
2308 | /* Set the first char to 0 */ ; | ||
2309 | row[DB_serial][0] = '0'; | ||
2310 | |||
2311 | /* Copy String from serial to row[DB_serial] */ | ||
2312 | memcpy(row[DB_serial] + 1, serial, strlen(serial)); | ||
2313 | row[DB_serial][strlen(serial) + 1] = '\0'; | ||
2314 | } else { | ||
2315 | /* Copy String from serial to row[DB_serial] */ | ||
2316 | memcpy(row[DB_serial], serial, strlen(serial)); | ||
2317 | row[DB_serial][strlen(serial)] = '\0'; | ||
2318 | } | ||
2319 | |||
2320 | /* Make it Upper Case */ | ||
2321 | for (i = 0; row[DB_serial][i] != '\0'; i++) | ||
2322 | row[DB_serial][i] = toupper((unsigned char) row[DB_serial][i]); | ||
2323 | |||
2324 | |||
2325 | ok = 1; | ||
2326 | |||
2327 | /* Search for the certificate */ | ||
2328 | rrow = TXT_DB_get_by_index(db->db, DB_serial, row); | ||
2329 | if (rrow == NULL) { | ||
2330 | BIO_printf(bio_err, "Serial %s not present in db.\n", | ||
2331 | row[DB_serial]); | ||
2332 | ok = -1; | ||
2333 | goto err; | ||
2334 | } else if (rrow[DB_type][0] == 'V') { | ||
2335 | BIO_printf(bio_err, "%s=Valid (%c)\n", | ||
2336 | row[DB_serial], rrow[DB_type][0]); | ||
2337 | goto err; | ||
2338 | } else if (rrow[DB_type][0] == 'R') { | ||
2339 | BIO_printf(bio_err, "%s=Revoked (%c)\n", | ||
2340 | row[DB_serial], rrow[DB_type][0]); | ||
2341 | goto err; | ||
2342 | } else if (rrow[DB_type][0] == 'E') { | ||
2343 | BIO_printf(bio_err, "%s=Expired (%c)\n", | ||
2344 | row[DB_serial], rrow[DB_type][0]); | ||
2345 | goto err; | ||
2346 | } else if (rrow[DB_type][0] == 'S') { | ||
2347 | BIO_printf(bio_err, "%s=Suspended (%c)\n", | ||
2348 | row[DB_serial], rrow[DB_type][0]); | ||
2349 | goto err; | ||
2350 | } else { | ||
2351 | BIO_printf(bio_err, "%s=Unknown (%c).\n", | ||
2352 | row[DB_serial], rrow[DB_type][0]); | ||
2353 | ok = -1; | ||
2354 | } | ||
2355 | |||
2356 | err: | ||
2357 | for (i = 0; i < DB_NUMBER; i++) | ||
2358 | free(row[i]); | ||
2359 | |||
2360 | return (ok); | ||
2361 | } | ||
2362 | |||
2363 | static int | ||
2364 | do_updatedb(CA_DB * db) | ||
2365 | { | ||
2366 | ASN1_UTCTIME *a_tm = NULL; | ||
2367 | int i, cnt = 0; | ||
2368 | int db_y2k, a_y2k; /* flags = 1 if y >= 2000 */ | ||
2369 | char **rrow, *a_tm_s; | ||
2370 | |||
2371 | a_tm = ASN1_UTCTIME_new(); | ||
2372 | |||
2373 | /* get actual time and make a string */ | ||
2374 | a_tm = X509_gmtime_adj(a_tm, 0); | ||
2375 | a_tm_s = malloc(a_tm->length + 1); | ||
2376 | if (a_tm_s == NULL) { | ||
2377 | cnt = -1; | ||
2378 | goto err; | ||
2379 | } | ||
2380 | memcpy(a_tm_s, a_tm->data, a_tm->length); | ||
2381 | a_tm_s[a_tm->length] = '\0'; | ||
2382 | |||
2383 | if (strncmp(a_tm_s, "49", 2) <= 0) | ||
2384 | a_y2k = 1; | ||
2385 | else | ||
2386 | a_y2k = 0; | ||
2387 | |||
2388 | for (i = 0; i < sk_OPENSSL_PSTRING_num(db->db->data); i++) { | ||
2389 | rrow = sk_OPENSSL_PSTRING_value(db->db->data, i); | ||
2390 | |||
2391 | if (rrow[DB_type][0] == 'V') { | ||
2392 | /* ignore entries that are not valid */ | ||
2393 | if (strncmp(rrow[DB_exp_date], "49", 2) <= 0) | ||
2394 | db_y2k = 1; | ||
2395 | else | ||
2396 | db_y2k = 0; | ||
2397 | |||
2398 | if (db_y2k == a_y2k) { | ||
2399 | /* all on the same y2k side */ | ||
2400 | if (strcmp(rrow[DB_exp_date], a_tm_s) <= 0) { | ||
2401 | rrow[DB_type][0] = 'E'; | ||
2402 | rrow[DB_type][1] = '\0'; | ||
2403 | cnt++; | ||
2404 | |||
2405 | BIO_printf(bio_err, "%s=Expired\n", | ||
2406 | rrow[DB_serial]); | ||
2407 | } | ||
2408 | } else if (db_y2k < a_y2k) { | ||
2409 | rrow[DB_type][0] = 'E'; | ||
2410 | rrow[DB_type][1] = '\0'; | ||
2411 | cnt++; | ||
2412 | |||
2413 | BIO_printf(bio_err, "%s=Expired\n", | ||
2414 | rrow[DB_serial]); | ||
2415 | } | ||
2416 | } | ||
2417 | } | ||
2418 | |||
2419 | err: | ||
2420 | ASN1_UTCTIME_free(a_tm); | ||
2421 | free(a_tm_s); | ||
2422 | |||
2423 | return (cnt); | ||
2424 | } | ||
2425 | |||
2426 | static const char *crl_reasons[] = { | ||
2427 | /* CRL reason strings */ | ||
2428 | "unspecified", | ||
2429 | "keyCompromise", | ||
2430 | "CACompromise", | ||
2431 | "affiliationChanged", | ||
2432 | "superseded", | ||
2433 | "cessationOfOperation", | ||
2434 | "certificateHold", | ||
2435 | "removeFromCRL", | ||
2436 | /* Additional pseudo reasons */ | ||
2437 | "holdInstruction", | ||
2438 | "keyTime", | ||
2439 | "CAkeyTime" | ||
2440 | }; | ||
2441 | |||
2442 | #define NUM_REASONS (sizeof(crl_reasons) / sizeof(char *)) | ||
2443 | |||
2444 | /* Given revocation information convert to a DB string. | ||
2445 | * The format of the string is: | ||
2446 | * revtime[,reason,extra]. Where 'revtime' is the | ||
2447 | * revocation time (the current time). 'reason' is the | ||
2448 | * optional CRL reason and 'extra' is any additional | ||
2449 | * argument | ||
2450 | */ | ||
2451 | |||
2452 | char * | ||
2453 | make_revocation_str(int rev_type, char *rev_arg) | ||
2454 | { | ||
2455 | char *other = NULL, *str; | ||
2456 | const char *reason = NULL; | ||
2457 | ASN1_OBJECT *otmp; | ||
2458 | ASN1_UTCTIME *revtm = NULL; | ||
2459 | int i; | ||
2460 | switch (rev_type) { | ||
2461 | case REV_NONE: | ||
2462 | break; | ||
2463 | |||
2464 | case REV_CRL_REASON: | ||
2465 | for (i = 0; i < 8; i++) { | ||
2466 | if (!strcasecmp(rev_arg, crl_reasons[i])) { | ||
2467 | reason = crl_reasons[i]; | ||
2468 | break; | ||
2469 | } | ||
2470 | } | ||
2471 | if (reason == NULL) { | ||
2472 | BIO_printf(bio_err, "Unknown CRL reason %s\n", rev_arg); | ||
2473 | return NULL; | ||
2474 | } | ||
2475 | break; | ||
2476 | |||
2477 | case REV_HOLD: | ||
2478 | /* Argument is an OID */ | ||
2479 | |||
2480 | otmp = OBJ_txt2obj(rev_arg, 0); | ||
2481 | ASN1_OBJECT_free(otmp); | ||
2482 | |||
2483 | if (otmp == NULL) { | ||
2484 | BIO_printf(bio_err, | ||
2485 | "Invalid object identifier %s\n", rev_arg); | ||
2486 | return NULL; | ||
2487 | } | ||
2488 | reason = "holdInstruction"; | ||
2489 | other = rev_arg; | ||
2490 | break; | ||
2491 | |||
2492 | case REV_KEY_COMPROMISE: | ||
2493 | case REV_CA_COMPROMISE: | ||
2494 | |||
2495 | /* Argument is the key compromise time */ | ||
2496 | if (!ASN1_GENERALIZEDTIME_set_string(NULL, rev_arg)) { | ||
2497 | BIO_printf(bio_err, | ||
2498 | "Invalid time format %s. Need YYYYMMDDHHMMSSZ\n", | ||
2499 | rev_arg); | ||
2500 | return NULL; | ||
2501 | } | ||
2502 | other = rev_arg; | ||
2503 | if (rev_type == REV_KEY_COMPROMISE) | ||
2504 | reason = "keyTime"; | ||
2505 | else | ||
2506 | reason = "CAkeyTime"; | ||
2507 | |||
2508 | break; | ||
2509 | |||
2510 | } | ||
2511 | |||
2512 | revtm = X509_gmtime_adj(NULL, 0); | ||
2513 | if (asprintf(&str, "%s%s%s%s%s", revtm->data, | ||
2514 | reason ? "," : "", reason ? reason : "", | ||
2515 | other ? "," : "", other ? other : "") == -1) | ||
2516 | str = NULL; | ||
2517 | ASN1_UTCTIME_free(revtm); | ||
2518 | return str; | ||
2519 | } | ||
2520 | |||
2521 | /* Convert revocation field to X509_REVOKED entry | ||
2522 | * return code: | ||
2523 | * 0 error | ||
2524 | * 1 OK | ||
2525 | * 2 OK and some extensions added (i.e. V2 CRL) | ||
2526 | */ | ||
2527 | |||
2528 | int | ||
2529 | make_revoked(X509_REVOKED * rev, const char *str) | ||
2530 | { | ||
2531 | char *tmp = NULL; | ||
2532 | int reason_code = -1; | ||
2533 | int i, ret = 0; | ||
2534 | ASN1_OBJECT *hold = NULL; | ||
2535 | ASN1_GENERALIZEDTIME *comp_time = NULL; | ||
2536 | ASN1_ENUMERATED *rtmp = NULL; | ||
2537 | |||
2538 | ASN1_TIME *revDate = NULL; | ||
2539 | |||
2540 | i = unpack_revinfo(&revDate, &reason_code, &hold, &comp_time, str); | ||
2541 | |||
2542 | if (i == 0) | ||
2543 | goto err; | ||
2544 | |||
2545 | if (rev && !X509_REVOKED_set_revocationDate(rev, revDate)) | ||
2546 | goto err; | ||
2547 | |||
2548 | if (rev && (reason_code != OCSP_REVOKED_STATUS_NOSTATUS)) { | ||
2549 | rtmp = ASN1_ENUMERATED_new(); | ||
2550 | if (!rtmp || !ASN1_ENUMERATED_set(rtmp, reason_code)) | ||
2551 | goto err; | ||
2552 | if (!X509_REVOKED_add1_ext_i2d(rev, NID_crl_reason, rtmp, 0, 0)) | ||
2553 | goto err; | ||
2554 | } | ||
2555 | if (rev && comp_time) { | ||
2556 | if (!X509_REVOKED_add1_ext_i2d(rev, NID_invalidity_date, | ||
2557 | comp_time, 0, 0)) | ||
2558 | goto err; | ||
2559 | } | ||
2560 | if (rev && hold) { | ||
2561 | if (!X509_REVOKED_add1_ext_i2d(rev, NID_hold_instruction_code, | ||
2562 | hold, 0, 0)) | ||
2563 | goto err; | ||
2564 | } | ||
2565 | if (reason_code != OCSP_REVOKED_STATUS_NOSTATUS) | ||
2566 | ret = 2; | ||
2567 | else | ||
2568 | ret = 1; | ||
2569 | |||
2570 | err: | ||
2571 | free(tmp); | ||
2572 | |||
2573 | ASN1_OBJECT_free(hold); | ||
2574 | ASN1_GENERALIZEDTIME_free(comp_time); | ||
2575 | ASN1_ENUMERATED_free(rtmp); | ||
2576 | ASN1_TIME_free(revDate); | ||
2577 | |||
2578 | return ret; | ||
2579 | } | ||
2580 | |||
2581 | int | ||
2582 | old_entry_print(BIO * bp, ASN1_OBJECT * obj, ASN1_STRING * str) | ||
2583 | { | ||
2584 | char buf[25], *pbuf, *p; | ||
2585 | int j; | ||
2586 | |||
2587 | j = i2a_ASN1_OBJECT(bp, obj); | ||
2588 | pbuf = buf; | ||
2589 | for (j = 22 - j; j > 0; j--) | ||
2590 | *(pbuf++) = ' '; | ||
2591 | *(pbuf++) = ':'; | ||
2592 | *(pbuf++) = '\0'; | ||
2593 | BIO_puts(bp, buf); | ||
2594 | |||
2595 | if (str->type == V_ASN1_PRINTABLESTRING) | ||
2596 | BIO_printf(bp, "PRINTABLE:'"); | ||
2597 | else if (str->type == V_ASN1_T61STRING) | ||
2598 | BIO_printf(bp, "T61STRING:'"); | ||
2599 | else if (str->type == V_ASN1_IA5STRING) | ||
2600 | BIO_printf(bp, "IA5STRING:'"); | ||
2601 | else if (str->type == V_ASN1_UNIVERSALSTRING) | ||
2602 | BIO_printf(bp, "UNIVERSALSTRING:'"); | ||
2603 | else | ||
2604 | BIO_printf(bp, "ASN.1 %2d:'", str->type); | ||
2605 | |||
2606 | p = (char *) str->data; | ||
2607 | for (j = str->length; j > 0; j--) { | ||
2608 | if ((*p >= ' ') && (*p <= '~')) | ||
2609 | BIO_printf(bp, "%c", *p); | ||
2610 | else if (*p & 0x80) | ||
2611 | BIO_printf(bp, "\\0x%02X", *p); | ||
2612 | else if ((unsigned char) *p == 0xf7) | ||
2613 | BIO_printf(bp, "^?"); | ||
2614 | else | ||
2615 | BIO_printf(bp, "^%c", *p + '@'); | ||
2616 | p++; | ||
2617 | } | ||
2618 | BIO_printf(bp, "'\n"); | ||
2619 | return 1; | ||
2620 | } | ||
2621 | |||
2622 | int | ||
2623 | unpack_revinfo(ASN1_TIME ** prevtm, int *preason, ASN1_OBJECT ** phold, | ||
2624 | ASN1_GENERALIZEDTIME ** pinvtm, const char *str) | ||
2625 | { | ||
2626 | char *tmp = NULL; | ||
2627 | char *rtime_str, *reason_str = NULL, *arg_str = NULL, *p; | ||
2628 | int reason_code = -1; | ||
2629 | int ret = 0; | ||
2630 | unsigned int i; | ||
2631 | ASN1_OBJECT *hold = NULL; | ||
2632 | ASN1_GENERALIZEDTIME *comp_time = NULL; | ||
2633 | |||
2634 | if ((tmp = strdup(str)) == NULL) { | ||
2635 | BIO_printf(bio_err, "malloc failed\n"); | ||
2636 | goto err; | ||
2637 | } | ||
2638 | p = strchr(tmp, ','); | ||
2639 | rtime_str = tmp; | ||
2640 | |||
2641 | if (p) { | ||
2642 | *p = '\0'; | ||
2643 | p++; | ||
2644 | reason_str = p; | ||
2645 | p = strchr(p, ','); | ||
2646 | if (p) { | ||
2647 | *p = '\0'; | ||
2648 | arg_str = p + 1; | ||
2649 | } | ||
2650 | } | ||
2651 | if (prevtm) { | ||
2652 | *prevtm = ASN1_UTCTIME_new(); | ||
2653 | if (!ASN1_UTCTIME_set_string(*prevtm, rtime_str)) { | ||
2654 | BIO_printf(bio_err, "invalid revocation date %s\n", | ||
2655 | rtime_str); | ||
2656 | goto err; | ||
2657 | } | ||
2658 | } | ||
2659 | if (reason_str) { | ||
2660 | for (i = 0; i < NUM_REASONS; i++) { | ||
2661 | if (!strcasecmp(reason_str, crl_reasons[i])) { | ||
2662 | reason_code = i; | ||
2663 | break; | ||
2664 | } | ||
2665 | } | ||
2666 | if (reason_code == OCSP_REVOKED_STATUS_NOSTATUS) { | ||
2667 | BIO_printf(bio_err, "invalid reason code %s\n", | ||
2668 | reason_str); | ||
2669 | goto err; | ||
2670 | } | ||
2671 | if (reason_code == 7) | ||
2672 | reason_code = OCSP_REVOKED_STATUS_REMOVEFROMCRL; | ||
2673 | else if (reason_code == 8) { /* Hold instruction */ | ||
2674 | if (!arg_str) { | ||
2675 | BIO_printf(bio_err, | ||
2676 | "missing hold instruction\n"); | ||
2677 | goto err; | ||
2678 | } | ||
2679 | reason_code = OCSP_REVOKED_STATUS_CERTIFICATEHOLD; | ||
2680 | hold = OBJ_txt2obj(arg_str, 0); | ||
2681 | |||
2682 | if (!hold) { | ||
2683 | BIO_printf(bio_err, | ||
2684 | "invalid object identifier %s\n", arg_str); | ||
2685 | goto err; | ||
2686 | } | ||
2687 | if (phold) | ||
2688 | *phold = hold; | ||
2689 | } else if ((reason_code == 9) || (reason_code == 10)) { | ||
2690 | if (!arg_str) { | ||
2691 | BIO_printf(bio_err, | ||
2692 | "missing compromised time\n"); | ||
2693 | goto err; | ||
2694 | } | ||
2695 | comp_time = ASN1_GENERALIZEDTIME_new(); | ||
2696 | if (!ASN1_GENERALIZEDTIME_set_string(comp_time, | ||
2697 | arg_str)) { | ||
2698 | BIO_printf(bio_err, | ||
2699 | "invalid compromised time %s\n", arg_str); | ||
2700 | goto err; | ||
2701 | } | ||
2702 | if (reason_code == 9) | ||
2703 | reason_code = OCSP_REVOKED_STATUS_KEYCOMPROMISE; | ||
2704 | else | ||
2705 | reason_code = OCSP_REVOKED_STATUS_CACOMPROMISE; | ||
2706 | } | ||
2707 | } | ||
2708 | if (preason) | ||
2709 | *preason = reason_code; | ||
2710 | if (pinvtm) | ||
2711 | *pinvtm = comp_time; | ||
2712 | else | ||
2713 | ASN1_GENERALIZEDTIME_free(comp_time); | ||
2714 | |||
2715 | ret = 1; | ||
2716 | |||
2717 | err: | ||
2718 | free(tmp); | ||
2719 | |||
2720 | if (!phold) | ||
2721 | ASN1_OBJECT_free(hold); | ||
2722 | if (!pinvtm) | ||
2723 | ASN1_GENERALIZEDTIME_free(comp_time); | ||
2724 | |||
2725 | return ret; | ||
2726 | } | ||
2727 | |||
2728 | static char * | ||
2729 | bin2hex(unsigned char * data, size_t len) | ||
2730 | { | ||
2731 | char *ret = NULL; | ||
2732 | char hex[] = "0123456789ABCDEF"; | ||
2733 | int i; | ||
2734 | |||
2735 | if ((ret = malloc(len * 2 + 1))) { | ||
2736 | for (i = 0; i < len; i++) { | ||
2737 | ret[i * 2 + 0] = hex[data[i] >> 4]; | ||
2738 | ret[i * 2 + 1] = hex[data[i] & 0x0F]; | ||
2739 | } | ||
2740 | ret[len * 2] = '\0'; | ||
2741 | } | ||
2742 | return ret; | ||
2743 | } | ||
diff --git a/src/usr.bin/openssl/ciphers.c b/src/usr.bin/openssl/ciphers.c new file mode 100644 index 0000000000..bf17f71c06 --- /dev/null +++ b/src/usr.bin/openssl/ciphers.c | |||
@@ -0,0 +1,194 @@ | |||
1 | /* $OpenBSD: ciphers.c,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
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 | |||
63 | #include "apps.h" | ||
64 | |||
65 | #include <openssl/err.h> | ||
66 | #include <openssl/ssl.h> | ||
67 | |||
68 | static const char *ciphers_usage[] = { | ||
69 | "usage: ciphers args\n", | ||
70 | " -v - verbose mode, a textual listing of the SSL/TLS ciphers in OpenSSL\n", | ||
71 | " -V - even more verbose\n", | ||
72 | " -ssl3 - SSL3 mode\n", | ||
73 | " -tls1 - TLS1 mode\n", | ||
74 | NULL | ||
75 | }; | ||
76 | |||
77 | int ciphers_main(int, char **); | ||
78 | |||
79 | int | ||
80 | ciphers_main(int argc, char **argv) | ||
81 | { | ||
82 | int ret = 1, i; | ||
83 | int verbose = 0, Verbose = 0; | ||
84 | const char **pp; | ||
85 | const char *p; | ||
86 | int badops = 0; | ||
87 | SSL_CTX *ctx = NULL; | ||
88 | SSL *ssl = NULL; | ||
89 | char *ciphers = NULL; | ||
90 | const SSL_METHOD *meth = NULL; | ||
91 | STACK_OF(SSL_CIPHER) * sk; | ||
92 | BIO *STDout = NULL; | ||
93 | char *desc; | ||
94 | |||
95 | meth = SSLv3_server_method(); | ||
96 | |||
97 | STDout = BIO_new_fp(stdout, BIO_NOCLOSE); | ||
98 | |||
99 | argc--; | ||
100 | argv++; | ||
101 | while (argc >= 1) { | ||
102 | if (strcmp(*argv, "-v") == 0) | ||
103 | verbose = 1; | ||
104 | else if (strcmp(*argv, "-V") == 0) | ||
105 | verbose = Verbose = 1; | ||
106 | else if (strcmp(*argv, "-ssl3") == 0) | ||
107 | meth = SSLv3_client_method(); | ||
108 | else if (strcmp(*argv, "-tls1") == 0) | ||
109 | meth = TLSv1_client_method(); | ||
110 | else if ((strncmp(*argv, "-h", 2) == 0) || | ||
111 | (strcmp(*argv, "-?") == 0)) { | ||
112 | badops = 1; | ||
113 | break; | ||
114 | } else { | ||
115 | ciphers = *argv; | ||
116 | } | ||
117 | argc--; | ||
118 | argv++; | ||
119 | } | ||
120 | |||
121 | if (badops) { | ||
122 | for (pp = ciphers_usage; (*pp != NULL); pp++) | ||
123 | BIO_printf(bio_err, "%s", *pp); | ||
124 | goto end; | ||
125 | } | ||
126 | |||
127 | ctx = SSL_CTX_new(meth); | ||
128 | if (ctx == NULL) | ||
129 | goto err; | ||
130 | if (ciphers != NULL) { | ||
131 | if (!SSL_CTX_set_cipher_list(ctx, ciphers)) { | ||
132 | BIO_printf(bio_err, "Error in cipher list\n"); | ||
133 | goto err; | ||
134 | } | ||
135 | } | ||
136 | ssl = SSL_new(ctx); | ||
137 | if (ssl == NULL) | ||
138 | goto err; | ||
139 | |||
140 | if (!verbose) { | ||
141 | for (i = 0; ; i++) { | ||
142 | p = SSL_get_cipher_list(ssl, i); | ||
143 | if (p == NULL) | ||
144 | break; | ||
145 | if (i != 0) | ||
146 | BIO_printf(STDout, ":"); | ||
147 | BIO_printf(STDout, "%s", p); | ||
148 | } | ||
149 | BIO_printf(STDout, "\n"); | ||
150 | } else { /* verbose */ | ||
151 | sk = SSL_get_ciphers(ssl); | ||
152 | |||
153 | for (i = 0; i < sk_SSL_CIPHER_num(sk); i++) { | ||
154 | SSL_CIPHER *c; | ||
155 | |||
156 | c = sk_SSL_CIPHER_value(sk, i); | ||
157 | |||
158 | if (Verbose) { | ||
159 | unsigned long id = SSL_CIPHER_get_id(c); | ||
160 | int id0 = (int) (id >> 24); | ||
161 | int id1 = (int) ((id >> 16) & 0xffL); | ||
162 | int id2 = (int) ((id >> 8) & 0xffL); | ||
163 | int id3 = (int) (id & 0xffL); | ||
164 | |||
165 | if ((id & 0xff000000L) == 0x02000000L) | ||
166 | BIO_printf(STDout, " 0x%02X,0x%02X,0x%02X - ", id1, id2, id3); /* SSL2 cipher */ | ||
167 | else if ((id & 0xff000000L) == 0x03000000L) | ||
168 | BIO_printf(STDout, " 0x%02X,0x%02X - ", id2, id3); /* SSL3 cipher */ | ||
169 | else | ||
170 | BIO_printf(STDout, "0x%02X,0x%02X,0x%02X,0x%02X - ", id0, id1, id2, id3); /* whatever */ | ||
171 | } | ||
172 | desc = SSL_CIPHER_description(c, NULL, 0); | ||
173 | BIO_puts(STDout, desc); | ||
174 | if (strcmp(desc, "OPENSSL_malloc Error") != 0) | ||
175 | free(desc); | ||
176 | } | ||
177 | } | ||
178 | |||
179 | ret = 0; | ||
180 | if (0) { | ||
181 | err: | ||
182 | ERR_print_errors(bio_err); | ||
183 | } | ||
184 | |||
185 | end: | ||
186 | if (ctx != NULL) | ||
187 | SSL_CTX_free(ctx); | ||
188 | if (ssl != NULL) | ||
189 | SSL_free(ssl); | ||
190 | if (STDout != NULL) | ||
191 | BIO_free_all(STDout); | ||
192 | |||
193 | return (ret); | ||
194 | } | ||
diff --git a/src/usr.bin/openssl/cms.c b/src/usr.bin/openssl/cms.c new file mode 100644 index 0000000000..21d27adad1 --- /dev/null +++ b/src/usr.bin/openssl/cms.c | |||
@@ -0,0 +1,1154 @@ | |||
1 | /* $OpenBSD: cms.c,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
2 | /* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL | ||
3 | * project. | ||
4 | */ | ||
5 | /* ==================================================================== | ||
6 | * Copyright (c) 2008 The OpenSSL Project. All rights reserved. | ||
7 | * | ||
8 | * Redistribution and use in source and binary forms, with or without | ||
9 | * modification, are permitted provided that the following conditions | ||
10 | * are met: | ||
11 | * | ||
12 | * 1. Redistributions of source code must retain the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer. | ||
14 | * | ||
15 | * 2. Redistributions in binary form must reproduce the above copyright | ||
16 | * notice, this list of conditions and the following disclaimer in | ||
17 | * the documentation and/or other materials provided with the | ||
18 | * distribution. | ||
19 | * | ||
20 | * 3. All advertising materials mentioning features or use of this | ||
21 | * software must display the following acknowledgment: | ||
22 | * "This product includes software developed by the OpenSSL Project | ||
23 | * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" | ||
24 | * | ||
25 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
26 | * endorse or promote products derived from this software without | ||
27 | * prior written permission. For written permission, please contact | ||
28 | * licensing@OpenSSL.org. | ||
29 | * | ||
30 | * 5. Products derived from this software may not be called "OpenSSL" | ||
31 | * nor may "OpenSSL" appear in their names without prior written | ||
32 | * permission of the OpenSSL Project. | ||
33 | * | ||
34 | * 6. Redistributions of any form whatsoever must retain the following | ||
35 | * acknowledgment: | ||
36 | * "This product includes software developed by the OpenSSL Project | ||
37 | * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" | ||
38 | * | ||
39 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
40 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
41 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
42 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
43 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
44 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
45 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
46 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
47 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
48 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
49 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
50 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
51 | * ==================================================================== | ||
52 | */ | ||
53 | |||
54 | /* CMS utility function */ | ||
55 | |||
56 | #include <stdio.h> | ||
57 | #include <string.h> | ||
58 | |||
59 | #include "apps.h" | ||
60 | |||
61 | #ifndef OPENSSL_NO_CMS | ||
62 | |||
63 | #include <openssl/cms.h> | ||
64 | #include <openssl/crypto.h> | ||
65 | #include <openssl/err.h> | ||
66 | #include <openssl/pem.h> | ||
67 | #include <openssl/x509_vfy.h> | ||
68 | #include <openssl/x509v3.h> | ||
69 | |||
70 | static int save_certs(char *signerfile, STACK_OF(X509) * signers); | ||
71 | static int cms_cb(int ok, X509_STORE_CTX * ctx); | ||
72 | static void receipt_request_print(BIO * out, CMS_ContentInfo * cms); | ||
73 | static CMS_ReceiptRequest * make_receipt_request( | ||
74 | STACK_OF(OPENSSL_STRING) * rr_to, int rr_allorfirst, | ||
75 | STACK_OF(OPENSSL_STRING) * rr_from); | ||
76 | |||
77 | #define SMIME_OP 0x10 | ||
78 | #define SMIME_IP 0x20 | ||
79 | #define SMIME_SIGNERS 0x40 | ||
80 | #define SMIME_ENCRYPT (1 | SMIME_OP) | ||
81 | #define SMIME_DECRYPT (2 | SMIME_IP) | ||
82 | #define SMIME_SIGN (3 | SMIME_OP | SMIME_SIGNERS) | ||
83 | #define SMIME_VERIFY (4 | SMIME_IP) | ||
84 | #define SMIME_CMSOUT (5 | SMIME_IP | SMIME_OP) | ||
85 | #define SMIME_RESIGN (6 | SMIME_IP | SMIME_OP | SMIME_SIGNERS) | ||
86 | #define SMIME_DATAOUT (7 | SMIME_IP) | ||
87 | #define SMIME_DATA_CREATE (8 | SMIME_OP) | ||
88 | #define SMIME_DIGEST_VERIFY (9 | SMIME_IP) | ||
89 | #define SMIME_DIGEST_CREATE (10 | SMIME_OP) | ||
90 | #define SMIME_UNCOMPRESS (11 | SMIME_IP) | ||
91 | #define SMIME_COMPRESS (12 | SMIME_OP) | ||
92 | #define SMIME_ENCRYPTED_DECRYPT (13 | SMIME_IP) | ||
93 | #define SMIME_ENCRYPTED_ENCRYPT (14 | SMIME_OP) | ||
94 | #define SMIME_SIGN_RECEIPT (15 | SMIME_IP | SMIME_OP) | ||
95 | #define SMIME_VERIFY_RECEIPT (16 | SMIME_IP) | ||
96 | |||
97 | int verify_err = 0; | ||
98 | |||
99 | int cms_main(int, char **); | ||
100 | |||
101 | int | ||
102 | cms_main(int argc, char **argv) | ||
103 | { | ||
104 | ENGINE *e = NULL; | ||
105 | int operation = 0; | ||
106 | int ret = 0; | ||
107 | char **args; | ||
108 | const char *inmode = "r", *outmode = "w"; | ||
109 | char *infile = NULL, *outfile = NULL, *rctfile = NULL; | ||
110 | char *signerfile = NULL, *recipfile = NULL; | ||
111 | STACK_OF(OPENSSL_STRING) * sksigners = NULL, *skkeys = NULL; | ||
112 | char *certfile = NULL, *keyfile = NULL, *contfile = NULL; | ||
113 | char *certsoutfile = NULL; | ||
114 | const EVP_CIPHER *cipher = NULL; | ||
115 | CMS_ContentInfo *cms = NULL, *rcms = NULL; | ||
116 | X509_STORE *store = NULL; | ||
117 | X509 *cert = NULL, *recip = NULL, *signer = NULL; | ||
118 | EVP_PKEY *key = NULL; | ||
119 | STACK_OF(X509) * encerts = NULL, *other = NULL; | ||
120 | BIO *in = NULL, *out = NULL, *indata = NULL, *rctin = NULL; | ||
121 | int badarg = 0; | ||
122 | int flags = CMS_DETACHED, noout = 0, print = 0; | ||
123 | int verify_retcode = 0; | ||
124 | int rr_print = 0, rr_allorfirst = -1; | ||
125 | STACK_OF(OPENSSL_STRING) * rr_to = NULL, *rr_from = NULL; | ||
126 | CMS_ReceiptRequest *rr = NULL; | ||
127 | char *to = NULL, *from = NULL, *subject = NULL; | ||
128 | char *CAfile = NULL, *CApath = NULL; | ||
129 | char *passargin = NULL, *passin = NULL; | ||
130 | const EVP_MD *sign_md = NULL; | ||
131 | int informat = FORMAT_SMIME, outformat = FORMAT_SMIME; | ||
132 | int rctformat = FORMAT_SMIME, keyform = FORMAT_PEM; | ||
133 | #ifndef OPENSSL_NO_ENGINE | ||
134 | char *engine = NULL; | ||
135 | #endif | ||
136 | unsigned char *secret_key = NULL, *secret_keyid = NULL; | ||
137 | unsigned char *pwri_pass = NULL, *pwri_tmp = NULL; | ||
138 | size_t secret_keylen = 0, secret_keyidlen = 0; | ||
139 | |||
140 | ASN1_OBJECT *econtent_type = NULL; | ||
141 | |||
142 | X509_VERIFY_PARAM *vpm = NULL; | ||
143 | |||
144 | args = argv + 1; | ||
145 | ret = 1; | ||
146 | |||
147 | while (!badarg && *args && *args[0] == '-') { | ||
148 | if (!strcmp(*args, "-encrypt")) | ||
149 | operation = SMIME_ENCRYPT; | ||
150 | else if (!strcmp(*args, "-decrypt")) | ||
151 | operation = SMIME_DECRYPT; | ||
152 | else if (!strcmp(*args, "-sign")) | ||
153 | operation = SMIME_SIGN; | ||
154 | else if (!strcmp(*args, "-sign_receipt")) | ||
155 | operation = SMIME_SIGN_RECEIPT; | ||
156 | else if (!strcmp(*args, "-resign")) | ||
157 | operation = SMIME_RESIGN; | ||
158 | else if (!strcmp(*args, "-verify")) | ||
159 | operation = SMIME_VERIFY; | ||
160 | else if (!strcmp(*args, "-verify_retcode")) | ||
161 | verify_retcode = 1; | ||
162 | else if (!strcmp(*args, "-verify_receipt")) { | ||
163 | operation = SMIME_VERIFY_RECEIPT; | ||
164 | if (!args[1]) | ||
165 | goto argerr; | ||
166 | args++; | ||
167 | rctfile = *args; | ||
168 | } else if (!strcmp(*args, "-cmsout")) | ||
169 | operation = SMIME_CMSOUT; | ||
170 | else if (!strcmp(*args, "-data_out")) | ||
171 | operation = SMIME_DATAOUT; | ||
172 | else if (!strcmp(*args, "-data_create")) | ||
173 | operation = SMIME_DATA_CREATE; | ||
174 | else if (!strcmp(*args, "-digest_verify")) | ||
175 | operation = SMIME_DIGEST_VERIFY; | ||
176 | else if (!strcmp(*args, "-digest_create")) | ||
177 | operation = SMIME_DIGEST_CREATE; | ||
178 | else if (!strcmp(*args, "-compress")) | ||
179 | operation = SMIME_COMPRESS; | ||
180 | else if (!strcmp(*args, "-uncompress")) | ||
181 | operation = SMIME_UNCOMPRESS; | ||
182 | else if (!strcmp(*args, "-EncryptedData_decrypt")) | ||
183 | operation = SMIME_ENCRYPTED_DECRYPT; | ||
184 | else if (!strcmp(*args, "-EncryptedData_encrypt")) | ||
185 | operation = SMIME_ENCRYPTED_ENCRYPT; | ||
186 | #ifndef OPENSSL_NO_DES | ||
187 | else if (!strcmp(*args, "-des3")) | ||
188 | cipher = EVP_des_ede3_cbc(); | ||
189 | else if (!strcmp(*args, "-des")) | ||
190 | cipher = EVP_des_cbc(); | ||
191 | #endif | ||
192 | #ifndef OPENSSL_NO_RC2 | ||
193 | else if (!strcmp(*args, "-rc2-40")) | ||
194 | cipher = EVP_rc2_40_cbc(); | ||
195 | else if (!strcmp(*args, "-rc2-128")) | ||
196 | cipher = EVP_rc2_cbc(); | ||
197 | else if (!strcmp(*args, "-rc2-64")) | ||
198 | cipher = EVP_rc2_64_cbc(); | ||
199 | #endif | ||
200 | #ifndef OPENSSL_NO_AES | ||
201 | else if (!strcmp(*args, "-aes128")) | ||
202 | cipher = EVP_aes_128_cbc(); | ||
203 | else if (!strcmp(*args, "-aes192")) | ||
204 | cipher = EVP_aes_192_cbc(); | ||
205 | else if (!strcmp(*args, "-aes256")) | ||
206 | cipher = EVP_aes_256_cbc(); | ||
207 | #endif | ||
208 | #ifndef OPENSSL_NO_CAMELLIA | ||
209 | else if (!strcmp(*args, "-camellia128")) | ||
210 | cipher = EVP_camellia_128_cbc(); | ||
211 | else if (!strcmp(*args, "-camellia192")) | ||
212 | cipher = EVP_camellia_192_cbc(); | ||
213 | else if (!strcmp(*args, "-camellia256")) | ||
214 | cipher = EVP_camellia_256_cbc(); | ||
215 | #endif | ||
216 | else if (!strcmp(*args, "-debug_decrypt")) | ||
217 | flags |= CMS_DEBUG_DECRYPT; | ||
218 | else if (!strcmp(*args, "-text")) | ||
219 | flags |= CMS_TEXT; | ||
220 | else if (!strcmp(*args, "-nointern")) | ||
221 | flags |= CMS_NOINTERN; | ||
222 | else if (!strcmp(*args, "-noverify") || | ||
223 | !strcmp(*args, "-no_signer_cert_verify")) | ||
224 | flags |= CMS_NO_SIGNER_CERT_VERIFY; | ||
225 | else if (!strcmp(*args, "-nocerts")) | ||
226 | flags |= CMS_NOCERTS; | ||
227 | else if (!strcmp(*args, "-noattr")) | ||
228 | flags |= CMS_NOATTR; | ||
229 | else if (!strcmp(*args, "-nodetach")) | ||
230 | flags &= ~CMS_DETACHED; | ||
231 | else if (!strcmp(*args, "-nosmimecap")) | ||
232 | flags |= CMS_NOSMIMECAP; | ||
233 | else if (!strcmp(*args, "-binary")) | ||
234 | flags |= CMS_BINARY; | ||
235 | else if (!strcmp(*args, "-keyid")) | ||
236 | flags |= CMS_USE_KEYID; | ||
237 | else if (!strcmp(*args, "-nosigs")) | ||
238 | flags |= CMS_NOSIGS; | ||
239 | else if (!strcmp(*args, "-no_content_verify")) | ||
240 | flags |= CMS_NO_CONTENT_VERIFY; | ||
241 | else if (!strcmp(*args, "-no_attr_verify")) | ||
242 | flags |= CMS_NO_ATTR_VERIFY; | ||
243 | else if (!strcmp(*args, "-stream")) | ||
244 | flags |= CMS_STREAM; | ||
245 | else if (!strcmp(*args, "-indef")) | ||
246 | flags |= CMS_STREAM; | ||
247 | else if (!strcmp(*args, "-noindef")) | ||
248 | flags &= ~CMS_STREAM; | ||
249 | else if (!strcmp(*args, "-nooldmime")) | ||
250 | flags |= CMS_NOOLDMIMETYPE; | ||
251 | else if (!strcmp(*args, "-crlfeol")) | ||
252 | flags |= CMS_CRLFEOL; | ||
253 | else if (!strcmp(*args, "-noout")) | ||
254 | noout = 1; | ||
255 | else if (!strcmp(*args, "-receipt_request_print")) | ||
256 | rr_print = 1; | ||
257 | else if (!strcmp(*args, "-receipt_request_all")) | ||
258 | rr_allorfirst = 0; | ||
259 | else if (!strcmp(*args, "-receipt_request_first")) | ||
260 | rr_allorfirst = 1; | ||
261 | else if (!strcmp(*args, "-receipt_request_from")) { | ||
262 | if (!args[1]) | ||
263 | goto argerr; | ||
264 | args++; | ||
265 | if (!rr_from) | ||
266 | rr_from = sk_OPENSSL_STRING_new_null(); | ||
267 | sk_OPENSSL_STRING_push(rr_from, *args); | ||
268 | } else if (!strcmp(*args, "-receipt_request_to")) { | ||
269 | if (!args[1]) | ||
270 | goto argerr; | ||
271 | args++; | ||
272 | if (!rr_to) | ||
273 | rr_to = sk_OPENSSL_STRING_new_null(); | ||
274 | sk_OPENSSL_STRING_push(rr_to, *args); | ||
275 | } else if (!strcmp(*args, "-print")) { | ||
276 | noout = 1; | ||
277 | print = 1; | ||
278 | } else if (!strcmp(*args, "-secretkey")) { | ||
279 | long ltmp; | ||
280 | if (!args[1]) | ||
281 | goto argerr; | ||
282 | args++; | ||
283 | secret_key = string_to_hex(*args, <mp); | ||
284 | if (!secret_key) { | ||
285 | BIO_printf(bio_err, "Invalid key %s\n", *args); | ||
286 | goto argerr; | ||
287 | } | ||
288 | secret_keylen = (size_t) ltmp; | ||
289 | } else if (!strcmp(*args, "-secretkeyid")) { | ||
290 | long ltmp; | ||
291 | if (!args[1]) | ||
292 | goto argerr; | ||
293 | args++; | ||
294 | secret_keyid = string_to_hex(*args, <mp); | ||
295 | if (!secret_keyid) { | ||
296 | BIO_printf(bio_err, "Invalid id %s\n", *args); | ||
297 | goto argerr; | ||
298 | } | ||
299 | secret_keyidlen = (size_t) ltmp; | ||
300 | } else if (!strcmp(*args, "-pwri_password")) { | ||
301 | if (!args[1]) | ||
302 | goto argerr; | ||
303 | args++; | ||
304 | pwri_pass = (unsigned char *) *args; | ||
305 | } else if (!strcmp(*args, "-econtent_type")) { | ||
306 | if (!args[1]) | ||
307 | goto argerr; | ||
308 | args++; | ||
309 | econtent_type = OBJ_txt2obj(*args, 0); | ||
310 | if (!econtent_type) { | ||
311 | BIO_printf(bio_err, "Invalid OID %s\n", *args); | ||
312 | goto argerr; | ||
313 | } | ||
314 | } | ||
315 | #ifndef OPENSSL_NO_ENGINE | ||
316 | else if (!strcmp(*args, "-engine")) { | ||
317 | if (!args[1]) | ||
318 | goto argerr; | ||
319 | engine = *++args; | ||
320 | } | ||
321 | #endif | ||
322 | else if (!strcmp(*args, "-passin")) { | ||
323 | if (!args[1]) | ||
324 | goto argerr; | ||
325 | passargin = *++args; | ||
326 | } else if (!strcmp(*args, "-to")) { | ||
327 | if (!args[1]) | ||
328 | goto argerr; | ||
329 | to = *++args; | ||
330 | } else if (!strcmp(*args, "-from")) { | ||
331 | if (!args[1]) | ||
332 | goto argerr; | ||
333 | from = *++args; | ||
334 | } else if (!strcmp(*args, "-subject")) { | ||
335 | if (!args[1]) | ||
336 | goto argerr; | ||
337 | subject = *++args; | ||
338 | } else if (!strcmp(*args, "-signer")) { | ||
339 | if (!args[1]) | ||
340 | goto argerr; | ||
341 | /* If previous -signer argument add signer to list */ | ||
342 | |||
343 | if (signerfile) { | ||
344 | if (!sksigners) | ||
345 | sksigners = | ||
346 | sk_OPENSSL_STRING_new_null(); | ||
347 | sk_OPENSSL_STRING_push(sksigners, signerfile); | ||
348 | if (!keyfile) | ||
349 | keyfile = signerfile; | ||
350 | if (!skkeys) | ||
351 | skkeys = sk_OPENSSL_STRING_new_null(); | ||
352 | sk_OPENSSL_STRING_push(skkeys, keyfile); | ||
353 | keyfile = NULL; | ||
354 | } | ||
355 | signerfile = *++args; | ||
356 | } else if (!strcmp(*args, "-recip")) { | ||
357 | if (!args[1]) | ||
358 | goto argerr; | ||
359 | recipfile = *++args; | ||
360 | } else if (!strcmp(*args, "-certsout")) { | ||
361 | if (!args[1]) | ||
362 | goto argerr; | ||
363 | certsoutfile = *++args; | ||
364 | } else if (!strcmp(*args, "-md")) { | ||
365 | if (!args[1]) | ||
366 | goto argerr; | ||
367 | sign_md = EVP_get_digestbyname(*++args); | ||
368 | if (sign_md == NULL) { | ||
369 | BIO_printf(bio_err, "Unknown digest %s\n", | ||
370 | *args); | ||
371 | goto argerr; | ||
372 | } | ||
373 | } else if (!strcmp(*args, "-inkey")) { | ||
374 | if (!args[1]) | ||
375 | goto argerr; | ||
376 | /* If previous -inkey arument add signer to list */ | ||
377 | if (keyfile) { | ||
378 | if (!signerfile) { | ||
379 | BIO_puts(bio_err, | ||
380 | "Illegal -inkey without -signer\n"); | ||
381 | goto argerr; | ||
382 | } | ||
383 | if (!sksigners) | ||
384 | sksigners = | ||
385 | sk_OPENSSL_STRING_new_null(); | ||
386 | sk_OPENSSL_STRING_push(sksigners, signerfile); | ||
387 | signerfile = NULL; | ||
388 | if (!skkeys) | ||
389 | skkeys = sk_OPENSSL_STRING_new_null(); | ||
390 | sk_OPENSSL_STRING_push(skkeys, keyfile); | ||
391 | } | ||
392 | keyfile = *++args; | ||
393 | } else if (!strcmp(*args, "-keyform")) { | ||
394 | if (!args[1]) | ||
395 | goto argerr; | ||
396 | keyform = str2fmt(*++args); | ||
397 | } else if (!strcmp(*args, "-rctform")) { | ||
398 | if (!args[1]) | ||
399 | goto argerr; | ||
400 | rctformat = str2fmt(*++args); | ||
401 | } else if (!strcmp(*args, "-certfile")) { | ||
402 | if (!args[1]) | ||
403 | goto argerr; | ||
404 | certfile = *++args; | ||
405 | } else if (!strcmp(*args, "-CAfile")) { | ||
406 | if (!args[1]) | ||
407 | goto argerr; | ||
408 | CAfile = *++args; | ||
409 | } else if (!strcmp(*args, "-CApath")) { | ||
410 | if (!args[1]) | ||
411 | goto argerr; | ||
412 | CApath = *++args; | ||
413 | } else if (!strcmp(*args, "-in")) { | ||
414 | if (!args[1]) | ||
415 | goto argerr; | ||
416 | infile = *++args; | ||
417 | } else if (!strcmp(*args, "-inform")) { | ||
418 | if (!args[1]) | ||
419 | goto argerr; | ||
420 | informat = str2fmt(*++args); | ||
421 | } else if (!strcmp(*args, "-outform")) { | ||
422 | if (!args[1]) | ||
423 | goto argerr; | ||
424 | outformat = str2fmt(*++args); | ||
425 | } else if (!strcmp(*args, "-out")) { | ||
426 | if (!args[1]) | ||
427 | goto argerr; | ||
428 | outfile = *++args; | ||
429 | } else if (!strcmp(*args, "-content")) { | ||
430 | if (!args[1]) | ||
431 | goto argerr; | ||
432 | contfile = *++args; | ||
433 | } else if (args_verify(&args, NULL, &badarg, bio_err, &vpm)) | ||
434 | continue; | ||
435 | else if ((cipher = EVP_get_cipherbyname(*args + 1)) == NULL) | ||
436 | badarg = 1; | ||
437 | args++; | ||
438 | } | ||
439 | |||
440 | if (((rr_allorfirst != -1) || rr_from) && !rr_to) { | ||
441 | BIO_puts(bio_err, "No Signed Receipts Recipients\n"); | ||
442 | goto argerr; | ||
443 | } | ||
444 | if (!(operation & SMIME_SIGNERS) && (rr_to || rr_from)) { | ||
445 | BIO_puts(bio_err, "Signed receipts only allowed with -sign\n"); | ||
446 | goto argerr; | ||
447 | } | ||
448 | if (!(operation & SMIME_SIGNERS) && (skkeys || sksigners)) { | ||
449 | BIO_puts(bio_err, "Multiple signers or keys not allowed\n"); | ||
450 | goto argerr; | ||
451 | } | ||
452 | if (operation & SMIME_SIGNERS) { | ||
453 | if (keyfile && !signerfile) { | ||
454 | BIO_puts(bio_err, "Illegal -inkey without -signer\n"); | ||
455 | goto argerr; | ||
456 | } | ||
457 | /* Check to see if any final signer needs to be appended */ | ||
458 | if (signerfile) { | ||
459 | if (!sksigners) | ||
460 | sksigners = sk_OPENSSL_STRING_new_null(); | ||
461 | sk_OPENSSL_STRING_push(sksigners, signerfile); | ||
462 | if (!skkeys) | ||
463 | skkeys = sk_OPENSSL_STRING_new_null(); | ||
464 | if (!keyfile) | ||
465 | keyfile = signerfile; | ||
466 | sk_OPENSSL_STRING_push(skkeys, keyfile); | ||
467 | } | ||
468 | if (!sksigners) { | ||
469 | BIO_printf(bio_err, | ||
470 | "No signer certificate specified\n"); | ||
471 | badarg = 1; | ||
472 | } | ||
473 | signerfile = NULL; | ||
474 | keyfile = NULL; | ||
475 | } else if (operation == SMIME_DECRYPT) { | ||
476 | if (!recipfile && !keyfile && !secret_key && !pwri_pass) { | ||
477 | BIO_printf(bio_err, | ||
478 | "No recipient certificate or key specified\n"); | ||
479 | badarg = 1; | ||
480 | } | ||
481 | } else if (operation == SMIME_ENCRYPT) { | ||
482 | if (!*args && !secret_key && !pwri_pass) { | ||
483 | BIO_printf(bio_err, | ||
484 | "No recipient(s) certificate(s) specified\n"); | ||
485 | badarg = 1; | ||
486 | } | ||
487 | } else if (!operation) | ||
488 | badarg = 1; | ||
489 | |||
490 | if (badarg) { | ||
491 | argerr: | ||
492 | BIO_printf(bio_err, "Usage cms [options] cert.pem ...\n"); | ||
493 | BIO_printf(bio_err, "where options are\n"); | ||
494 | BIO_printf(bio_err, "-encrypt encrypt message\n"); | ||
495 | BIO_printf(bio_err, "-decrypt decrypt encrypted message\n"); | ||
496 | BIO_printf(bio_err, "-sign sign message\n"); | ||
497 | BIO_printf(bio_err, "-verify verify signed message\n"); | ||
498 | BIO_printf(bio_err, "-cmsout output CMS structure\n"); | ||
499 | #ifndef OPENSSL_NO_DES | ||
500 | BIO_printf(bio_err, "-des3 encrypt with triple DES\n"); | ||
501 | BIO_printf(bio_err, "-des encrypt with DES\n"); | ||
502 | #endif | ||
503 | #ifndef OPENSSL_NO_RC2 | ||
504 | BIO_printf(bio_err, "-rc2-40 encrypt with RC2-40 (default)\n"); | ||
505 | BIO_printf(bio_err, "-rc2-64 encrypt with RC2-64\n"); | ||
506 | BIO_printf(bio_err, "-rc2-128 encrypt with RC2-128\n"); | ||
507 | #endif | ||
508 | #ifndef OPENSSL_NO_AES | ||
509 | BIO_printf(bio_err, "-aes128, -aes192, -aes256\n"); | ||
510 | BIO_printf(bio_err, " encrypt PEM output with cbc aes\n"); | ||
511 | #endif | ||
512 | #ifndef OPENSSL_NO_CAMELLIA | ||
513 | BIO_printf(bio_err, "-camellia128, -camellia192, -camellia256\n"); | ||
514 | BIO_printf(bio_err, " encrypt PEM output with cbc camellia\n"); | ||
515 | #endif | ||
516 | BIO_printf(bio_err, "-nointern don't search certificates in message for signer\n"); | ||
517 | BIO_printf(bio_err, "-nosigs don't verify message signature\n"); | ||
518 | BIO_printf(bio_err, "-noverify don't verify signers certificate\n"); | ||
519 | BIO_printf(bio_err, "-nocerts don't include signers certificate when signing\n"); | ||
520 | BIO_printf(bio_err, "-nodetach use opaque signing\n"); | ||
521 | BIO_printf(bio_err, "-noattr don't include any signed attributes\n"); | ||
522 | BIO_printf(bio_err, "-binary don't translate message to text\n"); | ||
523 | BIO_printf(bio_err, "-certfile file other certificates file\n"); | ||
524 | BIO_printf(bio_err, "-certsout file certificate output file\n"); | ||
525 | BIO_printf(bio_err, "-signer file signer certificate file\n"); | ||
526 | BIO_printf(bio_err, "-recip file recipient certificate file for decryption\n"); | ||
527 | BIO_printf(bio_err, "-keyid use subject key identifier\n"); | ||
528 | BIO_printf(bio_err, "-in file input file\n"); | ||
529 | BIO_printf(bio_err, "-inform arg input format SMIME (default), PEM or DER\n"); | ||
530 | BIO_printf(bio_err, "-inkey file input private key (if not signer or recipient)\n"); | ||
531 | BIO_printf(bio_err, "-keyform arg input private key format (PEM or ENGINE)\n"); | ||
532 | BIO_printf(bio_err, "-out file output file\n"); | ||
533 | BIO_printf(bio_err, "-outform arg output format SMIME (default), PEM or DER\n"); | ||
534 | BIO_printf(bio_err, "-content file supply or override content for detached signature\n"); | ||
535 | BIO_printf(bio_err, "-to addr to address\n"); | ||
536 | BIO_printf(bio_err, "-from ad from address\n"); | ||
537 | BIO_printf(bio_err, "-subject s subject\n"); | ||
538 | BIO_printf(bio_err, "-text include or delete text MIME headers\n"); | ||
539 | BIO_printf(bio_err, "-CApath dir trusted certificates directory\n"); | ||
540 | BIO_printf(bio_err, "-CAfile file trusted certificates file\n"); | ||
541 | BIO_printf(bio_err, "-crl_check check revocation status of signer's certificate using CRLs\n"); | ||
542 | BIO_printf(bio_err, "-crl_check_all check revocation status of signer's certificate chain using CRLs\n"); | ||
543 | #ifndef OPENSSL_NO_ENGINE | ||
544 | BIO_printf(bio_err, "-engine e use engine e, possibly a hardware device.\n"); | ||
545 | #endif | ||
546 | BIO_printf(bio_err, "-passin arg input file pass phrase source\n"); | ||
547 | BIO_printf(bio_err, "cert.pem recipient certificate(s) for encryption\n"); | ||
548 | goto end; | ||
549 | } | ||
550 | #ifndef OPENSSL_NO_ENGINE | ||
551 | e = setup_engine(bio_err, engine, 0); | ||
552 | #endif | ||
553 | |||
554 | if (!app_passwd(bio_err, passargin, NULL, &passin, NULL)) { | ||
555 | BIO_printf(bio_err, "Error getting password\n"); | ||
556 | goto end; | ||
557 | } | ||
558 | ret = 2; | ||
559 | |||
560 | if (!(operation & SMIME_SIGNERS)) | ||
561 | flags &= ~CMS_DETACHED; | ||
562 | |||
563 | if (operation & SMIME_OP) { | ||
564 | if (outformat == FORMAT_ASN1) | ||
565 | outmode = "wb"; | ||
566 | } else { | ||
567 | if (flags & CMS_BINARY) | ||
568 | outmode = "wb"; | ||
569 | } | ||
570 | |||
571 | if (operation & SMIME_IP) { | ||
572 | if (informat == FORMAT_ASN1) | ||
573 | inmode = "rb"; | ||
574 | } else { | ||
575 | if (flags & CMS_BINARY) | ||
576 | inmode = "rb"; | ||
577 | } | ||
578 | |||
579 | if (operation == SMIME_ENCRYPT) { | ||
580 | if (!cipher) { | ||
581 | #ifndef OPENSSL_NO_DES | ||
582 | cipher = EVP_des_ede3_cbc(); | ||
583 | #else | ||
584 | BIO_printf(bio_err, "No cipher selected\n"); | ||
585 | goto end; | ||
586 | #endif | ||
587 | } | ||
588 | if (secret_key && !secret_keyid) { | ||
589 | BIO_printf(bio_err, "No secret key id\n"); | ||
590 | goto end; | ||
591 | } | ||
592 | if (*args) | ||
593 | encerts = sk_X509_new_null(); | ||
594 | while (*args) { | ||
595 | if (!(cert = load_cert(bio_err, *args, FORMAT_PEM, | ||
596 | NULL, e, "recipient certificate file"))) | ||
597 | goto end; | ||
598 | sk_X509_push(encerts, cert); | ||
599 | cert = NULL; | ||
600 | args++; | ||
601 | } | ||
602 | } | ||
603 | if (certfile) { | ||
604 | if (!(other = load_certs(bio_err, certfile, FORMAT_PEM, NULL, | ||
605 | e, "certificate file"))) { | ||
606 | ERR_print_errors(bio_err); | ||
607 | goto end; | ||
608 | } | ||
609 | } | ||
610 | if (recipfile && (operation == SMIME_DECRYPT)) { | ||
611 | if (!(recip = load_cert(bio_err, recipfile, FORMAT_PEM, NULL, | ||
612 | e, "recipient certificate file"))) { | ||
613 | ERR_print_errors(bio_err); | ||
614 | goto end; | ||
615 | } | ||
616 | } | ||
617 | if (operation == SMIME_SIGN_RECEIPT) { | ||
618 | if (!(signer = load_cert(bio_err, signerfile, FORMAT_PEM, NULL, | ||
619 | e, "receipt signer certificate file"))) { | ||
620 | ERR_print_errors(bio_err); | ||
621 | goto end; | ||
622 | } | ||
623 | } | ||
624 | if (operation == SMIME_DECRYPT) { | ||
625 | if (!keyfile) | ||
626 | keyfile = recipfile; | ||
627 | } else if ((operation == SMIME_SIGN) || | ||
628 | (operation == SMIME_SIGN_RECEIPT)) { | ||
629 | if (!keyfile) | ||
630 | keyfile = signerfile; | ||
631 | } else | ||
632 | keyfile = NULL; | ||
633 | |||
634 | if (keyfile) { | ||
635 | key = load_key(bio_err, keyfile, keyform, 0, passin, e, | ||
636 | "signing key file"); | ||
637 | if (!key) | ||
638 | goto end; | ||
639 | } | ||
640 | if (infile) { | ||
641 | if (!(in = BIO_new_file(infile, inmode))) { | ||
642 | BIO_printf(bio_err, | ||
643 | "Can't open input file %s\n", infile); | ||
644 | goto end; | ||
645 | } | ||
646 | } else | ||
647 | in = BIO_new_fp(stdin, BIO_NOCLOSE); | ||
648 | |||
649 | if (operation & SMIME_IP) { | ||
650 | if (informat == FORMAT_SMIME) | ||
651 | cms = SMIME_read_CMS(in, &indata); | ||
652 | else if (informat == FORMAT_PEM) | ||
653 | cms = PEM_read_bio_CMS(in, NULL, NULL, NULL); | ||
654 | else if (informat == FORMAT_ASN1) | ||
655 | cms = d2i_CMS_bio(in, NULL); | ||
656 | else { | ||
657 | BIO_printf(bio_err, "Bad input format for CMS file\n"); | ||
658 | goto end; | ||
659 | } | ||
660 | |||
661 | if (!cms) { | ||
662 | BIO_printf(bio_err, "Error reading S/MIME message\n"); | ||
663 | goto end; | ||
664 | } | ||
665 | if (contfile) { | ||
666 | BIO_free(indata); | ||
667 | if (!(indata = BIO_new_file(contfile, "rb"))) { | ||
668 | BIO_printf(bio_err, | ||
669 | "Can't read content file %s\n", contfile); | ||
670 | goto end; | ||
671 | } | ||
672 | } | ||
673 | if (certsoutfile) { | ||
674 | STACK_OF(X509) * allcerts; | ||
675 | allcerts = CMS_get1_certs(cms); | ||
676 | if (!save_certs(certsoutfile, allcerts)) { | ||
677 | BIO_printf(bio_err, | ||
678 | "Error writing certs to %s\n", | ||
679 | certsoutfile); | ||
680 | ret = 5; | ||
681 | goto end; | ||
682 | } | ||
683 | sk_X509_pop_free(allcerts, X509_free); | ||
684 | } | ||
685 | } | ||
686 | if (rctfile) { | ||
687 | char *rctmode = (rctformat == FORMAT_ASN1) ? "rb" : "r"; | ||
688 | if (!(rctin = BIO_new_file(rctfile, rctmode))) { | ||
689 | BIO_printf(bio_err, | ||
690 | "Can't open receipt file %s\n", rctfile); | ||
691 | goto end; | ||
692 | } | ||
693 | if (rctformat == FORMAT_SMIME) | ||
694 | rcms = SMIME_read_CMS(rctin, NULL); | ||
695 | else if (rctformat == FORMAT_PEM) | ||
696 | rcms = PEM_read_bio_CMS(rctin, NULL, NULL, NULL); | ||
697 | else if (rctformat == FORMAT_ASN1) | ||
698 | rcms = d2i_CMS_bio(rctin, NULL); | ||
699 | else { | ||
700 | BIO_printf(bio_err, "Bad input format for receipt\n"); | ||
701 | goto end; | ||
702 | } | ||
703 | |||
704 | if (!rcms) { | ||
705 | BIO_printf(bio_err, "Error reading receipt\n"); | ||
706 | goto end; | ||
707 | } | ||
708 | } | ||
709 | if (outfile) { | ||
710 | if (!(out = BIO_new_file(outfile, outmode))) { | ||
711 | BIO_printf(bio_err, | ||
712 | "Can't open output file %s\n", outfile); | ||
713 | goto end; | ||
714 | } | ||
715 | } else { | ||
716 | out = BIO_new_fp(stdout, BIO_NOCLOSE); | ||
717 | } | ||
718 | |||
719 | if ((operation == SMIME_VERIFY) || | ||
720 | (operation == SMIME_VERIFY_RECEIPT)) { | ||
721 | if (!(store = setup_verify(bio_err, CAfile, CApath))) | ||
722 | goto end; | ||
723 | X509_STORE_set_verify_cb(store, cms_cb); | ||
724 | if (vpm) | ||
725 | X509_STORE_set1_param(store, vpm); | ||
726 | } | ||
727 | ret = 3; | ||
728 | |||
729 | if (operation == SMIME_DATA_CREATE) { | ||
730 | cms = CMS_data_create(in, flags); | ||
731 | } else if (operation == SMIME_DIGEST_CREATE) { | ||
732 | cms = CMS_digest_create(in, sign_md, flags); | ||
733 | } else if (operation == SMIME_COMPRESS) { | ||
734 | cms = CMS_compress(in, -1, flags); | ||
735 | } else if (operation == SMIME_ENCRYPT) { | ||
736 | flags |= CMS_PARTIAL; | ||
737 | cms = CMS_encrypt(encerts, in, cipher, flags); | ||
738 | if (!cms) | ||
739 | goto end; | ||
740 | if (secret_key) { | ||
741 | if (!CMS_add0_recipient_key(cms, NID_undef, secret_key, | ||
742 | secret_keylen, secret_keyid, secret_keyidlen, | ||
743 | NULL, NULL, NULL)) | ||
744 | goto end; | ||
745 | /* NULL these because call absorbs them */ | ||
746 | secret_key = NULL; | ||
747 | secret_keyid = NULL; | ||
748 | } | ||
749 | if (pwri_pass) { | ||
750 | pwri_tmp = strdup(pwri_pass); | ||
751 | if (!pwri_tmp) | ||
752 | goto end; | ||
753 | if (!CMS_add0_recipient_password(cms, -1, NID_undef, | ||
754 | NID_undef, pwri_tmp, -1, NULL)) | ||
755 | goto end; | ||
756 | pwri_tmp = NULL; | ||
757 | } | ||
758 | if (!(flags & CMS_STREAM)) { | ||
759 | if (!CMS_final(cms, in, NULL, flags)) | ||
760 | goto end; | ||
761 | } | ||
762 | } else if (operation == SMIME_ENCRYPTED_ENCRYPT) { | ||
763 | cms = CMS_EncryptedData_encrypt(in, cipher, secret_key, | ||
764 | secret_keylen, flags); | ||
765 | |||
766 | } else if (operation == SMIME_SIGN_RECEIPT) { | ||
767 | CMS_ContentInfo *srcms = NULL; | ||
768 | STACK_OF(CMS_SignerInfo) * sis; | ||
769 | CMS_SignerInfo *si; | ||
770 | sis = CMS_get0_SignerInfos(cms); | ||
771 | if (!sis) | ||
772 | goto end; | ||
773 | si = sk_CMS_SignerInfo_value(sis, 0); | ||
774 | srcms = CMS_sign_receipt(si, signer, key, other, flags); | ||
775 | if (!srcms) | ||
776 | goto end; | ||
777 | CMS_ContentInfo_free(cms); | ||
778 | cms = srcms; | ||
779 | } else if (operation & SMIME_SIGNERS) { | ||
780 | int i; | ||
781 | /* | ||
782 | * If detached data content we enable streaming if S/MIME | ||
783 | * output format. | ||
784 | */ | ||
785 | if (operation == SMIME_SIGN) { | ||
786 | |||
787 | if (flags & CMS_DETACHED) { | ||
788 | if (outformat == FORMAT_SMIME) | ||
789 | flags |= CMS_STREAM; | ||
790 | } | ||
791 | flags |= CMS_PARTIAL; | ||
792 | cms = CMS_sign(NULL, NULL, other, in, flags); | ||
793 | if (!cms) | ||
794 | goto end; | ||
795 | if (econtent_type) | ||
796 | CMS_set1_eContentType(cms, econtent_type); | ||
797 | |||
798 | if (rr_to) { | ||
799 | rr = make_receipt_request(rr_to, rr_allorfirst, | ||
800 | rr_from); | ||
801 | if (!rr) { | ||
802 | BIO_puts(bio_err, | ||
803 | "Signed Receipt Request Creation Error\n"); | ||
804 | goto end; | ||
805 | } | ||
806 | } | ||
807 | } else | ||
808 | flags |= CMS_REUSE_DIGEST; | ||
809 | for (i = 0; i < sk_OPENSSL_STRING_num(sksigners); i++) { | ||
810 | CMS_SignerInfo *si; | ||
811 | signerfile = sk_OPENSSL_STRING_value(sksigners, i); | ||
812 | keyfile = sk_OPENSSL_STRING_value(skkeys, i); | ||
813 | signer = load_cert(bio_err, signerfile, FORMAT_PEM, | ||
814 | NULL, e, "signer certificate"); | ||
815 | if (!signer) | ||
816 | goto end; | ||
817 | key = load_key(bio_err, keyfile, keyform, 0, passin, e, | ||
818 | "signing key file"); | ||
819 | if (!key) | ||
820 | goto end; | ||
821 | si = CMS_add1_signer(cms, signer, key, sign_md, flags); | ||
822 | if (!si) | ||
823 | goto end; | ||
824 | if (rr && !CMS_add1_ReceiptRequest(si, rr)) | ||
825 | goto end; | ||
826 | X509_free(signer); | ||
827 | signer = NULL; | ||
828 | EVP_PKEY_free(key); | ||
829 | key = NULL; | ||
830 | } | ||
831 | /* If not streaming or resigning finalize structure */ | ||
832 | if ((operation == SMIME_SIGN) && !(flags & CMS_STREAM)) { | ||
833 | if (!CMS_final(cms, in, NULL, flags)) | ||
834 | goto end; | ||
835 | } | ||
836 | } | ||
837 | if (!cms) { | ||
838 | BIO_printf(bio_err, "Error creating CMS structure\n"); | ||
839 | goto end; | ||
840 | } | ||
841 | ret = 4; | ||
842 | if (operation == SMIME_DECRYPT) { | ||
843 | if (flags & CMS_DEBUG_DECRYPT) | ||
844 | CMS_decrypt(cms, NULL, NULL, NULL, NULL, flags); | ||
845 | |||
846 | if (secret_key) { | ||
847 | if (!CMS_decrypt_set1_key(cms, secret_key, | ||
848 | secret_keylen, secret_keyid, secret_keyidlen)) { | ||
849 | BIO_puts(bio_err, | ||
850 | "Error decrypting CMS using secret key\n"); | ||
851 | goto end; | ||
852 | } | ||
853 | } | ||
854 | if (key) { | ||
855 | if (!CMS_decrypt_set1_pkey(cms, key, recip)) { | ||
856 | BIO_puts(bio_err, | ||
857 | "Error decrypting CMS using private key\n"); | ||
858 | goto end; | ||
859 | } | ||
860 | } | ||
861 | if (pwri_pass) { | ||
862 | if (!CMS_decrypt_set1_password(cms, pwri_pass, -1)) { | ||
863 | BIO_puts(bio_err, | ||
864 | "Error decrypting CMS using password\n"); | ||
865 | goto end; | ||
866 | } | ||
867 | } | ||
868 | if (!CMS_decrypt(cms, NULL, NULL, indata, out, flags)) { | ||
869 | BIO_printf(bio_err, "Error decrypting CMS structure\n"); | ||
870 | goto end; | ||
871 | } | ||
872 | } else if (operation == SMIME_DATAOUT) { | ||
873 | if (!CMS_data(cms, out, flags)) | ||
874 | goto end; | ||
875 | } else if (operation == SMIME_UNCOMPRESS) { | ||
876 | if (!CMS_uncompress(cms, indata, out, flags)) | ||
877 | goto end; | ||
878 | } else if (operation == SMIME_DIGEST_VERIFY) { | ||
879 | if (CMS_digest_verify(cms, indata, out, flags) > 0) | ||
880 | BIO_printf(bio_err, "Verification successful\n"); | ||
881 | else { | ||
882 | BIO_printf(bio_err, "Verification failure\n"); | ||
883 | goto end; | ||
884 | } | ||
885 | } else if (operation == SMIME_ENCRYPTED_DECRYPT) { | ||
886 | if (!CMS_EncryptedData_decrypt(cms, secret_key, secret_keylen, | ||
887 | indata, out, flags)) | ||
888 | goto end; | ||
889 | } else if (operation == SMIME_VERIFY) { | ||
890 | if (CMS_verify(cms, other, store, indata, out, flags) > 0) | ||
891 | BIO_printf(bio_err, "Verification successful\n"); | ||
892 | else { | ||
893 | BIO_printf(bio_err, "Verification failure\n"); | ||
894 | if (verify_retcode) | ||
895 | ret = verify_err + 32; | ||
896 | goto end; | ||
897 | } | ||
898 | if (signerfile) { | ||
899 | STACK_OF(X509) * signers; | ||
900 | signers = CMS_get0_signers(cms); | ||
901 | if (!save_certs(signerfile, signers)) { | ||
902 | BIO_printf(bio_err, | ||
903 | "Error writing signers to %s\n", | ||
904 | signerfile); | ||
905 | ret = 5; | ||
906 | goto end; | ||
907 | } | ||
908 | sk_X509_free(signers); | ||
909 | } | ||
910 | if (rr_print) | ||
911 | receipt_request_print(bio_err, cms); | ||
912 | |||
913 | } else if (operation == SMIME_VERIFY_RECEIPT) { | ||
914 | if (CMS_verify_receipt(rcms, cms, other, store, flags) > 0) | ||
915 | BIO_printf(bio_err, "Verification successful\n"); | ||
916 | else { | ||
917 | BIO_printf(bio_err, "Verification failure\n"); | ||
918 | goto end; | ||
919 | } | ||
920 | } else { | ||
921 | if (noout) { | ||
922 | if (print) | ||
923 | CMS_ContentInfo_print_ctx(out, cms, 0, NULL); | ||
924 | } else if (outformat == FORMAT_SMIME) { | ||
925 | if (to) | ||
926 | BIO_printf(out, "To: %s\n", to); | ||
927 | if (from) | ||
928 | BIO_printf(out, "From: %s\n", from); | ||
929 | if (subject) | ||
930 | BIO_printf(out, "Subject: %s\n", subject); | ||
931 | if (operation == SMIME_RESIGN) | ||
932 | ret = SMIME_write_CMS(out, cms, indata, flags); | ||
933 | else | ||
934 | ret = SMIME_write_CMS(out, cms, in, flags); | ||
935 | } else if (outformat == FORMAT_PEM) | ||
936 | ret = PEM_write_bio_CMS_stream(out, cms, in, flags); | ||
937 | else if (outformat == FORMAT_ASN1) | ||
938 | ret = i2d_CMS_bio_stream(out, cms, in, flags); | ||
939 | else { | ||
940 | BIO_printf(bio_err, "Bad output format for CMS file\n"); | ||
941 | goto end; | ||
942 | } | ||
943 | if (ret <= 0) { | ||
944 | ret = 6; | ||
945 | goto end; | ||
946 | } | ||
947 | } | ||
948 | ret = 0; | ||
949 | |||
950 | end: | ||
951 | if (ret) | ||
952 | ERR_print_errors(bio_err); | ||
953 | sk_X509_pop_free(encerts, X509_free); | ||
954 | sk_X509_pop_free(other, X509_free); | ||
955 | if (vpm) | ||
956 | X509_VERIFY_PARAM_free(vpm); | ||
957 | if (sksigners) | ||
958 | sk_OPENSSL_STRING_free(sksigners); | ||
959 | if (skkeys) | ||
960 | sk_OPENSSL_STRING_free(skkeys); | ||
961 | free(secret_key); | ||
962 | free(secret_keyid); | ||
963 | free(pwri_tmp); | ||
964 | if (econtent_type) | ||
965 | ASN1_OBJECT_free(econtent_type); | ||
966 | if (rr) | ||
967 | CMS_ReceiptRequest_free(rr); | ||
968 | if (rr_to) | ||
969 | sk_OPENSSL_STRING_free(rr_to); | ||
970 | if (rr_from) | ||
971 | sk_OPENSSL_STRING_free(rr_from); | ||
972 | X509_STORE_free(store); | ||
973 | X509_free(cert); | ||
974 | X509_free(recip); | ||
975 | X509_free(signer); | ||
976 | EVP_PKEY_free(key); | ||
977 | CMS_ContentInfo_free(cms); | ||
978 | CMS_ContentInfo_free(rcms); | ||
979 | BIO_free(rctin); | ||
980 | BIO_free(in); | ||
981 | BIO_free(indata); | ||
982 | BIO_free_all(out); | ||
983 | free(passin); | ||
984 | return (ret); | ||
985 | } | ||
986 | |||
987 | static int | ||
988 | save_certs(char *signerfile, STACK_OF(X509) * signers) | ||
989 | { | ||
990 | int i; | ||
991 | BIO *tmp; | ||
992 | |||
993 | if (!signerfile) | ||
994 | return 1; | ||
995 | tmp = BIO_new_file(signerfile, "w"); | ||
996 | if (!tmp) | ||
997 | return 0; | ||
998 | for (i = 0; i < sk_X509_num(signers); i++) | ||
999 | PEM_write_bio_X509(tmp, sk_X509_value(signers, i)); | ||
1000 | BIO_free(tmp); | ||
1001 | return 1; | ||
1002 | } | ||
1003 | |||
1004 | /* Minimal callback just to output policy info (if any) */ | ||
1005 | |||
1006 | static int | ||
1007 | cms_cb(int ok, X509_STORE_CTX * ctx) | ||
1008 | { | ||
1009 | int error; | ||
1010 | |||
1011 | error = X509_STORE_CTX_get_error(ctx); | ||
1012 | |||
1013 | verify_err = error; | ||
1014 | |||
1015 | if ((error != X509_V_ERR_NO_EXPLICIT_POLICY) && | ||
1016 | ((error != X509_V_OK) || (ok != 2))) | ||
1017 | return ok; | ||
1018 | |||
1019 | policies_print(NULL, ctx); | ||
1020 | |||
1021 | return ok; | ||
1022 | } | ||
1023 | |||
1024 | static void | ||
1025 | gnames_stack_print(BIO * out, STACK_OF(GENERAL_NAMES) * gns) | ||
1026 | { | ||
1027 | STACK_OF(GENERAL_NAME) * gens; | ||
1028 | GENERAL_NAME *gen; | ||
1029 | int i, j; | ||
1030 | |||
1031 | for (i = 0; i < sk_GENERAL_NAMES_num(gns); i++) { | ||
1032 | gens = sk_GENERAL_NAMES_value(gns, i); | ||
1033 | for (j = 0; j < sk_GENERAL_NAME_num(gens); j++) { | ||
1034 | gen = sk_GENERAL_NAME_value(gens, j); | ||
1035 | BIO_puts(out, " "); | ||
1036 | GENERAL_NAME_print(out, gen); | ||
1037 | BIO_puts(out, "\n"); | ||
1038 | } | ||
1039 | } | ||
1040 | return; | ||
1041 | } | ||
1042 | |||
1043 | static void | ||
1044 | receipt_request_print(BIO * out, CMS_ContentInfo * cms) | ||
1045 | { | ||
1046 | STACK_OF(CMS_SignerInfo) * sis; | ||
1047 | CMS_SignerInfo *si; | ||
1048 | CMS_ReceiptRequest *rr; | ||
1049 | int allorfirst; | ||
1050 | STACK_OF(GENERAL_NAMES) * rto, *rlist; | ||
1051 | ASN1_STRING *scid; | ||
1052 | int i, rv; | ||
1053 | |||
1054 | sis = CMS_get0_SignerInfos(cms); | ||
1055 | for (i = 0; i < sk_CMS_SignerInfo_num(sis); i++) { | ||
1056 | si = sk_CMS_SignerInfo_value(sis, i); | ||
1057 | rv = CMS_get1_ReceiptRequest(si, &rr); | ||
1058 | BIO_printf(bio_err, "Signer %d:\n", i + 1); | ||
1059 | if (rv == 0) | ||
1060 | BIO_puts(bio_err, " No Receipt Request\n"); | ||
1061 | else if (rv < 0) { | ||
1062 | BIO_puts(bio_err, " Receipt Request Parse Error\n"); | ||
1063 | ERR_print_errors(bio_err); | ||
1064 | } else { | ||
1065 | char *id; | ||
1066 | int idlen; | ||
1067 | CMS_ReceiptRequest_get0_values(rr, &scid, &allorfirst, | ||
1068 | &rlist, &rto); | ||
1069 | BIO_puts(out, " Signed Content ID:\n"); | ||
1070 | idlen = ASN1_STRING_length(scid); | ||
1071 | id = (char *) ASN1_STRING_data(scid); | ||
1072 | BIO_dump_indent(out, id, idlen, 4); | ||
1073 | BIO_puts(out, " Receipts From"); | ||
1074 | if (rlist) { | ||
1075 | BIO_puts(out, " List:\n"); | ||
1076 | gnames_stack_print(out, rlist); | ||
1077 | } else if (allorfirst == 1) | ||
1078 | BIO_puts(out, ": First Tier\n"); | ||
1079 | else if (allorfirst == 0) | ||
1080 | BIO_puts(out, ": All\n"); | ||
1081 | else | ||
1082 | BIO_printf(out, " Unknown (%d)\n", allorfirst); | ||
1083 | BIO_puts(out, " Receipts To:\n"); | ||
1084 | gnames_stack_print(out, rto); | ||
1085 | } | ||
1086 | if (rr) | ||
1087 | CMS_ReceiptRequest_free(rr); | ||
1088 | } | ||
1089 | } | ||
1090 | |||
1091 | static STACK_OF(GENERAL_NAMES) * | ||
1092 | make_names_stack(STACK_OF(OPENSSL_STRING) * ns) | ||
1093 | { | ||
1094 | int i; | ||
1095 | STACK_OF(GENERAL_NAMES) * ret; | ||
1096 | GENERAL_NAMES *gens = NULL; | ||
1097 | GENERAL_NAME *gen = NULL; | ||
1098 | ret = sk_GENERAL_NAMES_new_null(); | ||
1099 | if (!ret) | ||
1100 | goto err; | ||
1101 | for (i = 0; i < sk_OPENSSL_STRING_num(ns); i++) { | ||
1102 | char *str = sk_OPENSSL_STRING_value(ns, i); | ||
1103 | gen = a2i_GENERAL_NAME(NULL, NULL, NULL, GEN_EMAIL, str, 0); | ||
1104 | if (!gen) | ||
1105 | goto err; | ||
1106 | gens = GENERAL_NAMES_new(); | ||
1107 | if (!gens) | ||
1108 | goto err; | ||
1109 | if (!sk_GENERAL_NAME_push(gens, gen)) | ||
1110 | goto err; | ||
1111 | gen = NULL; | ||
1112 | if (!sk_GENERAL_NAMES_push(ret, gens)) | ||
1113 | goto err; | ||
1114 | gens = NULL; | ||
1115 | } | ||
1116 | |||
1117 | return ret; | ||
1118 | |||
1119 | err: | ||
1120 | if (ret) | ||
1121 | sk_GENERAL_NAMES_pop_free(ret, GENERAL_NAMES_free); | ||
1122 | if (gens) | ||
1123 | GENERAL_NAMES_free(gens); | ||
1124 | if (gen) | ||
1125 | GENERAL_NAME_free(gen); | ||
1126 | return NULL; | ||
1127 | } | ||
1128 | |||
1129 | |||
1130 | static CMS_ReceiptRequest * | ||
1131 | make_receipt_request(STACK_OF(OPENSSL_STRING) * rr_to, int rr_allorfirst, | ||
1132 | STACK_OF(OPENSSL_STRING) * rr_from) | ||
1133 | { | ||
1134 | STACK_OF(GENERAL_NAMES) * rct_to, *rct_from; | ||
1135 | CMS_ReceiptRequest *rr; | ||
1136 | |||
1137 | rct_to = make_names_stack(rr_to); | ||
1138 | if (!rct_to) | ||
1139 | goto err; | ||
1140 | if (rr_from) { | ||
1141 | rct_from = make_names_stack(rr_from); | ||
1142 | if (!rct_from) | ||
1143 | goto err; | ||
1144 | } else | ||
1145 | rct_from = NULL; | ||
1146 | rr = CMS_ReceiptRequest_create0(NULL, -1, rr_allorfirst, rct_from, | ||
1147 | rct_to); | ||
1148 | return rr; | ||
1149 | |||
1150 | err: | ||
1151 | return NULL; | ||
1152 | } | ||
1153 | |||
1154 | #endif | ||
diff --git a/src/usr.bin/openssl/crl.c b/src/usr.bin/openssl/crl.c new file mode 100644 index 0000000000..04de5a2f12 --- /dev/null +++ b/src/usr.bin/openssl/crl.c | |||
@@ -0,0 +1,415 @@ | |||
1 | /* $OpenBSD: crl.c,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
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 | |||
63 | #include "apps.h" | ||
64 | |||
65 | #include <openssl/bio.h> | ||
66 | #include <openssl/err.h> | ||
67 | #include <openssl/pem.h> | ||
68 | #include <openssl/x509.h> | ||
69 | #include <openssl/x509v3.h> | ||
70 | |||
71 | #define POSTFIX ".rvk" | ||
72 | |||
73 | static const char *crl_usage[] = { | ||
74 | "usage: crl args\n", | ||
75 | "\n", | ||
76 | " -inform arg - input format - default PEM (DER or PEM)\n", | ||
77 | " -outform arg - output format - default PEM\n", | ||
78 | " -text - print out a text format version\n", | ||
79 | " -in arg - input file - default stdin\n", | ||
80 | " -out arg - output file - default stdout\n", | ||
81 | " -hash - print hash value\n", | ||
82 | #ifndef OPENSSL_NO_MD5 | ||
83 | " -hash_old - print old-style (MD5) hash value\n", | ||
84 | #endif | ||
85 | " -fingerprint - print the crl fingerprint\n", | ||
86 | " -issuer - print issuer DN\n", | ||
87 | " -lastupdate - lastUpdate field\n", | ||
88 | " -nextupdate - nextUpdate field\n", | ||
89 | " -crlnumber - print CRL number\n", | ||
90 | " -noout - no CRL output\n", | ||
91 | " -CAfile name - verify CRL using certificates in file \"name\"\n", | ||
92 | " -CApath dir - verify CRL using certificates in \"dir\"\n", | ||
93 | " -nameopt arg - various certificate name options\n", | ||
94 | NULL | ||
95 | }; | ||
96 | |||
97 | static X509_CRL *load_crl(char *file, int format); | ||
98 | static BIO *bio_out = NULL; | ||
99 | |||
100 | int crl_main(int, char **); | ||
101 | |||
102 | int | ||
103 | crl_main(int argc, char **argv) | ||
104 | { | ||
105 | unsigned long nmflag = 0; | ||
106 | X509_CRL *x = NULL; | ||
107 | char *CAfile = NULL, *CApath = NULL; | ||
108 | int ret = 1, i, num, badops = 0; | ||
109 | BIO *out = NULL; | ||
110 | int informat, outformat; | ||
111 | char *infile = NULL, *outfile = NULL; | ||
112 | int hash = 0, issuer = 0, lastupdate = 0, nextupdate = 0, noout = 0, | ||
113 | text = 0; | ||
114 | #ifndef OPENSSL_NO_MD5 | ||
115 | int hash_old = 0; | ||
116 | #endif | ||
117 | int fingerprint = 0, crlnumber = 0; | ||
118 | const char **pp; | ||
119 | X509_STORE *store = NULL; | ||
120 | X509_STORE_CTX ctx; | ||
121 | X509_LOOKUP *lookup = NULL; | ||
122 | X509_OBJECT xobj; | ||
123 | EVP_PKEY *pkey; | ||
124 | int do_ver = 0; | ||
125 | const EVP_MD *md_alg, *digest = EVP_sha1(); | ||
126 | |||
127 | if (bio_out == NULL) | ||
128 | if ((bio_out = BIO_new(BIO_s_file())) != NULL) { | ||
129 | BIO_set_fp(bio_out, stdout, BIO_NOCLOSE); | ||
130 | } | ||
131 | informat = FORMAT_PEM; | ||
132 | outformat = FORMAT_PEM; | ||
133 | |||
134 | argc--; | ||
135 | argv++; | ||
136 | num = 0; | ||
137 | while (argc >= 1) { | ||
138 | #ifdef undef | ||
139 | if (strcmp(*argv, "-p") == 0) { | ||
140 | if (--argc < 1) | ||
141 | goto bad; | ||
142 | if (!args_from_file(++argv, Nargc, Nargv)) { | ||
143 | goto end; | ||
144 | } | ||
145 | } | ||
146 | #endif | ||
147 | if (strcmp(*argv, "-inform") == 0) { | ||
148 | if (--argc < 1) | ||
149 | goto bad; | ||
150 | informat = str2fmt(*(++argv)); | ||
151 | } else if (strcmp(*argv, "-outform") == 0) { | ||
152 | if (--argc < 1) | ||
153 | goto bad; | ||
154 | outformat = str2fmt(*(++argv)); | ||
155 | } else if (strcmp(*argv, "-in") == 0) { | ||
156 | if (--argc < 1) | ||
157 | goto bad; | ||
158 | infile = *(++argv); | ||
159 | } else if (strcmp(*argv, "-out") == 0) { | ||
160 | if (--argc < 1) | ||
161 | goto bad; | ||
162 | outfile = *(++argv); | ||
163 | } else if (strcmp(*argv, "-CApath") == 0) { | ||
164 | if (--argc < 1) | ||
165 | goto bad; | ||
166 | CApath = *(++argv); | ||
167 | do_ver = 1; | ||
168 | } else if (strcmp(*argv, "-CAfile") == 0) { | ||
169 | if (--argc < 1) | ||
170 | goto bad; | ||
171 | CAfile = *(++argv); | ||
172 | do_ver = 1; | ||
173 | } else if (strcmp(*argv, "-verify") == 0) | ||
174 | do_ver = 1; | ||
175 | else if (strcmp(*argv, "-text") == 0) | ||
176 | text = 1; | ||
177 | else if (strcmp(*argv, "-hash") == 0) | ||
178 | hash = ++num; | ||
179 | #ifndef OPENSSL_NO_MD5 | ||
180 | else if (strcmp(*argv, "-hash_old") == 0) | ||
181 | hash_old = ++num; | ||
182 | #endif | ||
183 | else if (strcmp(*argv, "-nameopt") == 0) { | ||
184 | if (--argc < 1) | ||
185 | goto bad; | ||
186 | if (!set_name_ex(&nmflag, *(++argv))) | ||
187 | goto bad; | ||
188 | } else if (strcmp(*argv, "-issuer") == 0) | ||
189 | issuer = ++num; | ||
190 | else if (strcmp(*argv, "-lastupdate") == 0) | ||
191 | lastupdate = ++num; | ||
192 | else if (strcmp(*argv, "-nextupdate") == 0) | ||
193 | nextupdate = ++num; | ||
194 | else if (strcmp(*argv, "-noout") == 0) | ||
195 | noout = ++num; | ||
196 | else if (strcmp(*argv, "-fingerprint") == 0) | ||
197 | fingerprint = ++num; | ||
198 | else if (strcmp(*argv, "-crlnumber") == 0) | ||
199 | crlnumber = ++num; | ||
200 | else if ((md_alg = EVP_get_digestbyname(*argv + 1))) { | ||
201 | /* ok */ | ||
202 | digest = md_alg; | ||
203 | } else { | ||
204 | BIO_printf(bio_err, "unknown option %s\n", *argv); | ||
205 | badops = 1; | ||
206 | break; | ||
207 | } | ||
208 | argc--; | ||
209 | argv++; | ||
210 | } | ||
211 | |||
212 | if (badops) { | ||
213 | bad: | ||
214 | for (pp = crl_usage; (*pp != NULL); pp++) | ||
215 | BIO_printf(bio_err, "%s", *pp); | ||
216 | goto end; | ||
217 | } | ||
218 | ERR_load_crypto_strings(); | ||
219 | x = load_crl(infile, informat); | ||
220 | if (x == NULL) { | ||
221 | goto end; | ||
222 | } | ||
223 | if (do_ver) { | ||
224 | store = X509_STORE_new(); | ||
225 | lookup = X509_STORE_add_lookup(store, X509_LOOKUP_file()); | ||
226 | if (lookup == NULL) | ||
227 | goto end; | ||
228 | if (!X509_LOOKUP_load_file(lookup, CAfile, X509_FILETYPE_PEM)) | ||
229 | X509_LOOKUP_load_file(lookup, NULL, | ||
230 | X509_FILETYPE_DEFAULT); | ||
231 | |||
232 | lookup = X509_STORE_add_lookup(store, X509_LOOKUP_hash_dir()); | ||
233 | if (lookup == NULL) | ||
234 | goto end; | ||
235 | if (!X509_LOOKUP_add_dir(lookup, CApath, X509_FILETYPE_PEM)) | ||
236 | X509_LOOKUP_add_dir(lookup, NULL, | ||
237 | X509_FILETYPE_DEFAULT); | ||
238 | ERR_clear_error(); | ||
239 | |||
240 | if (!X509_STORE_CTX_init(&ctx, store, NULL, NULL)) { | ||
241 | BIO_printf(bio_err, | ||
242 | "Error initialising X509 store\n"); | ||
243 | goto end; | ||
244 | } | ||
245 | i = X509_STORE_get_by_subject(&ctx, X509_LU_X509, | ||
246 | X509_CRL_get_issuer(x), &xobj); | ||
247 | if (i <= 0) { | ||
248 | BIO_printf(bio_err, | ||
249 | "Error getting CRL issuer certificate\n"); | ||
250 | goto end; | ||
251 | } | ||
252 | pkey = X509_get_pubkey(xobj.data.x509); | ||
253 | X509_OBJECT_free_contents(&xobj); | ||
254 | if (!pkey) { | ||
255 | BIO_printf(bio_err, | ||
256 | "Error getting CRL issuer public key\n"); | ||
257 | goto end; | ||
258 | } | ||
259 | i = X509_CRL_verify(x, pkey); | ||
260 | EVP_PKEY_free(pkey); | ||
261 | if (i < 0) | ||
262 | goto end; | ||
263 | if (i == 0) | ||
264 | BIO_printf(bio_err, "verify failure\n"); | ||
265 | else | ||
266 | BIO_printf(bio_err, "verify OK\n"); | ||
267 | } | ||
268 | if (num) { | ||
269 | for (i = 1; i <= num; i++) { | ||
270 | if (issuer == i) { | ||
271 | print_name(bio_out, "issuer=", | ||
272 | X509_CRL_get_issuer(x), nmflag); | ||
273 | } | ||
274 | if (crlnumber == i) { | ||
275 | ASN1_INTEGER *crlnum; | ||
276 | crlnum = X509_CRL_get_ext_d2i(x, | ||
277 | NID_crl_number, NULL, NULL); | ||
278 | BIO_printf(bio_out, "crlNumber="); | ||
279 | if (crlnum) { | ||
280 | i2a_ASN1_INTEGER(bio_out, crlnum); | ||
281 | ASN1_INTEGER_free(crlnum); | ||
282 | } else | ||
283 | BIO_puts(bio_out, "<NONE>"); | ||
284 | BIO_printf(bio_out, "\n"); | ||
285 | } | ||
286 | if (hash == i) { | ||
287 | BIO_printf(bio_out, "%08lx\n", | ||
288 | X509_NAME_hash(X509_CRL_get_issuer(x))); | ||
289 | } | ||
290 | #ifndef OPENSSL_NO_MD5 | ||
291 | if (hash_old == i) { | ||
292 | BIO_printf(bio_out, "%08lx\n", | ||
293 | X509_NAME_hash_old(X509_CRL_get_issuer(x))); | ||
294 | } | ||
295 | #endif | ||
296 | if (lastupdate == i) { | ||
297 | BIO_printf(bio_out, "lastUpdate="); | ||
298 | ASN1_TIME_print(bio_out, | ||
299 | X509_CRL_get_lastUpdate(x)); | ||
300 | BIO_printf(bio_out, "\n"); | ||
301 | } | ||
302 | if (nextupdate == i) { | ||
303 | BIO_printf(bio_out, "nextUpdate="); | ||
304 | if (X509_CRL_get_nextUpdate(x)) | ||
305 | ASN1_TIME_print(bio_out, | ||
306 | X509_CRL_get_nextUpdate(x)); | ||
307 | else | ||
308 | BIO_printf(bio_out, "NONE"); | ||
309 | BIO_printf(bio_out, "\n"); | ||
310 | } | ||
311 | if (fingerprint == i) { | ||
312 | int j; | ||
313 | unsigned int n; | ||
314 | unsigned char md[EVP_MAX_MD_SIZE]; | ||
315 | |||
316 | if (!X509_CRL_digest(x, digest, md, &n)) { | ||
317 | BIO_printf(bio_err, "out of memory\n"); | ||
318 | goto end; | ||
319 | } | ||
320 | BIO_printf(bio_out, "%s Fingerprint=", | ||
321 | OBJ_nid2sn(EVP_MD_type(digest))); | ||
322 | for (j = 0; j < (int) n; j++) { | ||
323 | BIO_printf(bio_out, "%02X%c", md[j], | ||
324 | (j + 1 == (int)n) ? '\n' : ':'); | ||
325 | } | ||
326 | } | ||
327 | } | ||
328 | } | ||
329 | out = BIO_new(BIO_s_file()); | ||
330 | if (out == NULL) { | ||
331 | ERR_print_errors(bio_err); | ||
332 | goto end; | ||
333 | } | ||
334 | if (outfile == NULL) { | ||
335 | BIO_set_fp(out, stdout, BIO_NOCLOSE); | ||
336 | } else { | ||
337 | if (BIO_write_filename(out, outfile) <= 0) { | ||
338 | perror(outfile); | ||
339 | goto end; | ||
340 | } | ||
341 | } | ||
342 | |||
343 | if (text) | ||
344 | X509_CRL_print(out, x); | ||
345 | |||
346 | if (noout) { | ||
347 | ret = 0; | ||
348 | goto end; | ||
349 | } | ||
350 | if (outformat == FORMAT_ASN1) | ||
351 | i = (int) i2d_X509_CRL_bio(out, x); | ||
352 | else if (outformat == FORMAT_PEM) | ||
353 | i = PEM_write_bio_X509_CRL(out, x); | ||
354 | else { | ||
355 | BIO_printf(bio_err, | ||
356 | "bad output format specified for outfile\n"); | ||
357 | goto end; | ||
358 | } | ||
359 | if (!i) { | ||
360 | BIO_printf(bio_err, "unable to write CRL\n"); | ||
361 | goto end; | ||
362 | } | ||
363 | ret = 0; | ||
364 | |||
365 | end: | ||
366 | BIO_free_all(out); | ||
367 | BIO_free_all(bio_out); | ||
368 | bio_out = NULL; | ||
369 | X509_CRL_free(x); | ||
370 | if (store) { | ||
371 | X509_STORE_CTX_cleanup(&ctx); | ||
372 | X509_STORE_free(store); | ||
373 | } | ||
374 | |||
375 | return (ret); | ||
376 | } | ||
377 | |||
378 | static X509_CRL * | ||
379 | load_crl(char *infile, int format) | ||
380 | { | ||
381 | X509_CRL *x = NULL; | ||
382 | BIO *in = NULL; | ||
383 | |||
384 | in = BIO_new(BIO_s_file()); | ||
385 | if (in == NULL) { | ||
386 | ERR_print_errors(bio_err); | ||
387 | goto end; | ||
388 | } | ||
389 | if (infile == NULL) | ||
390 | BIO_set_fp(in, stdin, BIO_NOCLOSE); | ||
391 | else { | ||
392 | if (BIO_read_filename(in, infile) <= 0) { | ||
393 | perror(infile); | ||
394 | goto end; | ||
395 | } | ||
396 | } | ||
397 | if (format == FORMAT_ASN1) | ||
398 | x = d2i_X509_CRL_bio(in, NULL); | ||
399 | else if (format == FORMAT_PEM) | ||
400 | x = PEM_read_bio_X509_CRL(in, NULL, NULL, NULL); | ||
401 | else { | ||
402 | BIO_printf(bio_err, | ||
403 | "bad input format specified for input crl\n"); | ||
404 | goto end; | ||
405 | } | ||
406 | if (x == NULL) { | ||
407 | BIO_printf(bio_err, "unable to load CRL\n"); | ||
408 | ERR_print_errors(bio_err); | ||
409 | goto end; | ||
410 | } | ||
411 | |||
412 | end: | ||
413 | BIO_free(in); | ||
414 | return (x); | ||
415 | } | ||
diff --git a/src/usr.bin/openssl/crl2p7.c b/src/usr.bin/openssl/crl2p7.c new file mode 100644 index 0000000000..7fdb6ccfd4 --- /dev/null +++ b/src/usr.bin/openssl/crl2p7.c | |||
@@ -0,0 +1,314 @@ | |||
1 | /* $OpenBSD: crl2p7.c,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
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 | /* This was written by Gordon Chaffee <chaffee@plateau.cs.berkeley.edu> | ||
60 | * and donated 'to the cause' along with lots and lots of other fixes to | ||
61 | * the library. */ | ||
62 | |||
63 | #include <sys/types.h> | ||
64 | |||
65 | #include <stdio.h> | ||
66 | #include <string.h> | ||
67 | |||
68 | #include "apps.h" | ||
69 | |||
70 | #include <openssl/err.h> | ||
71 | #include <openssl/evp.h> | ||
72 | #include <openssl/objects.h> | ||
73 | #include <openssl/pem.h> | ||
74 | #include <openssl/pkcs7.h> | ||
75 | #include <openssl/x509.h> | ||
76 | |||
77 | static int add_certs_from_file(STACK_OF(X509) * stack, char *certfile); | ||
78 | |||
79 | /* -inform arg - input format - default PEM (DER or PEM) | ||
80 | * -outform arg - output format - default PEM | ||
81 | * -in arg - input file - default stdin | ||
82 | * -out arg - output file - default stdout | ||
83 | */ | ||
84 | |||
85 | int crl2pkcs7_main(int, char **); | ||
86 | |||
87 | int | ||
88 | crl2pkcs7_main(int argc, char **argv) | ||
89 | { | ||
90 | int i, badops = 0; | ||
91 | BIO *in = NULL, *out = NULL; | ||
92 | int informat, outformat; | ||
93 | char *infile, *outfile, *prog, *certfile; | ||
94 | PKCS7 *p7 = NULL; | ||
95 | PKCS7_SIGNED *p7s = NULL; | ||
96 | X509_CRL *crl = NULL; | ||
97 | STACK_OF(OPENSSL_STRING) * certflst = NULL; | ||
98 | STACK_OF(X509_CRL) * crl_stack = NULL; | ||
99 | STACK_OF(X509) * cert_stack = NULL; | ||
100 | int ret = 1, nocrl = 0; | ||
101 | |||
102 | infile = NULL; | ||
103 | outfile = NULL; | ||
104 | informat = FORMAT_PEM; | ||
105 | outformat = FORMAT_PEM; | ||
106 | |||
107 | prog = argv[0]; | ||
108 | argc--; | ||
109 | argv++; | ||
110 | while (argc >= 1) { | ||
111 | if (strcmp(*argv, "-inform") == 0) { | ||
112 | if (--argc < 1) | ||
113 | goto bad; | ||
114 | informat = str2fmt(*(++argv)); | ||
115 | } else if (strcmp(*argv, "-outform") == 0) { | ||
116 | if (--argc < 1) | ||
117 | goto bad; | ||
118 | outformat = str2fmt(*(++argv)); | ||
119 | } else if (strcmp(*argv, "-in") == 0) { | ||
120 | if (--argc < 1) | ||
121 | goto bad; | ||
122 | infile = *(++argv); | ||
123 | } else if (strcmp(*argv, "-nocrl") == 0) { | ||
124 | nocrl = 1; | ||
125 | } else if (strcmp(*argv, "-out") == 0) { | ||
126 | if (--argc < 1) | ||
127 | goto bad; | ||
128 | outfile = *(++argv); | ||
129 | } else if (strcmp(*argv, "-certfile") == 0) { | ||
130 | if (--argc < 1) | ||
131 | goto bad; | ||
132 | if (!certflst) | ||
133 | certflst = sk_OPENSSL_STRING_new_null(); | ||
134 | sk_OPENSSL_STRING_push(certflst, *(++argv)); | ||
135 | } else { | ||
136 | BIO_printf(bio_err, "unknown option %s\n", *argv); | ||
137 | badops = 1; | ||
138 | break; | ||
139 | } | ||
140 | argc--; | ||
141 | argv++; | ||
142 | } | ||
143 | |||
144 | if (badops) { | ||
145 | bad: | ||
146 | BIO_printf(bio_err, "%s [options] <infile >outfile\n", prog); | ||
147 | BIO_printf(bio_err, "where options are\n"); | ||
148 | BIO_printf(bio_err, " -inform arg input format - DER or PEM\n"); | ||
149 | BIO_printf(bio_err, " -outform arg output format - DER or PEM\n"); | ||
150 | BIO_printf(bio_err, " -in arg input file\n"); | ||
151 | BIO_printf(bio_err, " -out arg output file\n"); | ||
152 | BIO_printf(bio_err, " -certfile arg certificates file of chain to a trusted CA\n"); | ||
153 | BIO_printf(bio_err, " (can be used more than once)\n"); | ||
154 | BIO_printf(bio_err, " -nocrl no crl to load, just certs from '-certfile'\n"); | ||
155 | ret = 1; | ||
156 | goto end; | ||
157 | } | ||
158 | ERR_load_crypto_strings(); | ||
159 | |||
160 | in = BIO_new(BIO_s_file()); | ||
161 | out = BIO_new(BIO_s_file()); | ||
162 | if ((in == NULL) || (out == NULL)) { | ||
163 | ERR_print_errors(bio_err); | ||
164 | goto end; | ||
165 | } | ||
166 | if (!nocrl) { | ||
167 | if (infile == NULL) | ||
168 | BIO_set_fp(in, stdin, BIO_NOCLOSE); | ||
169 | else { | ||
170 | if (BIO_read_filename(in, infile) <= 0) { | ||
171 | perror(infile); | ||
172 | goto end; | ||
173 | } | ||
174 | } | ||
175 | |||
176 | if (informat == FORMAT_ASN1) | ||
177 | crl = d2i_X509_CRL_bio(in, NULL); | ||
178 | else if (informat == FORMAT_PEM) | ||
179 | crl = PEM_read_bio_X509_CRL(in, NULL, NULL, NULL); | ||
180 | else { | ||
181 | BIO_printf(bio_err, | ||
182 | "bad input format specified for input crl\n"); | ||
183 | goto end; | ||
184 | } | ||
185 | if (crl == NULL) { | ||
186 | BIO_printf(bio_err, "unable to load CRL\n"); | ||
187 | ERR_print_errors(bio_err); | ||
188 | goto end; | ||
189 | } | ||
190 | } | ||
191 | if ((p7 = PKCS7_new()) == NULL) | ||
192 | goto end; | ||
193 | if ((p7s = PKCS7_SIGNED_new()) == NULL) | ||
194 | goto end; | ||
195 | p7->type = OBJ_nid2obj(NID_pkcs7_signed); | ||
196 | p7->d.sign = p7s; | ||
197 | p7s->contents->type = OBJ_nid2obj(NID_pkcs7_data); | ||
198 | |||
199 | if (!ASN1_INTEGER_set(p7s->version, 1)) | ||
200 | goto end; | ||
201 | if ((crl_stack = sk_X509_CRL_new_null()) == NULL) | ||
202 | goto end; | ||
203 | p7s->crl = crl_stack; | ||
204 | if (crl != NULL) { | ||
205 | sk_X509_CRL_push(crl_stack, crl); | ||
206 | crl = NULL; /* now part of p7 for freeing */ | ||
207 | } | ||
208 | if ((cert_stack = sk_X509_new_null()) == NULL) | ||
209 | goto end; | ||
210 | p7s->cert = cert_stack; | ||
211 | |||
212 | if (certflst) | ||
213 | for (i = 0; i < sk_OPENSSL_STRING_num(certflst); i++) { | ||
214 | certfile = sk_OPENSSL_STRING_value(certflst, i); | ||
215 | if (add_certs_from_file(cert_stack, certfile) < 0) { | ||
216 | BIO_printf(bio_err, | ||
217 | "error loading certificates\n"); | ||
218 | ERR_print_errors(bio_err); | ||
219 | goto end; | ||
220 | } | ||
221 | } | ||
222 | |||
223 | sk_OPENSSL_STRING_free(certflst); | ||
224 | |||
225 | if (outfile == NULL) { | ||
226 | BIO_set_fp(out, stdout, BIO_NOCLOSE); | ||
227 | } else { | ||
228 | if (BIO_write_filename(out, outfile) <= 0) { | ||
229 | perror(outfile); | ||
230 | goto end; | ||
231 | } | ||
232 | } | ||
233 | |||
234 | if (outformat == FORMAT_ASN1) | ||
235 | i = i2d_PKCS7_bio(out, p7); | ||
236 | else if (outformat == FORMAT_PEM) | ||
237 | i = PEM_write_bio_PKCS7(out, p7); | ||
238 | else { | ||
239 | BIO_printf(bio_err, | ||
240 | "bad output format specified for outfile\n"); | ||
241 | goto end; | ||
242 | } | ||
243 | if (!i) { | ||
244 | BIO_printf(bio_err, "unable to write pkcs7 object\n"); | ||
245 | ERR_print_errors(bio_err); | ||
246 | goto end; | ||
247 | } | ||
248 | ret = 0; | ||
249 | |||
250 | end: | ||
251 | if (in != NULL) | ||
252 | BIO_free(in); | ||
253 | if (out != NULL) | ||
254 | BIO_free_all(out); | ||
255 | if (p7 != NULL) | ||
256 | PKCS7_free(p7); | ||
257 | if (crl != NULL) | ||
258 | X509_CRL_free(crl); | ||
259 | |||
260 | |||
261 | return (ret); | ||
262 | } | ||
263 | |||
264 | /* | ||
265 | *---------------------------------------------------------------------- | ||
266 | * int add_certs_from_file | ||
267 | * | ||
268 | * Read a list of certificates to be checked from a file. | ||
269 | * | ||
270 | * Results: | ||
271 | * number of certs added if successful, -1 if not. | ||
272 | *---------------------------------------------------------------------- | ||
273 | */ | ||
274 | static int | ||
275 | add_certs_from_file(STACK_OF(X509) * stack, char *certfile) | ||
276 | { | ||
277 | BIO *in = NULL; | ||
278 | int count = 0; | ||
279 | int ret = -1; | ||
280 | STACK_OF(X509_INFO) * sk = NULL; | ||
281 | X509_INFO *xi; | ||
282 | |||
283 | in = BIO_new(BIO_s_file()); | ||
284 | if ((in == NULL) || (BIO_read_filename(in, certfile) <= 0)) { | ||
285 | BIO_printf(bio_err, "error opening the file, %s\n", certfile); | ||
286 | goto end; | ||
287 | } | ||
288 | /* This loads from a file, a stack of x509/crl/pkey sets */ | ||
289 | sk = PEM_X509_INFO_read_bio(in, NULL, NULL, NULL); | ||
290 | if (sk == NULL) { | ||
291 | BIO_printf(bio_err, "error reading the file, %s\n", certfile); | ||
292 | goto end; | ||
293 | } | ||
294 | /* scan over it and pull out the CRL's */ | ||
295 | while (sk_X509_INFO_num(sk)) { | ||
296 | xi = sk_X509_INFO_shift(sk); | ||
297 | if (xi->x509 != NULL) { | ||
298 | sk_X509_push(stack, xi->x509); | ||
299 | xi->x509 = NULL; | ||
300 | count++; | ||
301 | } | ||
302 | X509_INFO_free(xi); | ||
303 | } | ||
304 | |||
305 | ret = count; | ||
306 | |||
307 | end: | ||
308 | /* never need to free x */ | ||
309 | if (in != NULL) | ||
310 | BIO_free(in); | ||
311 | if (sk != NULL) | ||
312 | sk_X509_INFO_free(sk); | ||
313 | return (ret); | ||
314 | } | ||
diff --git a/src/usr.bin/openssl/dgst.c b/src/usr.bin/openssl/dgst.c new file mode 100644 index 0000000000..ab64af9192 --- /dev/null +++ b/src/usr.bin/openssl/dgst.c | |||
@@ -0,0 +1,547 @@ | |||
1 | /* $OpenBSD: dgst.c,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
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 | |||
63 | #include "apps.h" | ||
64 | |||
65 | #include <openssl/bio.h> | ||
66 | #include <openssl/err.h> | ||
67 | #include <openssl/evp.h> | ||
68 | #include <openssl/hmac.h> | ||
69 | #include <openssl/objects.h> | ||
70 | #include <openssl/pem.h> | ||
71 | #include <openssl/x509.h> | ||
72 | |||
73 | #define BUFSIZE 1024*8 | ||
74 | |||
75 | int | ||
76 | do_fp(BIO * out, unsigned char *buf, BIO * bp, int sep, int binout, | ||
77 | EVP_PKEY * key, unsigned char *sigin, int siglen, | ||
78 | const char *sig_name, const char *md_name, | ||
79 | const char *file, BIO * bmd); | ||
80 | |||
81 | static void | ||
82 | list_md_fn(const EVP_MD * m, const char *from, const char *to, void *arg) | ||
83 | { | ||
84 | const char *mname; | ||
85 | /* Skip aliases */ | ||
86 | if (!m) | ||
87 | return; | ||
88 | mname = OBJ_nid2ln(EVP_MD_type(m)); | ||
89 | /* Skip shortnames */ | ||
90 | if (strcmp(from, mname)) | ||
91 | return; | ||
92 | /* Skip clones */ | ||
93 | if (EVP_MD_flags(m) & EVP_MD_FLAG_PKEY_DIGEST) | ||
94 | return; | ||
95 | if (strchr(mname, ' ')) | ||
96 | mname = EVP_MD_name(m); | ||
97 | BIO_printf(arg, "-%-14s to use the %s message digest algorithm\n", | ||
98 | mname, mname); | ||
99 | } | ||
100 | |||
101 | int dgst_main(int, char **); | ||
102 | |||
103 | int | ||
104 | dgst_main(int argc, char **argv) | ||
105 | { | ||
106 | ENGINE *e = NULL; | ||
107 | unsigned char *buf = NULL; | ||
108 | int i, err = 1; | ||
109 | const EVP_MD *md = NULL, *m; | ||
110 | BIO *in = NULL, *inp; | ||
111 | BIO *bmd = NULL; | ||
112 | BIO *out = NULL; | ||
113 | #define PROG_NAME_SIZE 39 | ||
114 | char pname[PROG_NAME_SIZE + 1]; | ||
115 | int separator = 0; | ||
116 | int debug = 0; | ||
117 | int keyform = FORMAT_PEM; | ||
118 | const char *outfile = NULL, *keyfile = NULL; | ||
119 | const char *sigfile = NULL; | ||
120 | int out_bin = -1, want_pub = 0, do_verify = 0; | ||
121 | EVP_PKEY *sigkey = NULL; | ||
122 | unsigned char *sigbuf = NULL; | ||
123 | int siglen = 0; | ||
124 | char *passargin = NULL, *passin = NULL; | ||
125 | #ifndef OPENSSL_NO_ENGINE | ||
126 | char *engine = NULL; | ||
127 | #endif | ||
128 | char *hmac_key = NULL; | ||
129 | char *mac_name = NULL; | ||
130 | STACK_OF(OPENSSL_STRING) * sigopts = NULL, *macopts = NULL; | ||
131 | |||
132 | if ((buf = malloc(BUFSIZE)) == NULL) { | ||
133 | BIO_printf(bio_err, "out of memory\n"); | ||
134 | goto end; | ||
135 | } | ||
136 | |||
137 | /* first check the program name */ | ||
138 | program_name(argv[0], pname, sizeof pname); | ||
139 | |||
140 | md = EVP_get_digestbyname(pname); | ||
141 | |||
142 | argc--; | ||
143 | argv++; | ||
144 | while (argc > 0) { | ||
145 | if ((*argv)[0] != '-') | ||
146 | break; | ||
147 | if (strcmp(*argv, "-c") == 0) | ||
148 | separator = 1; | ||
149 | else if (strcmp(*argv, "-r") == 0) | ||
150 | separator = 2; | ||
151 | else if (strcmp(*argv, "-out") == 0) { | ||
152 | if (--argc < 1) | ||
153 | break; | ||
154 | outfile = *(++argv); | ||
155 | } else if (strcmp(*argv, "-sign") == 0) { | ||
156 | if (--argc < 1) | ||
157 | break; | ||
158 | keyfile = *(++argv); | ||
159 | } else if (!strcmp(*argv, "-passin")) { | ||
160 | if (--argc < 1) | ||
161 | break; | ||
162 | passargin = *++argv; | ||
163 | } else if (strcmp(*argv, "-verify") == 0) { | ||
164 | if (--argc < 1) | ||
165 | break; | ||
166 | keyfile = *(++argv); | ||
167 | want_pub = 1; | ||
168 | do_verify = 1; | ||
169 | } else if (strcmp(*argv, "-prverify") == 0) { | ||
170 | if (--argc < 1) | ||
171 | break; | ||
172 | keyfile = *(++argv); | ||
173 | do_verify = 1; | ||
174 | } else if (strcmp(*argv, "-signature") == 0) { | ||
175 | if (--argc < 1) | ||
176 | break; | ||
177 | sigfile = *(++argv); | ||
178 | } else if (strcmp(*argv, "-keyform") == 0) { | ||
179 | if (--argc < 1) | ||
180 | break; | ||
181 | keyform = str2fmt(*(++argv)); | ||
182 | } | ||
183 | #ifndef OPENSSL_NO_ENGINE | ||
184 | else if (strcmp(*argv, "-engine") == 0) { | ||
185 | if (--argc < 1) | ||
186 | break; | ||
187 | engine = *(++argv); | ||
188 | e = setup_engine(bio_err, engine, 0); | ||
189 | } | ||
190 | #endif | ||
191 | else if (strcmp(*argv, "-hex") == 0) | ||
192 | out_bin = 0; | ||
193 | else if (strcmp(*argv, "-binary") == 0) | ||
194 | out_bin = 1; | ||
195 | else if (strcmp(*argv, "-d") == 0) | ||
196 | debug = 1; | ||
197 | else if (!strcmp(*argv, "-hmac")) { | ||
198 | if (--argc < 1) | ||
199 | break; | ||
200 | hmac_key = *++argv; | ||
201 | } else if (!strcmp(*argv, "-mac")) { | ||
202 | if (--argc < 1) | ||
203 | break; | ||
204 | mac_name = *++argv; | ||
205 | } else if (strcmp(*argv, "-sigopt") == 0) { | ||
206 | if (--argc < 1) | ||
207 | break; | ||
208 | if (!sigopts) | ||
209 | sigopts = sk_OPENSSL_STRING_new_null(); | ||
210 | if (!sigopts || !sk_OPENSSL_STRING_push(sigopts, *(++argv))) | ||
211 | break; | ||
212 | } else if (strcmp(*argv, "-macopt") == 0) { | ||
213 | if (--argc < 1) | ||
214 | break; | ||
215 | if (!macopts) | ||
216 | macopts = sk_OPENSSL_STRING_new_null(); | ||
217 | if (!macopts || !sk_OPENSSL_STRING_push(macopts, *(++argv))) | ||
218 | break; | ||
219 | } else if ((m = EVP_get_digestbyname(&((*argv)[1]))) != NULL) | ||
220 | md = m; | ||
221 | else | ||
222 | break; | ||
223 | argc--; | ||
224 | argv++; | ||
225 | } | ||
226 | |||
227 | |||
228 | if (do_verify && !sigfile) { | ||
229 | BIO_printf(bio_err, "No signature to verify: use the -signature option\n"); | ||
230 | goto end; | ||
231 | } | ||
232 | if ((argc > 0) && (argv[0][0] == '-')) { /* bad option */ | ||
233 | BIO_printf(bio_err, "unknown option '%s'\n", *argv); | ||
234 | BIO_printf(bio_err, "options are\n"); | ||
235 | BIO_printf(bio_err, "-c to output the digest with separating colons\n"); | ||
236 | BIO_printf(bio_err, "-r to output the digest in coreutils format\n"); | ||
237 | BIO_printf(bio_err, "-d to output debug info\n"); | ||
238 | BIO_printf(bio_err, "-hex output as hex dump\n"); | ||
239 | BIO_printf(bio_err, "-binary output in binary form\n"); | ||
240 | BIO_printf(bio_err, "-sign file sign digest using private key in file\n"); | ||
241 | BIO_printf(bio_err, "-verify file verify a signature using public key in file\n"); | ||
242 | BIO_printf(bio_err, "-prverify file verify a signature using private key in file\n"); | ||
243 | BIO_printf(bio_err, "-keyform arg key file format (PEM or ENGINE)\n"); | ||
244 | BIO_printf(bio_err, "-out filename output to filename rather than stdout\n"); | ||
245 | BIO_printf(bio_err, "-signature file signature to verify\n"); | ||
246 | BIO_printf(bio_err, "-sigopt nm:v signature parameter\n"); | ||
247 | BIO_printf(bio_err, "-hmac key create hashed MAC with key\n"); | ||
248 | BIO_printf(bio_err, "-mac algorithm create MAC (not neccessarily HMAC)\n"); | ||
249 | BIO_printf(bio_err, "-macopt nm:v MAC algorithm parameters or key\n"); | ||
250 | #ifndef OPENSSL_NO_ENGINE | ||
251 | BIO_printf(bio_err, "-engine e use engine e, possibly a hardware device.\n"); | ||
252 | #endif | ||
253 | |||
254 | EVP_MD_do_all_sorted(list_md_fn, bio_err); | ||
255 | goto end; | ||
256 | } | ||
257 | in = BIO_new(BIO_s_file()); | ||
258 | bmd = BIO_new(BIO_f_md()); | ||
259 | if (debug) { | ||
260 | BIO_set_callback(in, BIO_debug_callback); | ||
261 | /* needed for windows 3.1 */ | ||
262 | BIO_set_callback_arg(in, (char *) bio_err); | ||
263 | } | ||
264 | if (!app_passwd(bio_err, passargin, NULL, &passin, NULL)) { | ||
265 | BIO_printf(bio_err, "Error getting password\n"); | ||
266 | goto end; | ||
267 | } | ||
268 | if ((in == NULL) || (bmd == NULL)) { | ||
269 | ERR_print_errors(bio_err); | ||
270 | goto end; | ||
271 | } | ||
272 | if (out_bin == -1) { | ||
273 | if (keyfile) | ||
274 | out_bin = 1; | ||
275 | else | ||
276 | out_bin = 0; | ||
277 | } | ||
278 | |||
279 | if (outfile) { | ||
280 | if (out_bin) | ||
281 | out = BIO_new_file(outfile, "wb"); | ||
282 | else | ||
283 | out = BIO_new_file(outfile, "w"); | ||
284 | } else { | ||
285 | out = BIO_new_fp(stdout, BIO_NOCLOSE); | ||
286 | } | ||
287 | |||
288 | if (!out) { | ||
289 | BIO_printf(bio_err, "Error opening output file %s\n", | ||
290 | outfile ? outfile : "(stdout)"); | ||
291 | ERR_print_errors(bio_err); | ||
292 | goto end; | ||
293 | } | ||
294 | if ((!!mac_name + !!keyfile + !!hmac_key) > 1) { | ||
295 | BIO_printf(bio_err, "MAC and Signing key cannot both be specified\n"); | ||
296 | goto end; | ||
297 | } | ||
298 | if (keyfile) { | ||
299 | if (want_pub) | ||
300 | sigkey = load_pubkey(bio_err, keyfile, keyform, 0, NULL, | ||
301 | e, "key file"); | ||
302 | else | ||
303 | sigkey = load_key(bio_err, keyfile, keyform, 0, passin, | ||
304 | e, "key file"); | ||
305 | if (!sigkey) { | ||
306 | /* | ||
307 | * load_[pub]key() has already printed an appropriate | ||
308 | * message | ||
309 | */ | ||
310 | goto end; | ||
311 | } | ||
312 | } | ||
313 | if (mac_name) { | ||
314 | EVP_PKEY_CTX *mac_ctx = NULL; | ||
315 | int r = 0; | ||
316 | if (!init_gen_str(bio_err, &mac_ctx, mac_name, e, 0)) | ||
317 | goto mac_end; | ||
318 | if (macopts) { | ||
319 | char *macopt; | ||
320 | for (i = 0; i < sk_OPENSSL_STRING_num(macopts); i++) { | ||
321 | macopt = sk_OPENSSL_STRING_value(macopts, i); | ||
322 | if (pkey_ctrl_string(mac_ctx, macopt) <= 0) { | ||
323 | BIO_printf(bio_err, | ||
324 | "MAC parameter error \"%s\"\n", | ||
325 | macopt); | ||
326 | ERR_print_errors(bio_err); | ||
327 | goto mac_end; | ||
328 | } | ||
329 | } | ||
330 | } | ||
331 | if (EVP_PKEY_keygen(mac_ctx, &sigkey) <= 0) { | ||
332 | BIO_puts(bio_err, "Error generating key\n"); | ||
333 | ERR_print_errors(bio_err); | ||
334 | goto mac_end; | ||
335 | } | ||
336 | r = 1; | ||
337 | mac_end: | ||
338 | if (mac_ctx) | ||
339 | EVP_PKEY_CTX_free(mac_ctx); | ||
340 | if (r == 0) | ||
341 | goto end; | ||
342 | } | ||
343 | if (hmac_key) { | ||
344 | sigkey = EVP_PKEY_new_mac_key(EVP_PKEY_HMAC, e, | ||
345 | (unsigned char *) hmac_key, -1); | ||
346 | if (!sigkey) | ||
347 | goto end; | ||
348 | } | ||
349 | if (sigkey) { | ||
350 | EVP_MD_CTX *mctx = NULL; | ||
351 | EVP_PKEY_CTX *pctx = NULL; | ||
352 | int r; | ||
353 | if (!BIO_get_md_ctx(bmd, &mctx)) { | ||
354 | BIO_printf(bio_err, "Error getting context\n"); | ||
355 | ERR_print_errors(bio_err); | ||
356 | goto end; | ||
357 | } | ||
358 | if (do_verify) | ||
359 | r = EVP_DigestVerifyInit(mctx, &pctx, md, NULL, sigkey); | ||
360 | else | ||
361 | r = EVP_DigestSignInit(mctx, &pctx, md, NULL, sigkey); | ||
362 | if (!r) { | ||
363 | BIO_printf(bio_err, "Error setting context\n"); | ||
364 | ERR_print_errors(bio_err); | ||
365 | goto end; | ||
366 | } | ||
367 | if (sigopts) { | ||
368 | char *sigopt; | ||
369 | for (i = 0; i < sk_OPENSSL_STRING_num(sigopts); i++) { | ||
370 | sigopt = sk_OPENSSL_STRING_value(sigopts, i); | ||
371 | if (pkey_ctrl_string(pctx, sigopt) <= 0) { | ||
372 | BIO_printf(bio_err, | ||
373 | "parameter error \"%s\"\n", | ||
374 | sigopt); | ||
375 | ERR_print_errors(bio_err); | ||
376 | goto end; | ||
377 | } | ||
378 | } | ||
379 | } | ||
380 | } | ||
381 | /* we use md as a filter, reading from 'in' */ | ||
382 | else { | ||
383 | if (md == NULL) | ||
384 | md = EVP_md5(); | ||
385 | if (!BIO_set_md(bmd, md)) { | ||
386 | BIO_printf(bio_err, "Error setting digest %s\n", pname); | ||
387 | ERR_print_errors(bio_err); | ||
388 | goto end; | ||
389 | } | ||
390 | } | ||
391 | |||
392 | if (sigfile && sigkey) { | ||
393 | BIO *sigbio; | ||
394 | sigbio = BIO_new_file(sigfile, "rb"); | ||
395 | siglen = EVP_PKEY_size(sigkey); | ||
396 | sigbuf = malloc(siglen); | ||
397 | if (!sigbio) { | ||
398 | BIO_printf(bio_err, "Error opening signature file %s\n", | ||
399 | sigfile); | ||
400 | ERR_print_errors(bio_err); | ||
401 | goto end; | ||
402 | } | ||
403 | siglen = BIO_read(sigbio, sigbuf, siglen); | ||
404 | BIO_free(sigbio); | ||
405 | if (siglen <= 0) { | ||
406 | BIO_printf(bio_err, "Error reading signature file %s\n", | ||
407 | sigfile); | ||
408 | ERR_print_errors(bio_err); | ||
409 | goto end; | ||
410 | } | ||
411 | } | ||
412 | inp = BIO_push(bmd, in); | ||
413 | |||
414 | if (md == NULL) { | ||
415 | EVP_MD_CTX *tctx; | ||
416 | BIO_get_md_ctx(bmd, &tctx); | ||
417 | md = EVP_MD_CTX_md(tctx); | ||
418 | } | ||
419 | if (argc == 0) { | ||
420 | BIO_set_fp(in, stdin, BIO_NOCLOSE); | ||
421 | err = do_fp(out, buf, inp, separator, out_bin, sigkey, sigbuf, | ||
422 | siglen, NULL, NULL, "stdin", bmd); | ||
423 | } else { | ||
424 | const char *md_name = NULL, *sig_name = NULL; | ||
425 | if (!out_bin) { | ||
426 | if (sigkey) { | ||
427 | const EVP_PKEY_ASN1_METHOD *ameth; | ||
428 | ameth = EVP_PKEY_get0_asn1(sigkey); | ||
429 | if (ameth) | ||
430 | EVP_PKEY_asn1_get0_info(NULL, NULL, | ||
431 | NULL, NULL, &sig_name, ameth); | ||
432 | } | ||
433 | md_name = EVP_MD_name(md); | ||
434 | } | ||
435 | err = 0; | ||
436 | for (i = 0; i < argc; i++) { | ||
437 | int r; | ||
438 | if (BIO_read_filename(in, argv[i]) <= 0) { | ||
439 | perror(argv[i]); | ||
440 | err++; | ||
441 | continue; | ||
442 | } else { | ||
443 | r = do_fp(out, buf, inp, separator, out_bin, | ||
444 | sigkey, sigbuf, siglen, sig_name, md_name, | ||
445 | argv[i], bmd); | ||
446 | } | ||
447 | if (r) | ||
448 | err = r; | ||
449 | (void) BIO_reset(bmd); | ||
450 | } | ||
451 | } | ||
452 | |||
453 | end: | ||
454 | if (buf != NULL) { | ||
455 | OPENSSL_cleanse(buf, BUFSIZE); | ||
456 | free(buf); | ||
457 | } | ||
458 | if (in != NULL) | ||
459 | BIO_free(in); | ||
460 | free(passin); | ||
461 | BIO_free_all(out); | ||
462 | EVP_PKEY_free(sigkey); | ||
463 | if (sigopts) | ||
464 | sk_OPENSSL_STRING_free(sigopts); | ||
465 | if (macopts) | ||
466 | sk_OPENSSL_STRING_free(macopts); | ||
467 | free(sigbuf); | ||
468 | if (bmd != NULL) | ||
469 | BIO_free(bmd); | ||
470 | |||
471 | return (err); | ||
472 | } | ||
473 | |||
474 | int | ||
475 | do_fp(BIO * out, unsigned char *buf, BIO * bp, int sep, int binout, | ||
476 | EVP_PKEY * key, unsigned char *sigin, int siglen, | ||
477 | const char *sig_name, const char *md_name, | ||
478 | const char *file, BIO * bmd) | ||
479 | { | ||
480 | size_t len; | ||
481 | int i; | ||
482 | |||
483 | for (;;) { | ||
484 | i = BIO_read(bp, (char *) buf, BUFSIZE); | ||
485 | if (i < 0) { | ||
486 | BIO_printf(bio_err, "Read Error in %s\n", file); | ||
487 | ERR_print_errors(bio_err); | ||
488 | return 1; | ||
489 | } | ||
490 | if (i == 0) | ||
491 | break; | ||
492 | } | ||
493 | if (sigin) { | ||
494 | EVP_MD_CTX *ctx; | ||
495 | BIO_get_md_ctx(bp, &ctx); | ||
496 | i = EVP_DigestVerifyFinal(ctx, sigin, (unsigned int) siglen); | ||
497 | if (i > 0) | ||
498 | BIO_printf(out, "Verified OK\n"); | ||
499 | else if (i == 0) { | ||
500 | BIO_printf(out, "Verification Failure\n"); | ||
501 | return 1; | ||
502 | } else { | ||
503 | BIO_printf(bio_err, "Error Verifying Data\n"); | ||
504 | ERR_print_errors(bio_err); | ||
505 | return 1; | ||
506 | } | ||
507 | return 0; | ||
508 | } | ||
509 | if (key) { | ||
510 | EVP_MD_CTX *ctx; | ||
511 | BIO_get_md_ctx(bp, &ctx); | ||
512 | len = BUFSIZE; | ||
513 | if (!EVP_DigestSignFinal(ctx, buf, &len)) { | ||
514 | BIO_printf(bio_err, "Error Signing Data\n"); | ||
515 | ERR_print_errors(bio_err); | ||
516 | return 1; | ||
517 | } | ||
518 | } else { | ||
519 | len = BIO_gets(bp, (char *) buf, BUFSIZE); | ||
520 | if ((int) len < 0) { | ||
521 | ERR_print_errors(bio_err); | ||
522 | return 1; | ||
523 | } | ||
524 | } | ||
525 | |||
526 | if (binout) | ||
527 | BIO_write(out, buf, len); | ||
528 | else if (sep == 2) { | ||
529 | for (i = 0; i < (int) len; i++) | ||
530 | BIO_printf(out, "%02x", buf[i]); | ||
531 | BIO_printf(out, " *%s\n", file); | ||
532 | } else { | ||
533 | if (sig_name) | ||
534 | BIO_printf(out, "%s-%s(%s)= ", sig_name, md_name, file); | ||
535 | else if (md_name) | ||
536 | BIO_printf(out, "%s(%s)= ", md_name, file); | ||
537 | else | ||
538 | BIO_printf(out, "(%s)= ", file); | ||
539 | for (i = 0; i < (int) len; i++) { | ||
540 | if (sep && (i != 0)) | ||
541 | BIO_printf(out, ":"); | ||
542 | BIO_printf(out, "%02x", buf[i]); | ||
543 | } | ||
544 | BIO_printf(out, "\n"); | ||
545 | } | ||
546 | return 0; | ||
547 | } | ||
diff --git a/src/usr.bin/openssl/dh.c b/src/usr.bin/openssl/dh.c new file mode 100644 index 0000000000..447b4c800f --- /dev/null +++ b/src/usr.bin/openssl/dh.c | |||
@@ -0,0 +1,308 @@ | |||
1 | /* $OpenBSD: dh.c,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
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 <openssl/opensslconf.h> /* for OPENSSL_NO_DH */ | ||
60 | |||
61 | #ifndef OPENSSL_NO_DH | ||
62 | |||
63 | #include <stdio.h> | ||
64 | #include <stdlib.h> | ||
65 | #include <string.h> | ||
66 | #include <time.h> | ||
67 | |||
68 | #include "apps.h" | ||
69 | |||
70 | #include <openssl/bio.h> | ||
71 | #include <openssl/bn.h> | ||
72 | #include <openssl/err.h> | ||
73 | #include <openssl/dh.h> | ||
74 | #include <openssl/pem.h> | ||
75 | #include <openssl/x509.h> | ||
76 | |||
77 | /* -inform arg - input format - default PEM (DER or PEM) | ||
78 | * -outform arg - output format - default PEM | ||
79 | * -in arg - input file - default stdin | ||
80 | * -out arg - output file - default stdout | ||
81 | * -check - check the parameters are ok | ||
82 | * -noout | ||
83 | * -text | ||
84 | * -C | ||
85 | */ | ||
86 | |||
87 | int dh_main(int, char **); | ||
88 | |||
89 | int | ||
90 | dh_main(int argc, char **argv) | ||
91 | { | ||
92 | DH *dh = NULL; | ||
93 | int i, badops = 0, text = 0; | ||
94 | BIO *in = NULL, *out = NULL; | ||
95 | int informat, outformat, check = 0, noout = 0, C = 0, ret = 1; | ||
96 | char *infile, *outfile, *prog; | ||
97 | #ifndef OPENSSL_NO_ENGINE | ||
98 | char *engine; | ||
99 | #endif | ||
100 | |||
101 | #ifndef OPENSSL_NO_ENGINE | ||
102 | engine = NULL; | ||
103 | #endif | ||
104 | infile = NULL; | ||
105 | outfile = NULL; | ||
106 | informat = FORMAT_PEM; | ||
107 | outformat = FORMAT_PEM; | ||
108 | |||
109 | prog = argv[0]; | ||
110 | argc--; | ||
111 | argv++; | ||
112 | while (argc >= 1) { | ||
113 | if (strcmp(*argv, "-inform") == 0) { | ||
114 | if (--argc < 1) | ||
115 | goto bad; | ||
116 | informat = str2fmt(*(++argv)); | ||
117 | } else if (strcmp(*argv, "-outform") == 0) { | ||
118 | if (--argc < 1) | ||
119 | goto bad; | ||
120 | outformat = str2fmt(*(++argv)); | ||
121 | } else if (strcmp(*argv, "-in") == 0) { | ||
122 | if (--argc < 1) | ||
123 | goto bad; | ||
124 | infile = *(++argv); | ||
125 | } else if (strcmp(*argv, "-out") == 0) { | ||
126 | if (--argc < 1) | ||
127 | goto bad; | ||
128 | outfile = *(++argv); | ||
129 | } | ||
130 | #ifndef OPENSSL_NO_ENGINE | ||
131 | else if (strcmp(*argv, "-engine") == 0) { | ||
132 | if (--argc < 1) | ||
133 | goto bad; | ||
134 | engine = *(++argv); | ||
135 | } | ||
136 | #endif | ||
137 | else if (strcmp(*argv, "-check") == 0) | ||
138 | check = 1; | ||
139 | else if (strcmp(*argv, "-text") == 0) | ||
140 | text = 1; | ||
141 | else if (strcmp(*argv, "-C") == 0) | ||
142 | C = 1; | ||
143 | else if (strcmp(*argv, "-noout") == 0) | ||
144 | noout = 1; | ||
145 | else { | ||
146 | BIO_printf(bio_err, "unknown option %s\n", *argv); | ||
147 | badops = 1; | ||
148 | break; | ||
149 | } | ||
150 | argc--; | ||
151 | argv++; | ||
152 | } | ||
153 | |||
154 | if (badops) { | ||
155 | bad: | ||
156 | BIO_printf(bio_err, "%s [options] <infile >outfile\n", prog); | ||
157 | BIO_printf(bio_err, "where options are\n"); | ||
158 | BIO_printf(bio_err, " -inform arg input format - one of DER PEM\n"); | ||
159 | BIO_printf(bio_err, " -outform arg output format - one of DER PEM\n"); | ||
160 | BIO_printf(bio_err, " -in arg input file\n"); | ||
161 | BIO_printf(bio_err, " -out arg output file\n"); | ||
162 | BIO_printf(bio_err, " -check check the DH parameters\n"); | ||
163 | BIO_printf(bio_err, " -text print a text form of the DH parameters\n"); | ||
164 | BIO_printf(bio_err, " -C Output C code\n"); | ||
165 | BIO_printf(bio_err, " -noout no output\n"); | ||
166 | #ifndef OPENSSL_NO_ENGINE | ||
167 | BIO_printf(bio_err, " -engine e use engine e, possibly a hardware device.\n"); | ||
168 | #endif | ||
169 | goto end; | ||
170 | } | ||
171 | ERR_load_crypto_strings(); | ||
172 | |||
173 | #ifndef OPENSSL_NO_ENGINE | ||
174 | setup_engine(bio_err, engine, 0); | ||
175 | #endif | ||
176 | |||
177 | in = BIO_new(BIO_s_file()); | ||
178 | out = BIO_new(BIO_s_file()); | ||
179 | if ((in == NULL) || (out == NULL)) { | ||
180 | ERR_print_errors(bio_err); | ||
181 | goto end; | ||
182 | } | ||
183 | if (infile == NULL) | ||
184 | BIO_set_fp(in, stdin, BIO_NOCLOSE); | ||
185 | else { | ||
186 | if (BIO_read_filename(in, infile) <= 0) { | ||
187 | perror(infile); | ||
188 | goto end; | ||
189 | } | ||
190 | } | ||
191 | if (outfile == NULL) { | ||
192 | BIO_set_fp(out, stdout, BIO_NOCLOSE); | ||
193 | } else { | ||
194 | if (BIO_write_filename(out, outfile) <= 0) { | ||
195 | perror(outfile); | ||
196 | goto end; | ||
197 | } | ||
198 | } | ||
199 | |||
200 | if (informat == FORMAT_ASN1) | ||
201 | dh = d2i_DHparams_bio(in, NULL); | ||
202 | else if (informat == FORMAT_PEM) | ||
203 | dh = PEM_read_bio_DHparams(in, NULL, NULL, NULL); | ||
204 | else { | ||
205 | BIO_printf(bio_err, "bad input format specified\n"); | ||
206 | goto end; | ||
207 | } | ||
208 | if (dh == NULL) { | ||
209 | BIO_printf(bio_err, "unable to load DH parameters\n"); | ||
210 | ERR_print_errors(bio_err); | ||
211 | goto end; | ||
212 | } | ||
213 | if (text) { | ||
214 | DHparams_print(out, dh); | ||
215 | #ifdef undef | ||
216 | printf("p="); | ||
217 | BN_print(stdout, dh->p); | ||
218 | printf("\ng="); | ||
219 | BN_print(stdout, dh->g); | ||
220 | printf("\n"); | ||
221 | if (dh->length != 0) | ||
222 | printf("recommended private length=%ld\n", dh->length); | ||
223 | #endif | ||
224 | } | ||
225 | if (check) { | ||
226 | if (!DH_check(dh, &i)) { | ||
227 | ERR_print_errors(bio_err); | ||
228 | goto end; | ||
229 | } | ||
230 | if (i & DH_CHECK_P_NOT_PRIME) | ||
231 | printf("p value is not prime\n"); | ||
232 | if (i & DH_CHECK_P_NOT_SAFE_PRIME) | ||
233 | printf("p value is not a safe prime\n"); | ||
234 | if (i & DH_UNABLE_TO_CHECK_GENERATOR) | ||
235 | printf("unable to check the generator value\n"); | ||
236 | if (i & DH_NOT_SUITABLE_GENERATOR) | ||
237 | printf("the g value is not a generator\n"); | ||
238 | if (i == 0) | ||
239 | printf("DH parameters appear to be ok.\n"); | ||
240 | } | ||
241 | if (C) { | ||
242 | unsigned char *data; | ||
243 | int len, l, bits; | ||
244 | |||
245 | len = BN_num_bytes(dh->p); | ||
246 | bits = BN_num_bits(dh->p); | ||
247 | data = malloc(len); | ||
248 | if (data == NULL) { | ||
249 | perror("malloc"); | ||
250 | goto end; | ||
251 | } | ||
252 | l = BN_bn2bin(dh->p, data); | ||
253 | printf("static unsigned char dh%d_p[] = {", bits); | ||
254 | for (i = 0; i < l; i++) { | ||
255 | if ((i % 12) == 0) | ||
256 | printf("\n\t"); | ||
257 | printf("0x%02X, ", data[i]); | ||
258 | } | ||
259 | printf("\n\t};\n"); | ||
260 | |||
261 | l = BN_bn2bin(dh->g, data); | ||
262 | printf("static unsigned char dh%d_g[] = {", bits); | ||
263 | for (i = 0; i < l; i++) { | ||
264 | if ((i % 12) == 0) | ||
265 | printf("\n\t"); | ||
266 | printf("0x%02X, ", data[i]); | ||
267 | } | ||
268 | printf("\n\t};\n\n"); | ||
269 | |||
270 | printf("DH *get_dh%d()\n\t{\n", bits); | ||
271 | printf("\tDH *dh;\n\n"); | ||
272 | printf("\tif ((dh = DH_new()) == NULL) return(NULL);\n"); | ||
273 | printf("\tdh->p = BN_bin2bn(dh%d_p, sizeof(dh%d_p), NULL);\n", | ||
274 | bits, bits); | ||
275 | printf("\tdh->g = BN_bin2bn(dh%d_g, sizeof(dh%d_g), NULL);\n", | ||
276 | bits, bits); | ||
277 | printf("\tif ((dh->p == NULL) || (dh->g == NULL))\n"); | ||
278 | printf("\t\treturn(NULL);\n"); | ||
279 | printf("\treturn(dh);\n\t}\n"); | ||
280 | free(data); | ||
281 | } | ||
282 | if (!noout) { | ||
283 | if (outformat == FORMAT_ASN1) | ||
284 | i = i2d_DHparams_bio(out, dh); | ||
285 | else if (outformat == FORMAT_PEM) | ||
286 | i = PEM_write_bio_DHparams(out, dh); | ||
287 | else { | ||
288 | BIO_printf(bio_err, "bad output format specified for outfile\n"); | ||
289 | goto end; | ||
290 | } | ||
291 | if (!i) { | ||
292 | BIO_printf(bio_err, "unable to write DH parameters\n"); | ||
293 | ERR_print_errors(bio_err); | ||
294 | goto end; | ||
295 | } | ||
296 | } | ||
297 | ret = 0; | ||
298 | |||
299 | end: | ||
300 | BIO_free(in); | ||
301 | if (out != NULL) | ||
302 | BIO_free_all(out); | ||
303 | if (dh != NULL) | ||
304 | DH_free(dh); | ||
305 | |||
306 | return (ret); | ||
307 | } | ||
308 | #endif | ||
diff --git a/src/usr.bin/openssl/dhparam.c b/src/usr.bin/openssl/dhparam.c new file mode 100644 index 0000000000..0022f72670 --- /dev/null +++ b/src/usr.bin/openssl/dhparam.c | |||
@@ -0,0 +1,472 @@ | |||
1 | /* $OpenBSD: dhparam.c,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
2 | /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) | ||
3 | * All rights reserved. | ||
4 | * | ||
5 | * This package is an SSL implementation written | ||
6 | * by Eric Young (eay@cryptsoft.com). | ||
7 | * The implementation was written so as to conform with Netscapes SSL. | ||
8 | * | ||
9 | * This library is free for commercial and non-commercial use as long as | ||
10 | * the following conditions are aheared to. The following conditions | ||
11 | * apply to all code found in this distribution, be it the RC4, RSA, | ||
12 | * lhash, DES, etc., code; not just the SSL code. The SSL documentation | ||
13 | * included with this distribution is covered by the same copyright terms | ||
14 | * except that the holder is Tim Hudson (tjh@cryptsoft.com). | ||
15 | * | ||
16 | * Copyright remains Eric Young's, and as such any Copyright notices in | ||
17 | * the code are not to be removed. | ||
18 | * If this package is used in a product, Eric Young should be given attribution | ||
19 | * as the author of the parts of the library used. | ||
20 | * This can be in the form of a textual message at program startup or | ||
21 | * in documentation (online or textual) provided with the package. | ||
22 | * | ||
23 | * Redistribution and use in source and binary forms, with or without | ||
24 | * modification, are permitted provided that the following conditions | ||
25 | * are met: | ||
26 | * 1. Redistributions of source code must retain the copyright | ||
27 | * notice, this list of conditions and the following disclaimer. | ||
28 | * 2. Redistributions in binary form must reproduce the above copyright | ||
29 | * notice, this list of conditions and the following disclaimer in the | ||
30 | * documentation and/or other materials provided with the distribution. | ||
31 | * 3. All advertising materials mentioning features or use of this software | ||
32 | * must display the following acknowledgement: | ||
33 | * "This product includes cryptographic software written by | ||
34 | * Eric Young (eay@cryptsoft.com)" | ||
35 | * The word 'cryptographic' can be left out if the rouines from the library | ||
36 | * being used are not cryptographic related :-). | ||
37 | * 4. If you include any Windows specific code (or a derivative thereof) from | ||
38 | * the apps directory (application code) you must include an acknowledgement: | ||
39 | * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" | ||
40 | * | ||
41 | * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND | ||
42 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
43 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
44 | * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE | ||
45 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
46 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
47 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
48 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
49 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
50 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
51 | * SUCH DAMAGE. | ||
52 | * | ||
53 | * The licence and distribution terms for any publically available version or | ||
54 | * derivative of this code cannot be changed. i.e. this code cannot simply be | ||
55 | * copied and put under another distribution licence | ||
56 | * [including the GNU Public Licence.] | ||
57 | */ | ||
58 | /* ==================================================================== | ||
59 | * Copyright (c) 1998-2000 The OpenSSL Project. All rights reserved. | ||
60 | * | ||
61 | * Redistribution and use in source and binary forms, with or without | ||
62 | * modification, are permitted provided that the following conditions | ||
63 | * are met: | ||
64 | * | ||
65 | * 1. Redistributions of source code must retain the above copyright | ||
66 | * notice, this list of conditions and the following disclaimer. | ||
67 | * | ||
68 | * 2. Redistributions in binary form must reproduce the above copyright | ||
69 | * notice, this list of conditions and the following disclaimer in | ||
70 | * the documentation and/or other materials provided with the | ||
71 | * distribution. | ||
72 | * | ||
73 | * 3. All advertising materials mentioning features or use of this | ||
74 | * software must display the following acknowledgment: | ||
75 | * "This product includes software developed by the OpenSSL Project | ||
76 | * for use in the OpenSSL Toolkit. (http://www.openssl.org/)" | ||
77 | * | ||
78 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
79 | * endorse or promote products derived from this software without | ||
80 | * prior written permission. For written permission, please contact | ||
81 | * openssl-core@openssl.org. | ||
82 | * | ||
83 | * 5. Products derived from this software may not be called "OpenSSL" | ||
84 | * nor may "OpenSSL" appear in their names without prior written | ||
85 | * permission of the OpenSSL Project. | ||
86 | * | ||
87 | * 6. Redistributions of any form whatsoever must retain the following | ||
88 | * acknowledgment: | ||
89 | * "This product includes software developed by the OpenSSL Project | ||
90 | * for use in the OpenSSL Toolkit (http://www.openssl.org/)" | ||
91 | * | ||
92 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
93 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
94 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
95 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
96 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
97 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
98 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
99 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
100 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
101 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
102 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
103 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
104 | * ==================================================================== | ||
105 | * | ||
106 | * This product includes cryptographic software written by Eric Young | ||
107 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
108 | * Hudson (tjh@cryptsoft.com). | ||
109 | * | ||
110 | */ | ||
111 | |||
112 | #include <openssl/opensslconf.h> /* for OPENSSL_NO_DH */ | ||
113 | |||
114 | #ifndef OPENSSL_NO_DH | ||
115 | |||
116 | #include <stdio.h> | ||
117 | #include <stdlib.h> | ||
118 | #include <string.h> | ||
119 | #include <time.h> | ||
120 | |||
121 | #include "apps.h" | ||
122 | |||
123 | #include <openssl/bio.h> | ||
124 | #include <openssl/bn.h> | ||
125 | #include <openssl/err.h> | ||
126 | #include <openssl/dh.h> | ||
127 | #include <openssl/pem.h> | ||
128 | #include <openssl/x509.h> | ||
129 | |||
130 | #include <openssl/dsa.h> | ||
131 | |||
132 | #define DEFBITS 512 | ||
133 | |||
134 | /* -inform arg - input format - default PEM (DER or PEM) | ||
135 | * -outform arg - output format - default PEM | ||
136 | * -in arg - input file - default stdin | ||
137 | * -out arg - output file - default stdout | ||
138 | * -dsaparam - read or generate DSA parameters, convert to DH | ||
139 | * -check - check the parameters are ok | ||
140 | * -noout | ||
141 | * -text | ||
142 | * -C | ||
143 | */ | ||
144 | |||
145 | static int dh_cb(int p, int n, BN_GENCB * cb); | ||
146 | |||
147 | int dhparam_main(int, char **); | ||
148 | |||
149 | int | ||
150 | dhparam_main(int argc, char **argv) | ||
151 | { | ||
152 | DH *dh = NULL; | ||
153 | int i, badops = 0, text = 0; | ||
154 | int dsaparam = 0; | ||
155 | BIO *in = NULL, *out = NULL; | ||
156 | int informat, outformat, check = 0, noout = 0, C = 0, ret = 1; | ||
157 | char *infile, *outfile, *prog; | ||
158 | #ifndef OPENSSL_NO_ENGINE | ||
159 | char *engine = NULL; | ||
160 | #endif | ||
161 | int num = 0, g = 0; | ||
162 | |||
163 | infile = NULL; | ||
164 | outfile = NULL; | ||
165 | informat = FORMAT_PEM; | ||
166 | outformat = FORMAT_PEM; | ||
167 | |||
168 | prog = argv[0]; | ||
169 | argc--; | ||
170 | argv++; | ||
171 | while (argc >= 1) { | ||
172 | if (strcmp(*argv, "-inform") == 0) { | ||
173 | if (--argc < 1) | ||
174 | goto bad; | ||
175 | informat = str2fmt(*(++argv)); | ||
176 | } else if (strcmp(*argv, "-outform") == 0) { | ||
177 | if (--argc < 1) | ||
178 | goto bad; | ||
179 | outformat = str2fmt(*(++argv)); | ||
180 | } else if (strcmp(*argv, "-in") == 0) { | ||
181 | if (--argc < 1) | ||
182 | goto bad; | ||
183 | infile = *(++argv); | ||
184 | } else if (strcmp(*argv, "-out") == 0) { | ||
185 | if (--argc < 1) | ||
186 | goto bad; | ||
187 | outfile = *(++argv); | ||
188 | } | ||
189 | #ifndef OPENSSL_NO_ENGINE | ||
190 | else if (strcmp(*argv, "-engine") == 0) { | ||
191 | if (--argc < 1) | ||
192 | goto bad; | ||
193 | engine = *(++argv); | ||
194 | } | ||
195 | #endif | ||
196 | else if (strcmp(*argv, "-check") == 0) | ||
197 | check = 1; | ||
198 | else if (strcmp(*argv, "-text") == 0) | ||
199 | text = 1; | ||
200 | else if (strcmp(*argv, "-dsaparam") == 0) | ||
201 | dsaparam = 1; | ||
202 | else if (strcmp(*argv, "-C") == 0) | ||
203 | C = 1; | ||
204 | else if (strcmp(*argv, "-noout") == 0) | ||
205 | noout = 1; | ||
206 | else if (strcmp(*argv, "-2") == 0) | ||
207 | g = 2; | ||
208 | else if (strcmp(*argv, "-5") == 0) | ||
209 | g = 5; | ||
210 | else if (((sscanf(*argv, "%d", &num) == 0) || (num <= 0))) | ||
211 | goto bad; | ||
212 | argv++; | ||
213 | argc--; | ||
214 | } | ||
215 | |||
216 | if (badops) { | ||
217 | bad: | ||
218 | BIO_printf(bio_err, "%s [options] [numbits]\n", prog); | ||
219 | BIO_printf(bio_err, "where options are\n"); | ||
220 | BIO_printf(bio_err, " -inform arg input format - one of DER PEM\n"); | ||
221 | BIO_printf(bio_err, " -outform arg output format - one of DER PEM\n"); | ||
222 | BIO_printf(bio_err, " -in arg input file\n"); | ||
223 | BIO_printf(bio_err, " -out arg output file\n"); | ||
224 | BIO_printf(bio_err, " -dsaparam read or generate DSA parameters, convert to DH\n"); | ||
225 | BIO_printf(bio_err, " -check check the DH parameters\n"); | ||
226 | BIO_printf(bio_err, " -text print a text form of the DH parameters\n"); | ||
227 | BIO_printf(bio_err, " -C Output C code\n"); | ||
228 | BIO_printf(bio_err, " -2 generate parameters using 2 as the generator value\n"); | ||
229 | BIO_printf(bio_err, " -5 generate parameters using 5 as the generator value\n"); | ||
230 | BIO_printf(bio_err, " numbits number of bits in to generate (default 512)\n"); | ||
231 | #ifndef OPENSSL_NO_ENGINE | ||
232 | BIO_printf(bio_err, " -engine e use engine e, possibly a hardware device.\n"); | ||
233 | #endif | ||
234 | BIO_printf(bio_err, " -noout no output\n"); | ||
235 | goto end; | ||
236 | } | ||
237 | ERR_load_crypto_strings(); | ||
238 | |||
239 | #ifndef OPENSSL_NO_ENGINE | ||
240 | setup_engine(bio_err, engine, 0); | ||
241 | #endif | ||
242 | |||
243 | if (g && !num) | ||
244 | num = DEFBITS; | ||
245 | |||
246 | if (dsaparam) { | ||
247 | if (g) { | ||
248 | BIO_printf(bio_err, "generator may not be chosen for DSA parameters\n"); | ||
249 | goto end; | ||
250 | } | ||
251 | } else | ||
252 | { | ||
253 | /* DH parameters */ | ||
254 | if (num && !g) | ||
255 | g = 2; | ||
256 | } | ||
257 | |||
258 | if (num) { | ||
259 | |||
260 | BN_GENCB cb; | ||
261 | BN_GENCB_set(&cb, dh_cb, bio_err); | ||
262 | if (dsaparam) { | ||
263 | DSA *dsa = DSA_new(); | ||
264 | |||
265 | BIO_printf(bio_err, "Generating DSA parameters, %d bit long prime\n", num); | ||
266 | if (!dsa || !DSA_generate_parameters_ex(dsa, num, | ||
267 | NULL, 0, NULL, NULL, &cb)) { | ||
268 | if (dsa) | ||
269 | DSA_free(dsa); | ||
270 | ERR_print_errors(bio_err); | ||
271 | goto end; | ||
272 | } | ||
273 | dh = DSA_dup_DH(dsa); | ||
274 | DSA_free(dsa); | ||
275 | if (dh == NULL) { | ||
276 | ERR_print_errors(bio_err); | ||
277 | goto end; | ||
278 | } | ||
279 | } else | ||
280 | { | ||
281 | dh = DH_new(); | ||
282 | BIO_printf(bio_err, "Generating DH parameters, %d bit long safe prime, generator %d\n", num, g); | ||
283 | BIO_printf(bio_err, "This is going to take a long time\n"); | ||
284 | if (!dh || !DH_generate_parameters_ex(dh, num, g, &cb)) { | ||
285 | ERR_print_errors(bio_err); | ||
286 | goto end; | ||
287 | } | ||
288 | } | ||
289 | } else { | ||
290 | |||
291 | in = BIO_new(BIO_s_file()); | ||
292 | if (in == NULL) { | ||
293 | ERR_print_errors(bio_err); | ||
294 | goto end; | ||
295 | } | ||
296 | if (infile == NULL) | ||
297 | BIO_set_fp(in, stdin, BIO_NOCLOSE); | ||
298 | else { | ||
299 | if (BIO_read_filename(in, infile) <= 0) { | ||
300 | perror(infile); | ||
301 | goto end; | ||
302 | } | ||
303 | } | ||
304 | |||
305 | if (informat != FORMAT_ASN1 && informat != FORMAT_PEM) { | ||
306 | BIO_printf(bio_err, "bad input format specified\n"); | ||
307 | goto end; | ||
308 | } | ||
309 | if (dsaparam) { | ||
310 | DSA *dsa; | ||
311 | |||
312 | if (informat == FORMAT_ASN1) | ||
313 | dsa = d2i_DSAparams_bio(in, NULL); | ||
314 | else /* informat == FORMAT_PEM */ | ||
315 | dsa = PEM_read_bio_DSAparams(in, NULL, NULL, NULL); | ||
316 | |||
317 | if (dsa == NULL) { | ||
318 | BIO_printf(bio_err, "unable to load DSA parameters\n"); | ||
319 | ERR_print_errors(bio_err); | ||
320 | goto end; | ||
321 | } | ||
322 | dh = DSA_dup_DH(dsa); | ||
323 | DSA_free(dsa); | ||
324 | if (dh == NULL) { | ||
325 | ERR_print_errors(bio_err); | ||
326 | goto end; | ||
327 | } | ||
328 | } else | ||
329 | { | ||
330 | if (informat == FORMAT_ASN1) | ||
331 | dh = d2i_DHparams_bio(in, NULL); | ||
332 | else /* informat == FORMAT_PEM */ | ||
333 | dh = PEM_read_bio_DHparams(in, NULL, NULL, NULL); | ||
334 | |||
335 | if (dh == NULL) { | ||
336 | BIO_printf(bio_err, "unable to load DH parameters\n"); | ||
337 | ERR_print_errors(bio_err); | ||
338 | goto end; | ||
339 | } | ||
340 | } | ||
341 | |||
342 | /* dh != NULL */ | ||
343 | } | ||
344 | |||
345 | out = BIO_new(BIO_s_file()); | ||
346 | if (out == NULL) { | ||
347 | ERR_print_errors(bio_err); | ||
348 | goto end; | ||
349 | } | ||
350 | if (outfile == NULL) { | ||
351 | BIO_set_fp(out, stdout, BIO_NOCLOSE); | ||
352 | } else { | ||
353 | if (BIO_write_filename(out, outfile) <= 0) { | ||
354 | perror(outfile); | ||
355 | goto end; | ||
356 | } | ||
357 | } | ||
358 | |||
359 | |||
360 | if (text) { | ||
361 | DHparams_print(out, dh); | ||
362 | } | ||
363 | if (check) { | ||
364 | if (!DH_check(dh, &i)) { | ||
365 | ERR_print_errors(bio_err); | ||
366 | goto end; | ||
367 | } | ||
368 | if (i & DH_CHECK_P_NOT_PRIME) | ||
369 | printf("p value is not prime\n"); | ||
370 | if (i & DH_CHECK_P_NOT_SAFE_PRIME) | ||
371 | printf("p value is not a safe prime\n"); | ||
372 | if (i & DH_UNABLE_TO_CHECK_GENERATOR) | ||
373 | printf("unable to check the generator value\n"); | ||
374 | if (i & DH_NOT_SUITABLE_GENERATOR) | ||
375 | printf("the g value is not a generator\n"); | ||
376 | if (i == 0) | ||
377 | printf("DH parameters appear to be ok.\n"); | ||
378 | } | ||
379 | if (C) { | ||
380 | unsigned char *data; | ||
381 | int len, l, bits; | ||
382 | |||
383 | len = BN_num_bytes(dh->p); | ||
384 | bits = BN_num_bits(dh->p); | ||
385 | data = malloc(len); | ||
386 | if (data == NULL) { | ||
387 | perror("malloc"); | ||
388 | goto end; | ||
389 | } | ||
390 | printf("#ifndef HEADER_DH_H\n" | ||
391 | "#include <openssl/dh.h>\n" | ||
392 | "#endif\n"); | ||
393 | printf("DH *get_dh%d()\n\t{\n", bits); | ||
394 | |||
395 | l = BN_bn2bin(dh->p, data); | ||
396 | printf("\tstatic unsigned char dh%d_p[] = {", bits); | ||
397 | for (i = 0; i < l; i++) { | ||
398 | if ((i % 12) == 0) | ||
399 | printf("\n\t\t"); | ||
400 | printf("0x%02X, ", data[i]); | ||
401 | } | ||
402 | printf("\n\t\t};\n"); | ||
403 | |||
404 | l = BN_bn2bin(dh->g, data); | ||
405 | printf("\tstatic unsigned char dh%d_g[] = {", bits); | ||
406 | for (i = 0; i < l; i++) { | ||
407 | if ((i % 12) == 0) | ||
408 | printf("\n\t\t"); | ||
409 | printf("0x%02X, ", data[i]); | ||
410 | } | ||
411 | printf("\n\t\t};\n"); | ||
412 | |||
413 | printf("\tDH *dh;\n\n"); | ||
414 | printf("\tif ((dh = DH_new()) == NULL) return(NULL);\n"); | ||
415 | printf("\tdh->p = BN_bin2bn(dh%d_p, sizeof(dh%d_p), NULL);\n", | ||
416 | bits, bits); | ||
417 | printf("\tdh->g = BN_bin2bn(dh%d_g, sizeof(dh%d_g), NULL);\n", | ||
418 | bits, bits); | ||
419 | printf("\tif ((dh->p == NULL) || (dh->g == NULL))\n"); | ||
420 | printf("\t\t{ DH_free(dh); return(NULL); }\n"); | ||
421 | if (dh->length) | ||
422 | printf("\tdh->length = %ld;\n", dh->length); | ||
423 | printf("\treturn(dh);\n\t}\n"); | ||
424 | free(data); | ||
425 | } | ||
426 | if (!noout) { | ||
427 | if (outformat == FORMAT_ASN1) | ||
428 | i = i2d_DHparams_bio(out, dh); | ||
429 | else if (outformat == FORMAT_PEM) | ||
430 | i = PEM_write_bio_DHparams(out, dh); | ||
431 | else { | ||
432 | BIO_printf(bio_err, "bad output format specified for outfile\n"); | ||
433 | goto end; | ||
434 | } | ||
435 | if (!i) { | ||
436 | BIO_printf(bio_err, "unable to write DH parameters\n"); | ||
437 | ERR_print_errors(bio_err); | ||
438 | goto end; | ||
439 | } | ||
440 | } | ||
441 | ret = 0; | ||
442 | |||
443 | end: | ||
444 | BIO_free(in); | ||
445 | if (out != NULL) | ||
446 | BIO_free_all(out); | ||
447 | if (dh != NULL) | ||
448 | DH_free(dh); | ||
449 | |||
450 | return (ret); | ||
451 | } | ||
452 | |||
453 | /* dh_cb is identical to dsa_cb in apps/dsaparam.c */ | ||
454 | static int | ||
455 | dh_cb(int p, int n, BN_GENCB * cb) | ||
456 | { | ||
457 | char c = '*'; | ||
458 | |||
459 | if (p == 0) | ||
460 | c = '.'; | ||
461 | if (p == 1) | ||
462 | c = '+'; | ||
463 | if (p == 2) | ||
464 | c = '*'; | ||
465 | if (p == 3) | ||
466 | c = '\n'; | ||
467 | BIO_write(cb->arg, &c, 1); | ||
468 | (void) BIO_flush(cb->arg); | ||
469 | return 1; | ||
470 | } | ||
471 | |||
472 | #endif | ||
diff --git a/src/usr.bin/openssl/dsa.c b/src/usr.bin/openssl/dsa.c new file mode 100644 index 0000000000..b8ca7dd2ef --- /dev/null +++ b/src/usr.bin/openssl/dsa.c | |||
@@ -0,0 +1,332 @@ | |||
1 | /* $OpenBSD: dsa.c,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
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 <openssl/opensslconf.h> /* for OPENSSL_NO_DSA */ | ||
60 | |||
61 | |||
62 | #include <stdio.h> | ||
63 | #include <stdlib.h> | ||
64 | #include <time.h> | ||
65 | #include <string.h> | ||
66 | |||
67 | #include "apps.h" | ||
68 | |||
69 | #include <openssl/bio.h> | ||
70 | #include <openssl/bn.h> | ||
71 | #include <openssl/dsa.h> | ||
72 | #include <openssl/err.h> | ||
73 | #include <openssl/evp.h> | ||
74 | #include <openssl/pem.h> | ||
75 | #include <openssl/x509.h> | ||
76 | |||
77 | /* -inform arg - input format - default PEM (one of DER, NET or PEM) | ||
78 | * -outform arg - output format - default PEM | ||
79 | * -in arg - input file - default stdin | ||
80 | * -out arg - output file - default stdout | ||
81 | * -des - encrypt output if PEM format with DES in cbc mode | ||
82 | * -des3 - encrypt output if PEM format | ||
83 | * -idea - encrypt output if PEM format | ||
84 | * -aes128 - encrypt output if PEM format | ||
85 | * -aes192 - encrypt output if PEM format | ||
86 | * -aes256 - encrypt output if PEM format | ||
87 | * -camellia128 - encrypt output if PEM format | ||
88 | * -camellia192 - encrypt output if PEM format | ||
89 | * -camellia256 - encrypt output if PEM format | ||
90 | * -seed - encrypt output if PEM format | ||
91 | * -text - print a text version | ||
92 | * -modulus - print the DSA public key | ||
93 | */ | ||
94 | |||
95 | int dsa_main(int, char **); | ||
96 | |||
97 | int | ||
98 | dsa_main(int argc, char **argv) | ||
99 | { | ||
100 | ENGINE *e = NULL; | ||
101 | int ret = 1; | ||
102 | DSA *dsa = NULL; | ||
103 | int i, badops = 0; | ||
104 | const EVP_CIPHER *enc = NULL; | ||
105 | BIO *in = NULL, *out = NULL; | ||
106 | int informat, outformat, text = 0, noout = 0; | ||
107 | int pubin = 0, pubout = 0; | ||
108 | char *infile, *outfile, *prog; | ||
109 | #ifndef OPENSSL_NO_ENGINE | ||
110 | char *engine; | ||
111 | #endif | ||
112 | char *passargin = NULL, *passargout = NULL; | ||
113 | char *passin = NULL, *passout = NULL; | ||
114 | int modulus = 0; | ||
115 | |||
116 | int pvk_encr = 2; | ||
117 | |||
118 | #ifndef OPENSSL_NO_ENGINE | ||
119 | engine = NULL; | ||
120 | #endif | ||
121 | infile = NULL; | ||
122 | outfile = NULL; | ||
123 | informat = FORMAT_PEM; | ||
124 | outformat = FORMAT_PEM; | ||
125 | |||
126 | prog = argv[0]; | ||
127 | argc--; | ||
128 | argv++; | ||
129 | while (argc >= 1) { | ||
130 | if (strcmp(*argv, "-inform") == 0) { | ||
131 | if (--argc < 1) | ||
132 | goto bad; | ||
133 | informat = str2fmt(*(++argv)); | ||
134 | } else if (strcmp(*argv, "-outform") == 0) { | ||
135 | if (--argc < 1) | ||
136 | goto bad; | ||
137 | outformat = str2fmt(*(++argv)); | ||
138 | } else if (strcmp(*argv, "-in") == 0) { | ||
139 | if (--argc < 1) | ||
140 | goto bad; | ||
141 | infile = *(++argv); | ||
142 | } else if (strcmp(*argv, "-out") == 0) { | ||
143 | if (--argc < 1) | ||
144 | goto bad; | ||
145 | outfile = *(++argv); | ||
146 | } else if (strcmp(*argv, "-passin") == 0) { | ||
147 | if (--argc < 1) | ||
148 | goto bad; | ||
149 | passargin = *(++argv); | ||
150 | } else if (strcmp(*argv, "-passout") == 0) { | ||
151 | if (--argc < 1) | ||
152 | goto bad; | ||
153 | passargout = *(++argv); | ||
154 | } | ||
155 | #ifndef OPENSSL_NO_ENGINE | ||
156 | else if (strcmp(*argv, "-engine") == 0) { | ||
157 | if (--argc < 1) | ||
158 | goto bad; | ||
159 | engine = *(++argv); | ||
160 | } | ||
161 | #endif | ||
162 | else if (strcmp(*argv, "-pvk-strong") == 0) | ||
163 | pvk_encr = 2; | ||
164 | else if (strcmp(*argv, "-pvk-weak") == 0) | ||
165 | pvk_encr = 1; | ||
166 | else if (strcmp(*argv, "-pvk-none") == 0) | ||
167 | pvk_encr = 0; | ||
168 | else if (strcmp(*argv, "-noout") == 0) | ||
169 | noout = 1; | ||
170 | else if (strcmp(*argv, "-text") == 0) | ||
171 | text = 1; | ||
172 | else if (strcmp(*argv, "-modulus") == 0) | ||
173 | modulus = 1; | ||
174 | else if (strcmp(*argv, "-pubin") == 0) | ||
175 | pubin = 1; | ||
176 | else if (strcmp(*argv, "-pubout") == 0) | ||
177 | pubout = 1; | ||
178 | else if ((enc = EVP_get_cipherbyname(&(argv[0][1]))) == NULL) { | ||
179 | BIO_printf(bio_err, "unknown option %s\n", *argv); | ||
180 | badops = 1; | ||
181 | break; | ||
182 | } | ||
183 | argc--; | ||
184 | argv++; | ||
185 | } | ||
186 | |||
187 | if (badops) { | ||
188 | bad: | ||
189 | BIO_printf(bio_err, "%s [options] <infile >outfile\n", prog); | ||
190 | BIO_printf(bio_err, "where options are\n"); | ||
191 | BIO_printf(bio_err, " -inform arg input format - DER or PEM\n"); | ||
192 | BIO_printf(bio_err, " -outform arg output format - DER or PEM\n"); | ||
193 | BIO_printf(bio_err, " -in arg input file\n"); | ||
194 | BIO_printf(bio_err, " -passin arg input file pass phrase source\n"); | ||
195 | BIO_printf(bio_err, " -out arg output file\n"); | ||
196 | BIO_printf(bio_err, " -passout arg output file pass phrase source\n"); | ||
197 | #ifndef OPENSSL_NO_ENGINE | ||
198 | BIO_printf(bio_err, " -engine e use engine e, possibly a hardware device.\n"); | ||
199 | #endif | ||
200 | BIO_printf(bio_err, " -des encrypt PEM output with cbc des\n"); | ||
201 | BIO_printf(bio_err, " -des3 encrypt PEM output with ede cbc des using 168 bit key\n"); | ||
202 | #ifndef OPENSSL_NO_IDEA | ||
203 | BIO_printf(bio_err, " -idea encrypt PEM output with cbc idea\n"); | ||
204 | #endif | ||
205 | #ifndef OPENSSL_NO_AES | ||
206 | BIO_printf(bio_err, " -aes128, -aes192, -aes256\n"); | ||
207 | BIO_printf(bio_err, " encrypt PEM output with cbc aes\n"); | ||
208 | #endif | ||
209 | #ifndef OPENSSL_NO_CAMELLIA | ||
210 | BIO_printf(bio_err, " -camellia128, -camellia192, -camellia256\n"); | ||
211 | BIO_printf(bio_err, " encrypt PEM output with cbc camellia\n"); | ||
212 | #endif | ||
213 | BIO_printf(bio_err, " -text print the key in text\n"); | ||
214 | BIO_printf(bio_err, " -noout don't print key out\n"); | ||
215 | BIO_printf(bio_err, " -modulus print the DSA public value\n"); | ||
216 | goto end; | ||
217 | } | ||
218 | ERR_load_crypto_strings(); | ||
219 | |||
220 | #ifndef OPENSSL_NO_ENGINE | ||
221 | e = setup_engine(bio_err, engine, 0); | ||
222 | #endif | ||
223 | |||
224 | if (!app_passwd(bio_err, passargin, passargout, &passin, &passout)) { | ||
225 | BIO_printf(bio_err, "Error getting passwords\n"); | ||
226 | goto end; | ||
227 | } | ||
228 | in = BIO_new(BIO_s_file()); | ||
229 | out = BIO_new(BIO_s_file()); | ||
230 | if ((in == NULL) || (out == NULL)) { | ||
231 | ERR_print_errors(bio_err); | ||
232 | goto end; | ||
233 | } | ||
234 | if (infile == NULL) | ||
235 | BIO_set_fp(in, stdin, BIO_NOCLOSE); | ||
236 | else { | ||
237 | if (BIO_read_filename(in, infile) <= 0) { | ||
238 | perror(infile); | ||
239 | goto end; | ||
240 | } | ||
241 | } | ||
242 | |||
243 | BIO_printf(bio_err, "read DSA key\n"); | ||
244 | |||
245 | { | ||
246 | EVP_PKEY *pkey; | ||
247 | |||
248 | if (pubin) | ||
249 | pkey = load_pubkey(bio_err, infile, informat, 1, | ||
250 | passin, e, "Public Key"); | ||
251 | else | ||
252 | pkey = load_key(bio_err, infile, informat, 1, | ||
253 | passin, e, "Private Key"); | ||
254 | |||
255 | if (pkey) { | ||
256 | dsa = EVP_PKEY_get1_DSA(pkey); | ||
257 | EVP_PKEY_free(pkey); | ||
258 | } | ||
259 | } | ||
260 | if (dsa == NULL) { | ||
261 | BIO_printf(bio_err, "unable to load Key\n"); | ||
262 | ERR_print_errors(bio_err); | ||
263 | goto end; | ||
264 | } | ||
265 | if (outfile == NULL) { | ||
266 | BIO_set_fp(out, stdout, BIO_NOCLOSE); | ||
267 | } else { | ||
268 | if (BIO_write_filename(out, outfile) <= 0) { | ||
269 | perror(outfile); | ||
270 | goto end; | ||
271 | } | ||
272 | } | ||
273 | |||
274 | if (text) { | ||
275 | if (!DSA_print(out, dsa, 0)) { | ||
276 | perror(outfile); | ||
277 | ERR_print_errors(bio_err); | ||
278 | goto end; | ||
279 | } | ||
280 | } | ||
281 | if (modulus) { | ||
282 | fprintf(stdout, "Public Key="); | ||
283 | BN_print(out, dsa->pub_key); | ||
284 | fprintf(stdout, "\n"); | ||
285 | } | ||
286 | if (noout) | ||
287 | goto end; | ||
288 | BIO_printf(bio_err, "writing DSA key\n"); | ||
289 | if (outformat == FORMAT_ASN1) { | ||
290 | if (pubin || pubout) | ||
291 | i = i2d_DSA_PUBKEY_bio(out, dsa); | ||
292 | else | ||
293 | i = i2d_DSAPrivateKey_bio(out, dsa); | ||
294 | } else if (outformat == FORMAT_PEM) { | ||
295 | if (pubin || pubout) | ||
296 | i = PEM_write_bio_DSA_PUBKEY(out, dsa); | ||
297 | else | ||
298 | i = PEM_write_bio_DSAPrivateKey(out, dsa, enc, | ||
299 | NULL, 0, NULL, passout); | ||
300 | #if !defined(OPENSSL_NO_RSA) && !defined(OPENSSL_NO_RC4) | ||
301 | } else if (outformat == FORMAT_MSBLOB || outformat == FORMAT_PVK) { | ||
302 | EVP_PKEY *pk; | ||
303 | pk = EVP_PKEY_new(); | ||
304 | EVP_PKEY_set1_DSA(pk, dsa); | ||
305 | if (outformat == FORMAT_PVK) | ||
306 | i = i2b_PVK_bio(out, pk, pvk_encr, 0, passout); | ||
307 | else if (pubin || pubout) | ||
308 | i = i2b_PublicKey_bio(out, pk); | ||
309 | else | ||
310 | i = i2b_PrivateKey_bio(out, pk); | ||
311 | EVP_PKEY_free(pk); | ||
312 | #endif | ||
313 | } else { | ||
314 | BIO_printf(bio_err, "bad output format specified for outfile\n"); | ||
315 | goto end; | ||
316 | } | ||
317 | if (i <= 0) { | ||
318 | BIO_printf(bio_err, "unable to write private key\n"); | ||
319 | ERR_print_errors(bio_err); | ||
320 | } else | ||
321 | ret = 0; | ||
322 | end: | ||
323 | BIO_free(in); | ||
324 | if (out != NULL) | ||
325 | BIO_free_all(out); | ||
326 | if (dsa != NULL) | ||
327 | DSA_free(dsa); | ||
328 | free(passin); | ||
329 | free(passout); | ||
330 | |||
331 | return (ret); | ||
332 | } | ||
diff --git a/src/usr.bin/openssl/dsaparam.c b/src/usr.bin/openssl/dsaparam.c new file mode 100644 index 0000000000..5c17a2c9ac --- /dev/null +++ b/src/usr.bin/openssl/dsaparam.c | |||
@@ -0,0 +1,414 @@ | |||
1 | /* $OpenBSD: dsaparam.c,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
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 <openssl/opensslconf.h> /* for OPENSSL_NO_DSA */ | ||
60 | |||
61 | /* Until the key-gen callbacks are modified to use newer prototypes, we allow | ||
62 | * deprecated functions for openssl-internal code */ | ||
63 | #ifdef OPENSSL_NO_DEPRECATED | ||
64 | #undef OPENSSL_NO_DEPRECATED | ||
65 | #endif | ||
66 | |||
67 | |||
68 | #include <stdio.h> | ||
69 | #include <stdlib.h> | ||
70 | #include <string.h> | ||
71 | #include <time.h> | ||
72 | |||
73 | #include "apps.h" | ||
74 | |||
75 | #include <openssl/bio.h> | ||
76 | #include <openssl/bn.h> | ||
77 | #include <openssl/err.h> | ||
78 | #include <openssl/dsa.h> | ||
79 | #include <openssl/pem.h> | ||
80 | #include <openssl/x509.h> | ||
81 | |||
82 | /* -inform arg - input format - default PEM (DER or PEM) | ||
83 | * -outform arg - output format - default PEM | ||
84 | * -in arg - input file - default stdin | ||
85 | * -out arg - output file - default stdout | ||
86 | * -noout | ||
87 | * -text | ||
88 | * -C | ||
89 | * -noout | ||
90 | * -genkey | ||
91 | * #ifdef GENCB_TEST | ||
92 | * -timebomb n - interrupt keygen after <n> seconds | ||
93 | * #endif | ||
94 | */ | ||
95 | |||
96 | #ifdef GENCB_TEST | ||
97 | |||
98 | static int stop_keygen_flag = 0; | ||
99 | |||
100 | static void | ||
101 | timebomb_sigalarm(int foo) | ||
102 | { | ||
103 | stop_keygen_flag = 1; | ||
104 | } | ||
105 | |||
106 | #endif | ||
107 | |||
108 | static int dsa_cb(int p, int n, BN_GENCB * cb); | ||
109 | |||
110 | int dsaparam_main(int, char **); | ||
111 | |||
112 | int | ||
113 | dsaparam_main(int argc, char **argv) | ||
114 | { | ||
115 | DSA *dsa = NULL; | ||
116 | int i, badops = 0, text = 0; | ||
117 | BIO *in = NULL, *out = NULL; | ||
118 | int informat, outformat, noout = 0, C = 0, ret = 1; | ||
119 | char *infile, *outfile, *prog; | ||
120 | int numbits = -1, num, genkey = 0; | ||
121 | #ifndef OPENSSL_NO_ENGINE | ||
122 | char *engine = NULL; | ||
123 | #endif | ||
124 | #ifdef GENCB_TEST | ||
125 | const char *errstr = NULL; | ||
126 | int timebomb = 0; | ||
127 | #endif | ||
128 | |||
129 | infile = NULL; | ||
130 | outfile = NULL; | ||
131 | informat = FORMAT_PEM; | ||
132 | outformat = FORMAT_PEM; | ||
133 | |||
134 | prog = argv[0]; | ||
135 | argc--; | ||
136 | argv++; | ||
137 | while (argc >= 1) { | ||
138 | if (strcmp(*argv, "-inform") == 0) { | ||
139 | if (--argc < 1) | ||
140 | goto bad; | ||
141 | informat = str2fmt(*(++argv)); | ||
142 | } else if (strcmp(*argv, "-outform") == 0) { | ||
143 | if (--argc < 1) | ||
144 | goto bad; | ||
145 | outformat = str2fmt(*(++argv)); | ||
146 | } else if (strcmp(*argv, "-in") == 0) { | ||
147 | if (--argc < 1) | ||
148 | goto bad; | ||
149 | infile = *(++argv); | ||
150 | } else if (strcmp(*argv, "-out") == 0) { | ||
151 | if (--argc < 1) | ||
152 | goto bad; | ||
153 | outfile = *(++argv); | ||
154 | } | ||
155 | #ifndef OPENSSL_NO_ENGINE | ||
156 | else if (strcmp(*argv, "-engine") == 0) { | ||
157 | if (--argc < 1) | ||
158 | goto bad; | ||
159 | engine = *(++argv); | ||
160 | } | ||
161 | #endif | ||
162 | #ifdef GENCB_TEST | ||
163 | else if (strcmp(*argv, "-timebomb") == 0) { | ||
164 | if (--argc < 1) | ||
165 | goto bad; | ||
166 | timebomb = strtonum(*(++argv), 0, INT_MAX, &errstr); | ||
167 | if (errstr) | ||
168 | goto bad; | ||
169 | } | ||
170 | #endif | ||
171 | else if (strcmp(*argv, "-text") == 0) | ||
172 | text = 1; | ||
173 | else if (strcmp(*argv, "-C") == 0) | ||
174 | C = 1; | ||
175 | else if (strcmp(*argv, "-genkey") == 0) { | ||
176 | genkey = 1; | ||
177 | } else if (strcmp(*argv, "-noout") == 0) | ||
178 | noout = 1; | ||
179 | else if (sscanf(*argv, "%d", &num) == 1) { | ||
180 | /* generate a key */ | ||
181 | numbits = num; | ||
182 | } else { | ||
183 | BIO_printf(bio_err, "unknown option %s\n", *argv); | ||
184 | badops = 1; | ||
185 | break; | ||
186 | } | ||
187 | argc--; | ||
188 | argv++; | ||
189 | } | ||
190 | |||
191 | if (badops) { | ||
192 | bad: | ||
193 | BIO_printf(bio_err, "%s [options] [bits] <infile >outfile\n", prog); | ||
194 | BIO_printf(bio_err, "where options are\n"); | ||
195 | BIO_printf(bio_err, " -inform arg input format - DER or PEM\n"); | ||
196 | BIO_printf(bio_err, " -outform arg output format - DER or PEM\n"); | ||
197 | BIO_printf(bio_err, " -in arg input file\n"); | ||
198 | BIO_printf(bio_err, " -out arg output file\n"); | ||
199 | BIO_printf(bio_err, " -text print as text\n"); | ||
200 | BIO_printf(bio_err, " -C Output C code\n"); | ||
201 | BIO_printf(bio_err, " -noout no output\n"); | ||
202 | BIO_printf(bio_err, " -genkey generate a DSA key\n"); | ||
203 | #ifndef OPENSSL_NO_ENGINE | ||
204 | BIO_printf(bio_err, " -engine e use engine e, possibly a hardware device.\n"); | ||
205 | #endif | ||
206 | #ifdef GENCB_TEST | ||
207 | BIO_printf(bio_err, " -timebomb n interrupt keygen after <n> seconds\n"); | ||
208 | #endif | ||
209 | BIO_printf(bio_err, " number number of bits to use for generating private key\n"); | ||
210 | goto end; | ||
211 | } | ||
212 | ERR_load_crypto_strings(); | ||
213 | |||
214 | in = BIO_new(BIO_s_file()); | ||
215 | out = BIO_new(BIO_s_file()); | ||
216 | if ((in == NULL) || (out == NULL)) { | ||
217 | ERR_print_errors(bio_err); | ||
218 | goto end; | ||
219 | } | ||
220 | if (infile == NULL) | ||
221 | BIO_set_fp(in, stdin, BIO_NOCLOSE); | ||
222 | else { | ||
223 | if (BIO_read_filename(in, infile) <= 0) { | ||
224 | perror(infile); | ||
225 | goto end; | ||
226 | } | ||
227 | } | ||
228 | if (outfile == NULL) { | ||
229 | BIO_set_fp(out, stdout, BIO_NOCLOSE); | ||
230 | } else { | ||
231 | if (BIO_write_filename(out, outfile) <= 0) { | ||
232 | perror(outfile); | ||
233 | goto end; | ||
234 | } | ||
235 | } | ||
236 | |||
237 | #ifndef OPENSSL_NO_ENGINE | ||
238 | setup_engine(bio_err, engine, 0); | ||
239 | #endif | ||
240 | |||
241 | if (numbits > 0) { | ||
242 | BN_GENCB cb; | ||
243 | BN_GENCB_set(&cb, dsa_cb, bio_err); | ||
244 | dsa = DSA_new(); | ||
245 | if (!dsa) { | ||
246 | BIO_printf(bio_err, "Error allocating DSA object\n"); | ||
247 | goto end; | ||
248 | } | ||
249 | BIO_printf(bio_err, "Generating DSA parameters, %d bit long prime\n", num); | ||
250 | BIO_printf(bio_err, "This could take some time\n"); | ||
251 | #ifdef GENCB_TEST | ||
252 | if (timebomb > 0) { | ||
253 | struct sigaction act; | ||
254 | act.sa_handler = timebomb_sigalarm; | ||
255 | act.sa_flags = 0; | ||
256 | BIO_printf(bio_err, "(though I'll stop it if not done within %d secs)\n", | ||
257 | timebomb); | ||
258 | if (sigaction(SIGALRM, &act, NULL) != 0) { | ||
259 | BIO_printf(bio_err, "Error, couldn't set SIGALRM handler\n"); | ||
260 | goto end; | ||
261 | } | ||
262 | alarm(timebomb); | ||
263 | } | ||
264 | #endif | ||
265 | if (!DSA_generate_parameters_ex(dsa, num, NULL, 0, NULL, NULL, &cb)) { | ||
266 | #ifdef GENCB_TEST | ||
267 | if (stop_keygen_flag) { | ||
268 | BIO_printf(bio_err, "DSA key generation time-stopped\n"); | ||
269 | /* This is an asked-for behaviour! */ | ||
270 | ret = 0; | ||
271 | goto end; | ||
272 | } | ||
273 | #endif | ||
274 | ERR_print_errors(bio_err); | ||
275 | BIO_printf(bio_err, "Error, DSA key generation failed\n"); | ||
276 | goto end; | ||
277 | } | ||
278 | } else if (informat == FORMAT_ASN1) | ||
279 | dsa = d2i_DSAparams_bio(in, NULL); | ||
280 | else if (informat == FORMAT_PEM) | ||
281 | dsa = PEM_read_bio_DSAparams(in, NULL, NULL, NULL); | ||
282 | else { | ||
283 | BIO_printf(bio_err, "bad input format specified\n"); | ||
284 | goto end; | ||
285 | } | ||
286 | if (dsa == NULL) { | ||
287 | BIO_printf(bio_err, "unable to load DSA parameters\n"); | ||
288 | ERR_print_errors(bio_err); | ||
289 | goto end; | ||
290 | } | ||
291 | if (text) { | ||
292 | DSAparams_print(out, dsa); | ||
293 | } | ||
294 | if (C) { | ||
295 | unsigned char *data; | ||
296 | int l, len, bits_p; | ||
297 | |||
298 | len = BN_num_bytes(dsa->p); | ||
299 | bits_p = BN_num_bits(dsa->p); | ||
300 | data = malloc(len + 20); | ||
301 | if (data == NULL) { | ||
302 | perror("malloc"); | ||
303 | goto end; | ||
304 | } | ||
305 | l = BN_bn2bin(dsa->p, data); | ||
306 | printf("static unsigned char dsa%d_p[] = {", bits_p); | ||
307 | for (i = 0; i < l; i++) { | ||
308 | if ((i % 12) == 0) | ||
309 | printf("\n\t"); | ||
310 | printf("0x%02X, ", data[i]); | ||
311 | } | ||
312 | printf("\n\t};\n"); | ||
313 | |||
314 | l = BN_bn2bin(dsa->q, data); | ||
315 | printf("static unsigned char dsa%d_q[] = {", bits_p); | ||
316 | for (i = 0; i < l; i++) { | ||
317 | if ((i % 12) == 0) | ||
318 | printf("\n\t"); | ||
319 | printf("0x%02X, ", data[i]); | ||
320 | } | ||
321 | printf("\n\t};\n"); | ||
322 | |||
323 | l = BN_bn2bin(dsa->g, data); | ||
324 | printf("static unsigned char dsa%d_g[] = {", bits_p); | ||
325 | for (i = 0; i < l; i++) { | ||
326 | if ((i % 12) == 0) | ||
327 | printf("\n\t"); | ||
328 | printf("0x%02X, ", data[i]); | ||
329 | } | ||
330 | free(data); | ||
331 | printf("\n\t};\n\n"); | ||
332 | |||
333 | printf("DSA *get_dsa%d()\n\t{\n", bits_p); | ||
334 | printf("\tDSA *dsa;\n\n"); | ||
335 | printf("\tif ((dsa = DSA_new()) == NULL) return(NULL);\n"); | ||
336 | printf("\tdsa->p = BN_bin2bn(dsa%d_p, sizeof(dsa%d_p), NULL);\n", | ||
337 | bits_p, bits_p); | ||
338 | printf("\tdsa->q = BN_bin2bn(dsa%d_q, sizeof(dsa%d_q), NULL);\n", | ||
339 | bits_p, bits_p); | ||
340 | printf("\tdsa->g = BN_bin2bn(dsa%d_g, sizeof(dsa%d_g), NULL);\n", | ||
341 | bits_p, bits_p); | ||
342 | printf("\tif ((dsa->p == NULL) || (dsa->q == NULL) || (dsa->g == NULL))\n"); | ||
343 | printf("\t\t{ DSA_free(dsa); return(NULL); }\n"); | ||
344 | printf("\treturn(dsa);\n\t}\n"); | ||
345 | } | ||
346 | if (!noout) { | ||
347 | if (outformat == FORMAT_ASN1) | ||
348 | i = i2d_DSAparams_bio(out, dsa); | ||
349 | else if (outformat == FORMAT_PEM) | ||
350 | i = PEM_write_bio_DSAparams(out, dsa); | ||
351 | else { | ||
352 | BIO_printf(bio_err, "bad output format specified for outfile\n"); | ||
353 | goto end; | ||
354 | } | ||
355 | if (!i) { | ||
356 | BIO_printf(bio_err, "unable to write DSA parameters\n"); | ||
357 | ERR_print_errors(bio_err); | ||
358 | goto end; | ||
359 | } | ||
360 | } | ||
361 | if (genkey) { | ||
362 | DSA *dsakey; | ||
363 | |||
364 | if ((dsakey = DSAparams_dup(dsa)) == NULL) | ||
365 | goto end; | ||
366 | if (!DSA_generate_key(dsakey)) { | ||
367 | ERR_print_errors(bio_err); | ||
368 | DSA_free(dsakey); | ||
369 | goto end; | ||
370 | } | ||
371 | if (outformat == FORMAT_ASN1) | ||
372 | i = i2d_DSAPrivateKey_bio(out, dsakey); | ||
373 | else if (outformat == FORMAT_PEM) | ||
374 | i = PEM_write_bio_DSAPrivateKey(out, dsakey, NULL, NULL, 0, NULL, NULL); | ||
375 | else { | ||
376 | BIO_printf(bio_err, "bad output format specified for outfile\n"); | ||
377 | DSA_free(dsakey); | ||
378 | goto end; | ||
379 | } | ||
380 | DSA_free(dsakey); | ||
381 | } | ||
382 | ret = 0; | ||
383 | |||
384 | end: | ||
385 | BIO_free(in); | ||
386 | if (out != NULL) | ||
387 | BIO_free_all(out); | ||
388 | if (dsa != NULL) | ||
389 | DSA_free(dsa); | ||
390 | |||
391 | return (ret); | ||
392 | } | ||
393 | |||
394 | static int | ||
395 | dsa_cb(int p, int n, BN_GENCB * cb) | ||
396 | { | ||
397 | char c = '*'; | ||
398 | |||
399 | if (p == 0) | ||
400 | c = '.'; | ||
401 | if (p == 1) | ||
402 | c = '+'; | ||
403 | if (p == 2) | ||
404 | c = '*'; | ||
405 | if (p == 3) | ||
406 | c = '\n'; | ||
407 | BIO_write(cb->arg, &c, 1); | ||
408 | (void) BIO_flush(cb->arg); | ||
409 | #ifdef GENCB_TEST | ||
410 | if (stop_keygen_flag) | ||
411 | return 0; | ||
412 | #endif | ||
413 | return 1; | ||
414 | } | ||
diff --git a/src/usr.bin/openssl/ec.c b/src/usr.bin/openssl/ec.c new file mode 100644 index 0000000000..f1bdf55e33 --- /dev/null +++ b/src/usr.bin/openssl/ec.c | |||
@@ -0,0 +1,341 @@ | |||
1 | /* $OpenBSD: ec.c,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
2 | /* | ||
3 | * Written by Nils Larsch for the OpenSSL project. | ||
4 | */ | ||
5 | /* ==================================================================== | ||
6 | * Copyright (c) 1998-2005 The OpenSSL Project. All rights reserved. | ||
7 | * | ||
8 | * Redistribution and use in source and binary forms, with or without | ||
9 | * modification, are permitted provided that the following conditions | ||
10 | * are met: | ||
11 | * | ||
12 | * 1. Redistributions of source code must retain the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer. | ||
14 | * | ||
15 | * 2. Redistributions in binary form must reproduce the above copyright | ||
16 | * notice, this list of conditions and the following disclaimer in | ||
17 | * the documentation and/or other materials provided with the | ||
18 | * distribution. | ||
19 | * | ||
20 | * 3. All advertising materials mentioning features or use of this | ||
21 | * software must display the following acknowledgment: | ||
22 | * "This product includes software developed by the OpenSSL Project | ||
23 | * for use in the OpenSSL Toolkit. (http://www.openssl.org/)" | ||
24 | * | ||
25 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
26 | * endorse or promote products derived from this software without | ||
27 | * prior written permission. For written permission, please contact | ||
28 | * openssl-core@openssl.org. | ||
29 | * | ||
30 | * 5. Products derived from this software may not be called "OpenSSL" | ||
31 | * nor may "OpenSSL" appear in their names without prior written | ||
32 | * permission of the OpenSSL Project. | ||
33 | * | ||
34 | * 6. Redistributions of any form whatsoever must retain the following | ||
35 | * acknowledgment: | ||
36 | * "This product includes software developed by the OpenSSL Project | ||
37 | * for use in the OpenSSL Toolkit (http://www.openssl.org/)" | ||
38 | * | ||
39 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
40 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
41 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
42 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
43 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
44 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
45 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
46 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
47 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
48 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
49 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
50 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
51 | * ==================================================================== | ||
52 | * | ||
53 | * This product includes cryptographic software written by Eric Young | ||
54 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
55 | * Hudson (tjh@cryptsoft.com). | ||
56 | * | ||
57 | */ | ||
58 | |||
59 | #include <openssl/opensslconf.h> | ||
60 | |||
61 | #ifndef OPENSSL_NO_EC | ||
62 | |||
63 | #include <stdio.h> | ||
64 | #include <stdlib.h> | ||
65 | #include <string.h> | ||
66 | |||
67 | #include "apps.h" | ||
68 | |||
69 | #include <openssl/bio.h> | ||
70 | #include <openssl/err.h> | ||
71 | #include <openssl/evp.h> | ||
72 | #include <openssl/pem.h> | ||
73 | |||
74 | /* -inform arg - input format - default PEM (one of DER, NET or PEM) | ||
75 | * -outform arg - output format - default PEM | ||
76 | * -in arg - input file - default stdin | ||
77 | * -out arg - output file - default stdout | ||
78 | * -des - encrypt output if PEM format with DES in cbc mode | ||
79 | * -text - print a text version | ||
80 | * -param_out - print the elliptic curve parameters | ||
81 | * -conv_form arg - specifies the point encoding form | ||
82 | * -param_enc arg - specifies the parameter encoding | ||
83 | */ | ||
84 | |||
85 | int ec_main(int, char **); | ||
86 | |||
87 | int | ||
88 | ec_main(int argc, char **argv) | ||
89 | { | ||
90 | int ret = 1; | ||
91 | EC_KEY *eckey = NULL; | ||
92 | const EC_GROUP *group; | ||
93 | int i, badops = 0; | ||
94 | const EVP_CIPHER *enc = NULL; | ||
95 | BIO *in = NULL, *out = NULL; | ||
96 | int informat, outformat, text = 0, noout = 0; | ||
97 | int pubin = 0, pubout = 0, param_out = 0; | ||
98 | char *infile, *outfile, *prog, *engine; | ||
99 | char *passargin = NULL, *passargout = NULL; | ||
100 | char *passin = NULL, *passout = NULL; | ||
101 | point_conversion_form_t form = POINT_CONVERSION_UNCOMPRESSED; | ||
102 | int new_form = 0; | ||
103 | int asn1_flag = OPENSSL_EC_NAMED_CURVE; | ||
104 | int new_asn1_flag = 0; | ||
105 | |||
106 | engine = NULL; | ||
107 | infile = NULL; | ||
108 | outfile = NULL; | ||
109 | informat = FORMAT_PEM; | ||
110 | outformat = FORMAT_PEM; | ||
111 | |||
112 | prog = argv[0]; | ||
113 | argc--; | ||
114 | argv++; | ||
115 | while (argc >= 1) { | ||
116 | if (strcmp(*argv, "-inform") == 0) { | ||
117 | if (--argc < 1) | ||
118 | goto bad; | ||
119 | informat = str2fmt(*(++argv)); | ||
120 | } else if (strcmp(*argv, "-outform") == 0) { | ||
121 | if (--argc < 1) | ||
122 | goto bad; | ||
123 | outformat = str2fmt(*(++argv)); | ||
124 | } else if (strcmp(*argv, "-in") == 0) { | ||
125 | if (--argc < 1) | ||
126 | goto bad; | ||
127 | infile = *(++argv); | ||
128 | } else if (strcmp(*argv, "-out") == 0) { | ||
129 | if (--argc < 1) | ||
130 | goto bad; | ||
131 | outfile = *(++argv); | ||
132 | } else if (strcmp(*argv, "-passin") == 0) { | ||
133 | if (--argc < 1) | ||
134 | goto bad; | ||
135 | passargin = *(++argv); | ||
136 | } else if (strcmp(*argv, "-passout") == 0) { | ||
137 | if (--argc < 1) | ||
138 | goto bad; | ||
139 | passargout = *(++argv); | ||
140 | } else if (strcmp(*argv, "-engine") == 0) { | ||
141 | if (--argc < 1) | ||
142 | goto bad; | ||
143 | engine = *(++argv); | ||
144 | } else if (strcmp(*argv, "-noout") == 0) | ||
145 | noout = 1; | ||
146 | else if (strcmp(*argv, "-text") == 0) | ||
147 | text = 1; | ||
148 | else if (strcmp(*argv, "-conv_form") == 0) { | ||
149 | if (--argc < 1) | ||
150 | goto bad; | ||
151 | ++argv; | ||
152 | new_form = 1; | ||
153 | if (strcmp(*argv, "compressed") == 0) | ||
154 | form = POINT_CONVERSION_COMPRESSED; | ||
155 | else if (strcmp(*argv, "uncompressed") == 0) | ||
156 | form = POINT_CONVERSION_UNCOMPRESSED; | ||
157 | else if (strcmp(*argv, "hybrid") == 0) | ||
158 | form = POINT_CONVERSION_HYBRID; | ||
159 | else | ||
160 | goto bad; | ||
161 | } else if (strcmp(*argv, "-param_enc") == 0) { | ||
162 | if (--argc < 1) | ||
163 | goto bad; | ||
164 | ++argv; | ||
165 | new_asn1_flag = 1; | ||
166 | if (strcmp(*argv, "named_curve") == 0) | ||
167 | asn1_flag = OPENSSL_EC_NAMED_CURVE; | ||
168 | else if (strcmp(*argv, "explicit") == 0) | ||
169 | asn1_flag = 0; | ||
170 | else | ||
171 | goto bad; | ||
172 | } else if (strcmp(*argv, "-param_out") == 0) | ||
173 | param_out = 1; | ||
174 | else if (strcmp(*argv, "-pubin") == 0) | ||
175 | pubin = 1; | ||
176 | else if (strcmp(*argv, "-pubout") == 0) | ||
177 | pubout = 1; | ||
178 | else if ((enc = EVP_get_cipherbyname(&(argv[0][1]))) == NULL) { | ||
179 | BIO_printf(bio_err, "unknown option %s\n", *argv); | ||
180 | badops = 1; | ||
181 | break; | ||
182 | } | ||
183 | argc--; | ||
184 | argv++; | ||
185 | } | ||
186 | |||
187 | if (badops) { | ||
188 | bad: | ||
189 | BIO_printf(bio_err, "%s [options] <infile >outfile\n", prog); | ||
190 | BIO_printf(bio_err, "where options are\n"); | ||
191 | BIO_printf(bio_err, " -inform arg input format - " | ||
192 | "DER or PEM\n"); | ||
193 | BIO_printf(bio_err, " -outform arg output format - " | ||
194 | "DER or PEM\n"); | ||
195 | BIO_printf(bio_err, " -in arg input file\n"); | ||
196 | BIO_printf(bio_err, " -passin arg input file pass " | ||
197 | "phrase source\n"); | ||
198 | BIO_printf(bio_err, " -out arg output file\n"); | ||
199 | BIO_printf(bio_err, " -passout arg output file pass " | ||
200 | "phrase source\n"); | ||
201 | BIO_printf(bio_err, " -engine e use engine e, " | ||
202 | "possibly a hardware device.\n"); | ||
203 | BIO_printf(bio_err, " -des encrypt PEM output, " | ||
204 | "instead of 'des' every other \n" | ||
205 | " cipher " | ||
206 | "supported by OpenSSL can be used\n"); | ||
207 | BIO_printf(bio_err, " -text print the key\n"); | ||
208 | BIO_printf(bio_err, " -noout don't print key out\n"); | ||
209 | BIO_printf(bio_err, " -param_out print the elliptic " | ||
210 | "curve parameters\n"); | ||
211 | BIO_printf(bio_err, " -conv_form arg specifies the " | ||
212 | "point conversion form \n"); | ||
213 | BIO_printf(bio_err, " possible values:" | ||
214 | " compressed\n"); | ||
215 | BIO_printf(bio_err, " " | ||
216 | " uncompressed (default)\n"); | ||
217 | BIO_printf(bio_err, " " | ||
218 | " hybrid\n"); | ||
219 | BIO_printf(bio_err, " -param_enc arg specifies the way" | ||
220 | " the ec parameters are encoded\n"); | ||
221 | BIO_printf(bio_err, " in the asn1 der " | ||
222 | "encoding\n"); | ||
223 | BIO_printf(bio_err, " possible values:" | ||
224 | " named_curve (default)\n"); | ||
225 | BIO_printf(bio_err, " " | ||
226 | "explicit\n"); | ||
227 | goto end; | ||
228 | } | ||
229 | ERR_load_crypto_strings(); | ||
230 | |||
231 | #ifndef OPENSSL_NO_ENGINE | ||
232 | setup_engine(bio_err, engine, 0); | ||
233 | #endif | ||
234 | |||
235 | if (!app_passwd(bio_err, passargin, passargout, &passin, &passout)) { | ||
236 | BIO_printf(bio_err, "Error getting passwords\n"); | ||
237 | goto end; | ||
238 | } | ||
239 | in = BIO_new(BIO_s_file()); | ||
240 | out = BIO_new(BIO_s_file()); | ||
241 | if ((in == NULL) || (out == NULL)) { | ||
242 | ERR_print_errors(bio_err); | ||
243 | goto end; | ||
244 | } | ||
245 | if (infile == NULL) | ||
246 | BIO_set_fp(in, stdin, BIO_NOCLOSE); | ||
247 | else { | ||
248 | if (BIO_read_filename(in, infile) <= 0) { | ||
249 | perror(infile); | ||
250 | goto end; | ||
251 | } | ||
252 | } | ||
253 | |||
254 | BIO_printf(bio_err, "read EC key\n"); | ||
255 | if (informat == FORMAT_ASN1) { | ||
256 | if (pubin) | ||
257 | eckey = d2i_EC_PUBKEY_bio(in, NULL); | ||
258 | else | ||
259 | eckey = d2i_ECPrivateKey_bio(in, NULL); | ||
260 | } else if (informat == FORMAT_PEM) { | ||
261 | if (pubin) | ||
262 | eckey = PEM_read_bio_EC_PUBKEY(in, NULL, NULL, | ||
263 | NULL); | ||
264 | else | ||
265 | eckey = PEM_read_bio_ECPrivateKey(in, NULL, NULL, | ||
266 | passin); | ||
267 | } else { | ||
268 | BIO_printf(bio_err, "bad input format specified for key\n"); | ||
269 | goto end; | ||
270 | } | ||
271 | if (eckey == NULL) { | ||
272 | BIO_printf(bio_err, "unable to load Key\n"); | ||
273 | ERR_print_errors(bio_err); | ||
274 | goto end; | ||
275 | } | ||
276 | if (outfile == NULL) { | ||
277 | BIO_set_fp(out, stdout, BIO_NOCLOSE); | ||
278 | } else { | ||
279 | if (BIO_write_filename(out, outfile) <= 0) { | ||
280 | perror(outfile); | ||
281 | goto end; | ||
282 | } | ||
283 | } | ||
284 | |||
285 | group = EC_KEY_get0_group(eckey); | ||
286 | |||
287 | if (new_form) | ||
288 | EC_KEY_set_conv_form(eckey, form); | ||
289 | |||
290 | if (new_asn1_flag) | ||
291 | EC_KEY_set_asn1_flag(eckey, asn1_flag); | ||
292 | |||
293 | if (text) | ||
294 | if (!EC_KEY_print(out, eckey, 0)) { | ||
295 | perror(outfile); | ||
296 | ERR_print_errors(bio_err); | ||
297 | goto end; | ||
298 | } | ||
299 | if (noout) { | ||
300 | ret = 0; | ||
301 | goto end; | ||
302 | } | ||
303 | BIO_printf(bio_err, "writing EC key\n"); | ||
304 | if (outformat == FORMAT_ASN1) { | ||
305 | if (param_out) | ||
306 | i = i2d_ECPKParameters_bio(out, group); | ||
307 | else if (pubin || pubout) | ||
308 | i = i2d_EC_PUBKEY_bio(out, eckey); | ||
309 | else | ||
310 | i = i2d_ECPrivateKey_bio(out, eckey); | ||
311 | } else if (outformat == FORMAT_PEM) { | ||
312 | if (param_out) | ||
313 | i = PEM_write_bio_ECPKParameters(out, group); | ||
314 | else if (pubin || pubout) | ||
315 | i = PEM_write_bio_EC_PUBKEY(out, eckey); | ||
316 | else | ||
317 | i = PEM_write_bio_ECPrivateKey(out, eckey, enc, | ||
318 | NULL, 0, NULL, passout); | ||
319 | } else { | ||
320 | BIO_printf(bio_err, "bad output format specified for " | ||
321 | "outfile\n"); | ||
322 | goto end; | ||
323 | } | ||
324 | |||
325 | if (!i) { | ||
326 | BIO_printf(bio_err, "unable to write private key\n"); | ||
327 | ERR_print_errors(bio_err); | ||
328 | } else | ||
329 | ret = 0; | ||
330 | end: | ||
331 | BIO_free(in); | ||
332 | if (out) | ||
333 | BIO_free_all(out); | ||
334 | if (eckey) | ||
335 | EC_KEY_free(eckey); | ||
336 | free(passin); | ||
337 | free(passout); | ||
338 | |||
339 | return (ret); | ||
340 | } | ||
341 | #endif | ||
diff --git a/src/usr.bin/openssl/ecparam.c b/src/usr.bin/openssl/ecparam.c new file mode 100644 index 0000000000..9623cb96ce --- /dev/null +++ b/src/usr.bin/openssl/ecparam.c | |||
@@ -0,0 +1,613 @@ | |||
1 | /* $OpenBSD: ecparam.c,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
2 | /* | ||
3 | * Written by Nils Larsch for the OpenSSL project. | ||
4 | */ | ||
5 | /* ==================================================================== | ||
6 | * Copyright (c) 1998-2005 The OpenSSL Project. All rights reserved. | ||
7 | * | ||
8 | * Redistribution and use in source and binary forms, with or without | ||
9 | * modification, are permitted provided that the following conditions | ||
10 | * are met: | ||
11 | * | ||
12 | * 1. Redistributions of source code must retain the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer. | ||
14 | * | ||
15 | * 2. Redistributions in binary form must reproduce the above copyright | ||
16 | * notice, this list of conditions and the following disclaimer in | ||
17 | * the documentation and/or other materials provided with the | ||
18 | * distribution. | ||
19 | * | ||
20 | * 3. All advertising materials mentioning features or use of this | ||
21 | * software must display the following acknowledgment: | ||
22 | * "This product includes software developed by the OpenSSL Project | ||
23 | * for use in the OpenSSL Toolkit. (http://www.openssl.org/)" | ||
24 | * | ||
25 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
26 | * endorse or promote products derived from this software without | ||
27 | * prior written permission. For written permission, please contact | ||
28 | * openssl-core@openssl.org. | ||
29 | * | ||
30 | * 5. Products derived from this software may not be called "OpenSSL" | ||
31 | * nor may "OpenSSL" appear in their names without prior written | ||
32 | * permission of the OpenSSL Project. | ||
33 | * | ||
34 | * 6. Redistributions of any form whatsoever must retain the following | ||
35 | * acknowledgment: | ||
36 | * "This product includes software developed by the OpenSSL Project | ||
37 | * for use in the OpenSSL Toolkit (http://www.openssl.org/)" | ||
38 | * | ||
39 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
40 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
41 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
42 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
43 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
44 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
45 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
46 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
47 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
48 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
49 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
50 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
51 | * ==================================================================== | ||
52 | * | ||
53 | * This product includes cryptographic software written by Eric Young | ||
54 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
55 | * Hudson (tjh@cryptsoft.com). | ||
56 | * | ||
57 | */ | ||
58 | /* ==================================================================== | ||
59 | * Copyright 2002 Sun Microsystems, Inc. ALL RIGHTS RESERVED. | ||
60 | * | ||
61 | * Portions of the attached software ("Contribution") are developed by | ||
62 | * SUN MICROSYSTEMS, INC., and are contributed to the OpenSSL project. | ||
63 | * | ||
64 | * The Contribution is licensed pursuant to the OpenSSL open source | ||
65 | * license provided above. | ||
66 | * | ||
67 | * The elliptic curve binary polynomial software is originally written by | ||
68 | * Sheueling Chang Shantz and Douglas Stebila of Sun Microsystems Laboratories. | ||
69 | * | ||
70 | */ | ||
71 | |||
72 | #include <openssl/opensslconf.h> | ||
73 | |||
74 | #ifndef OPENSSL_NO_EC | ||
75 | |||
76 | #include <stdio.h> | ||
77 | #include <stdlib.h> | ||
78 | #include <string.h> | ||
79 | #include <time.h> | ||
80 | |||
81 | #include "apps.h" | ||
82 | |||
83 | #include <openssl/bio.h> | ||
84 | #include <openssl/bn.h> | ||
85 | #include <openssl/ec.h> | ||
86 | #include <openssl/err.h> | ||
87 | #include <openssl/pem.h> | ||
88 | #include <openssl/x509.h> | ||
89 | |||
90 | /* -inform arg - input format - default PEM (DER or PEM) | ||
91 | * -outform arg - output format - default PEM | ||
92 | * -in arg - input file - default stdin | ||
93 | * -out arg - output file - default stdout | ||
94 | * -noout - do not print the ec parameter | ||
95 | * -text - print the ec parameters in text form | ||
96 | * -check - validate the ec parameters | ||
97 | * -C - print a 'C' function creating the parameters | ||
98 | * -name arg - use the ec parameters with 'short name' name | ||
99 | * -list_curves - prints a list of all currently available curve 'short names' | ||
100 | * -conv_form arg - specifies the point conversion form | ||
101 | * - possible values: compressed | ||
102 | * uncompressed (default) | ||
103 | * hybrid | ||
104 | * -param_enc arg - specifies the way the ec parameters are encoded | ||
105 | * in the asn1 der encoding | ||
106 | * possible values: named_curve (default) | ||
107 | * explicit | ||
108 | * -no_seed - if 'explicit' parameters are chosen do not use the seed | ||
109 | * -genkey - generate ec key | ||
110 | * -engine e - use engine e, possibly a hardware device | ||
111 | */ | ||
112 | |||
113 | |||
114 | static int ecparam_print_var(BIO *, BIGNUM *, const char *, int, unsigned char *); | ||
115 | |||
116 | int ecparam_main(int, char **); | ||
117 | |||
118 | int | ||
119 | ecparam_main(int argc, char **argv) | ||
120 | { | ||
121 | EC_GROUP *group = NULL; | ||
122 | point_conversion_form_t form = POINT_CONVERSION_UNCOMPRESSED; | ||
123 | int new_form = 0; | ||
124 | int asn1_flag = OPENSSL_EC_NAMED_CURVE; | ||
125 | int new_asn1_flag = 0; | ||
126 | char *curve_name = NULL; | ||
127 | int list_curves = 0, no_seed = 0, check = 0, badops = 0, text = 0, | ||
128 | i, genkey = 0; | ||
129 | char *infile = NULL, *outfile = NULL, *prog; | ||
130 | BIO *in = NULL, *out = NULL; | ||
131 | int informat, outformat, noout = 0, C = 0, ret = 1; | ||
132 | char *engine = NULL; | ||
133 | |||
134 | BIGNUM *ec_p = NULL, *ec_a = NULL, *ec_b = NULL, *ec_gen = NULL, | ||
135 | *ec_order = NULL, *ec_cofactor = NULL; | ||
136 | unsigned char *buffer = NULL; | ||
137 | |||
138 | informat = FORMAT_PEM; | ||
139 | outformat = FORMAT_PEM; | ||
140 | |||
141 | prog = argv[0]; | ||
142 | argc--; | ||
143 | argv++; | ||
144 | while (argc >= 1) { | ||
145 | if (strcmp(*argv, "-inform") == 0) { | ||
146 | if (--argc < 1) | ||
147 | goto bad; | ||
148 | informat = str2fmt(*(++argv)); | ||
149 | } else if (strcmp(*argv, "-outform") == 0) { | ||
150 | if (--argc < 1) | ||
151 | goto bad; | ||
152 | outformat = str2fmt(*(++argv)); | ||
153 | } else if (strcmp(*argv, "-in") == 0) { | ||
154 | if (--argc < 1) | ||
155 | goto bad; | ||
156 | infile = *(++argv); | ||
157 | } else if (strcmp(*argv, "-out") == 0) { | ||
158 | if (--argc < 1) | ||
159 | goto bad; | ||
160 | outfile = *(++argv); | ||
161 | } else if (strcmp(*argv, "-text") == 0) | ||
162 | text = 1; | ||
163 | else if (strcmp(*argv, "-C") == 0) | ||
164 | C = 1; | ||
165 | else if (strcmp(*argv, "-check") == 0) | ||
166 | check = 1; | ||
167 | else if (strcmp(*argv, "-name") == 0) { | ||
168 | if (--argc < 1) | ||
169 | goto bad; | ||
170 | curve_name = *(++argv); | ||
171 | } else if (strcmp(*argv, "-list_curves") == 0) | ||
172 | list_curves = 1; | ||
173 | else if (strcmp(*argv, "-conv_form") == 0) { | ||
174 | if (--argc < 1) | ||
175 | goto bad; | ||
176 | ++argv; | ||
177 | new_form = 1; | ||
178 | if (strcmp(*argv, "compressed") == 0) | ||
179 | form = POINT_CONVERSION_COMPRESSED; | ||
180 | else if (strcmp(*argv, "uncompressed") == 0) | ||
181 | form = POINT_CONVERSION_UNCOMPRESSED; | ||
182 | else if (strcmp(*argv, "hybrid") == 0) | ||
183 | form = POINT_CONVERSION_HYBRID; | ||
184 | else | ||
185 | goto bad; | ||
186 | } else if (strcmp(*argv, "-param_enc") == 0) { | ||
187 | if (--argc < 1) | ||
188 | goto bad; | ||
189 | ++argv; | ||
190 | new_asn1_flag = 1; | ||
191 | if (strcmp(*argv, "named_curve") == 0) | ||
192 | asn1_flag = OPENSSL_EC_NAMED_CURVE; | ||
193 | else if (strcmp(*argv, "explicit") == 0) | ||
194 | asn1_flag = 0; | ||
195 | else | ||
196 | goto bad; | ||
197 | } else if (strcmp(*argv, "-no_seed") == 0) | ||
198 | no_seed = 1; | ||
199 | else if (strcmp(*argv, "-noout") == 0) | ||
200 | noout = 1; | ||
201 | else if (strcmp(*argv, "-genkey") == 0) { | ||
202 | genkey = 1; | ||
203 | } else if (strcmp(*argv, "-engine") == 0) { | ||
204 | if (--argc < 1) | ||
205 | goto bad; | ||
206 | engine = *(++argv); | ||
207 | } else { | ||
208 | BIO_printf(bio_err, "unknown option %s\n", *argv); | ||
209 | badops = 1; | ||
210 | break; | ||
211 | } | ||
212 | argc--; | ||
213 | argv++; | ||
214 | } | ||
215 | |||
216 | if (badops) { | ||
217 | bad: | ||
218 | BIO_printf(bio_err, "%s [options] <infile >outfile\n", prog); | ||
219 | BIO_printf(bio_err, "where options are\n"); | ||
220 | BIO_printf(bio_err, " -inform arg input format - " | ||
221 | "default PEM (DER or PEM)\n"); | ||
222 | BIO_printf(bio_err, " -outform arg output format - " | ||
223 | "default PEM\n"); | ||
224 | BIO_printf(bio_err, " -in arg input file - " | ||
225 | "default stdin\n"); | ||
226 | BIO_printf(bio_err, " -out arg output file - " | ||
227 | "default stdout\n"); | ||
228 | BIO_printf(bio_err, " -noout do not print the " | ||
229 | "ec parameter\n"); | ||
230 | BIO_printf(bio_err, " -text print the ec " | ||
231 | "parameters in text form\n"); | ||
232 | BIO_printf(bio_err, " -check validate the ec " | ||
233 | "parameters\n"); | ||
234 | BIO_printf(bio_err, " -C print a 'C' " | ||
235 | "function creating the parameters\n"); | ||
236 | BIO_printf(bio_err, " -name arg use the " | ||
237 | "ec parameters with 'short name' name\n"); | ||
238 | BIO_printf(bio_err, " -list_curves prints a list of " | ||
239 | "all currently available curve 'short names'\n"); | ||
240 | BIO_printf(bio_err, " -conv_form arg specifies the " | ||
241 | "point conversion form \n"); | ||
242 | BIO_printf(bio_err, " possible values:" | ||
243 | " compressed\n"); | ||
244 | BIO_printf(bio_err, " " | ||
245 | " uncompressed (default)\n"); | ||
246 | BIO_printf(bio_err, " " | ||
247 | " hybrid\n"); | ||
248 | BIO_printf(bio_err, " -param_enc arg specifies the way" | ||
249 | " the ec parameters are encoded\n"); | ||
250 | BIO_printf(bio_err, " in the asn1 der " | ||
251 | "encoding\n"); | ||
252 | BIO_printf(bio_err, " possible values:" | ||
253 | " named_curve (default)\n"); | ||
254 | BIO_printf(bio_err, " " | ||
255 | " explicit\n"); | ||
256 | BIO_printf(bio_err, " -no_seed if 'explicit'" | ||
257 | " parameters are chosen do not" | ||
258 | " use the seed\n"); | ||
259 | BIO_printf(bio_err, " -genkey generate ec" | ||
260 | " key\n"); | ||
261 | BIO_printf(bio_err, " -engine e use engine e, " | ||
262 | "possibly a hardware device\n"); | ||
263 | goto end; | ||
264 | } | ||
265 | ERR_load_crypto_strings(); | ||
266 | |||
267 | in = BIO_new(BIO_s_file()); | ||
268 | out = BIO_new(BIO_s_file()); | ||
269 | if ((in == NULL) || (out == NULL)) { | ||
270 | ERR_print_errors(bio_err); | ||
271 | goto end; | ||
272 | } | ||
273 | if (infile == NULL) | ||
274 | BIO_set_fp(in, stdin, BIO_NOCLOSE); | ||
275 | else { | ||
276 | if (BIO_read_filename(in, infile) <= 0) { | ||
277 | perror(infile); | ||
278 | goto end; | ||
279 | } | ||
280 | } | ||
281 | if (outfile == NULL) { | ||
282 | BIO_set_fp(out, stdout, BIO_NOCLOSE); | ||
283 | } else { | ||
284 | if (BIO_write_filename(out, outfile) <= 0) { | ||
285 | perror(outfile); | ||
286 | goto end; | ||
287 | } | ||
288 | } | ||
289 | |||
290 | #ifndef OPENSSL_NO_ENGINE | ||
291 | setup_engine(bio_err, engine, 0); | ||
292 | #endif | ||
293 | |||
294 | if (list_curves) { | ||
295 | EC_builtin_curve *curves = NULL; | ||
296 | size_t crv_len = 0; | ||
297 | size_t n = 0; | ||
298 | |||
299 | crv_len = EC_get_builtin_curves(NULL, 0); | ||
300 | |||
301 | curves = reallocarray(NULL, crv_len, sizeof(EC_builtin_curve)); | ||
302 | |||
303 | if (curves == NULL) | ||
304 | goto end; | ||
305 | |||
306 | if (!EC_get_builtin_curves(curves, crv_len)) { | ||
307 | free(curves); | ||
308 | goto end; | ||
309 | } | ||
310 | for (n = 0; n < crv_len; n++) { | ||
311 | const char *comment; | ||
312 | const char *sname; | ||
313 | comment = curves[n].comment; | ||
314 | sname = OBJ_nid2sn(curves[n].nid); | ||
315 | if (comment == NULL) | ||
316 | comment = "CURVE DESCRIPTION NOT AVAILABLE"; | ||
317 | if (sname == NULL) | ||
318 | sname = ""; | ||
319 | |||
320 | BIO_printf(out, " %-10s: ", sname); | ||
321 | BIO_printf(out, "%s\n", comment); | ||
322 | } | ||
323 | |||
324 | free(curves); | ||
325 | ret = 0; | ||
326 | goto end; | ||
327 | } | ||
328 | if (curve_name != NULL) { | ||
329 | int nid; | ||
330 | |||
331 | /* | ||
332 | * workaround for the SECG curve names secp192r1 and | ||
333 | * secp256r1 (which are the same as the curves prime192v1 and | ||
334 | * prime256v1 defined in X9.62) | ||
335 | */ | ||
336 | if (!strcmp(curve_name, "secp192r1")) { | ||
337 | BIO_printf(bio_err, "using curve name prime192v1 " | ||
338 | "instead of secp192r1\n"); | ||
339 | nid = NID_X9_62_prime192v1; | ||
340 | } else if (!strcmp(curve_name, "secp256r1")) { | ||
341 | BIO_printf(bio_err, "using curve name prime256v1 " | ||
342 | "instead of secp256r1\n"); | ||
343 | nid = NID_X9_62_prime256v1; | ||
344 | } else | ||
345 | nid = OBJ_sn2nid(curve_name); | ||
346 | |||
347 | if (nid == 0) { | ||
348 | BIO_printf(bio_err, "unknown curve name (%s)\n", | ||
349 | curve_name); | ||
350 | goto end; | ||
351 | } | ||
352 | group = EC_GROUP_new_by_curve_name(nid); | ||
353 | if (group == NULL) { | ||
354 | BIO_printf(bio_err, "unable to create curve (%s)\n", | ||
355 | curve_name); | ||
356 | goto end; | ||
357 | } | ||
358 | EC_GROUP_set_asn1_flag(group, asn1_flag); | ||
359 | EC_GROUP_set_point_conversion_form(group, form); | ||
360 | } else if (informat == FORMAT_ASN1) { | ||
361 | group = d2i_ECPKParameters_bio(in, NULL); | ||
362 | } else if (informat == FORMAT_PEM) { | ||
363 | group = PEM_read_bio_ECPKParameters(in, NULL, NULL, NULL); | ||
364 | } else { | ||
365 | BIO_printf(bio_err, "bad input format specified\n"); | ||
366 | goto end; | ||
367 | } | ||
368 | |||
369 | if (group == NULL) { | ||
370 | BIO_printf(bio_err, | ||
371 | "unable to load elliptic curve parameters\n"); | ||
372 | ERR_print_errors(bio_err); | ||
373 | goto end; | ||
374 | } | ||
375 | if (new_form) | ||
376 | EC_GROUP_set_point_conversion_form(group, form); | ||
377 | |||
378 | if (new_asn1_flag) | ||
379 | EC_GROUP_set_asn1_flag(group, asn1_flag); | ||
380 | |||
381 | if (no_seed) { | ||
382 | EC_GROUP_set_seed(group, NULL, 0); | ||
383 | } | ||
384 | if (text) { | ||
385 | if (!ECPKParameters_print(out, group, 0)) | ||
386 | goto end; | ||
387 | } | ||
388 | if (check) { | ||
389 | if (group == NULL) | ||
390 | BIO_printf(bio_err, "no elliptic curve parameters\n"); | ||
391 | BIO_printf(bio_err, "checking elliptic curve parameters: "); | ||
392 | if (!EC_GROUP_check(group, NULL)) { | ||
393 | BIO_printf(bio_err, "failed\n"); | ||
394 | ERR_print_errors(bio_err); | ||
395 | } else | ||
396 | BIO_printf(bio_err, "ok\n"); | ||
397 | |||
398 | } | ||
399 | if (C) { | ||
400 | size_t buf_len = 0, tmp_len = 0; | ||
401 | const EC_POINT *point; | ||
402 | int is_prime, len = 0; | ||
403 | const EC_METHOD *meth = EC_GROUP_method_of(group); | ||
404 | |||
405 | if ((ec_p = BN_new()) == NULL || (ec_a = BN_new()) == NULL || | ||
406 | (ec_b = BN_new()) == NULL || (ec_gen = BN_new()) == NULL || | ||
407 | (ec_order = BN_new()) == NULL || | ||
408 | (ec_cofactor = BN_new()) == NULL) { | ||
409 | perror("malloc"); | ||
410 | goto end; | ||
411 | } | ||
412 | is_prime = (EC_METHOD_get_field_type(meth) == | ||
413 | NID_X9_62_prime_field); | ||
414 | |||
415 | if (is_prime) { | ||
416 | if (!EC_GROUP_get_curve_GFp(group, ec_p, ec_a, | ||
417 | ec_b, NULL)) | ||
418 | goto end; | ||
419 | } else { | ||
420 | /* TODO */ | ||
421 | goto end; | ||
422 | } | ||
423 | |||
424 | if ((point = EC_GROUP_get0_generator(group)) == NULL) | ||
425 | goto end; | ||
426 | if (!EC_POINT_point2bn(group, point, | ||
427 | EC_GROUP_get_point_conversion_form(group), ec_gen, | ||
428 | NULL)) | ||
429 | goto end; | ||
430 | if (!EC_GROUP_get_order(group, ec_order, NULL)) | ||
431 | goto end; | ||
432 | if (!EC_GROUP_get_cofactor(group, ec_cofactor, NULL)) | ||
433 | goto end; | ||
434 | |||
435 | if (!ec_p || !ec_a || !ec_b || !ec_gen || | ||
436 | !ec_order || !ec_cofactor) | ||
437 | goto end; | ||
438 | |||
439 | len = BN_num_bits(ec_order); | ||
440 | |||
441 | if ((tmp_len = (size_t) BN_num_bytes(ec_p)) > buf_len) | ||
442 | buf_len = tmp_len; | ||
443 | if ((tmp_len = (size_t) BN_num_bytes(ec_a)) > buf_len) | ||
444 | buf_len = tmp_len; | ||
445 | if ((tmp_len = (size_t) BN_num_bytes(ec_b)) > buf_len) | ||
446 | buf_len = tmp_len; | ||
447 | if ((tmp_len = (size_t) BN_num_bytes(ec_gen)) > buf_len) | ||
448 | buf_len = tmp_len; | ||
449 | if ((tmp_len = (size_t) BN_num_bytes(ec_order)) > buf_len) | ||
450 | buf_len = tmp_len; | ||
451 | if ((tmp_len = (size_t) BN_num_bytes(ec_cofactor)) > buf_len) | ||
452 | buf_len = tmp_len; | ||
453 | |||
454 | buffer = malloc(buf_len); | ||
455 | |||
456 | if (buffer == NULL) { | ||
457 | perror("malloc"); | ||
458 | goto end; | ||
459 | } | ||
460 | ecparam_print_var(out, ec_p, "ec_p", len, buffer); | ||
461 | ecparam_print_var(out, ec_a, "ec_a", len, buffer); | ||
462 | ecparam_print_var(out, ec_b, "ec_b", len, buffer); | ||
463 | ecparam_print_var(out, ec_gen, "ec_gen", len, buffer); | ||
464 | ecparam_print_var(out, ec_order, "ec_order", len, buffer); | ||
465 | ecparam_print_var(out, ec_cofactor, "ec_cofactor", len, | ||
466 | buffer); | ||
467 | |||
468 | BIO_printf(out, "\n\n"); | ||
469 | |||
470 | BIO_printf(out, "EC_GROUP *get_ec_group_%d(void)\n\t{\n", len); | ||
471 | BIO_printf(out, "\tint ok=0;\n"); | ||
472 | BIO_printf(out, "\tEC_GROUP *group = NULL;\n"); | ||
473 | BIO_printf(out, "\tEC_POINT *point = NULL;\n"); | ||
474 | BIO_printf(out, "\tBIGNUM *tmp_1 = NULL, *tmp_2 = NULL, " | ||
475 | "*tmp_3 = NULL;\n\n"); | ||
476 | BIO_printf(out, "\tif ((tmp_1 = BN_bin2bn(ec_p_%d, " | ||
477 | "sizeof(ec_p_%d), NULL)) == NULL)\n\t\t" | ||
478 | "goto err;\n", len, len); | ||
479 | BIO_printf(out, "\tif ((tmp_2 = BN_bin2bn(ec_a_%d, " | ||
480 | "sizeof(ec_a_%d), NULL)) == NULL)\n\t\t" | ||
481 | "goto err;\n", len, len); | ||
482 | BIO_printf(out, "\tif ((tmp_3 = BN_bin2bn(ec_b_%d, " | ||
483 | "sizeof(ec_b_%d), NULL)) == NULL)\n\t\t" | ||
484 | "goto err;\n", len, len); | ||
485 | if (is_prime) { | ||
486 | BIO_printf(out, "\tif ((group = EC_GROUP_new_curve_" | ||
487 | "GFp(tmp_1, tmp_2, tmp_3, NULL)) == NULL)" | ||
488 | "\n\t\tgoto err;\n\n"); | ||
489 | } else { | ||
490 | /* TODO */ | ||
491 | goto end; | ||
492 | } | ||
493 | BIO_printf(out, "\t/* build generator */\n"); | ||
494 | BIO_printf(out, "\tif ((tmp_1 = BN_bin2bn(ec_gen_%d, " | ||
495 | "sizeof(ec_gen_%d), tmp_1)) == NULL)" | ||
496 | "\n\t\tgoto err;\n", len, len); | ||
497 | BIO_printf(out, "\tpoint = EC_POINT_bn2point(group, tmp_1, " | ||
498 | "NULL, NULL);\n"); | ||
499 | BIO_printf(out, "\tif (point == NULL)\n\t\tgoto err;\n"); | ||
500 | BIO_printf(out, "\tif ((tmp_2 = BN_bin2bn(ec_order_%d, " | ||
501 | "sizeof(ec_order_%d), tmp_2)) == NULL)" | ||
502 | "\n\t\tgoto err;\n", len, len); | ||
503 | BIO_printf(out, "\tif ((tmp_3 = BN_bin2bn(ec_cofactor_%d, " | ||
504 | "sizeof(ec_cofactor_%d), tmp_3)) == NULL)" | ||
505 | "\n\t\tgoto err;\n", len, len); | ||
506 | BIO_printf(out, "\tif (!EC_GROUP_set_generator(group, point," | ||
507 | " tmp_2, tmp_3))\n\t\tgoto err;\n"); | ||
508 | BIO_printf(out, "\n\tok=1;\n"); | ||
509 | BIO_printf(out, "err:\n"); | ||
510 | BIO_printf(out, "\tif (tmp_1)\n\t\tBN_free(tmp_1);\n"); | ||
511 | BIO_printf(out, "\tif (tmp_2)\n\t\tBN_free(tmp_2);\n"); | ||
512 | BIO_printf(out, "\tif (tmp_3)\n\t\tBN_free(tmp_3);\n"); | ||
513 | BIO_printf(out, "\tif (point)\n\t\tEC_POINT_free(point);\n"); | ||
514 | BIO_printf(out, "\tif (!ok)\n"); | ||
515 | BIO_printf(out, "\t\t{\n"); | ||
516 | BIO_printf(out, "\t\tEC_GROUP_free(group);\n"); | ||
517 | BIO_printf(out, "\t\tgroup = NULL;\n"); | ||
518 | BIO_printf(out, "\t\t}\n"); | ||
519 | BIO_printf(out, "\treturn(group);\n\t}\n"); | ||
520 | } | ||
521 | if (!noout) { | ||
522 | if (outformat == FORMAT_ASN1) | ||
523 | i = i2d_ECPKParameters_bio(out, group); | ||
524 | else if (outformat == FORMAT_PEM) | ||
525 | i = PEM_write_bio_ECPKParameters(out, group); | ||
526 | else { | ||
527 | BIO_printf(bio_err, "bad output format specified for" | ||
528 | " outfile\n"); | ||
529 | goto end; | ||
530 | } | ||
531 | if (!i) { | ||
532 | BIO_printf(bio_err, "unable to write elliptic " | ||
533 | "curve parameters\n"); | ||
534 | ERR_print_errors(bio_err); | ||
535 | goto end; | ||
536 | } | ||
537 | } | ||
538 | if (genkey) { | ||
539 | EC_KEY *eckey = EC_KEY_new(); | ||
540 | |||
541 | if (eckey == NULL) | ||
542 | goto end; | ||
543 | |||
544 | if (EC_KEY_set_group(eckey, group) == 0) { | ||
545 | EC_KEY_free(eckey); | ||
546 | goto end; | ||
547 | } | ||
548 | |||
549 | if (!EC_KEY_generate_key(eckey)) { | ||
550 | EC_KEY_free(eckey); | ||
551 | goto end; | ||
552 | } | ||
553 | if (outformat == FORMAT_ASN1) | ||
554 | i = i2d_ECPrivateKey_bio(out, eckey); | ||
555 | else if (outformat == FORMAT_PEM) | ||
556 | i = PEM_write_bio_ECPrivateKey(out, eckey, NULL, | ||
557 | NULL, 0, NULL, NULL); | ||
558 | else { | ||
559 | BIO_printf(bio_err, "bad output format specified " | ||
560 | "for outfile\n"); | ||
561 | EC_KEY_free(eckey); | ||
562 | goto end; | ||
563 | } | ||
564 | EC_KEY_free(eckey); | ||
565 | } | ||
566 | ret = 0; | ||
567 | end: | ||
568 | if (ec_p) | ||
569 | BN_free(ec_p); | ||
570 | if (ec_a) | ||
571 | BN_free(ec_a); | ||
572 | if (ec_b) | ||
573 | BN_free(ec_b); | ||
574 | if (ec_gen) | ||
575 | BN_free(ec_gen); | ||
576 | if (ec_order) | ||
577 | BN_free(ec_order); | ||
578 | if (ec_cofactor) | ||
579 | BN_free(ec_cofactor); | ||
580 | free(buffer); | ||
581 | BIO_free(in); | ||
582 | if (out != NULL) | ||
583 | BIO_free_all(out); | ||
584 | if (group != NULL) | ||
585 | EC_GROUP_free(group); | ||
586 | |||
587 | return (ret); | ||
588 | } | ||
589 | |||
590 | static int | ||
591 | ecparam_print_var(BIO * out, BIGNUM * in, const char *var, | ||
592 | int len, unsigned char *buffer) | ||
593 | { | ||
594 | BIO_printf(out, "static unsigned char %s_%d[] = {", var, len); | ||
595 | if (BN_is_zero(in)) | ||
596 | BIO_printf(out, "\n\t0x00"); | ||
597 | else { | ||
598 | int i, l; | ||
599 | |||
600 | l = BN_bn2bin(in, buffer); | ||
601 | for (i = 0; i < l - 1; i++) { | ||
602 | if ((i % 12) == 0) | ||
603 | BIO_printf(out, "\n\t"); | ||
604 | BIO_printf(out, "0x%02X,", buffer[i]); | ||
605 | } | ||
606 | if ((i % 12) == 0) | ||
607 | BIO_printf(out, "\n\t"); | ||
608 | BIO_printf(out, "0x%02X", buffer[i]); | ||
609 | } | ||
610 | BIO_printf(out, "\n\t};\n\n"); | ||
611 | return 1; | ||
612 | } | ||
613 | #endif | ||
diff --git a/src/usr.bin/openssl/enc.c b/src/usr.bin/openssl/enc.c new file mode 100644 index 0000000000..eff49818f9 --- /dev/null +++ b/src/usr.bin/openssl/enc.c | |||
@@ -0,0 +1,649 @@ | |||
1 | /* $OpenBSD: enc.c,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
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 <ctype.h> | ||
60 | #include <stdio.h> | ||
61 | #include <stdlib.h> | ||
62 | #include <string.h> | ||
63 | |||
64 | #include "apps.h" | ||
65 | |||
66 | #include <openssl/bio.h> | ||
67 | #include <openssl/comp.h> | ||
68 | #include <openssl/err.h> | ||
69 | #include <openssl/evp.h> | ||
70 | #include <openssl/objects.h> | ||
71 | #include <openssl/pem.h> | ||
72 | #include <openssl/rand.h> | ||
73 | #include <openssl/x509.h> | ||
74 | |||
75 | int set_hex(char *in, unsigned char *out, int size); | ||
76 | |||
77 | #define SIZE (512) | ||
78 | #define BSIZE (8*1024) | ||
79 | #define PROG enc_main | ||
80 | |||
81 | static void | ||
82 | show_ciphers(const OBJ_NAME * name, void *bio_) | ||
83 | { | ||
84 | BIO *bio = bio_; | ||
85 | static int n; | ||
86 | |||
87 | if (!islower((unsigned char) *name->name)) | ||
88 | return; | ||
89 | |||
90 | BIO_printf(bio, "-%-25s", name->name); | ||
91 | if (++n == 3) { | ||
92 | BIO_printf(bio, "\n"); | ||
93 | n = 0; | ||
94 | } else | ||
95 | BIO_printf(bio, " "); | ||
96 | } | ||
97 | |||
98 | int enc_main(int, char **); | ||
99 | |||
100 | int | ||
101 | enc_main(int argc, char **argv) | ||
102 | { | ||
103 | static const char magic[] = "Salted__"; | ||
104 | char mbuf[sizeof magic - 1]; | ||
105 | char *strbuf = NULL; | ||
106 | unsigned char *buff = NULL, *bufsize = NULL; | ||
107 | int bsize = BSIZE, verbose = 0; | ||
108 | int ret = 1, inl; | ||
109 | int nopad = 0; | ||
110 | unsigned char key[EVP_MAX_KEY_LENGTH], iv[EVP_MAX_IV_LENGTH]; | ||
111 | unsigned char salt[PKCS5_SALT_LEN]; | ||
112 | char *str = NULL, *passarg = NULL, *pass = NULL; | ||
113 | char *hkey = NULL, *hiv = NULL, *hsalt = NULL; | ||
114 | char *md = NULL; | ||
115 | int enc = 1, printkey = 0, i, base64 = 0; | ||
116 | #ifdef ZLIB | ||
117 | int do_zlib = 0; | ||
118 | BIO *bzl = NULL; | ||
119 | #endif | ||
120 | int debug = 0, olb64 = 0, nosalt = 0; | ||
121 | const EVP_CIPHER *cipher = NULL, *c; | ||
122 | EVP_CIPHER_CTX *ctx = NULL; | ||
123 | char *inf = NULL, *outf = NULL; | ||
124 | BIO *in = NULL, *out = NULL, *b64 = NULL, *benc = NULL, *rbio = NULL, | ||
125 | *wbio = NULL; | ||
126 | #define PROG_NAME_SIZE 39 | ||
127 | char pname[PROG_NAME_SIZE + 1]; | ||
128 | #ifndef OPENSSL_NO_ENGINE | ||
129 | char *engine = NULL; | ||
130 | #endif | ||
131 | const EVP_MD *dgst = NULL; | ||
132 | |||
133 | /* first check the program name */ | ||
134 | program_name(argv[0], pname, sizeof pname); | ||
135 | if (strcmp(pname, "base64") == 0) | ||
136 | base64 = 1; | ||
137 | #ifdef ZLIB | ||
138 | if (strcmp(pname, "zlib") == 0) | ||
139 | do_zlib = 1; | ||
140 | #endif | ||
141 | |||
142 | cipher = EVP_get_cipherbyname(pname); | ||
143 | #ifdef ZLIB | ||
144 | if (!do_zlib && !base64 && (cipher == NULL) | ||
145 | && (strcmp(pname, "enc") != 0)) | ||
146 | #else | ||
147 | if (!base64 && (cipher == NULL) && (strcmp(pname, "enc") != 0)) | ||
148 | #endif | ||
149 | { | ||
150 | BIO_printf(bio_err, "%s is an unknown cipher\n", pname); | ||
151 | goto bad; | ||
152 | } | ||
153 | argc--; | ||
154 | argv++; | ||
155 | while (argc >= 1) { | ||
156 | if (strcmp(*argv, "-e") == 0) | ||
157 | enc = 1; | ||
158 | else if (strcmp(*argv, "-in") == 0) { | ||
159 | if (--argc < 1) | ||
160 | goto bad; | ||
161 | inf = *(++argv); | ||
162 | } else if (strcmp(*argv, "-out") == 0) { | ||
163 | if (--argc < 1) | ||
164 | goto bad; | ||
165 | outf = *(++argv); | ||
166 | } else if (strcmp(*argv, "-pass") == 0) { | ||
167 | if (--argc < 1) | ||
168 | goto bad; | ||
169 | passarg = *(++argv); | ||
170 | } | ||
171 | #ifndef OPENSSL_NO_ENGINE | ||
172 | else if (strcmp(*argv, "-engine") == 0) { | ||
173 | if (--argc < 1) | ||
174 | goto bad; | ||
175 | engine = *(++argv); | ||
176 | } | ||
177 | #endif | ||
178 | else if (strcmp(*argv, "-d") == 0) | ||
179 | enc = 0; | ||
180 | else if (strcmp(*argv, "-p") == 0) | ||
181 | printkey = 1; | ||
182 | else if (strcmp(*argv, "-v") == 0) | ||
183 | verbose = 1; | ||
184 | else if (strcmp(*argv, "-nopad") == 0) | ||
185 | nopad = 1; | ||
186 | else if (strcmp(*argv, "-salt") == 0) | ||
187 | nosalt = 0; | ||
188 | else if (strcmp(*argv, "-nosalt") == 0) | ||
189 | nosalt = 1; | ||
190 | else if (strcmp(*argv, "-debug") == 0) | ||
191 | debug = 1; | ||
192 | else if (strcmp(*argv, "-P") == 0) | ||
193 | printkey = 2; | ||
194 | else if (strcmp(*argv, "-A") == 0) | ||
195 | olb64 = 1; | ||
196 | else if (strcmp(*argv, "-a") == 0) | ||
197 | base64 = 1; | ||
198 | else if (strcmp(*argv, "-base64") == 0) | ||
199 | base64 = 1; | ||
200 | #ifdef ZLIB | ||
201 | else if (strcmp(*argv, "-z") == 0) | ||
202 | do_zlib = 1; | ||
203 | #endif | ||
204 | else if (strcmp(*argv, "-bufsize") == 0) { | ||
205 | if (--argc < 1) | ||
206 | goto bad; | ||
207 | bufsize = (unsigned char *) *(++argv); | ||
208 | } else if (strcmp(*argv, "-k") == 0) { | ||
209 | if (--argc < 1) | ||
210 | goto bad; | ||
211 | str = *(++argv); | ||
212 | } else if (strcmp(*argv, "-kfile") == 0) { | ||
213 | static char buf[128]; | ||
214 | FILE *infile; | ||
215 | char *file; | ||
216 | |||
217 | if (--argc < 1) | ||
218 | goto bad; | ||
219 | file = *(++argv); | ||
220 | infile = fopen(file, "r"); | ||
221 | if (infile == NULL) { | ||
222 | BIO_printf(bio_err, "unable to read key from '%s'\n", | ||
223 | file); | ||
224 | goto bad; | ||
225 | } | ||
226 | buf[0] = '\0'; | ||
227 | if (!fgets(buf, sizeof buf, infile)) { | ||
228 | BIO_printf(bio_err, "unable to read key from '%s'\n", | ||
229 | file); | ||
230 | fclose(infile); | ||
231 | goto bad; | ||
232 | } | ||
233 | fclose(infile); | ||
234 | i = strlen(buf); | ||
235 | if ((i > 0) && | ||
236 | ((buf[i - 1] == '\n') || (buf[i - 1] == '\r'))) | ||
237 | buf[--i] = '\0'; | ||
238 | if ((i > 0) && | ||
239 | ((buf[i - 1] == '\n') || (buf[i - 1] == '\r'))) | ||
240 | buf[--i] = '\0'; | ||
241 | if (i < 1) { | ||
242 | BIO_printf(bio_err, "zero length password\n"); | ||
243 | goto bad; | ||
244 | } | ||
245 | str = buf; | ||
246 | } else if (strcmp(*argv, "-K") == 0) { | ||
247 | if (--argc < 1) | ||
248 | goto bad; | ||
249 | hkey = *(++argv); | ||
250 | } else if (strcmp(*argv, "-S") == 0) { | ||
251 | if (--argc < 1) | ||
252 | goto bad; | ||
253 | hsalt = *(++argv); | ||
254 | } else if (strcmp(*argv, "-iv") == 0) { | ||
255 | if (--argc < 1) | ||
256 | goto bad; | ||
257 | hiv = *(++argv); | ||
258 | } else if (strcmp(*argv, "-md") == 0) { | ||
259 | if (--argc < 1) | ||
260 | goto bad; | ||
261 | md = *(++argv); | ||
262 | } else if ((argv[0][0] == '-') && | ||
263 | ((c = EVP_get_cipherbyname(&(argv[0][1]))) != NULL)) { | ||
264 | cipher = c; | ||
265 | } else if (strcmp(*argv, "-none") == 0) | ||
266 | cipher = NULL; | ||
267 | else { | ||
268 | BIO_printf(bio_err, "unknown option '%s'\n", *argv); | ||
269 | bad: | ||
270 | BIO_printf(bio_err, "options are\n"); | ||
271 | BIO_printf(bio_err, "%-14s input file\n", "-in <file>"); | ||
272 | BIO_printf(bio_err, "%-14s output file\n", "-out <file>"); | ||
273 | BIO_printf(bio_err, "%-14s pass phrase source\n", "-pass <arg>"); | ||
274 | BIO_printf(bio_err, "%-14s encrypt\n", "-e"); | ||
275 | BIO_printf(bio_err, "%-14s decrypt\n", "-d"); | ||
276 | BIO_printf(bio_err, "%-14s base64 encode/decode, depending on encryption flag\n", "-a/-base64"); | ||
277 | BIO_printf(bio_err, "%-14s passphrase is the next argument\n", "-k"); | ||
278 | BIO_printf(bio_err, "%-14s passphrase is the first line of the file argument\n", "-kfile"); | ||
279 | BIO_printf(bio_err, "%-14s the next argument is the md to use to create a key\n", "-md"); | ||
280 | BIO_printf(bio_err, "%-14s from a passphrase. One of md2, md5, sha or sha1\n", ""); | ||
281 | BIO_printf(bio_err, "%-14s salt in hex is the next argument\n", "-S"); | ||
282 | BIO_printf(bio_err, "%-14s key/iv in hex is the next argument\n", "-K/-iv"); | ||
283 | BIO_printf(bio_err, "%-14s print the iv/key (then exit if -P)\n", "-[pP]"); | ||
284 | BIO_printf(bio_err, "%-14s buffer size\n", "-bufsize <n>"); | ||
285 | BIO_printf(bio_err, "%-14s disable standard block padding\n", "-nopad"); | ||
286 | #ifndef OPENSSL_NO_ENGINE | ||
287 | BIO_printf(bio_err, "%-14s use engine e, possibly a hardware device.\n", "-engine e"); | ||
288 | #endif | ||
289 | |||
290 | BIO_printf(bio_err, "Cipher Types\n"); | ||
291 | OBJ_NAME_do_all_sorted(OBJ_NAME_TYPE_CIPHER_METH, | ||
292 | show_ciphers, | ||
293 | bio_err); | ||
294 | BIO_printf(bio_err, "\n"); | ||
295 | |||
296 | goto end; | ||
297 | } | ||
298 | argc--; | ||
299 | argv++; | ||
300 | } | ||
301 | |||
302 | #ifndef OPENSSL_NO_ENGINE | ||
303 | setup_engine(bio_err, engine, 0); | ||
304 | #endif | ||
305 | |||
306 | if (md && (dgst = EVP_get_digestbyname(md)) == NULL) { | ||
307 | BIO_printf(bio_err, "%s is an unsupported message digest type\n", md); | ||
308 | goto end; | ||
309 | } | ||
310 | if (dgst == NULL) { | ||
311 | dgst = EVP_md5(); | ||
312 | } | ||
313 | if (bufsize != NULL) { | ||
314 | unsigned long n; | ||
315 | |||
316 | for (n = 0; *bufsize; bufsize++) { | ||
317 | i = *bufsize; | ||
318 | if ((i <= '9') && (i >= '0')) | ||
319 | n = n * 10 + i - '0'; | ||
320 | else if (i == 'k') { | ||
321 | n *= 1024; | ||
322 | bufsize++; | ||
323 | break; | ||
324 | } | ||
325 | } | ||
326 | if (*bufsize != '\0') { | ||
327 | BIO_printf(bio_err, "invalid 'bufsize' specified.\n"); | ||
328 | goto end; | ||
329 | } | ||
330 | /* It must be large enough for a base64 encoded line */ | ||
331 | if (base64 && n < 80) | ||
332 | n = 80; | ||
333 | |||
334 | bsize = (int) n; | ||
335 | if (verbose) | ||
336 | BIO_printf(bio_err, "bufsize=%d\n", bsize); | ||
337 | } | ||
338 | strbuf = malloc(SIZE); | ||
339 | buff = malloc(EVP_ENCODE_LENGTH(bsize)); | ||
340 | if ((buff == NULL) || (strbuf == NULL)) { | ||
341 | BIO_printf(bio_err, "malloc failure %ld\n", (long) EVP_ENCODE_LENGTH(bsize)); | ||
342 | goto end; | ||
343 | } | ||
344 | in = BIO_new(BIO_s_file()); | ||
345 | out = BIO_new(BIO_s_file()); | ||
346 | if ((in == NULL) || (out == NULL)) { | ||
347 | ERR_print_errors(bio_err); | ||
348 | goto end; | ||
349 | } | ||
350 | if (debug) { | ||
351 | BIO_set_callback(in, BIO_debug_callback); | ||
352 | BIO_set_callback(out, BIO_debug_callback); | ||
353 | BIO_set_callback_arg(in, (char *) bio_err); | ||
354 | BIO_set_callback_arg(out, (char *) bio_err); | ||
355 | } | ||
356 | if (inf == NULL) { | ||
357 | if (bufsize != NULL) | ||
358 | setvbuf(stdin, (char *) NULL, _IONBF, 0); | ||
359 | BIO_set_fp(in, stdin, BIO_NOCLOSE); | ||
360 | } else { | ||
361 | if (BIO_read_filename(in, inf) <= 0) { | ||
362 | perror(inf); | ||
363 | goto end; | ||
364 | } | ||
365 | } | ||
366 | |||
367 | if (!str && passarg) { | ||
368 | if (!app_passwd(bio_err, passarg, NULL, &pass, NULL)) { | ||
369 | BIO_printf(bio_err, "Error getting password\n"); | ||
370 | goto end; | ||
371 | } | ||
372 | str = pass; | ||
373 | } | ||
374 | if ((str == NULL) && (cipher != NULL) && (hkey == NULL)) { | ||
375 | for (;;) { | ||
376 | char buf[200]; | ||
377 | int ret; | ||
378 | |||
379 | ret = snprintf(buf, sizeof buf, "enter %s %s password:", | ||
380 | OBJ_nid2ln(EVP_CIPHER_nid(cipher)), | ||
381 | (enc) ? "encryption" : "decryption"); | ||
382 | if (ret == -1 || ret >= sizeof buf) { | ||
383 | BIO_printf(bio_err, "Password prompt too long\n"); | ||
384 | goto end; | ||
385 | } | ||
386 | strbuf[0] = '\0'; | ||
387 | i = EVP_read_pw_string((char *) strbuf, SIZE, buf, enc); | ||
388 | if (i == 0) { | ||
389 | if (strbuf[0] == '\0') { | ||
390 | ret = 1; | ||
391 | goto end; | ||
392 | } | ||
393 | str = strbuf; | ||
394 | break; | ||
395 | } | ||
396 | if (i < 0) { | ||
397 | BIO_printf(bio_err, "bad password read\n"); | ||
398 | goto end; | ||
399 | } | ||
400 | } | ||
401 | } | ||
402 | if (outf == NULL) { | ||
403 | BIO_set_fp(out, stdout, BIO_NOCLOSE); | ||
404 | if (bufsize != NULL) | ||
405 | setvbuf(stdout, (char *) NULL, _IONBF, 0); | ||
406 | } else { | ||
407 | if (BIO_write_filename(out, outf) <= 0) { | ||
408 | perror(outf); | ||
409 | goto end; | ||
410 | } | ||
411 | } | ||
412 | |||
413 | rbio = in; | ||
414 | wbio = out; | ||
415 | |||
416 | #ifdef ZLIB | ||
417 | |||
418 | if (do_zlib) { | ||
419 | if ((bzl = BIO_new(BIO_f_zlib())) == NULL) | ||
420 | goto end; | ||
421 | if (enc) | ||
422 | wbio = BIO_push(bzl, wbio); | ||
423 | else | ||
424 | rbio = BIO_push(bzl, rbio); | ||
425 | } | ||
426 | #endif | ||
427 | |||
428 | if (base64) { | ||
429 | if ((b64 = BIO_new(BIO_f_base64())) == NULL) | ||
430 | goto end; | ||
431 | if (debug) { | ||
432 | BIO_set_callback(b64, BIO_debug_callback); | ||
433 | BIO_set_callback_arg(b64, (char *) bio_err); | ||
434 | } | ||
435 | if (olb64) | ||
436 | BIO_set_flags(b64, BIO_FLAGS_BASE64_NO_NL); | ||
437 | if (enc) | ||
438 | wbio = BIO_push(b64, wbio); | ||
439 | else | ||
440 | rbio = BIO_push(b64, rbio); | ||
441 | } | ||
442 | if (cipher != NULL) { | ||
443 | /* | ||
444 | * Note that str is NULL if a key was passed on the command | ||
445 | * line, so we get no salt in that case. Is this a bug? | ||
446 | */ | ||
447 | if (str != NULL) { | ||
448 | /* | ||
449 | * Salt handling: if encrypting generate a salt and | ||
450 | * write to output BIO. If decrypting read salt from | ||
451 | * input BIO. | ||
452 | */ | ||
453 | unsigned char *sptr; | ||
454 | if (nosalt) | ||
455 | sptr = NULL; | ||
456 | else { | ||
457 | if (enc) { | ||
458 | if (hsalt) { | ||
459 | if (!set_hex(hsalt, salt, sizeof salt)) { | ||
460 | BIO_printf(bio_err, | ||
461 | "invalid hex salt value\n"); | ||
462 | goto end; | ||
463 | } | ||
464 | } else if (RAND_pseudo_bytes(salt, sizeof salt) < 0) | ||
465 | goto end; | ||
466 | /* | ||
467 | * If -P option then don't bother | ||
468 | * writing | ||
469 | */ | ||
470 | if ((printkey != 2) | ||
471 | && (BIO_write(wbio, magic, | ||
472 | sizeof magic - 1) != sizeof magic - 1 | ||
473 | || BIO_write(wbio, | ||
474 | (char *) salt, | ||
475 | sizeof salt) != sizeof salt)) { | ||
476 | BIO_printf(bio_err, "error writing output file\n"); | ||
477 | goto end; | ||
478 | } | ||
479 | } else if (BIO_read(rbio, mbuf, sizeof mbuf) != sizeof mbuf | ||
480 | || BIO_read(rbio, | ||
481 | (unsigned char *) salt, | ||
482 | sizeof salt) != sizeof salt) { | ||
483 | BIO_printf(bio_err, "error reading input file\n"); | ||
484 | goto end; | ||
485 | } else if (memcmp(mbuf, magic, sizeof magic - 1)) { | ||
486 | BIO_printf(bio_err, "bad magic number\n"); | ||
487 | goto end; | ||
488 | } | ||
489 | sptr = salt; | ||
490 | } | ||
491 | |||
492 | EVP_BytesToKey(cipher, dgst, sptr, | ||
493 | (unsigned char *) str, | ||
494 | strlen(str), 1, key, iv); | ||
495 | /* | ||
496 | * zero the complete buffer or the string passed from | ||
497 | * the command line bug picked up by Larry J. Hughes | ||
498 | * Jr. <hughes@indiana.edu> | ||
499 | */ | ||
500 | if (str == strbuf) | ||
501 | OPENSSL_cleanse(str, SIZE); | ||
502 | else | ||
503 | OPENSSL_cleanse(str, strlen(str)); | ||
504 | } | ||
505 | if ((hiv != NULL) && !set_hex(hiv, iv, sizeof iv)) { | ||
506 | BIO_printf(bio_err, "invalid hex iv value\n"); | ||
507 | goto end; | ||
508 | } | ||
509 | if ((hiv == NULL) && (str == NULL) | ||
510 | && EVP_CIPHER_iv_length(cipher) != 0) { | ||
511 | /* | ||
512 | * No IV was explicitly set and no IV was generated | ||
513 | * during EVP_BytesToKey. Hence the IV is undefined, | ||
514 | * making correct decryption impossible. | ||
515 | */ | ||
516 | BIO_printf(bio_err, "iv undefined\n"); | ||
517 | goto end; | ||
518 | } | ||
519 | if ((hkey != NULL) && !set_hex(hkey, key, sizeof key)) { | ||
520 | BIO_printf(bio_err, "invalid hex key value\n"); | ||
521 | goto end; | ||
522 | } | ||
523 | if ((benc = BIO_new(BIO_f_cipher())) == NULL) | ||
524 | goto end; | ||
525 | |||
526 | /* | ||
527 | * Since we may be changing parameters work on the encryption | ||
528 | * context rather than calling BIO_set_cipher(). | ||
529 | */ | ||
530 | |||
531 | BIO_get_cipher_ctx(benc, &ctx); | ||
532 | |||
533 | if (!EVP_CipherInit_ex(ctx, cipher, NULL, NULL, NULL, enc)) { | ||
534 | BIO_printf(bio_err, "Error setting cipher %s\n", | ||
535 | EVP_CIPHER_name(cipher)); | ||
536 | ERR_print_errors(bio_err); | ||
537 | goto end; | ||
538 | } | ||
539 | if (nopad) | ||
540 | EVP_CIPHER_CTX_set_padding(ctx, 0); | ||
541 | |||
542 | if (!EVP_CipherInit_ex(ctx, NULL, NULL, key, iv, enc)) { | ||
543 | BIO_printf(bio_err, "Error setting cipher %s\n", | ||
544 | EVP_CIPHER_name(cipher)); | ||
545 | ERR_print_errors(bio_err); | ||
546 | goto end; | ||
547 | } | ||
548 | if (debug) { | ||
549 | BIO_set_callback(benc, BIO_debug_callback); | ||
550 | BIO_set_callback_arg(benc, (char *) bio_err); | ||
551 | } | ||
552 | if (printkey) { | ||
553 | if (!nosalt) { | ||
554 | printf("salt="); | ||
555 | for (i = 0; i < (int) sizeof(salt); i++) | ||
556 | printf("%02X", salt[i]); | ||
557 | printf("\n"); | ||
558 | } | ||
559 | if (cipher->key_len > 0) { | ||
560 | printf("key="); | ||
561 | for (i = 0; i < cipher->key_len; i++) | ||
562 | printf("%02X", key[i]); | ||
563 | printf("\n"); | ||
564 | } | ||
565 | if (cipher->iv_len > 0) { | ||
566 | printf("iv ="); | ||
567 | for (i = 0; i < cipher->iv_len; i++) | ||
568 | printf("%02X", iv[i]); | ||
569 | printf("\n"); | ||
570 | } | ||
571 | if (printkey == 2) { | ||
572 | ret = 0; | ||
573 | goto end; | ||
574 | } | ||
575 | } | ||
576 | } | ||
577 | /* Only encrypt/decrypt as we write the file */ | ||
578 | if (benc != NULL) | ||
579 | wbio = BIO_push(benc, wbio); | ||
580 | |||
581 | for (;;) { | ||
582 | inl = BIO_read(rbio, (char *) buff, bsize); | ||
583 | if (inl <= 0) | ||
584 | break; | ||
585 | if (BIO_write(wbio, (char *) buff, inl) != inl) { | ||
586 | BIO_printf(bio_err, "error writing output file\n"); | ||
587 | goto end; | ||
588 | } | ||
589 | } | ||
590 | if (!BIO_flush(wbio)) { | ||
591 | BIO_printf(bio_err, "bad decrypt\n"); | ||
592 | goto end; | ||
593 | } | ||
594 | ret = 0; | ||
595 | if (verbose) { | ||
596 | BIO_printf(bio_err, "bytes read :%8ld\n", BIO_number_read(in)); | ||
597 | BIO_printf(bio_err, "bytes written:%8ld\n", BIO_number_written(out)); | ||
598 | } | ||
599 | end: | ||
600 | ERR_print_errors(bio_err); | ||
601 | free(strbuf); | ||
602 | free(buff); | ||
603 | BIO_free(in); | ||
604 | if (out != NULL) | ||
605 | BIO_free_all(out); | ||
606 | BIO_free(benc); | ||
607 | BIO_free(b64); | ||
608 | #ifdef ZLIB | ||
609 | BIO_free(bzl); | ||
610 | #endif | ||
611 | free(pass); | ||
612 | |||
613 | return (ret); | ||
614 | } | ||
615 | |||
616 | int | ||
617 | set_hex(char *in, unsigned char *out, int size) | ||
618 | { | ||
619 | int i, n; | ||
620 | unsigned char j; | ||
621 | |||
622 | n = strlen(in); | ||
623 | if (n > (size * 2)) { | ||
624 | BIO_printf(bio_err, "hex string is too long\n"); | ||
625 | return (0); | ||
626 | } | ||
627 | memset(out, 0, size); | ||
628 | for (i = 0; i < n; i++) { | ||
629 | j = (unsigned char) *in; | ||
630 | *(in++) = '\0'; | ||
631 | if (j == 0) | ||
632 | break; | ||
633 | if ((j >= '0') && (j <= '9')) | ||
634 | j -= '0'; | ||
635 | else if ((j >= 'A') && (j <= 'F')) | ||
636 | j = j - 'A' + 10; | ||
637 | else if ((j >= 'a') && (j <= 'f')) | ||
638 | j = j - 'a' + 10; | ||
639 | else { | ||
640 | BIO_printf(bio_err, "non-hex digit\n"); | ||
641 | return (0); | ||
642 | } | ||
643 | if (i & 1) | ||
644 | out[i / 2] |= j; | ||
645 | else | ||
646 | out[i / 2] = (j << 4); | ||
647 | } | ||
648 | return (1); | ||
649 | } | ||
diff --git a/src/usr.bin/openssl/engine.c b/src/usr.bin/openssl/engine.c new file mode 100644 index 0000000000..2d24e07254 --- /dev/null +++ b/src/usr.bin/openssl/engine.c | |||
@@ -0,0 +1,494 @@ | |||
1 | /* $OpenBSD: engine.c,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
2 | /* Written by Richard Levitte <richard@levitte.org> for the OpenSSL | ||
3 | * project 2000. | ||
4 | */ | ||
5 | /* ==================================================================== | ||
6 | * Copyright (c) 2000 The OpenSSL Project. All rights reserved. | ||
7 | * | ||
8 | * Redistribution and use in source and binary forms, with or without | ||
9 | * modification, are permitted provided that the following conditions | ||
10 | * are met: | ||
11 | * | ||
12 | * 1. Redistributions of source code must retain the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer. | ||
14 | * | ||
15 | * 2. Redistributions in binary form must reproduce the above copyright | ||
16 | * notice, this list of conditions and the following disclaimer in | ||
17 | * the documentation and/or other materials provided with the | ||
18 | * distribution. | ||
19 | * | ||
20 | * 3. All advertising materials mentioning features or use of this | ||
21 | * software must display the following acknowledgment: | ||
22 | * "This product includes software developed by the OpenSSL Project | ||
23 | * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" | ||
24 | * | ||
25 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
26 | * endorse or promote products derived from this software without | ||
27 | * prior written permission. For written permission, please contact | ||
28 | * licensing@OpenSSL.org. | ||
29 | * | ||
30 | * 5. Products derived from this software may not be called "OpenSSL" | ||
31 | * nor may "OpenSSL" appear in their names without prior written | ||
32 | * permission of the OpenSSL Project. | ||
33 | * | ||
34 | * 6. Redistributions of any form whatsoever must retain the following | ||
35 | * acknowledgment: | ||
36 | * "This product includes software developed by the OpenSSL Project | ||
37 | * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" | ||
38 | * | ||
39 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
40 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
41 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
42 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
43 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
44 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
45 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
46 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
47 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
48 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
49 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
50 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
51 | * ==================================================================== | ||
52 | * | ||
53 | * This product includes cryptographic software written by Eric Young | ||
54 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
55 | * Hudson (tjh@cryptsoft.com). | ||
56 | * | ||
57 | */ | ||
58 | |||
59 | #include <stdio.h> | ||
60 | #include <stdlib.h> | ||
61 | #include <string.h> | ||
62 | |||
63 | #include "apps.h" | ||
64 | |||
65 | #ifndef OPENSSL_NO_ENGINE | ||
66 | #include <openssl/engine.h> | ||
67 | #include <openssl/err.h> | ||
68 | #include <openssl/ssl.h> | ||
69 | |||
70 | static const char *engine_usage[] = { | ||
71 | "usage: engine opts [engine ...]\n", | ||
72 | " -v[v[v[v]]] - verbose mode, for each engine, list its 'control commands'\n", | ||
73 | " -vv will additionally display each command's description\n", | ||
74 | " -vvv will also add the input flags for each command\n", | ||
75 | " -vvvv will also show internal input flags\n", | ||
76 | " -c - for each engine, also list the capabilities\n", | ||
77 | " -t[t] - for each engine, check that they are really available\n", | ||
78 | " -tt will display error trace for unavailable engines\n", | ||
79 | " -pre <cmd> - runs command 'cmd' against the ENGINE before any attempts\n", | ||
80 | " to load it (if -t is used)\n", | ||
81 | " -post <cmd> - runs command 'cmd' against the ENGINE after loading it\n", | ||
82 | " (only used if -t is also provided)\n", | ||
83 | " NB: -pre and -post will be applied to all ENGINEs supplied on the command\n", | ||
84 | " line, or all supported ENGINEs if none are specified.\n", | ||
85 | " Eg. '-pre \"SO_PATH:/lib/libdriver.so\"' calls command \"SO_PATH\" with\n", | ||
86 | " argument \"/lib/libdriver.so\".\n", | ||
87 | NULL | ||
88 | }; | ||
89 | |||
90 | static void | ||
91 | identity(char *ptr) | ||
92 | { | ||
93 | return; | ||
94 | } | ||
95 | |||
96 | static int | ||
97 | append_buf(char **buf, const char *s, int *size, int step) | ||
98 | { | ||
99 | int l = strlen(s); | ||
100 | |||
101 | if (*buf == NULL) { | ||
102 | *size = step; | ||
103 | *buf = malloc(*size); | ||
104 | if (*buf == NULL) | ||
105 | return 0; | ||
106 | **buf = '\0'; | ||
107 | } | ||
108 | if (**buf != '\0') | ||
109 | l += 2; /* ", " */ | ||
110 | |||
111 | if (strlen(*buf) + strlen(s) >= (unsigned int) *size) { | ||
112 | *size += step; | ||
113 | *buf = realloc(*buf, *size); | ||
114 | } | ||
115 | if (*buf == NULL) | ||
116 | return 0; | ||
117 | |||
118 | if (**buf != '\0') | ||
119 | strlcat(*buf, ", ", *size); | ||
120 | strlcat(*buf, s, *size); | ||
121 | |||
122 | return 1; | ||
123 | } | ||
124 | |||
125 | static int | ||
126 | util_flags(BIO * bio_out, unsigned int flags, const char *indent) | ||
127 | { | ||
128 | int started = 0, err = 0; | ||
129 | /* Indent before displaying input flags */ | ||
130 | BIO_printf(bio_out, "%s%s(input flags): ", indent, indent); | ||
131 | if (flags == 0) { | ||
132 | BIO_printf(bio_out, "<no flags>\n"); | ||
133 | return 1; | ||
134 | } | ||
135 | /* | ||
136 | * If the object is internal, mark it in a way that shows instead of | ||
137 | * having it part of all the other flags, even if it really is. | ||
138 | */ | ||
139 | if (flags & ENGINE_CMD_FLAG_INTERNAL) { | ||
140 | BIO_printf(bio_out, "[Internal] "); | ||
141 | } | ||
142 | if (flags & ENGINE_CMD_FLAG_NUMERIC) { | ||
143 | BIO_printf(bio_out, "NUMERIC"); | ||
144 | started = 1; | ||
145 | } | ||
146 | /* | ||
147 | * Now we check that no combinations of the mutually exclusive | ||
148 | * NUMERIC, STRING, and NO_INPUT flags have been used. Future flags | ||
149 | * that can be OR'd together with these would need to added after | ||
150 | * these to preserve the testing logic. | ||
151 | */ | ||
152 | if (flags & ENGINE_CMD_FLAG_STRING) { | ||
153 | if (started) { | ||
154 | BIO_printf(bio_out, "|"); | ||
155 | err = 1; | ||
156 | } | ||
157 | BIO_printf(bio_out, "STRING"); | ||
158 | started = 1; | ||
159 | } | ||
160 | if (flags & ENGINE_CMD_FLAG_NO_INPUT) { | ||
161 | if (started) { | ||
162 | BIO_printf(bio_out, "|"); | ||
163 | err = 1; | ||
164 | } | ||
165 | BIO_printf(bio_out, "NO_INPUT"); | ||
166 | started = 1; | ||
167 | } | ||
168 | /* Check for unknown flags */ | ||
169 | flags = flags & ~ENGINE_CMD_FLAG_NUMERIC & | ||
170 | ~ENGINE_CMD_FLAG_STRING & | ||
171 | ~ENGINE_CMD_FLAG_NO_INPUT & | ||
172 | ~ENGINE_CMD_FLAG_INTERNAL; | ||
173 | if (flags) { | ||
174 | if (started) | ||
175 | BIO_printf(bio_out, "|"); | ||
176 | BIO_printf(bio_out, "<0x%04X>", flags); | ||
177 | } | ||
178 | if (err) | ||
179 | BIO_printf(bio_out, " <illegal flags!>"); | ||
180 | BIO_printf(bio_out, "\n"); | ||
181 | return 1; | ||
182 | } | ||
183 | |||
184 | static int | ||
185 | util_verbose(ENGINE * e, int verbose, BIO * bio_out, const char *indent) | ||
186 | { | ||
187 | static const int line_wrap = 78; | ||
188 | int num; | ||
189 | int ret = 0; | ||
190 | char *name = NULL; | ||
191 | char *desc = NULL; | ||
192 | int flags; | ||
193 | int xpos = 0; | ||
194 | STACK_OF(OPENSSL_STRING) * cmds = NULL; | ||
195 | if (!ENGINE_ctrl(e, ENGINE_CTRL_HAS_CTRL_FUNCTION, 0, NULL, NULL) || | ||
196 | ((num = ENGINE_ctrl(e, ENGINE_CTRL_GET_FIRST_CMD_TYPE, | ||
197 | 0, NULL, NULL)) <= 0)) { | ||
198 | #if 0 | ||
199 | BIO_printf(bio_out, "%s<no control commands>\n", indent); | ||
200 | #endif | ||
201 | return 1; | ||
202 | } | ||
203 | cmds = sk_OPENSSL_STRING_new_null(); | ||
204 | |||
205 | if (!cmds) | ||
206 | goto err; | ||
207 | do { | ||
208 | int len; | ||
209 | /* Get the command input flags */ | ||
210 | if ((flags = ENGINE_ctrl(e, ENGINE_CTRL_GET_CMD_FLAGS, num, | ||
211 | NULL, NULL)) < 0) | ||
212 | goto err; | ||
213 | if (!(flags & ENGINE_CMD_FLAG_INTERNAL) || verbose >= 4) { | ||
214 | /* Get the command name */ | ||
215 | if ((len = ENGINE_ctrl(e, ENGINE_CTRL_GET_NAME_LEN_FROM_CMD, num, | ||
216 | NULL, NULL)) <= 0) | ||
217 | goto err; | ||
218 | if ((name = malloc(len + 1)) == NULL) | ||
219 | goto err; | ||
220 | if (ENGINE_ctrl(e, ENGINE_CTRL_GET_NAME_FROM_CMD, num, name, | ||
221 | NULL) <= 0) | ||
222 | goto err; | ||
223 | /* Get the command description */ | ||
224 | if ((len = ENGINE_ctrl(e, ENGINE_CTRL_GET_DESC_LEN_FROM_CMD, num, | ||
225 | NULL, NULL)) < 0) | ||
226 | goto err; | ||
227 | if (len > 0) { | ||
228 | if ((desc = malloc(len + 1)) == NULL) | ||
229 | goto err; | ||
230 | if (ENGINE_ctrl(e, ENGINE_CTRL_GET_DESC_FROM_CMD, num, desc, | ||
231 | NULL) <= 0) | ||
232 | goto err; | ||
233 | } | ||
234 | /* Now decide on the output */ | ||
235 | if (xpos == 0) | ||
236 | /* Do an indent */ | ||
237 | xpos = BIO_puts(bio_out, indent); | ||
238 | else | ||
239 | /* Otherwise prepend a ", " */ | ||
240 | xpos += BIO_printf(bio_out, ", "); | ||
241 | if (verbose == 1) { | ||
242 | /* We're just listing names, comma-delimited */ | ||
243 | if ((xpos > (int) strlen(indent)) && | ||
244 | (xpos + (int) strlen(name) > line_wrap)) { | ||
245 | BIO_printf(bio_out, "\n"); | ||
246 | xpos = BIO_puts(bio_out, indent); | ||
247 | } | ||
248 | xpos += BIO_printf(bio_out, "%s", name); | ||
249 | } else { | ||
250 | /* We're listing names plus descriptions */ | ||
251 | BIO_printf(bio_out, "%s: %s\n", name, | ||
252 | (desc == NULL) ? "<no description>" : desc); | ||
253 | /* ... and sometimes input flags */ | ||
254 | if ((verbose >= 3) && !util_flags(bio_out, flags, | ||
255 | indent)) | ||
256 | goto err; | ||
257 | xpos = 0; | ||
258 | } | ||
259 | } | ||
260 | free(name); | ||
261 | name = NULL; | ||
262 | free(desc); | ||
263 | desc = NULL; | ||
264 | |||
265 | /* Move to the next command */ | ||
266 | num = ENGINE_ctrl(e, ENGINE_CTRL_GET_NEXT_CMD_TYPE, | ||
267 | num, NULL, NULL); | ||
268 | } while (num > 0); | ||
269 | if (xpos > 0) | ||
270 | BIO_printf(bio_out, "\n"); | ||
271 | ret = 1; | ||
272 | err: | ||
273 | if (cmds) | ||
274 | sk_OPENSSL_STRING_pop_free(cmds, identity); | ||
275 | free(name); | ||
276 | free(desc); | ||
277 | return ret; | ||
278 | } | ||
279 | |||
280 | static void | ||
281 | util_do_cmds(ENGINE * e, STACK_OF(OPENSSL_STRING) * cmds, | ||
282 | BIO * bio_out, const char *indent) | ||
283 | { | ||
284 | int loop, res, num = sk_OPENSSL_STRING_num(cmds); | ||
285 | |||
286 | if (num < 0) { | ||
287 | BIO_printf(bio_out, "[Error]: internal stack error\n"); | ||
288 | return; | ||
289 | } | ||
290 | for (loop = 0; loop < num; loop++) { | ||
291 | char buf[256]; | ||
292 | const char *cmd, *arg; | ||
293 | cmd = sk_OPENSSL_STRING_value(cmds, loop); | ||
294 | res = 1; /* assume success */ | ||
295 | /* Check if this command has no ":arg" */ | ||
296 | if ((arg = strstr(cmd, ":")) == NULL) { | ||
297 | if (!ENGINE_ctrl_cmd_string(e, cmd, NULL, 0)) | ||
298 | res = 0; | ||
299 | } else { | ||
300 | if ((int) (arg - cmd) > 254) { | ||
301 | BIO_printf(bio_out, "[Error]: command name too long\n"); | ||
302 | return; | ||
303 | } | ||
304 | memcpy(buf, cmd, (int) (arg - cmd)); | ||
305 | buf[arg - cmd] = '\0'; | ||
306 | arg++; /* Move past the ":" */ | ||
307 | /* Call the command with the argument */ | ||
308 | if (!ENGINE_ctrl_cmd_string(e, buf, arg, 0)) | ||
309 | res = 0; | ||
310 | } | ||
311 | if (res) | ||
312 | BIO_printf(bio_out, "[Success]: %s\n", cmd); | ||
313 | else { | ||
314 | BIO_printf(bio_out, "[Failure]: %s\n", cmd); | ||
315 | ERR_print_errors(bio_out); | ||
316 | } | ||
317 | } | ||
318 | } | ||
319 | |||
320 | int engine_main(int, char **); | ||
321 | |||
322 | int | ||
323 | engine_main(int argc, char **argv) | ||
324 | { | ||
325 | int ret = 1, i; | ||
326 | const char **pp; | ||
327 | int verbose = 0, list_cap = 0, test_avail = 0, test_avail_noise = 0; | ||
328 | ENGINE *e; | ||
329 | STACK_OF(OPENSSL_STRING) * engines = sk_OPENSSL_STRING_new_null(); | ||
330 | STACK_OF(OPENSSL_STRING) * pre_cmds = sk_OPENSSL_STRING_new_null(); | ||
331 | STACK_OF(OPENSSL_STRING) * post_cmds = sk_OPENSSL_STRING_new_null(); | ||
332 | int badops = 1; | ||
333 | BIO *bio_out = NULL; | ||
334 | const char *indent = " "; | ||
335 | |||
336 | bio_out = BIO_new_fp(stdout, BIO_NOCLOSE); | ||
337 | |||
338 | argc--; | ||
339 | argv++; | ||
340 | while (argc >= 1) { | ||
341 | if (strncmp(*argv, "-v", 2) == 0) { | ||
342 | if (strspn(*argv + 1, "v") < strlen(*argv + 1)) | ||
343 | goto skip_arg_loop; | ||
344 | if ((verbose = strlen(*argv + 1)) > 4) | ||
345 | goto skip_arg_loop; | ||
346 | } else if (strcmp(*argv, "-c") == 0) | ||
347 | list_cap = 1; | ||
348 | else if (strncmp(*argv, "-t", 2) == 0) { | ||
349 | test_avail = 1; | ||
350 | if (strspn(*argv + 1, "t") < strlen(*argv + 1)) | ||
351 | goto skip_arg_loop; | ||
352 | if ((test_avail_noise = strlen(*argv + 1) - 1) > 1) | ||
353 | goto skip_arg_loop; | ||
354 | } else if (strcmp(*argv, "-pre") == 0) { | ||
355 | argc--; | ||
356 | argv++; | ||
357 | if (argc == 0) | ||
358 | goto skip_arg_loop; | ||
359 | sk_OPENSSL_STRING_push(pre_cmds, *argv); | ||
360 | } else if (strcmp(*argv, "-post") == 0) { | ||
361 | argc--; | ||
362 | argv++; | ||
363 | if (argc == 0) | ||
364 | goto skip_arg_loop; | ||
365 | sk_OPENSSL_STRING_push(post_cmds, *argv); | ||
366 | } else if ((strncmp(*argv, "-h", 2) == 0) || | ||
367 | (strcmp(*argv, "-?") == 0)) | ||
368 | goto skip_arg_loop; | ||
369 | else | ||
370 | sk_OPENSSL_STRING_push(engines, *argv); | ||
371 | argc--; | ||
372 | argv++; | ||
373 | } | ||
374 | /* Looks like everything went OK */ | ||
375 | badops = 0; | ||
376 | skip_arg_loop: | ||
377 | |||
378 | if (badops) { | ||
379 | for (pp = engine_usage; (*pp != NULL); pp++) | ||
380 | BIO_printf(bio_err, "%s", *pp); | ||
381 | goto end; | ||
382 | } | ||
383 | if (sk_OPENSSL_STRING_num(engines) == 0) { | ||
384 | for (e = ENGINE_get_first(); e != NULL; e = ENGINE_get_next(e)) { | ||
385 | sk_OPENSSL_STRING_push(engines, (char *) ENGINE_get_id(e)); | ||
386 | } | ||
387 | } | ||
388 | for (i = 0; i < sk_OPENSSL_STRING_num(engines); i++) { | ||
389 | const char *id = sk_OPENSSL_STRING_value(engines, i); | ||
390 | if ((e = ENGINE_by_id(id)) != NULL) { | ||
391 | const char *name = ENGINE_get_name(e); | ||
392 | /* Do "id" first, then "name". Easier to auto-parse. */ | ||
393 | BIO_printf(bio_out, "(%s) %s\n", id, name); | ||
394 | util_do_cmds(e, pre_cmds, bio_out, indent); | ||
395 | if (strcmp(ENGINE_get_id(e), id) != 0) { | ||
396 | BIO_printf(bio_out, "Loaded: (%s) %s\n", | ||
397 | ENGINE_get_id(e), ENGINE_get_name(e)); | ||
398 | } | ||
399 | if (list_cap) { | ||
400 | int cap_size = 256; | ||
401 | char *cap_buf = NULL; | ||
402 | int k, n; | ||
403 | const int *nids; | ||
404 | ENGINE_CIPHERS_PTR fn_c; | ||
405 | ENGINE_DIGESTS_PTR fn_d; | ||
406 | ENGINE_PKEY_METHS_PTR fn_pk; | ||
407 | |||
408 | if (ENGINE_get_RSA(e) != NULL | ||
409 | && !append_buf(&cap_buf, "RSA", | ||
410 | &cap_size, 256)) | ||
411 | goto end; | ||
412 | if (ENGINE_get_DSA(e) != NULL | ||
413 | && !append_buf(&cap_buf, "DSA", | ||
414 | &cap_size, 256)) | ||
415 | goto end; | ||
416 | if (ENGINE_get_DH(e) != NULL | ||
417 | && !append_buf(&cap_buf, "DH", | ||
418 | &cap_size, 256)) | ||
419 | goto end; | ||
420 | if (ENGINE_get_RAND(e) != NULL | ||
421 | && !append_buf(&cap_buf, "RAND", | ||
422 | &cap_size, 256)) | ||
423 | goto end; | ||
424 | |||
425 | fn_c = ENGINE_get_ciphers(e); | ||
426 | if (!fn_c) | ||
427 | goto skip_ciphers; | ||
428 | n = fn_c(e, NULL, &nids, 0); | ||
429 | for (k = 0; k < n; ++k) | ||
430 | if (!append_buf(&cap_buf, | ||
431 | OBJ_nid2sn(nids[k]), | ||
432 | &cap_size, 256)) | ||
433 | goto end; | ||
434 | |||
435 | skip_ciphers: | ||
436 | fn_d = ENGINE_get_digests(e); | ||
437 | if (!fn_d) | ||
438 | goto skip_digests; | ||
439 | n = fn_d(e, NULL, &nids, 0); | ||
440 | for (k = 0; k < n; ++k) | ||
441 | if (!append_buf(&cap_buf, | ||
442 | OBJ_nid2sn(nids[k]), | ||
443 | &cap_size, 256)) | ||
444 | goto end; | ||
445 | |||
446 | skip_digests: | ||
447 | fn_pk = ENGINE_get_pkey_meths(e); | ||
448 | if (!fn_pk) | ||
449 | goto skip_pmeths; | ||
450 | n = fn_pk(e, NULL, &nids, 0); | ||
451 | for (k = 0; k < n; ++k) | ||
452 | if (!append_buf(&cap_buf, | ||
453 | OBJ_nid2sn(nids[k]), | ||
454 | &cap_size, 256)) | ||
455 | goto end; | ||
456 | skip_pmeths: | ||
457 | if (cap_buf && (*cap_buf != '\0')) | ||
458 | BIO_printf(bio_out, " [%s]\n", cap_buf); | ||
459 | |||
460 | free(cap_buf); | ||
461 | } | ||
462 | if (test_avail) { | ||
463 | BIO_printf(bio_out, "%s", indent); | ||
464 | if (ENGINE_init(e)) { | ||
465 | BIO_printf(bio_out, "[ available ]\n"); | ||
466 | util_do_cmds(e, post_cmds, bio_out, indent); | ||
467 | ENGINE_finish(e); | ||
468 | } else { | ||
469 | BIO_printf(bio_out, "[ unavailable ]\n"); | ||
470 | if (test_avail_noise) | ||
471 | ERR_print_errors_fp(stdout); | ||
472 | ERR_clear_error(); | ||
473 | } | ||
474 | } | ||
475 | if ((verbose > 0) && !util_verbose(e, verbose, bio_out, indent)) | ||
476 | goto end; | ||
477 | ENGINE_free(e); | ||
478 | } else | ||
479 | ERR_print_errors(bio_err); | ||
480 | } | ||
481 | |||
482 | ret = 0; | ||
483 | end: | ||
484 | |||
485 | ERR_print_errors(bio_err); | ||
486 | sk_OPENSSL_STRING_pop_free(engines, identity); | ||
487 | sk_OPENSSL_STRING_pop_free(pre_cmds, identity); | ||
488 | sk_OPENSSL_STRING_pop_free(post_cmds, identity); | ||
489 | if (bio_out != NULL) | ||
490 | BIO_free_all(bio_out); | ||
491 | |||
492 | return (ret); | ||
493 | } | ||
494 | #endif | ||
diff --git a/src/usr.bin/openssl/errstr.c b/src/usr.bin/openssl/errstr.c new file mode 100644 index 0000000000..163da2e5b3 --- /dev/null +++ b/src/usr.bin/openssl/errstr.c | |||
@@ -0,0 +1,108 @@ | |||
1 | /* $OpenBSD: errstr.c,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
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 | |||
63 | #include "apps.h" | ||
64 | |||
65 | #include <openssl/bio.h> | ||
66 | #include <openssl/err.h> | ||
67 | #include <openssl/lhash.h> | ||
68 | #include <openssl/ssl.h> | ||
69 | |||
70 | int errstr_main(int, char **); | ||
71 | |||
72 | int | ||
73 | errstr_main(int argc, char **argv) | ||
74 | { | ||
75 | int i, ret = 0; | ||
76 | char buf[256]; | ||
77 | unsigned long l; | ||
78 | |||
79 | if ((argc > 1) && (strcmp(argv[1], "-stats") == 0)) { | ||
80 | BIO *out = NULL; | ||
81 | |||
82 | out = BIO_new(BIO_s_file()); | ||
83 | if ((out != NULL) && BIO_set_fp(out, stdout, BIO_NOCLOSE)) { | ||
84 | lh_ERR_STRING_DATA_node_stats_bio( | ||
85 | ERR_get_string_table(), out); | ||
86 | lh_ERR_STRING_DATA_stats_bio(ERR_get_string_table(), | ||
87 | out); | ||
88 | lh_ERR_STRING_DATA_node_usage_stats_bio( | ||
89 | ERR_get_string_table(), out); | ||
90 | } | ||
91 | if (out != NULL) | ||
92 | BIO_free_all(out); | ||
93 | argc--; | ||
94 | argv++; | ||
95 | } | ||
96 | for (i = 1; i < argc; i++) { | ||
97 | if (sscanf(argv[i], "%lx", &l)) { | ||
98 | ERR_error_string_n(l, buf, sizeof buf); | ||
99 | printf("%s\n", buf); | ||
100 | } else { | ||
101 | printf("%s: bad error code\n", argv[i]); | ||
102 | printf("usage: errstr [-stats] <errno> ...\n"); | ||
103 | ret++; | ||
104 | } | ||
105 | } | ||
106 | |||
107 | return (ret); | ||
108 | } | ||
diff --git a/src/usr.bin/openssl/gendh.c b/src/usr.bin/openssl/gendh.c new file mode 100644 index 0000000000..06d62c1b0d --- /dev/null +++ b/src/usr.bin/openssl/gendh.c | |||
@@ -0,0 +1,204 @@ | |||
1 | /* $OpenBSD: gendh.c,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
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 <openssl/opensslconf.h> | ||
60 | |||
61 | /* Until the key-gen callbacks are modified to use newer prototypes, we allow | ||
62 | * deprecated functions for openssl-internal code */ | ||
63 | #ifdef OPENSSL_NO_DEPRECATED | ||
64 | #undef OPENSSL_NO_DEPRECATED | ||
65 | #endif | ||
66 | |||
67 | #ifndef OPENSSL_NO_DH | ||
68 | |||
69 | #include <sys/types.h> | ||
70 | #include <sys/stat.h> | ||
71 | |||
72 | #include <stdio.h> | ||
73 | #include <string.h> | ||
74 | |||
75 | #include "apps.h" | ||
76 | |||
77 | #include <openssl/bio.h> | ||
78 | #include <openssl/bn.h> | ||
79 | #include <openssl/dh.h> | ||
80 | #include <openssl/err.h> | ||
81 | #include <openssl/pem.h> | ||
82 | #include <openssl/rand.h> | ||
83 | #include <openssl/x509.h> | ||
84 | |||
85 | #define DEFBITS 512 | ||
86 | |||
87 | static int dh_cb(int p, int n, BN_GENCB * cb); | ||
88 | |||
89 | int gendh_main(int, char **); | ||
90 | |||
91 | int | ||
92 | gendh_main(int argc, char **argv) | ||
93 | { | ||
94 | BN_GENCB cb; | ||
95 | DH *dh = NULL; | ||
96 | int ret = 1, num = DEFBITS; | ||
97 | int g = 2; | ||
98 | char *outfile = NULL; | ||
99 | #ifndef OPENSSL_NO_ENGINE | ||
100 | char *engine = NULL; | ||
101 | #endif | ||
102 | BIO *out = NULL; | ||
103 | |||
104 | BN_GENCB_set(&cb, dh_cb, bio_err); | ||
105 | |||
106 | argv++; | ||
107 | argc--; | ||
108 | for (;;) { | ||
109 | if (argc <= 0) | ||
110 | break; | ||
111 | if (strcmp(*argv, "-out") == 0) { | ||
112 | if (--argc < 1) | ||
113 | goto bad; | ||
114 | outfile = *(++argv); | ||
115 | } else if (strcmp(*argv, "-2") == 0) | ||
116 | g = 2; | ||
117 | /* | ||
118 | * else if (strcmp(*argv,"-3") == 0) g=3; | ||
119 | */ | ||
120 | else if (strcmp(*argv, "-5") == 0) | ||
121 | g = 5; | ||
122 | #ifndef OPENSSL_NO_ENGINE | ||
123 | else if (strcmp(*argv, "-engine") == 0) { | ||
124 | if (--argc < 1) | ||
125 | goto bad; | ||
126 | engine = *(++argv); | ||
127 | } | ||
128 | #endif | ||
129 | else | ||
130 | break; | ||
131 | argv++; | ||
132 | argc--; | ||
133 | } | ||
134 | if ((argc >= 1) && ((sscanf(*argv, "%d", &num) == 0) || (num < 0))) { | ||
135 | bad: | ||
136 | BIO_printf(bio_err, "usage: gendh [args] [numbits]\n"); | ||
137 | BIO_printf(bio_err, " -out file - output the key to 'file\n"); | ||
138 | BIO_printf(bio_err, " -2 - use 2 as the generator value\n"); | ||
139 | /* | ||
140 | * BIO_printf(bio_err," -3 - use 3 as the generator | ||
141 | * value\n"); | ||
142 | */ | ||
143 | BIO_printf(bio_err, " -5 - use 5 as the generator value\n"); | ||
144 | #ifndef OPENSSL_NO_ENGINE | ||
145 | BIO_printf(bio_err, " -engine e - use engine e, possibly a hardware device.\n"); | ||
146 | #endif | ||
147 | goto end; | ||
148 | } | ||
149 | #ifndef OPENSSL_NO_ENGINE | ||
150 | setup_engine(bio_err, engine, 0); | ||
151 | #endif | ||
152 | |||
153 | out = BIO_new(BIO_s_file()); | ||
154 | if (out == NULL) { | ||
155 | ERR_print_errors(bio_err); | ||
156 | goto end; | ||
157 | } | ||
158 | if (outfile == NULL) { | ||
159 | BIO_set_fp(out, stdout, BIO_NOCLOSE); | ||
160 | } else { | ||
161 | if (BIO_write_filename(out, outfile) <= 0) { | ||
162 | perror(outfile); | ||
163 | goto end; | ||
164 | } | ||
165 | } | ||
166 | |||
167 | BIO_printf(bio_err, "Generating DH parameters, %d bit long safe prime, generator %d\n", num, g); | ||
168 | BIO_printf(bio_err, "This is going to take a long time\n"); | ||
169 | |||
170 | if (((dh = DH_new()) == NULL) || !DH_generate_parameters_ex(dh, num, g, &cb)) | ||
171 | goto end; | ||
172 | |||
173 | if (!PEM_write_bio_DHparams(out, dh)) | ||
174 | goto end; | ||
175 | ret = 0; | ||
176 | end: | ||
177 | if (ret != 0) | ||
178 | ERR_print_errors(bio_err); | ||
179 | if (out != NULL) | ||
180 | BIO_free_all(out); | ||
181 | if (dh != NULL) | ||
182 | DH_free(dh); | ||
183 | |||
184 | return (ret); | ||
185 | } | ||
186 | |||
187 | static int | ||
188 | dh_cb(int p, int n, BN_GENCB * cb) | ||
189 | { | ||
190 | char c = '*'; | ||
191 | |||
192 | if (p == 0) | ||
193 | c = '.'; | ||
194 | if (p == 1) | ||
195 | c = '+'; | ||
196 | if (p == 2) | ||
197 | c = '*'; | ||
198 | if (p == 3) | ||
199 | c = '\n'; | ||
200 | BIO_write(cb->arg, &c, 1); | ||
201 | (void) BIO_flush(cb->arg); | ||
202 | return 1; | ||
203 | } | ||
204 | #endif | ||
diff --git a/src/usr.bin/openssl/gendsa.c b/src/usr.bin/openssl/gendsa.c new file mode 100644 index 0000000000..7c9f568830 --- /dev/null +++ b/src/usr.bin/openssl/gendsa.c | |||
@@ -0,0 +1,230 @@ | |||
1 | /* $OpenBSD: gendsa.c,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
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 <openssl/opensslconf.h> /* for OPENSSL_NO_DSA */ | ||
60 | |||
61 | |||
62 | #include <sys/types.h> | ||
63 | #include <sys/stat.h> | ||
64 | |||
65 | #include <stdio.h> | ||
66 | #include <string.h> | ||
67 | |||
68 | #include "apps.h" | ||
69 | |||
70 | #include <openssl/bio.h> | ||
71 | #include <openssl/bn.h> | ||
72 | #include <openssl/dsa.h> | ||
73 | #include <openssl/err.h> | ||
74 | #include <openssl/pem.h> | ||
75 | #include <openssl/x509.h> | ||
76 | |||
77 | #define DEFBITS 512 | ||
78 | |||
79 | int gendsa_main(int, char **); | ||
80 | |||
81 | int | ||
82 | gendsa_main(int argc, char **argv) | ||
83 | { | ||
84 | DSA *dsa = NULL; | ||
85 | int ret = 1; | ||
86 | char *outfile = NULL; | ||
87 | char *dsaparams = NULL; | ||
88 | char *passargout = NULL, *passout = NULL; | ||
89 | BIO *out = NULL, *in = NULL; | ||
90 | const EVP_CIPHER *enc = NULL; | ||
91 | #ifndef OPENSSL_NO_ENGINE | ||
92 | char *engine = NULL; | ||
93 | #endif | ||
94 | |||
95 | argv++; | ||
96 | argc--; | ||
97 | for (;;) { | ||
98 | if (argc <= 0) | ||
99 | break; | ||
100 | if (strcmp(*argv, "-out") == 0) { | ||
101 | if (--argc < 1) | ||
102 | goto bad; | ||
103 | outfile = *(++argv); | ||
104 | } else if (strcmp(*argv, "-passout") == 0) { | ||
105 | if (--argc < 1) | ||
106 | goto bad; | ||
107 | passargout = *(++argv); | ||
108 | } | ||
109 | #ifndef OPENSSL_NO_ENGINE | ||
110 | else if (strcmp(*argv, "-engine") == 0) { | ||
111 | if (--argc < 1) | ||
112 | goto bad; | ||
113 | engine = *(++argv); | ||
114 | } | ||
115 | #endif | ||
116 | else if (strcmp(*argv, "-") == 0) | ||
117 | goto bad; | ||
118 | #ifndef OPENSSL_NO_DES | ||
119 | else if (strcmp(*argv, "-des") == 0) | ||
120 | enc = EVP_des_cbc(); | ||
121 | else if (strcmp(*argv, "-des3") == 0) | ||
122 | enc = EVP_des_ede3_cbc(); | ||
123 | #endif | ||
124 | #ifndef OPENSSL_NO_IDEA | ||
125 | else if (strcmp(*argv, "-idea") == 0) | ||
126 | enc = EVP_idea_cbc(); | ||
127 | #endif | ||
128 | #ifndef OPENSSL_NO_AES | ||
129 | else if (strcmp(*argv, "-aes128") == 0) | ||
130 | enc = EVP_aes_128_cbc(); | ||
131 | else if (strcmp(*argv, "-aes192") == 0) | ||
132 | enc = EVP_aes_192_cbc(); | ||
133 | else if (strcmp(*argv, "-aes256") == 0) | ||
134 | enc = EVP_aes_256_cbc(); | ||
135 | #endif | ||
136 | #ifndef OPENSSL_NO_CAMELLIA | ||
137 | else if (strcmp(*argv, "-camellia128") == 0) | ||
138 | enc = EVP_camellia_128_cbc(); | ||
139 | else if (strcmp(*argv, "-camellia192") == 0) | ||
140 | enc = EVP_camellia_192_cbc(); | ||
141 | else if (strcmp(*argv, "-camellia256") == 0) | ||
142 | enc = EVP_camellia_256_cbc(); | ||
143 | #endif | ||
144 | else if (**argv != '-' && dsaparams == NULL) { | ||
145 | dsaparams = *argv; | ||
146 | } else | ||
147 | goto bad; | ||
148 | argv++; | ||
149 | argc--; | ||
150 | } | ||
151 | |||
152 | if (dsaparams == NULL) { | ||
153 | bad: | ||
154 | BIO_printf(bio_err, "usage: gendsa [args] dsaparam-file\n"); | ||
155 | BIO_printf(bio_err, " -out file - output the key to 'file'\n"); | ||
156 | #ifndef OPENSSL_NO_DES | ||
157 | BIO_printf(bio_err, " -des - encrypt the generated key with DES in cbc mode\n"); | ||
158 | BIO_printf(bio_err, " -des3 - encrypt the generated key with DES in ede cbc mode (168 bit key)\n"); | ||
159 | #endif | ||
160 | #ifndef OPENSSL_NO_IDEA | ||
161 | BIO_printf(bio_err, " -idea - encrypt the generated key with IDEA in cbc mode\n"); | ||
162 | #endif | ||
163 | #ifndef OPENSSL_NO_AES | ||
164 | BIO_printf(bio_err, " -aes128, -aes192, -aes256\n"); | ||
165 | BIO_printf(bio_err, " encrypt PEM output with cbc aes\n"); | ||
166 | #endif | ||
167 | #ifndef OPENSSL_NO_CAMELLIA | ||
168 | BIO_printf(bio_err, " -camellia128, -camellia192, -camellia256\n"); | ||
169 | BIO_printf(bio_err, " encrypt PEM output with cbc camellia\n"); | ||
170 | #endif | ||
171 | #ifndef OPENSSL_NO_ENGINE | ||
172 | BIO_printf(bio_err, " -engine e - use engine e, possibly a hardware device.\n"); | ||
173 | #endif | ||
174 | BIO_printf(bio_err, " dsaparam-file\n"); | ||
175 | BIO_printf(bio_err, " - a DSA parameter file as generated by the dsaparam command\n"); | ||
176 | goto end; | ||
177 | } | ||
178 | #ifndef OPENSSL_NO_ENGINE | ||
179 | setup_engine(bio_err, engine, 0); | ||
180 | #endif | ||
181 | |||
182 | if (!app_passwd(bio_err, NULL, passargout, NULL, &passout)) { | ||
183 | BIO_printf(bio_err, "Error getting password\n"); | ||
184 | goto end; | ||
185 | } | ||
186 | in = BIO_new(BIO_s_file()); | ||
187 | if (!(BIO_read_filename(in, dsaparams))) { | ||
188 | perror(dsaparams); | ||
189 | goto end; | ||
190 | } | ||
191 | if ((dsa = PEM_read_bio_DSAparams(in, NULL, NULL, NULL)) == NULL) { | ||
192 | BIO_printf(bio_err, "unable to load DSA parameter file\n"); | ||
193 | goto end; | ||
194 | } | ||
195 | BIO_free(in); | ||
196 | in = NULL; | ||
197 | |||
198 | out = BIO_new(BIO_s_file()); | ||
199 | if (out == NULL) | ||
200 | goto end; | ||
201 | |||
202 | if (outfile == NULL) { | ||
203 | BIO_set_fp(out, stdout, BIO_NOCLOSE); | ||
204 | } else { | ||
205 | if (BIO_write_filename(out, outfile) <= 0) { | ||
206 | perror(outfile); | ||
207 | goto end; | ||
208 | } | ||
209 | } | ||
210 | |||
211 | BIO_printf(bio_err, "Generating DSA key, %d bits\n", | ||
212 | BN_num_bits(dsa->p)); | ||
213 | if (!DSA_generate_key(dsa)) | ||
214 | goto end; | ||
215 | |||
216 | if (!PEM_write_bio_DSAPrivateKey(out, dsa, enc, NULL, 0, NULL, passout)) | ||
217 | goto end; | ||
218 | ret = 0; | ||
219 | end: | ||
220 | if (ret != 0) | ||
221 | ERR_print_errors(bio_err); | ||
222 | BIO_free(in); | ||
223 | if (out != NULL) | ||
224 | BIO_free_all(out); | ||
225 | if (dsa != NULL) | ||
226 | DSA_free(dsa); | ||
227 | free(passout); | ||
228 | |||
229 | return (ret); | ||
230 | } | ||
diff --git a/src/usr.bin/openssl/genpkey.c b/src/usr.bin/openssl/genpkey.c new file mode 100644 index 0000000000..02332f6682 --- /dev/null +++ b/src/usr.bin/openssl/genpkey.c | |||
@@ -0,0 +1,383 @@ | |||
1 | /* $OpenBSD: genpkey.c,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
2 | /* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL | ||
3 | * project 2006 | ||
4 | */ | ||
5 | /* ==================================================================== | ||
6 | * Copyright (c) 2006 The OpenSSL Project. All rights reserved. | ||
7 | * | ||
8 | * Redistribution and use in source and binary forms, with or without | ||
9 | * modification, are permitted provided that the following conditions | ||
10 | * are met: | ||
11 | * | ||
12 | * 1. Redistributions of source code must retain the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer. | ||
14 | * | ||
15 | * 2. Redistributions in binary form must reproduce the above copyright | ||
16 | * notice, this list of conditions and the following disclaimer in | ||
17 | * the documentation and/or other materials provided with the | ||
18 | * distribution. | ||
19 | * | ||
20 | * 3. All advertising materials mentioning features or use of this | ||
21 | * software must display the following acknowledgment: | ||
22 | * "This product includes software developed by the OpenSSL Project | ||
23 | * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" | ||
24 | * | ||
25 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
26 | * endorse or promote products derived from this software without | ||
27 | * prior written permission. For written permission, please contact | ||
28 | * licensing@OpenSSL.org. | ||
29 | * | ||
30 | * 5. Products derived from this software may not be called "OpenSSL" | ||
31 | * nor may "OpenSSL" appear in their names without prior written | ||
32 | * permission of the OpenSSL Project. | ||
33 | * | ||
34 | * 6. Redistributions of any form whatsoever must retain the following | ||
35 | * acknowledgment: | ||
36 | * "This product includes software developed by the OpenSSL Project | ||
37 | * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" | ||
38 | * | ||
39 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
40 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
41 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
42 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
43 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
44 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
45 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
46 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
47 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
48 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
49 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
50 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
51 | * ==================================================================== | ||
52 | * | ||
53 | * This product includes cryptographic software written by Eric Young | ||
54 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
55 | * Hudson (tjh@cryptsoft.com). | ||
56 | * | ||
57 | */ | ||
58 | |||
59 | #include <stdio.h> | ||
60 | #include <string.h> | ||
61 | |||
62 | #include "apps.h" | ||
63 | |||
64 | #include <openssl/err.h> | ||
65 | #include <openssl/evp.h> | ||
66 | #include <openssl/pem.h> | ||
67 | |||
68 | #ifndef OPENSSL_NO_ENGINE | ||
69 | #include <openssl/engine.h> | ||
70 | #endif | ||
71 | |||
72 | static int | ||
73 | init_keygen_file(BIO * err, EVP_PKEY_CTX ** pctx, const char *file, | ||
74 | ENGINE * e); | ||
75 | static int genpkey_cb(EVP_PKEY_CTX * ctx); | ||
76 | |||
77 | |||
78 | int genpkey_main(int, char **); | ||
79 | |||
80 | int | ||
81 | genpkey_main(int argc, char **argv) | ||
82 | { | ||
83 | ENGINE *e = NULL; | ||
84 | char **args, *outfile = NULL; | ||
85 | char *passarg = NULL; | ||
86 | BIO *in = NULL, *out = NULL; | ||
87 | const EVP_CIPHER *cipher = NULL; | ||
88 | int outformat; | ||
89 | int text = 0; | ||
90 | EVP_PKEY *pkey = NULL; | ||
91 | EVP_PKEY_CTX *ctx = NULL; | ||
92 | char *pass = NULL; | ||
93 | int badarg = 0; | ||
94 | int ret = 1, rv; | ||
95 | |||
96 | int do_param = 0; | ||
97 | |||
98 | outformat = FORMAT_PEM; | ||
99 | |||
100 | ERR_load_crypto_strings(); | ||
101 | OpenSSL_add_all_algorithms(); | ||
102 | args = argv + 1; | ||
103 | while (!badarg && *args && *args[0] == '-') { | ||
104 | if (!strcmp(*args, "-outform")) { | ||
105 | if (args[1]) { | ||
106 | args++; | ||
107 | outformat = str2fmt(*args); | ||
108 | } else | ||
109 | badarg = 1; | ||
110 | } else if (!strcmp(*args, "-pass")) { | ||
111 | if (!args[1]) | ||
112 | goto bad; | ||
113 | passarg = *(++args); | ||
114 | } | ||
115 | #ifndef OPENSSL_NO_ENGINE | ||
116 | else if (strcmp(*args, "-engine") == 0) { | ||
117 | if (!args[1]) | ||
118 | goto bad; | ||
119 | e = setup_engine(bio_err, *(++args), 0); | ||
120 | } | ||
121 | #endif | ||
122 | else if (!strcmp(*args, "-paramfile")) { | ||
123 | if (!args[1]) | ||
124 | goto bad; | ||
125 | args++; | ||
126 | if (do_param == 1) | ||
127 | goto bad; | ||
128 | if (!init_keygen_file(bio_err, &ctx, *args, e)) | ||
129 | goto end; | ||
130 | } else if (!strcmp(*args, "-out")) { | ||
131 | if (args[1]) { | ||
132 | args++; | ||
133 | outfile = *args; | ||
134 | } else | ||
135 | badarg = 1; | ||
136 | } else if (strcmp(*args, "-algorithm") == 0) { | ||
137 | if (!args[1]) | ||
138 | goto bad; | ||
139 | if (!init_gen_str(bio_err, &ctx, *(++args), e, do_param)) | ||
140 | goto end; | ||
141 | } else if (strcmp(*args, "-pkeyopt") == 0) { | ||
142 | if (!args[1]) | ||
143 | goto bad; | ||
144 | if (!ctx) { | ||
145 | BIO_puts(bio_err, "No keytype specified\n"); | ||
146 | goto bad; | ||
147 | } else if (pkey_ctrl_string(ctx, *(++args)) <= 0) { | ||
148 | BIO_puts(bio_err, "parameter setting error\n"); | ||
149 | ERR_print_errors(bio_err); | ||
150 | goto end; | ||
151 | } | ||
152 | } else if (strcmp(*args, "-genparam") == 0) { | ||
153 | if (ctx) | ||
154 | goto bad; | ||
155 | do_param = 1; | ||
156 | } else if (strcmp(*args, "-text") == 0) | ||
157 | text = 1; | ||
158 | else { | ||
159 | cipher = EVP_get_cipherbyname(*args + 1); | ||
160 | if (!cipher) { | ||
161 | BIO_printf(bio_err, "Unknown cipher %s\n", | ||
162 | *args + 1); | ||
163 | badarg = 1; | ||
164 | } | ||
165 | if (do_param == 1) | ||
166 | badarg = 1; | ||
167 | } | ||
168 | args++; | ||
169 | } | ||
170 | |||
171 | if (!ctx) | ||
172 | badarg = 1; | ||
173 | |||
174 | if (badarg) { | ||
175 | bad: | ||
176 | BIO_printf(bio_err, "Usage: genpkey [options]\n"); | ||
177 | BIO_printf(bio_err, "where options may be\n"); | ||
178 | BIO_printf(bio_err, "-out file output file\n"); | ||
179 | BIO_printf(bio_err, "-outform X output format (DER or PEM)\n"); | ||
180 | BIO_printf(bio_err, "-pass arg output file pass phrase source\n"); | ||
181 | BIO_printf(bio_err, "-<cipher> use cipher <cipher> to encrypt the key\n"); | ||
182 | #ifndef OPENSSL_NO_ENGINE | ||
183 | BIO_printf(bio_err, "-engine e use engine e, possibly a hardware device.\n"); | ||
184 | #endif | ||
185 | BIO_printf(bio_err, "-paramfile file parameters file\n"); | ||
186 | BIO_printf(bio_err, "-algorithm alg the public key algorithm\n"); | ||
187 | BIO_printf(bio_err, "-pkeyopt opt:value set the public key algorithm option <opt>\n" | ||
188 | " to value <value>\n"); | ||
189 | BIO_printf(bio_err, "-genparam generate parameters, not key\n"); | ||
190 | BIO_printf(bio_err, "-text print the in text\n"); | ||
191 | BIO_printf(bio_err, "NB: options order may be important! See the manual page.\n"); | ||
192 | goto end; | ||
193 | } | ||
194 | if (!app_passwd(bio_err, passarg, NULL, &pass, NULL)) { | ||
195 | BIO_puts(bio_err, "Error getting password\n"); | ||
196 | goto end; | ||
197 | } | ||
198 | if (outfile) { | ||
199 | if (!(out = BIO_new_file(outfile, "wb"))) { | ||
200 | BIO_printf(bio_err, | ||
201 | "Can't open output file %s\n", outfile); | ||
202 | goto end; | ||
203 | } | ||
204 | } else { | ||
205 | out = BIO_new_fp(stdout, BIO_NOCLOSE); | ||
206 | } | ||
207 | |||
208 | EVP_PKEY_CTX_set_cb(ctx, genpkey_cb); | ||
209 | EVP_PKEY_CTX_set_app_data(ctx, bio_err); | ||
210 | |||
211 | if (do_param) { | ||
212 | if (EVP_PKEY_paramgen(ctx, &pkey) <= 0) { | ||
213 | BIO_puts(bio_err, "Error generating parameters\n"); | ||
214 | ERR_print_errors(bio_err); | ||
215 | goto end; | ||
216 | } | ||
217 | } else { | ||
218 | if (EVP_PKEY_keygen(ctx, &pkey) <= 0) { | ||
219 | BIO_puts(bio_err, "Error generating key\n"); | ||
220 | ERR_print_errors(bio_err); | ||
221 | goto end; | ||
222 | } | ||
223 | } | ||
224 | |||
225 | if (do_param) | ||
226 | rv = PEM_write_bio_Parameters(out, pkey); | ||
227 | else if (outformat == FORMAT_PEM) | ||
228 | rv = PEM_write_bio_PrivateKey(out, pkey, cipher, NULL, 0, | ||
229 | NULL, pass); | ||
230 | else if (outformat == FORMAT_ASN1) | ||
231 | rv = i2d_PrivateKey_bio(out, pkey); | ||
232 | else { | ||
233 | BIO_printf(bio_err, "Bad format specified for key\n"); | ||
234 | goto end; | ||
235 | } | ||
236 | |||
237 | if (rv <= 0) { | ||
238 | BIO_puts(bio_err, "Error writing key\n"); | ||
239 | ERR_print_errors(bio_err); | ||
240 | } | ||
241 | if (text) { | ||
242 | if (do_param) | ||
243 | rv = EVP_PKEY_print_params(out, pkey, 0, NULL); | ||
244 | else | ||
245 | rv = EVP_PKEY_print_private(out, pkey, 0, NULL); | ||
246 | |||
247 | if (rv <= 0) { | ||
248 | BIO_puts(bio_err, "Error printing key\n"); | ||
249 | ERR_print_errors(bio_err); | ||
250 | } | ||
251 | } | ||
252 | ret = 0; | ||
253 | |||
254 | end: | ||
255 | if (pkey) | ||
256 | EVP_PKEY_free(pkey); | ||
257 | if (ctx) | ||
258 | EVP_PKEY_CTX_free(ctx); | ||
259 | if (out) | ||
260 | BIO_free_all(out); | ||
261 | BIO_free(in); | ||
262 | free(pass); | ||
263 | |||
264 | return ret; | ||
265 | } | ||
266 | |||
267 | static int | ||
268 | init_keygen_file(BIO * err, EVP_PKEY_CTX ** pctx, | ||
269 | const char *file, ENGINE * e) | ||
270 | { | ||
271 | BIO *pbio; | ||
272 | EVP_PKEY *pkey = NULL; | ||
273 | EVP_PKEY_CTX *ctx = NULL; | ||
274 | if (*pctx) { | ||
275 | BIO_puts(err, "Parameters already set!\n"); | ||
276 | return 0; | ||
277 | } | ||
278 | pbio = BIO_new_file(file, "r"); | ||
279 | if (!pbio) { | ||
280 | BIO_printf(err, "Can't open parameter file %s\n", file); | ||
281 | return 0; | ||
282 | } | ||
283 | pkey = PEM_read_bio_Parameters(pbio, NULL); | ||
284 | BIO_free(pbio); | ||
285 | |||
286 | if (!pkey) { | ||
287 | BIO_printf(bio_err, "Error reading parameter file %s\n", file); | ||
288 | return 0; | ||
289 | } | ||
290 | ctx = EVP_PKEY_CTX_new(pkey, e); | ||
291 | if (!ctx) | ||
292 | goto err; | ||
293 | if (EVP_PKEY_keygen_init(ctx) <= 0) | ||
294 | goto err; | ||
295 | EVP_PKEY_free(pkey); | ||
296 | *pctx = ctx; | ||
297 | return 1; | ||
298 | |||
299 | err: | ||
300 | BIO_puts(err, "Error initializing context\n"); | ||
301 | ERR_print_errors(err); | ||
302 | if (ctx) | ||
303 | EVP_PKEY_CTX_free(ctx); | ||
304 | if (pkey) | ||
305 | EVP_PKEY_free(pkey); | ||
306 | return 0; | ||
307 | |||
308 | } | ||
309 | |||
310 | int | ||
311 | init_gen_str(BIO * err, EVP_PKEY_CTX ** pctx, | ||
312 | const char *algname, ENGINE * e, int do_param) | ||
313 | { | ||
314 | EVP_PKEY_CTX *ctx = NULL; | ||
315 | const EVP_PKEY_ASN1_METHOD *ameth; | ||
316 | ENGINE *tmpeng = NULL; | ||
317 | int pkey_id; | ||
318 | |||
319 | if (*pctx) { | ||
320 | BIO_puts(err, "Algorithm already set!\n"); | ||
321 | return 0; | ||
322 | } | ||
323 | ameth = EVP_PKEY_asn1_find_str(&tmpeng, algname, -1); | ||
324 | |||
325 | #ifndef OPENSSL_NO_ENGINE | ||
326 | if (!ameth && e) | ||
327 | ameth = ENGINE_get_pkey_asn1_meth_str(e, algname, -1); | ||
328 | #endif | ||
329 | |||
330 | if (!ameth) { | ||
331 | BIO_printf(bio_err, "Algorithm %s not found\n", algname); | ||
332 | return 0; | ||
333 | } | ||
334 | ERR_clear_error(); | ||
335 | |||
336 | EVP_PKEY_asn1_get0_info(&pkey_id, NULL, NULL, NULL, NULL, ameth); | ||
337 | #ifndef OPENSSL_NO_ENGINE | ||
338 | if (tmpeng) | ||
339 | ENGINE_finish(tmpeng); | ||
340 | #endif | ||
341 | ctx = EVP_PKEY_CTX_new_id(pkey_id, e); | ||
342 | |||
343 | if (!ctx) | ||
344 | goto err; | ||
345 | if (do_param) { | ||
346 | if (EVP_PKEY_paramgen_init(ctx) <= 0) | ||
347 | goto err; | ||
348 | } else { | ||
349 | if (EVP_PKEY_keygen_init(ctx) <= 0) | ||
350 | goto err; | ||
351 | } | ||
352 | |||
353 | *pctx = ctx; | ||
354 | return 1; | ||
355 | |||
356 | err: | ||
357 | BIO_printf(err, "Error initializing %s context\n", algname); | ||
358 | ERR_print_errors(err); | ||
359 | if (ctx) | ||
360 | EVP_PKEY_CTX_free(ctx); | ||
361 | return 0; | ||
362 | |||
363 | } | ||
364 | |||
365 | static int | ||
366 | genpkey_cb(EVP_PKEY_CTX * ctx) | ||
367 | { | ||
368 | char c = '*'; | ||
369 | BIO *b = EVP_PKEY_CTX_get_app_data(ctx); | ||
370 | int p; | ||
371 | p = EVP_PKEY_CTX_get_keygen_info(ctx, 0); | ||
372 | if (p == 0) | ||
373 | c = '.'; | ||
374 | if (p == 1) | ||
375 | c = '+'; | ||
376 | if (p == 2) | ||
377 | c = '*'; | ||
378 | if (p == 3) | ||
379 | c = '\n'; | ||
380 | BIO_write(b, &c, 1); | ||
381 | (void) BIO_flush(b); | ||
382 | return 1; | ||
383 | } | ||
diff --git a/src/usr.bin/openssl/genrsa.c b/src/usr.bin/openssl/genrsa.c new file mode 100644 index 0000000000..7844fb815f --- /dev/null +++ b/src/usr.bin/openssl/genrsa.c | |||
@@ -0,0 +1,286 @@ | |||
1 | /* $OpenBSD: genrsa.c,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
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 <openssl/opensslconf.h> | ||
60 | |||
61 | /* Until the key-gen callbacks are modified to use newer prototypes, we allow | ||
62 | * deprecated functions for openssl-internal code */ | ||
63 | #ifdef OPENSSL_NO_DEPRECATED | ||
64 | #undef OPENSSL_NO_DEPRECATED | ||
65 | #endif | ||
66 | |||
67 | |||
68 | #include <sys/types.h> | ||
69 | #include <sys/stat.h> | ||
70 | |||
71 | #include <stdio.h> | ||
72 | #include <string.h> | ||
73 | |||
74 | #include "apps.h" | ||
75 | |||
76 | #include <openssl/bio.h> | ||
77 | #include <openssl/bn.h> | ||
78 | #include <openssl/err.h> | ||
79 | #include <openssl/evp.h> | ||
80 | #include <openssl/pem.h> | ||
81 | #include <openssl/rand.h> | ||
82 | #include <openssl/rsa.h> | ||
83 | #include <openssl/x509.h> | ||
84 | |||
85 | #define DEFBITS 2048 | ||
86 | |||
87 | static int genrsa_cb(int p, int n, BN_GENCB * cb); | ||
88 | |||
89 | int genrsa_main(int, char **); | ||
90 | |||
91 | int | ||
92 | genrsa_main(int argc, char **argv) | ||
93 | { | ||
94 | BN_GENCB cb; | ||
95 | #ifndef OPENSSL_NO_ENGINE | ||
96 | ENGINE *e = NULL; | ||
97 | #endif | ||
98 | int ret = 1; | ||
99 | int i, num = DEFBITS; | ||
100 | long l; | ||
101 | const EVP_CIPHER *enc = NULL; | ||
102 | unsigned long f4 = RSA_F4; | ||
103 | char *outfile = NULL; | ||
104 | char *passargout = NULL, *passout = NULL; | ||
105 | #ifndef OPENSSL_NO_ENGINE | ||
106 | char *engine = NULL; | ||
107 | #endif | ||
108 | BIO *out = NULL; | ||
109 | BIGNUM *bn = BN_new(); | ||
110 | RSA *rsa = NULL; | ||
111 | |||
112 | if (!bn) | ||
113 | goto err; | ||
114 | |||
115 | BN_GENCB_set(&cb, genrsa_cb, bio_err); | ||
116 | |||
117 | if ((out = BIO_new(BIO_s_file())) == NULL) { | ||
118 | BIO_printf(bio_err, "unable to create BIO for output\n"); | ||
119 | goto err; | ||
120 | } | ||
121 | argv++; | ||
122 | argc--; | ||
123 | for (;;) { | ||
124 | if (argc <= 0) | ||
125 | break; | ||
126 | if (strcmp(*argv, "-out") == 0) { | ||
127 | if (--argc < 1) | ||
128 | goto bad; | ||
129 | outfile = *(++argv); | ||
130 | } else if (strcmp(*argv, "-3") == 0) | ||
131 | f4 = 3; | ||
132 | else if (strcmp(*argv, "-F4") == 0 || strcmp(*argv, "-f4") == 0) | ||
133 | f4 = RSA_F4; | ||
134 | #ifndef OPENSSL_NO_ENGINE | ||
135 | else if (strcmp(*argv, "-engine") == 0) { | ||
136 | if (--argc < 1) | ||
137 | goto bad; | ||
138 | engine = *(++argv); | ||
139 | } | ||
140 | #endif | ||
141 | #ifndef OPENSSL_NO_DES | ||
142 | else if (strcmp(*argv, "-des") == 0) | ||
143 | enc = EVP_des_cbc(); | ||
144 | else if (strcmp(*argv, "-des3") == 0) | ||
145 | enc = EVP_des_ede3_cbc(); | ||
146 | #endif | ||
147 | #ifndef OPENSSL_NO_IDEA | ||
148 | else if (strcmp(*argv, "-idea") == 0) | ||
149 | enc = EVP_idea_cbc(); | ||
150 | #endif | ||
151 | #ifndef OPENSSL_NO_AES | ||
152 | else if (strcmp(*argv, "-aes128") == 0) | ||
153 | enc = EVP_aes_128_cbc(); | ||
154 | else if (strcmp(*argv, "-aes192") == 0) | ||
155 | enc = EVP_aes_192_cbc(); | ||
156 | else if (strcmp(*argv, "-aes256") == 0) | ||
157 | enc = EVP_aes_256_cbc(); | ||
158 | #endif | ||
159 | #ifndef OPENSSL_NO_CAMELLIA | ||
160 | else if (strcmp(*argv, "-camellia128") == 0) | ||
161 | enc = EVP_camellia_128_cbc(); | ||
162 | else if (strcmp(*argv, "-camellia192") == 0) | ||
163 | enc = EVP_camellia_192_cbc(); | ||
164 | else if (strcmp(*argv, "-camellia256") == 0) | ||
165 | enc = EVP_camellia_256_cbc(); | ||
166 | #endif | ||
167 | else if (strcmp(*argv, "-passout") == 0) { | ||
168 | if (--argc < 1) | ||
169 | goto bad; | ||
170 | passargout = *(++argv); | ||
171 | } else | ||
172 | break; | ||
173 | argv++; | ||
174 | argc--; | ||
175 | } | ||
176 | if ((argc >= 1) && ((sscanf(*argv, "%d", &num) == 0) || (num < 0))) { | ||
177 | bad: | ||
178 | BIO_printf(bio_err, "usage: genrsa [args] [numbits]\n"); | ||
179 | BIO_printf(bio_err, " -des encrypt the generated key with DES in cbc mode\n"); | ||
180 | BIO_printf(bio_err, " -des3 encrypt the generated key with DES in ede cbc mode (168 bit key)\n"); | ||
181 | #ifndef OPENSSL_NO_IDEA | ||
182 | BIO_printf(bio_err, " -idea encrypt the generated key with IDEA in cbc mode\n"); | ||
183 | #endif | ||
184 | #ifndef OPENSSL_NO_AES | ||
185 | BIO_printf(bio_err, " -aes128, -aes192, -aes256\n"); | ||
186 | BIO_printf(bio_err, " encrypt PEM output with cbc aes\n"); | ||
187 | #endif | ||
188 | #ifndef OPENSSL_NO_CAMELLIA | ||
189 | BIO_printf(bio_err, " -camellia128, -camellia192, -camellia256\n"); | ||
190 | BIO_printf(bio_err, " encrypt PEM output with cbc camellia\n"); | ||
191 | #endif | ||
192 | BIO_printf(bio_err, " -out file output the key to 'file\n"); | ||
193 | BIO_printf(bio_err, " -passout arg output file pass phrase source\n"); | ||
194 | BIO_printf(bio_err, " -f4 use F4 (0x10001) for the E value\n"); | ||
195 | BIO_printf(bio_err, " -3 use 3 for the E value\n"); | ||
196 | #ifndef OPENSSL_NO_ENGINE | ||
197 | BIO_printf(bio_err, " -engine e use engine e, possibly a hardware device.\n"); | ||
198 | #endif | ||
199 | goto err; | ||
200 | } | ||
201 | ERR_load_crypto_strings(); | ||
202 | |||
203 | if (!app_passwd(bio_err, NULL, passargout, NULL, &passout)) { | ||
204 | BIO_printf(bio_err, "Error getting password\n"); | ||
205 | goto err; | ||
206 | } | ||
207 | #ifndef OPENSSL_NO_ENGINE | ||
208 | e = setup_engine(bio_err, engine, 0); | ||
209 | #endif | ||
210 | |||
211 | if (outfile == NULL) { | ||
212 | BIO_set_fp(out, stdout, BIO_NOCLOSE); | ||
213 | } else { | ||
214 | if (BIO_write_filename(out, outfile) <= 0) { | ||
215 | perror(outfile); | ||
216 | goto err; | ||
217 | } | ||
218 | } | ||
219 | |||
220 | BIO_printf(bio_err, "Generating RSA private key, %d bit long modulus\n", | ||
221 | num); | ||
222 | #ifdef OPENSSL_NO_ENGINE | ||
223 | rsa = RSA_new(); | ||
224 | #else | ||
225 | rsa = RSA_new_method(e); | ||
226 | #endif | ||
227 | if (!rsa) | ||
228 | goto err; | ||
229 | |||
230 | if (!BN_set_word(bn, f4) || !RSA_generate_key_ex(rsa, num, bn, &cb)) | ||
231 | goto err; | ||
232 | |||
233 | /* | ||
234 | * We need to do the following for when the base number size is < | ||
235 | * long, esp windows 3.1 :-(. | ||
236 | */ | ||
237 | l = 0L; | ||
238 | for (i = 0; i < rsa->e->top; i++) { | ||
239 | #ifndef _LP64 | ||
240 | l <<= BN_BITS4; | ||
241 | l <<= BN_BITS4; | ||
242 | #endif | ||
243 | l += rsa->e->d[i]; | ||
244 | } | ||
245 | BIO_printf(bio_err, "e is %ld (0x%lX)\n", l, l); | ||
246 | { | ||
247 | PW_CB_DATA cb_data; | ||
248 | cb_data.password = passout; | ||
249 | cb_data.prompt_info = outfile; | ||
250 | if (!PEM_write_bio_RSAPrivateKey(out, rsa, enc, NULL, 0, | ||
251 | password_callback, &cb_data)) | ||
252 | goto err; | ||
253 | } | ||
254 | |||
255 | ret = 0; | ||
256 | err: | ||
257 | if (bn) | ||
258 | BN_free(bn); | ||
259 | if (rsa) | ||
260 | RSA_free(rsa); | ||
261 | if (out) | ||
262 | BIO_free_all(out); | ||
263 | free(passout); | ||
264 | if (ret != 0) | ||
265 | ERR_print_errors(bio_err); | ||
266 | |||
267 | return (ret); | ||
268 | } | ||
269 | |||
270 | static int | ||
271 | genrsa_cb(int p, int n, BN_GENCB * cb) | ||
272 | { | ||
273 | char c = '*'; | ||
274 | |||
275 | if (p == 0) | ||
276 | c = '.'; | ||
277 | if (p == 1) | ||
278 | c = '+'; | ||
279 | if (p == 2) | ||
280 | c = '*'; | ||
281 | if (p == 3) | ||
282 | c = '\n'; | ||
283 | BIO_write(cb->arg, &c, 1); | ||
284 | (void) BIO_flush(cb->arg); | ||
285 | return 1; | ||
286 | } | ||
diff --git a/src/usr.bin/openssl/nseq.c b/src/usr.bin/openssl/nseq.c new file mode 100644 index 0000000000..6c32f7c4b4 --- /dev/null +++ b/src/usr.bin/openssl/nseq.c | |||
@@ -0,0 +1,162 @@ | |||
1 | /* $OpenBSD: nseq.c,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
2 | /* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL | ||
3 | * project 1999. | ||
4 | */ | ||
5 | /* ==================================================================== | ||
6 | * Copyright (c) 1999 The OpenSSL Project. All rights reserved. | ||
7 | * | ||
8 | * Redistribution and use in source and binary forms, with or without | ||
9 | * modification, are permitted provided that the following conditions | ||
10 | * are met: | ||
11 | * | ||
12 | * 1. Redistributions of source code must retain the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer. | ||
14 | * | ||
15 | * 2. Redistributions in binary form must reproduce the above copyright | ||
16 | * notice, this list of conditions and the following disclaimer in | ||
17 | * the documentation and/or other materials provided with the | ||
18 | * distribution. | ||
19 | * | ||
20 | * 3. All advertising materials mentioning features or use of this | ||
21 | * software must display the following acknowledgment: | ||
22 | * "This product includes software developed by the OpenSSL Project | ||
23 | * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" | ||
24 | * | ||
25 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
26 | * endorse or promote products derived from this software without | ||
27 | * prior written permission. For written permission, please contact | ||
28 | * licensing@OpenSSL.org. | ||
29 | * | ||
30 | * 5. Products derived from this software may not be called "OpenSSL" | ||
31 | * nor may "OpenSSL" appear in their names without prior written | ||
32 | * permission of the OpenSSL Project. | ||
33 | * | ||
34 | * 6. Redistributions of any form whatsoever must retain the following | ||
35 | * acknowledgment: | ||
36 | * "This product includes software developed by the OpenSSL Project | ||
37 | * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" | ||
38 | * | ||
39 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
40 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
41 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
42 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
43 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
44 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
45 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
46 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
47 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
48 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
49 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
50 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
51 | * ==================================================================== | ||
52 | * | ||
53 | * This product includes cryptographic software written by Eric Young | ||
54 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
55 | * Hudson (tjh@cryptsoft.com). | ||
56 | * | ||
57 | */ | ||
58 | |||
59 | #include <stdio.h> | ||
60 | #include <string.h> | ||
61 | |||
62 | #include "apps.h" | ||
63 | |||
64 | #include <openssl/err.h> | ||
65 | #include <openssl/pem.h> | ||
66 | |||
67 | int nseq_main(int, char **); | ||
68 | |||
69 | int | ||
70 | nseq_main(int argc, char **argv) | ||
71 | { | ||
72 | char **args, *infile = NULL, *outfile = NULL; | ||
73 | BIO *in = NULL, *out = NULL; | ||
74 | int toseq = 0; | ||
75 | X509 *x509 = NULL; | ||
76 | NETSCAPE_CERT_SEQUENCE *seq = NULL; | ||
77 | int i, ret = 1; | ||
78 | int badarg = 0; | ||
79 | |||
80 | ERR_load_crypto_strings(); | ||
81 | |||
82 | args = argv + 1; | ||
83 | while (!badarg && *args && *args[0] == '-') { | ||
84 | if (!strcmp(*args, "-toseq")) | ||
85 | toseq = 1; | ||
86 | else if (!strcmp(*args, "-in")) { | ||
87 | if (args[1]) { | ||
88 | args++; | ||
89 | infile = *args; | ||
90 | } else | ||
91 | badarg = 1; | ||
92 | } else if (!strcmp(*args, "-out")) { | ||
93 | if (args[1]) { | ||
94 | args++; | ||
95 | outfile = *args; | ||
96 | } else | ||
97 | badarg = 1; | ||
98 | } else | ||
99 | badarg = 1; | ||
100 | args++; | ||
101 | } | ||
102 | |||
103 | if (badarg) { | ||
104 | BIO_printf(bio_err, "Netscape certificate sequence utility\n"); | ||
105 | BIO_printf(bio_err, "Usage nseq [options]\n"); | ||
106 | BIO_printf(bio_err, "where options are\n"); | ||
107 | BIO_printf(bio_err, "-in file input file\n"); | ||
108 | BIO_printf(bio_err, "-out file output file\n"); | ||
109 | BIO_printf(bio_err, "-toseq output NS Sequence file\n"); | ||
110 | return (1); | ||
111 | } | ||
112 | if (infile) { | ||
113 | if (!(in = BIO_new_file(infile, "r"))) { | ||
114 | BIO_printf(bio_err, | ||
115 | "Can't open input file %s\n", infile); | ||
116 | goto end; | ||
117 | } | ||
118 | } else | ||
119 | in = BIO_new_fp(stdin, BIO_NOCLOSE); | ||
120 | |||
121 | if (outfile) { | ||
122 | if (!(out = BIO_new_file(outfile, "w"))) { | ||
123 | BIO_printf(bio_err, | ||
124 | "Can't open output file %s\n", outfile); | ||
125 | goto end; | ||
126 | } | ||
127 | } else { | ||
128 | out = BIO_new_fp(stdout, BIO_NOCLOSE); | ||
129 | } | ||
130 | if (toseq) { | ||
131 | seq = NETSCAPE_CERT_SEQUENCE_new(); | ||
132 | seq->certs = sk_X509_new_null(); | ||
133 | while ((x509 = PEM_read_bio_X509(in, NULL, NULL, NULL))) | ||
134 | sk_X509_push(seq->certs, x509); | ||
135 | |||
136 | if (!sk_X509_num(seq->certs)) { | ||
137 | BIO_printf(bio_err, "Error reading certs file %s\n", infile); | ||
138 | ERR_print_errors(bio_err); | ||
139 | goto end; | ||
140 | } | ||
141 | PEM_write_bio_NETSCAPE_CERT_SEQUENCE(out, seq); | ||
142 | ret = 0; | ||
143 | goto end; | ||
144 | } | ||
145 | if (!(seq = PEM_read_bio_NETSCAPE_CERT_SEQUENCE(in, NULL, NULL, NULL))) { | ||
146 | BIO_printf(bio_err, "Error reading sequence file %s\n", infile); | ||
147 | ERR_print_errors(bio_err); | ||
148 | goto end; | ||
149 | } | ||
150 | for (i = 0; i < sk_X509_num(seq->certs); i++) { | ||
151 | x509 = sk_X509_value(seq->certs, i); | ||
152 | dump_cert_text(out, x509); | ||
153 | PEM_write_bio_X509(out, x509); | ||
154 | } | ||
155 | ret = 0; | ||
156 | end: | ||
157 | BIO_free(in); | ||
158 | BIO_free_all(out); | ||
159 | NETSCAPE_CERT_SEQUENCE_free(seq); | ||
160 | |||
161 | return (ret); | ||
162 | } | ||
diff --git a/src/usr.bin/openssl/ocsp.c b/src/usr.bin/openssl/ocsp.c new file mode 100644 index 0000000000..bdc224d8bc --- /dev/null +++ b/src/usr.bin/openssl/ocsp.c | |||
@@ -0,0 +1,1217 @@ | |||
1 | /* $OpenBSD: ocsp.c,v 1.1 2014/08/26 17:47:24 jsing Exp $ */ | ||
2 | /* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL | ||
3 | * project 2000. | ||
4 | */ | ||
5 | /* ==================================================================== | ||
6 | * Copyright (c) 1999 The OpenSSL Project. All rights reserved. | ||
7 | * | ||
8 | * Redistribution and use in source and binary forms, with or without | ||
9 | * modification, are permitted provided that the following conditions | ||
10 | * are met: | ||
11 | * | ||
12 | * 1. Redistributions of source code must retain the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer. | ||
14 | * | ||
15 | * 2. Redistributions in binary form must reproduce the above copyright | ||
16 | * notice, this list of conditions and the following disclaimer in | ||
17 | * the documentation and/or other materials provided with the | ||
18 | * distribution. | ||
19 | * | ||
20 | * 3. All advertising materials mentioning features or use of this | ||
21 | * software must display the following acknowledgment: | ||
22 | * "This product includes software developed by the OpenSSL Project | ||
23 | * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" | ||
24 | * | ||
25 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
26 | * endorse or promote products derived from this software without | ||
27 | * prior written permission. For written permission, please contact | ||
28 | * licensing@OpenSSL.org. | ||
29 | * | ||
30 | * 5. Products derived from this software may not be called "OpenSSL" | ||
31 | * nor may "OpenSSL" appear in their names without prior written | ||
32 | * permission of the OpenSSL Project. | ||
33 | * | ||
34 | * 6. Redistributions of any form whatsoever must retain the following | ||
35 | * acknowledgment: | ||
36 | * "This product includes software developed by the OpenSSL Project | ||
37 | * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" | ||
38 | * | ||
39 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
40 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
41 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
42 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
43 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
44 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
45 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
46 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
47 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
48 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
49 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
50 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
51 | * ==================================================================== | ||
52 | * | ||
53 | * This product includes cryptographic software written by Eric Young | ||
54 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
55 | * Hudson (tjh@cryptsoft.com). | ||
56 | * | ||
57 | */ | ||
58 | #ifndef OPENSSL_NO_OCSP | ||
59 | |||
60 | #include <sys/select.h> | ||
61 | |||
62 | #include <stdio.h> | ||
63 | #include <stdlib.h> | ||
64 | #include <limits.h> | ||
65 | #include <string.h> | ||
66 | #include <time.h> | ||
67 | |||
68 | /* Needs to be included before the openssl headers! */ | ||
69 | #include "apps.h" | ||
70 | |||
71 | #include <openssl/bn.h> | ||
72 | #include <openssl/crypto.h> | ||
73 | #include <openssl/err.h> | ||
74 | #include <openssl/evp.h> | ||
75 | #include <openssl/ssl.h> | ||
76 | #include <openssl/x509v3.h> | ||
77 | |||
78 | /* Maximum leeway in validity period: default 5 minutes */ | ||
79 | #define MAX_VALIDITY_PERIOD (5 * 60) | ||
80 | |||
81 | static int | ||
82 | add_ocsp_cert(OCSP_REQUEST ** req, X509 * cert, const EVP_MD * cert_id_md, X509 * issuer, | ||
83 | STACK_OF(OCSP_CERTID) * ids); | ||
84 | static int add_ocsp_serial(OCSP_REQUEST ** req, char *serial, const EVP_MD * cert_id_md, X509 * issuer, | ||
85 | STACK_OF(OCSP_CERTID) * ids); | ||
86 | static int print_ocsp_summary(BIO * out, OCSP_BASICRESP * bs, OCSP_REQUEST * req, | ||
87 | STACK_OF(OPENSSL_STRING) * names, | ||
88 | STACK_OF(OCSP_CERTID) * ids, long nsec, | ||
89 | long maxage); | ||
90 | |||
91 | static int make_ocsp_response(OCSP_RESPONSE ** resp, OCSP_REQUEST * req, CA_DB * db, | ||
92 | X509 * ca, X509 * rcert, EVP_PKEY * rkey, | ||
93 | STACK_OF(X509) * rother, unsigned long flags, | ||
94 | int nmin, int ndays); | ||
95 | |||
96 | static char **lookup_serial(CA_DB * db, ASN1_INTEGER * ser); | ||
97 | static BIO *init_responder(char *port); | ||
98 | static int do_responder(OCSP_REQUEST ** preq, BIO ** pcbio, BIO * acbio, char *port); | ||
99 | static int send_ocsp_response(BIO * cbio, OCSP_RESPONSE * resp); | ||
100 | static OCSP_RESPONSE *query_responder(BIO * err, BIO * cbio, char *path, | ||
101 | STACK_OF(CONF_VALUE) * headers, | ||
102 | OCSP_REQUEST * req, int req_timeout); | ||
103 | |||
104 | |||
105 | int ocsp_main(int, char **); | ||
106 | |||
107 | int | ||
108 | ocsp_main(int argc, char **argv) | ||
109 | { | ||
110 | ENGINE *e = NULL; | ||
111 | char **args; | ||
112 | char *host = NULL, *port = NULL, *path = "/"; | ||
113 | char *reqin = NULL, *respin = NULL; | ||
114 | char *reqout = NULL, *respout = NULL; | ||
115 | char *signfile = NULL, *keyfile = NULL; | ||
116 | char *rsignfile = NULL, *rkeyfile = NULL; | ||
117 | char *outfile = NULL; | ||
118 | int add_nonce = 1, noverify = 0, use_ssl = -1; | ||
119 | STACK_OF(CONF_VALUE) * headers = NULL; | ||
120 | OCSP_REQUEST *req = NULL; | ||
121 | OCSP_RESPONSE *resp = NULL; | ||
122 | OCSP_BASICRESP *bs = NULL; | ||
123 | X509 *issuer = NULL, *cert = NULL; | ||
124 | X509 *signer = NULL, *rsigner = NULL; | ||
125 | EVP_PKEY *key = NULL, *rkey = NULL; | ||
126 | BIO *acbio = NULL, *cbio = NULL; | ||
127 | BIO *derbio = NULL; | ||
128 | BIO *out = NULL; | ||
129 | int req_timeout = -1; | ||
130 | int req_text = 0, resp_text = 0; | ||
131 | long nsec = MAX_VALIDITY_PERIOD, maxage = -1; | ||
132 | char *CAfile = NULL, *CApath = NULL; | ||
133 | X509_STORE *store = NULL; | ||
134 | STACK_OF(X509) * sign_other = NULL, *verify_other = NULL, *rother = NULL; | ||
135 | char *sign_certfile = NULL, *verify_certfile = NULL, *rcertfile = NULL; | ||
136 | unsigned long sign_flags = 0, verify_flags = 0, rflags = 0; | ||
137 | int ret = 1; | ||
138 | int accept_count = -1; | ||
139 | int badarg = 0; | ||
140 | int i; | ||
141 | int ignore_err = 0; | ||
142 | STACK_OF(OPENSSL_STRING) * reqnames = NULL; | ||
143 | STACK_OF(OCSP_CERTID) * ids = NULL; | ||
144 | X509 *rca_cert = NULL; | ||
145 | char *ridx_filename = NULL; | ||
146 | char *rca_filename = NULL; | ||
147 | CA_DB *rdb = NULL; | ||
148 | int nmin = 0, ndays = -1; | ||
149 | const EVP_MD *cert_id_md = NULL; | ||
150 | const char *errstr = NULL; | ||
151 | |||
152 | args = argv + 1; | ||
153 | reqnames = sk_OPENSSL_STRING_new_null(); | ||
154 | ids = sk_OCSP_CERTID_new_null(); | ||
155 | while (!badarg && *args && *args[0] == '-') { | ||
156 | if (!strcmp(*args, "-out")) { | ||
157 | if (args[1]) { | ||
158 | args++; | ||
159 | outfile = *args; | ||
160 | } else | ||
161 | badarg = 1; | ||
162 | } else if (!strcmp(*args, "-timeout")) { | ||
163 | if (args[1]) { | ||
164 | args++; | ||
165 | req_timeout = strtonum(*args, 0, | ||
166 | INT_MAX, &errstr); | ||
167 | if (errstr) { | ||
168 | BIO_printf(bio_err, | ||
169 | "Illegal timeout value %s: %s\n", | ||
170 | *args, errstr); | ||
171 | badarg = 1; | ||
172 | } | ||
173 | } else | ||
174 | badarg = 1; | ||
175 | } else if (!strcmp(*args, "-url")) { | ||
176 | if (args[1]) { | ||
177 | args++; | ||
178 | if (!OCSP_parse_url(*args, &host, &port, &path, &use_ssl)) { | ||
179 | BIO_printf(bio_err, "Error parsing URL\n"); | ||
180 | badarg = 1; | ||
181 | } | ||
182 | } else | ||
183 | badarg = 1; | ||
184 | } else if (!strcmp(*args, "-host")) { | ||
185 | if (args[1]) { | ||
186 | args++; | ||
187 | host = *args; | ||
188 | } else | ||
189 | badarg = 1; | ||
190 | } else if (!strcmp(*args, "-port")) { | ||
191 | if (args[1]) { | ||
192 | args++; | ||
193 | port = *args; | ||
194 | } else | ||
195 | badarg = 1; | ||
196 | } else if (!strcmp(*args, "-header")) { | ||
197 | if (args[1] && args[2]) { | ||
198 | if (!X509V3_add_value(args[1], args[2], &headers)) | ||
199 | goto end; | ||
200 | args += 2; | ||
201 | } else | ||
202 | badarg = 1; | ||
203 | } else if (!strcmp(*args, "-ignore_err")) | ||
204 | ignore_err = 1; | ||
205 | else if (!strcmp(*args, "-noverify")) | ||
206 | noverify = 1; | ||
207 | else if (!strcmp(*args, "-nonce")) | ||
208 | add_nonce = 2; | ||
209 | else if (!strcmp(*args, "-no_nonce")) | ||
210 | add_nonce = 0; | ||
211 | else if (!strcmp(*args, "-resp_no_certs")) | ||
212 | rflags |= OCSP_NOCERTS; | ||
213 | else if (!strcmp(*args, "-resp_key_id")) | ||
214 | rflags |= OCSP_RESPID_KEY; | ||
215 | else if (!strcmp(*args, "-no_certs")) | ||
216 | sign_flags |= OCSP_NOCERTS; | ||
217 | else if (!strcmp(*args, "-no_signature_verify")) | ||
218 | verify_flags |= OCSP_NOSIGS; | ||
219 | else if (!strcmp(*args, "-no_cert_verify")) | ||
220 | verify_flags |= OCSP_NOVERIFY; | ||
221 | else if (!strcmp(*args, "-no_chain")) | ||
222 | verify_flags |= OCSP_NOCHAIN; | ||
223 | else if (!strcmp(*args, "-no_cert_checks")) | ||
224 | verify_flags |= OCSP_NOCHECKS; | ||
225 | else if (!strcmp(*args, "-no_explicit")) | ||
226 | verify_flags |= OCSP_NOEXPLICIT; | ||
227 | else if (!strcmp(*args, "-trust_other")) | ||
228 | verify_flags |= OCSP_TRUSTOTHER; | ||
229 | else if (!strcmp(*args, "-no_intern")) | ||
230 | verify_flags |= OCSP_NOINTERN; | ||
231 | else if (!strcmp(*args, "-text")) { | ||
232 | req_text = 1; | ||
233 | resp_text = 1; | ||
234 | } else if (!strcmp(*args, "-req_text")) | ||
235 | req_text = 1; | ||
236 | else if (!strcmp(*args, "-resp_text")) | ||
237 | resp_text = 1; | ||
238 | else if (!strcmp(*args, "-reqin")) { | ||
239 | if (args[1]) { | ||
240 | args++; | ||
241 | reqin = *args; | ||
242 | } else | ||
243 | badarg = 1; | ||
244 | } else if (!strcmp(*args, "-respin")) { | ||
245 | if (args[1]) { | ||
246 | args++; | ||
247 | respin = *args; | ||
248 | } else | ||
249 | badarg = 1; | ||
250 | } else if (!strcmp(*args, "-signer")) { | ||
251 | if (args[1]) { | ||
252 | args++; | ||
253 | signfile = *args; | ||
254 | } else | ||
255 | badarg = 1; | ||
256 | } else if (!strcmp(*args, "-VAfile")) { | ||
257 | if (args[1]) { | ||
258 | args++; | ||
259 | verify_certfile = *args; | ||
260 | verify_flags |= OCSP_TRUSTOTHER; | ||
261 | } else | ||
262 | badarg = 1; | ||
263 | } else if (!strcmp(*args, "-sign_other")) { | ||
264 | if (args[1]) { | ||
265 | args++; | ||
266 | sign_certfile = *args; | ||
267 | } else | ||
268 | badarg = 1; | ||
269 | } else if (!strcmp(*args, "-verify_other")) { | ||
270 | if (args[1]) { | ||
271 | args++; | ||
272 | verify_certfile = *args; | ||
273 | } else | ||
274 | badarg = 1; | ||
275 | } else if (!strcmp(*args, "-CAfile")) { | ||
276 | if (args[1]) { | ||
277 | args++; | ||
278 | CAfile = *args; | ||
279 | } else | ||
280 | badarg = 1; | ||
281 | } else if (!strcmp(*args, "-CApath")) { | ||
282 | if (args[1]) { | ||
283 | args++; | ||
284 | CApath = *args; | ||
285 | } else | ||
286 | badarg = 1; | ||
287 | } else if (!strcmp(*args, "-validity_period")) { | ||
288 | if (args[1]) { | ||
289 | args++; | ||
290 | nsec = strtonum(*args, 0, LONG_MAX, &errstr); | ||
291 | if (errstr) { | ||
292 | BIO_printf(bio_err, | ||
293 | "Illegal validity period %s: %s\n", | ||
294 | *args, errstr); | ||
295 | badarg = 1; | ||
296 | } | ||
297 | } else | ||
298 | badarg = 1; | ||
299 | } else if (!strcmp(*args, "-status_age")) { | ||
300 | if (args[1]) { | ||
301 | args++; | ||
302 | maxage = strtonum(*args, 0, LONG_MAX, &errstr); | ||
303 | if (errstr) { | ||
304 | BIO_printf(bio_err, | ||
305 | "Illegal validity age %s: %s\n", | ||
306 | *args, errstr); | ||
307 | badarg = 1; | ||
308 | } | ||
309 | } else | ||
310 | badarg = 1; | ||
311 | } else if (!strcmp(*args, "-signkey")) { | ||
312 | if (args[1]) { | ||
313 | args++; | ||
314 | keyfile = *args; | ||
315 | } else | ||
316 | badarg = 1; | ||
317 | } else if (!strcmp(*args, "-reqout")) { | ||
318 | if (args[1]) { | ||
319 | args++; | ||
320 | reqout = *args; | ||
321 | } else | ||
322 | badarg = 1; | ||
323 | } else if (!strcmp(*args, "-respout")) { | ||
324 | if (args[1]) { | ||
325 | args++; | ||
326 | respout = *args; | ||
327 | } else | ||
328 | badarg = 1; | ||
329 | } else if (!strcmp(*args, "-path")) { | ||
330 | if (args[1]) { | ||
331 | args++; | ||
332 | path = *args; | ||
333 | } else | ||
334 | badarg = 1; | ||
335 | } else if (!strcmp(*args, "-issuer")) { | ||
336 | if (args[1]) { | ||
337 | args++; | ||
338 | X509_free(issuer); | ||
339 | issuer = load_cert(bio_err, *args, FORMAT_PEM, | ||
340 | NULL, e, "issuer certificate"); | ||
341 | if (!issuer) | ||
342 | goto end; | ||
343 | } else | ||
344 | badarg = 1; | ||
345 | } else if (!strcmp(*args, "-cert")) { | ||
346 | if (args[1]) { | ||
347 | args++; | ||
348 | X509_free(cert); | ||
349 | cert = load_cert(bio_err, *args, FORMAT_PEM, | ||
350 | NULL, e, "certificate"); | ||
351 | if (!cert) | ||
352 | goto end; | ||
353 | if (!cert_id_md) | ||
354 | cert_id_md = EVP_sha1(); | ||
355 | if (!add_ocsp_cert(&req, cert, cert_id_md, issuer, ids)) | ||
356 | goto end; | ||
357 | if (!sk_OPENSSL_STRING_push(reqnames, *args)) | ||
358 | goto end; | ||
359 | } else | ||
360 | badarg = 1; | ||
361 | } else if (!strcmp(*args, "-serial")) { | ||
362 | if (args[1]) { | ||
363 | args++; | ||
364 | if (!cert_id_md) | ||
365 | cert_id_md = EVP_sha1(); | ||
366 | if (!add_ocsp_serial(&req, *args, cert_id_md, issuer, ids)) | ||
367 | goto end; | ||
368 | if (!sk_OPENSSL_STRING_push(reqnames, *args)) | ||
369 | goto end; | ||
370 | } else | ||
371 | badarg = 1; | ||
372 | } else if (!strcmp(*args, "-index")) { | ||
373 | if (args[1]) { | ||
374 | args++; | ||
375 | ridx_filename = *args; | ||
376 | } else | ||
377 | badarg = 1; | ||
378 | } else if (!strcmp(*args, "-CA")) { | ||
379 | if (args[1]) { | ||
380 | args++; | ||
381 | rca_filename = *args; | ||
382 | } else | ||
383 | badarg = 1; | ||
384 | } else if (!strcmp(*args, "-nmin")) { | ||
385 | if (args[1]) { | ||
386 | args++; | ||
387 | nmin = strtonum(*args, 0, INT_MAX, &errstr); | ||
388 | if (errstr) { | ||
389 | BIO_printf(bio_err, | ||
390 | "Illegal update period %s: %s\n", | ||
391 | *args, errstr); | ||
392 | badarg = 1; | ||
393 | } | ||
394 | } | ||
395 | if (ndays == -1) | ||
396 | ndays = 0; | ||
397 | else | ||
398 | badarg = 1; | ||
399 | } else if (!strcmp(*args, "-nrequest")) { | ||
400 | if (args[1]) { | ||
401 | args++; | ||
402 | accept_count = strtonum(*args, 0, INT_MAX, &errstr); | ||
403 | if (errstr) { | ||
404 | BIO_printf(bio_err, | ||
405 | "Illegal accept count %s: %s\n", | ||
406 | *args, errstr); | ||
407 | badarg = 1; | ||
408 | } | ||
409 | } else | ||
410 | badarg = 1; | ||
411 | } else if (!strcmp(*args, "-ndays")) { | ||
412 | if (args[1]) { | ||
413 | args++; | ||
414 | ndays = strtonum(*args, 0, INT_MAX, &errstr); | ||
415 | if (errstr) { | ||
416 | BIO_printf(bio_err, | ||
417 | "Illegal update period %s: %s\n", | ||
418 | *args, errstr); | ||
419 | badarg = 1; | ||
420 | } | ||
421 | } else | ||
422 | badarg = 1; | ||
423 | } else if (!strcmp(*args, "-rsigner")) { | ||
424 | if (args[1]) { | ||
425 | args++; | ||
426 | rsignfile = *args; | ||
427 | } else | ||
428 | badarg = 1; | ||
429 | } else if (!strcmp(*args, "-rkey")) { | ||
430 | if (args[1]) { | ||
431 | args++; | ||
432 | rkeyfile = *args; | ||
433 | } else | ||
434 | badarg = 1; | ||
435 | } else if (!strcmp(*args, "-rother")) { | ||
436 | if (args[1]) { | ||
437 | args++; | ||
438 | rcertfile = *args; | ||
439 | } else | ||
440 | badarg = 1; | ||
441 | } else if ((cert_id_md = EVP_get_digestbyname((*args) + 1)) == NULL) { | ||
442 | badarg = 1; | ||
443 | } | ||
444 | args++; | ||
445 | } | ||
446 | |||
447 | /* Have we anything to do? */ | ||
448 | if (!req && !reqin && !respin && !(port && ridx_filename)) | ||
449 | badarg = 1; | ||
450 | |||
451 | if (badarg) { | ||
452 | BIO_printf(bio_err, "OCSP utility\n"); | ||
453 | BIO_printf(bio_err, "Usage ocsp [options]\n"); | ||
454 | BIO_printf(bio_err, "where options are\n"); | ||
455 | BIO_printf(bio_err, "-out file output filename\n"); | ||
456 | BIO_printf(bio_err, "-issuer file issuer certificate\n"); | ||
457 | BIO_printf(bio_err, "-cert file certificate to check\n"); | ||
458 | BIO_printf(bio_err, "-serial n serial number to check\n"); | ||
459 | BIO_printf(bio_err, "-signer file certificate to sign OCSP request with\n"); | ||
460 | BIO_printf(bio_err, "-signkey file private key to sign OCSP request with\n"); | ||
461 | BIO_printf(bio_err, "-sign_other file additional certificates to include in signed request\n"); | ||
462 | BIO_printf(bio_err, "-no_certs don't include any certificates in signed request\n"); | ||
463 | BIO_printf(bio_err, "-req_text print text form of request\n"); | ||
464 | BIO_printf(bio_err, "-resp_text print text form of response\n"); | ||
465 | BIO_printf(bio_err, "-text print text form of request and response\n"); | ||
466 | BIO_printf(bio_err, "-reqout file write DER encoded OCSP request to \"file\"\n"); | ||
467 | BIO_printf(bio_err, "-respout file write DER encoded OCSP reponse to \"file\"\n"); | ||
468 | BIO_printf(bio_err, "-reqin file read DER encoded OCSP request from \"file\"\n"); | ||
469 | BIO_printf(bio_err, "-respin file read DER encoded OCSP reponse from \"file\"\n"); | ||
470 | BIO_printf(bio_err, "-nonce add OCSP nonce to request\n"); | ||
471 | BIO_printf(bio_err, "-no_nonce don't add OCSP nonce to request\n"); | ||
472 | BIO_printf(bio_err, "-url URL OCSP responder URL\n"); | ||
473 | BIO_printf(bio_err, "-host host:n send OCSP request to host on port n\n"); | ||
474 | BIO_printf(bio_err, "-path path to use in OCSP request\n"); | ||
475 | BIO_printf(bio_err, "-CApath dir trusted certificates directory\n"); | ||
476 | BIO_printf(bio_err, "-CAfile file trusted certificates file\n"); | ||
477 | BIO_printf(bio_err, "-VAfile file validator certificates file\n"); | ||
478 | BIO_printf(bio_err, "-validity_period n maximum validity discrepancy in seconds\n"); | ||
479 | BIO_printf(bio_err, "-status_age n maximum status age in seconds\n"); | ||
480 | BIO_printf(bio_err, "-noverify don't verify response at all\n"); | ||
481 | BIO_printf(bio_err, "-verify_other file additional certificates to search for signer\n"); | ||
482 | BIO_printf(bio_err, "-trust_other don't verify additional certificates\n"); | ||
483 | BIO_printf(bio_err, "-no_intern don't search certificates contained in response for signer\n"); | ||
484 | BIO_printf(bio_err, "-no_signature_verify don't check signature on response\n"); | ||
485 | BIO_printf(bio_err, "-no_cert_verify don't check signing certificate\n"); | ||
486 | BIO_printf(bio_err, "-no_chain don't chain verify response\n"); | ||
487 | BIO_printf(bio_err, "-no_cert_checks don't do additional checks on signing certificate\n"); | ||
488 | BIO_printf(bio_err, "-port num port to run responder on\n"); | ||
489 | BIO_printf(bio_err, "-index file certificate status index file\n"); | ||
490 | BIO_printf(bio_err, "-CA file CA certificate\n"); | ||
491 | BIO_printf(bio_err, "-rsigner file responder certificate to sign responses with\n"); | ||
492 | BIO_printf(bio_err, "-rkey file responder key to sign responses with\n"); | ||
493 | BIO_printf(bio_err, "-rother file other certificates to include in response\n"); | ||
494 | BIO_printf(bio_err, "-resp_no_certs don't include any certificates in response\n"); | ||
495 | BIO_printf(bio_err, "-nmin n number of minutes before next update\n"); | ||
496 | BIO_printf(bio_err, "-ndays n number of days before next update\n"); | ||
497 | BIO_printf(bio_err, "-resp_key_id identify reponse by signing certificate key ID\n"); | ||
498 | BIO_printf(bio_err, "-nrequest n number of requests to accept (default unlimited)\n"); | ||
499 | BIO_printf(bio_err, "-<dgst alg> use specified digest in the request\n"); | ||
500 | goto end; | ||
501 | } | ||
502 | if (outfile) | ||
503 | out = BIO_new_file(outfile, "w"); | ||
504 | else | ||
505 | out = BIO_new_fp(stdout, BIO_NOCLOSE); | ||
506 | |||
507 | if (!out) { | ||
508 | BIO_printf(bio_err, "Error opening output file\n"); | ||
509 | goto end; | ||
510 | } | ||
511 | if (!req && (add_nonce != 2)) | ||
512 | add_nonce = 0; | ||
513 | |||
514 | if (!req && reqin) { | ||
515 | derbio = BIO_new_file(reqin, "rb"); | ||
516 | if (!derbio) { | ||
517 | BIO_printf(bio_err, "Error Opening OCSP request file\n"); | ||
518 | goto end; | ||
519 | } | ||
520 | req = d2i_OCSP_REQUEST_bio(derbio, NULL); | ||
521 | BIO_free(derbio); | ||
522 | if (!req) { | ||
523 | BIO_printf(bio_err, "Error reading OCSP request\n"); | ||
524 | goto end; | ||
525 | } | ||
526 | } | ||
527 | if (!req && port) { | ||
528 | acbio = init_responder(port); | ||
529 | if (!acbio) | ||
530 | goto end; | ||
531 | } | ||
532 | if (rsignfile && !rdb) { | ||
533 | if (!rkeyfile) | ||
534 | rkeyfile = rsignfile; | ||
535 | rsigner = load_cert(bio_err, rsignfile, FORMAT_PEM, | ||
536 | NULL, e, "responder certificate"); | ||
537 | if (!rsigner) { | ||
538 | BIO_printf(bio_err, "Error loading responder certificate\n"); | ||
539 | goto end; | ||
540 | } | ||
541 | rca_cert = load_cert(bio_err, rca_filename, FORMAT_PEM, | ||
542 | NULL, e, "CA certificate"); | ||
543 | if (rcertfile) { | ||
544 | rother = load_certs(bio_err, rcertfile, FORMAT_PEM, | ||
545 | NULL, e, "responder other certificates"); | ||
546 | if (!rother) | ||
547 | goto end; | ||
548 | } | ||
549 | rkey = load_key(bio_err, rkeyfile, FORMAT_PEM, 0, NULL, NULL, | ||
550 | "responder private key"); | ||
551 | if (!rkey) | ||
552 | goto end; | ||
553 | } | ||
554 | if (acbio) | ||
555 | BIO_printf(bio_err, "Waiting for OCSP client connections...\n"); | ||
556 | |||
557 | redo_accept: | ||
558 | |||
559 | if (acbio) { | ||
560 | if (!do_responder(&req, &cbio, acbio, port)) | ||
561 | goto end; | ||
562 | if (!req) { | ||
563 | resp = OCSP_response_create(OCSP_RESPONSE_STATUS_MALFORMEDREQUEST, NULL); | ||
564 | send_ocsp_response(cbio, resp); | ||
565 | goto done_resp; | ||
566 | } | ||
567 | } | ||
568 | if (!req && (signfile || reqout || host || add_nonce || ridx_filename)) { | ||
569 | BIO_printf(bio_err, "Need an OCSP request for this operation!\n"); | ||
570 | goto end; | ||
571 | } | ||
572 | if (req && add_nonce) | ||
573 | OCSP_request_add1_nonce(req, NULL, -1); | ||
574 | |||
575 | if (signfile) { | ||
576 | if (!keyfile) | ||
577 | keyfile = signfile; | ||
578 | signer = load_cert(bio_err, signfile, FORMAT_PEM, | ||
579 | NULL, e, "signer certificate"); | ||
580 | if (!signer) { | ||
581 | BIO_printf(bio_err, "Error loading signer certificate\n"); | ||
582 | goto end; | ||
583 | } | ||
584 | if (sign_certfile) { | ||
585 | sign_other = load_certs(bio_err, sign_certfile, FORMAT_PEM, | ||
586 | NULL, e, "signer certificates"); | ||
587 | if (!sign_other) | ||
588 | goto end; | ||
589 | } | ||
590 | key = load_key(bio_err, keyfile, FORMAT_PEM, 0, NULL, NULL, | ||
591 | "signer private key"); | ||
592 | if (!key) | ||
593 | goto end; | ||
594 | |||
595 | if (!OCSP_request_sign(req, signer, key, NULL, sign_other, sign_flags)) { | ||
596 | BIO_printf(bio_err, "Error signing OCSP request\n"); | ||
597 | goto end; | ||
598 | } | ||
599 | } | ||
600 | if (req_text && req) | ||
601 | OCSP_REQUEST_print(out, req, 0); | ||
602 | |||
603 | if (reqout) { | ||
604 | derbio = BIO_new_file(reqout, "wb"); | ||
605 | if (!derbio) { | ||
606 | BIO_printf(bio_err, "Error opening file %s\n", reqout); | ||
607 | goto end; | ||
608 | } | ||
609 | i2d_OCSP_REQUEST_bio(derbio, req); | ||
610 | BIO_free(derbio); | ||
611 | } | ||
612 | if (ridx_filename && (!rkey || !rsigner || !rca_cert)) { | ||
613 | BIO_printf(bio_err, "Need a responder certificate, key and CA for this operation!\n"); | ||
614 | goto end; | ||
615 | } | ||
616 | if (ridx_filename && !rdb) { | ||
617 | rdb = load_index(ridx_filename, NULL); | ||
618 | if (!rdb) | ||
619 | goto end; | ||
620 | if (!index_index(rdb)) | ||
621 | goto end; | ||
622 | } | ||
623 | if (rdb) { | ||
624 | i = make_ocsp_response(&resp, req, rdb, rca_cert, rsigner, rkey, rother, rflags, nmin, ndays); | ||
625 | if (cbio) | ||
626 | send_ocsp_response(cbio, resp); | ||
627 | } else if (host) { | ||
628 | resp = process_responder(bio_err, req, host, path, | ||
629 | port, use_ssl, headers, req_timeout); | ||
630 | if (!resp) | ||
631 | goto end; | ||
632 | } else if (respin) { | ||
633 | derbio = BIO_new_file(respin, "rb"); | ||
634 | if (!derbio) { | ||
635 | BIO_printf(bio_err, "Error Opening OCSP response file\n"); | ||
636 | goto end; | ||
637 | } | ||
638 | resp = d2i_OCSP_RESPONSE_bio(derbio, NULL); | ||
639 | BIO_free(derbio); | ||
640 | if (!resp) { | ||
641 | BIO_printf(bio_err, "Error reading OCSP response\n"); | ||
642 | goto end; | ||
643 | } | ||
644 | } else { | ||
645 | ret = 0; | ||
646 | goto end; | ||
647 | } | ||
648 | |||
649 | done_resp: | ||
650 | |||
651 | if (respout) { | ||
652 | derbio = BIO_new_file(respout, "wb"); | ||
653 | if (!derbio) { | ||
654 | BIO_printf(bio_err, "Error opening file %s\n", respout); | ||
655 | goto end; | ||
656 | } | ||
657 | i2d_OCSP_RESPONSE_bio(derbio, resp); | ||
658 | BIO_free(derbio); | ||
659 | } | ||
660 | i = OCSP_response_status(resp); | ||
661 | |||
662 | if (i != OCSP_RESPONSE_STATUS_SUCCESSFUL) { | ||
663 | BIO_printf(out, "Responder Error: %s (%d)\n", | ||
664 | OCSP_response_status_str(i), i); | ||
665 | if (ignore_err) | ||
666 | goto redo_accept; | ||
667 | ret = 0; | ||
668 | goto end; | ||
669 | } | ||
670 | if (resp_text) | ||
671 | OCSP_RESPONSE_print(out, resp, 0); | ||
672 | |||
673 | /* If running as responder don't verify our own response */ | ||
674 | if (cbio) { | ||
675 | if (accept_count > 0) | ||
676 | accept_count--; | ||
677 | /* Redo if more connections needed */ | ||
678 | if (accept_count) { | ||
679 | BIO_free_all(cbio); | ||
680 | cbio = NULL; | ||
681 | OCSP_REQUEST_free(req); | ||
682 | req = NULL; | ||
683 | OCSP_RESPONSE_free(resp); | ||
684 | resp = NULL; | ||
685 | goto redo_accept; | ||
686 | } | ||
687 | goto end; | ||
688 | } | ||
689 | if (!store) | ||
690 | store = setup_verify(bio_err, CAfile, CApath); | ||
691 | if (!store) | ||
692 | goto end; | ||
693 | if (verify_certfile) { | ||
694 | verify_other = load_certs(bio_err, verify_certfile, FORMAT_PEM, | ||
695 | NULL, e, "validator certificate"); | ||
696 | if (!verify_other) | ||
697 | goto end; | ||
698 | } | ||
699 | bs = OCSP_response_get1_basic(resp); | ||
700 | |||
701 | if (!bs) { | ||
702 | BIO_printf(bio_err, "Error parsing response\n"); | ||
703 | goto end; | ||
704 | } | ||
705 | if (!noverify) { | ||
706 | if (req && ((i = OCSP_check_nonce(req, bs)) <= 0)) { | ||
707 | if (i == -1) | ||
708 | BIO_printf(bio_err, "WARNING: no nonce in response\n"); | ||
709 | else { | ||
710 | BIO_printf(bio_err, "Nonce Verify error\n"); | ||
711 | goto end; | ||
712 | } | ||
713 | } | ||
714 | i = OCSP_basic_verify(bs, verify_other, store, verify_flags); | ||
715 | if (i < 0) | ||
716 | i = OCSP_basic_verify(bs, NULL, store, 0); | ||
717 | |||
718 | if (i <= 0) { | ||
719 | BIO_printf(bio_err, "Response Verify Failure\n"); | ||
720 | ERR_print_errors(bio_err); | ||
721 | } else | ||
722 | BIO_printf(bio_err, "Response verify OK\n"); | ||
723 | |||
724 | } | ||
725 | if (!print_ocsp_summary(out, bs, req, reqnames, ids, nsec, maxage)) | ||
726 | goto end; | ||
727 | |||
728 | ret = 0; | ||
729 | |||
730 | end: | ||
731 | ERR_print_errors(bio_err); | ||
732 | X509_free(signer); | ||
733 | X509_STORE_free(store); | ||
734 | EVP_PKEY_free(key); | ||
735 | EVP_PKEY_free(rkey); | ||
736 | X509_free(issuer); | ||
737 | X509_free(cert); | ||
738 | X509_free(rsigner); | ||
739 | X509_free(rca_cert); | ||
740 | free_index(rdb); | ||
741 | BIO_free_all(cbio); | ||
742 | BIO_free_all(acbio); | ||
743 | BIO_free(out); | ||
744 | OCSP_REQUEST_free(req); | ||
745 | OCSP_RESPONSE_free(resp); | ||
746 | OCSP_BASICRESP_free(bs); | ||
747 | sk_OPENSSL_STRING_free(reqnames); | ||
748 | sk_OCSP_CERTID_free(ids); | ||
749 | sk_X509_pop_free(sign_other, X509_free); | ||
750 | sk_X509_pop_free(verify_other, X509_free); | ||
751 | sk_CONF_VALUE_pop_free(headers, X509V3_conf_free); | ||
752 | |||
753 | if (use_ssl != -1) { | ||
754 | free(host); | ||
755 | free(port); | ||
756 | free(path); | ||
757 | } | ||
758 | return (ret); | ||
759 | } | ||
760 | |||
761 | static int | ||
762 | add_ocsp_cert(OCSP_REQUEST ** req, X509 * cert, const EVP_MD * cert_id_md, X509 * issuer, | ||
763 | STACK_OF(OCSP_CERTID) * ids) | ||
764 | { | ||
765 | OCSP_CERTID *id; | ||
766 | if (!issuer) { | ||
767 | BIO_printf(bio_err, "No issuer certificate specified\n"); | ||
768 | return 0; | ||
769 | } | ||
770 | if (!*req) | ||
771 | *req = OCSP_REQUEST_new(); | ||
772 | if (!*req) | ||
773 | goto err; | ||
774 | id = OCSP_cert_to_id(cert_id_md, cert, issuer); | ||
775 | if (!id || !sk_OCSP_CERTID_push(ids, id)) | ||
776 | goto err; | ||
777 | if (!OCSP_request_add0_id(*req, id)) | ||
778 | goto err; | ||
779 | return 1; | ||
780 | |||
781 | err: | ||
782 | BIO_printf(bio_err, "Error Creating OCSP request\n"); | ||
783 | return 0; | ||
784 | } | ||
785 | |||
786 | static int | ||
787 | add_ocsp_serial(OCSP_REQUEST ** req, char *serial, const EVP_MD * cert_id_md, X509 * issuer, | ||
788 | STACK_OF(OCSP_CERTID) * ids) | ||
789 | { | ||
790 | OCSP_CERTID *id; | ||
791 | X509_NAME *iname; | ||
792 | ASN1_BIT_STRING *ikey; | ||
793 | ASN1_INTEGER *sno; | ||
794 | if (!issuer) { | ||
795 | BIO_printf(bio_err, "No issuer certificate specified\n"); | ||
796 | return 0; | ||
797 | } | ||
798 | if (!*req) | ||
799 | *req = OCSP_REQUEST_new(); | ||
800 | if (!*req) | ||
801 | goto err; | ||
802 | iname = X509_get_subject_name(issuer); | ||
803 | ikey = X509_get0_pubkey_bitstr(issuer); | ||
804 | sno = s2i_ASN1_INTEGER(NULL, serial); | ||
805 | if (!sno) { | ||
806 | BIO_printf(bio_err, "Error converting serial number %s\n", serial); | ||
807 | return 0; | ||
808 | } | ||
809 | id = OCSP_cert_id_new(cert_id_md, iname, ikey, sno); | ||
810 | ASN1_INTEGER_free(sno); | ||
811 | if (!id || !sk_OCSP_CERTID_push(ids, id)) | ||
812 | goto err; | ||
813 | if (!OCSP_request_add0_id(*req, id)) | ||
814 | goto err; | ||
815 | return 1; | ||
816 | |||
817 | err: | ||
818 | BIO_printf(bio_err, "Error Creating OCSP request\n"); | ||
819 | return 0; | ||
820 | } | ||
821 | |||
822 | static int | ||
823 | print_ocsp_summary(BIO * out, OCSP_BASICRESP * bs, OCSP_REQUEST * req, | ||
824 | STACK_OF(OPENSSL_STRING) * names, | ||
825 | STACK_OF(OCSP_CERTID) * ids, long nsec, | ||
826 | long maxage) | ||
827 | { | ||
828 | OCSP_CERTID *id; | ||
829 | char *name; | ||
830 | int i; | ||
831 | |||
832 | int status, reason; | ||
833 | |||
834 | ASN1_GENERALIZEDTIME *rev, *thisupd, *nextupd; | ||
835 | |||
836 | if (!bs || !req || !sk_OPENSSL_STRING_num(names) || !sk_OCSP_CERTID_num(ids)) | ||
837 | return 1; | ||
838 | |||
839 | for (i = 0; i < sk_OCSP_CERTID_num(ids); i++) { | ||
840 | id = sk_OCSP_CERTID_value(ids, i); | ||
841 | name = sk_OPENSSL_STRING_value(names, i); | ||
842 | BIO_printf(out, "%s: ", name); | ||
843 | |||
844 | if (!OCSP_resp_find_status(bs, id, &status, &reason, | ||
845 | &rev, &thisupd, &nextupd)) { | ||
846 | BIO_puts(out, "ERROR: No Status found.\n"); | ||
847 | continue; | ||
848 | } | ||
849 | /* | ||
850 | * Check validity: if invalid write to output BIO so we know | ||
851 | * which response this refers to. | ||
852 | */ | ||
853 | if (!OCSP_check_validity(thisupd, nextupd, nsec, maxage)) { | ||
854 | BIO_puts(out, "WARNING: Status times invalid.\n"); | ||
855 | ERR_print_errors(out); | ||
856 | } | ||
857 | BIO_printf(out, "%s\n", OCSP_cert_status_str(status)); | ||
858 | |||
859 | BIO_puts(out, "\tThis Update: "); | ||
860 | ASN1_GENERALIZEDTIME_print(out, thisupd); | ||
861 | BIO_puts(out, "\n"); | ||
862 | |||
863 | if (nextupd) { | ||
864 | BIO_puts(out, "\tNext Update: "); | ||
865 | ASN1_GENERALIZEDTIME_print(out, nextupd); | ||
866 | BIO_puts(out, "\n"); | ||
867 | } | ||
868 | if (status != V_OCSP_CERTSTATUS_REVOKED) | ||
869 | continue; | ||
870 | |||
871 | if (reason != -1) | ||
872 | BIO_printf(out, "\tReason: %s\n", | ||
873 | OCSP_crl_reason_str(reason)); | ||
874 | |||
875 | BIO_puts(out, "\tRevocation Time: "); | ||
876 | ASN1_GENERALIZEDTIME_print(out, rev); | ||
877 | BIO_puts(out, "\n"); | ||
878 | } | ||
879 | |||
880 | return 1; | ||
881 | } | ||
882 | |||
883 | |||
884 | static int | ||
885 | make_ocsp_response(OCSP_RESPONSE ** resp, OCSP_REQUEST * req, CA_DB * db, | ||
886 | X509 * ca, X509 * rcert, EVP_PKEY * rkey, | ||
887 | STACK_OF(X509) * rother, unsigned long flags, | ||
888 | int nmin, int ndays) | ||
889 | { | ||
890 | ASN1_TIME *thisupd = NULL, *nextupd = NULL; | ||
891 | OCSP_CERTID *cid, *ca_id = NULL; | ||
892 | OCSP_BASICRESP *bs = NULL; | ||
893 | int i, id_count, ret = 1; | ||
894 | |||
895 | id_count = OCSP_request_onereq_count(req); | ||
896 | |||
897 | if (id_count <= 0) { | ||
898 | *resp = OCSP_response_create(OCSP_RESPONSE_STATUS_MALFORMEDREQUEST, NULL); | ||
899 | goto end; | ||
900 | } | ||
901 | bs = OCSP_BASICRESP_new(); | ||
902 | thisupd = X509_gmtime_adj(NULL, 0); | ||
903 | if (ndays != -1) | ||
904 | nextupd = X509_gmtime_adj(NULL, nmin * 60 + ndays * 3600 * 24); | ||
905 | |||
906 | /* Examine each certificate id in the request */ | ||
907 | for (i = 0; i < id_count; i++) { | ||
908 | OCSP_ONEREQ *one; | ||
909 | ASN1_INTEGER *serial; | ||
910 | char **inf; | ||
911 | ASN1_OBJECT *cert_id_md_oid; | ||
912 | const EVP_MD *cert_id_md; | ||
913 | one = OCSP_request_onereq_get0(req, i); | ||
914 | cid = OCSP_onereq_get0_id(one); | ||
915 | |||
916 | OCSP_id_get0_info(NULL, &cert_id_md_oid, NULL, NULL, cid); | ||
917 | |||
918 | cert_id_md = EVP_get_digestbyobj(cert_id_md_oid); | ||
919 | if (!cert_id_md) { | ||
920 | *resp = OCSP_response_create(OCSP_RESPONSE_STATUS_INTERNALERROR, | ||
921 | NULL); | ||
922 | goto end; | ||
923 | } | ||
924 | if (ca_id) | ||
925 | OCSP_CERTID_free(ca_id); | ||
926 | ca_id = OCSP_cert_to_id(cert_id_md, NULL, ca); | ||
927 | |||
928 | /* Is this request about our CA? */ | ||
929 | if (OCSP_id_issuer_cmp(ca_id, cid)) { | ||
930 | OCSP_basic_add1_status(bs, cid, | ||
931 | V_OCSP_CERTSTATUS_UNKNOWN, | ||
932 | 0, NULL, | ||
933 | thisupd, nextupd); | ||
934 | continue; | ||
935 | } | ||
936 | OCSP_id_get0_info(NULL, NULL, NULL, &serial, cid); | ||
937 | inf = lookup_serial(db, serial); | ||
938 | if (!inf) | ||
939 | OCSP_basic_add1_status(bs, cid, | ||
940 | V_OCSP_CERTSTATUS_UNKNOWN, | ||
941 | 0, NULL, | ||
942 | thisupd, nextupd); | ||
943 | else if (inf[DB_type][0] == DB_TYPE_VAL) | ||
944 | OCSP_basic_add1_status(bs, cid, | ||
945 | V_OCSP_CERTSTATUS_GOOD, | ||
946 | 0, NULL, | ||
947 | thisupd, nextupd); | ||
948 | else if (inf[DB_type][0] == DB_TYPE_REV) { | ||
949 | ASN1_OBJECT *inst = NULL; | ||
950 | ASN1_TIME *revtm = NULL; | ||
951 | ASN1_GENERALIZEDTIME *invtm = NULL; | ||
952 | OCSP_SINGLERESP *single; | ||
953 | int reason = -1; | ||
954 | unpack_revinfo(&revtm, &reason, &inst, &invtm, inf[DB_rev_date]); | ||
955 | single = OCSP_basic_add1_status(bs, cid, | ||
956 | V_OCSP_CERTSTATUS_REVOKED, | ||
957 | reason, revtm, | ||
958 | thisupd, nextupd); | ||
959 | if (invtm) | ||
960 | OCSP_SINGLERESP_add1_ext_i2d(single, NID_invalidity_date, invtm, 0, 0); | ||
961 | else if (inst) | ||
962 | OCSP_SINGLERESP_add1_ext_i2d(single, NID_hold_instruction_code, inst, 0, 0); | ||
963 | ASN1_OBJECT_free(inst); | ||
964 | ASN1_TIME_free(revtm); | ||
965 | ASN1_GENERALIZEDTIME_free(invtm); | ||
966 | } | ||
967 | } | ||
968 | |||
969 | OCSP_copy_nonce(bs, req); | ||
970 | |||
971 | OCSP_basic_sign(bs, rcert, rkey, NULL, rother, flags); | ||
972 | |||
973 | *resp = OCSP_response_create(OCSP_RESPONSE_STATUS_SUCCESSFUL, bs); | ||
974 | |||
975 | end: | ||
976 | ASN1_TIME_free(thisupd); | ||
977 | ASN1_TIME_free(nextupd); | ||
978 | OCSP_CERTID_free(ca_id); | ||
979 | OCSP_BASICRESP_free(bs); | ||
980 | return ret; | ||
981 | |||
982 | } | ||
983 | |||
984 | static char ** | ||
985 | lookup_serial(CA_DB * db, ASN1_INTEGER * ser) | ||
986 | { | ||
987 | int i; | ||
988 | BIGNUM *bn = NULL; | ||
989 | char *itmp, *row[DB_NUMBER], **rrow; | ||
990 | for (i = 0; i < DB_NUMBER; i++) | ||
991 | row[i] = NULL; | ||
992 | bn = ASN1_INTEGER_to_BN(ser, NULL); | ||
993 | OPENSSL_assert(bn); /* FIXME: should report an error at this | ||
994 | * point and abort */ | ||
995 | if (BN_is_zero(bn)) | ||
996 | itmp = strdup("00"); | ||
997 | else | ||
998 | itmp = BN_bn2hex(bn); | ||
999 | row[DB_serial] = itmp; | ||
1000 | BN_free(bn); | ||
1001 | rrow = TXT_DB_get_by_index(db->db, DB_serial, row); | ||
1002 | free(itmp); | ||
1003 | return rrow; | ||
1004 | } | ||
1005 | |||
1006 | /* Quick and dirty OCSP server: read in and parse input request */ | ||
1007 | |||
1008 | static BIO * | ||
1009 | init_responder(char *port) | ||
1010 | { | ||
1011 | BIO *acbio = NULL, *bufbio = NULL; | ||
1012 | bufbio = BIO_new(BIO_f_buffer()); | ||
1013 | if (!bufbio) | ||
1014 | goto err; | ||
1015 | acbio = BIO_new_accept(port); | ||
1016 | if (!acbio) | ||
1017 | goto err; | ||
1018 | BIO_set_accept_bios(acbio, bufbio); | ||
1019 | bufbio = NULL; | ||
1020 | |||
1021 | if (BIO_do_accept(acbio) <= 0) { | ||
1022 | BIO_printf(bio_err, "Error setting up accept BIO\n"); | ||
1023 | ERR_print_errors(bio_err); | ||
1024 | goto err; | ||
1025 | } | ||
1026 | return acbio; | ||
1027 | |||
1028 | err: | ||
1029 | BIO_free_all(acbio); | ||
1030 | BIO_free(bufbio); | ||
1031 | return NULL; | ||
1032 | } | ||
1033 | |||
1034 | static int | ||
1035 | do_responder(OCSP_REQUEST ** preq, BIO ** pcbio, BIO * acbio, char *port) | ||
1036 | { | ||
1037 | int have_post = 0, len; | ||
1038 | OCSP_REQUEST *req = NULL; | ||
1039 | char inbuf[1024]; | ||
1040 | BIO *cbio = NULL; | ||
1041 | |||
1042 | if (BIO_do_accept(acbio) <= 0) { | ||
1043 | BIO_printf(bio_err, "Error accepting connection\n"); | ||
1044 | ERR_print_errors(bio_err); | ||
1045 | return 0; | ||
1046 | } | ||
1047 | cbio = BIO_pop(acbio); | ||
1048 | *pcbio = cbio; | ||
1049 | |||
1050 | for (;;) { | ||
1051 | len = BIO_gets(cbio, inbuf, sizeof inbuf); | ||
1052 | if (len <= 0) | ||
1053 | return 1; | ||
1054 | /* Look for "POST" signalling start of query */ | ||
1055 | if (!have_post) { | ||
1056 | if (strncmp(inbuf, "POST", 4)) { | ||
1057 | BIO_printf(bio_err, "Invalid request\n"); | ||
1058 | return 1; | ||
1059 | } | ||
1060 | have_post = 1; | ||
1061 | } | ||
1062 | /* Look for end of headers */ | ||
1063 | if ((inbuf[0] == '\r') || (inbuf[0] == '\n')) | ||
1064 | break; | ||
1065 | } | ||
1066 | |||
1067 | /* Try to read OCSP request */ | ||
1068 | |||
1069 | req = d2i_OCSP_REQUEST_bio(cbio, NULL); | ||
1070 | |||
1071 | if (!req) { | ||
1072 | BIO_printf(bio_err, "Error parsing OCSP request\n"); | ||
1073 | ERR_print_errors(bio_err); | ||
1074 | } | ||
1075 | *preq = req; | ||
1076 | |||
1077 | return 1; | ||
1078 | |||
1079 | } | ||
1080 | |||
1081 | static int | ||
1082 | send_ocsp_response(BIO * cbio, OCSP_RESPONSE * resp) | ||
1083 | { | ||
1084 | static const char http_resp[] = | ||
1085 | "HTTP/1.0 200 OK\r\nContent-type: application/ocsp-response\r\n" | ||
1086 | "Content-Length: %d\r\n\r\n"; | ||
1087 | if (!cbio) | ||
1088 | return 0; | ||
1089 | BIO_printf(cbio, http_resp, i2d_OCSP_RESPONSE(resp, NULL)); | ||
1090 | i2d_OCSP_RESPONSE_bio(cbio, resp); | ||
1091 | (void) BIO_flush(cbio); | ||
1092 | return 1; | ||
1093 | } | ||
1094 | |||
1095 | static OCSP_RESPONSE * | ||
1096 | query_responder(BIO * err, BIO * cbio, char *path, | ||
1097 | STACK_OF(CONF_VALUE) * headers, | ||
1098 | OCSP_REQUEST * req, int req_timeout) | ||
1099 | { | ||
1100 | int fd; | ||
1101 | int rv; | ||
1102 | int i; | ||
1103 | OCSP_REQ_CTX *ctx = NULL; | ||
1104 | OCSP_RESPONSE *rsp = NULL; | ||
1105 | fd_set confds; | ||
1106 | struct timeval tv; | ||
1107 | |||
1108 | if (req_timeout != -1) | ||
1109 | BIO_set_nbio(cbio, 1); | ||
1110 | |||
1111 | rv = BIO_do_connect(cbio); | ||
1112 | |||
1113 | if ((rv <= 0) && ((req_timeout == -1) || !BIO_should_retry(cbio))) { | ||
1114 | BIO_puts(err, "Error connecting BIO\n"); | ||
1115 | return NULL; | ||
1116 | } | ||
1117 | if (BIO_get_fd(cbio, &fd) <= 0) { | ||
1118 | BIO_puts(err, "Can't get connection fd\n"); | ||
1119 | goto err; | ||
1120 | } | ||
1121 | if (req_timeout != -1 && rv <= 0) { | ||
1122 | FD_ZERO(&confds); | ||
1123 | FD_SET(fd, &confds); | ||
1124 | tv.tv_usec = 0; | ||
1125 | tv.tv_sec = req_timeout; | ||
1126 | rv = select(fd + 1, NULL, &confds, NULL, &tv); | ||
1127 | if (rv == 0) { | ||
1128 | BIO_puts(err, "Timeout on connect\n"); | ||
1129 | return NULL; | ||
1130 | } | ||
1131 | } | ||
1132 | ctx = OCSP_sendreq_new(cbio, path, NULL, -1); | ||
1133 | if (!ctx) | ||
1134 | return NULL; | ||
1135 | |||
1136 | for (i = 0; i < sk_CONF_VALUE_num(headers); i++) { | ||
1137 | CONF_VALUE *hdr = sk_CONF_VALUE_value(headers, i); | ||
1138 | if (!OCSP_REQ_CTX_add1_header(ctx, hdr->name, hdr->value)) | ||
1139 | goto err; | ||
1140 | } | ||
1141 | |||
1142 | if (!OCSP_REQ_CTX_set1_req(ctx, req)) | ||
1143 | goto err; | ||
1144 | |||
1145 | for (;;) { | ||
1146 | rv = OCSP_sendreq_nbio(&rsp, ctx); | ||
1147 | if (rv != -1) | ||
1148 | break; | ||
1149 | if (req_timeout == -1) | ||
1150 | continue; | ||
1151 | FD_ZERO(&confds); | ||
1152 | FD_SET(fd, &confds); | ||
1153 | tv.tv_usec = 0; | ||
1154 | tv.tv_sec = req_timeout; | ||
1155 | if (BIO_should_read(cbio)) | ||
1156 | rv = select(fd + 1, &confds, NULL, NULL, &tv); | ||
1157 | else if (BIO_should_write(cbio)) | ||
1158 | rv = select(fd + 1, NULL, &confds, NULL, &tv); | ||
1159 | else { | ||
1160 | BIO_puts(err, "Unexpected retry condition\n"); | ||
1161 | goto err; | ||
1162 | } | ||
1163 | if (rv == 0) { | ||
1164 | BIO_puts(err, "Timeout on request\n"); | ||
1165 | break; | ||
1166 | } | ||
1167 | if (rv == -1) { | ||
1168 | BIO_puts(err, "Select error\n"); | ||
1169 | break; | ||
1170 | } | ||
1171 | } | ||
1172 | err: | ||
1173 | if (ctx) | ||
1174 | OCSP_REQ_CTX_free(ctx); | ||
1175 | |||
1176 | return rsp; | ||
1177 | } | ||
1178 | |||
1179 | OCSP_RESPONSE * | ||
1180 | process_responder(BIO * err, OCSP_REQUEST * req, | ||
1181 | char *host, char *path, char *port, int use_ssl, | ||
1182 | STACK_OF(CONF_VALUE) * headers, | ||
1183 | int req_timeout) | ||
1184 | { | ||
1185 | BIO *cbio = NULL; | ||
1186 | SSL_CTX *ctx = NULL; | ||
1187 | OCSP_RESPONSE *resp = NULL; | ||
1188 | cbio = BIO_new_connect(host); | ||
1189 | if (!cbio) { | ||
1190 | BIO_printf(err, "Error creating connect BIO\n"); | ||
1191 | goto end; | ||
1192 | } | ||
1193 | if (port) | ||
1194 | BIO_set_conn_port(cbio, port); | ||
1195 | if (use_ssl == 1) { | ||
1196 | BIO *sbio; | ||
1197 | ctx = SSL_CTX_new(SSLv23_client_method()); | ||
1198 | if (ctx == NULL) { | ||
1199 | BIO_printf(err, "Error creating SSL context.\n"); | ||
1200 | goto end; | ||
1201 | } | ||
1202 | SSL_CTX_set_mode(ctx, SSL_MODE_AUTO_RETRY); | ||
1203 | sbio = BIO_new_ssl(ctx, 1); | ||
1204 | cbio = BIO_push(sbio, cbio); | ||
1205 | } | ||
1206 | resp = query_responder(err, cbio, path, headers, req, req_timeout); | ||
1207 | if (!resp) | ||
1208 | BIO_printf(bio_err, "Error querying OCSP responder\n"); | ||
1209 | end: | ||
1210 | if (cbio) | ||
1211 | BIO_free_all(cbio); | ||
1212 | if (ctx) | ||
1213 | SSL_CTX_free(ctx); | ||
1214 | return resp; | ||
1215 | } | ||
1216 | |||
1217 | #endif | ||
diff --git a/src/usr.bin/openssl/openssl.1 b/src/usr.bin/openssl/openssl.1 new file mode 100644 index 0000000000..b374728ba9 --- /dev/null +++ b/src/usr.bin/openssl/openssl.1 | |||
@@ -0,0 +1,10407 @@ | |||
1 | .\" $OpenBSD: openssl.1,v 1.1 2014/08/26 17:47:24 jsing Exp $ | ||
2 | .\" ==================================================================== | ||
3 | .\" Copyright (c) 1998-2002 The OpenSSL Project. All rights reserved. | ||
4 | .\" | ||
5 | .\" Redistribution and use in source and binary forms, with or without | ||
6 | .\" modification, are permitted provided that the following conditions | ||
7 | .\" are met: | ||
8 | .\" | ||
9 | .\" 1. Redistributions of source code must retain the above copyright | ||
10 | .\" notice, this list of conditions and the following disclaimer. | ||
11 | .\" | ||
12 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
13 | .\" notice, this list of conditions and the following disclaimer in | ||
14 | .\" the documentation and/or other materials provided with the | ||
15 | .\" distribution. | ||
16 | .\" | ||
17 | .\" 3. All advertising materials mentioning features or use of this | ||
18 | .\" software must display the following acknowledgment: | ||
19 | .\" "This product includes software developed by the OpenSSL Project | ||
20 | .\" for use in the OpenSSL Toolkit. (http://www.openssl.org/)" | ||
21 | .\" | ||
22 | .\" 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
23 | .\" endorse or promote products derived from this software without | ||
24 | .\" prior written permission. For written permission, please contact | ||
25 | .\" openssl-core@openssl.org. | ||
26 | .\" | ||
27 | .\" 5. Products derived from this software may not be called "OpenSSL" | ||
28 | .\" nor may "OpenSSL" appear in their names without prior written | ||
29 | .\" permission of the OpenSSL Project. | ||
30 | .\" | ||
31 | .\" 6. Redistributions of any form whatsoever must retain the following | ||
32 | .\" acknowledgment: | ||
33 | .\" "This product includes software developed by the OpenSSL Project | ||
34 | .\" for use in the OpenSSL Toolkit (http://www.openssl.org/)" | ||
35 | .\" | ||
36 | .\" THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
37 | .\" EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
38 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
39 | .\" PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
40 | .\" ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
41 | .\" SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
42 | .\" NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
43 | .\" LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
44 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
45 | .\" STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
46 | .\" ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
47 | .\" OF THE POSSIBILITY OF SUCH DAMAGE. | ||
48 | .\" ==================================================================== | ||
49 | .\" | ||
50 | .\" This product includes cryptographic software written by Eric Young | ||
51 | .\" (eay@cryptsoft.com). This product includes software written by Tim | ||
52 | .\" Hudson (tjh@cryptsoft.com). | ||
53 | .\" | ||
54 | .\" | ||
55 | .\" Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) | ||
56 | .\" All rights reserved. | ||
57 | .\" | ||
58 | .\" This package is an SSL implementation written | ||
59 | .\" by Eric Young (eay@cryptsoft.com). | ||
60 | .\" The implementation was written so as to conform with Netscapes SSL. | ||
61 | .\" | ||
62 | .\" This library is free for commercial and non-commercial use as long as | ||
63 | .\" the following conditions are aheared to. The following conditions | ||
64 | .\" apply to all code found in this distribution, be it the RC4, RSA, | ||
65 | .\" lhash, DES, etc., code; not just the SSL code. The SSL documentation | ||
66 | .\" included with this distribution is covered by the same copyright terms | ||
67 | .\" except that the holder is Tim Hudson (tjh@cryptsoft.com). | ||
68 | .\" | ||
69 | .\" Copyright remains Eric Young's, and as such any Copyright notices in | ||
70 | .\" the code are not to be removed. | ||
71 | .\" If this package is used in a product, Eric Young should be given attribution | ||
72 | .\" as the author of the parts of the library used. | ||
73 | .\" This can be in the form of a textual message at program startup or | ||
74 | .\" in documentation (online or textual) provided with the package. | ||
75 | .\" | ||
76 | .\" Redistribution and use in source and binary forms, with or without | ||
77 | .\" modification, are permitted provided that the following conditions | ||
78 | .\" are met: | ||
79 | .\" 1. Redistributions of source code must retain the copyright | ||
80 | .\" notice, this list of conditions and the following disclaimer. | ||
81 | .\" 2. Redistributions in binary form must reproduce the above copyright | ||
82 | .\" notice, this list of conditions and the following disclaimer in the | ||
83 | .\" documentation and/or other materials provided with the distribution. | ||
84 | .\" 3. All advertising materials mentioning features or use of this software | ||
85 | .\" must display the following acknowledgement: | ||
86 | .\" "This product includes cryptographic software written by | ||
87 | .\" Eric Young (eay@cryptsoft.com)" | ||
88 | .\" The word 'cryptographic' can be left out if the rouines from the library | ||
89 | .\" being used are not cryptographic related :-). | ||
90 | .\" 4. If you include any Windows specific code (or a derivative thereof) from | ||
91 | .\" the apps directory (application code) you must include an | ||
92 | .\" acknowledgement: | ||
93 | .\" "This product includes software written by Tim Hudson | ||
94 | .\" (tjh@cryptsoft.com)" | ||
95 | .\" | ||
96 | .\" THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND | ||
97 | .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
98 | .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
99 | .\" ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE | ||
100 | .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
101 | .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
102 | .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
103 | .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
104 | .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
105 | .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
106 | .\" SUCH DAMAGE. | ||
107 | .\" | ||
108 | .\" The licence and distribution terms for any publically available version or | ||
109 | .\" derivative of this code cannot be changed. i.e. this code cannot simply be | ||
110 | .\" copied and put under another distribution licence | ||
111 | .\" [including the GNU Public Licence.] | ||
112 | .\" | ||
113 | .\" OPENSSL | ||
114 | .\" | ||
115 | .Dd $Mdocdate: August 26 2014 $ | ||
116 | .Dt OPENSSL 1 | ||
117 | .Os | ||
118 | .Sh NAME | ||
119 | .Nm openssl | ||
120 | .Nd OpenSSL command line tool | ||
121 | .Sh SYNOPSIS | ||
122 | .Nm | ||
123 | .Cm command | ||
124 | .Op Ar command_opts | ||
125 | .Op Ar command_args | ||
126 | .Pp | ||
127 | .Nm | ||
128 | .Cm list-standard-commands \*(Ba | ||
129 | .Cm list-message-digest-commands \*(Ba | ||
130 | .Cm list-cipher-commands \*(Ba | ||
131 | .Cm list-cipher-algorithms \*(Ba | ||
132 | .Cm list-message-digest-algorithms \*(Ba | ||
133 | .Cm list-public-key-algorithms | ||
134 | .Pp | ||
135 | .Nm | ||
136 | .Cm no- Ns Ar XXX | ||
137 | .Op Ar arbitrary options | ||
138 | .Sh DESCRIPTION | ||
139 | .Nm OpenSSL | ||
140 | is a cryptography toolkit implementing the Secure Sockets Layer | ||
141 | .Pq SSL v3 | ||
142 | and Transport Layer Security | ||
143 | .Pq TLS v1 | ||
144 | network protocols and related cryptography standards required by them. | ||
145 | .Pp | ||
146 | The | ||
147 | .Nm | ||
148 | program is a command line tool for using the various | ||
149 | cryptography functions of | ||
150 | .Nm OpenSSL Ns Li 's | ||
151 | .Em crypto | ||
152 | library from the shell. | ||
153 | It can be used for | ||
154 | .Pp | ||
155 | .Bl -bullet -offset indent -compact | ||
156 | .It | ||
157 | Creation and management of private keys, public keys, and parameters | ||
158 | .It | ||
159 | Public key cryptographic operations | ||
160 | .It | ||
161 | Creation of X.509 certificates, CSRs and CRLs | ||
162 | .It | ||
163 | Calculation of Message Digests | ||
164 | .It | ||
165 | Encryption and Decryption with Ciphers | ||
166 | .It | ||
167 | SSL/TLS Client and Server Tests | ||
168 | .It | ||
169 | Handling of S/MIME signed or encrypted mail | ||
170 | .It | ||
171 | Time stamp requests, generation, and verification | ||
172 | .El | ||
173 | .Sh COMMAND SUMMARY | ||
174 | The | ||
175 | .Nm | ||
176 | program provides a rich variety of commands | ||
177 | .Pf ( Cm command | ||
178 | in the | ||
179 | .Sx SYNOPSIS | ||
180 | above), | ||
181 | each of which often has a wealth of options and arguments | ||
182 | .Pf ( Ar command_opts | ||
183 | and | ||
184 | .Ar command_args | ||
185 | in the | ||
186 | .Sx SYNOPSIS ) . | ||
187 | .Pp | ||
188 | The pseudo-commands | ||
189 | .Cm list-standard-commands , list-message-digest-commands , | ||
190 | and | ||
191 | .Cm list-cipher-commands | ||
192 | output a list | ||
193 | .Pq one entry per line | ||
194 | of the names of all standard commands, message digest commands, | ||
195 | or cipher commands, respectively, that are available in the present | ||
196 | .Nm | ||
197 | utility. | ||
198 | .Pp | ||
199 | The pseudo-commands | ||
200 | .Cm list-cipher-algorithms | ||
201 | and | ||
202 | .Cm list-message-digest-algorithms | ||
203 | list all cipher and message digest names, | ||
204 | one entry per line. | ||
205 | Aliases are listed as: | ||
206 | .Pp | ||
207 | .D1 from =\*(Gt to | ||
208 | .Pp | ||
209 | The pseudo-command | ||
210 | .Cm list-public-key-algorithms | ||
211 | lists all supported public key algorithms. | ||
212 | .Pp | ||
213 | The pseudo-command | ||
214 | .Cm no- Ns Ar XXX | ||
215 | tests whether a command of the | ||
216 | specified name is available. | ||
217 | If no command named | ||
218 | .Ar XXX | ||
219 | exists, | ||
220 | it returns 0 | ||
221 | .Pq success | ||
222 | and prints | ||
223 | .Cm no- Ns Ar XXX ; | ||
224 | otherwise it returns 1 and prints | ||
225 | .Ar XXX . | ||
226 | In both cases, the output goes to | ||
227 | .Em stdout | ||
228 | and nothing is printed to | ||
229 | .Em stderr . | ||
230 | Additional command line arguments are always ignored. | ||
231 | Since for each cipher there is a command of the same name, | ||
232 | this provides an easy way for shell scripts to test for the | ||
233 | availability of ciphers in the | ||
234 | .Nm | ||
235 | program. | ||
236 | .Pp | ||
237 | .Sy Note : | ||
238 | .Cm no- Ns Ar XXX | ||
239 | is not able to detect pseudo-commands such as | ||
240 | .Cm quit , | ||
241 | .Cm list- Ns Ar ... Ns Cm -commands , | ||
242 | or | ||
243 | .Cm no- Ns Ar XXX | ||
244 | itself. | ||
245 | .Sh STANDARD COMMANDS | ||
246 | .Bl -tag -width "asn1parse" | ||
247 | .It Cm asn1parse | ||
248 | Parse an ASN.1 sequence. | ||
249 | .It Cm ca | ||
250 | Certificate Authority | ||
251 | .Pq CA | ||
252 | management. | ||
253 | .It Cm ciphers | ||
254 | Cipher suite description determination. | ||
255 | .It Cm crl | ||
256 | Certificate Revocation List | ||
257 | .Pq CRL | ||
258 | management. | ||
259 | .It Cm crl2pkcs7 | ||
260 | CRL to PKCS#7 conversion. | ||
261 | .It Cm dgst | ||
262 | Message digest calculation. | ||
263 | .It Cm dh | ||
264 | Diffie-Hellman parameter management. | ||
265 | Obsoleted by | ||
266 | .Cm dhparam . | ||
267 | .It Cm dhparam | ||
268 | Generation and management of Diffie-Hellman parameters. | ||
269 | Superseded by | ||
270 | .Cm genpkey | ||
271 | and | ||
272 | .Cm pkeyparam . | ||
273 | .It Cm dsa | ||
274 | DSA data management. | ||
275 | .It Cm dsaparam | ||
276 | DSA parameter generation and management. | ||
277 | Superseded by | ||
278 | .Cm genpkey | ||
279 | and | ||
280 | .Cm pkeyparam . | ||
281 | .It Cm ec | ||
282 | Elliptic curve (EC) key processing. | ||
283 | .It Cm ecparam | ||
284 | EC parameter manipulation and generation. | ||
285 | .It Cm enc | ||
286 | Encoding with ciphers. | ||
287 | .It Cm engine | ||
288 | Engine (loadable module) information and manipulation. | ||
289 | .It Cm errstr | ||
290 | Error number to error string conversion. | ||
291 | .It Cm gendh | ||
292 | Generation of Diffie-Hellman parameters. | ||
293 | Obsoleted by | ||
294 | .Cm dhparam . | ||
295 | .It Cm gendsa | ||
296 | Generation of DSA private key from parameters. | ||
297 | Superseded by | ||
298 | .Cm genpkey | ||
299 | and | ||
300 | .Cm pkey . | ||
301 | .It Cm genpkey | ||
302 | Generation of private keys or parameters. | ||
303 | .It Cm genrsa | ||
304 | Generation of RSA private key. | ||
305 | Superseded by | ||
306 | .Cm genpkey . | ||
307 | .It Cm nseq | ||
308 | Create or examine a Netscape certificate sequence. | ||
309 | .It Cm ocsp | ||
310 | Online Certificate Status Protocol utility. | ||
311 | .It Cm passwd | ||
312 | Generation of hashed passwords. | ||
313 | .It Cm pkcs7 | ||
314 | PKCS#7 data management. | ||
315 | .It Cm pkcs8 | ||
316 | PKCS#8 data management. | ||
317 | .It Cm pkcs12 | ||
318 | PKCS#12 data management. | ||
319 | .It Cm pkey | ||
320 | Public and private key management. | ||
321 | .It Cm pkeyparam | ||
322 | Public key algorithm parameter management. | ||
323 | .It Cm pkeyutl | ||
324 | Public key algorithm cryptographic operation utility. | ||
325 | .It Cm prime | ||
326 | Generate prime numbers or test numbers for primality. | ||
327 | .It Cm rand | ||
328 | Generate pseudo-random bytes. | ||
329 | .It Cm req | ||
330 | PKCS#10 X.509 Certificate Signing Request | ||
331 | .Pq CSR | ||
332 | management. | ||
333 | .It Cm rsa | ||
334 | RSA key management. | ||
335 | .It Cm rsautl | ||
336 | RSA utility for signing, verification, encryption, and decryption. | ||
337 | Superseded by | ||
338 | .Cm pkeyutl . | ||
339 | .It Cm s_client | ||
340 | This implements a generic SSL/TLS client which can establish a transparent | ||
341 | connection to a remote server speaking SSL/TLS. | ||
342 | It's intended for testing purposes only and provides only rudimentary | ||
343 | interface functionality but internally uses mostly all functionality of the | ||
344 | .Nm OpenSSL | ||
345 | .Em ssl | ||
346 | library. | ||
347 | .It Cm s_server | ||
348 | This implements a generic SSL/TLS server which accepts connections from remote | ||
349 | clients speaking SSL/TLS. | ||
350 | It's intended for testing purposes only and provides only rudimentary | ||
351 | interface functionality but internally uses mostly all functionality of the | ||
352 | .Nm OpenSSL | ||
353 | .Em ssl | ||
354 | library. | ||
355 | It provides both an own command line oriented protocol for testing | ||
356 | SSL functions and a simple HTTP response | ||
357 | facility to emulate an SSL/TLS-aware webserver. | ||
358 | .It Cm s_time | ||
359 | SSL connection timer. | ||
360 | .It Cm sess_id | ||
361 | SSL session data management. | ||
362 | .It Cm smime | ||
363 | S/MIME mail processing. | ||
364 | .It Cm speed | ||
365 | Algorithm speed measurement. | ||
366 | .It Cm spkac | ||
367 | SPKAC printing and generating utility. | ||
368 | .It Cm ts | ||
369 | Time stamping authority tool (client/server). | ||
370 | .It Cm verify | ||
371 | X.509 certificate verification. | ||
372 | .It Cm version | ||
373 | .Nm OpenSSL | ||
374 | version information. | ||
375 | .It Cm x509 | ||
376 | X.509 certificate data management. | ||
377 | .El | ||
378 | .Sh MESSAGE DIGEST COMMANDS | ||
379 | .Bl -tag -width "asn1parse" | ||
380 | .It Cm md2 | ||
381 | MD2 digest. | ||
382 | .It Cm md4 | ||
383 | MD4 digest. | ||
384 | .It Cm md5 | ||
385 | MD5 digest. | ||
386 | .It Cm ripemd160 | ||
387 | RIPEMD-160 digest. | ||
388 | .It Cm sha | ||
389 | SHA digest. | ||
390 | .It Cm sha1 | ||
391 | SHA-1 digest. | ||
392 | .El | ||
393 | .Sh ENCODING AND CIPHER COMMANDS | ||
394 | .Bl -tag -width Ds -compact | ||
395 | .It Cm aes-128-cbc | aes-128-ecb | aes-192-cbc | aes-192-ecb | ||
396 | .It Cm aes-256-cbc | aes-256-ecb | ||
397 | AES cipher. | ||
398 | .Pp | ||
399 | .It Cm base64 | ||
400 | Base64 encoding. | ||
401 | .Pp | ||
402 | .It Xo | ||
403 | .Cm bf | bf-cbc | bf-cfb | | ||
404 | .Cm bf-ecb | bf-ofb | ||
405 | .Xc | ||
406 | Blowfish cipher. | ||
407 | .Pp | ||
408 | .It Cm cast | cast-cbc | ||
409 | CAST cipher. | ||
410 | .Pp | ||
411 | .It Cm cast5-cbc | cast5-cfb | cast5-ecb | cast5-ofb | ||
412 | CAST5 cipher. | ||
413 | .Pp | ||
414 | .It Xo | ||
415 | .Cm des | des-cbc | des-cfb | des-ecb | | ||
416 | .Cm des-ede | des-ede-cbc | ||
417 | .Xc | ||
418 | .It Cm des-ede-cfb | des-ede-ofb | des-ofb | ||
419 | DES cipher. | ||
420 | .Pp | ||
421 | .It Xo | ||
422 | .Cm des3 | desx | des-ede3 | | ||
423 | .Cm des-ede3-cbc | des-ede3-cfb | des-ede3-ofb | ||
424 | .Xc | ||
425 | Triple DES cipher. | ||
426 | .Pp | ||
427 | .It Xo | ||
428 | .Cm rc2 | rc2-40-cbc | rc2-64-cbc | rc2-cbc | | ||
429 | .Cm rc2-cfb | rc2-ecb | rc2-ofb | ||
430 | .Xc | ||
431 | RC2 cipher. | ||
432 | .Pp | ||
433 | .It Cm rc4 | rc4-40 | ||
434 | RC4 cipher. | ||
435 | .El | ||
436 | .Sh PASS PHRASE ARGUMENTS | ||
437 | Several commands accept password arguments, typically using | ||
438 | .Fl passin | ||
439 | and | ||
440 | .Fl passout | ||
441 | for input and output passwords, respectively. | ||
442 | These allow the password to be obtained from a variety of sources. | ||
443 | Both of these options take a single argument whose format is described below. | ||
444 | If no password argument is given and a password is required, | ||
445 | then the user is prompted to enter one: | ||
446 | this will typically be read from the current terminal with echoing turned off. | ||
447 | .Bl -tag -width "fd:number" | ||
448 | .It Ar pass : Ns Ar password | ||
449 | The actual password is | ||
450 | .Ar password . | ||
451 | Since the password is visible to utilities | ||
452 | (like | ||
453 | .Xr ps 1 | ||
454 | under | ||
455 | .Ux ) | ||
456 | this form should only be used where security is not important. | ||
457 | .It Ar env : Ns Ar var | ||
458 | Obtain the password from the environment variable | ||
459 | .Ar var . | ||
460 | Since the environment of other processes is visible on certain platforms | ||
461 | (e.g.\& | ||
462 | .Xr ps 1 | ||
463 | under certain | ||
464 | .Ux | ||
465 | OSes) this option should be used with caution. | ||
466 | .It Ar file : Ns Ar path | ||
467 | The first line of | ||
468 | .Ar path | ||
469 | is the password. | ||
470 | If the same | ||
471 | .Ar path | ||
472 | argument is supplied to | ||
473 | .Fl passin | ||
474 | and | ||
475 | .Fl passout , | ||
476 | then the first line will be used for the input password and the next line | ||
477 | for the output password. | ||
478 | .Ar path | ||
479 | need not refer to a regular file: | ||
480 | it could, for example, refer to a device or named pipe. | ||
481 | .It Ar fd : Ns Ar number | ||
482 | Read the password from the file descriptor | ||
483 | .Ar number . | ||
484 | This can be used to send the data via a pipe for example. | ||
485 | .It Ar stdin | ||
486 | Read the password from standard input. | ||
487 | .El | ||
488 | .\" | ||
489 | .\" ASN1PARSE | ||
490 | .\" | ||
491 | .Sh ASN1PARSE | ||
492 | .nr nS 1 | ||
493 | .Nm "openssl asn1parse" | ||
494 | .Bk -words | ||
495 | .Op Fl i | ||
496 | .Op Fl dlimit Ar number | ||
497 | .Op Fl dump | ||
498 | .Op Fl genconf Ar file | ||
499 | .Op Fl genstr Ar str | ||
500 | .Op Fl in Ar file | ||
501 | .Op Fl inform Ar DER | PEM | TXT | ||
502 | .Op Fl length Ar number | ||
503 | .Op Fl noout | ||
504 | .Op Fl offset Ar number | ||
505 | .Op Fl oid Ar file | ||
506 | .Op Fl out Ar file | ||
507 | .Op Fl strparse Ar offset | ||
508 | .Ek | ||
509 | .nr nS 0 | ||
510 | .Pp | ||
511 | The | ||
512 | .Nm asn1parse | ||
513 | command is a diagnostic utility that can parse ASN.1 structures. | ||
514 | It can also be used to extract data from ASN.1 formatted data. | ||
515 | .Pp | ||
516 | The options are as follows: | ||
517 | .Bl -tag -width Ds | ||
518 | .It Fl dlimit Ar number | ||
519 | Dump the first | ||
520 | .Ar number | ||
521 | bytes of unknown data in hex form. | ||
522 | .It Fl dump | ||
523 | Dump unknown data in hex form. | ||
524 | .It Fl genconf Ar file , Fl genstr Ar str | ||
525 | Generate encoded data based on string | ||
526 | .Ar str , | ||
527 | file | ||
528 | .Ar file , | ||
529 | or both using | ||
530 | .Xr ASN1_generate_nconf 3 | ||
531 | format. | ||
532 | If only | ||
533 | .Ar file | ||
534 | is present then the string is obtained from the default section | ||
535 | using the name | ||
536 | .Dq asn1 . | ||
537 | The encoded data is passed through the ASN1 parser and printed out as | ||
538 | though it came from a file; | ||
539 | the contents can thus be examined and written to a file using the | ||
540 | .Fl out | ||
541 | option. | ||
542 | .It Fl i | ||
543 | Indents the output according to the | ||
544 | .Qq depth | ||
545 | of the structures. | ||
546 | .It Fl in Ar file | ||
547 | The input file; default is standard input. | ||
548 | .It Fl inform Ar DER | PEM | TXT | ||
549 | The input format. | ||
550 | .Ar DER | ||
551 | .Pq Distinguished Encoding Rules | ||
552 | is binary format and | ||
553 | .Ar PEM | ||
554 | .Pq Privacy Enhanced Mail , | ||
555 | the default, is base64-encoded. | ||
556 | .Ar TXT | ||
557 | is plain text. | ||
558 | .It Fl length Ar number | ||
559 | Number of bytes to parse; default is until end of file. | ||
560 | .It Fl noout | ||
561 | Don't output the parsed version of the input file. | ||
562 | .It Fl offset Ar number | ||
563 | Starting offset to begin parsing; default is start of file. | ||
564 | .It Fl oid Ar file | ||
565 | A file containing additional object identifiers | ||
566 | .Pq OIDs . | ||
567 | The format of this file is described in the | ||
568 | .Sx ASN1PARSE NOTES | ||
569 | section below. | ||
570 | .It Fl out Ar file | ||
571 | Output file to place the DER-encoded data into. | ||
572 | If this option is not present, no encoded data will be output. | ||
573 | This is most useful when combined with the | ||
574 | .Fl strparse | ||
575 | option. | ||
576 | .It Fl strparse Ar offset | ||
577 | Parse the content octets of the ASN.1 object starting at | ||
578 | .Ar offset . | ||
579 | This option can be used multiple times to | ||
580 | .Qq drill down | ||
581 | into a nested structure. | ||
582 | .El | ||
583 | .Sh ASN1PARSE OUTPUT | ||
584 | The output will typically contain lines like this: | ||
585 | .Bd -literal -offset 2n | ||
586 | 0:d=0 hl=4 l= 681 cons: SEQUENCE | ||
587 | |||
588 | \&..... | ||
589 | |||
590 | 229:d=3 hl=3 l= 141 prim: BIT STRING | ||
591 | 373:d=2 hl=3 l= 162 cons: cont [ 3 ] | ||
592 | 376:d=3 hl=3 l= 159 cons: SEQUENCE | ||
593 | 379:d=4 hl=2 l= 29 cons: SEQUENCE | ||
594 | 381:d=5 hl=2 l= 3 prim: OBJECT :X509v3 Subject Key Identifier | ||
595 | 386:d=5 hl=2 l= 22 prim: OCTET STRING | ||
596 | 410:d=4 hl=2 l= 112 cons: SEQUENCE | ||
597 | 412:d=5 hl=2 l= 3 prim: OBJECT :X509v3 Authority Key Identifier | ||
598 | 417:d=5 hl=2 l= 105 prim: OCTET STRING | ||
599 | 524:d=4 hl=2 l= 12 cons: SEQUENCE | ||
600 | |||
601 | \&..... | ||
602 | .Ed | ||
603 | .Pp | ||
604 | This example is part of a self-signed certificate. | ||
605 | Each line starts with the offset in decimal. | ||
606 | .Cm d=XX | ||
607 | specifies the current depth. | ||
608 | The depth is increased within the scope of any SET or SEQUENCE. | ||
609 | .Cm hl=XX | ||
610 | gives the header length | ||
611 | .Pq tag and length octets | ||
612 | of the current type. | ||
613 | .Cm l=XX | ||
614 | gives the length of the content octets. | ||
615 | .Pp | ||
616 | The | ||
617 | .Fl i | ||
618 | option can be used to make the output more readable. | ||
619 | .Pp | ||
620 | Some knowledge of the ASN.1 structure is needed to interpret the output. | ||
621 | .Pp | ||
622 | In this example, the BIT STRING at offset 229 is the certificate public key. | ||
623 | The content octets of this will contain the public key information. | ||
624 | This can be examined using the option | ||
625 | .Fl strparse Cm 229 | ||
626 | to yield: | ||
627 | .Bd -literal | ||
628 | 0:d=0 hl=3 l= 137 cons: SEQUENCE | ||
629 | 3:d=1 hl=3 l= 129 prim: INTEGER :E5D21E1F5C8D208EA7A2166C7FA | ||
630 | F9F6BDF2059669C60876DDB70840F1A5AAFA59699FE471F379F1DD6A487E7D5409AB6A88D4A | ||
631 | 9746E24B91D8CF55DB3521015460C8EDE44EE8A4189F7A7BE77D6CD3A9AF2696F486855CF58 | ||
632 | BF0EDF2B4068058C7A947F52548DDF7E15E96B385F86422BEA9064A3EE9 | ||
633 | 135:d=1 hl=2 l= 3 prim: INTEGER :010001 | ||
634 | .Ed | ||
635 | .Sh ASN1PARSE NOTES | ||
636 | If an OID | ||
637 | .Pq object identifier | ||
638 | is not part of | ||
639 | .Nm OpenSSL Ns Li 's | ||
640 | internal table it will be represented in | ||
641 | numerical form | ||
642 | .Pq for example 1.2.3.4 . | ||
643 | The file passed to the | ||
644 | .Fl oid | ||
645 | option allows additional OIDs to be included. | ||
646 | Each line consists of three columns: | ||
647 | the first column is the OID in numerical format and should be followed by | ||
648 | whitespace. | ||
649 | The second column is the | ||
650 | .Qq short name | ||
651 | which is a single word followed by whitespace. | ||
652 | The final column is the rest of the line and is the | ||
653 | .Qq long name . | ||
654 | .Nm asn1parse | ||
655 | displays the long name. | ||
656 | Example: | ||
657 | .Pp | ||
658 | .Dl \&"1.2.3.4 shortname A long name\&" | ||
659 | .Sh ASN1 EXAMPLES | ||
660 | Parse a file: | ||
661 | .Pp | ||
662 | .Dl $ openssl asn1parse -in file.pem | ||
663 | .Pp | ||
664 | Parse a DER file: | ||
665 | .Pp | ||
666 | .Dl $ openssl asn1parse -inform DER -in file.der | ||
667 | .Sh ASN1PARSE BUGS | ||
668 | There should be options to change the format of output lines. | ||
669 | The output of some ASN.1 types is not well handled | ||
670 | .Pq if at all . | ||
671 | .\" | ||
672 | .\" CA | ||
673 | .\" | ||
674 | .Sh CA | ||
675 | .nr nS 1 | ||
676 | .Nm "openssl ca" | ||
677 | .Bk -words | ||
678 | .Op Fl batch | ||
679 | .Op Fl cert Ar file | ||
680 | .Op Fl config Ar file | ||
681 | .Op Fl crl_CA_compromise Ar time | ||
682 | .Op Fl crl_compromise Ar time | ||
683 | .Op Fl crl_hold Ar instruction | ||
684 | .Op Fl crl_reason Ar reason | ||
685 | .Op Fl crldays Ar days | ||
686 | .Op Fl crlexts Ar section | ||
687 | .Op Fl crlhours Ar hours | ||
688 | .Op Fl days Ar arg | ||
689 | .Op Fl enddate Ar date | ||
690 | .Op Fl engine Ar id | ||
691 | .Op Fl extensions Ar section | ||
692 | .Op Fl extfile Ar section | ||
693 | .Op Fl gencrl | ||
694 | .Op Fl in Ar file | ||
695 | .Op Fl infiles | ||
696 | .Op Fl key Ar keyfile | ||
697 | .Op Fl keyfile Ar arg | ||
698 | .Op Fl keyform Ar ENGINE | PEM | ||
699 | .Op Fl md Ar arg | ||
700 | .Op Fl msie_hack | ||
701 | .Op Fl name Ar section | ||
702 | .Op Fl noemailDN | ||
703 | .Op Fl notext | ||
704 | .Op Fl out Ar file | ||
705 | .Op Fl outdir Ar dir | ||
706 | .Op Fl passin Ar arg | ||
707 | .Op Fl policy Ar arg | ||
708 | .Op Fl preserveDN | ||
709 | .Op Fl revoke Ar file | ||
710 | .Op Fl spkac Ar file | ||
711 | .Op Fl ss_cert Ar file | ||
712 | .Op Fl startdate Ar date | ||
713 | .Op Fl status Ar serial | ||
714 | .Op Fl subj Ar arg | ||
715 | .Op Fl updatedb | ||
716 | .Op Fl verbose | ||
717 | .Ek | ||
718 | .nr nS 0 | ||
719 | .Pp | ||
720 | The | ||
721 | .Nm ca | ||
722 | command is a minimal CA application. | ||
723 | It can be used to sign certificate requests in a variety of forms | ||
724 | and generate CRLs. | ||
725 | It also maintains a text database of issued certificates and their status. | ||
726 | .Pp | ||
727 | The options descriptions will be divided into each purpose. | ||
728 | .Sh CA OPTIONS | ||
729 | .Bl -tag -width "XXXX" | ||
730 | .It Fl batch | ||
731 | This sets the batch mode. | ||
732 | In this mode no questions will be asked | ||
733 | and all certificates will be certified automatically. | ||
734 | .It Fl cert Ar file | ||
735 | The CA certificate file. | ||
736 | .It Fl config Ar file | ||
737 | Specifies the configuration file to use. | ||
738 | .It Fl days Ar arg | ||
739 | The number of days to certify the certificate for. | ||
740 | .It Fl enddate Ar date | ||
741 | This allows the expiry date to be explicitly set. | ||
742 | The format of the date is YYMMDDHHMMSSZ | ||
743 | .Pq the same as an ASN1 UTCTime structure . | ||
744 | .It Fl engine Ar id | ||
745 | Specifying an engine (by its unique | ||
746 | .Ar id | ||
747 | string) will cause | ||
748 | .Nm ca | ||
749 | to attempt to obtain a functional reference to the specified engine, | ||
750 | thus initialising it if needed. | ||
751 | The engine will then be set as the default for all available algorithms. | ||
752 | .It Fl extensions Ar section | ||
753 | The section of the configuration file containing certificate extensions | ||
754 | to be added when a certificate is issued (defaults to | ||
755 | .Em x509_extensions | ||
756 | unless the | ||
757 | .Fl extfile | ||
758 | option is used). | ||
759 | If no extension section is present, a V1 certificate is created. | ||
760 | If the extension section is present | ||
761 | .Pq even if it is empty , | ||
762 | then a V3 certificate is created. | ||
763 | .It Fl extfile Ar file | ||
764 | An additional configuration | ||
765 | .Ar file | ||
766 | to read certificate extensions from | ||
767 | (using the default section unless the | ||
768 | .Fl extensions | ||
769 | option is also used). | ||
770 | .It Fl in Ar file | ||
771 | An input | ||
772 | .Ar file | ||
773 | containing a single certificate request to be signed by the CA. | ||
774 | .It Fl infiles | ||
775 | If present, this should be the last option; all subsequent arguments | ||
776 | are assumed to be the names of files containing certificate requests. | ||
777 | .It Fl key Ar keyfile | ||
778 | The password used to encrypt the private key. | ||
779 | Since on some systems the command line arguments are visible | ||
780 | (e.g.\& | ||
781 | .Ux | ||
782 | with the | ||
783 | .Xr ps 1 | ||
784 | utility) this option should be used with caution. | ||
785 | .It Fl keyfile Ar file | ||
786 | The private key to sign requests with. | ||
787 | .It Fl keyform Ar ENGINE | PEM | ||
788 | Private key file format. | ||
789 | .It Fl md Ar alg | ||
790 | The message digest to use. | ||
791 | Possible values include | ||
792 | .Ar md5 | ||
793 | and | ||
794 | .Ar sha1 . | ||
795 | This option also applies to CRLs. | ||
796 | .It Fl msie_hack | ||
797 | This is a legacy option to make | ||
798 | .Nm ca | ||
799 | work with very old versions of the IE certificate enrollment control | ||
800 | .Qq certenr3 . | ||
801 | It used UniversalStrings for almost everything. | ||
802 | Since the old control has various security bugs, | ||
803 | its use is strongly discouraged. | ||
804 | The newer control | ||
805 | .Qq Xenroll | ||
806 | does not need this option. | ||
807 | .It Fl name Ar section | ||
808 | Specifies the configuration file | ||
809 | .Ar section | ||
810 | to use (overrides | ||
811 | .Cm default_ca | ||
812 | in the | ||
813 | .Cm ca | ||
814 | section). | ||
815 | .It Fl noemailDN | ||
816 | The DN of a certificate can contain the EMAIL field if present in the | ||
817 | request DN, however it is good policy just having the e-mail set into | ||
818 | the | ||
819 | .Em altName | ||
820 | extension of the certificate. | ||
821 | When this option is set, the EMAIL field is removed from the certificate's | ||
822 | subject and set only in the, eventually present, extensions. | ||
823 | The | ||
824 | .Ar email_in_dn | ||
825 | keyword can be used in the configuration file to enable this behaviour. | ||
826 | .It Fl notext | ||
827 | Don't output the text form of a certificate to the output file. | ||
828 | .It Fl out Ar file | ||
829 | The output file to output certificates to. | ||
830 | The default is standard output. | ||
831 | The certificate details will also be printed out to this file. | ||
832 | .It Fl outdir Ar directory | ||
833 | The | ||
834 | .Ar directory | ||
835 | to output certificates to. | ||
836 | The certificate will be written to a file consisting of the | ||
837 | serial number in hex with | ||
838 | .Qq .pem | ||
839 | appended. | ||
840 | .It Fl passin Ar arg | ||
841 | The key password source. | ||
842 | For more information about the format of | ||
843 | .Ar arg , | ||
844 | see the | ||
845 | .Sx PASS PHRASE ARGUMENTS | ||
846 | section above. | ||
847 | .It Fl policy Ar arg | ||
848 | This option defines the CA | ||
849 | .Qq policy | ||
850 | to use. | ||
851 | This is a section in the configuration file which decides which fields | ||
852 | should be mandatory or match the CA certificate. | ||
853 | Check out the | ||
854 | .Sx CA POLICY FORMAT | ||
855 | section for more information. | ||
856 | .It Fl preserveDN | ||
857 | Normally, the DN order of a certificate is the same as the order of the | ||
858 | fields in the relevant policy section. | ||
859 | When this option is set, the order is the same as the request. | ||
860 | This is largely for compatibility with the older IE enrollment control | ||
861 | which would only accept certificates if their DNs matched the order of the | ||
862 | request. | ||
863 | This is not needed for Xenroll. | ||
864 | .It Fl spkac Ar file | ||
865 | A file containing a single Netscape signed public key and challenge, | ||
866 | and additional field values to be signed by the CA. | ||
867 | See the | ||
868 | .Sx SPKAC FORMAT | ||
869 | section for information on the required format. | ||
870 | .It Fl ss_cert Ar file | ||
871 | A single self-signed certificate to be signed by the CA. | ||
872 | .It Fl startdate Ar date | ||
873 | This allows the start date to be explicitly set. | ||
874 | The format of the date is YYMMDDHHMMSSZ | ||
875 | .Pq the same as an ASN1 UTCTime structure . | ||
876 | .It Fl status Ar serial | ||
877 | Show status of certificate with serial number | ||
878 | .Ar serial . | ||
879 | .It Fl updatedb | ||
880 | Update database for expired certificates. | ||
881 | .It Fl verbose | ||
882 | This prints extra details about the operations being performed. | ||
883 | .El | ||
884 | .Sh CRL OPTIONS | ||
885 | .Bl -tag -width "XXXX" | ||
886 | .It Fl crl_CA_compromise Ar time | ||
887 | This is the same as | ||
888 | .Fl crl_compromise , | ||
889 | except the revocation reason is set to CACompromise. | ||
890 | .It Fl crl_compromise Ar time | ||
891 | This sets the revocation reason to keyCompromise and the compromise time to | ||
892 | .Ar time . | ||
893 | .Ar time | ||
894 | should be in GeneralizedTime format, i.e. YYYYMMDDHHMMSSZ. | ||
895 | .It Fl crl_hold Ar instruction | ||
896 | This sets the CRL revocation reason code to certificateHold and the hold | ||
897 | instruction to | ||
898 | .Ar instruction | ||
899 | which must be an OID. | ||
900 | Although any OID can be used, only holdInstructionNone | ||
901 | (the use of which is discouraged by RFC 2459), holdInstructionCallIssuer or | ||
902 | holdInstructionReject will normally be used. | ||
903 | .It Fl crl_reason Ar reason | ||
904 | Revocation reason, where | ||
905 | .Ar reason | ||
906 | is one of: | ||
907 | unspecified, keyCompromise, CACompromise, affiliationChanged, superseded, | ||
908 | cessationOfOperation, certificateHold or removeFromCRL. | ||
909 | The matching of | ||
910 | .Ar reason | ||
911 | is case insensitive. | ||
912 | Setting any revocation reason will make the CRL v2. | ||
913 | In practice, removeFromCRL is not particularly useful because it is only used | ||
914 | in delta CRLs which are not currently implemented. | ||
915 | .It Fl crldays Ar num | ||
916 | The number of days before the next CRL is due. | ||
917 | This is the days from now to place in the CRL | ||
918 | .Em nextUpdate | ||
919 | field. | ||
920 | .It Fl crlexts Ar section | ||
921 | The | ||
922 | .Ar section | ||
923 | of the configuration file containing CRL extensions to include. | ||
924 | If no CRL extension section is present then a V1 CRL is created; | ||
925 | if the CRL extension section is present | ||
926 | .Pq even if it is empty | ||
927 | then a V2 CRL is created. | ||
928 | The CRL extensions specified are CRL extensions and | ||
929 | .Em not | ||
930 | CRL entry extensions. | ||
931 | It should be noted that some software | ||
932 | .Pq for example Netscape | ||
933 | can't handle V2 CRLs. | ||
934 | .It Fl crlhours Ar num | ||
935 | The number of hours before the next CRL is due. | ||
936 | .It Fl gencrl | ||
937 | This option generates a CRL based on information in the index file. | ||
938 | .It Fl revoke Ar file | ||
939 | A | ||
940 | .Ar file | ||
941 | containing a certificate to revoke. | ||
942 | .It Fl subj Ar arg | ||
943 | Supersedes the subject name given in the request. | ||
944 | The | ||
945 | .Ar arg | ||
946 | must be formatted as | ||
947 | .Ar /type0=value0/type1=value1/type2=... ; | ||
948 | characters may be escaped by | ||
949 | .Sq \e | ||
950 | .Pq backslash , | ||
951 | no spaces are skipped. | ||
952 | .El | ||
953 | .Sh CA CONFIGURATION FILE OPTIONS | ||
954 | The section of the configuration file containing options for | ||
955 | .Nm ca | ||
956 | is found as follows: | ||
957 | If the | ||
958 | .Fl name | ||
959 | command line option is used, then it names the section to be used. | ||
960 | Otherwise the section to be used must be named in the | ||
961 | .Em default_ca | ||
962 | option of the | ||
963 | .Em ca | ||
964 | section of the configuration file (or in the default section of the | ||
965 | configuration file). | ||
966 | Besides | ||
967 | .Em default_ca , | ||
968 | the following options are read directly from the | ||
969 | .Em ca | ||
970 | section: | ||
971 | .Pp | ||
972 | .Bl -tag -width Ds -offset indent -compact | ||
973 | .It preserve | ||
974 | .It msie_hack | ||
975 | .El | ||
976 | .Pp | ||
977 | This is probably a bug and may change in future releases. | ||
978 | .Pp | ||
979 | Many of the configuration file options are identical to command line | ||
980 | options. | ||
981 | Where the option is present in the configuration file and the command line, | ||
982 | the command line value is used. | ||
983 | Where an option is described as mandatory, then it must be present in | ||
984 | the configuration file or the command line equivalent | ||
985 | .Pq if any | ||
986 | used. | ||
987 | .Bl -tag -width "XXXX" | ||
988 | .It Ar certificate | ||
989 | The same as | ||
990 | .Fl cert . | ||
991 | It gives the file containing the CA certificate. | ||
992 | Mandatory. | ||
993 | .It Ar copy_extensions | ||
994 | Determines how extensions in certificate requests should be handled. | ||
995 | If set to | ||
996 | .Ar none | ||
997 | or this option is not present, then extensions are | ||
998 | ignored and not copied to the certificate. | ||
999 | If set to | ||
1000 | .Ar copy , | ||
1001 | then any extensions present in the request that are not already present | ||
1002 | are copied to the certificate. | ||
1003 | If set to | ||
1004 | .Ar copyall , | ||
1005 | then all extensions in the request are copied to the certificate: | ||
1006 | if the extension is already present in the certificate it is deleted first. | ||
1007 | See the | ||
1008 | .Sx CA WARNINGS | ||
1009 | section before using this option. | ||
1010 | .Pp | ||
1011 | The main use of this option is to allow a certificate request to supply | ||
1012 | values for certain extensions such as | ||
1013 | .Em subjectAltName . | ||
1014 | .It Ar crl_extensions | ||
1015 | The same as | ||
1016 | .Fl crlexts . | ||
1017 | .It Ar crlnumber | ||
1018 | A text file containing the next CRL number to use in hex. | ||
1019 | The CRL number will be inserted in the CRLs only if this file exists. | ||
1020 | If this file is present, it must contain a valid CRL number. | ||
1021 | .It Ar database | ||
1022 | The text database file to use. | ||
1023 | Mandatory. | ||
1024 | This file must be present, though initially it will be empty. | ||
1025 | .It Ar default_crl_hours , default_crl_days | ||
1026 | The same as the | ||
1027 | .Fl crlhours | ||
1028 | and | ||
1029 | .Fl crldays | ||
1030 | options. | ||
1031 | These will only be used if neither command line option is present. | ||
1032 | At least one of these must be present to generate a CRL. | ||
1033 | .It Ar default_days | ||
1034 | The same as the | ||
1035 | .Fl days | ||
1036 | option. | ||
1037 | The number of days to certify a certificate for. | ||
1038 | .It Ar default_enddate | ||
1039 | The same as the | ||
1040 | .Fl enddate | ||
1041 | option. | ||
1042 | Either this option or | ||
1043 | .Ar default_days | ||
1044 | .Pq or the command line equivalents | ||
1045 | must be present. | ||
1046 | .It Ar default_md | ||
1047 | The same as the | ||
1048 | .Fl md | ||
1049 | option. | ||
1050 | The message digest to use. | ||
1051 | Mandatory. | ||
1052 | .It Ar default_startdate | ||
1053 | The same as the | ||
1054 | .Fl startdate | ||
1055 | option. | ||
1056 | The start date to certify a certificate for. | ||
1057 | If not set, the current time is used. | ||
1058 | .It Ar email_in_dn | ||
1059 | The same as | ||
1060 | .Fl noemailDN . | ||
1061 | If the EMAIL field is to be removed from the DN of the certificate, | ||
1062 | simply set this to | ||
1063 | .Qq no . | ||
1064 | If not present, the default is to allow for the EMAIL field in the | ||
1065 | certificate's DN. | ||
1066 | .It Ar msie_hack | ||
1067 | The same as | ||
1068 | .Fl msie_hack . | ||
1069 | .It Ar name_opt , cert_opt | ||
1070 | These options allow the format used to display the certificate details | ||
1071 | when asking the user to confirm signing. | ||
1072 | All the options supported by the | ||
1073 | .Nm x509 | ||
1074 | utilities' | ||
1075 | .Fl nameopt | ||
1076 | and | ||
1077 | .Fl certopt | ||
1078 | switches can be used here, except that | ||
1079 | .Ar no_signame | ||
1080 | and | ||
1081 | .Ar no_sigdump | ||
1082 | are permanently set and cannot be disabled | ||
1083 | (this is because the certificate signature cannot be displayed because | ||
1084 | the certificate has not been signed at this point). | ||
1085 | .Pp | ||
1086 | For convenience, the value | ||
1087 | .Em ca_default | ||
1088 | is accepted by both to produce a reasonable output. | ||
1089 | .Pp | ||
1090 | If neither option is present, the format used in earlier versions of | ||
1091 | .Nm OpenSSL | ||
1092 | is used. | ||
1093 | Use of the old format is | ||
1094 | .Em strongly | ||
1095 | discouraged because it only displays fields mentioned in the | ||
1096 | .Ar policy | ||
1097 | section, | ||
1098 | mishandles multicharacter string types and does not display extensions. | ||
1099 | .It Ar new_certs_dir | ||
1100 | The same as the | ||
1101 | .Fl outdir | ||
1102 | command line option. | ||
1103 | It specifies the directory where new certificates will be placed. | ||
1104 | Mandatory. | ||
1105 | .It Ar oid_file | ||
1106 | This specifies a file containing additional object identifiers. | ||
1107 | Each line of the file should consist of the numerical form of the | ||
1108 | object identifier followed by whitespace, then the short name followed | ||
1109 | by whitespace and finally the long name. | ||
1110 | .It Ar oid_section | ||
1111 | This specifies a section in the configuration file containing extra | ||
1112 | object identifiers. | ||
1113 | Each line should consist of the short name of the object identifier | ||
1114 | followed by | ||
1115 | .Sq = | ||
1116 | and the numerical form. | ||
1117 | The short and long names are the same when this option is used. | ||
1118 | .It Ar policy | ||
1119 | The same as | ||
1120 | .Fl policy . | ||
1121 | Mandatory. | ||
1122 | See the | ||
1123 | .Sx CA POLICY FORMAT | ||
1124 | section for more information. | ||
1125 | .It Ar preserve | ||
1126 | The same as | ||
1127 | .Fl preserveDN . | ||
1128 | .It Ar private_key | ||
1129 | Same as the | ||
1130 | .Fl keyfile | ||
1131 | option. | ||
1132 | The file containing the CA private key. | ||
1133 | Mandatory. | ||
1134 | .It Ar serial | ||
1135 | A text file containing the next serial number to use in hex. | ||
1136 | Mandatory. | ||
1137 | This file must be present and contain a valid serial number. | ||
1138 | .It Ar unique_subject | ||
1139 | If the value | ||
1140 | .Ar yes | ||
1141 | is given, the valid certificate entries in the | ||
1142 | database must have unique subjects. | ||
1143 | If the value | ||
1144 | .Ar no | ||
1145 | is given, | ||
1146 | several valid certificate entries may have the exact same subject. | ||
1147 | The default value is | ||
1148 | .Ar yes . | ||
1149 | .It Ar x509_extensions | ||
1150 | The same as | ||
1151 | .Fl extensions . | ||
1152 | .El | ||
1153 | .Sh CA POLICY FORMAT | ||
1154 | The policy section consists of a set of variables corresponding to | ||
1155 | certificate DN fields. | ||
1156 | If the value is | ||
1157 | .Qq match , | ||
1158 | then the field value must match the same field in the CA certificate. | ||
1159 | If the value is | ||
1160 | .Qq supplied , | ||
1161 | then it must be present. | ||
1162 | If the value is | ||
1163 | .Qq optional , | ||
1164 | then it may be present. | ||
1165 | Any fields not mentioned in the policy section | ||
1166 | are silently deleted, unless the | ||
1167 | .Fl preserveDN | ||
1168 | option is set, | ||
1169 | but this can be regarded more of a quirk than intended behaviour. | ||
1170 | .Sh SPKAC FORMAT | ||
1171 | The input to the | ||
1172 | .Fl spkac | ||
1173 | command line option is a Netscape signed public key and challenge. | ||
1174 | This will usually come from the | ||
1175 | .Em KEYGEN | ||
1176 | tag in an HTML form to create a new private key. | ||
1177 | It is, however, possible to create SPKACs using the | ||
1178 | .Nm spkac | ||
1179 | utility. | ||
1180 | .Pp | ||
1181 | The file should contain the variable SPKAC set to the value of | ||
1182 | the SPKAC and also the required DN components as name value pairs. | ||
1183 | If it's necessary to include the same component twice, | ||
1184 | then it can be preceded by a number and a | ||
1185 | .Sq \&. . | ||
1186 | .Sh CA EXAMPLES | ||
1187 | .Sy Note : | ||
1188 | these examples assume that the | ||
1189 | .Nm ca | ||
1190 | directory structure is already set up and the relevant files already exist. | ||
1191 | This usually involves creating a CA certificate and private key with | ||
1192 | .Cm req , | ||
1193 | a serial number file and an empty index file and placing them in | ||
1194 | the relevant directories. | ||
1195 | .Pp | ||
1196 | To use the sample configuration file below, the directories | ||
1197 | .Pa demoCA , | ||
1198 | .Pa demoCA/private | ||
1199 | and | ||
1200 | .Pa demoCA/newcerts | ||
1201 | would be created. | ||
1202 | The CA certificate would be copied to | ||
1203 | .Pa demoCA/cacert.pem | ||
1204 | and its private key to | ||
1205 | .Pa demoCA/private/cakey.pem . | ||
1206 | A file | ||
1207 | .Pa demoCA/serial | ||
1208 | would be created containing, for example, | ||
1209 | .Qq 01 | ||
1210 | and the empty index file | ||
1211 | .Pa demoCA/index.txt . | ||
1212 | .Pp | ||
1213 | Sign a certificate request: | ||
1214 | .Pp | ||
1215 | .Dl $ openssl ca -in req.pem -out newcert.pem | ||
1216 | .Pp | ||
1217 | Sign a certificate request, using CA extensions: | ||
1218 | .Pp | ||
1219 | .Dl $ openssl ca -in req.pem -extensions v3_ca -out newcert.pem | ||
1220 | .Pp | ||
1221 | Generate a CRL: | ||
1222 | .Pp | ||
1223 | .Dl $ openssl ca -gencrl -out crl.pem | ||
1224 | .Pp | ||
1225 | Sign several requests: | ||
1226 | .Pp | ||
1227 | .Dl $ openssl ca -infiles req1.pem req2.pem req3.pem | ||
1228 | .Pp | ||
1229 | Certify a Netscape SPKAC: | ||
1230 | .Pp | ||
1231 | .Dl $ openssl ca -spkac spkac.txt | ||
1232 | .Pp | ||
1233 | A sample SPKAC file | ||
1234 | .Pq the SPKAC line has been truncated for clarity : | ||
1235 | .Bd -literal -offset indent | ||
1236 | SPKAC=MIG0MGAwXDANBgkqhkiG9w0BAQEFAANLADBIAkEAn7PDhCeV/xIxUg8V70YRxK | ||
1237 | CN=Steve Test | ||
1238 | emailAddress=steve@openssl.org | ||
1239 | 0.OU=OpenSSL Group | ||
1240 | 1.OU=Another Group | ||
1241 | .Ed | ||
1242 | .Pp | ||
1243 | A sample configuration file with the relevant sections for | ||
1244 | .Nm ca : | ||
1245 | .Bd -literal | ||
1246 | \& [ ca ] | ||
1247 | \& default_ca = CA_default # The default ca section | ||
1248 | |||
1249 | \& [ CA_default ] | ||
1250 | |||
1251 | \& dir = ./demoCA # top dir | ||
1252 | \& database = $dir/index.txt # index file | ||
1253 | \& new_certs_dir = $dir/newcerts # new certs dir | ||
1254 | |||
1255 | \& certificate = $dir/cacert.pem # The CA cert | ||
1256 | \& serial = $dir/serial # serial no file | ||
1257 | \& private_key = $dir/private/cakey.pem# CA private key | ||
1258 | |||
1259 | \& default_days = 365 # how long to certify for | ||
1260 | \& default_crl_days= 30 # how long before next CRL | ||
1261 | \& default_md = md5 # md to use | ||
1262 | |||
1263 | \& policy = policy_any # default policy | ||
1264 | \& email_in_dn = no # Don't add the email into cert DN | ||
1265 | |||
1266 | \& name_opt = ca_default # Subject name display option | ||
1267 | \& cert_opt = ca_default # Certificate display option | ||
1268 | \& copy_extensions = none #Don't copy extensions from request | ||
1269 | |||
1270 | \& [ policy_any ] | ||
1271 | \& countryName = supplied | ||
1272 | \& stateOrProvinceName = optional | ||
1273 | \& organizationName = optional | ||
1274 | \& organizationalUnitName = optional | ||
1275 | \& commonName = supplied | ||
1276 | \& emailAddress = optional | ||
1277 | .Ed | ||
1278 | .Sh CA FILES | ||
1279 | .Sy Note : | ||
1280 | the location of all files can change either by compile time options, | ||
1281 | configuration file entries, environment variables, or command line options. | ||
1282 | The values below reflect the default values. | ||
1283 | .Bd -literal -offset indent | ||
1284 | /etc/ssl/openssl.cnf - master configuration file | ||
1285 | \&./demoCA - main CA directory | ||
1286 | \&./demoCA/cacert.pem - CA certificate | ||
1287 | \&./demoCA/private/cakey.pem - CA private key | ||
1288 | \&./demoCA/serial - CA serial number file | ||
1289 | \&./demoCA/serial.old - CA serial number backup file | ||
1290 | \&./demoCA/index.txt - CA text database file | ||
1291 | \&./demoCA/index.txt.old - CA text database backup file | ||
1292 | \&./demoCA/certs - certificate output file | ||
1293 | \&./demoCA/.rnd - CA random seed information | ||
1294 | .Ed | ||
1295 | .Sh CA ENVIRONMENT VARIABLES | ||
1296 | .Ev OPENSSL_CONF | ||
1297 | reflects the location of the master configuration file; | ||
1298 | it can be overridden by the | ||
1299 | .Fl config | ||
1300 | command line option. | ||
1301 | .Sh CA RESTRICTIONS | ||
1302 | The text database index file is a critical part of the process, | ||
1303 | and if corrupted it can be difficult to fix. | ||
1304 | It is theoretically possible to rebuild the index file from all the | ||
1305 | issued certificates and a current CRL; however there is no option to do this. | ||
1306 | .Pp | ||
1307 | V2 CRL features like delta CRLs are not currently supported. | ||
1308 | .Pp | ||
1309 | Although several requests can be input and handled at once, it is only | ||
1310 | possible to include one SPKAC or self-signed certificate. | ||
1311 | .Sh CA BUGS | ||
1312 | The use of an in-memory text database can cause problems when large | ||
1313 | numbers of certificates are present because, as the name implies, | ||
1314 | the database has to be kept in memory. | ||
1315 | .Pp | ||
1316 | It is not possible to certify two certificates with the same DN; this | ||
1317 | is a side effect of how the text database is indexed and it cannot easily | ||
1318 | be fixed without introducing other problems. | ||
1319 | Some S/MIME clients can use two certificates with the same DN for separate | ||
1320 | signing and encryption keys. | ||
1321 | .Pp | ||
1322 | The | ||
1323 | .Nm ca | ||
1324 | command really needs rewriting or the required functionality | ||
1325 | exposed at either a command or interface level so a more friendly utility | ||
1326 | .Pq perl script or GUI | ||
1327 | can handle things properly. | ||
1328 | The scripts | ||
1329 | .Nm CA.sh | ||
1330 | and | ||
1331 | .Nm CA.pl | ||
1332 | help a little but not very much. | ||
1333 | .Pp | ||
1334 | Any fields in a request that are not present in a policy are silently | ||
1335 | deleted. | ||
1336 | This does not happen if the | ||
1337 | .Fl preserveDN | ||
1338 | option is used. | ||
1339 | To enforce the absence of the EMAIL field within the DN, as suggested | ||
1340 | by RFCs, regardless of the contents of the request's subject the | ||
1341 | .Fl noemailDN | ||
1342 | option can be used. | ||
1343 | The behaviour should be more friendly and configurable. | ||
1344 | .Pp | ||
1345 | Cancelling some commands by refusing to certify a certificate can | ||
1346 | create an empty file. | ||
1347 | .Sh CA WARNINGS | ||
1348 | The | ||
1349 | .Nm ca | ||
1350 | command is quirky and at times downright unfriendly. | ||
1351 | .Pp | ||
1352 | The | ||
1353 | .Nm ca | ||
1354 | utility was originally meant as an example of how to do things in a CA. | ||
1355 | It was not supposed to be used as a full blown CA itself: | ||
1356 | nevertheless some people are using it for this purpose. | ||
1357 | .Pp | ||
1358 | The | ||
1359 | .Nm ca | ||
1360 | command is effectively a single user command: no locking is done on the | ||
1361 | various files, and attempts to run more than one | ||
1362 | .Nm ca | ||
1363 | command on the same database can have unpredictable results. | ||
1364 | .Pp | ||
1365 | The | ||
1366 | .Ar copy_extensions | ||
1367 | option should be used with caution. | ||
1368 | If care is not taken, it can be a security risk. | ||
1369 | For example, if a certificate request contains a | ||
1370 | .Em basicConstraints | ||
1371 | extension with CA:TRUE and the | ||
1372 | .Ar copy_extensions | ||
1373 | value is set to | ||
1374 | .Ar copyall | ||
1375 | and the user does not spot | ||
1376 | this when the certificate is displayed, then this will hand the requestor | ||
1377 | a valid CA certificate. | ||
1378 | .Pp | ||
1379 | This situation can be avoided by setting | ||
1380 | .Ar copy_extensions | ||
1381 | to | ||
1382 | .Ar copy | ||
1383 | and including | ||
1384 | .Em basicConstraints | ||
1385 | with CA:FALSE in the configuration file. | ||
1386 | Then if the request contains a | ||
1387 | .Em basicConstraints | ||
1388 | extension, it will be ignored. | ||
1389 | .Pp | ||
1390 | It is advisable to also include values for other extensions such | ||
1391 | as | ||
1392 | .Ar keyUsage | ||
1393 | to prevent a request supplying its own values. | ||
1394 | .Pp | ||
1395 | Additional restrictions can be placed on the CA certificate itself. | ||
1396 | For example if the CA certificate has: | ||
1397 | .Pp | ||
1398 | .D1 basicConstraints = CA:TRUE, pathlen:0 | ||
1399 | .Pp | ||
1400 | then even if a certificate is issued with CA:TRUE it will not be valid. | ||
1401 | .\" | ||
1402 | .\" CIPHERS | ||
1403 | .\" | ||
1404 | .Sh CIPHERS | ||
1405 | .Nm openssl ciphers | ||
1406 | .Op Fl hVv | ||
1407 | .Op Fl ssl3 | tls1 | ||
1408 | .Op Ar cipherlist | ||
1409 | .Pp | ||
1410 | The | ||
1411 | .Nm ciphers | ||
1412 | command converts | ||
1413 | .Nm OpenSSL | ||
1414 | cipher lists into ordered SSL cipher preference lists. | ||
1415 | It can be used as a test tool to determine the appropriate cipherlist. | ||
1416 | .Pp | ||
1417 | The options are as follows: | ||
1418 | .Bl -tag -width Ds | ||
1419 | .It Fl h , \&? | ||
1420 | Print a brief usage message. | ||
1421 | .It Fl ssl3 | ||
1422 | Only include SSL v3 ciphers. | ||
1423 | .It Fl tls1 | ||
1424 | Only include TLS v1 ciphers. | ||
1425 | .It Fl V | ||
1426 | Like | ||
1427 | .Fl v , | ||
1428 | but include cipher suite codes in output (hex format). | ||
1429 | .It Fl v | ||
1430 | Verbose option. | ||
1431 | List ciphers with a complete description of protocol version | ||
1432 | .Pq SSLv3, which includes TLS , | ||
1433 | key exchange, authentication, encryption and mac algorithms used along with | ||
1434 | any key size restrictions and whether the algorithm is classed as an | ||
1435 | .Em export | ||
1436 | cipher. | ||
1437 | Note that without the | ||
1438 | .Fl v | ||
1439 | option, ciphers may seem to appear twice in a cipher list; | ||
1440 | this is when similar ciphers are available for SSL v3/TLS v1. | ||
1441 | .It Ar cipherlist | ||
1442 | A cipher list to convert to a cipher preference list. | ||
1443 | If it is not included, the default cipher list will be used. | ||
1444 | The format is described below. | ||
1445 | .El | ||
1446 | .Sh CIPHERS LIST FORMAT | ||
1447 | The cipher list consists of one or more | ||
1448 | .Em cipher strings | ||
1449 | separated by colons. | ||
1450 | Commas or spaces are also acceptable separators, but colons are normally used. | ||
1451 | .Pp | ||
1452 | The actual | ||
1453 | .Em cipher string | ||
1454 | can take several different forms: | ||
1455 | .Pp | ||
1456 | It can consist of a single cipher suite such as | ||
1457 | .Em RC4-SHA . | ||
1458 | .Pp | ||
1459 | It can represent a list of cipher suites containing a certain algorithm, | ||
1460 | or cipher suites of a certain type. | ||
1461 | For example | ||
1462 | .Em SHA1 | ||
1463 | represents all cipher suites using the digest algorithm SHA1, and | ||
1464 | .Em SSLv3 | ||
1465 | represents all SSL v3 algorithms. | ||
1466 | .Pp | ||
1467 | Lists of cipher suites can be combined in a single | ||
1468 | .Em cipher string | ||
1469 | using the | ||
1470 | .Sq + | ||
1471 | character. | ||
1472 | This is used as a logical | ||
1473 | .Em and | ||
1474 | operation. | ||
1475 | For example, | ||
1476 | .Em SHA1+DES | ||
1477 | represents all cipher suites containing the SHA1 and the DES algorithms. | ||
1478 | .Pp | ||
1479 | Each cipher string can be optionally preceded by the characters | ||
1480 | .Sq \&! , | ||
1481 | .Sq - , | ||
1482 | or | ||
1483 | .Sq + . | ||
1484 | .Pp | ||
1485 | If | ||
1486 | .Sq !\& | ||
1487 | is used, then the ciphers are permanently deleted from the list. | ||
1488 | The ciphers deleted can never reappear in the list even if they are | ||
1489 | explicitly stated. | ||
1490 | .Pp | ||
1491 | If | ||
1492 | .Sq - | ||
1493 | is used, then the ciphers are deleted from the list, but some or | ||
1494 | all of the ciphers can be added again by later options. | ||
1495 | .Pp | ||
1496 | If | ||
1497 | .Sq + | ||
1498 | is used, then the ciphers are moved to the end of the list. | ||
1499 | This option doesn't add any new ciphers, it just moves matching existing ones. | ||
1500 | .Pp | ||
1501 | If none of these characters is present, the string is just interpreted | ||
1502 | as a list of ciphers to be appended to the current preference list. | ||
1503 | If the list includes any ciphers already present, they will be ignored; | ||
1504 | that is, they will not be moved to the end of the list. | ||
1505 | .Pp | ||
1506 | Additionally, the cipher string | ||
1507 | .Em @STRENGTH | ||
1508 | can be used at any point to sort the current cipher list in order of | ||
1509 | encryption algorithm key length. | ||
1510 | .Sh CIPHERS STRINGS | ||
1511 | The following is a list of all permitted cipher strings and their meanings. | ||
1512 | .Bl -tag -width "XXXX" | ||
1513 | .It Ar DEFAULT | ||
1514 | The default cipher list. | ||
1515 | This is determined at compile time and is currently | ||
1516 | .Ar ALL:!aNULL:!eNULL:!SSLv2 . | ||
1517 | This must be the first | ||
1518 | .Ar cipher string | ||
1519 | specified. | ||
1520 | .It Ar COMPLEMENTOFDEFAULT | ||
1521 | The ciphers included in | ||
1522 | .Ar ALL , | ||
1523 | but not enabled by default. | ||
1524 | Currently this is | ||
1525 | .Ar ADH . | ||
1526 | Note that this rule does not cover | ||
1527 | .Ar eNULL , | ||
1528 | which is not included by | ||
1529 | .Ar ALL | ||
1530 | (use | ||
1531 | .Ar COMPLEMENTOFALL | ||
1532 | if necessary). | ||
1533 | .It Ar ALL | ||
1534 | All cipher suites except the | ||
1535 | .Ar eNULL | ||
1536 | ciphers which must be explicitly enabled. | ||
1537 | .It Ar COMPLEMENTOFALL | ||
1538 | The cipher suites not enabled by | ||
1539 | .Ar ALL , | ||
1540 | currently being | ||
1541 | .Ar eNULL . | ||
1542 | .It Ar HIGH | ||
1543 | .Qq High | ||
1544 | encryption cipher suites. | ||
1545 | This currently means those with key lengths larger than 128 bits. | ||
1546 | .It Ar MEDIUM | ||
1547 | .Qq Medium | ||
1548 | encryption cipher suites, currently those using 128-bit encryption. | ||
1549 | .It Ar LOW | ||
1550 | .Qq Low | ||
1551 | encryption cipher suites, currently those using 64- or 56-bit encryption | ||
1552 | algorithms, but excluding export cipher suites. | ||
1553 | .It Ar EXP , EXPORT | ||
1554 | Export encryption algorithms. | ||
1555 | Including 40- and 56-bit algorithms. | ||
1556 | .It Ar EXPORT40 | ||
1557 | 40-bit export encryption algorithms. | ||
1558 | .It Ar eNULL , NULL | ||
1559 | The | ||
1560 | .Qq NULL | ||
1561 | ciphers; that is, those offering no encryption. | ||
1562 | Because these offer no encryption at all and are a security risk, | ||
1563 | they are disabled unless explicitly included. | ||
1564 | .It Ar aNULL | ||
1565 | The cipher suites offering no authentication. | ||
1566 | This is currently the anonymous DH algorithms. | ||
1567 | These cipher suites are vulnerable to a | ||
1568 | .Qq man in the middle | ||
1569 | attack, so their use is normally discouraged. | ||
1570 | .It Ar kRSA , RSA | ||
1571 | Cipher suites using RSA key exchange. | ||
1572 | .It Ar kEDH | ||
1573 | Cipher suites using ephemeral DH key agreement. | ||
1574 | .It Ar aRSA | ||
1575 | Cipher suites using RSA authentication, i.e. the certificates carry RSA keys. | ||
1576 | .It Ar aDSS , DSS | ||
1577 | Cipher suites using DSS authentication, i.e. the certificates carry DSS keys. | ||
1578 | .It Ar TLSv1 , SSLv3 | ||
1579 | TLS v1.0 or SSL v3.0 cipher suites, respectively. | ||
1580 | .It Ar DH | ||
1581 | Cipher suites using DH, including anonymous DH. | ||
1582 | .It Ar ADH | ||
1583 | Anonymous DH cipher suites. | ||
1584 | .It Ar AES | ||
1585 | Cipher suites using AES. | ||
1586 | .It Ar 3DES | ||
1587 | Cipher suites using triple DES. | ||
1588 | .It Ar DES | ||
1589 | Cipher suites using DES | ||
1590 | .Pq not triple DES . | ||
1591 | .It Ar RC4 | ||
1592 | Cipher suites using RC4. | ||
1593 | .It Ar RC2 | ||
1594 | Cipher suites using RC2. | ||
1595 | .It Ar MD5 | ||
1596 | Cipher suites using MD5. | ||
1597 | .It Ar SHA1 , SHA | ||
1598 | Cipher suites using SHA1. | ||
1599 | .El | ||
1600 | .Sh CIPHERS SUITE NAMES | ||
1601 | The following lists give the SSL or TLS cipher suites names from the | ||
1602 | relevant specification and their | ||
1603 | .Nm OpenSSL | ||
1604 | equivalents. | ||
1605 | It should be noted that several cipher suite names do not include the | ||
1606 | authentication used, e.g. DES-CBC3-SHA. | ||
1607 | In these cases, RSA authentication is used. | ||
1608 | .Ss SSL v3.0 cipher suites | ||
1609 | .Bd -unfilled -offset indent | ||
1610 | SSL_RSA_WITH_NULL_MD5 NULL-MD5 | ||
1611 | SSL_RSA_WITH_NULL_SHA NULL-SHA | ||
1612 | SSL_RSA_EXPORT_WITH_RC4_40_MD5 EXP-RC4-MD5 | ||
1613 | SSL_RSA_WITH_RC4_128_MD5 RC4-MD5 | ||
1614 | SSL_RSA_WITH_RC4_128_SHA RC4-SHA | ||
1615 | SSL_RSA_EXPORT_WITH_RC2_CBC_40_MD5 EXP-RC2-CBC-MD5 | ||
1616 | SSL_RSA_WITH_IDEA_CBC_SHA IDEA-CBC-SHA | ||
1617 | SSL_RSA_EXPORT_WITH_DES40_CBC_SHA EXP-DES-CBC-SHA | ||
1618 | SSL_RSA_WITH_DES_CBC_SHA DES-CBC-SHA | ||
1619 | SSL_RSA_WITH_3DES_EDE_CBC_SHA DES-CBC3-SHA | ||
1620 | |||
1621 | SSL_DH_DSS_EXPORT_WITH_DES40_CBC_SHA Not implemented. | ||
1622 | SSL_DH_DSS_WITH_DES_CBC_SHA Not implemented. | ||
1623 | SSL_DH_DSS_WITH_3DES_EDE_CBC_SHA Not implemented. | ||
1624 | SSL_DH_RSA_EXPORT_WITH_DES40_CBC_SHA Not implemented. | ||
1625 | SSL_DH_RSA_WITH_DES_CBC_SHA Not implemented. | ||
1626 | SSL_DH_RSA_WITH_3DES_EDE_CBC_SHA Not implemented. | ||
1627 | SSL_DHE_DSS_EXPORT_WITH_DES40_CBC_SHA EXP-EDH-DSS-DES-CBC-SHA | ||
1628 | SSL_DHE_DSS_WITH_DES_CBC_SHA EDH-DSS-CBC-SHA | ||
1629 | SSL_DHE_DSS_WITH_3DES_EDE_CBC_SHA EDH-DSS-DES-CBC3-SHA | ||
1630 | SSL_DHE_RSA_EXPORT_WITH_DES40_CBC_SHA EXP-EDH-RSA-DES-CBC-SHA | ||
1631 | SSL_DHE_RSA_WITH_DES_CBC_SHA EDH-RSA-DES-CBC-SHA | ||
1632 | SSL_DHE_RSA_WITH_3DES_EDE_CBC_SHA EDH-RSA-DES-CBC3-SHA | ||
1633 | |||
1634 | SSL_DH_anon_EXPORT_WITH_RC4_40_MD5 EXP-ADH-RC4-MD5 | ||
1635 | SSL_DH_anon_WITH_RC4_128_MD5 ADH-RC4-MD5 | ||
1636 | SSL_DH_anon_EXPORT_WITH_DES40_CBC_SHA EXP-ADH-DES-CBC-SHA | ||
1637 | SSL_DH_anon_WITH_DES_CBC_SHA ADH-DES-CBC-SHA | ||
1638 | SSL_DH_anon_WITH_3DES_EDE_CBC_SHA ADH-DES-CBC3-SHA | ||
1639 | |||
1640 | SSL_FORTEZZA_KEA_WITH_NULL_SHA Not implemented. | ||
1641 | SSL_FORTEZZA_KEA_WITH_FORTEZZA_CBC_SHA Not implemented. | ||
1642 | SSL_FORTEZZA_KEA_WITH_RC4_128_SHA Not implemented. | ||
1643 | .Ed | ||
1644 | .Ss TLS v1.0 cipher suites | ||
1645 | .Bd -unfilled -offset indent | ||
1646 | TLS_RSA_WITH_NULL_MD5 NULL-MD5 | ||
1647 | TLS_RSA_WITH_NULL_SHA NULL-SHA | ||
1648 | TLS_RSA_EXPORT_WITH_RC4_40_MD5 EXP-RC4-MD5 | ||
1649 | TLS_RSA_WITH_RC4_128_MD5 RC4-MD5 | ||
1650 | TLS_RSA_WITH_RC4_128_SHA RC4-SHA | ||
1651 | TLS_RSA_EXPORT_WITH_RC2_CBC_40_MD5 EXP-RC2-CBC-MD5 | ||
1652 | TLS_RSA_WITH_IDEA_CBC_SHA IDEA-CBC-SHA | ||
1653 | TLS_RSA_EXPORT_WITH_DES40_CBC_SHA EXP-DES-CBC-SHA | ||
1654 | TLS_RSA_WITH_DES_CBC_SHA DES-CBC-SHA | ||
1655 | TLS_RSA_WITH_3DES_EDE_CBC_SHA DES-CBC3-SHA | ||
1656 | |||
1657 | TLS_DH_DSS_EXPORT_WITH_DES40_CBC_SHA Not implemented. | ||
1658 | TLS_DH_DSS_WITH_DES_CBC_SHA Not implemented. | ||
1659 | TLS_DH_DSS_WITH_3DES_EDE_CBC_SHA Not implemented. | ||
1660 | TLS_DH_RSA_EXPORT_WITH_DES40_CBC_SHA Not implemented. | ||
1661 | TLS_DH_RSA_WITH_DES_CBC_SHA Not implemented. | ||
1662 | TLS_DH_RSA_WITH_3DES_EDE_CBC_SHA Not implemented. | ||
1663 | TLS_DHE_DSS_EXPORT_WITH_DES40_CBC_SHA EXP-EDH-DSS-DES-CBC-SHA | ||
1664 | TLS_DHE_DSS_WITH_DES_CBC_SHA EDH-DSS-CBC-SHA | ||
1665 | TLS_DHE_DSS_WITH_3DES_EDE_CBC_SHA EDH-DSS-DES-CBC3-SHA | ||
1666 | TLS_DHE_RSA_EXPORT_WITH_DES40_CBC_SHA EXP-EDH-RSA-DES-CBC-SHA | ||
1667 | TLS_DHE_RSA_WITH_DES_CBC_SHA EDH-RSA-DES-CBC-SHA | ||
1668 | TLS_DHE_RSA_WITH_3DES_EDE_CBC_SHA EDH-RSA-DES-CBC3-SHA | ||
1669 | |||
1670 | TLS_DH_anon_EXPORT_WITH_RC4_40_MD5 EXP-ADH-RC4-MD5 | ||
1671 | TLS_DH_anon_WITH_RC4_128_MD5 ADH-RC4-MD5 | ||
1672 | TLS_DH_anon_EXPORT_WITH_DES40_CBC_SHA EXP-ADH-DES-CBC-SHA | ||
1673 | TLS_DH_anon_WITH_DES_CBC_SHA ADH-DES-CBC-SHA | ||
1674 | TLS_DH_anon_WITH_3DES_EDE_CBC_SHA ADH-DES-CBC3-SHA | ||
1675 | .Ed | ||
1676 | .Ss AES ciphersuites from RFC 3268, extending TLS v1.0 | ||
1677 | .Bd -unfilled -offset indent | ||
1678 | TLS_RSA_WITH_AES_128_CBC_SHA AES128-SHA | ||
1679 | TLS_RSA_WITH_AES_256_CBC_SHA AES256-SHA | ||
1680 | |||
1681 | TLS_DH_DSS_WITH_AES_128_CBC_SHA Not implemented. | ||
1682 | TLS_DH_DSS_WITH_AES_256_CBC_SHA Not implemented. | ||
1683 | TLS_DH_RSA_WITH_AES_128_CBC_SHA Not implemented. | ||
1684 | TLS_DH_RSA_WITH_AES_256_CBC_SHA Not implemented. | ||
1685 | |||
1686 | TLS_DHE_DSS_WITH_AES_128_CBC_SHA DHE-DSS-AES128-SHA | ||
1687 | TLS_DHE_DSS_WITH_AES_256_CBC_SHA DHE-DSS-AES256-SHA | ||
1688 | TLS_DHE_RSA_WITH_AES_128_CBC_SHA DHE-RSA-AES128-SHA | ||
1689 | TLS_DHE_RSA_WITH_AES_256_CBC_SHA DHE-RSA-AES256-SHA | ||
1690 | |||
1691 | TLS_DH_anon_WITH_AES_128_CBC_SHA ADH-AES128-SHA | ||
1692 | TLS_DH_anon_WITH_AES_256_CBC_SHA ADH-AES256-SHA | ||
1693 | .Ed | ||
1694 | .Ss GOST ciphersuites from draft-chudov-cryptopro-cptls, extending TLS v1.0 | ||
1695 | .Sy Note : | ||
1696 | These ciphers require an engine which includes GOST cryptographic | ||
1697 | algorithms, such as the | ||
1698 | .Dq ccgost | ||
1699 | engine, included in the OpenSSL distribution. | ||
1700 | .Bd -unfilled -offset indent | ||
1701 | TLS_GOSTR341094_WITH_28147_CNT_IMIT GOST94-GOST89-GOST89 | ||
1702 | TLS_GOSTR341001_WITH_28147_CNT_IMIT GOST2001-GOST89-GOST89 | ||
1703 | TLS_GOSTR341094_WITH_NULL_GOSTR3411 GOST94-NULL-GOST94 | ||
1704 | TLS_GOSTR341001_WITH_NULL_GOSTR3411 GOST2001-NULL-GOST94 | ||
1705 | .Ed | ||
1706 | .Ss Additional Export 1024 and other cipher suites | ||
1707 | .Sy Note : | ||
1708 | These ciphers can also be used in SSL v3. | ||
1709 | .Bd -unfilled -offset indent | ||
1710 | TLS_RSA_EXPORT1024_WITH_DES_CBC_SHA EXP1024-DES-CBC-SHA | ||
1711 | TLS_RSA_EXPORT1024_WITH_RC4_56_SHA EXP1024-RC4-SHA | ||
1712 | TLS_DHE_DSS_EXPORT1024_WITH_DES_CBC_SHA EXP1024-DHE-DSS-DES-CBC-SHA | ||
1713 | TLS_DHE_DSS_EXPORT1024_WITH_RC4_56_SHA EXP1024-DHE-DSS-RC4-SHA | ||
1714 | TLS_DHE_DSS_WITH_RC4_128_SHA DHE-DSS-RC4-SHA | ||
1715 | .Ed | ||
1716 | .Sh CIPHERS NOTES | ||
1717 | The non-ephemeral DH modes are currently unimplemented in | ||
1718 | .Nm OpenSSL | ||
1719 | because there is no support for DH certificates. | ||
1720 | .Pp | ||
1721 | Some compiled versions of | ||
1722 | .Nm OpenSSL | ||
1723 | may not include all the ciphers | ||
1724 | listed here because some ciphers were excluded at compile time. | ||
1725 | .Sh CIPHERS EXAMPLES | ||
1726 | Verbose listing of all | ||
1727 | .Nm OpenSSL | ||
1728 | ciphers including NULL ciphers: | ||
1729 | .Pp | ||
1730 | .Dl $ openssl ciphers -v 'ALL:eNULL' | ||
1731 | .Pp | ||
1732 | Include all ciphers except NULL and anonymous DH then sort by | ||
1733 | strength: | ||
1734 | .Pp | ||
1735 | .Dl $ openssl ciphers -v 'ALL:!ADH:@STRENGTH' | ||
1736 | .Pp | ||
1737 | Include only 3DES ciphers and then place RSA ciphers last: | ||
1738 | .Pp | ||
1739 | .Dl $ openssl ciphers -v '3DES:+RSA' | ||
1740 | .Pp | ||
1741 | Include all RC4 ciphers but leave out those without authentication: | ||
1742 | .Pp | ||
1743 | .Dl $ openssl ciphers -v 'RC4:!COMPLEMENTOFDEFAULT' | ||
1744 | .Pp | ||
1745 | Include all ciphers with RSA authentication but leave out ciphers without | ||
1746 | encryption: | ||
1747 | .Pp | ||
1748 | .Dl $ openssl ciphers -v 'RSA:!COMPLEMENTOFALL' | ||
1749 | .Sh CIPHERS HISTORY | ||
1750 | The | ||
1751 | .Ar COMPLEMENTOFALL | ||
1752 | and | ||
1753 | .Ar COMPLEMENTOFDEFAULT | ||
1754 | selection options were added in | ||
1755 | .Nm OpenSSL | ||
1756 | 0.9.7. | ||
1757 | .Pp | ||
1758 | The | ||
1759 | .Fl V | ||
1760 | option of the | ||
1761 | .Nm ciphers | ||
1762 | command was added in | ||
1763 | .Nm OpenSSL | ||
1764 | 1.0.0. | ||
1765 | .\" | ||
1766 | .\" CRL | ||
1767 | .\" | ||
1768 | .Sh CRL | ||
1769 | .nr nS 1 | ||
1770 | .Nm "openssl crl" | ||
1771 | .Bk -words | ||
1772 | .Op Fl CAfile Ar file | ||
1773 | .Op Fl CApath Ar dir | ||
1774 | .Op Fl fingerprint | ||
1775 | .Op Fl hash | ||
1776 | .Op Fl in Ar file | ||
1777 | .Op Fl inform Ar DER | PEM | ||
1778 | .Op Fl issuer | ||
1779 | .Op Fl lastupdate | ||
1780 | .Op Fl nextupdate | ||
1781 | .Op Fl noout | ||
1782 | .Op Fl out Ar file | ||
1783 | .Op Fl outform Ar DER | PEM | ||
1784 | .Op Fl text | ||
1785 | .Ek | ||
1786 | .nr nS 0 | ||
1787 | .Pp | ||
1788 | The | ||
1789 | .Nm crl | ||
1790 | command processes CRL files in DER or PEM format. | ||
1791 | .Pp | ||
1792 | The options are as follows: | ||
1793 | .Bl -tag -width Ds | ||
1794 | .It Fl CAfile Ar file | ||
1795 | Verify the signature on a CRL by looking up the issuing certificate in | ||
1796 | .Ar file . | ||
1797 | .It Fl CApath Ar directory | ||
1798 | Verify the signature on a CRL by looking up the issuing certificate in | ||
1799 | .Ar dir . | ||
1800 | This directory must be a standard certificate directory, | ||
1801 | i.e. a hash of each subject name (using | ||
1802 | .Cm x509 Fl hash ) | ||
1803 | should be linked to each certificate. | ||
1804 | .It Fl fingerprint | ||
1805 | Print the CRL fingerprint. | ||
1806 | .It Fl hash | ||
1807 | Output a hash of the issuer name. | ||
1808 | This can be used to look up CRLs in a directory by issuer name. | ||
1809 | .It Fl in Ar file | ||
1810 | This specifies the input file to read from, or standard input if this | ||
1811 | option is not specified. | ||
1812 | .It Fl inform Ar DER | PEM | ||
1813 | This specifies the input format. | ||
1814 | .Ar DER | ||
1815 | format is a DER-encoded CRL structure. | ||
1816 | .Ar PEM | ||
1817 | .Pq the default | ||
1818 | is a base64-encoded version of the DER form with header and footer lines. | ||
1819 | .It Fl issuer | ||
1820 | Output the issuer name. | ||
1821 | .It Fl lastupdate | ||
1822 | Output the | ||
1823 | .Ar lastUpdate | ||
1824 | field. | ||
1825 | .It Fl nextupdate | ||
1826 | Output the | ||
1827 | .Ar nextUpdate | ||
1828 | field. | ||
1829 | .It Fl noout | ||
1830 | Don't output the encoded version of the CRL. | ||
1831 | .It Fl out Ar file | ||
1832 | Specifies the output file to write to, or standard output by | ||
1833 | default. | ||
1834 | .It Fl outform Ar DER | PEM | ||
1835 | This specifies the output format; the options have the same meaning as the | ||
1836 | .Fl inform | ||
1837 | option. | ||
1838 | .It Fl text | ||
1839 | Print out the CRL in text form. | ||
1840 | .El | ||
1841 | .Sh CRL NOTES | ||
1842 | The PEM CRL format uses the header and footer lines: | ||
1843 | .Bd -unfilled -offset indent | ||
1844 | -----BEGIN X509 CRL----- | ||
1845 | -----END X509 CRL----- | ||
1846 | .Ed | ||
1847 | .Sh CRL EXAMPLES | ||
1848 | Convert a CRL file from PEM to DER: | ||
1849 | .Pp | ||
1850 | .Dl $ openssl crl -in crl.pem -outform DER -out crl.der | ||
1851 | .Pp | ||
1852 | Output the text form of a DER-encoded certificate: | ||
1853 | .Pp | ||
1854 | .Dl $ openssl crl -in crl.der -inform DER -text -noout | ||
1855 | .Sh CRL BUGS | ||
1856 | Ideally, it should be possible to create a CRL using appropriate options | ||
1857 | and files too. | ||
1858 | .\" | ||
1859 | .\" CRL2PKCS7 | ||
1860 | .\" | ||
1861 | .Sh CRL2PKCS7 | ||
1862 | .nr nS 1 | ||
1863 | .Nm "openssl crl2pkcs7" | ||
1864 | .Bk -words | ||
1865 | .Op Fl certfile Ar file | ||
1866 | .Op Fl in Ar file | ||
1867 | .Op Fl inform Ar DER | PEM | ||
1868 | .Op Fl nocrl | ||
1869 | .Op Fl out Ar file | ||
1870 | .Op Fl outform Ar DER | PEM | ||
1871 | .Ek | ||
1872 | .nr nS 0 | ||
1873 | .Pp | ||
1874 | The | ||
1875 | .Nm crl2pkcs7 | ||
1876 | command takes an optional CRL and one or more | ||
1877 | certificates and converts them into a PKCS#7 degenerate | ||
1878 | .Qq certificates only | ||
1879 | structure. | ||
1880 | .Pp | ||
1881 | The options are as follows: | ||
1882 | .Bl -tag -width Ds | ||
1883 | .It Fl certfile Ar file | ||
1884 | Specifies a | ||
1885 | .Ar file | ||
1886 | containing one or more certificates in PEM format. | ||
1887 | All certificates in the file will be added to the PKCS#7 structure. | ||
1888 | This option can be used more than once to read certificates from multiple | ||
1889 | files. | ||
1890 | .It Fl in Ar file | ||
1891 | This specifies the input | ||
1892 | .Ar file | ||
1893 | to read a CRL from, or standard input if this option is not specified. | ||
1894 | .It Fl inform Ar DER | PEM | ||
1895 | This specifies the CRL input format. | ||
1896 | .Ar DER | ||
1897 | format is a DER-encoded CRL structure. | ||
1898 | .Ar PEM | ||
1899 | .Pq the default | ||
1900 | is a base64-encoded version of the DER form with header and footer lines. | ||
1901 | .It Fl nocrl | ||
1902 | Normally, a CRL is included in the output file. | ||
1903 | With this option, no CRL is | ||
1904 | included in the output file and a CRL is not read from the input file. | ||
1905 | .It Fl out Ar file | ||
1906 | Specifies the output | ||
1907 | .Ar file | ||
1908 | to write the PKCS#7 structure to, or standard output by default. | ||
1909 | .It Fl outform Ar DER | PEM | ||
1910 | This specifies the PKCS#7 structure output format. | ||
1911 | .Ar DER | ||
1912 | format is a DER-encoded PKCS#7 structure. | ||
1913 | .Ar PEM | ||
1914 | .Pq the default | ||
1915 | is a base64-encoded version of the DER form with header and footer lines. | ||
1916 | .El | ||
1917 | .Sh CRL2PKCS7 EXAMPLES | ||
1918 | Create a PKCS#7 structure from a certificate and CRL: | ||
1919 | .Pp | ||
1920 | .Dl $ openssl crl2pkcs7 -in crl.pem -certfile cert.pem -out p7.pem | ||
1921 | .Pp | ||
1922 | Create a PKCS#7 structure in DER format with no CRL from several | ||
1923 | different certificates: | ||
1924 | .Bd -literal -offset indent | ||
1925 | $ openssl crl2pkcs7 -nocrl -certfile newcert.pem \e | ||
1926 | -certfile demoCA/cacert.pem -outform DER -out p7.der | ||
1927 | .Ed | ||
1928 | .Sh CRL2PKCS7 NOTES | ||
1929 | The output file is a PKCS#7 signed data structure containing no signers and | ||
1930 | just certificates and an optional CRL. | ||
1931 | .Pp | ||
1932 | This utility can be used to send certificates and CAs to Netscape as part of | ||
1933 | the certificate enrollment process. | ||
1934 | This involves sending the DER-encoded output | ||
1935 | as MIME type | ||
1936 | .Em application/x-x509-user-cert . | ||
1937 | .Pp | ||
1938 | The PEM-encoded form with the header and footer lines removed can be used to | ||
1939 | install user certificates and CAs in MSIE using the Xenroll control. | ||
1940 | .\" | ||
1941 | .\" DGST | ||
1942 | .\" | ||
1943 | .Sh DGST | ||
1944 | .nr nS 1 | ||
1945 | .Nm "openssl dgst" | ||
1946 | .Bk -words | ||
1947 | .Oo | ||
1948 | .Fl dss1 | md2 | md4 | md5 | | ||
1949 | .Fl ripemd160 | sha | sha1 | ||
1950 | .Oc | ||
1951 | .Op Fl binary | ||
1952 | .Op Fl cd | ||
1953 | .Op Fl engine Ar id | ||
1954 | .Op Fl hex | ||
1955 | .Op Fl hmac Ar key | ||
1956 | .Op Fl keyform Ar ENGINE | PEM | ||
1957 | .Op Fl mac Ar algorithm | ||
1958 | .Op Fl macopt Ar nm : Ns Ar v | ||
1959 | .Op Fl out Ar file | ||
1960 | .Op Fl passin Ar arg | ||
1961 | .Op Fl prverify Ar file | ||
1962 | .Op Fl sign Ar file | ||
1963 | .Op Fl signature Ar file | ||
1964 | .Op Fl sigopt Ar nm : Ns Ar v | ||
1965 | .Op Fl verify Ar file | ||
1966 | .Op Ar | ||
1967 | .Ek | ||
1968 | .nr nS 0 | ||
1969 | .Pp | ||
1970 | .Nm openssl | ||
1971 | .Cm md2 | md4 | md5 | | ||
1972 | .Cm ripemd160 | sha | sha1 | ||
1973 | .Op Fl c | ||
1974 | .Op Fl d | ||
1975 | .Op Ar | ||
1976 | .Pp | ||
1977 | The digest functions output the message digest of a supplied | ||
1978 | .Ar file | ||
1979 | or | ||
1980 | .Ar files | ||
1981 | in hexadecimal form. | ||
1982 | They can also be used for digital signing and verification. | ||
1983 | .Pp | ||
1984 | The options are as follows: | ||
1985 | .Bl -tag -width Ds | ||
1986 | .It Fl binary | ||
1987 | Output the digest or signature in binary form. | ||
1988 | .It Fl c | ||
1989 | Print out the digest in two-digit groups separated by colons; only relevant if | ||
1990 | .Em hex | ||
1991 | format output is used. | ||
1992 | .It Fl d | ||
1993 | Print out BIO debugging information. | ||
1994 | .It Fl engine Ar id | ||
1995 | Specifying an engine (by its unique | ||
1996 | .Ar id | ||
1997 | string) will cause | ||
1998 | .Nm dgst | ||
1999 | to attempt to obtain a functional reference to the specified engine, | ||
2000 | thus initialising it if needed. | ||
2001 | The engine will then be set as the default for all available algorithms. | ||
2002 | This engine is not used as a source for digest algorithms | ||
2003 | unless it is also specified in the configuration file. | ||
2004 | .It Fl hex | ||
2005 | Digest is to be output as a hex dump. | ||
2006 | This is the default case for a | ||
2007 | .Qq normal | ||
2008 | digest as opposed to a digital signature. | ||
2009 | .It Fl hmac Ar key | ||
2010 | Create a hashed MAC using | ||
2011 | .Ar key . | ||
2012 | .It Fl keyform Ar ENGINE | PEM | ||
2013 | Specifies the key format to sign the digest with. | ||
2014 | .It Fl mac Ar algorithm | ||
2015 | Create a keyed Message Authentication Code (MAC). | ||
2016 | The most popular MAC algorithm is HMAC (hash-based MAC), | ||
2017 | but there are other MAC algorithms which are not based on hash. | ||
2018 | MAC keys and other options should be set via the | ||
2019 | .Fl macopt | ||
2020 | parameter. | ||
2021 | .It Fl macopt Ar nm : Ns Ar v | ||
2022 | Passes options to the MAC algorithm, specified by | ||
2023 | .Fl mac . | ||
2024 | The following options are supported by HMAC: | ||
2025 | .Bl -tag -width Ds | ||
2026 | .It Ar key : Ns Ar string | ||
2027 | Specifies the MAC key as an alphanumeric string | ||
2028 | (use if the key contain printable characters only). | ||
2029 | String length must conform to any restrictions of the MAC algorithm. | ||
2030 | .It Ar hexkey : Ns Ar string | ||
2031 | Specifies the MAC key in hexadecimal form (two hex digits per byte). | ||
2032 | Key length must conform to any restrictions of the MAC algorithm. | ||
2033 | .El | ||
2034 | .It Fl out Ar file | ||
2035 | The file to output to, or standard output by default. | ||
2036 | .It Fl passin Ar arg | ||
2037 | The key password source. | ||
2038 | For more information about the format of | ||
2039 | .Ar arg , | ||
2040 | see the | ||
2041 | .Sx PASS PHRASE ARGUMENTS | ||
2042 | section above. | ||
2043 | .It Fl prverify Ar file | ||
2044 | Verify the signature using the private key in | ||
2045 | .Ar file . | ||
2046 | The output is either | ||
2047 | .Qq Verification OK | ||
2048 | or | ||
2049 | .Qq Verification Failure . | ||
2050 | .It Fl sign Ar file | ||
2051 | Digitally sign the digest using the private key in | ||
2052 | .Ar file . | ||
2053 | .It Fl signature Ar file | ||
2054 | The actual signature to verify. | ||
2055 | .It Fl sigopt Ar nm : Ns Ar v | ||
2056 | Pass options to the signature algorithm during sign or verify operations. | ||
2057 | The names and values of these options are algorithm-specific. | ||
2058 | .It Fl verify Ar file | ||
2059 | Verify the signature using the public key in | ||
2060 | .Ar file . | ||
2061 | The output is either | ||
2062 | .Qq Verification OK | ||
2063 | or | ||
2064 | .Qq Verification Failure . | ||
2065 | .It Ar | ||
2066 | File or files to digest. | ||
2067 | If no files are specified then standard input is used. | ||
2068 | .El | ||
2069 | .Sh DGST NOTES | ||
2070 | The digest of choice for all new applications is SHA1. | ||
2071 | Other digests are, however, still widely used. | ||
2072 | .Pp | ||
2073 | If you wish to sign or verify data using the DSA algorithm, the dss1 | ||
2074 | digest must be used. | ||
2075 | .Pp | ||
2076 | A source of random numbers is required for certain signing algorithms, in | ||
2077 | particular DSA. | ||
2078 | .Pp | ||
2079 | The signing and verify options should only be used if a single file is | ||
2080 | being signed or verified. | ||
2081 | .\" | ||
2082 | .\" DH | ||
2083 | .\" | ||
2084 | .Sh DH | ||
2085 | Diffie-Hellman Parameter Management. | ||
2086 | The | ||
2087 | .Nm dh | ||
2088 | command has been replaced by | ||
2089 | .Nm dhparam . | ||
2090 | See | ||
2091 | .Sx DHPARAM | ||
2092 | below. | ||
2093 | .\" | ||
2094 | .\" DHPARAM | ||
2095 | .\" | ||
2096 | .Sh DHPARAM | ||
2097 | .nr nS 1 | ||
2098 | .Nm "openssl dhparam" | ||
2099 | .Bk -words | ||
2100 | .Op Fl 2 | 5 | ||
2101 | .Op Fl C | ||
2102 | .Op Fl check | ||
2103 | .Op Fl dsaparam | ||
2104 | .Op Fl engine Ar id | ||
2105 | .Op Fl in Ar file | ||
2106 | .Op Fl inform Ar DER | PEM | ||
2107 | .Op Fl noout | ||
2108 | .Op Fl out Ar file | ||
2109 | .Op Fl outform Ar DER | PEM | ||
2110 | .Op Fl text | ||
2111 | .Op Ar numbits | ||
2112 | .Ek | ||
2113 | .nr nS 0 | ||
2114 | .Pp | ||
2115 | The | ||
2116 | .Nm dhparam | ||
2117 | command is used to manipulate DH parameter files. | ||
2118 | .Pp | ||
2119 | The options are as follows: | ||
2120 | .Bl -tag -width Ds | ||
2121 | .It Fl 2 , 5 | ||
2122 | The generator to use, either 2 or 5. | ||
2123 | 2 is the default. | ||
2124 | If present, the input file is ignored and parameters are generated instead. | ||
2125 | .It Fl C | ||
2126 | This option converts the parameters into C code. | ||
2127 | The parameters can then be loaded by calling the | ||
2128 | .Cm get_dh Ns Ar numbits Ns Li () | ||
2129 | function. | ||
2130 | .It Fl check | ||
2131 | Check the DH parameters. | ||
2132 | .It Fl dsaparam | ||
2133 | If this option is used, DSA rather than DH parameters are read or created; | ||
2134 | they are converted to DH format. | ||
2135 | Otherwise, | ||
2136 | .Qq strong | ||
2137 | primes | ||
2138 | .Pq such that (p-1)/2 is also prime | ||
2139 | will be used for DH parameter generation. | ||
2140 | .Pp | ||
2141 | DH parameter generation with the | ||
2142 | .Fl dsaparam | ||
2143 | option is much faster, | ||
2144 | and the recommended exponent length is shorter, | ||
2145 | which makes DH key exchange more efficient. | ||
2146 | Beware that with such DSA-style DH parameters, | ||
2147 | a fresh DH key should be created for each use to | ||
2148 | avoid small-subgroup attacks that may be possible otherwise. | ||
2149 | .It Fl engine Ar id | ||
2150 | Specifying an engine (by its unique | ||
2151 | .Ar id | ||
2152 | string) will cause | ||
2153 | .Nm dhparam | ||
2154 | to attempt to obtain a functional reference to the specified engine, | ||
2155 | thus initialising it if needed. | ||
2156 | The engine will then be set as the default for all available algorithms. | ||
2157 | .It Fl in Ar file | ||
2158 | This specifies the input | ||
2159 | .Ar file | ||
2160 | to read parameters from, or standard input if this option is not specified. | ||
2161 | .It Fl inform Ar DER | PEM | ||
2162 | This specifies the input format. | ||
2163 | The argument | ||
2164 | .Ar DER | ||
2165 | uses an ASN1 DER-encoded form compatible with the PKCS#3 DHparameter | ||
2166 | structure. | ||
2167 | The | ||
2168 | .Ar PEM | ||
2169 | form is the default format: | ||
2170 | it consists of the DER format base64-encoded with | ||
2171 | additional header and footer lines. | ||
2172 | .It Fl noout | ||
2173 | This option inhibits the output of the encoded version of the parameters. | ||
2174 | .It Ar numbits | ||
2175 | This argument specifies that a parameter set should be generated of size | ||
2176 | .Ar numbits . | ||
2177 | It must be the last option. | ||
2178 | If not present, a value of 512 is used. | ||
2179 | If this value is present, the input file is ignored and | ||
2180 | parameters are generated instead. | ||
2181 | .It Fl out Ar file | ||
2182 | This specifies the output | ||
2183 | .Ar file | ||
2184 | to write parameters to. | ||
2185 | Standard output is used if this option is not present. | ||
2186 | The output filename should | ||
2187 | .Em not | ||
2188 | be the same as the input filename. | ||
2189 | .It Fl outform Ar DER | PEM | ||
2190 | This specifies the output format; the options have the same meaning as the | ||
2191 | .Fl inform | ||
2192 | option. | ||
2193 | .It Fl text | ||
2194 | This option prints out the DH parameters in human readable form. | ||
2195 | .El | ||
2196 | .Sh DHPARAM WARNINGS | ||
2197 | The program | ||
2198 | .Nm dhparam | ||
2199 | combines the functionality of the programs | ||
2200 | .Nm dh | ||
2201 | and | ||
2202 | .Nm gendh | ||
2203 | in previous versions of | ||
2204 | .Nm OpenSSL | ||
2205 | and | ||
2206 | .Nm SSLeay . | ||
2207 | The | ||
2208 | .Nm dh | ||
2209 | and | ||
2210 | .Nm gendh | ||
2211 | programs are retained for now, but may have different purposes in future | ||
2212 | versions of | ||
2213 | .Nm OpenSSL . | ||
2214 | .Sh DHPARAM NOTES | ||
2215 | PEM format DH parameters use the header and footer lines: | ||
2216 | .Bd -unfilled -offset indent | ||
2217 | -----BEGIN DH PARAMETERS----- | ||
2218 | -----END DH PARAMETERS----- | ||
2219 | .Ed | ||
2220 | .Pp | ||
2221 | .Nm OpenSSL | ||
2222 | currently only supports the older PKCS#3 DH, | ||
2223 | not the newer X9.42 DH. | ||
2224 | .Pp | ||
2225 | This program manipulates DH parameters not keys. | ||
2226 | .Sh DHPARAM BUGS | ||
2227 | There should be a way to generate and manipulate DH keys. | ||
2228 | .Sh DHPARAM HISTORY | ||
2229 | The | ||
2230 | .Nm dhparam | ||
2231 | command was added in | ||
2232 | .Nm OpenSSL | ||
2233 | 0.9.5. | ||
2234 | The | ||
2235 | .Fl dsaparam | ||
2236 | option was added in | ||
2237 | .Nm OpenSSL | ||
2238 | 0.9.6. | ||
2239 | .\" | ||
2240 | .\" DSA | ||
2241 | .\" | ||
2242 | .Sh DSA | ||
2243 | .nr nS 1 | ||
2244 | .Nm "openssl dsa" | ||
2245 | .Bk -words | ||
2246 | .Oo | ||
2247 | .Fl aes128 | aes192 | aes256 | | ||
2248 | .Fl des | des3 | ||
2249 | .Oc | ||
2250 | .Op Fl engine Ar id | ||
2251 | .Op Fl in Ar file | ||
2252 | .Op Fl inform Ar DER | PEM | ||
2253 | .Op Fl modulus | ||
2254 | .Op Fl noout | ||
2255 | .Op Fl out Ar file | ||
2256 | .Op Fl outform Ar DER | PEM | ||
2257 | .Op Fl passin Ar arg | ||
2258 | .Op Fl passout Ar arg | ||
2259 | .Op Fl pubin | ||
2260 | .Op Fl pubout | ||
2261 | .Op Fl text | ||
2262 | .Ek | ||
2263 | .nr nS 0 | ||
2264 | .Pp | ||
2265 | The | ||
2266 | .Nm dsa | ||
2267 | command processes DSA keys. | ||
2268 | They can be converted between various forms and their components printed out. | ||
2269 | .Pp | ||
2270 | .Sy Note : | ||
2271 | This command uses the traditional | ||
2272 | .Nm SSLeay | ||
2273 | compatible format for private key encryption: | ||
2274 | newer applications should use the more secure PKCS#8 format using the | ||
2275 | .Nm pkcs8 | ||
2276 | command. | ||
2277 | .Pp | ||
2278 | The options are as follows: | ||
2279 | .Bl -tag -width Ds | ||
2280 | .It Xo | ||
2281 | .Fl aes128 | aes192 | aes256 | | ||
2282 | .Fl des | des3 | ||
2283 | .Xc | ||
2284 | These options encrypt the private key with the AES, DES, or the triple DES | ||
2285 | ciphers, respectively, before outputting it. | ||
2286 | A pass phrase is prompted for. | ||
2287 | If none of these options is specified, the key is written in plain text. | ||
2288 | This means that using the | ||
2289 | .Nm dsa | ||
2290 | utility to read in an encrypted key with no encryption option can be used to | ||
2291 | remove the pass phrase from a key, | ||
2292 | or by setting the encryption options it can be use to add or change | ||
2293 | the pass phrase. | ||
2294 | These options can only be used with PEM format output files. | ||
2295 | .It Fl engine Ar id | ||
2296 | Specifying an engine (by its unique | ||
2297 | .Ar id | ||
2298 | string) will cause | ||
2299 | .Nm dsa | ||
2300 | to attempt to obtain a functional reference to the specified engine, | ||
2301 | thus initialising it if needed. | ||
2302 | The engine will then be set as the default for all available algorithms. | ||
2303 | .It Fl in Ar file | ||
2304 | This specifies the input | ||
2305 | .Ar file | ||
2306 | to read a key from, or standard input if this option is not specified. | ||
2307 | If the key is encrypted, a pass phrase will be prompted for. | ||
2308 | .It Fl inform Ar DER | PEM | ||
2309 | This specifies the input format. | ||
2310 | The | ||
2311 | .Ar DER | ||
2312 | argument with a private key uses an ASN1 DER-encoded form of an ASN.1 | ||
2313 | SEQUENCE consisting of the values of version | ||
2314 | .Pq currently zero , | ||
2315 | P, Q, G, | ||
2316 | and the public and private key components, respectively, as ASN.1 INTEGERs. | ||
2317 | When used with a public key it uses a | ||
2318 | .Em SubjectPublicKeyInfo | ||
2319 | structure: it is an error if the key is not DSA. | ||
2320 | .Pp | ||
2321 | The | ||
2322 | .Ar PEM | ||
2323 | form is the default format: | ||
2324 | it consists of the DER format base64-encoded with additional header and footer | ||
2325 | lines. | ||
2326 | In the case of a private key, PKCS#8 format is also accepted. | ||
2327 | .It Fl modulus | ||
2328 | This option prints out the value of the public key component of the key. | ||
2329 | .It Fl noout | ||
2330 | This option prevents output of the encoded version of the key. | ||
2331 | .It Fl out Ar file | ||
2332 | This specifies the output | ||
2333 | .Ar file | ||
2334 | to write a key to, or standard output if not specified. | ||
2335 | If any encryption options are set then a pass phrase will be | ||
2336 | prompted for. | ||
2337 | The output filename should | ||
2338 | .Em not | ||
2339 | be the same as the input filename. | ||
2340 | .It Fl outform Ar DER | PEM | ||
2341 | This specifies the output format; the options have the same meaning as the | ||
2342 | .Fl inform | ||
2343 | option. | ||
2344 | .It Fl passin Ar arg | ||
2345 | The key password source. | ||
2346 | For more information about the format of | ||
2347 | .Ar arg , | ||
2348 | see the | ||
2349 | .Sx PASS PHRASE ARGUMENTS | ||
2350 | section above. | ||
2351 | .It Fl passout Ar arg | ||
2352 | The output file password source. | ||
2353 | For more information about the format of | ||
2354 | .Ar arg , | ||
2355 | see the | ||
2356 | .Sx PASS PHRASE ARGUMENTS | ||
2357 | section above. | ||
2358 | .It Fl pubin | ||
2359 | By default, a private key is read from the input file. | ||
2360 | With this option a public key is read instead. | ||
2361 | .It Fl pubout | ||
2362 | By default, a private key is output. | ||
2363 | With this option a public key will be output instead. | ||
2364 | This option is automatically set if the input is a public key. | ||
2365 | .It Fl text | ||
2366 | Prints out the public/private key components and parameters. | ||
2367 | .El | ||
2368 | .Sh DSA NOTES | ||
2369 | The PEM private key format uses the header and footer lines: | ||
2370 | .Bd -unfilled -offset indent | ||
2371 | -----BEGIN DSA PRIVATE KEY----- | ||
2372 | -----END DSA PRIVATE KEY----- | ||
2373 | .Ed | ||
2374 | .Pp | ||
2375 | The PEM public key format uses the header and footer lines: | ||
2376 | .Bd -unfilled -offset indent | ||
2377 | -----BEGIN PUBLIC KEY----- | ||
2378 | -----END PUBLIC KEY----- | ||
2379 | .Ed | ||
2380 | .Sh DSA EXAMPLES | ||
2381 | To remove the pass phrase on a DSA private key: | ||
2382 | .Pp | ||
2383 | .Dl $ openssl dsa -in key.pem -out keyout.pem | ||
2384 | .Pp | ||
2385 | To encrypt a private key using triple DES: | ||
2386 | .Pp | ||
2387 | .Dl $ openssl dsa -in key.pem -des3 -out keyout.pem | ||
2388 | .Pp | ||
2389 | To convert a private key from PEM to DER format: | ||
2390 | .Pp | ||
2391 | .Dl $ openssl dsa -in key.pem -outform DER -out keyout.der | ||
2392 | .Pp | ||
2393 | To print out the components of a private key to standard output: | ||
2394 | .Pp | ||
2395 | .Dl $ openssl dsa -in key.pem -text -noout | ||
2396 | .Pp | ||
2397 | To just output the public part of a private key: | ||
2398 | .Pp | ||
2399 | .Dl $ openssl dsa -in key.pem -pubout -out pubkey.pem | ||
2400 | .\" | ||
2401 | .\" DSAPARAM | ||
2402 | .\" | ||
2403 | .Sh DSAPARAM | ||
2404 | .nr nS 1 | ||
2405 | .Nm "openssl dsaparam" | ||
2406 | .Bk -words | ||
2407 | .Op Fl C | ||
2408 | .Op Fl engine Ar id | ||
2409 | .Op Fl genkey | ||
2410 | .Op Fl in Ar file | ||
2411 | .Op Fl inform Ar DER | PEM | ||
2412 | .Op Fl noout | ||
2413 | .Op Fl out Ar file | ||
2414 | .Op Fl outform Ar DER | PEM | ||
2415 | .Op Fl text | ||
2416 | .Op Ar numbits | ||
2417 | .Ek | ||
2418 | .nr nS 0 | ||
2419 | .Pp | ||
2420 | The | ||
2421 | .Nm dsaparam | ||
2422 | command is used to manipulate or generate DSA parameter files. | ||
2423 | .Pp | ||
2424 | The options are as follows: | ||
2425 | .Bl -tag -width Ds | ||
2426 | .It Fl C | ||
2427 | This option converts the parameters into C code. | ||
2428 | The parameters can then be loaded by calling the | ||
2429 | .Cm get_dsa Ns Ar XXX Ns Li () | ||
2430 | function. | ||
2431 | .It Fl engine Ar id | ||
2432 | Specifying an engine (by its unique | ||
2433 | .Ar id | ||
2434 | string) will cause | ||
2435 | .Nm dsaparam | ||
2436 | to attempt to obtain a functional reference to the specified engine, | ||
2437 | thus initialising it if needed. | ||
2438 | The engine will then be set as the default for all available algorithms. | ||
2439 | .It Fl genkey | ||
2440 | This option will generate a DSA either using the specified or generated | ||
2441 | parameters. | ||
2442 | .It Fl in Ar file | ||
2443 | This specifies the input | ||
2444 | .Ar file | ||
2445 | to read parameters from, or standard input if this option is not specified. | ||
2446 | If the | ||
2447 | .Ar numbits | ||
2448 | parameter is included, then this option will be ignored. | ||
2449 | .It Fl inform Ar DER | PEM | ||
2450 | This specifies the input format. | ||
2451 | The | ||
2452 | .Ar DER | ||
2453 | argument uses an ASN1 DER-encoded form compatible with RFC 2459 | ||
2454 | .Pq PKIX | ||
2455 | DSS-Parms that is a SEQUENCE consisting of p, q and g, respectively. | ||
2456 | The | ||
2457 | .Ar PEM | ||
2458 | form is the default format: | ||
2459 | it consists of the DER format base64-encoded with additional header | ||
2460 | and footer lines. | ||
2461 | .It Fl noout | ||
2462 | This option inhibits the output of the encoded version of the parameters. | ||
2463 | .It Ar numbits | ||
2464 | This option specifies that a parameter set should be generated of size | ||
2465 | .Ar numbits . | ||
2466 | If this option is included, the input file | ||
2467 | .Pq if any | ||
2468 | is ignored. | ||
2469 | .It Fl out Ar file | ||
2470 | This specifies the output | ||
2471 | .Ar file | ||
2472 | to write parameters to. | ||
2473 | Standard output is used if this option is not present. | ||
2474 | The output filename should | ||
2475 | .Em not | ||
2476 | be the same as the input filename. | ||
2477 | .It Fl outform Ar DER | PEM | ||
2478 | This specifies the output format; the options have the same meaning as the | ||
2479 | .Fl inform | ||
2480 | option. | ||
2481 | .It Fl text | ||
2482 | This option prints out the DSA parameters in human readable form. | ||
2483 | .El | ||
2484 | .Sh DSAPARAM NOTES | ||
2485 | PEM format DSA parameters use the header and footer lines: | ||
2486 | .Bd -unfilled -offset indent | ||
2487 | -----BEGIN DSA PARAMETERS----- | ||
2488 | -----END DSA PARAMETERS----- | ||
2489 | .Ed | ||
2490 | .Pp | ||
2491 | DSA parameter generation is a slow process and as a result the same set of | ||
2492 | DSA parameters is often used to generate several distinct keys. | ||
2493 | .\" | ||
2494 | .\" EC | ||
2495 | .\" | ||
2496 | .Sh EC | ||
2497 | .nr nS 1 | ||
2498 | .Nm "openssl ec" | ||
2499 | .Bk -words | ||
2500 | .Op Fl conv_form Ar arg | ||
2501 | .Op Fl des | ||
2502 | .Op Fl des3 | ||
2503 | .Op Fl engine Ar id | ||
2504 | .Op Fl in Ar file | ||
2505 | .Op Fl inform Ar DER | PEM | ||
2506 | .Op Fl noout | ||
2507 | .Op Fl out Ar file | ||
2508 | .Op Fl outform Ar DER | PEM | ||
2509 | .Op Fl param_enc Ar arg | ||
2510 | .Op Fl param_out | ||
2511 | .Op Fl passin Ar arg | ||
2512 | .Op Fl passout Ar arg | ||
2513 | .Op Fl pubin | ||
2514 | .Op Fl pubout | ||
2515 | .Op Fl text | ||
2516 | .Ek | ||
2517 | .nr nS 0 | ||
2518 | .Pp | ||
2519 | The | ||
2520 | .Nm ec | ||
2521 | command processes EC keys. | ||
2522 | They can be converted between various | ||
2523 | forms and their components printed out. | ||
2524 | Note: | ||
2525 | .Nm OpenSSL | ||
2526 | uses the private key format specified in | ||
2527 | .Dq SEC 1: Elliptic Curve Cryptography | ||
2528 | .Pq Lk http://www.secg.org/ . | ||
2529 | To convert an | ||
2530 | .Nm OpenSSL | ||
2531 | EC private key into the PKCS#8 private key format use the | ||
2532 | .Nm pkcs8 | ||
2533 | command. | ||
2534 | .Pp | ||
2535 | The options are as follows: | ||
2536 | .Bl -tag -width Ds | ||
2537 | .It Fl conv_form Ar arg | ||
2538 | This specifies how the points on the elliptic curve are converted | ||
2539 | into octet strings. | ||
2540 | Possible values are: | ||
2541 | .Cm compressed | ||
2542 | (the default value), | ||
2543 | .Cm uncompressed , | ||
2544 | and | ||
2545 | .Cm hybrid . | ||
2546 | For more information regarding | ||
2547 | the point conversion forms please read the X9.62 standard. | ||
2548 | Note: | ||
2549 | Due to patent issues the | ||
2550 | .Cm compressed | ||
2551 | option is disabled by default for binary curves | ||
2552 | and can be enabled by defining the preprocessor macro | ||
2553 | .Ar OPENSSL_EC_BIN_PT_COMP | ||
2554 | at compile time. | ||
2555 | .It Fl des | des3 | ||
2556 | These options encrypt the private key with the DES, triple DES, or | ||
2557 | any other cipher supported by | ||
2558 | .Nm OpenSSL | ||
2559 | before outputting it. | ||
2560 | A pass phrase is prompted for. | ||
2561 | If none of these options is specified the key is written in plain text. | ||
2562 | This means that using the | ||
2563 | .Nm ec | ||
2564 | utility to read in an encrypted key with no | ||
2565 | encryption option can be used to remove the pass phrase from a key, | ||
2566 | or by setting the encryption options | ||
2567 | it can be use to add or change the pass phrase. | ||
2568 | These options can only be used with PEM format output files. | ||
2569 | .It Fl engine Ar id | ||
2570 | Specifying an engine (by its unique | ||
2571 | .Ar id | ||
2572 | string) will cause | ||
2573 | .Nm ec | ||
2574 | to attempt to obtain a functional reference to the specified engine, | ||
2575 | thus initialising it if needed. | ||
2576 | The engine will then be set as the default for all available algorithms. | ||
2577 | .It Fl in Ar file | ||
2578 | This specifies the input filename to read a key from, | ||
2579 | or standard input if this option is not specified. | ||
2580 | If the key is encrypted a pass phrase will be prompted for. | ||
2581 | .It Fl inform Ar DER | PEM | ||
2582 | This specifies the input format. | ||
2583 | DER with a private key uses | ||
2584 | an ASN.1 DER-encoded SEC1 private key. | ||
2585 | When used with a public key it | ||
2586 | uses the SubjectPublicKeyInfo structure as specified in RFC 3280. | ||
2587 | PEM is the default format: | ||
2588 | it consists of the DER format base64 | ||
2589 | encoded with additional header and footer lines. | ||
2590 | In the case of a private key | ||
2591 | PKCS#8 format is also accepted. | ||
2592 | .It Fl noout | ||
2593 | Prevents output of the encoded version of the key. | ||
2594 | .It Fl out Ar file | ||
2595 | Specifies the output filename to write a key to, | ||
2596 | or standard output if none is specified. | ||
2597 | If any encryption options are set then a pass phrase will be prompted for. | ||
2598 | The output filename should | ||
2599 | .Em not | ||
2600 | be the same as the input filename. | ||
2601 | .It Fl outform Ar DER | PEM | ||
2602 | This specifies the output format. | ||
2603 | The options have the same meaning as the | ||
2604 | .Fl inform | ||
2605 | option. | ||
2606 | .It Fl param_enc Ar arg | ||
2607 | This specifies how the elliptic curve parameters are encoded. | ||
2608 | Possible value are: | ||
2609 | .Cm named_curve , | ||
2610 | i.e. the EC parameters are specified by an OID; or | ||
2611 | .Cm explicit , | ||
2612 | where the EC parameters are explicitly given | ||
2613 | (see RFC 3279 for the definition of the EC parameter structures). | ||
2614 | The default value is | ||
2615 | .Cm named_curve . | ||
2616 | Note: the | ||
2617 | .Cm implicitlyCA | ||
2618 | alternative, | ||
2619 | as specified in RFC 3279, | ||
2620 | is currently not implemented in | ||
2621 | .Nm OpenSSL . | ||
2622 | .It Fl passin Ar arg | ||
2623 | The key password source. | ||
2624 | For more information about the format of | ||
2625 | .Ar arg , | ||
2626 | see the | ||
2627 | .Sx PASS PHRASE ARGUMENTS | ||
2628 | section above. | ||
2629 | .It Fl passout Ar arg | ||
2630 | The output file password source. | ||
2631 | For more information about the format of | ||
2632 | .Ar arg , | ||
2633 | see the | ||
2634 | .Sx PASS PHRASE ARGUMENTS | ||
2635 | section above. | ||
2636 | .It Fl pubin | ||
2637 | By default a private key is read from the input file; | ||
2638 | with this option a public key is read instead. | ||
2639 | .It Fl pubout | ||
2640 | By default a private key is output; | ||
2641 | with this option a public key is output instead. | ||
2642 | This option is automatically set if the input is a public key. | ||
2643 | .It Fl text | ||
2644 | Prints out the public/private key components and parameters. | ||
2645 | .El | ||
2646 | .Sh EC NOTES | ||
2647 | The PEM private key format uses the header and footer lines: | ||
2648 | .Bd -literal -offset indent | ||
2649 | -----BEGIN EC PRIVATE KEY----- | ||
2650 | -----END EC PRIVATE KEY----- | ||
2651 | .Ed | ||
2652 | .Pp | ||
2653 | The PEM public key format uses the header and footer lines: | ||
2654 | .Bd -literal -offset indent | ||
2655 | -----BEGIN PUBLIC KEY----- | ||
2656 | -----END PUBLIC KEY----- | ||
2657 | .Ed | ||
2658 | .Sh EC EXAMPLES | ||
2659 | To encrypt a private key using triple DES: | ||
2660 | .Bd -literal -offset indent | ||
2661 | $ openssl ec -in key.pem -des3 -out keyout.pem | ||
2662 | .Ed | ||
2663 | .Pp | ||
2664 | To convert a private key from PEM to DER format: | ||
2665 | .Bd -literal -offset indent | ||
2666 | $ openssl ec -in key.pem -outform DER -out keyout.der | ||
2667 | .Ed | ||
2668 | .Pp | ||
2669 | To print out the components of a private key to standard output: | ||
2670 | .Bd -literal -offset indent | ||
2671 | $ openssl ec -in key.pem -text -noout | ||
2672 | .Ed | ||
2673 | .Pp | ||
2674 | To just output the public part of a private key: | ||
2675 | .Bd -literal -offset indent | ||
2676 | $ openssl ec -in key.pem -pubout -out pubkey.pem | ||
2677 | .Ed | ||
2678 | .Pp | ||
2679 | To change the parameter encoding to | ||
2680 | .Cm explicit : | ||
2681 | .Bd -literal -offset indent | ||
2682 | $ openssl ec -in key.pem -param_enc explicit -out keyout.pem | ||
2683 | .Ed | ||
2684 | .Pp | ||
2685 | To change the point conversion form to | ||
2686 | .Cm compressed : | ||
2687 | .Bd -literal -offset indent | ||
2688 | $ openssl ec -in key.pem -conv_form compressed -out keyout.pem | ||
2689 | .Ed | ||
2690 | .Sh EC HISTORY | ||
2691 | The | ||
2692 | .Nm ec | ||
2693 | command was first introduced in | ||
2694 | .Nm OpenSSL | ||
2695 | 0.9.8. | ||
2696 | .Sh EC AUTHORS | ||
2697 | .An Nils Larsch . | ||
2698 | .\" | ||
2699 | .\" ECPARAM | ||
2700 | .\" | ||
2701 | .Sh ECPARAM | ||
2702 | .nr nS 1 | ||
2703 | .Nm "openssl ecparam" | ||
2704 | .Bk -words | ||
2705 | .Op Fl C | ||
2706 | .Op Fl check | ||
2707 | .Op Fl conv_form Ar arg | ||
2708 | .Op Fl engine Ar id | ||
2709 | .Op Fl genkey | ||
2710 | .Op Fl in Ar file | ||
2711 | .Op Fl inform Ar DER | PEM | ||
2712 | .Op Fl list_curves | ||
2713 | .Op Fl name Ar arg | ||
2714 | .Op Fl no_seed | ||
2715 | .Op Fl noout | ||
2716 | .Op Fl out Ar file | ||
2717 | .Op Fl outform Ar DER | PEM | ||
2718 | .Op Fl param_enc Ar arg | ||
2719 | .Op Fl text | ||
2720 | .Ek | ||
2721 | .nr nS 0 | ||
2722 | .Pp | ||
2723 | This command is used to manipulate or generate EC parameter files. | ||
2724 | .Pp | ||
2725 | The options are as follows: | ||
2726 | .Bl -tag -width Ds | ||
2727 | .It Fl C | ||
2728 | Convert the EC parameters into C code. | ||
2729 | The parameters can then be loaded by calling the | ||
2730 | .Fn get_ec_group_XXX | ||
2731 | function. | ||
2732 | .It Fl check | ||
2733 | Validate the elliptic curve parameters. | ||
2734 | .It Fl conv_form Ar arg | ||
2735 | Specify how the points on the elliptic curve are converted | ||
2736 | into octet strings. | ||
2737 | Possible values are: | ||
2738 | .Cm compressed | ||
2739 | (the default value), | ||
2740 | .Cm uncompressed , | ||
2741 | and | ||
2742 | .Cm hybrid . | ||
2743 | For more information regarding | ||
2744 | the point conversion forms please read the X9.62 standard. | ||
2745 | Note: | ||
2746 | Due to patent issues the | ||
2747 | .Cm compressed | ||
2748 | option is disabled by default for binary curves | ||
2749 | and can be enabled by defining the preprocessor macro | ||
2750 | .Ar OPENSSL_EC_BIN_PT_COMP | ||
2751 | at compile time. | ||
2752 | .It Fl engine Ar id | ||
2753 | Specifying an engine (by its unique | ||
2754 | .Ar id | ||
2755 | string) will cause | ||
2756 | .Nm ecparam | ||
2757 | to attempt to obtain a functional reference to the specified engine, | ||
2758 | thus initialising it if needed. | ||
2759 | The engine will then be set as the default for all available algorithms. | ||
2760 | .It Fl genkey | ||
2761 | Generate an EC private key using the specified parameters. | ||
2762 | .It Fl in Ar file | ||
2763 | Specify the input filename to read parameters from or standard input if | ||
2764 | this option is not specified. | ||
2765 | .It Fl inform Ar DER | PEM | ||
2766 | Specify the input format. | ||
2767 | DER uses an ASN.1 DER-encoded | ||
2768 | form compatible with RFC 3279 EcpkParameters. | ||
2769 | PEM is the default format: | ||
2770 | it consists of the DER format base64 encoded with additional | ||
2771 | header and footer lines. | ||
2772 | .It Fl list_curves | ||
2773 | Print out a list of all | ||
2774 | currently implemented EC parameter names and exit. | ||
2775 | .It Fl name Ar arg | ||
2776 | Use the EC parameters with the specified 'short' name. | ||
2777 | Use | ||
2778 | .Fl list_curves | ||
2779 | to get a list of all currently implemented EC parameters. | ||
2780 | .It Fl no_seed | ||
2781 | Inhibit that the 'seed' for the parameter generation | ||
2782 | is included in the ECParameters structure (see RFC 3279). | ||
2783 | .It Fl noout | ||
2784 | Inhibit the output of the encoded version of the parameters. | ||
2785 | .It Fl out Ar file | ||
2786 | Specify the output filename parameters are written to. | ||
2787 | Standard output is used if this option is not present. | ||
2788 | The output filename should | ||
2789 | .Em not | ||
2790 | be the same as the input filename. | ||
2791 | .It Fl outform Ar DER | PEM | ||
2792 | Specify the output format; | ||
2793 | the parameters have the same meaning as the | ||
2794 | .Fl inform | ||
2795 | option. | ||
2796 | .It Fl param_enc Ar arg | ||
2797 | This specifies how the elliptic curve parameters are encoded. | ||
2798 | Possible value are: | ||
2799 | .Cm named_curve , | ||
2800 | i.e. the EC parameters are specified by an OID, or | ||
2801 | .Cm explicit , | ||
2802 | where the EC parameters are explicitly given | ||
2803 | (see RFC 3279 for the definition of the EC parameter structures). | ||
2804 | The default value is | ||
2805 | .Cm named_curve . | ||
2806 | Note: the | ||
2807 | .Cm implicitlyCA | ||
2808 | alternative, as specified in RFC 3279, | ||
2809 | is currently not implemented in | ||
2810 | .Nm OpenSSL . | ||
2811 | .It Fl text | ||
2812 | Print out the EC parameters in human readable form. | ||
2813 | .El | ||
2814 | .Sh ECPARAM NOTES | ||
2815 | PEM format EC parameters use the header and footer lines: | ||
2816 | .Bd -literal -offset indent | ||
2817 | -----BEGIN EC PARAMETERS----- | ||
2818 | -----END EC PARAMETERS----- | ||
2819 | .Ed | ||
2820 | .Pp | ||
2821 | .Nm OpenSSL | ||
2822 | is currently not able to generate new groups and therefore | ||
2823 | .Nm ecparam | ||
2824 | can only create EC parameters from known (named) curves. | ||
2825 | .Sh ECPARAM EXAMPLES | ||
2826 | To create EC parameters with the group 'prime192v1': | ||
2827 | .Bd -literal -offset indent | ||
2828 | $ openssl ecparam -out ec_param.pem -name prime192v1 | ||
2829 | .Ed | ||
2830 | .Pp | ||
2831 | To create EC parameters with explicit parameters: | ||
2832 | .Bd -literal -offset indent | ||
2833 | $ openssl ecparam -out ec_param.pem -name prime192v1 \e | ||
2834 | -param_enc explicit | ||
2835 | .Ed | ||
2836 | .Pp | ||
2837 | To validate given EC parameters: | ||
2838 | .Bd -literal -offset indent | ||
2839 | $ openssl ecparam -in ec_param.pem -check | ||
2840 | .Ed | ||
2841 | .Pp | ||
2842 | To create EC parameters and a private key: | ||
2843 | .Bd -literal -offset indent | ||
2844 | $ openssl ecparam -out ec_key.pem -name prime192v1 -genkey | ||
2845 | .Ed | ||
2846 | .Pp | ||
2847 | To change the point encoding to 'compressed': | ||
2848 | .Bd -literal -offset indent | ||
2849 | $ openssl ecparam -in ec_in.pem -out ec_out.pem \e | ||
2850 | -conv_form compressed | ||
2851 | .Ed | ||
2852 | .Pp | ||
2853 | To print out the EC parameters to standard output: | ||
2854 | .Bd -literal -offset indent | ||
2855 | $ openssl ecparam -in ec_param.pem -noout -text | ||
2856 | .Ed | ||
2857 | .Sh ECPARAM HISTORY | ||
2858 | The | ||
2859 | .Nm ecparam | ||
2860 | command was first introduced in | ||
2861 | .Nm OpenSSL | ||
2862 | 0.9.8. | ||
2863 | .Sh ECPARAM AUTHORS | ||
2864 | .An Nils Larsch . | ||
2865 | .\" | ||
2866 | .\" ENC | ||
2867 | .\" | ||
2868 | .Sh ENC | ||
2869 | .nr nS 1 | ||
2870 | .Nm "openssl enc" | ||
2871 | .Bk -words | ||
2872 | .Fl ciphername | ||
2873 | .Op Fl AadePp | ||
2874 | .Op Fl base64 | ||
2875 | .Op Fl bufsize Ar number | ||
2876 | .Op Fl debug | ||
2877 | .Op Fl engine Ar id | ||
2878 | .Op Fl in Ar file | ||
2879 | .Op Fl iv Ar IV | ||
2880 | .Op Fl K Ar key | ||
2881 | .Op Fl k Ar password | ||
2882 | .Op Fl kfile Ar file | ||
2883 | .Op Fl md Ar digest | ||
2884 | .Op Fl none | ||
2885 | .Op Fl nopad | ||
2886 | .Op Fl nosalt | ||
2887 | .Op Fl out Ar file | ||
2888 | .Op Fl pass Ar arg | ||
2889 | .Op Fl S Ar salt | ||
2890 | .Op Fl salt | ||
2891 | .Ek | ||
2892 | .nr nS 0 | ||
2893 | .Pp | ||
2894 | The symmetric cipher commands allow data to be encrypted or decrypted | ||
2895 | using various block and stream ciphers using keys based on passwords | ||
2896 | or explicitly provided. | ||
2897 | Base64 encoding or decoding can also be performed either by itself | ||
2898 | or in addition to the encryption or decryption. | ||
2899 | .Pp | ||
2900 | The options are as follows: | ||
2901 | .Bl -tag -width Ds | ||
2902 | .It Fl A | ||
2903 | If the | ||
2904 | .Fl a | ||
2905 | option is set, then base64 process the data on one line. | ||
2906 | .It Fl a , base64 | ||
2907 | Base64 process the data. | ||
2908 | This means that if encryption is taking place, the data is base64-encoded | ||
2909 | after encryption. | ||
2910 | If decryption is set, the input data is base64 decoded before | ||
2911 | being decrypted. | ||
2912 | .It Fl bufsize Ar number | ||
2913 | Set the buffer size for I/O. | ||
2914 | .It Fl d | ||
2915 | Decrypt the input data. | ||
2916 | .It Fl debug | ||
2917 | Debug the BIOs used for I/O. | ||
2918 | .It Fl e | ||
2919 | Encrypt the input data: this is the default. | ||
2920 | .It Fl engine Ar id | ||
2921 | Specifying an engine (by its unique | ||
2922 | .Ar id | ||
2923 | string) will cause | ||
2924 | .Nm enc | ||
2925 | to attempt to obtain a functional reference to the specified engine, | ||
2926 | thus initialising it if needed. | ||
2927 | The engine will then be set as the default for all available algorithms. | ||
2928 | .It Fl in Ar file | ||
2929 | The input | ||
2930 | .Ar file ; | ||
2931 | standard input by default. | ||
2932 | .It Fl iv Ar IV | ||
2933 | The actual | ||
2934 | .Ar IV | ||
2935 | .Pq initialisation vector | ||
2936 | to use: | ||
2937 | this must be represented as a string comprised only of hex digits. | ||
2938 | When only the | ||
2939 | .Ar key | ||
2940 | is specified using the | ||
2941 | .Fl K | ||
2942 | option, the | ||
2943 | .Ar IV | ||
2944 | must explicitly be defined. | ||
2945 | When a password is being specified using one of the other options, | ||
2946 | the | ||
2947 | .Ar IV | ||
2948 | is generated from this password. | ||
2949 | .It Fl K Ar key | ||
2950 | The actual | ||
2951 | .Ar key | ||
2952 | to use: | ||
2953 | this must be represented as a string comprised only of hex digits. | ||
2954 | If only the key is specified, the | ||
2955 | .Ar IV | ||
2956 | must be additionally specified using the | ||
2957 | .Fl iv | ||
2958 | option. | ||
2959 | When both a | ||
2960 | .Ar key | ||
2961 | and a | ||
2962 | .Ar password | ||
2963 | are specified, the | ||
2964 | .Ar key | ||
2965 | given with the | ||
2966 | .Fl K | ||
2967 | option will be used and the | ||
2968 | .Ar IV | ||
2969 | generated from the password will be taken. | ||
2970 | It probably does not make much sense to specify both | ||
2971 | .Ar key | ||
2972 | and | ||
2973 | .Ar password . | ||
2974 | .It Fl k Ar password | ||
2975 | The | ||
2976 | .Ar password | ||
2977 | to derive the key from. | ||
2978 | This is for compatibility with previous versions of | ||
2979 | .Nm OpenSSL . | ||
2980 | Superseded by the | ||
2981 | .Fl pass | ||
2982 | option. | ||
2983 | .It Fl kfile Ar file | ||
2984 | Read the password to derive the key from the first line of | ||
2985 | .Ar file . | ||
2986 | This is for compatibility with previous versions of | ||
2987 | .Nm OpenSSL . | ||
2988 | Superseded by the | ||
2989 | .Fl pass | ||
2990 | option. | ||
2991 | .It Fl md Ar digest | ||
2992 | Use | ||
2993 | .Ar digest | ||
2994 | to create a key from a pass phrase. | ||
2995 | .Ar digest | ||
2996 | may be one of | ||
2997 | .Dq md2 , | ||
2998 | .Dq md5 , | ||
2999 | .Dq sha , | ||
3000 | or | ||
3001 | .Dq sha1 . | ||
3002 | .It Fl none | ||
3003 | Use NULL cipher (no encryption or decryption of input). | ||
3004 | .It Fl nopad | ||
3005 | Disable standard block padding. | ||
3006 | .It Fl nosalt | ||
3007 | Don't use a | ||
3008 | .Ar salt | ||
3009 | in the key derivation routines. | ||
3010 | This option should | ||
3011 | .Em NEVER | ||
3012 | be used unless compatibility with previous versions of | ||
3013 | .Nm OpenSSL | ||
3014 | or | ||
3015 | .Nm SSLeay | ||
3016 | is required. | ||
3017 | .It Fl out Ar file | ||
3018 | The output | ||
3019 | .Ar file , | ||
3020 | standard output by default. | ||
3021 | .It Fl P | ||
3022 | Print out the | ||
3023 | .Ar salt , | ||
3024 | .Ar key , | ||
3025 | and | ||
3026 | .Ar IV | ||
3027 | used, then immediately exit; | ||
3028 | don't do any encryption or decryption. | ||
3029 | .It Fl p | ||
3030 | Print out the | ||
3031 | .Ar salt , | ||
3032 | .Ar key , | ||
3033 | and | ||
3034 | .Ar IV | ||
3035 | used. | ||
3036 | .It Fl pass Ar arg | ||
3037 | The password source. | ||
3038 | For more information about the format of | ||
3039 | .Ar arg , | ||
3040 | see the | ||
3041 | .Sx PASS PHRASE ARGUMENTS | ||
3042 | section above. | ||
3043 | .It Fl S Ar salt | ||
3044 | The actual | ||
3045 | .Ar salt | ||
3046 | to use: | ||
3047 | this must be represented as a string comprised only of hex digits. | ||
3048 | .It Fl salt | ||
3049 | Use a | ||
3050 | .Ar salt | ||
3051 | in the key derivation routines. | ||
3052 | This is the default. | ||
3053 | .El | ||
3054 | .Sh ENC NOTES | ||
3055 | The program can be called either as | ||
3056 | .Nm openssl ciphername | ||
3057 | or | ||
3058 | .Nm openssl enc -ciphername . | ||
3059 | But the first form doesn't work with engine-provided ciphers, | ||
3060 | because this form is processed before the | ||
3061 | configuration file is read and any engines loaded. | ||
3062 | .Pp | ||
3063 | Engines which provide entirely new encryption algorithms | ||
3064 | should be configured in the configuration file. | ||
3065 | Engines, specified on the command line using the | ||
3066 | .Fl engine | ||
3067 | option, | ||
3068 | can only be used for hardware-assisted implementations of ciphers, | ||
3069 | supported by | ||
3070 | .Nm OpenSSL | ||
3071 | core, or by other engines specified in the configuration file. | ||
3072 | .Pp | ||
3073 | When | ||
3074 | .Nm enc | ||
3075 | lists supported ciphers, | ||
3076 | ciphers provided by engines specified in the configuration files | ||
3077 | are listed too. | ||
3078 | .Pp | ||
3079 | A password will be prompted for to derive the | ||
3080 | .Ar key | ||
3081 | and | ||
3082 | .Ar IV | ||
3083 | if necessary. | ||
3084 | .Pp | ||
3085 | The | ||
3086 | .Fl nosalt | ||
3087 | option should | ||
3088 | .Em NEVER | ||
3089 | be used unless compatibility with previous versions of | ||
3090 | .Nm OpenSSL | ||
3091 | or | ||
3092 | .Nm SSLeay | ||
3093 | is required. | ||
3094 | .Pp | ||
3095 | With the | ||
3096 | .Fl nosalt | ||
3097 | option it is possible to perform efficient dictionary | ||
3098 | attacks on the password and to attack stream cipher encrypted data. | ||
3099 | The reason for this is that without the salt | ||
3100 | the same password always generates the same encryption key. | ||
3101 | When the salt | ||
3102 | is being used the first eight bytes of the encrypted data are reserved | ||
3103 | for the salt: | ||
3104 | it is generated at random when encrypting a file and read from the | ||
3105 | encrypted file when it is decrypted. | ||
3106 | .Pp | ||
3107 | Some of the ciphers do not have large keys and others have security | ||
3108 | implications if not used correctly. | ||
3109 | A beginner is advised to just use a strong block cipher in CBC mode | ||
3110 | such as bf or des3. | ||
3111 | .Pp | ||
3112 | All the block ciphers normally use PKCS#5 padding also known as standard block | ||
3113 | padding: | ||
3114 | this allows a rudimentary integrity or password check to be performed. | ||
3115 | However, since the chance of random data passing the test is | ||
3116 | better than 1 in 256, it isn't a very good test. | ||
3117 | .Pp | ||
3118 | If padding is disabled, the input data must be a multiple of the cipher | ||
3119 | block length. | ||
3120 | .Pp | ||
3121 | All RC2 ciphers have the same key and effective key length. | ||
3122 | .Pp | ||
3123 | Blowfish and RC5 algorithms use a 128-bit key. | ||
3124 | .Sh ENC SUPPORTED CIPHERS | ||
3125 | .Bd -unfilled -offset indent | ||
3126 | aes-[128|192|256]-cbc 128/192/256 bit AES in CBC mode | ||
3127 | aes-[128|192|256] Alias for aes-[128|192|256]-cbc | ||
3128 | aes-[128|192|256]-cfb 128/192/256 bit AES in 128 bit CFB mode | ||
3129 | aes-[128|192|256]-cfb1 128/192/256 bit AES in 1 bit CFB mode | ||
3130 | aes-[128|192|256]-cfb8 128/192/256 bit AES in 8 bit CFB mode | ||
3131 | aes-[128|192|256]-ecb 128/192/256 bit AES in ECB mode | ||
3132 | aes-[128|192|256]-ofb 128/192/256 bit AES in OFB mode | ||
3133 | |||
3134 | base64 Base 64 | ||
3135 | |||
3136 | bf Alias for bf-cbc | ||
3137 | bf-cbc Blowfish in CBC mode | ||
3138 | bf-cfb Blowfish in CFB mode | ||
3139 | bf-ecb Blowfish in ECB mode | ||
3140 | bf-ofb Blowfish in OFB mode | ||
3141 | |||
3142 | cast Alias for cast-cbc | ||
3143 | cast-cbc CAST in CBC mode | ||
3144 | cast5-cbc CAST5 in CBC mode | ||
3145 | cast5-cfb CAST5 in CFB mode | ||
3146 | cast5-ecb CAST5 in ECB mode | ||
3147 | cast5-ofb CAST5 in OFB mode | ||
3148 | |||
3149 | des Alias for des-cbc | ||
3150 | des-cbc DES in CBC mode | ||
3151 | des-cfb DES in CBC mode | ||
3152 | des-ecb DES in ECB mode | ||
3153 | des-ofb DES in OFB mode | ||
3154 | |||
3155 | des-ede Two key triple DES EDE in ECB mode | ||
3156 | des-ede-cbc Two key triple DES EDE in CBC mode | ||
3157 | des-ede-cfb Two key triple DES EDE in CFB mode | ||
3158 | des-ede-ofb Two key triple DES EDE in OFB mode | ||
3159 | |||
3160 | des3 Alias for des-ede3-cbc | ||
3161 | des-ede3 Three key triple DES EDE in ECB mode | ||
3162 | des-ede3-cbc Three key triple DES EDE in CBC mode | ||
3163 | des-ede3-cfb Three key triple DES EDE CFB mode | ||
3164 | des-ede3-ofb Three key triple DES EDE in OFB mode | ||
3165 | |||
3166 | desx DESX algorithm | ||
3167 | |||
3168 | rc2 Alias for rc2-cbc | ||
3169 | rc2-cbc 128-bit RC2 in CBC mode | ||
3170 | rc2-cfb 128-bit RC2 in CFB mode | ||
3171 | rc2-ecb 128-bit RC2 in ECB mode | ||
3172 | rc2-ofb 128-bit RC2 in OFB mode | ||
3173 | rc2-64-cbc 64-bit RC2 in CBC mode | ||
3174 | rc2-40-cbc 40-bit RC2 in CBC mode | ||
3175 | |||
3176 | rc4 128-bit RC4 | ||
3177 | rc4-40 40-bit RC4 | ||
3178 | .Ed | ||
3179 | .Sh ENC EXAMPLES | ||
3180 | Just base64 encode a binary file: | ||
3181 | .Pp | ||
3182 | .Dl $ openssl base64 -in file.bin -out file.b64 | ||
3183 | .Pp | ||
3184 | Decode the same file: | ||
3185 | .Pp | ||
3186 | .Dl $ openssl base64 -d -in file.b64 -out file.bin | ||
3187 | .Pp | ||
3188 | Encrypt a file using triple DES in CBC mode using a prompted password: | ||
3189 | .Pp | ||
3190 | .Dl $ openssl des3 -salt -in file.txt -out file.des3 | ||
3191 | .Pp | ||
3192 | Decrypt a file using a supplied password: | ||
3193 | .Pp | ||
3194 | .Dl "$ openssl des3 -d -in file.des3 -out file.txt -k mypassword" | ||
3195 | .Pp | ||
3196 | Encrypt a file then base64 encode it | ||
3197 | (so it can be sent via mail for example) | ||
3198 | using Blowfish in CBC mode: | ||
3199 | .Pp | ||
3200 | .Dl $ openssl bf -a -salt -in file.txt -out file.bf | ||
3201 | .Pp | ||
3202 | Base64 decode a file then decrypt it: | ||
3203 | .Pp | ||
3204 | .Dl "$ openssl bf -d -a -in file.bf -out file.txt" | ||
3205 | .Sh ENC BUGS | ||
3206 | The | ||
3207 | .Fl A | ||
3208 | option when used with large files doesn't work properly. | ||
3209 | .Pp | ||
3210 | There should be an option to allow an iteration count to be included. | ||
3211 | .Pp | ||
3212 | The | ||
3213 | .Nm enc | ||
3214 | program only supports a fixed number of algorithms with certain parameters. | ||
3215 | Therefore it is not possible to use RC2 with a 76-bit key | ||
3216 | or RC4 with an 84-bit key with this program. | ||
3217 | .\" | ||
3218 | .\" ENGINE | ||
3219 | .\" | ||
3220 | .Sh ENGINE | ||
3221 | .Nm openssl engine | ||
3222 | .Op Fl ctv | ||
3223 | .Op Fl post Ar cmd | ||
3224 | .Op Fl pre Ar cmd | ||
3225 | .Op Ar engine ... | ||
3226 | .Pp | ||
3227 | The | ||
3228 | .Nm engine | ||
3229 | command provides loadable module information and manipulation | ||
3230 | of various engines. | ||
3231 | Any options are applied to all engines supplied on the command line, | ||
3232 | or all supported engines if none are specified. | ||
3233 | .Pp | ||
3234 | The options are as follows: | ||
3235 | .Bl -tag -width Ds | ||
3236 | .It Fl c | ||
3237 | For each engine, also list the capabilities. | ||
3238 | .It Fl post Ar cmd | ||
3239 | Run command | ||
3240 | .Ar cmd | ||
3241 | against the engine after loading it | ||
3242 | (only used if | ||
3243 | .Fl t | ||
3244 | is also provided). | ||
3245 | .It Fl pre Ar cmd | ||
3246 | Run command | ||
3247 | .Ar cmd | ||
3248 | against the engine before any attempts | ||
3249 | to load it | ||
3250 | (only used if | ||
3251 | .Fl t | ||
3252 | is also provided). | ||
3253 | .It Fl t | ||
3254 | For each engine, check that they are really available. | ||
3255 | .Fl tt | ||
3256 | will display an error trace for unavailable engines. | ||
3257 | .It Fl v | ||
3258 | Verbose mode. | ||
3259 | For each engine, list its 'control commands'. | ||
3260 | .Fl vv | ||
3261 | will additionally display each command's description. | ||
3262 | .Fl vvv | ||
3263 | will also add the input flags for each command. | ||
3264 | .Fl vvvv | ||
3265 | will also show internal input flags. | ||
3266 | .El | ||
3267 | .\" | ||
3268 | .\" ERRSTR | ||
3269 | .\" | ||
3270 | .Sh ERRSTR | ||
3271 | .Nm openssl errstr | ||
3272 | .Op Fl stats | ||
3273 | .Ar errno ... | ||
3274 | .Pp | ||
3275 | The | ||
3276 | .Nm errstr | ||
3277 | command performs error number to error string conversion, | ||
3278 | generating a human-readable string representing the error code | ||
3279 | .Ar errno . | ||
3280 | The string is obtained through the | ||
3281 | .Xr ERR_error_string_n 3 | ||
3282 | function and has the following format: | ||
3283 | .Pp | ||
3284 | .Dl error:[error code]:[library name]:[function name]:[reason string] | ||
3285 | .Pp | ||
3286 | .Bq error code | ||
3287 | is an 8-digit hexadecimal number. | ||
3288 | The remaining fields | ||
3289 | .Bq library name , | ||
3290 | .Bq function name , | ||
3291 | and | ||
3292 | .Bq reason string | ||
3293 | are all ASCII text. | ||
3294 | .Pp | ||
3295 | The options are as follows: | ||
3296 | .Bl -tag -width Ds | ||
3297 | .It Fl stats | ||
3298 | Print debugging statistics about various aspects of the hash table. | ||
3299 | .El | ||
3300 | .Sh ERRSTR EXAMPLES | ||
3301 | The following error code: | ||
3302 | .Pp | ||
3303 | .Dl 27594:error:2006D080:lib(32):func(109):reason(128):bss_file.c:107: | ||
3304 | .Pp | ||
3305 | \&...can be displayed with: | ||
3306 | .Pp | ||
3307 | .Dl $ openssl errstr 2006D080 | ||
3308 | .Pp | ||
3309 | \&...to produce the error message: | ||
3310 | .Pp | ||
3311 | .Dl error:2006D080:BIO routines:BIO_new_file:no such file | ||
3312 | .\" | ||
3313 | .\" GENDH | ||
3314 | .\" | ||
3315 | .Sh GENDH | ||
3316 | Generation of Diffie-Hellman Parameters. | ||
3317 | Replaced by | ||
3318 | .Nm dhparam . | ||
3319 | See | ||
3320 | .Sx DHPARAM | ||
3321 | above. | ||
3322 | .\" | ||
3323 | .\" GENDSA | ||
3324 | .\" | ||
3325 | .Sh GENDSA | ||
3326 | .nr nS 1 | ||
3327 | .Nm "openssl gendsa" | ||
3328 | .Bk -words | ||
3329 | .Oo | ||
3330 | .Fl aes128 | aes192 | aes256 | | ||
3331 | .Fl des | des3 | ||
3332 | .Oc | ||
3333 | .Op Fl engine Ar id | ||
3334 | .Op Fl out Ar file | ||
3335 | .Op Ar paramfile | ||
3336 | .Ek | ||
3337 | .nr nS 0 | ||
3338 | .Pp | ||
3339 | The | ||
3340 | .Nm gendsa | ||
3341 | command generates a DSA private key from a DSA parameter file | ||
3342 | (which will typically be generated by the | ||
3343 | .Nm openssl dsaparam | ||
3344 | command). | ||
3345 | .Pp | ||
3346 | The options are as follows: | ||
3347 | .Bl -tag -width Ds | ||
3348 | .It Xo | ||
3349 | .Fl aes128 | aes192 | aes256 | | ||
3350 | .Fl des | des3 | ||
3351 | .Xc | ||
3352 | These options encrypt the private key with the AES, DES, | ||
3353 | or the triple DES ciphers, respectively, before outputting it. | ||
3354 | A pass phrase is prompted for. | ||
3355 | If none of these options are specified, no encryption is used. | ||
3356 | .It Fl engine Ar id | ||
3357 | Specifying an engine (by its unique | ||
3358 | .Ar id | ||
3359 | string) will cause | ||
3360 | .Nm gendsa | ||
3361 | to attempt to obtain a functional reference to the specified engine, | ||
3362 | thus initialising it if needed. | ||
3363 | The engine will then be set as the default for all available algorithms. | ||
3364 | .It Fl out Ar file | ||
3365 | The output | ||
3366 | .Ar file . | ||
3367 | If this argument is not specified, standard output is used. | ||
3368 | .It Ar paramfile | ||
3369 | This option specifies the DSA parameter file to use. | ||
3370 | The parameters in this file determine the size of the private key. | ||
3371 | DSA parameters can be generated and examined using the | ||
3372 | .Nm openssl dsaparam | ||
3373 | command. | ||
3374 | .El | ||
3375 | .Sh GENDSA NOTES | ||
3376 | DSA key generation is little more than random number generation so it is | ||
3377 | much quicker than RSA key generation, for example. | ||
3378 | .\" | ||
3379 | .\" GENPKEY | ||
3380 | .\" | ||
3381 | .Sh GENPKEY | ||
3382 | .nr nS 1 | ||
3383 | .Nm "openssl genpkey" | ||
3384 | .Bk -words | ||
3385 | .Op Fl algorithm Ar alg | ||
3386 | .Op Ar cipher | ||
3387 | .Op Fl engine Ar id | ||
3388 | .Op Fl genparam | ||
3389 | .Op Fl out Ar file | ||
3390 | .Op Fl outform Ar DER | PEM | ||
3391 | .Op Fl paramfile Ar file | ||
3392 | .Op Fl pass Ar arg | ||
3393 | .Op Fl pkeyopt Ar opt : Ns Ar value | ||
3394 | .Op Fl text | ||
3395 | .Ek | ||
3396 | .nr nS 0 | ||
3397 | .Pp | ||
3398 | The | ||
3399 | .Nm genpkey | ||
3400 | command generates private keys. | ||
3401 | The use of this | ||
3402 | program is encouraged over the algorithm specific utilities | ||
3403 | because additional algorithm options | ||
3404 | and engine-provided algorithms can be used. | ||
3405 | .Pp | ||
3406 | The options are as follows: | ||
3407 | .Bl -tag -width Ds | ||
3408 | .It Fl algorithm Ar alg | ||
3409 | The public key algorithm to use, | ||
3410 | such as RSA, DSA, or DH. | ||
3411 | If used this option must precede any | ||
3412 | .Fl pkeyopt | ||
3413 | options. | ||
3414 | The options | ||
3415 | .Fl paramfile | ||
3416 | and | ||
3417 | .Fl algorithm | ||
3418 | are mutually exclusive. | ||
3419 | .It Ar cipher | ||
3420 | Encrypt the private key with the supplied cipher. | ||
3421 | Any algorithm name accepted by | ||
3422 | .Fn EVP_get_cipherbyname | ||
3423 | is acceptable, such as | ||
3424 | .Cm des3 . | ||
3425 | .It Fl engine Ar id | ||
3426 | Specifying an engine (by its unique | ||
3427 | .Ar id | ||
3428 | string) will cause | ||
3429 | .Nm genpkey | ||
3430 | to attempt to obtain a functional reference to the specified engine, | ||
3431 | thus initialising it if needed. | ||
3432 | The engine will then be set as the default for all available algorithms. | ||
3433 | .It Fl genparam | ||
3434 | Generate a set of parameters instead of a private key. | ||
3435 | If used this option must precede any | ||
3436 | .Fl algorithm , | ||
3437 | .Fl paramfile , | ||
3438 | or | ||
3439 | .Fl pkeyopt | ||
3440 | options. | ||
3441 | .It Fl out Ar file | ||
3442 | The output filename. | ||
3443 | If this argument is not specified then standard output is used. | ||
3444 | .It Fl outform Ar DER | PEM | ||
3445 | This specifies the output format, DER or PEM. | ||
3446 | .It Fl paramfile Ar file | ||
3447 | Some public key algorithms generate a private key based on a set of parameters. | ||
3448 | They can be supplied using this option. | ||
3449 | If this option is used the public key | ||
3450 | algorithm used is determined by the parameters. | ||
3451 | If used this option must precede any | ||
3452 | .Fl pkeyopt | ||
3453 | options. | ||
3454 | The options | ||
3455 | .Fl paramfile | ||
3456 | and | ||
3457 | .Fl algorithm | ||
3458 | are mutually exclusive. | ||
3459 | .It Fl pass Ar arg | ||
3460 | The output file password source. | ||
3461 | For more information about the format of | ||
3462 | .Ar arg , | ||
3463 | see the | ||
3464 | .Sx PASS PHRASE ARGUMENTS | ||
3465 | section above. | ||
3466 | .It Fl pkeyopt Ar opt : Ns Ar value | ||
3467 | Set the public key algorithm option | ||
3468 | .Ar opt | ||
3469 | to | ||
3470 | .Ar value . | ||
3471 | The precise set of options supported | ||
3472 | depends on the public key algorithm used and its implementation. | ||
3473 | See | ||
3474 | .Sx GENPKEY KEY GENERATION OPTIONS | ||
3475 | below for more details. | ||
3476 | .It Fl text | ||
3477 | Print an (unencrypted) text representation of private and public keys and | ||
3478 | parameters along with the DER or PEM structure. | ||
3479 | .El | ||
3480 | .Sh GENPKEY KEY GENERATION OPTIONS | ||
3481 | The options supported by each algorithm | ||
3482 | and indeed each implementation of an algorithm can vary. | ||
3483 | The options for the | ||
3484 | .Nm OpenSSL | ||
3485 | implementations are detailed below. | ||
3486 | .Bl -tag -width Ds -offset indent | ||
3487 | .It rsa_keygen_bits : Ns Ar numbits | ||
3488 | (RSA) | ||
3489 | The number of bits in the generated key. | ||
3490 | If not specified 2048 is used. | ||
3491 | .It rsa_keygen_pubexp : Ns Ar value | ||
3492 | (RSA) | ||
3493 | The RSA public exponent value. | ||
3494 | This can be a large decimal or hexadecimal value if preceded by 0x. | ||
3495 | The default value is 65537. | ||
3496 | .It dsa_paramgen_bits : Ns Ar numbits | ||
3497 | (DSA) | ||
3498 | The number of bits in the generated parameters. | ||
3499 | If not specified 1024 is used. | ||
3500 | .It dh_paramgen_prime_len : Ns Ar numbits | ||
3501 | (DH) | ||
3502 | The number of bits in the prime parameter | ||
3503 | .Ar p . | ||
3504 | .It dh_paramgen_generator : Ns Ar value | ||
3505 | (DH) | ||
3506 | The value to use for the generator | ||
3507 | .Ar g . | ||
3508 | .It ec_paramgen_curve : Ns Ar curve | ||
3509 | (EC) | ||
3510 | The EC curve to use. | ||
3511 | .El | ||
3512 | .Sh GENPKEY EXAMPLES | ||
3513 | Generate an RSA private key using default parameters: | ||
3514 | .Bd -literal -offset indent | ||
3515 | $ openssl genpkey -algorithm RSA -out key.pem | ||
3516 | .Ed | ||
3517 | .Pp | ||
3518 | Encrypt and output a private key using 128-bit AES and the passphrase "hello": | ||
3519 | .Bd -literal -offset indent | ||
3520 | $ openssl genpkey -algorithm RSA -out key.pem \e | ||
3521 | -aes-128-cbc -pass pass:hello | ||
3522 | .Ed | ||
3523 | .Pp | ||
3524 | Generate a 2048-bit RSA key using 3 as the public exponent: | ||
3525 | .Bd -literal -offset indent | ||
3526 | $ openssl genpkey -algorithm RSA -out key.pem \e | ||
3527 | -pkeyopt rsa_keygen_bits:2048 -pkeyopt rsa_keygen_pubexp:3 | ||
3528 | .Ed | ||
3529 | .Pp | ||
3530 | Generate 1024-bit DSA parameters: | ||
3531 | .Bd -literal -offset indent | ||
3532 | $ openssl genpkey -genparam -algorithm DSA \e | ||
3533 | -out dsap.pem -pkeyopt dsa_paramgen_bits:1024 | ||
3534 | .Ed | ||
3535 | .Pp | ||
3536 | Generate a DSA key from parameters: | ||
3537 | .Bd -literal -offset indent | ||
3538 | $ openssl genpkey -paramfile dsap.pem -out dsakey.pem | ||
3539 | .Ed | ||
3540 | .Pp | ||
3541 | Generate 1024-bit DH parameters: | ||
3542 | .Bd -literal -offset indent | ||
3543 | $ openssl genpkey -genparam -algorithm DH \e | ||
3544 | -out dhp.pem -pkeyopt dh_paramgen_prime_len:1024 | ||
3545 | .Ed | ||
3546 | .Pp | ||
3547 | Generate a DH key from parameters: | ||
3548 | .Bd -literal -offset indent | ||
3549 | $ openssl genpkey -paramfile dhp.pem -out dhkey.pem | ||
3550 | .Ed | ||
3551 | .\" | ||
3552 | .\" GENRSA | ||
3553 | .\" | ||
3554 | .Sh GENRSA | ||
3555 | .nr nS 1 | ||
3556 | .Nm "openssl genrsa" | ||
3557 | .Bk -words | ||
3558 | .Op Fl 3 | f4 | ||
3559 | .Oo | ||
3560 | .Fl aes128 | aes192 | aes256 | | ||
3561 | .Fl des | des3 | ||
3562 | .Oc | ||
3563 | .Op Fl engine Ar id | ||
3564 | .Op Fl out Ar file | ||
3565 | .Op Fl passout Ar arg | ||
3566 | .Op Ar numbits | ||
3567 | .Ek | ||
3568 | .nr nS 0 | ||
3569 | .Pp | ||
3570 | The | ||
3571 | .Nm genrsa | ||
3572 | command generates an RSA private key. | ||
3573 | .Pp | ||
3574 | The options are as follows: | ||
3575 | .Bl -tag -width Ds | ||
3576 | .It Fl 3 | f4 | ||
3577 | The public exponent to use, either 3 or 65537. | ||
3578 | The default is 65537. | ||
3579 | .It Xo | ||
3580 | .Fl aes128 | aes192 | aes256 | | ||
3581 | .Fl des | des3 | ||
3582 | .Xc | ||
3583 | These options encrypt the private key with the AES, DES, | ||
3584 | or the triple DES ciphers, respectively, before outputting it. | ||
3585 | If none of these options are specified, no encryption is used. | ||
3586 | If encryption is used, a pass phrase is prompted for, | ||
3587 | if it is not supplied via the | ||
3588 | .Fl passout | ||
3589 | option. | ||
3590 | .It Fl engine Ar id | ||
3591 | Specifying an engine (by its unique | ||
3592 | .Ar id | ||
3593 | string) will cause | ||
3594 | .Nm genrsa | ||
3595 | to attempt to obtain a functional reference to the specified engine, | ||
3596 | thus initialising it if needed. | ||
3597 | The engine will then be set as the default for all available algorithms. | ||
3598 | .It Fl out Ar file | ||
3599 | The output | ||
3600 | .Ar file . | ||
3601 | If this argument is not specified, standard output is used. | ||
3602 | .It Fl passout Ar arg | ||
3603 | The output file password source. | ||
3604 | For more information about the format of | ||
3605 | .Ar arg , | ||
3606 | see the | ||
3607 | .Sx PASS PHRASE ARGUMENTS | ||
3608 | section above. | ||
3609 | .It Ar numbits | ||
3610 | The size of the private key to generate in bits. | ||
3611 | This must be the last option specified. | ||
3612 | The default is 2048. | ||
3613 | .El | ||
3614 | .Sh GENRSA NOTES | ||
3615 | RSA private key generation essentially involves the generation of two prime | ||
3616 | numbers. | ||
3617 | When generating a private key, various symbols will be output to | ||
3618 | indicate the progress of the generation. | ||
3619 | A | ||
3620 | .Sq \&. | ||
3621 | represents each number which has passed an initial sieve test; | ||
3622 | .Sq + | ||
3623 | means a number has passed a single round of the Miller-Rabin primality test. | ||
3624 | A newline means that the number has passed all the prime tests | ||
3625 | .Pq the actual number depends on the key size . | ||
3626 | .Pp | ||
3627 | Because key generation is a random process, | ||
3628 | the time taken to generate a key may vary somewhat. | ||
3629 | .Sh GENRSA BUGS | ||
3630 | A quirk of the prime generation algorithm is that it cannot generate small | ||
3631 | primes. | ||
3632 | Therefore the number of bits should not be less that 64. | ||
3633 | For typical private keys this will not matter because for security reasons | ||
3634 | they will be much larger | ||
3635 | .Pq typically 2048 bits . | ||
3636 | .\" | ||
3637 | .\" NSEQ | ||
3638 | .\" | ||
3639 | .Sh NSEQ | ||
3640 | .Nm openssl nseq | ||
3641 | .Op Fl in Ar file | ||
3642 | .Op Fl out Ar file | ||
3643 | .Op Fl toseq | ||
3644 | .Pp | ||
3645 | The | ||
3646 | .Nm nseq | ||
3647 | command takes a file containing a Netscape certificate | ||
3648 | sequence and prints out the certificates contained in it or takes a | ||
3649 | file of certificates and converts it into a Netscape certificate | ||
3650 | sequence. | ||
3651 | .Pp | ||
3652 | The options are as follows: | ||
3653 | .Bl -tag -width Ds | ||
3654 | .It Fl in Ar file | ||
3655 | This specifies the input | ||
3656 | .Ar file | ||
3657 | to read, or standard input if this option is not specified. | ||
3658 | .It Fl out Ar file | ||
3659 | Specifies the output | ||
3660 | .Ar file , | ||
3661 | or standard output by default. | ||
3662 | .It Fl toseq | ||
3663 | Normally, a Netscape certificate sequence will be input and the output | ||
3664 | is the certificates contained in it. | ||
3665 | With the | ||
3666 | .Fl toseq | ||
3667 | option the situation is reversed: | ||
3668 | a Netscape certificate sequence is created from a file of certificates. | ||
3669 | .El | ||
3670 | .Sh NSEQ EXAMPLES | ||
3671 | Output the certificates in a Netscape certificate sequence: | ||
3672 | .Bd -literal -offset indent | ||
3673 | $ openssl nseq -in nseq.pem -out certs.pem | ||
3674 | .Ed | ||
3675 | .Pp | ||
3676 | Create a Netscape certificate sequence: | ||
3677 | .Bd -literal -offset indent | ||
3678 | $ openssl nseq -in certs.pem -toseq -out nseq.pem | ||
3679 | .Ed | ||
3680 | .Sh NSEQ NOTES | ||
3681 | The PEM-encoded form uses the same headers and footers as a certificate: | ||
3682 | .Bd -unfilled -offset indent | ||
3683 | -----BEGIN CERTIFICATE----- | ||
3684 | -----END CERTIFICATE----- | ||
3685 | .Ed | ||
3686 | .Pp | ||
3687 | A Netscape certificate sequence is a Netscape specific form that can be sent | ||
3688 | to browsers as an alternative to the standard PKCS#7 format when several | ||
3689 | certificates are sent to the browser: | ||
3690 | for example during certificate enrollment. | ||
3691 | It is used by the Netscape certificate server, for example. | ||
3692 | .Sh NSEQ BUGS | ||
3693 | This program needs a few more options, | ||
3694 | like allowing DER or PEM input and output files | ||
3695 | and allowing multiple certificate files to be used. | ||
3696 | .\" | ||
3697 | .\" OCSP | ||
3698 | .\" | ||
3699 | .Sh OCSP | ||
3700 | .nr nS 1 | ||
3701 | .Nm "openssl ocsp" | ||
3702 | .Bk -words | ||
3703 | .Op Fl CA Ar file | ||
3704 | .Op Fl CAfile Ar file | ||
3705 | .Op Fl CApath Ar directory | ||
3706 | .Op Fl cert Ar file | ||
3707 | .Op Fl dgst Ar alg | ||
3708 | .Oo | ||
3709 | .Fl host | ||
3710 | .Ar hostname : Ns Ar port | ||
3711 | .Oc | ||
3712 | .Op Fl index Ar indexfile | ||
3713 | .Op Fl issuer Ar file | ||
3714 | .Op Fl ndays Ar days | ||
3715 | .Op Fl nmin Ar minutes | ||
3716 | .Op Fl no_cert_checks | ||
3717 | .Op Fl no_cert_verify | ||
3718 | .Op Fl no_certs | ||
3719 | .Op Fl no_chain | ||
3720 | .Op Fl no_intern | ||
3721 | .Op Fl no_nonce | ||
3722 | .Op Fl no_signature_verify | ||
3723 | .Op Fl nonce | ||
3724 | .Op Fl noverify | ||
3725 | .Op Fl nrequest Ar number | ||
3726 | .Op Fl out Ar file | ||
3727 | .Op Fl path Ar path | ||
3728 | .Op Fl port Ar portnum | ||
3729 | .Op Fl req_text | ||
3730 | .Op Fl reqin Ar file | ||
3731 | .Op Fl reqout Ar file | ||
3732 | .Op Fl resp_key_id | ||
3733 | .Op Fl resp_no_certs | ||
3734 | .Op Fl resp_text | ||
3735 | .Op Fl respin Ar file | ||
3736 | .Op Fl respout Ar file | ||
3737 | .Op Fl rkey Ar file | ||
3738 | .Op Fl rother Ar file | ||
3739 | .Op Fl rsigner Ar file | ||
3740 | .Op Fl serial Ar number | ||
3741 | .Op Fl sign_other Ar file | ||
3742 | .Op Fl signer Ar file | ||
3743 | .Op Fl signkey Ar file | ||
3744 | .Op Fl status_age Ar age | ||
3745 | .Op Fl text | ||
3746 | .Op Fl trust_other | ||
3747 | .Op Fl url Ar responder_url | ||
3748 | .Op Fl VAfile Ar file | ||
3749 | .Op Fl validity_period Ar nsec | ||
3750 | .Op Fl verify_other Ar file | ||
3751 | .Ek | ||
3752 | .nr nS 0 | ||
3753 | .Pp | ||
3754 | The Online Certificate Status Protocol | ||
3755 | .Pq OCSP | ||
3756 | enables applications to determine the | ||
3757 | .Pq revocation | ||
3758 | state of an identified certificate | ||
3759 | .Pq RFC 2560 . | ||
3760 | .Pp | ||
3761 | The | ||
3762 | .Nm ocsp | ||
3763 | command performs many common OCSP tasks. | ||
3764 | It can be used to print out requests and responses, | ||
3765 | create requests and send queries to an OCSP responder, | ||
3766 | and behave like a mini OCSP server itself. | ||
3767 | .Pp | ||
3768 | The options are as follows: | ||
3769 | .Bl -tag -width Ds | ||
3770 | .It Fl CAfile Ar file , Fl CApath Ar directory | ||
3771 | .Ar file | ||
3772 | or | ||
3773 | .Ar path | ||
3774 | containing trusted CA certificates. | ||
3775 | These are used to verify the signature on the OCSP response. | ||
3776 | .It Fl cert Ar file | ||
3777 | Add the certificate | ||
3778 | .Ar file | ||
3779 | to the request. | ||
3780 | The issuer certificate is taken from the previous | ||
3781 | .Fl issuer | ||
3782 | option, or an error occurs if no issuer certificate is specified. | ||
3783 | .It Fl dgst Ar alg | ||
3784 | Sets the digest algorithm to use for certificate identification | ||
3785 | in the OCSP request. | ||
3786 | By default SHA-1 is used. | ||
3787 | .It Xo | ||
3788 | .Fl host Ar hostname : Ns Ar port , | ||
3789 | .Fl path Ar path | ||
3790 | .Xc | ||
3791 | If the | ||
3792 | .Fl host | ||
3793 | option is present, then the OCSP request is sent to the host | ||
3794 | .Ar hostname | ||
3795 | on port | ||
3796 | .Ar port . | ||
3797 | .Fl path | ||
3798 | specifies the HTTP path name to use, or | ||
3799 | .Sq / | ||
3800 | by default. | ||
3801 | .It Fl issuer Ar file | ||
3802 | This specifies the current issuer certificate. | ||
3803 | This option can be used multiple times. | ||
3804 | The certificate specified in | ||
3805 | .Ar file | ||
3806 | must be in PEM format. | ||
3807 | This option | ||
3808 | .Em must | ||
3809 | come before any | ||
3810 | .Fl cert | ||
3811 | options. | ||
3812 | .It Fl no_cert_checks | ||
3813 | Don't perform any additional checks on the OCSP response signer's certificate. | ||
3814 | That is, do not make any checks to see if the signer's certificate is | ||
3815 | authorised to provide the necessary status information: | ||
3816 | as a result this option should only be used for testing purposes. | ||
3817 | .It Fl no_cert_verify | ||
3818 | Don't verify the OCSP response signer's certificate at all. | ||
3819 | Since this option allows the OCSP response to be signed by any certificate, | ||
3820 | it should only be used for testing purposes. | ||
3821 | .It Fl no_certs | ||
3822 | Don't include any certificates in signed request. | ||
3823 | .It Fl no_chain | ||
3824 | Do not use certificates in the response as additional untrusted CA | ||
3825 | certificates. | ||
3826 | .It Fl no_intern | ||
3827 | Ignore certificates contained in the OCSP response | ||
3828 | when searching for the signer's certificate. | ||
3829 | With this option, the signer's certificate must be specified with either the | ||
3830 | .Fl verify_other | ||
3831 | or | ||
3832 | .Fl VAfile | ||
3833 | options. | ||
3834 | .It Fl no_signature_verify | ||
3835 | Don't check the signature on the OCSP response. | ||
3836 | Since this option tolerates invalid signatures on OCSP responses, | ||
3837 | it will normally only be used for testing purposes. | ||
3838 | .It Fl nonce , no_nonce | ||
3839 | Add an OCSP | ||
3840 | .Em nonce | ||
3841 | extension to a request or disable an OCSP | ||
3842 | .Em nonce | ||
3843 | addition. | ||
3844 | Normally, if an OCSP request is input using the | ||
3845 | .Fl respin | ||
3846 | option no | ||
3847 | .Em nonce | ||
3848 | is added: | ||
3849 | using the | ||
3850 | .Fl nonce | ||
3851 | option will force addition of a | ||
3852 | .Em nonce . | ||
3853 | If an OCSP request is being created (using the | ||
3854 | .Fl cert | ||
3855 | and | ||
3856 | .Fl serial | ||
3857 | options) | ||
3858 | a | ||
3859 | .Em nonce | ||
3860 | is automatically added; specifying | ||
3861 | .Fl no_nonce | ||
3862 | overrides this. | ||
3863 | .It Fl noverify | ||
3864 | Don't attempt to verify the OCSP response signature or the | ||
3865 | .Em nonce | ||
3866 | values. | ||
3867 | This option will normally only be used for debugging | ||
3868 | since it disables all verification of the responder's certificate. | ||
3869 | .It Fl out Ar file | ||
3870 | Specify output | ||
3871 | .Ar file ; | ||
3872 | default is standard output. | ||
3873 | .It Fl req_text , resp_text , text | ||
3874 | Print out the text form of the OCSP request, response, or both, respectively. | ||
3875 | .It Fl reqin Ar file , Fl respin Ar file | ||
3876 | Read an OCSP request or response file from | ||
3877 | .Ar file . | ||
3878 | These options are ignored | ||
3879 | if an OCSP request or response creation is implied by other options | ||
3880 | (for example with the | ||
3881 | .Fl serial , cert , | ||
3882 | and | ||
3883 | .Fl host | ||
3884 | options). | ||
3885 | .It Fl reqout Ar file , Fl respout Ar file | ||
3886 | Write out the DER-encoded certificate request or response to | ||
3887 | .Ar file . | ||
3888 | .It Fl serial Ar num | ||
3889 | Same as the | ||
3890 | .Fl cert | ||
3891 | option except the certificate with serial number | ||
3892 | .Ar num | ||
3893 | is added to the request. | ||
3894 | The serial number is interpreted as a decimal integer unless preceded by | ||
3895 | .Sq 0x . | ||
3896 | Negative integers can also be specified by preceding the value with a | ||
3897 | .Sq - | ||
3898 | sign. | ||
3899 | .It Fl sign_other Ar file | ||
3900 | Additional certificates to include in the signed request. | ||
3901 | .It Fl signer Ar file , Fl signkey Ar file | ||
3902 | Sign the OCSP request using the certificate specified in the | ||
3903 | .Fl signer | ||
3904 | option and the private key specified by the | ||
3905 | .Fl signkey | ||
3906 | option. | ||
3907 | If the | ||
3908 | .Fl signkey | ||
3909 | option is not present, then the private key is read from the same file | ||
3910 | as the certificate. | ||
3911 | If neither option is specified, the OCSP request is not signed. | ||
3912 | .It Fl trust_other | ||
3913 | The certificates specified by the | ||
3914 | .Fl verify_other | ||
3915 | option should be explicitly trusted and no additional checks will be | ||
3916 | performed on them. | ||
3917 | This is useful when the complete responder certificate chain is not available | ||
3918 | or trusting a root CA is not appropriate. | ||
3919 | .It Fl url Ar responder_url | ||
3920 | Specify the responder URL. | ||
3921 | Both HTTP and HTTPS | ||
3922 | .Pq SSL/TLS | ||
3923 | URLs can be specified. | ||
3924 | .It Fl VAfile Ar file | ||
3925 | .Ar file | ||
3926 | containing explicitly trusted responder certificates. | ||
3927 | Equivalent to the | ||
3928 | .Fl verify_other | ||
3929 | and | ||
3930 | .Fl trust_other | ||
3931 | options. | ||
3932 | .It Fl validity_period Ar nsec , Fl status_age Ar age | ||
3933 | These options specify the range of times, in seconds, which will be tolerated | ||
3934 | in an OCSP response. | ||
3935 | Each certificate status response includes a | ||
3936 | .Em notBefore | ||
3937 | time and an optional | ||
3938 | .Em notAfter | ||
3939 | time. | ||
3940 | The current time should fall between these two values, | ||
3941 | but the interval between the two times may be only a few seconds. | ||
3942 | In practice the OCSP responder and clients' clocks may not be precisely | ||
3943 | synchronised and so such a check may fail. | ||
3944 | To avoid this the | ||
3945 | .Fl validity_period | ||
3946 | option can be used to specify an acceptable error range in seconds, | ||
3947 | the default value is 5 minutes. | ||
3948 | .Pp | ||
3949 | If the | ||
3950 | .Em notAfter | ||
3951 | time is omitted from a response, then this means that new status | ||
3952 | information is immediately available. | ||
3953 | In this case the age of the | ||
3954 | .Em notBefore | ||
3955 | field is checked to see it is not older than | ||
3956 | .Ar age | ||
3957 | seconds old. | ||
3958 | By default, this additional check is not performed. | ||
3959 | .It Fl verify_other Ar file | ||
3960 | .Ar file | ||
3961 | containing additional certificates to search when attempting to locate | ||
3962 | the OCSP response signing certificate. | ||
3963 | Some responders omit the actual signer's certificate from the response; | ||
3964 | this option can be used to supply the necessary certificate in such cases. | ||
3965 | .El | ||
3966 | .Sh OCSP SERVER OPTIONS | ||
3967 | .Bl -tag -width "XXXX" | ||
3968 | .It Fl CA Ar file | ||
3969 | CA certificate corresponding to the revocation information in | ||
3970 | .Ar indexfile . | ||
3971 | .It Fl index Ar indexfile | ||
3972 | .Ar indexfile | ||
3973 | is a text index file in | ||
3974 | .Nm ca | ||
3975 | format containing certificate revocation information. | ||
3976 | .Pp | ||
3977 | If the | ||
3978 | .Fl index | ||
3979 | option is specified, the | ||
3980 | .Nm ocsp | ||
3981 | utility is in | ||
3982 | .Em responder | ||
3983 | mode, otherwise it is in | ||
3984 | .Em client | ||
3985 | mode. | ||
3986 | The request(s) the responder processes can be either specified on | ||
3987 | the command line (using the | ||
3988 | .Fl issuer | ||
3989 | and | ||
3990 | .Fl serial | ||
3991 | options), supplied in a file (using the | ||
3992 | .Fl respin | ||
3993 | option) or via external OCSP clients (if | ||
3994 | .Ar port | ||
3995 | or | ||
3996 | .Ar url | ||
3997 | is specified). | ||
3998 | .Pp | ||
3999 | If the | ||
4000 | .Fl index | ||
4001 | option is present, then the | ||
4002 | .Fl CA | ||
4003 | and | ||
4004 | .Fl rsigner | ||
4005 | options must also be present. | ||
4006 | .It Fl nmin Ar minutes , Fl ndays Ar days | ||
4007 | Number of | ||
4008 | .Ar minutes | ||
4009 | or | ||
4010 | .Ar days | ||
4011 | when fresh revocation information is available: used in the | ||
4012 | .Ar nextUpdate | ||
4013 | field. | ||
4014 | If neither option is present, the | ||
4015 | .Em nextUpdate | ||
4016 | field is omitted, meaning fresh revocation information is immediately available. | ||
4017 | .It Fl nrequest Ar number | ||
4018 | The OCSP server will exit after receiving | ||
4019 | .Ar number | ||
4020 | requests, default unlimited. | ||
4021 | .It Fl port Ar portnum | ||
4022 | Port to listen for OCSP requests on. | ||
4023 | The port may also be specified using the | ||
4024 | .Fl url | ||
4025 | option. | ||
4026 | .It Fl resp_key_id | ||
4027 | Identify the signer certificate using the key ID; | ||
4028 | default is to use the subject name. | ||
4029 | .It Fl resp_no_certs | ||
4030 | Don't include any certificates in the OCSP response. | ||
4031 | .It Fl rkey Ar file | ||
4032 | The private key to sign OCSP responses with; | ||
4033 | if not present, the file specified in the | ||
4034 | .Fl rsigner | ||
4035 | option is used. | ||
4036 | .It Fl rother Ar file | ||
4037 | Additional certificates to include in the OCSP response. | ||
4038 | .It Fl rsigner Ar file | ||
4039 | The certificate to sign OCSP responses with. | ||
4040 | .El | ||
4041 | .Sh OCSP RESPONSE VERIFICATION | ||
4042 | OCSP Response follows the rules specified in RFC 2560. | ||
4043 | .Pp | ||
4044 | Initially the OCSP responder certificate is located and the signature on | ||
4045 | the OCSP request checked using the responder certificate's public key. | ||
4046 | .Pp | ||
4047 | Then a normal certificate verify is performed on the OCSP responder certificate | ||
4048 | building up a certificate chain in the process. | ||
4049 | The locations of the trusted certificates used to build the chain can be | ||
4050 | specified by the | ||
4051 | .Fl CAfile | ||
4052 | and | ||
4053 | .Fl CApath | ||
4054 | options or they will be looked for in the standard | ||
4055 | .Nm OpenSSL | ||
4056 | certificates | ||
4057 | directory. | ||
4058 | .Pp | ||
4059 | If the initial verify fails, the OCSP verify process halts with an | ||
4060 | error. | ||
4061 | .Pp | ||
4062 | Otherwise the issuing CA certificate in the request is compared to the OCSP | ||
4063 | responder certificate: if there is a match then the OCSP verify succeeds. | ||
4064 | .Pp | ||
4065 | Otherwise the OCSP responder certificate's CA is checked against the issuing | ||
4066 | CA certificate in the request. | ||
4067 | If there is a match and the OCSPSigning extended key usage is present | ||
4068 | in the OCSP responder certificate, then the OCSP verify succeeds. | ||
4069 | .Pp | ||
4070 | Otherwise the root CA of the OCSP responder's CA is checked to see if it | ||
4071 | is trusted for OCSP signing. | ||
4072 | If it is, the OCSP verify succeeds. | ||
4073 | .Pp | ||
4074 | If none of these checks is successful, the OCSP verify fails. | ||
4075 | .Pp | ||
4076 | What this effectively means is that if the OCSP responder certificate is | ||
4077 | authorised directly by the CA it is issuing revocation information about | ||
4078 | .Pq and it is correctly configured , | ||
4079 | then verification will succeed. | ||
4080 | .Pp | ||
4081 | If the OCSP responder is a | ||
4082 | .Em global responder | ||
4083 | which can give details about multiple CAs and has its own separate | ||
4084 | certificate chain, then its root CA can be trusted for OCSP signing. | ||
4085 | For example: | ||
4086 | .Bd -literal -offset indent | ||
4087 | $ openssl x509 -in ocspCA.pem -addtrust OCSPSigning \e | ||
4088 | -out trustedCA.pem | ||
4089 | .Ed | ||
4090 | .Pp | ||
4091 | Alternatively, the responder certificate itself can be explicitly trusted | ||
4092 | with the | ||
4093 | .Fl VAfile | ||
4094 | option. | ||
4095 | .Sh OCSP NOTES | ||
4096 | As noted, most of the verify options are for testing or debugging purposes. | ||
4097 | Normally, only the | ||
4098 | .Fl CApath , CAfile | ||
4099 | and | ||
4100 | .Pq if the responder is a `global VA' | ||
4101 | .Fl VAfile | ||
4102 | options need to be used. | ||
4103 | .Pp | ||
4104 | The OCSP server is only useful for test and demonstration purposes: | ||
4105 | it is not really usable as a full OCSP responder. | ||
4106 | It contains only a very simple HTTP request handling and can only handle | ||
4107 | the POST form of OCSP queries. | ||
4108 | It also handles requests serially, meaning it cannot respond to | ||
4109 | new requests until it has processed the current one. | ||
4110 | The text index file format of revocation is also inefficient for large | ||
4111 | quantities of revocation data. | ||
4112 | .Pp | ||
4113 | It is possible to run the | ||
4114 | .Nm ocsp | ||
4115 | application in | ||
4116 | .Em responder | ||
4117 | mode via a CGI script using the | ||
4118 | .Fl respin | ||
4119 | and | ||
4120 | .Fl respout | ||
4121 | options. | ||
4122 | .Sh OCSP EXAMPLES | ||
4123 | Create an OCSP request and write it to a file: | ||
4124 | .Bd -literal -offset indent | ||
4125 | $ openssl ocsp -issuer issuer.pem -cert c1.pem -cert c2.pem \e | ||
4126 | -reqout req.der | ||
4127 | .Ed | ||
4128 | .Pp | ||
4129 | Send a query to an OCSP responder with URL | ||
4130 | .Pa http://ocsp.myhost.com/ , | ||
4131 | save the response to a file and print it out in text form: | ||
4132 | .Bd -literal -offset indent | ||
4133 | $ openssl ocsp -issuer issuer.pem -cert c1.pem -cert c2.pem \e | ||
4134 | -url http://ocsp.myhost.com/ -resp_text -respout resp.der | ||
4135 | .Ed | ||
4136 | .Pp | ||
4137 | Read in an OCSP response and print out in text form: | ||
4138 | .Pp | ||
4139 | .Dl $ openssl ocsp -respin resp.der -text | ||
4140 | .Pp | ||
4141 | OCSP server on port 8888 using a standard | ||
4142 | .Nm ca | ||
4143 | configuration, and a separate responder certificate. | ||
4144 | All requests and responses are printed to a file: | ||
4145 | .Bd -literal -offset indent | ||
4146 | $ openssl ocsp -index demoCA/index.txt -port 8888 -rsigner \e | ||
4147 | rcert.pem -CA demoCA/cacert.pem -text -out log.txt | ||
4148 | .Ed | ||
4149 | .Pp | ||
4150 | As above, but exit after processing one request: | ||
4151 | .Bd -literal -offset indent | ||
4152 | $ openssl ocsp -index demoCA/index.txt -port 8888 -rsigner \e | ||
4153 | rcert.pem -CA demoCA/cacert.pem -nrequest 1 | ||
4154 | .Ed | ||
4155 | .Pp | ||
4156 | Query status information using internally generated request: | ||
4157 | .Bd -literal -offset indent | ||
4158 | $ openssl ocsp -index demoCA/index.txt -rsigner rcert.pem -CA \e | ||
4159 | demoCA/cacert.pem -issuer demoCA/cacert.pem -serial 1 | ||
4160 | .Ed | ||
4161 | .Pp | ||
4162 | Query status information using request read from a file and write | ||
4163 | the response to a second file: | ||
4164 | .Bd -literal -offset indent | ||
4165 | $ openssl ocsp -index demoCA/index.txt -rsigner rcert.pem -CA \e | ||
4166 | demoCA/cacert.pem -reqin req.der -respout resp.der | ||
4167 | .Ed | ||
4168 | .\" | ||
4169 | .\" PASSWD | ||
4170 | .\" | ||
4171 | .Sh PASSWD | ||
4172 | .nr nS 1 | ||
4173 | .Nm "openssl passwd" | ||
4174 | .Op Fl 1 | apr1 | crypt | ||
4175 | .Op Fl in Ar file | ||
4176 | .Op Fl noverify | ||
4177 | .Op Fl quiet | ||
4178 | .Op Fl reverse | ||
4179 | .Op Fl salt Ar string | ||
4180 | .Op Fl stdin | ||
4181 | .Op Fl table | ||
4182 | .Op Ar password | ||
4183 | .nr nS 0 | ||
4184 | .Pp | ||
4185 | The | ||
4186 | .Nm passwd | ||
4187 | command computes the hash of a password typed at run-time | ||
4188 | or the hash of each password in a list. | ||
4189 | The password list is taken from the named | ||
4190 | .Ar file | ||
4191 | for option | ||
4192 | .Fl in , | ||
4193 | from stdin for option | ||
4194 | .Fl stdin , | ||
4195 | or from the command line, or from the terminal otherwise. | ||
4196 | The | ||
4197 | .Ux | ||
4198 | standard algorithm | ||
4199 | .Em crypt | ||
4200 | and the MD5-based | ||
4201 | .Bx | ||
4202 | password algorithm | ||
4203 | .Em 1 | ||
4204 | and its Apache variant | ||
4205 | .Em apr1 | ||
4206 | are available. | ||
4207 | .Pp | ||
4208 | The options are as follows: | ||
4209 | .Bl -tag -width Ds | ||
4210 | .It Fl 1 | ||
4211 | Use the MD5 based | ||
4212 | .Bx | ||
4213 | password algorithm | ||
4214 | .Em 1 . | ||
4215 | .It Fl apr1 | ||
4216 | Use the | ||
4217 | .Em apr1 | ||
4218 | algorithm | ||
4219 | .Pq Apache variant of the | ||
4220 | .Bx | ||
4221 | algorithm. | ||
4222 | .It Fl crypt | ||
4223 | Use the | ||
4224 | .Em crypt | ||
4225 | algorithm | ||
4226 | .Pq default . | ||
4227 | .It Fl in Ar file | ||
4228 | Read passwords from | ||
4229 | .Ar file . | ||
4230 | .It Fl noverify | ||
4231 | Don't verify when reading a password from the terminal. | ||
4232 | .It Fl quiet | ||
4233 | Don't output warnings when passwords given on the command line are truncated. | ||
4234 | .It Fl reverse | ||
4235 | Switch table columns. | ||
4236 | This only makes sense in conjunction with the | ||
4237 | .Fl table | ||
4238 | option. | ||
4239 | .It Fl salt Ar string | ||
4240 | Use the specified | ||
4241 | .Ar salt . | ||
4242 | When reading a password from the terminal, this implies | ||
4243 | .Fl noverify . | ||
4244 | .It Fl stdin | ||
4245 | Read passwords from | ||
4246 | .Em stdin . | ||
4247 | .It Fl table | ||
4248 | In the output list, prepend the cleartext password and a TAB character | ||
4249 | to each password hash. | ||
4250 | .El | ||
4251 | .Sh PASSWD EXAMPLES | ||
4252 | .Dl $ openssl passwd -crypt -salt xx password | ||
4253 | prints | ||
4254 | .Qq xxj31ZMTZzkVA . | ||
4255 | .Pp | ||
4256 | .Dl $ openssl passwd -1 -salt xxxxxxxx password | ||
4257 | prints | ||
4258 | .Qq $1$xxxxxxxx$UYCIxa628.9qXjpQCjM4a. . | ||
4259 | .Pp | ||
4260 | .Dl $ openssl passwd -apr1 -salt xxxxxxxx password | ||
4261 | prints | ||
4262 | .Qq $apr1$xxxxxxxx$dxHfLAsjHkDRmG83UXe8K0 . | ||
4263 | .\" | ||
4264 | .\" PKCS7 | ||
4265 | .\" | ||
4266 | .Sh PKCS7 | ||
4267 | .nr nS 1 | ||
4268 | .Nm "openssl pkcs7" | ||
4269 | .Bk -words | ||
4270 | .Op Fl engine Ar id | ||
4271 | .Op Fl in Ar file | ||
4272 | .Op Fl inform Ar DER | PEM | ||
4273 | .Op Fl noout | ||
4274 | .Op Fl out Ar file | ||
4275 | .Op Fl outform Ar DER | PEM | ||
4276 | .Op Fl print_certs | ||
4277 | .Op Fl text | ||
4278 | .Ek | ||
4279 | .nr nS 0 | ||
4280 | .Pp | ||
4281 | The | ||
4282 | .Nm pkcs7 | ||
4283 | command processes PKCS#7 files in DER or PEM format. | ||
4284 | .Pp | ||
4285 | The options are as follows: | ||
4286 | .Bl -tag -width Ds | ||
4287 | .It Fl engine Ar id | ||
4288 | Specifying an engine (by its unique | ||
4289 | .Ar id | ||
4290 | string) will cause | ||
4291 | .Nm pkcs7 | ||
4292 | to attempt to obtain a functional reference to the specified engine, | ||
4293 | thus initialising it if needed. | ||
4294 | The engine will then be set as the default for all available algorithms. | ||
4295 | .It Fl in Ar file | ||
4296 | This specifies the input | ||
4297 | .Ar file | ||
4298 | to read from, or standard input if this option is not specified. | ||
4299 | .It Fl inform Ar DER | PEM | ||
4300 | This specifies the input format. | ||
4301 | .Ar DER | ||
4302 | format is a DER-encoded PKCS#7 v1.5 structure. | ||
4303 | .Ar PEM | ||
4304 | .Pq the default | ||
4305 | is a base64-encoded version of the DER form with header and footer lines. | ||
4306 | .It Fl noout | ||
4307 | Don't output the encoded version of the PKCS#7 structure | ||
4308 | (or certificates if | ||
4309 | .Fl print_certs | ||
4310 | is set). | ||
4311 | .It Fl out Ar file | ||
4312 | Specifies the output | ||
4313 | .Ar file | ||
4314 | to write to, or standard output by default. | ||
4315 | .It Fl outform Ar DER | PEM | ||
4316 | This specifies the output format; the options have the same meaning as the | ||
4317 | .Fl inform | ||
4318 | option. | ||
4319 | .It Fl print_certs | ||
4320 | Prints out any certificates or CRLs contained in the file. | ||
4321 | They are preceded by their subject and issuer names in a one-line format. | ||
4322 | .It Fl text | ||
4323 | Prints out certificate details in full rather than just subject and | ||
4324 | issuer names. | ||
4325 | .El | ||
4326 | .Sh PKCS7 EXAMPLES | ||
4327 | Convert a PKCS#7 file from PEM to DER: | ||
4328 | .Pp | ||
4329 | .Dl $ openssl pkcs7 -in file.pem -outform DER -out file.der | ||
4330 | .Pp | ||
4331 | Output all certificates in a file: | ||
4332 | .Pp | ||
4333 | .Dl $ openssl pkcs7 -in file.pem -print_certs -out certs.pem | ||
4334 | .Sh PKCS7 NOTES | ||
4335 | The PEM PKCS#7 format uses the header and footer lines: | ||
4336 | .Bd -unfilled -offset indent | ||
4337 | -----BEGIN PKCS7----- | ||
4338 | -----END PKCS7----- | ||
4339 | .Ed | ||
4340 | .Pp | ||
4341 | For compatibility with some CAs it will also accept: | ||
4342 | .Bd -unfilled -offset indent | ||
4343 | -----BEGIN CERTIFICATE----- | ||
4344 | -----END CERTIFICATE----- | ||
4345 | .Ed | ||
4346 | .Sh PKCS7 RESTRICTIONS | ||
4347 | There is no option to print out all the fields of a PKCS#7 file. | ||
4348 | .Pp | ||
4349 | The PKCS#7 routines only understand PKCS#7 v 1.5 as specified in RFC 2315. | ||
4350 | They cannot currently parse, for example, the new CMS as described in RFC 2630. | ||
4351 | .\" | ||
4352 | .\" PKCS8 | ||
4353 | .\" | ||
4354 | .Sh PKCS8 | ||
4355 | .nr nS 1 | ||
4356 | .Nm "openssl pkcs8" | ||
4357 | .Bk -words | ||
4358 | .Op Fl embed | ||
4359 | .Op Fl engine Ar id | ||
4360 | .Op Fl in Ar file | ||
4361 | .Op Fl inform Ar DER | PEM | ||
4362 | .Op Fl nocrypt | ||
4363 | .Op Fl noiter | ||
4364 | .Op Fl nooct | ||
4365 | .Op Fl nsdb | ||
4366 | .Op Fl out Ar file | ||
4367 | .Op Fl outform Ar DER | PEM | ||
4368 | .Op Fl passin Ar arg | ||
4369 | .Op Fl passout Ar arg | ||
4370 | .Op Fl topk8 | ||
4371 | .Op Fl v1 Ar alg | ||
4372 | .Op Fl v2 Ar alg | ||
4373 | .Ek | ||
4374 | .nr nS 0 | ||
4375 | .Pp | ||
4376 | The | ||
4377 | .Nm pkcs8 | ||
4378 | command processes private keys in PKCS#8 format. | ||
4379 | It can handle both unencrypted PKCS#8 PrivateKeyInfo format | ||
4380 | and EncryptedPrivateKeyInfo format with a variety of PKCS#5 | ||
4381 | .Pq v1.5 and v2.0 | ||
4382 | and PKCS#12 algorithms. | ||
4383 | .Pp | ||
4384 | The options are as follows: | ||
4385 | .Bl -tag -width Ds | ||
4386 | .It Fl embed | ||
4387 | This option generates DSA keys in a broken format. | ||
4388 | The DSA parameters are embedded inside the | ||
4389 | .Em PrivateKey | ||
4390 | structure. | ||
4391 | In this form the OCTET STRING contains an ASN1 SEQUENCE consisting of | ||
4392 | two structures: | ||
4393 | a SEQUENCE containing the parameters and an ASN1 INTEGER containing | ||
4394 | the private key. | ||
4395 | .It Fl engine Ar id | ||
4396 | Specifying an engine (by its unique | ||
4397 | .Ar id | ||
4398 | string) will cause | ||
4399 | .Nm pkcs8 | ||
4400 | to attempt to obtain a functional reference to the specified engine, | ||
4401 | thus initialising it if needed. | ||
4402 | The engine will then be set as the default for all available algorithms. | ||
4403 | .It Fl in Ar file | ||
4404 | This specifies the input | ||
4405 | .Ar file | ||
4406 | to read a key from, or standard input if this option is not specified. | ||
4407 | If the key is encrypted, a pass phrase will be prompted for. | ||
4408 | .It Fl inform Ar DER | PEM | ||
4409 | This specifies the input format. | ||
4410 | If a PKCS#8 format key is expected on input, | ||
4411 | then either a | ||
4412 | DER- or PEM-encoded version of a PKCS#8 key will be expected. | ||
4413 | Otherwise the DER or PEM format of the traditional format private key is used. | ||
4414 | .It Fl nocrypt | ||
4415 | PKCS#8 keys generated or input are normally PKCS#8 | ||
4416 | .Em EncryptedPrivateKeyInfo | ||
4417 | structures using an appropriate password-based encryption algorithm. | ||
4418 | With this option, an unencrypted | ||
4419 | .Em PrivateKeyInfo | ||
4420 | structure is expected or output. | ||
4421 | This option does not encrypt private keys at all and should only be used | ||
4422 | when absolutely necessary. | ||
4423 | Certain software such as some versions of Java code signing software use | ||
4424 | unencrypted private keys. | ||
4425 | .It Fl noiter | ||
4426 | Use an iteration count of 1. | ||
4427 | See the | ||
4428 | .Sx PKCS12 | ||
4429 | section below for a detailed explanation of this option. | ||
4430 | .It Fl nooct | ||
4431 | This option generates RSA private keys in a broken format that some software | ||
4432 | uses. | ||
4433 | Specifically the private key should be enclosed in an OCTET STRING, | ||
4434 | but some software just includes the structure itself without the | ||
4435 | surrounding OCTET STRING. | ||
4436 | .It Fl nsdb | ||
4437 | This option generates DSA keys in a broken format compatible with Netscape | ||
4438 | private key databases. | ||
4439 | The | ||
4440 | .Em PrivateKey | ||
4441 | contains a SEQUENCE consisting of the public and private keys, respectively. | ||
4442 | .It Fl out Ar file | ||
4443 | This specifies the output | ||
4444 | .Ar file | ||
4445 | to write a key to, or standard output by default. | ||
4446 | If any encryption options are set, a pass phrase will be prompted for. | ||
4447 | The output filename should | ||
4448 | .Em not | ||
4449 | be the same as the input filename. | ||
4450 | .It Fl outform Ar DER | PEM | ||
4451 | This specifies the output format; the options have the same meaning as the | ||
4452 | .Fl inform | ||
4453 | option. | ||
4454 | .It Fl passin Ar arg | ||
4455 | The key password source. | ||
4456 | For more information about the format of | ||
4457 | .Ar arg , | ||
4458 | see the | ||
4459 | .Sx PASS PHRASE ARGUMENTS | ||
4460 | section above. | ||
4461 | .It Fl passout Ar arg | ||
4462 | The output file password source. | ||
4463 | For more information about the format of | ||
4464 | .Ar arg , | ||
4465 | see the | ||
4466 | .Sx PASS PHRASE ARGUMENTS | ||
4467 | section above. | ||
4468 | .It Fl topk8 | ||
4469 | Normally, a PKCS#8 private key is expected on input and a traditional format | ||
4470 | private key will be written. | ||
4471 | With the | ||
4472 | .Fl topk8 | ||
4473 | option the situation is reversed: | ||
4474 | it reads a traditional format private key and writes a PKCS#8 format key. | ||
4475 | .It Fl v1 Ar alg | ||
4476 | This option specifies a PKCS#5 v1.5 or PKCS#12 algorithm to use. | ||
4477 | A complete list of possible algorithms is included below. | ||
4478 | .It Fl v2 Ar alg | ||
4479 | This option enables the use of PKCS#5 v2.0 algorithms. | ||
4480 | Normally, PKCS#8 private keys are encrypted with the password-based | ||
4481 | encryption algorithm called | ||
4482 | .Em pbeWithMD5AndDES-CBC ; | ||
4483 | this uses 56-bit DES encryption but it was the strongest encryption | ||
4484 | algorithm supported in PKCS#5 v1.5. | ||
4485 | Using the | ||
4486 | .Fl v2 | ||
4487 | option PKCS#5 v2.0 algorithms are used which can use any | ||
4488 | encryption algorithm such as 168-bit triple DES or 128-bit RC2, however | ||
4489 | not many implementations support PKCS#5 v2.0 yet. | ||
4490 | If using private keys with | ||
4491 | .Nm OpenSSL | ||
4492 | then this doesn't matter. | ||
4493 | .Pp | ||
4494 | The | ||
4495 | .Ar alg | ||
4496 | argument is the encryption algorithm to use; valid values include | ||
4497 | .Ar des , des3 , | ||
4498 | and | ||
4499 | .Ar rc2 . | ||
4500 | It is recommended that | ||
4501 | .Ar des3 | ||
4502 | is used. | ||
4503 | .El | ||
4504 | .Sh PKCS8 NOTES | ||
4505 | The encrypted form of a PEM-encoded PKCS#8 file uses the following | ||
4506 | headers and footers: | ||
4507 | .Bd -unfilled -offset indent | ||
4508 | -----BEGIN ENCRYPTED PRIVATE KEY----- | ||
4509 | -----END ENCRYPTED PRIVATE KEY----- | ||
4510 | .Ed | ||
4511 | .Pp | ||
4512 | The unencrypted form uses: | ||
4513 | .Bd -unfilled -offset indent | ||
4514 | -----BEGIN PRIVATE KEY----- | ||
4515 | -----END PRIVATE KEY----- | ||
4516 | .Ed | ||
4517 | .Pp | ||
4518 | Private keys encrypted using PKCS#5 v2.0 algorithms and high iteration | ||
4519 | counts are more secure than those encrypted using the traditional | ||
4520 | .Nm SSLeay | ||
4521 | compatible formats. | ||
4522 | So if additional security is considered important, the keys should be converted. | ||
4523 | .Pp | ||
4524 | The default encryption is only 56 bits because this is the encryption | ||
4525 | that most current implementations of PKCS#8 support. | ||
4526 | .Pp | ||
4527 | Some software may use PKCS#12 password-based encryption algorithms | ||
4528 | with PKCS#8 format private keys: these are handled automatically | ||
4529 | but there is no option to produce them. | ||
4530 | .Pp | ||
4531 | It is possible to write out | ||
4532 | DER-encoded encrypted private keys in PKCS#8 format because the encryption | ||
4533 | details are included at an ASN1 | ||
4534 | level whereas the traditional format includes them at a PEM level. | ||
4535 | .Sh PKCS#5 V1.5 AND PKCS#12 ALGORITHMS | ||
4536 | Various algorithms can be used with the | ||
4537 | .Fl v1 | ||
4538 | command line option, including PKCS#5 v1.5 and PKCS#12. | ||
4539 | These are described in more detail below. | ||
4540 | .Pp | ||
4541 | .Bl -tag -width "XXXX" -compact | ||
4542 | .It Ar PBE-MD2-DES | PBE-MD5-DES | ||
4543 | These algorithms were included in the original PKCS#5 v1.5 specification. | ||
4544 | They only offer 56 bits of protection since they both use DES. | ||
4545 | .Pp | ||
4546 | .It Ar PBE-SHA1-RC2-64 | PBE-MD2-RC2-64 | PBE-MD5-RC2-64 | PBE-SHA1-DES | ||
4547 | These algorithms are not mentioned in the original PKCS#5 v1.5 specification | ||
4548 | but they use the same key derivation algorithm and are supported by some | ||
4549 | software. | ||
4550 | They are mentioned in PKCS#5 v2.0. | ||
4551 | They use either 64-bit RC2 or 56-bit DES. | ||
4552 | .Pp | ||
4553 | .It Ar PBE-SHA1-RC4-128 | PBE-SHA1-RC4-40 | PBE-SHA1-3DES | PBE-SHA1-2DES | ||
4554 | .It Ar PBE-SHA1-RC2-128 | PBE-SHA1-RC2-40 | ||
4555 | These algorithms use the PKCS#12 password-based encryption algorithm and | ||
4556 | allow strong encryption algorithms like triple DES or 128-bit RC2 to be used. | ||
4557 | .El | ||
4558 | .Sh PKCS8 EXAMPLES | ||
4559 | Convert a private key from traditional to PKCS#5 v2.0 format using triple DES: | ||
4560 | .Pp | ||
4561 | .Dl "$ openssl pkcs8 -in key.pem -topk8 -v2 des3 -out enckey.pem" | ||
4562 | .Pp | ||
4563 | Convert a private key to PKCS#8 using a PKCS#5 1.5 compatible algorithm | ||
4564 | .Pq DES : | ||
4565 | .Pp | ||
4566 | .Dl $ openssl pkcs8 -in key.pem -topk8 -out enckey.pem | ||
4567 | .Pp | ||
4568 | Convert a private key to PKCS#8 using a PKCS#12 compatible algorithm | ||
4569 | .Pq 3DES : | ||
4570 | .Bd -literal -offset indent | ||
4571 | $ openssl pkcs8 -in key.pem -topk8 -out enckey.pem \e | ||
4572 | -v1 PBE-SHA1-3DES | ||
4573 | .Ed | ||
4574 | .Pp | ||
4575 | Read a DER-unencrypted PKCS#8 format private key: | ||
4576 | .Pp | ||
4577 | .Dl "$ openssl pkcs8 -inform DER -nocrypt -in key.der -out key.pem" | ||
4578 | .Pp | ||
4579 | Convert a private key from any PKCS#8 format to traditional format: | ||
4580 | .Pp | ||
4581 | .Dl $ openssl pkcs8 -in pk8.pem -out key.pem | ||
4582 | .Sh PKCS8 STANDARDS | ||
4583 | Test vectors from this PKCS#5 v2.0 implementation were posted to the | ||
4584 | pkcs-tng mailing list using triple DES, DES and RC2 with high iteration counts; | ||
4585 | several people confirmed that they could decrypt the private | ||
4586 | keys produced and therefore it can be assumed that the PKCS#5 v2.0 | ||
4587 | implementation is reasonably accurate at least as far as these | ||
4588 | algorithms are concerned. | ||
4589 | .Pp | ||
4590 | The format of PKCS#8 DSA | ||
4591 | .Pq and other | ||
4592 | private keys is not well documented: | ||
4593 | it is hidden away in PKCS#11 v2.01, section 11.9; | ||
4594 | .Nm OpenSSL Ns Li 's | ||
4595 | default DSA PKCS#8 private key format complies with this standard. | ||
4596 | .Sh PKCS8 BUGS | ||
4597 | There should be an option that prints out the encryption algorithm | ||
4598 | in use and other details such as the iteration count. | ||
4599 | .Pp | ||
4600 | PKCS#8 using triple DES and PKCS#5 v2.0 should be the default private | ||
4601 | key format; for | ||
4602 | .Nm OpenSSL | ||
4603 | compatibility, several of the utilities use the old format at present. | ||
4604 | .\" | ||
4605 | .\" PKCS12 | ||
4606 | .\" | ||
4607 | .Sh PKCS12 | ||
4608 | .nr nS 1 | ||
4609 | .Nm "openssl pkcs12" | ||
4610 | .Bk -words | ||
4611 | .Oo | ||
4612 | .Fl aes128 | aes192 | aes256 | | ||
4613 | .Fl des | des3 | ||
4614 | .Oc | ||
4615 | .Op Fl cacerts | ||
4616 | .Op Fl CAfile Ar file | ||
4617 | .Op Fl caname Ar name | ||
4618 | .Op Fl CApath Ar directory | ||
4619 | .Op Fl certfile Ar file | ||
4620 | .Op Fl certpbe Ar alg | ||
4621 | .Op Fl chain | ||
4622 | .Op Fl clcerts | ||
4623 | .Op Fl CSP Ar name | ||
4624 | .Op Fl descert | ||
4625 | .Op Fl engine Ar id | ||
4626 | .Op Fl export | ||
4627 | .Op Fl in Ar file | ||
4628 | .Op Fl info | ||
4629 | .Op Fl inkey Ar file | ||
4630 | .Op Fl keyex | ||
4631 | .Op Fl keypbe Ar alg | ||
4632 | .Op Fl keysig | ||
4633 | .Op Fl macalg Ar alg | ||
4634 | .Op Fl maciter | ||
4635 | .Op Fl name Ar name | ||
4636 | .Op Fl nocerts | ||
4637 | .Op Fl nodes | ||
4638 | .Op Fl noiter | ||
4639 | .Op Fl nokeys | ||
4640 | .Op Fl nomac | ||
4641 | .Op Fl nomaciter | ||
4642 | .Op Fl nomacver | ||
4643 | .Op Fl noout | ||
4644 | .Op Fl out Ar file | ||
4645 | .Op Fl passin Ar arg | ||
4646 | .Op Fl passout Ar arg | ||
4647 | .Op Fl twopass | ||
4648 | .Ek | ||
4649 | .nr nS 0 | ||
4650 | .Pp | ||
4651 | The | ||
4652 | .Nm pkcs12 | ||
4653 | command allows PKCS#12 files | ||
4654 | .Pq sometimes referred to as PFX files | ||
4655 | to be created and parsed. | ||
4656 | PKCS#12 files are used by several programs including Netscape, MSIE | ||
4657 | and MS Outlook. | ||
4658 | .Pp | ||
4659 | There are a lot of options; the meaning of some depends on whether a | ||
4660 | PKCS#12 file is being created or parsed. | ||
4661 | By default, a PKCS#12 file is parsed; | ||
4662 | a PKCS#12 file can be created by using the | ||
4663 | .Fl export | ||
4664 | option | ||
4665 | .Pq see below . | ||
4666 | .Sh PKCS12 PARSING OPTIONS | ||
4667 | .Bl -tag -width "XXXX" | ||
4668 | .It Xo | ||
4669 | .Fl aes128 | aes192 | aes256 | | ||
4670 | .Fl des | des3 | ||
4671 | .Xc | ||
4672 | Use AES, DES, or triple DES, respectively, | ||
4673 | to encrypt private keys before outputting. | ||
4674 | The default is triple DES. | ||
4675 | .It Fl cacerts | ||
4676 | Only output CA certificates | ||
4677 | .Pq not client certificates . | ||
4678 | .It Fl clcerts | ||
4679 | Only output client certificates | ||
4680 | .Pq not CA certificates . | ||
4681 | .It Fl in Ar file | ||
4682 | This specifies the | ||
4683 | .Ar file | ||
4684 | of the PKCS#12 file to be parsed. | ||
4685 | Standard input is used by default. | ||
4686 | .It Fl info | ||
4687 | Output additional information about the PKCS#12 file structure, | ||
4688 | algorithms used, and iteration counts. | ||
4689 | .It Fl nocerts | ||
4690 | No certificates at all will be output. | ||
4691 | .It Fl nodes | ||
4692 | Don't encrypt the private keys at all. | ||
4693 | .It Fl nokeys | ||
4694 | No private keys will be output. | ||
4695 | .It Fl nomacver | ||
4696 | Don't attempt to verify the integrity MAC before reading the file. | ||
4697 | .It Fl noout | ||
4698 | This option inhibits output of the keys and certificates to the output file | ||
4699 | version of the PKCS#12 file. | ||
4700 | .It Fl out Ar file | ||
4701 | The | ||
4702 | .Ar file | ||
4703 | to write certificates and private keys to, standard output by default. | ||
4704 | They are all written in PEM format. | ||
4705 | .It Fl passin Ar arg | ||
4706 | The key password source. | ||
4707 | For more information about the format of | ||
4708 | .Ar arg , | ||
4709 | see the | ||
4710 | .Sx PASS PHRASE ARGUMENTS | ||
4711 | section above. | ||
4712 | .It Fl passout Ar arg | ||
4713 | The output file password source. | ||
4714 | For more information about the format of | ||
4715 | .Ar arg , | ||
4716 | see the | ||
4717 | .Sx PASS PHRASE ARGUMENTS | ||
4718 | section above. | ||
4719 | .It Fl twopass | ||
4720 | Prompt for separate integrity and encryption passwords: most software | ||
4721 | always assumes these are the same so this option will render such | ||
4722 | PKCS#12 files unreadable. | ||
4723 | .El | ||
4724 | .Sh PKCS12 FILE CREATION OPTIONS | ||
4725 | .Bl -tag -width "XXXX" | ||
4726 | .It Fl CAfile Ar file | ||
4727 | CA storage as a file. | ||
4728 | .It Fl CApath Ar directory | ||
4729 | CA storage as a directory. | ||
4730 | This directory must be a standard certificate directory: | ||
4731 | that is, a hash of each subject name (using | ||
4732 | .Cm x509 -hash ) | ||
4733 | should be linked to each certificate. | ||
4734 | .It Fl caname Ar name | ||
4735 | This specifies the | ||
4736 | .Qq friendly name | ||
4737 | for other certificates. | ||
4738 | This option may be used multiple times to specify names for all certificates | ||
4739 | in the order they appear. | ||
4740 | Netscape ignores friendly names on other certificates, | ||
4741 | whereas MSIE displays them. | ||
4742 | .It Fl certfile Ar file | ||
4743 | A file to read additional certificates from. | ||
4744 | .It Fl certpbe Ar alg , Fl keypbe Ar alg | ||
4745 | These options allow the algorithm used to encrypt the private key and | ||
4746 | certificates to be selected. | ||
4747 | Any PKCS#5 v1.5 or PKCS#12 PBE algorithm name can be used (see the | ||
4748 | .Sx PKCS12 NOTES | ||
4749 | section for more information). | ||
4750 | If a cipher name | ||
4751 | (as output by the | ||
4752 | .Cm list-cipher-algorithms | ||
4753 | command) is specified then it | ||
4754 | is used with PKCS#5 v2.0. | ||
4755 | For interoperability reasons it is advisable to only use PKCS#12 algorithms. | ||
4756 | .It Fl chain | ||
4757 | If this option is present, an attempt is made to include the entire | ||
4758 | certificate chain of the user certificate. | ||
4759 | The standard CA store is used for this search. | ||
4760 | If the search fails, it is considered a fatal error. | ||
4761 | .It Fl CSP Ar name | ||
4762 | Write | ||
4763 | .Ar name | ||
4764 | as a Microsoft CSP name. | ||
4765 | .It Fl descert | ||
4766 | Encrypt the certificate using triple DES; this may render the PKCS#12 | ||
4767 | file unreadable by some | ||
4768 | .Qq export grade | ||
4769 | software. | ||
4770 | By default, the private key is encrypted using triple DES and the | ||
4771 | certificate using 40-bit RC2. | ||
4772 | .It Fl engine Ar id | ||
4773 | Specifying an engine (by its unique | ||
4774 | .Ar id | ||
4775 | string) will cause | ||
4776 | .Nm pkcs12 | ||
4777 | to attempt to obtain a functional reference to the specified engine, | ||
4778 | thus initialising it if needed. | ||
4779 | The engine will then be set as the default for all available algorithms. | ||
4780 | .It Fl export | ||
4781 | This option specifies that a PKCS#12 file will be created rather than | ||
4782 | parsed. | ||
4783 | .It Fl in Ar file | ||
4784 | The | ||
4785 | .Ar file | ||
4786 | to read certificates and private keys from, standard input by default. | ||
4787 | They must all be in PEM format. | ||
4788 | The order doesn't matter but one private key and its corresponding | ||
4789 | certificate should be present. | ||
4790 | If additional certificates are present, they will also be included | ||
4791 | in the PKCS#12 file. | ||
4792 | .It Fl inkey Ar file | ||
4793 | File to read private key from. | ||
4794 | If not present, a private key must be present in the input file. | ||
4795 | .It Fl keyex | keysig | ||
4796 | Specifies that the private key is to be used for key exchange or just signing. | ||
4797 | This option is only interpreted by MSIE and similar MS software. | ||
4798 | Normally, | ||
4799 | .Qq export grade | ||
4800 | software will only allow 512-bit RSA keys to be | ||
4801 | used for encryption purposes, but arbitrary length keys for signing. | ||
4802 | The | ||
4803 | .Fl keysig | ||
4804 | option marks the key for signing only. | ||
4805 | Signing only keys can be used for S/MIME signing, authenticode | ||
4806 | .Pq ActiveX control signing | ||
4807 | and SSL client authentication; | ||
4808 | however, due to a bug only MSIE 5.0 and later support | ||
4809 | the use of signing only keys for SSL client authentication. | ||
4810 | .It Fl macalg Ar alg | ||
4811 | Specify the MAC digest algorithm. | ||
4812 | If not included then SHA1 is used. | ||
4813 | .It Fl maciter | ||
4814 | This option is included for compatibility with previous versions; it used | ||
4815 | to be needed to use MAC iterations counts but they are now used by default. | ||
4816 | .It Fl name Ar name | ||
4817 | This specifies the | ||
4818 | .Qq friendly name | ||
4819 | for the certificate and private key. | ||
4820 | This name is typically displayed in list boxes by software importing the file. | ||
4821 | .It Fl nomac | ||
4822 | Don't attempt to provide the MAC integrity. | ||
4823 | .It Fl nomaciter , noiter | ||
4824 | These options affect the iteration counts on the MAC and key algorithms. | ||
4825 | Unless you wish to produce files compatible with MSIE 4.0, you should leave | ||
4826 | these options alone. | ||
4827 | .Pp | ||
4828 | To discourage attacks by using large dictionaries of common passwords, | ||
4829 | the algorithm that derives keys from passwords can have an iteration count | ||
4830 | applied to it: this causes a certain part of the algorithm to be repeated | ||
4831 | and slows it down. | ||
4832 | The MAC is used to check the file integrity but since it will normally | ||
4833 | have the same password as the keys and certificates it could also be attacked. | ||
4834 | By default, both MAC and encryption iteration counts are set to 2048; | ||
4835 | using these options the MAC and encryption iteration counts can be set to 1. | ||
4836 | Since this reduces the file security you should not use these options | ||
4837 | unless you really have to. | ||
4838 | Most software supports both MAC and key iteration counts. | ||
4839 | MSIE 4.0 doesn't support MAC iteration counts, so it needs the | ||
4840 | .Fl nomaciter | ||
4841 | option. | ||
4842 | .It Fl out Ar file | ||
4843 | This specifies | ||
4844 | .Ar file | ||
4845 | to write the PKCS#12 file to. | ||
4846 | Standard output is used by default. | ||
4847 | .It Fl passin Ar arg | ||
4848 | The key password source. | ||
4849 | For more information about the format of | ||
4850 | .Ar arg , | ||
4851 | see the | ||
4852 | .Sx PASS PHRASE ARGUMENTS | ||
4853 | section above. | ||
4854 | .It Fl passout Ar arg | ||
4855 | The output file password source. | ||
4856 | For more information about the format of | ||
4857 | .Ar arg , | ||
4858 | see the | ||
4859 | .Sx PASS PHRASE ARGUMENTS | ||
4860 | section above. | ||
4861 | .El | ||
4862 | .Sh PKCS12 NOTES | ||
4863 | Although there are a large number of options, | ||
4864 | most of them are very rarely used. | ||
4865 | For PKCS#12 file parsing, only | ||
4866 | .Fl in | ||
4867 | and | ||
4868 | .Fl out | ||
4869 | need to be used for PKCS#12 file creation. | ||
4870 | .Fl export | ||
4871 | and | ||
4872 | .Fl name | ||
4873 | are also used. | ||
4874 | .Pp | ||
4875 | If none of the | ||
4876 | .Fl clcerts , cacerts , | ||
4877 | or | ||
4878 | .Fl nocerts | ||
4879 | options are present, then all certificates will be output in the order | ||
4880 | they appear in the input PKCS#12 files. | ||
4881 | There is no guarantee that the first certificate present is | ||
4882 | the one corresponding to the private key. | ||
4883 | Certain software which requires a private key and certificate and assumes | ||
4884 | the first certificate in the file is the one corresponding to the private key: | ||
4885 | this may not always be the case. | ||
4886 | Using the | ||
4887 | .Fl clcerts | ||
4888 | option will solve this problem by only outputting the certificate | ||
4889 | corresponding to the private key. | ||
4890 | If the CA certificates are required, they can be output to a separate | ||
4891 | file using the | ||
4892 | .Fl nokeys | ||
4893 | and | ||
4894 | .Fl cacerts | ||
4895 | options to just output CA certificates. | ||
4896 | .Pp | ||
4897 | The | ||
4898 | .Fl keypbe | ||
4899 | and | ||
4900 | .Fl certpbe | ||
4901 | algorithms allow the precise encryption algorithms for private keys | ||
4902 | and certificates to be specified. | ||
4903 | Normally, the defaults are fine but occasionally software can't handle | ||
4904 | triple DES encrypted private keys; | ||
4905 | then the option | ||
4906 | .Fl keypbe Ar PBE-SHA1-RC2-40 | ||
4907 | can be used to reduce the private key encryption to 40-bit RC2. | ||
4908 | A complete description of all algorithms is contained in the | ||
4909 | .Sx PKCS8 | ||
4910 | section above. | ||
4911 | .Sh PKCS12 EXAMPLES | ||
4912 | Parse a PKCS#12 file and output it to a file: | ||
4913 | .Pp | ||
4914 | .Dl $ openssl pkcs12 -in file.p12 -out file.pem | ||
4915 | .Pp | ||
4916 | Output only client certificates to a file: | ||
4917 | .Pp | ||
4918 | .Dl $ openssl pkcs12 -in file.p12 -clcerts -out file.pem | ||
4919 | .Pp | ||
4920 | Don't encrypt the private key: | ||
4921 | .Pp | ||
4922 | .Dl $ openssl pkcs12 -in file.p12 -out file.pem -nodes | ||
4923 | .Pp | ||
4924 | Print some info about a PKCS#12 file: | ||
4925 | .Pp | ||
4926 | .Dl $ openssl pkcs12 -in file.p12 -info -noout | ||
4927 | .Pp | ||
4928 | Create a PKCS#12 file: | ||
4929 | .Bd -literal -offset indent | ||
4930 | $ openssl pkcs12 -export -in file.pem -out file.p12 \e | ||
4931 | -name "My Certificate" | ||
4932 | .Ed | ||
4933 | .Pp | ||
4934 | Include some extra certificates: | ||
4935 | .Bd -literal -offset indent | ||
4936 | $ openssl pkcs12 -export -in file.pem -out file.p12 \e | ||
4937 | -name "My Certificate" -certfile othercerts.pem | ||
4938 | .Ed | ||
4939 | .Sh PKCS12 BUGS | ||
4940 | Some would argue that the PKCS#12 standard is one big bug :\-) | ||
4941 | .Pp | ||
4942 | Versions of | ||
4943 | .Nm OpenSSL | ||
4944 | before 0.9.6a had a bug in the PKCS#12 key generation routines. | ||
4945 | Under rare circumstances this could produce a PKCS#12 file encrypted | ||
4946 | with an invalid key. | ||
4947 | As a result some PKCS#12 files which triggered this bug | ||
4948 | from other implementations | ||
4949 | .Pq MSIE or Netscape | ||
4950 | could not be decrypted by | ||
4951 | .Nm OpenSSL | ||
4952 | and similarly | ||
4953 | .Nm OpenSSL | ||
4954 | could produce PKCS#12 files which could not be decrypted by other | ||
4955 | implementations. | ||
4956 | The chances of producing such a file are relatively small: less than 1 in 256. | ||
4957 | .Pp | ||
4958 | A side effect of fixing this bug is that any old invalidly encrypted PKCS#12 | ||
4959 | files can no longer be parsed by the fixed version. | ||
4960 | Under such circumstances the | ||
4961 | .Nm pkcs12 | ||
4962 | utility will report that the MAC is OK but fail with a decryption | ||
4963 | error when extracting private keys. | ||
4964 | .Pp | ||
4965 | This problem can be resolved by extracting the private keys and certificates | ||
4966 | from the PKCS#12 file using an older version of | ||
4967 | .Nm OpenSSL | ||
4968 | and recreating | ||
4969 | the PKCS#12 file from the keys and certificates using a newer version of | ||
4970 | .Nm OpenSSL . | ||
4971 | For example: | ||
4972 | .Bd -literal -offset indent | ||
4973 | $ old-openssl -in bad.p12 -out keycerts.pem | ||
4974 | $ openssl -in keycerts.pem -export -name "My PKCS#12 file" \e | ||
4975 | -out fixed.p12 | ||
4976 | .Ed | ||
4977 | .\" | ||
4978 | .\" PKEY | ||
4979 | .\" | ||
4980 | .Sh PKEY | ||
4981 | .nr nS 1 | ||
4982 | .Nm "openssl pkey" | ||
4983 | .Bk -words | ||
4984 | .Op Ar cipher | ||
4985 | .Op Fl engine Ar id | ||
4986 | .Op Fl in Ar file | ||
4987 | .Op Fl inform Ar DER | PEM | ||
4988 | .Op Fl noout | ||
4989 | .Op Fl out Ar file | ||
4990 | .Op Fl outform Ar DER | PEM | ||
4991 | .Op Fl passin Ar arg | ||
4992 | .Op Fl passout Ar arg | ||
4993 | .Op Fl pubin | ||
4994 | .Op Fl pubout | ||
4995 | .Op Fl text | ||
4996 | .Op Fl text_pub | ||
4997 | .Ek | ||
4998 | .nr nS 0 | ||
4999 | .Pp | ||
5000 | The | ||
5001 | .Nm pkey | ||
5002 | command processes public or private keys. | ||
5003 | They can be converted between various forms | ||
5004 | and their components printed out. | ||
5005 | .Pp | ||
5006 | The options are as follows: | ||
5007 | .Bl -tag -width Ds | ||
5008 | .It Ar cipher | ||
5009 | These options encrypt the private key with the supplied cipher. | ||
5010 | Any algorithm name accepted by | ||
5011 | .Fn EVP_get_cipherbyname | ||
5012 | is acceptable, such as | ||
5013 | .Cm des3 . | ||
5014 | .It Fl engine Ar id | ||
5015 | Specifying an engine (by its unique | ||
5016 | .Ar id | ||
5017 | string) will cause | ||
5018 | .Nm pkey | ||
5019 | to attempt to obtain a functional reference to the specified engine, | ||
5020 | thus initialising it if needed. | ||
5021 | The engine will then be set as the default for all available algorithms. | ||
5022 | .It Fl in Ar file | ||
5023 | This specifies the input filename to read a key from, | ||
5024 | or standard input if this option is not specified. | ||
5025 | If the key is encrypted a pass phrase will be prompted for. | ||
5026 | .It Fl inform Ar DER | PEM | ||
5027 | This specifies the input format, DER or PEM. | ||
5028 | .It Fl noout | ||
5029 | Do not output the encoded version of the key. | ||
5030 | .It Fl out Ar file | ||
5031 | This specifies the output filename to write a key to, | ||
5032 | or standard output if this option is not specified. | ||
5033 | If any encryption options are set then a pass phrase | ||
5034 | will be prompted for. | ||
5035 | The output filename should | ||
5036 | .Em not | ||
5037 | be the same as the input filename. | ||
5038 | .It Fl outform Ar DER | PEM | ||
5039 | This specifies the output format; | ||
5040 | the options have the same meaning as the | ||
5041 | .Fl inform | ||
5042 | option. | ||
5043 | .It Fl passin Ar arg | ||
5044 | The key password source. | ||
5045 | For more information about the format of | ||
5046 | .Ar arg , | ||
5047 | see the | ||
5048 | .Sx PASS PHRASE ARGUMENTS | ||
5049 | section above. | ||
5050 | .It Fl passout Ar arg | ||
5051 | The output file password source. | ||
5052 | For more information about the format of | ||
5053 | .Ar arg | ||
5054 | see the | ||
5055 | .Sx PASS PHRASE ARGUMENTS | ||
5056 | section above. | ||
5057 | .It Fl pubin | ||
5058 | By default a private key is read from the input file: | ||
5059 | with this option a public key is read instead. | ||
5060 | .It Fl pubout | ||
5061 | By default a private key is output: | ||
5062 | with this option a public key will be output instead. | ||
5063 | This option is automatically set if | ||
5064 | the input is a public key. | ||
5065 | .It Fl text | ||
5066 | Print out the various public or private key components in | ||
5067 | plain text in addition to the encoded version. | ||
5068 | .It Fl text_pub | ||
5069 | Print out only public key components | ||
5070 | even if a private key is being processed. | ||
5071 | .El | ||
5072 | .Sh PKEY EXAMPLES | ||
5073 | To remove the pass phrase on an RSA private key: | ||
5074 | .Bd -literal -offset indent | ||
5075 | $ openssl pkey -in key.pem -out keyout.pem | ||
5076 | .Ed | ||
5077 | .Pp | ||
5078 | To encrypt a private key using triple DES: | ||
5079 | .Bd -literal -offset indent | ||
5080 | $ openssl pkey -in key.pem -des3 -out keyout.pem | ||
5081 | .Ed | ||
5082 | .Pp | ||
5083 | To convert a private key from PEM to DER format: | ||
5084 | .Bd -literal -offset indent | ||
5085 | $ openssl pkey -in key.pem -outform DER -out keyout.der | ||
5086 | .Ed | ||
5087 | .Pp | ||
5088 | To print the components of a private key to standard output: | ||
5089 | .Bd -literal -offset indent | ||
5090 | $ openssl pkey -in key.pem -text -noout | ||
5091 | .Ed | ||
5092 | .Pp | ||
5093 | To print the public components of a private key to standard output: | ||
5094 | .Bd -literal -offset indent | ||
5095 | $ openssl pkey -in key.pem -text_pub -noout | ||
5096 | .Ed | ||
5097 | .Pp | ||
5098 | To just output the public part of a private key: | ||
5099 | .Bd -literal -offset indent | ||
5100 | $ openssl pkey -in key.pem -pubout -out pubkey.pem | ||
5101 | .Ed | ||
5102 | .\" | ||
5103 | .\" PKEYPARAM | ||
5104 | .\" | ||
5105 | .Sh PKEYPARAM | ||
5106 | .Cm openssl pkeyparam | ||
5107 | .Op Fl engine Ar id | ||
5108 | .Op Fl in Ar file | ||
5109 | .Op Fl noout | ||
5110 | .Op Fl out Ar file | ||
5111 | .Op Fl text | ||
5112 | .Pp | ||
5113 | The | ||
5114 | .Nm pkey | ||
5115 | command processes public or private keys. | ||
5116 | They can be converted between various forms and their components printed out. | ||
5117 | .Pp | ||
5118 | The options are as follows: | ||
5119 | .Bl -tag -width Ds | ||
5120 | .It Fl engine Ar id | ||
5121 | Specifying an engine (by its unique | ||
5122 | .Ar id | ||
5123 | string) will cause | ||
5124 | .Nm pkeyparam | ||
5125 | to attempt to obtain a functional reference to the specified engine, | ||
5126 | thus initialising it if needed. | ||
5127 | The engine will then be set as the default for all available algorithms. | ||
5128 | .It Fl in Ar file | ||
5129 | This specifies the input filename to read parameters from, | ||
5130 | or standard input if this option is not specified. | ||
5131 | .It Fl noout | ||
5132 | Do not output the encoded version of the parameters. | ||
5133 | .It Fl out Ar file | ||
5134 | This specifies the output filename to write parameters to, | ||
5135 | or standard output if this option is not specified. | ||
5136 | .It Fl text | ||
5137 | Prints out the parameters in plain text in addition to the encoded version. | ||
5138 | .El | ||
5139 | .Sh PKEYPARAM EXAMPLES | ||
5140 | Print out text version of parameters: | ||
5141 | .Bd -literal -offset indent | ||
5142 | $ openssl pkeyparam -in param.pem -text | ||
5143 | .Ed | ||
5144 | .Sh PKEYPARAM NOTES | ||
5145 | There are no | ||
5146 | .Fl inform | ||
5147 | or | ||
5148 | .Fl outform | ||
5149 | options for this command because only PEM format is supported | ||
5150 | because the key type is determined by the PEM headers. | ||
5151 | .\" | ||
5152 | .\" PKEYUTL | ||
5153 | .\" | ||
5154 | .Sh PKEYUTL | ||
5155 | .nr nS 1 | ||
5156 | .Nm "openssl pkeyutl" | ||
5157 | .Bk -words | ||
5158 | .Op Fl asn1parse | ||
5159 | .Op Fl certin | ||
5160 | .Op Fl decrypt | ||
5161 | .Op Fl derive | ||
5162 | .Op Fl encrypt | ||
5163 | .Op Fl engine Ar id | ||
5164 | .Op Fl hexdump | ||
5165 | .Op Fl in Ar file | ||
5166 | .Op Fl inkey Ar file | ||
5167 | .Op Fl keyform Ar DER | ENGINE | PEM | ||
5168 | .Op Fl out Ar file | ||
5169 | .Op Fl passin Ar arg | ||
5170 | .Op Fl peerform Ar DER | ENGINE | PEM | ||
5171 | .Op Fl peerkey Ar file | ||
5172 | .Op Fl pkeyopt Ar opt : Ns Ar value | ||
5173 | .Op Fl pubin | ||
5174 | .Op Fl rev | ||
5175 | .Op Fl sigfile Ar file | ||
5176 | .Op Fl sign | ||
5177 | .Op Fl verify | ||
5178 | .Op Fl verifyrecover | ||
5179 | .Ek | ||
5180 | .nr nS 0 | ||
5181 | .Pp | ||
5182 | The | ||
5183 | .Nm pkeyutl | ||
5184 | command can be used to perform public key operations using | ||
5185 | any supported algorithm. | ||
5186 | .Pp | ||
5187 | The options are as follows: | ||
5188 | .Bl -tag -width Ds | ||
5189 | .It Fl asn1parse | ||
5190 | ASN1parse the output data. | ||
5191 | This is useful when combined with the | ||
5192 | .Fl verifyrecover | ||
5193 | option when an ASN1 structure is signed. | ||
5194 | .It Fl certin | ||
5195 | The input is a certificate containing a public key. | ||
5196 | .It Fl decrypt | ||
5197 | Decrypt the input data using a private key. | ||
5198 | .It Fl derive | ||
5199 | Derive a shared secret using the peer key. | ||
5200 | .It Fl encrypt | ||
5201 | Encrypt the input data using a public key. | ||
5202 | .It Fl engine Ar id | ||
5203 | Specifying an engine (by its unique | ||
5204 | .Ar id | ||
5205 | string) will cause | ||
5206 | .Nm pkeyutl | ||
5207 | to attempt to obtain a functional reference to the specified engine, | ||
5208 | thus initialising it if needed. | ||
5209 | The engine will then be set as the default for all available algorithms. | ||
5210 | .It Fl hexdump | ||
5211 | Hex dump the output data. | ||
5212 | .It Fl in Ar file | ||
5213 | Specify the input filename to read data from, | ||
5214 | or standard input if this option is not specified. | ||
5215 | .It Fl inkey Ar file | ||
5216 | The input key file. | ||
5217 | By default it should be a private key. | ||
5218 | .It Fl keyform Ar DER | ENGINE | PEM | ||
5219 | The key format DER, ENGINE, or PEM. | ||
5220 | .It Fl out Ar file | ||
5221 | Specify the output filename to write to, | ||
5222 | or standard output by default. | ||
5223 | .It Fl passin Ar arg | ||
5224 | The key password source. | ||
5225 | For more information about the format of | ||
5226 | .Ar arg , | ||
5227 | see the | ||
5228 | .Sx PASS PHRASE ARGUMENTS | ||
5229 | section above. | ||
5230 | .It Fl peerform Ar DER | ENGINE | PEM | ||
5231 | The peer key format DER, ENGINE, or PEM. | ||
5232 | .It Fl peerkey Ar file | ||
5233 | The peer key file, used by key derivation (agreement) operations. | ||
5234 | .It Fl pkeyopt Ar opt : Ns Ar value | ||
5235 | Public key options. | ||
5236 | .It Fl pubin | ||
5237 | The input file is a public key. | ||
5238 | .It Fl rev | ||
5239 | Reverse the order of the input buffer. | ||
5240 | This is useful for some libraries (such as CryptoAPI) | ||
5241 | which represent the buffer in little endian format. | ||
5242 | .It Fl sigfile Ar file | ||
5243 | Signature file (verify operation only). | ||
5244 | .It Fl sign | ||
5245 | Sign the input data and output the signed result. | ||
5246 | This requires a private key. | ||
5247 | .It Fl verify | ||
5248 | Verify the input data against the signature file and indicate if the | ||
5249 | verification succeeded or failed. | ||
5250 | .It Fl verifyrecover | ||
5251 | Verify the input data and output the recovered data. | ||
5252 | .El | ||
5253 | .Sh PKEYUTL NOTES | ||
5254 | The operations and options supported vary according to the key algorithm | ||
5255 | and its implementation. | ||
5256 | The | ||
5257 | .Nm OpenSSL | ||
5258 | operations and options are indicated below. | ||
5259 | .Pp | ||
5260 | Unless otherwise mentioned all algorithms support the | ||
5261 | .Ar digest : Ns Ar alg | ||
5262 | option which specifies the digest in use | ||
5263 | for sign, verify, and verifyrecover operations. | ||
5264 | The value | ||
5265 | .Ar alg | ||
5266 | should represent a digest name as used in the | ||
5267 | .Fn EVP_get_digestbyname | ||
5268 | function, for example | ||
5269 | .Cm sha1 . | ||
5270 | .Ss RSA algorithm | ||
5271 | The RSA algorithm supports the | ||
5272 | encrypt, decrypt, sign, verify, and verifyrecover operations in general. | ||
5273 | Some padding modes only support some of these | ||
5274 | operations however. | ||
5275 | .Bl -tag -width Ds | ||
5276 | .It rsa_padding_mode : Ns Ar mode | ||
5277 | This sets the RSA padding mode. | ||
5278 | Acceptable values for | ||
5279 | .Ar mode | ||
5280 | are | ||
5281 | .Cm pkcs1 | ||
5282 | for PKCS#1 padding; | ||
5283 | .Cm sslv3 | ||
5284 | for SSLv3 padding; | ||
5285 | .Cm none | ||
5286 | for no padding; | ||
5287 | .Cm oaep | ||
5288 | for OAEP mode; | ||
5289 | .Cm x931 | ||
5290 | for X9.31 mode; | ||
5291 | and | ||
5292 | .Cm pss | ||
5293 | for PSS. | ||
5294 | .Pp | ||
5295 | In PKCS#1 padding if the message digest is not set then the supplied data is | ||
5296 | signed or verified directly instead of using a DigestInfo structure. | ||
5297 | If a digest is set then a DigestInfo | ||
5298 | structure is used and its length | ||
5299 | must correspond to the digest type. | ||
5300 | .Pp | ||
5301 | For oeap mode only encryption and decryption is supported. | ||
5302 | .Pp | ||
5303 | For x931 if the digest type is set it is used to format the block data; | ||
5304 | otherwise the first byte is used to specify the X9.31 digest ID. | ||
5305 | Sign, verify, and verifyrecover can be performed in this mode. | ||
5306 | .Pp | ||
5307 | For pss mode only sign and verify are supported and the digest type must be | ||
5308 | specified. | ||
5309 | .It rsa_pss_saltlen : Ns Ar len | ||
5310 | For pss | ||
5311 | mode only this option specifies the salt length. | ||
5312 | Two special values are supported: | ||
5313 | -1 sets the salt length to the digest length. | ||
5314 | When signing -2 sets the salt length to the maximum permissible value. | ||
5315 | When verifying -2 causes the salt length to be automatically determined | ||
5316 | based on the PSS block structure. | ||
5317 | .El | ||
5318 | .Ss DSA algorithm | ||
5319 | The DSA algorithm supports the sign and verify operations. | ||
5320 | Currently there are no additional options other than | ||
5321 | .Ar digest . | ||
5322 | Only the SHA1 digest can be used and this digest is assumed by default. | ||
5323 | .Ss DH algorithm | ||
5324 | The DH algorithm supports the derive operation | ||
5325 | and no additional options. | ||
5326 | .Ss EC algorithm | ||
5327 | The EC algorithm supports the sign, verify, and derive operations. | ||
5328 | The sign and verify operations use ECDSA and derive uses ECDH. | ||
5329 | Currently there are no additional options other than | ||
5330 | .Ar digest . | ||
5331 | Only the SHA1 digest can be used and this digest is assumed by default. | ||
5332 | .Sh PKEYUTL EXAMPLES | ||
5333 | Sign some data using a private key: | ||
5334 | .Bd -literal -offset indent | ||
5335 | $ openssl pkeyutl -sign -in file -inkey key.pem -out sig | ||
5336 | .Ed | ||
5337 | .Pp | ||
5338 | Recover the signed data (e.g. if an RSA key is used): | ||
5339 | .Bd -literal -offset indent | ||
5340 | $ openssl pkeyutl -verifyrecover -in sig -inkey key.pem | ||
5341 | .Ed | ||
5342 | .Pp | ||
5343 | Verify the signature (e.g. a DSA key): | ||
5344 | .Bd -literal -offset indent | ||
5345 | $ openssl pkeyutl -verify -in file -sigfile sig \e | ||
5346 | -inkey key.pem | ||
5347 | .Ed | ||
5348 | .Pp | ||
5349 | Sign data using a message digest value (this is currently only valid for RSA): | ||
5350 | .Bd -literal -offset indent | ||
5351 | $ openssl pkeyutl -sign -in file -inkey key.pem \e | ||
5352 | -out sig -pkeyopt digest:sha256 | ||
5353 | .Ed | ||
5354 | .Pp | ||
5355 | Derive a shared secret value: | ||
5356 | .Bd -literal -offset indent | ||
5357 | $ openssl pkeyutl -derive -inkey key.pem \e | ||
5358 | -peerkey pubkey.pem -out secret | ||
5359 | .Ed | ||
5360 | .\" | ||
5361 | .\" PRIME | ||
5362 | .\" | ||
5363 | .Sh PRIME | ||
5364 | .Cm openssl prime | ||
5365 | .Op Fl bits Ar n | ||
5366 | .Op Fl checks Ar n | ||
5367 | .Op Fl generate | ||
5368 | .Op Fl hex | ||
5369 | .Op Fl safe | ||
5370 | .Ar p | ||
5371 | .Pp | ||
5372 | The | ||
5373 | .Nm prime | ||
5374 | command is used to generate prime numbers, | ||
5375 | or to check numbers for primality. | ||
5376 | Results are probabilistic: | ||
5377 | they have an exceedingly high likelihood of being correct, | ||
5378 | but are not guaranteed. | ||
5379 | .Pp | ||
5380 | The options are as follows: | ||
5381 | .Bl -tag -width Ds | ||
5382 | .It Fl bits Ar n | ||
5383 | Specify the number of bits in the generated prime number. | ||
5384 | Must be used in conjunction with | ||
5385 | .Fl generate . | ||
5386 | .It Fl checks Ar n | ||
5387 | Perform a Miller-Rabin probabilistic primality test with | ||
5388 | .Ar n | ||
5389 | iterations. | ||
5390 | The default is 20. | ||
5391 | .It Fl generate | ||
5392 | Generate a pseudo-random prime number. | ||
5393 | Must be used in conjunction with | ||
5394 | .Fl bits . | ||
5395 | .It Fl hex | ||
5396 | Output in hex format. | ||
5397 | .It Fl safe | ||
5398 | Generate only | ||
5399 | .Qq safe | ||
5400 | prime numbers | ||
5401 | (i.e. a prime p so that (p-1)/2 is also prime). | ||
5402 | .It Ar p | ||
5403 | Test if number | ||
5404 | .Ar p | ||
5405 | is prime. | ||
5406 | .El | ||
5407 | .\" | ||
5408 | .\" RAND | ||
5409 | .\" | ||
5410 | .Sh RAND | ||
5411 | .nr nS 1 | ||
5412 | .Nm "openssl rand" | ||
5413 | .Op Fl base64 | ||
5414 | .Op Fl engine Ar id | ||
5415 | .Op Fl hex | ||
5416 | .Op Fl out Ar file | ||
5417 | .Ar num | ||
5418 | .nr nS 0 | ||
5419 | .Pp | ||
5420 | The | ||
5421 | .Nm rand | ||
5422 | command outputs | ||
5423 | .Ar num | ||
5424 | pseudo-random bytes. | ||
5425 | .Pp | ||
5426 | The options are as follows: | ||
5427 | .Bl -tag -width Ds | ||
5428 | .It Fl base64 | ||
5429 | Perform | ||
5430 | .Em base64 | ||
5431 | encoding on the output. | ||
5432 | .It Fl engine Ar id | ||
5433 | Specifying an engine (by its unique | ||
5434 | .Ar id | ||
5435 | string) will cause | ||
5436 | .Nm rand | ||
5437 | to attempt to obtain a functional reference to the specified engine, | ||
5438 | thus initialising it if needed. | ||
5439 | The engine will then be set as the default for all available algorithms. | ||
5440 | .It Fl hex | ||
5441 | Specify hexadecimal output. | ||
5442 | .It Fl out Ar file | ||
5443 | Write to | ||
5444 | .Ar file | ||
5445 | instead of standard output. | ||
5446 | .El | ||
5447 | .\" | ||
5448 | .\" REQ | ||
5449 | .\" | ||
5450 | .Sh REQ | ||
5451 | .nr nS 1 | ||
5452 | .Nm "openssl req" | ||
5453 | .Bk -words | ||
5454 | .Op Fl asn1-kludge | ||
5455 | .Op Fl batch | ||
5456 | .Op Fl config Ar file | ||
5457 | .Op Fl days Ar n | ||
5458 | .Op Fl engine Ar id | ||
5459 | .Op Fl extensions Ar section | ||
5460 | .Op Fl in Ar file | ||
5461 | .Op Fl inform Ar DER | PEM | ||
5462 | .Op Fl key Ar keyfile | ||
5463 | .Op Fl keyform Ar DER | PEM | ||
5464 | .Op Fl keyout Ar file | ||
5465 | .Op Fl md4 | md5 | sha1 | ||
5466 | .Op Fl modulus | ||
5467 | .Op Fl nameopt Ar option | ||
5468 | .Op Fl new | ||
5469 | .Op Fl newhdr | ||
5470 | .Op Fl newkey Ar arg | ||
5471 | .Op Fl no-asn1-kludge | ||
5472 | .Op Fl nodes | ||
5473 | .Op Fl noout | ||
5474 | .Op Fl out Ar file | ||
5475 | .Op Fl outform Ar DER | PEM | ||
5476 | .Op Fl passin Ar arg | ||
5477 | .Op Fl passout Ar arg | ||
5478 | .Op Fl pubkey | ||
5479 | .Op Fl reqexts Ar section | ||
5480 | .Op Fl reqopt Ar option | ||
5481 | .Op Fl set_serial Ar n | ||
5482 | .Op Fl subj Ar arg | ||
5483 | .Op Fl subject | ||
5484 | .Op Fl text | ||
5485 | .Op Fl utf8 | ||
5486 | .Op Fl verbose | ||
5487 | .Op Fl verify | ||
5488 | .Op Fl x509 | ||
5489 | .Ek | ||
5490 | .nr nS 0 | ||
5491 | .Pp | ||
5492 | The | ||
5493 | .Nm req | ||
5494 | command primarily creates and processes certificate requests | ||
5495 | in PKCS#10 format. | ||
5496 | It can additionally create self-signed certificates, | ||
5497 | for use as root CAs, for example. | ||
5498 | .Pp | ||
5499 | The options are as follows: | ||
5500 | .Bl -tag -width Ds | ||
5501 | .It Fl asn1-kludge | ||
5502 | By default, the | ||
5503 | .Nm req | ||
5504 | command outputs certificate requests containing | ||
5505 | no attributes in the correct PKCS#10 format. | ||
5506 | However certain CAs will only | ||
5507 | accept requests containing no attributes in an invalid form: this | ||
5508 | option produces this invalid format. | ||
5509 | .Pp | ||
5510 | More precisely, the | ||
5511 | .Em Attributes | ||
5512 | in a PKCS#10 certificate request are defined as a SET OF Attribute. | ||
5513 | They are | ||
5514 | .Em not | ||
5515 | optional, so if no attributes are present then they should be encoded as an | ||
5516 | empty SET OF. | ||
5517 | The invalid form does not include the empty | ||
5518 | SET OF, whereas the correct form does. | ||
5519 | .Pp | ||
5520 | It should be noted that very few CAs still require the use of this option. | ||
5521 | .It Fl batch | ||
5522 | Non-interactive mode. | ||
5523 | .It Fl config Ar file | ||
5524 | This allows an alternative configuration file to be specified; | ||
5525 | this overrides the compile time filename or any specified in | ||
5526 | the | ||
5527 | .Ev OPENSSL_CONF | ||
5528 | environment variable. | ||
5529 | .It Fl days Ar n | ||
5530 | When the | ||
5531 | .Fl x509 | ||
5532 | option is being used, this specifies the number of | ||
5533 | days to certify the certificate for. | ||
5534 | The default is 30 days. | ||
5535 | .It Fl engine Ar id | ||
5536 | Specifying an engine (by its unique | ||
5537 | .Ar id | ||
5538 | string) will cause | ||
5539 | .Nm req | ||
5540 | to attempt to obtain a functional reference to the specified engine, | ||
5541 | thus initialising it if needed. | ||
5542 | The engine will then be set as the default for all available algorithms. | ||
5543 | .It Fl extensions Ar section , Fl reqexts Ar section | ||
5544 | These options specify alternative sections to include certificate | ||
5545 | extensions (if the | ||
5546 | .Fl x509 | ||
5547 | option is present) or certificate request extensions. | ||
5548 | This allows several different sections to | ||
5549 | be used in the same configuration file to specify requests for | ||
5550 | a variety of purposes. | ||
5551 | .It Fl in Ar file | ||
5552 | This specifies the input | ||
5553 | .Ar file | ||
5554 | to read a request from, or standard input | ||
5555 | if this option is not specified. | ||
5556 | A request is only read if the creation options | ||
5557 | .Fl new | ||
5558 | and | ||
5559 | .Fl newkey | ||
5560 | are not specified. | ||
5561 | .It Fl inform Ar DER | PEM | ||
5562 | This specifies the input format. | ||
5563 | The | ||
5564 | .Ar DER | ||
5565 | argument uses an ASN1 DER-encoded form compatible with the PKCS#10. | ||
5566 | The | ||
5567 | .Ar PEM | ||
5568 | form is the default format: | ||
5569 | it consists of the DER format base64-encoded with additional header and | ||
5570 | footer lines. | ||
5571 | .It Fl key Ar keyfile | ||
5572 | This specifies the file to read the private key from. | ||
5573 | It also accepts PKCS#8 format private keys for PEM format files. | ||
5574 | .It Fl keyform Ar DER | PEM | ||
5575 | The format of the private key file specified in the | ||
5576 | .Fl key | ||
5577 | argument. | ||
5578 | .Ar PEM | ||
5579 | is the default. | ||
5580 | .It Fl keyout Ar file | ||
5581 | This gives the | ||
5582 | .Ar file | ||
5583 | to write the newly created private key to. | ||
5584 | If this option is not specified, the filename present in the | ||
5585 | configuration file is used. | ||
5586 | .It Fl md4 | md5 | sha1 | ||
5587 | This specifies the message digest to sign the request with. | ||
5588 | This overrides the digest algorithm specified in the configuration file. | ||
5589 | .Pp | ||
5590 | Some public key algorithms may override this choice. | ||
5591 | For instance, DSA signatures always use SHA1. | ||
5592 | .It Fl modulus | ||
5593 | This option prints out the value of the modulus of the public key | ||
5594 | contained in the request. | ||
5595 | .It Fl nameopt Ar option , Fl reqopt Ar option | ||
5596 | These options determine how the subject or issuer names are displayed. | ||
5597 | The | ||
5598 | .Ar option | ||
5599 | argument can be a single option or multiple options separated by commas. | ||
5600 | Alternatively, these options may be used more than once to set multiple options. | ||
5601 | See the | ||
5602 | .Sx X509 | ||
5603 | section below for details. | ||
5604 | .It Fl new | ||
5605 | This option generates a new certificate request. | ||
5606 | It will prompt the user for the relevant field values. | ||
5607 | The actual fields prompted for and their maximum and minimum sizes | ||
5608 | are specified in the configuration file and any requested extensions. | ||
5609 | .Pp | ||
5610 | If the | ||
5611 | .Fl key | ||
5612 | option is not used, it will generate a new RSA private | ||
5613 | key using information specified in the configuration file. | ||
5614 | .It Fl newhdr | ||
5615 | Adds the word NEW to the PEM file header and footer lines | ||
5616 | on the outputed request. | ||
5617 | Some software | ||
5618 | .Pq Netscape certificate server | ||
5619 | and some CAs need this. | ||
5620 | .It Fl newkey Ar arg | ||
5621 | This option creates a new certificate request and a new private key. | ||
5622 | The argument takes one of several forms. | ||
5623 | .Ar rsa : Ns Ar nbits , | ||
5624 | where | ||
5625 | .Ar nbits | ||
5626 | is the number of bits, generates an RSA key | ||
5627 | .Ar nbits | ||
5628 | in size. | ||
5629 | If | ||
5630 | .Ar nbits | ||
5631 | is omitted, i.e.\& | ||
5632 | .Cm -newkey rsa | ||
5633 | specified, | ||
5634 | the default key size, specified in the configuration file, is used. | ||
5635 | .Pp | ||
5636 | All other algorithms support the | ||
5637 | .Ar alg : Ns Ar file | ||
5638 | form, | ||
5639 | where file may be an algorithm parameter file, | ||
5640 | created by the | ||
5641 | .Cm genpkey -genparam | ||
5642 | command or an X.509 certificate for a key with approriate algorithm. | ||
5643 | .Pp | ||
5644 | .Ar param : Ns Ar file | ||
5645 | generates a key using the parameter file or certificate | ||
5646 | .Ar file ; | ||
5647 | the algorithm is determined by the parameters. | ||
5648 | .Ar algname : Ns Ar file | ||
5649 | use algorithm | ||
5650 | .Ar algname | ||
5651 | and parameter file | ||
5652 | .Ar file : | ||
5653 | the two algorithms must match or an error occurs. | ||
5654 | .Ar algname | ||
5655 | just uses algorithm | ||
5656 | .Ar algname , | ||
5657 | and parameters, if necessary, | ||
5658 | should be specified via the | ||
5659 | .Fl pkeyopt | ||
5660 | option. | ||
5661 | .Pp | ||
5662 | .Ar dsa : Ns Ar file | ||
5663 | generates a DSA key using the parameters in the file | ||
5664 | .Ar file . | ||
5665 | .It Fl no-asn1-kludge | ||
5666 | Reverses the effect of | ||
5667 | .Fl asn1-kludge . | ||
5668 | .It Fl nodes | ||
5669 | If this option is specified and a private key is created, it | ||
5670 | will not be encrypted. | ||
5671 | .It Fl noout | ||
5672 | This option prevents output of the encoded version of the request. | ||
5673 | .It Fl out Ar file | ||
5674 | This specifies the output | ||
5675 | .Ar file | ||
5676 | to write to, or standard output by default. | ||
5677 | .It Fl outform Ar DER | PEM | ||
5678 | This specifies the output format; the options have the same meaning as the | ||
5679 | .Fl inform | ||
5680 | option. | ||
5681 | .It Fl passin Ar arg | ||
5682 | The key password source. | ||
5683 | For more information about the format of | ||
5684 | .Ar arg , | ||
5685 | see the | ||
5686 | .Sx PASS PHRASE ARGUMENTS | ||
5687 | section above. | ||
5688 | .It Fl passout Ar arg | ||
5689 | The output file password source. | ||
5690 | For more information about the format of | ||
5691 | .Ar arg , | ||
5692 | see the | ||
5693 | .Sx PASS PHRASE ARGUMENTS | ||
5694 | section above. | ||
5695 | .It Fl pubkey | ||
5696 | Outputs the public key. | ||
5697 | .It Fl reqopt Ar option | ||
5698 | Customise the output format used with | ||
5699 | .Fl text . | ||
5700 | The | ||
5701 | .Ar option | ||
5702 | argument can be a single option or multiple options separated by commas. | ||
5703 | .Pp | ||
5704 | See the discussion of the | ||
5705 | .Fl certopt | ||
5706 | option in the | ||
5707 | .Nm x509 | ||
5708 | command. | ||
5709 | .It Fl set_serial Ar n | ||
5710 | Serial number to use when outputting a self-signed certificate. | ||
5711 | This may be specified as a decimal value or a hex value if preceded by | ||
5712 | .Sq 0x . | ||
5713 | It is possible to use negative serial numbers but this is not recommended. | ||
5714 | .It Fl subj Ar arg | ||
5715 | Replaces subject field of input request with specified data and outputs | ||
5716 | modified request. | ||
5717 | The arg must be formatted as | ||
5718 | .Em /type0=value0/type1=value1/type2=... ; | ||
5719 | characters may be escaped by | ||
5720 | .Sq \e | ||
5721 | .Pq backslash ; | ||
5722 | no spaces are skipped. | ||
5723 | .It Fl subject | ||
5724 | Prints out the request subject (or certificate subject if | ||
5725 | .Fl x509 | ||
5726 | is specified. | ||
5727 | .It Fl text | ||
5728 | Prints out the certificate request in text form. | ||
5729 | .It Fl utf8 | ||
5730 | This option causes field values to be interpreted as UTF8 strings; | ||
5731 | by default they are interpreted as ASCII. | ||
5732 | This means that the field values, whether prompted from a terminal or | ||
5733 | obtained from a configuration file, must be valid UTF8 strings. | ||
5734 | .It Fl verbose | ||
5735 | Print extra details about the operations being performed. | ||
5736 | .It Fl verify | ||
5737 | Verifies the signature on the request. | ||
5738 | .It Fl x509 | ||
5739 | This option outputs a self-signed certificate instead of a certificate | ||
5740 | request. | ||
5741 | This is typically used to generate a test certificate or | ||
5742 | a self-signed root CA. | ||
5743 | The extensions added to the certificate | ||
5744 | .Pq if any | ||
5745 | are specified in the configuration file. | ||
5746 | Unless specified using the | ||
5747 | .Fl set_serial | ||
5748 | option, 0 will be used for the serial number. | ||
5749 | .El | ||
5750 | .Sh REQ CONFIGURATION FILE FORMAT | ||
5751 | The configuration options are specified in the | ||
5752 | .Em req | ||
5753 | section of the configuration file. | ||
5754 | As with all configuration files, if no value is specified in the specific | ||
5755 | section (i.e.\& | ||
5756 | .Em req ) | ||
5757 | then the initial unnamed or | ||
5758 | .Em default | ||
5759 | section is searched too. | ||
5760 | .Pp | ||
5761 | The options available are described in detail below. | ||
5762 | .Bl -tag -width "XXXX" | ||
5763 | .It Ar attributes | ||
5764 | This specifies the section containing any request attributes: its format | ||
5765 | is the same as | ||
5766 | .Ar distinguished_name . | ||
5767 | Typically these may contain the | ||
5768 | .Em challengePassword | ||
5769 | or | ||
5770 | .Em unstructuredName | ||
5771 | types. | ||
5772 | They are currently ignored by | ||
5773 | .Nm OpenSSL Ns Li 's | ||
5774 | request signing utilities, but some CAs might want them. | ||
5775 | .It Ar default_bits | ||
5776 | This specifies the default key size in bits. | ||
5777 | If not specified, 512 is used. | ||
5778 | It is used if the | ||
5779 | .Fl new | ||
5780 | option is used. | ||
5781 | It can be overridden by using the | ||
5782 | .Fl newkey | ||
5783 | option. | ||
5784 | .It Ar default_keyfile | ||
5785 | This is the default file to write a private key to. | ||
5786 | If not specified, the key is written to standard output. | ||
5787 | This can be overridden by the | ||
5788 | .Fl keyout | ||
5789 | option. | ||
5790 | .It Ar default_md | ||
5791 | This option specifies the digest algorithm to use. | ||
5792 | Possible values include | ||
5793 | .Ar md5 | ||
5794 | and | ||
5795 | .Ar sha1 . | ||
5796 | If not present, MD5 is used. | ||
5797 | This option can be overridden on the command line. | ||
5798 | .It Ar distinguished_name | ||
5799 | This specifies the section containing the distinguished name fields to | ||
5800 | prompt for when generating a certificate or certificate request. | ||
5801 | The format is described in the next section. | ||
5802 | .It Ar encrypt_key | ||
5803 | If this is set to | ||
5804 | .Em no | ||
5805 | and a private key is generated, it is | ||
5806 | .Em not | ||
5807 | encrypted. | ||
5808 | This is equivalent to the | ||
5809 | .Fl nodes | ||
5810 | command line option. | ||
5811 | For compatibility, | ||
5812 | .Ar encrypt_rsa_key | ||
5813 | is an equivalent option. | ||
5814 | .It Ar input_password | output_password | ||
5815 | The passwords for the input private key file | ||
5816 | .Pq if present | ||
5817 | and the output private key file | ||
5818 | .Pq if one will be created . | ||
5819 | The command line options | ||
5820 | .Fl passin | ||
5821 | and | ||
5822 | .Fl passout | ||
5823 | override the configuration file values. | ||
5824 | .It Ar oid_file | ||
5825 | This specifies a file containing additional OBJECT IDENTIFIERS. | ||
5826 | Each line of the file should consist of the numerical form of the | ||
5827 | object identifier, followed by whitespace, then the short name followed | ||
5828 | by whitespace and finally the long name. | ||
5829 | .It Ar oid_section | ||
5830 | This specifies a section in the configuration file containing extra | ||
5831 | object identifiers. | ||
5832 | Each line should consist of the short name of the | ||
5833 | object identifier followed by | ||
5834 | .Sq = | ||
5835 | and the numerical form. | ||
5836 | The short and long names are the same when this option is used. | ||
5837 | .It Ar prompt | ||
5838 | If set to the value | ||
5839 | .Em no , | ||
5840 | this disables prompting of certificate fields | ||
5841 | and just takes values from the config file directly. | ||
5842 | It also changes the expected format of the | ||
5843 | .Em distinguished_name | ||
5844 | and | ||
5845 | .Em attributes | ||
5846 | sections. | ||
5847 | .It Ar req_extensions | ||
5848 | This specifies the configuration file section containing a list of | ||
5849 | extensions to add to the certificate request. | ||
5850 | It can be overridden by the | ||
5851 | .Fl reqexts | ||
5852 | command line switch. | ||
5853 | .It Ar string_mask | ||
5854 | This option limits the string types for encoding certain | ||
5855 | fields. | ||
5856 | The following values may be used, limiting strings to the indicated types: | ||
5857 | .Bl -tag -width "MASK:number" | ||
5858 | .It Ar utf8only | ||
5859 | .Em UTF8String. | ||
5860 | This is the default, as recommended by PKIX in RFC 2459. | ||
5861 | .It Ar default | ||
5862 | .Em PrintableString , IA5String , T61String , BMPString , UTF8String . | ||
5863 | .It Ar pkix | ||
5864 | .Em PrintableString , IA5String , BMPString , UTF8String . | ||
5865 | This was inspired by the PKIX recommendation in RFC 2459 for certificates | ||
5866 | generated before 2004, but differs by also permitting | ||
5867 | .Em IA5String . | ||
5868 | .It Ar nombstr | ||
5869 | .Em PrintableString , IA5String , T61String , UniversalString . | ||
5870 | This was a workaround for some ancient software that had problems | ||
5871 | with the variable-sized | ||
5872 | .Em BMPString | ||
5873 | and | ||
5874 | .Em UTF8String | ||
5875 | types. | ||
5876 | .It Cm MASK : Ns Ar number | ||
5877 | This is an explicit bitmask of permitted types, where | ||
5878 | .Ar number | ||
5879 | is a C-style hex, decimal, or octal number that's a bit-wise OR of | ||
5880 | .Dv B_ASN1_* | ||
5881 | values from | ||
5882 | .In openssl/asn1.h . | ||
5883 | .El | ||
5884 | .It Ar utf8 | ||
5885 | If set to the value | ||
5886 | .Em yes , | ||
5887 | then field values are interpreted as UTF8 strings; | ||
5888 | by default they are interpreted as ASCII. | ||
5889 | This means that the field values, whether prompted from a terminal or | ||
5890 | obtained from a configuration file, must be valid UTF8 strings. | ||
5891 | .It Ar x509_extensions | ||
5892 | This specifies the configuration file section containing a list of | ||
5893 | extensions to add to a certificate generated when the | ||
5894 | .Fl x509 | ||
5895 | switch is used. | ||
5896 | It can be overridden by the | ||
5897 | .Fl extensions | ||
5898 | command line switch. | ||
5899 | .El | ||
5900 | .Sh REQ DISTINGUISHED NAME AND ATTRIBUTE SECTION FORMAT | ||
5901 | There are two separate formats for the distinguished name and attribute | ||
5902 | sections. | ||
5903 | If the | ||
5904 | .Fl prompt | ||
5905 | option is set to | ||
5906 | .Em no , | ||
5907 | then these sections just consist of field names and values: for example, | ||
5908 | .Bd -unfilled -offset indent | ||
5909 | CN=My Name | ||
5910 | OU=My Organization | ||
5911 | emailAddress=someone@somewhere.org | ||
5912 | .Ed | ||
5913 | .Pp | ||
5914 | This allows external programs | ||
5915 | .Pq e.g. GUI based | ||
5916 | to generate a template file with all the field names and values | ||
5917 | and just pass it to | ||
5918 | .Nm req . | ||
5919 | An example of this kind of configuration file is contained in the | ||
5920 | .Sx REQ EXAMPLES | ||
5921 | section. | ||
5922 | .Pp | ||
5923 | Alternatively if the | ||
5924 | .Fl prompt | ||
5925 | option is absent or not set to | ||
5926 | .Em no , | ||
5927 | then the file contains field prompting information. | ||
5928 | It consists of lines of the form: | ||
5929 | .Bd -unfilled -offset indent | ||
5930 | fieldName="prompt" | ||
5931 | fieldName_default="default field value" | ||
5932 | fieldName_min= 2 | ||
5933 | fieldName_max= 4 | ||
5934 | .Ed | ||
5935 | .Pp | ||
5936 | .Qq fieldName | ||
5937 | is the field name being used, for example | ||
5938 | .Em commonName | ||
5939 | .Pq or CN . | ||
5940 | The | ||
5941 | .Qq prompt | ||
5942 | string is used to ask the user to enter the relevant details. | ||
5943 | If the user enters nothing, the default value is used; | ||
5944 | if no default value is present, the field is omitted. | ||
5945 | A field can still be omitted if a default value is present, | ||
5946 | if the user just enters the | ||
5947 | .Sq \&. | ||
5948 | character. | ||
5949 | .Pp | ||
5950 | The number of characters entered must be between the | ||
5951 | .Em fieldName_min | ||
5952 | and | ||
5953 | .Em fieldName_max | ||
5954 | limits: | ||
5955 | there may be additional restrictions based on the field being used | ||
5956 | (for example | ||
5957 | .Em countryName | ||
5958 | can only ever be two characters long and must fit in a | ||
5959 | .Em PrintableString ) . | ||
5960 | .Pp | ||
5961 | Some fields (such as | ||
5962 | .Em organizationName ) | ||
5963 | can be used more than once in a DN. | ||
5964 | This presents a problem because configuration files will | ||
5965 | not recognize the same name occurring twice. | ||
5966 | To avoid this problem, if the | ||
5967 | .Em fieldName | ||
5968 | contains some characters followed by a full stop, they will be ignored. | ||
5969 | So, for example, a second | ||
5970 | .Em organizationName | ||
5971 | can be input by calling it | ||
5972 | .Qq 1.organizationName . | ||
5973 | .Pp | ||
5974 | The actual permitted field names are any object identifier short or | ||
5975 | long names. | ||
5976 | These are compiled into | ||
5977 | .Nm OpenSSL | ||
5978 | and include the usual values such as | ||
5979 | .Em commonName , countryName , localityName , organizationName , | ||
5980 | .Em organizationUnitName , stateOrProvinceName . | ||
5981 | Additionally, | ||
5982 | .Em emailAddress | ||
5983 | is included as well as | ||
5984 | .Em name , surname , givenName initials | ||
5985 | and | ||
5986 | .Em dnQualifier . | ||
5987 | .Pp | ||
5988 | Additional object identifiers can be defined with the | ||
5989 | .Ar oid_file | ||
5990 | or | ||
5991 | .Ar oid_section | ||
5992 | options in the configuration file. | ||
5993 | Any additional fields will be treated as though they were a | ||
5994 | .Em DirectoryString . | ||
5995 | .Sh REQ EXAMPLES | ||
5996 | Examine and verify a certificate request: | ||
5997 | .Pp | ||
5998 | .Dl $ openssl req -in req.pem -text -verify -noout | ||
5999 | .Pp | ||
6000 | Create a private key and then generate a certificate request from it: | ||
6001 | .Bd -literal -offset indent | ||
6002 | $ openssl genrsa -out key.pem 2048 | ||
6003 | $ openssl req -new -key key.pem -out req.pem | ||
6004 | .Ed | ||
6005 | .Pp | ||
6006 | The same but just using req: | ||
6007 | .Pp | ||
6008 | .Dl $ openssl req -newkey rsa:2048 -keyout key.pem -out req.pem | ||
6009 | .Pp | ||
6010 | Generate a self-signed root certificate: | ||
6011 | .Pp | ||
6012 | .Dl "$ openssl req -x509 -newkey rsa:2048 -keyout key.pem -out req.pem" | ||
6013 | .Pp | ||
6014 | Example of a file pointed to by the | ||
6015 | .Ar oid_file | ||
6016 | option: | ||
6017 | .Bd -unfilled -offset indent | ||
6018 | 1.2.3.4 shortName A longer Name | ||
6019 | 1.2.3.6 otherName Other longer Name | ||
6020 | .Ed | ||
6021 | .Pp | ||
6022 | Example of a section pointed to by | ||
6023 | .Ar oid_section | ||
6024 | making use of variable expansion: | ||
6025 | .Bd -unfilled -offset indent | ||
6026 | testoid1=1.2.3.5 | ||
6027 | testoid2=${testoid1}.6 | ||
6028 | .Ed | ||
6029 | .Pp | ||
6030 | Sample configuration file prompting for field values: | ||
6031 | .Bd -literal | ||
6032 | \& [ req ] | ||
6033 | \& default_bits = 1024 | ||
6034 | \& default_keyfile = privkey.pem | ||
6035 | \& distinguished_name = req_distinguished_name | ||
6036 | \& attributes = req_attributes | ||
6037 | \& x509_extensions = v3_ca | ||
6038 | |||
6039 | \& dirstring_type = nobmp | ||
6040 | |||
6041 | \& [ req_distinguished_name ] | ||
6042 | \& countryName = Country Name (2 letter code) | ||
6043 | \& countryName_default = AU | ||
6044 | \& countryName_min = 2 | ||
6045 | \& countryName_max = 2 | ||
6046 | |||
6047 | \& localityName = Locality Name (eg, city) | ||
6048 | |||
6049 | \& organizationalUnitName = Organizational Unit Name (eg, section) | ||
6050 | |||
6051 | \& commonName = Common Name (eg, YOUR name) | ||
6052 | \& commonName_max = 64 | ||
6053 | |||
6054 | \& emailAddress = Email Address | ||
6055 | \& emailAddress_max = 40 | ||
6056 | |||
6057 | \& [ req_attributes ] | ||
6058 | \& challengePassword = A challenge password | ||
6059 | \& challengePassword_min = 4 | ||
6060 | \& challengePassword_max = 20 | ||
6061 | |||
6062 | \& [ v3_ca ] | ||
6063 | |||
6064 | \& subjectKeyIdentifier=hash | ||
6065 | \& authorityKeyIdentifier=keyid:always,issuer:always | ||
6066 | \& basicConstraints = CA:true | ||
6067 | .Ed | ||
6068 | .Pp | ||
6069 | Sample configuration containing all field values: | ||
6070 | .Bd -literal | ||
6071 | |||
6072 | \& [ req ] | ||
6073 | \& default_bits = 1024 | ||
6074 | \& default_keyfile = keyfile.pem | ||
6075 | \& distinguished_name = req_distinguished_name | ||
6076 | \& attributes = req_attributes | ||
6077 | \& prompt = no | ||
6078 | \& output_password = mypass | ||
6079 | |||
6080 | \& [ req_distinguished_name ] | ||
6081 | \& C = GB | ||
6082 | \& ST = Test State or Province | ||
6083 | \& L = Test Locality | ||
6084 | \& O = Organization Name | ||
6085 | \& OU = Organizational Unit Name | ||
6086 | \& CN = Common Name | ||
6087 | \& emailAddress = test@email.address | ||
6088 | |||
6089 | \& [ req_attributes ] | ||
6090 | \& challengePassword = A challenge password | ||
6091 | .Ed | ||
6092 | .Sh REQ NOTES | ||
6093 | The header and footer lines in the PEM format are normally: | ||
6094 | .Bd -unfilled -offset indent | ||
6095 | -----BEGIN CERTIFICATE REQUEST----- | ||
6096 | -----END CERTIFICATE REQUEST----- | ||
6097 | .Ed | ||
6098 | .Pp | ||
6099 | Some software | ||
6100 | .Pq some versions of Netscape certificate server | ||
6101 | instead needs: | ||
6102 | .Bd -unfilled -offset indent | ||
6103 | -----BEGIN NEW CERTIFICATE REQUEST----- | ||
6104 | -----END NEW CERTIFICATE REQUEST----- | ||
6105 | .Ed | ||
6106 | .Pp | ||
6107 | which is produced with the | ||
6108 | .Fl newhdr | ||
6109 | option but is otherwise compatible. | ||
6110 | Either form is accepted transparently on input. | ||
6111 | .Pp | ||
6112 | The certificate requests generated by Xenroll with MSIE have extensions added. | ||
6113 | It includes the | ||
6114 | .Em keyUsage | ||
6115 | extension which determines the type of key | ||
6116 | .Pq signature only or general purpose | ||
6117 | and any additional OIDs entered by the script in an | ||
6118 | .Em extendedKeyUsage | ||
6119 | extension. | ||
6120 | .Sh REQ DIAGNOSTICS | ||
6121 | The following messages are frequently asked about: | ||
6122 | .Bd -unfilled -offset indent | ||
6123 | Using configuration from /some/path/openssl.cnf | ||
6124 | Unable to load config info | ||
6125 | .Ed | ||
6126 | .Pp | ||
6127 | This is followed some time later by... | ||
6128 | .Bd -unfilled -offset indent | ||
6129 | unable to find 'distinguished_name' in config | ||
6130 | problems making Certificate Request | ||
6131 | .Ed | ||
6132 | .Pp | ||
6133 | The first error message is the clue: it can't find the configuration | ||
6134 | file! | ||
6135 | Certain operations | ||
6136 | .Pq like examining a certificate request | ||
6137 | don't need a configuration file so its use isn't enforced. | ||
6138 | Generation of certificates or requests, however, do need a configuration file. | ||
6139 | This could be regarded as a bug. | ||
6140 | .Pp | ||
6141 | Another puzzling message is this: | ||
6142 | .Bd -unfilled -offset indent | ||
6143 | Attributes: | ||
6144 | a0:00 | ||
6145 | .Ed | ||
6146 | .Pp | ||
6147 | This is displayed when no attributes are present and the request includes | ||
6148 | the correct empty SET OF structure | ||
6149 | .Pq the DER encoding of which is 0xa0 0x00 . | ||
6150 | If you just see: | ||
6151 | .Pp | ||
6152 | .D1 Attributes: | ||
6153 | .Pp | ||
6154 | then the SET OF is missing and the encoding is technically invalid | ||
6155 | .Pq but it is tolerated . | ||
6156 | See the description of the command line option | ||
6157 | .Fl asn1-kludge | ||
6158 | for more information. | ||
6159 | .Sh REQ ENVIRONMENT VARIABLES | ||
6160 | The variable | ||
6161 | .Ev OPENSSL_CONF , | ||
6162 | if defined, allows an alternative configuration | ||
6163 | file location to be specified; it will be overridden by the | ||
6164 | .Fl config | ||
6165 | command line switch if it is present. | ||
6166 | For compatibility reasons the | ||
6167 | .Ev SSLEAY_CONF | ||
6168 | environment variable serves the same purpose but its use is discouraged. | ||
6169 | .Sh REQ BUGS | ||
6170 | .Nm OpenSSL Ns Li 's | ||
6171 | handling of T61Strings | ||
6172 | .Pq aka TeletexStrings | ||
6173 | is broken: it effectively treats them as ISO 8859-1 | ||
6174 | .Pq Latin 1 ; | ||
6175 | Netscape and MSIE have similar behaviour. | ||
6176 | This can cause problems if you need characters that aren't available in | ||
6177 | .Em PrintableStrings | ||
6178 | and you don't want to or can't use | ||
6179 | .Em BMPStrings . | ||
6180 | .Pp | ||
6181 | As a consequence of the T61String handling, the only correct way to represent | ||
6182 | accented characters in | ||
6183 | .Nm OpenSSL | ||
6184 | is to use a | ||
6185 | .Em BMPString : | ||
6186 | unfortunately Netscape currently chokes on these. | ||
6187 | If you have to use accented characters with Netscape | ||
6188 | and MSIE then you currently need to use the invalid T61String form. | ||
6189 | .Pp | ||
6190 | The current prompting is not very friendly. | ||
6191 | It doesn't allow you to confirm what you've just entered. | ||
6192 | Other things, like extensions in certificate requests, are | ||
6193 | statically defined in the configuration file. | ||
6194 | Some of these, like an email address in | ||
6195 | .Em subjectAltName , | ||
6196 | should be input by the user. | ||
6197 | .\" | ||
6198 | .\" RSA | ||
6199 | .\" | ||
6200 | .Sh RSA | ||
6201 | .nr nS 1 | ||
6202 | .Nm "openssl rsa" | ||
6203 | .Bk -words | ||
6204 | .Oo | ||
6205 | .Fl aes128 | aes192 | aes256 | | ||
6206 | .Fl des | des3 | ||
6207 | .Oc | ||
6208 | .Op Fl check | ||
6209 | .Op Fl engine Ar id | ||
6210 | .Op Fl in Ar file | ||
6211 | .Op Fl inform Ar DER | NET | PEM | ||
6212 | .Op Fl modulus | ||
6213 | .Op Fl noout | ||
6214 | .Op Fl out Ar file | ||
6215 | .Op Fl outform Ar DER | NET | PEM | ||
6216 | .Op Fl passin Ar arg | ||
6217 | .Op Fl passout Ar arg | ||
6218 | .Op Fl pubin | ||
6219 | .Op Fl pubout | ||
6220 | .Op Fl sgckey | ||
6221 | .Op Fl text | ||
6222 | .nr nS 0 | ||
6223 | .Ek | ||
6224 | .Pp | ||
6225 | The | ||
6226 | .Nm rsa | ||
6227 | command processes RSA keys. | ||
6228 | They can be converted between various forms and their components printed out. | ||
6229 | .Pp | ||
6230 | .Sy Note : | ||
6231 | this command uses the traditional | ||
6232 | .Nm SSLeay | ||
6233 | compatible format for private key encryption: | ||
6234 | newer applications should use the more secure PKCS#8 format using the | ||
6235 | .Nm pkcs8 | ||
6236 | utility. | ||
6237 | .Pp | ||
6238 | The options are as follows: | ||
6239 | .Bl -tag -width Ds | ||
6240 | .It Xo | ||
6241 | .Fl aes128 | aes192 | aes256 | | ||
6242 | .Fl des | des3 | ||
6243 | .Xc | ||
6244 | These options encrypt the private key with the AES, DES, | ||
6245 | or the triple DES ciphers, respectively, before outputting it. | ||
6246 | A pass phrase is prompted for. | ||
6247 | If none of these options are specified, the key is written in plain text. | ||
6248 | This means that using the | ||
6249 | .Nm rsa | ||
6250 | utility to read in an encrypted key with no encryption option can be used | ||
6251 | to remove the pass phrase from a key, or by setting the encryption options | ||
6252 | it can be used to add or change the pass phrase. | ||
6253 | These options can only be used with PEM format output files. | ||
6254 | .It Fl check | ||
6255 | This option checks the consistency of an RSA private key. | ||
6256 | .It Fl engine Ar id | ||
6257 | Specifying an engine (by its unique | ||
6258 | .Ar id | ||
6259 | string) will cause | ||
6260 | .Nm rsa | ||
6261 | to attempt to obtain a functional reference to the specified engine, | ||
6262 | thus initialising it if needed. | ||
6263 | The engine will then be set as the default for all available algorithms. | ||
6264 | .It Fl in Ar file | ||
6265 | This specifies the input | ||
6266 | .Ar file | ||
6267 | to read a key from, or standard input if this | ||
6268 | option is not specified. | ||
6269 | If the key is encrypted, a pass phrase will be prompted for. | ||
6270 | .It Fl inform Ar DER | NET | PEM | ||
6271 | This specifies the input format. | ||
6272 | The | ||
6273 | .Ar DER | ||
6274 | argument | ||
6275 | uses an ASN1 DER-encoded form compatible with the PKCS#1 | ||
6276 | RSAPrivateKey or SubjectPublicKeyInfo format. | ||
6277 | The | ||
6278 | .Ar PEM | ||
6279 | form is the default format: it consists of the DER format base64-encoded with | ||
6280 | additional header and footer lines. | ||
6281 | On input PKCS#8 format private keys are also accepted. | ||
6282 | The | ||
6283 | .Ar NET | ||
6284 | form is a format described in the | ||
6285 | .Sx RSA NOTES | ||
6286 | section. | ||
6287 | .It Fl noout | ||
6288 | This option prevents output of the encoded version of the key. | ||
6289 | .It Fl modulus | ||
6290 | This option prints out the value of the modulus of the key. | ||
6291 | .It Fl out Ar file | ||
6292 | This specifies the output | ||
6293 | .Ar file | ||
6294 | to write a key to, or standard output if this option is not specified. | ||
6295 | If any encryption options are set, a pass phrase will be prompted for. | ||
6296 | The output filename should | ||
6297 | .Em not | ||
6298 | be the same as the input filename. | ||
6299 | .It Fl outform Ar DER | NET | PEM | ||
6300 | This specifies the output format; the options have the same meaning as the | ||
6301 | .Fl inform | ||
6302 | option. | ||
6303 | .It Fl passin Ar arg | ||
6304 | The key password source. | ||
6305 | For more information about the format of | ||
6306 | .Ar arg , | ||
6307 | see the | ||
6308 | .Sx PASS PHRASE ARGUMENTS | ||
6309 | section above. | ||
6310 | .It Fl passout Ar arg | ||
6311 | The output file password source. | ||
6312 | For more information about the format of | ||
6313 | .Ar arg , | ||
6314 | see the | ||
6315 | .Sx PASS PHRASE ARGUMENTS | ||
6316 | section above. | ||
6317 | .It Fl pubin | ||
6318 | By default, a private key is read from the input file; with this | ||
6319 | option a public key is read instead. | ||
6320 | .It Fl pubout | ||
6321 | By default, a private key is output; | ||
6322 | with this option a public key will be output instead. | ||
6323 | This option is automatically set if the input is a public key. | ||
6324 | .It Fl sgckey | ||
6325 | Use the modified | ||
6326 | .Em NET | ||
6327 | algorithm used with some versions of Microsoft IIS and SGC keys. | ||
6328 | .It Fl text | ||
6329 | Prints out the various public or private key components in | ||
6330 | plain text, in addition to the encoded version. | ||
6331 | .El | ||
6332 | .Sh RSA NOTES | ||
6333 | The PEM private key format uses the header and footer lines: | ||
6334 | .Bd -unfilled -offset indent | ||
6335 | -----BEGIN RSA PRIVATE KEY----- | ||
6336 | -----END RSA PRIVATE KEY----- | ||
6337 | .Ed | ||
6338 | .Pp | ||
6339 | The PEM public key format uses the header and footer lines: | ||
6340 | .Bd -unfilled -offset indent | ||
6341 | -----BEGIN PUBLIC KEY----- | ||
6342 | -----END PUBLIC KEY----- | ||
6343 | .Ed | ||
6344 | .Pp | ||
6345 | The | ||
6346 | .Em NET | ||
6347 | form is a format compatible with older Netscape servers | ||
6348 | and Microsoft IIS .key files; this uses unsalted RC4 for its encryption. | ||
6349 | It is not very secure and so should only be used when necessary. | ||
6350 | .Pp | ||
6351 | Some newer version of IIS have additional data in the exported .key files. | ||
6352 | To use these with the | ||
6353 | .Nm rsa | ||
6354 | utility, view the file with a binary editor | ||
6355 | and look for the string | ||
6356 | .Qq private-key , | ||
6357 | then trace back to the byte sequence 0x30, 0x82 | ||
6358 | .Pq this is an ASN1 SEQUENCE . | ||
6359 | Copy all the data from this point onwards to another file and use that as | ||
6360 | the input to the | ||
6361 | .Nm rsa | ||
6362 | utility with the | ||
6363 | .Fl inform Ar NET | ||
6364 | option. | ||
6365 | If there is an error after entering the password, try the | ||
6366 | .Fl sgckey | ||
6367 | option. | ||
6368 | .Sh RSA EXAMPLES | ||
6369 | To remove the pass phrase on an RSA private key: | ||
6370 | .Pp | ||
6371 | .Dl $ openssl rsa -in key.pem -out keyout.pem | ||
6372 | .Pp | ||
6373 | To encrypt a private key using triple DES: | ||
6374 | .Pp | ||
6375 | .Dl $ openssl rsa -in key.pem -des3 -out keyout.pem | ||
6376 | .Pp | ||
6377 | To convert a private key from PEM to DER format: | ||
6378 | .Pp | ||
6379 | .Dl $ openssl rsa -in key.pem -outform DER -out keyout.der | ||
6380 | .Pp | ||
6381 | To print out the components of a private key to standard output: | ||
6382 | .Pp | ||
6383 | .Dl $ openssl rsa -in key.pem -text -noout | ||
6384 | .Pp | ||
6385 | To just output the public part of a private key: | ||
6386 | .Pp | ||
6387 | .Dl $ openssl rsa -in key.pem -pubout -out pubkey.pem | ||
6388 | .Sh RSA BUGS | ||
6389 | The command line password arguments don't currently work with | ||
6390 | .Em NET | ||
6391 | format. | ||
6392 | .Pp | ||
6393 | There should be an option that automatically handles .key files, | ||
6394 | without having to manually edit them. | ||
6395 | .\" | ||
6396 | .\" RSAUTL | ||
6397 | .\" | ||
6398 | .Sh RSAUTL | ||
6399 | .nr nS 1 | ||
6400 | .Nm "openssl rsautl" | ||
6401 | .Bk -words | ||
6402 | .Op Fl asn1parse | ||
6403 | .Op Fl certin | ||
6404 | .Op Fl decrypt | ||
6405 | .Op Fl encrypt | ||
6406 | .Op Fl engine Ar id | ||
6407 | .Op Fl hexdump | ||
6408 | .Op Fl in Ar file | ||
6409 | .Op Fl inkey Ar file | ||
6410 | .Op Fl keyform Ar DER | PEM | ||
6411 | .Op Fl oaep | pkcs | raw | ssl | ||
6412 | .Op Fl out Ar file | ||
6413 | .Op Fl pubin | ||
6414 | .Op Fl sign | ||
6415 | .Op Fl verify | ||
6416 | .Ek | ||
6417 | .nr nS 0 | ||
6418 | .Pp | ||
6419 | The | ||
6420 | .Nm rsautl | ||
6421 | command can be used to sign, verify, encrypt and decrypt | ||
6422 | data using the RSA algorithm. | ||
6423 | .Pp | ||
6424 | The options are as follows: | ||
6425 | .Bl -tag -width Ds | ||
6426 | .It Fl asn1parse | ||
6427 | Asn1parse the output data; this is useful when combined with the | ||
6428 | .Fl verify | ||
6429 | option. | ||
6430 | .It Fl certin | ||
6431 | The input is a certificate containing an RSA public key. | ||
6432 | .It Fl decrypt | ||
6433 | Decrypt the input data using an RSA private key. | ||
6434 | .It Fl encrypt | ||
6435 | Encrypt the input data using an RSA public key. | ||
6436 | .It Fl engine Ar id | ||
6437 | Specifying an engine (by its unique | ||
6438 | .Ar id | ||
6439 | string) will cause | ||
6440 | .Nm rsautl | ||
6441 | to attempt to obtain a functional reference to the specified engine, | ||
6442 | thus initialising it if needed. | ||
6443 | The engine will then be set as the default for all available algorithms. | ||
6444 | .It Fl hexdump | ||
6445 | Hex dump the output data. | ||
6446 | .It Fl in Ar file | ||
6447 | This specifies the input | ||
6448 | .Ar file | ||
6449 | to read data from, or standard input | ||
6450 | if this option is not specified. | ||
6451 | .It Fl inkey Ar file | ||
6452 | The input key file, by default it should be an RSA private key. | ||
6453 | .It Fl keyform Ar DER | PEM | ||
6454 | Private ket format. | ||
6455 | Default is | ||
6456 | .Ar PEM . | ||
6457 | .It Fl oaep | pkcs | raw | ssl | ||
6458 | The padding to use: | ||
6459 | PKCS#1 OAEP, PKCS#1 v1.5 | ||
6460 | .Pq the default , | ||
6461 | or no padding, respectively. | ||
6462 | For signatures, only | ||
6463 | .Fl pkcs | ||
6464 | and | ||
6465 | .Fl raw | ||
6466 | can be used. | ||
6467 | .It Fl out Ar file | ||
6468 | Specifies the output | ||
6469 | .Ar file | ||
6470 | to write to, or standard output by | ||
6471 | default. | ||
6472 | .It Fl pubin | ||
6473 | The input file is an RSA public key. | ||
6474 | .It Fl sign | ||
6475 | Sign the input data and output the signed result. | ||
6476 | This requires an RSA private key. | ||
6477 | .It Fl verify | ||
6478 | Verify the input data and output the recovered data. | ||
6479 | .El | ||
6480 | .Sh RSAUTL NOTES | ||
6481 | .Nm rsautl , | ||
6482 | because it uses the RSA algorithm directly, can only be | ||
6483 | used to sign or verify small pieces of data. | ||
6484 | .Sh RSAUTL EXAMPLES | ||
6485 | Sign some data using a private key: | ||
6486 | .Pp | ||
6487 | .Dl "$ openssl rsautl -sign -in file -inkey key.pem -out sig" | ||
6488 | .Pp | ||
6489 | Recover the signed data: | ||
6490 | .Pp | ||
6491 | .Dl $ openssl rsautl -verify -in sig -inkey key.pem | ||
6492 | .Pp | ||
6493 | Examine the raw signed data: | ||
6494 | .Pp | ||
6495 | .Li "\ \&$ openssl rsautl -verify -in file -inkey key.pem -raw -hexdump" | ||
6496 | .Bd -unfilled | ||
6497 | \& 0000 - 00 01 ff ff ff ff ff ff-ff ff ff ff ff ff ff ff ................ | ||
6498 | \& 0010 - ff ff ff ff ff ff ff ff-ff ff ff ff ff ff ff ff ................ | ||
6499 | \& 0020 - ff ff ff ff ff ff ff ff-ff ff ff ff ff ff ff ff ................ | ||
6500 | \& 0030 - ff ff ff ff ff ff ff ff-ff ff ff ff ff ff ff ff ................ | ||
6501 | \& 0040 - ff ff ff ff ff ff ff ff-ff ff ff ff ff ff ff ff ................ | ||
6502 | \& 0050 - ff ff ff ff ff ff ff ff-ff ff ff ff ff ff ff ff ................ | ||
6503 | \& 0060 - ff ff ff ff ff ff ff ff-ff ff ff ff ff ff ff ff ................ | ||
6504 | \& 0070 - ff ff ff ff 00 68 65 6c-6c 6f 20 77 6f 72 6c 64 .....hello world | ||
6505 | .Ed | ||
6506 | .Pp | ||
6507 | The PKCS#1 block formatting is evident from this. | ||
6508 | If this was done using encrypt and decrypt, the block would have been of type 2 | ||
6509 | .Pq the second byte | ||
6510 | and random padding data visible instead of the 0xff bytes. | ||
6511 | .Pp | ||
6512 | It is possible to analyse the signature of certificates using this | ||
6513 | utility in conjunction with | ||
6514 | .Nm asn1parse . | ||
6515 | Consider the self-signed example in | ||
6516 | .Pa certs/pca-cert.pem : | ||
6517 | running | ||
6518 | .Nm asn1parse | ||
6519 | as follows yields: | ||
6520 | .Pp | ||
6521 | .Li "\ \&$ openssl asn1parse -in pca-cert.pem" | ||
6522 | .Bd -unfilled | ||
6523 | \& 0:d=0 hl=4 l= 742 cons: SEQUENCE | ||
6524 | \& 4:d=1 hl=4 l= 591 cons: SEQUENCE | ||
6525 | \& 8:d=2 hl=2 l= 3 cons: cont [ 0 ] | ||
6526 | \& 10:d=3 hl=2 l= 1 prim: INTEGER :02 | ||
6527 | \& 13:d=2 hl=2 l= 1 prim: INTEGER :00 | ||
6528 | \& 16:d=2 hl=2 l= 13 cons: SEQUENCE | ||
6529 | \& 18:d=3 hl=2 l= 9 prim: OBJECT :md5WithRSAEncryption | ||
6530 | \& 29:d=3 hl=2 l= 0 prim: NULL | ||
6531 | \& 31:d=2 hl=2 l= 92 cons: SEQUENCE | ||
6532 | \& 33:d=3 hl=2 l= 11 cons: SET | ||
6533 | \& 35:d=4 hl=2 l= 9 cons: SEQUENCE | ||
6534 | \& 37:d=5 hl=2 l= 3 prim: OBJECT :countryName | ||
6535 | \& 42:d=5 hl=2 l= 2 prim: PRINTABLESTRING :AU | ||
6536 | \& .... | ||
6537 | \& 599:d=1 hl=2 l= 13 cons: SEQUENCE | ||
6538 | \& 601:d=2 hl=2 l= 9 prim: OBJECT :md5WithRSAEncryption | ||
6539 | \& 612:d=2 hl=2 l= 0 prim: NULL | ||
6540 | \& 614:d=1 hl=3 l= 129 prim: BIT STRING | ||
6541 | .Ed | ||
6542 | .Pp | ||
6543 | The final BIT STRING contains the actual signature. | ||
6544 | It can be extracted with: | ||
6545 | .Pp | ||
6546 | .Dl "$ openssl asn1parse -in pca-cert.pem -out sig -noout -strparse 614" | ||
6547 | .Pp | ||
6548 | The certificate public key can be extracted with: | ||
6549 | .Pp | ||
6550 | .Dl $ openssl x509 -in test/testx509.pem -pubkey -noout \*(Gtpubkey.pem | ||
6551 | .Pp | ||
6552 | The signature can be analysed with: | ||
6553 | .Pp | ||
6554 | .Li "\ \&$ openssl rsautl -in sig -verify -asn1parse -inkey pubkey.pem -pubin" | ||
6555 | .Bd -unfilled | ||
6556 | \& 0:d=0 hl=2 l= 32 cons: SEQUENCE | ||
6557 | \& 2:d=1 hl=2 l= 12 cons: SEQUENCE | ||
6558 | \& 4:d=2 hl=2 l= 8 prim: OBJECT :md5 | ||
6559 | \& 14:d=2 hl=2 l= 0 prim: NULL | ||
6560 | \& 16:d=1 hl=2 l= 16 prim: OCTET STRING | ||
6561 | \& 0000 - f3 46 9e aa 1a 4a 73 c9-37 ea 93 00 48 25 08 b5 .F...Js.7...H%.. | ||
6562 | .Ed | ||
6563 | .Pp | ||
6564 | This is the parsed version of an ASN1 | ||
6565 | .Em DigestInfo | ||
6566 | structure. | ||
6567 | It can be seen that the digest used was MD5. | ||
6568 | The actual part of the certificate that was signed can be extracted with: | ||
6569 | .Pp | ||
6570 | .Dl "$ openssl asn1parse -in pca-cert.pem -out tbs -noout -strparse 4" | ||
6571 | .Pp | ||
6572 | and its digest computed with: | ||
6573 | .Pp | ||
6574 | .Dl $ openssl md5 -c tbs | ||
6575 | .D1 MD5(tbs)= f3:46:9e:aa:1a:4a:73:c9:37:ea:93:00:48:25:08:b5 | ||
6576 | .Pp | ||
6577 | which it can be seen agrees with the recovered value above. | ||
6578 | .\" | ||
6579 | .\" S_CLIENT | ||
6580 | .\" | ||
6581 | .Sh S_CLIENT | ||
6582 | .nr nS 1 | ||
6583 | .Nm "openssl s_client" | ||
6584 | .Bk -words | ||
6585 | .Op Fl 4 | 6 | ||
6586 | .Op Fl bugs | ||
6587 | .Op Fl CAfile Ar file | ||
6588 | .Op Fl CApath Ar directory | ||
6589 | .Op Fl cert Ar file | ||
6590 | .Op Fl check_ss_sig | ||
6591 | .Op Fl cipher Ar cipherlist | ||
6592 | .Oo | ||
6593 | .Fl connect Ar host : Ns Ar port | | ||
6594 | .Ar host Ns / Ns Ar port | ||
6595 | .Oc | ||
6596 | .Op Fl crl_check | ||
6597 | .Op Fl crl_check_all | ||
6598 | .Op Fl crlf | ||
6599 | .Op Fl debug | ||
6600 | .Op Fl engine Ar id | ||
6601 | .Op Fl extended_crl | ||
6602 | .Op Fl ign_eof | ||
6603 | .Op Fl ignore_critical | ||
6604 | .Op Fl issuer_checks | ||
6605 | .Op Fl key Ar keyfile | ||
6606 | .Op Fl msg | ||
6607 | .Op Fl nbio | ||
6608 | .Op Fl nbio_test | ||
6609 | .Op Fl no_ssl3 | ||
6610 | .Op Fl no_ticket | ||
6611 | .Op Fl no_tls1 | ||
6612 | .Op Fl pause | ||
6613 | .Op Fl policy_check | ||
6614 | .Op Fl prexit | ||
6615 | .Op Fl psk Ar key | ||
6616 | .Op Fl psk_identity Ar identity | ||
6617 | .Op Fl quiet | ||
6618 | .Op Fl reconnect | ||
6619 | .Op Fl showcerts | ||
6620 | .Op Fl ssl3 | ||
6621 | .Op Fl starttls Ar protocol | ||
6622 | .Op Fl state | ||
6623 | .Op Fl tls1 | ||
6624 | .Op Fl tlsextdebug | ||
6625 | .Op Fl verify Ar depth | ||
6626 | .Op Fl x509_strict | ||
6627 | .Ek | ||
6628 | .nr nS 0 | ||
6629 | .Pp | ||
6630 | The | ||
6631 | .Nm s_client | ||
6632 | command implements a generic SSL/TLS client which connects | ||
6633 | to a remote host using SSL/TLS. | ||
6634 | It is a | ||
6635 | .Em very | ||
6636 | useful diagnostic tool for SSL servers. | ||
6637 | .Pp | ||
6638 | The options are as follows: | ||
6639 | .Bl -tag -width Ds | ||
6640 | .It Fl 4 | ||
6641 | Specify that | ||
6642 | .Nm s_client | ||
6643 | should attempt connections using IPv4 only. | ||
6644 | .It Fl 6 | ||
6645 | Specify that | ||
6646 | .Nm s_client | ||
6647 | should attempt connections using IPv6 only. | ||
6648 | .It Fl bugs | ||
6649 | There are several known bugs in SSL and TLS implementations. | ||
6650 | Adding this option enables various workarounds. | ||
6651 | .It Fl CAfile Ar file | ||
6652 | A | ||
6653 | .Ar file | ||
6654 | containing trusted certificates to use during server authentication | ||
6655 | and to use when attempting to build the client certificate chain. | ||
6656 | .It Fl CApath Ar directory | ||
6657 | The | ||
6658 | .Ar directory | ||
6659 | to use for server certificate verification. | ||
6660 | This directory must be in | ||
6661 | .Qq hash format ; | ||
6662 | see | ||
6663 | .Fl verify | ||
6664 | for more information. | ||
6665 | These are also used when building the client certificate chain. | ||
6666 | .It Fl cert Ar file | ||
6667 | The certificate to use, if one is requested by the server. | ||
6668 | The default is not to use a certificate. | ||
6669 | .It Xo | ||
6670 | .Fl check_ss_sig , | ||
6671 | .Fl crl_check , | ||
6672 | .Fl crl_check_all , | ||
6673 | .Fl extended_crl , | ||
6674 | .Fl ignore_critical , | ||
6675 | .Fl issuer_checks , | ||
6676 | .Fl policy_check , | ||
6677 | .Fl x509_strict | ||
6678 | .Xc | ||
6679 | Set various certificate chain validation options. | ||
6680 | See the | ||
6681 | .Nm VERIFY | ||
6682 | command for details. | ||
6683 | .It Fl cipher Ar cipherlist | ||
6684 | This allows the cipher list sent by the client to be modified. | ||
6685 | Although the server determines which cipher suite is used, it should take | ||
6686 | the first supported cipher in the list sent by the client. | ||
6687 | See the | ||
6688 | .Sx CIPHERS | ||
6689 | section above for more information. | ||
6690 | .It Xo | ||
6691 | .Fl connect Ar host : Ns Ar port | | ||
6692 | .Ar host Ns / Ns Ar port | ||
6693 | .Xc | ||
6694 | This specifies the | ||
6695 | .Ar host | ||
6696 | and optional | ||
6697 | .Ar port | ||
6698 | to connect to. | ||
6699 | If not specified, an attempt is made to connect to the local host | ||
6700 | on port 4433. | ||
6701 | Alternatively, the host and port pair may be separated using a forward-slash | ||
6702 | character. | ||
6703 | This form is useful for numeric IPv6 addresses. | ||
6704 | .It Fl crlf | ||
6705 | This option translates a line feed from the terminal into CR+LF as required | ||
6706 | by some servers. | ||
6707 | .It Fl debug | ||
6708 | Print extensive debugging information including a hex dump of all traffic. | ||
6709 | .It Fl engine Ar id | ||
6710 | Specifying an engine (by its unique | ||
6711 | .Ar id | ||
6712 | string) will cause | ||
6713 | .Nm s_client | ||
6714 | to attempt to obtain a functional reference to the specified engine, | ||
6715 | thus initialising it if needed. | ||
6716 | The engine will then be set as the default for all available algorithms. | ||
6717 | .It Fl ign_eof | ||
6718 | Inhibit shutting down the connection when end of file is reached in the | ||
6719 | input. | ||
6720 | .It Fl key Ar keyfile | ||
6721 | The private key to use. | ||
6722 | If not specified, the certificate file will be used. | ||
6723 | .It Fl msg | ||
6724 | Show all protocol messages with hex dump. | ||
6725 | .It Fl nbio | ||
6726 | Turns on non-blocking I/O. | ||
6727 | .It Fl nbio_test | ||
6728 | Tests non-blocking I/O. | ||
6729 | .It Xo | ||
6730 | .Fl no_ssl3 | no_tls1 | | ||
6731 | .Fl ssl3 | tls1 | ||
6732 | .Xc | ||
6733 | These options disable the use of certain SSL or TLS protocols. | ||
6734 | By default, the initial handshake uses a method which should be compatible | ||
6735 | with all servers and permit them to use SSL v3 or TLS as appropriate. | ||
6736 | .Pp | ||
6737 | Unfortunately there are a lot of ancient and broken servers in use which | ||
6738 | cannot handle this technique and will fail to connect. | ||
6739 | Some servers only work if TLS is turned off with the | ||
6740 | .Fl no_tls | ||
6741 | option. | ||
6742 | .It Fl no_ticket | ||
6743 | Disable RFC 4507 session ticket support. | ||
6744 | .It Fl pause | ||
6745 | Pauses 1 second between each read and write call. | ||
6746 | .It Fl prexit | ||
6747 | Print session information when the program exits. | ||
6748 | This will always attempt | ||
6749 | to print out information even if the connection fails. | ||
6750 | Normally, information will only be printed out once if the connection succeeds. | ||
6751 | This option is useful because the cipher in use may be renegotiated | ||
6752 | or the connection may fail because a client certificate is required or is | ||
6753 | requested only after an attempt is made to access a certain URL. | ||
6754 | .Sy Note : | ||
6755 | the output produced by this option is not always accurate because a | ||
6756 | connection might never have been established. | ||
6757 | .It Fl psk Ar key | ||
6758 | Use the PSK key | ||
6759 | .Ar key | ||
6760 | when using a PSK cipher suite. | ||
6761 | The key is given as a hexadecimal number without the leading 0x, | ||
6762 | for example -psk 1a2b3c4d. | ||
6763 | .It Fl psk_identity Ar identity | ||
6764 | Use the PSK identity | ||
6765 | .Ar identity | ||
6766 | when using a PSK cipher suite. | ||
6767 | .It Fl quiet | ||
6768 | Inhibit printing of session and certificate information. | ||
6769 | This implicitly turns on | ||
6770 | .Fl ign_eof | ||
6771 | as well. | ||
6772 | .It Fl reconnect | ||
6773 | Reconnects to the same server 5 times using the same session ID; this can | ||
6774 | be used as a test that session caching is working. | ||
6775 | .It Fl showcerts | ||
6776 | Display the whole server certificate chain: normally only the server | ||
6777 | certificate itself is displayed. | ||
6778 | .It Fl starttls Ar protocol | ||
6779 | Send the protocol-specific message(s) to switch to TLS for communication. | ||
6780 | .Ar protocol | ||
6781 | is a keyword for the intended protocol. | ||
6782 | Currently, the supported keywords are | ||
6783 | .Qq ftp , | ||
6784 | .Qq imap , | ||
6785 | .Qq smtp , | ||
6786 | .Qq pop3 , | ||
6787 | and | ||
6788 | .Qq xmpp . | ||
6789 | .It Fl state | ||
6790 | Prints out the SSL session states. | ||
6791 | .It Fl tlsextdebug | ||
6792 | Print out a hex dump of any TLS extensions received from the server. | ||
6793 | .It Fl verify Ar depth | ||
6794 | The verify | ||
6795 | .Ar depth | ||
6796 | to use. | ||
6797 | This specifies the maximum length of the | ||
6798 | server certificate chain and turns on server certificate verification. | ||
6799 | Currently the verify operation continues after errors so all the problems | ||
6800 | with a certificate chain can be seen. | ||
6801 | As a side effect the connection will never fail due to a server | ||
6802 | certificate verify failure. | ||
6803 | .El | ||
6804 | .Sh S_CLIENT CONNECTED COMMANDS | ||
6805 | If a connection is established with an SSL server, any data received | ||
6806 | from the server is displayed and any key presses will be sent to the | ||
6807 | server. | ||
6808 | When used interactively (which means neither | ||
6809 | .Fl quiet | ||
6810 | nor | ||
6811 | .Fl ign_eof | ||
6812 | have been given), the session will be renegotiated if the line begins with an | ||
6813 | .Em R ; | ||
6814 | if the line begins with a | ||
6815 | .Em Q | ||
6816 | or if end of file is reached, the connection will be closed down. | ||
6817 | .Sh S_CLIENT NOTES | ||
6818 | .Nm s_client | ||
6819 | can be used to debug SSL servers. | ||
6820 | To connect to an SSL HTTP server the command: | ||
6821 | .Pp | ||
6822 | .Dl $ openssl s_client -connect servername:443 | ||
6823 | .Pp | ||
6824 | would typically be used | ||
6825 | .Pq HTTPS uses port 443 . | ||
6826 | If the connection succeeds, an HTTP command can be given such as | ||
6827 | .Qq GET | ||
6828 | to retrieve a web page. | ||
6829 | .Pp | ||
6830 | If the handshake fails, there are several possible causes; if it is | ||
6831 | nothing obvious like no client certificate, then the | ||
6832 | .Fl bugs , ssl3 , tls1 , no_ssl3 , | ||
6833 | and | ||
6834 | .Fl no_tls1 | ||
6835 | options can be tried in case it is a buggy server. | ||
6836 | In particular these options should be tried | ||
6837 | .Em before | ||
6838 | submitting a bug report to an | ||
6839 | .Nm OpenSSL | ||
6840 | mailing list. | ||
6841 | .Pp | ||
6842 | A frequent problem when attempting to get client certificates working | ||
6843 | is that a web client complains it has no certificates or gives an empty | ||
6844 | list to choose from. | ||
6845 | This is normally because the server is not sending the client's certificate | ||
6846 | authority in its | ||
6847 | .Qq acceptable CA list | ||
6848 | when it requests a certificate. | ||
6849 | By using | ||
6850 | .Nm s_client | ||
6851 | the CA list can be viewed and checked. | ||
6852 | However some servers only request client authentication | ||
6853 | after a specific URL is requested. | ||
6854 | To obtain the list in this case it is necessary to use the | ||
6855 | .Fl prexit | ||
6856 | option and send an HTTP request for an appropriate page. | ||
6857 | .Pp | ||
6858 | If a certificate is specified on the command line using the | ||
6859 | .Fl cert | ||
6860 | option, it will not be used unless the server specifically requests | ||
6861 | a client certificate. | ||
6862 | Therefore merely including a client certificate | ||
6863 | on the command line is no guarantee that the certificate works. | ||
6864 | .Pp | ||
6865 | If there are problems verifying a server certificate, the | ||
6866 | .Fl showcerts | ||
6867 | option can be used to show the whole chain. | ||
6868 | .Pp | ||
6869 | Compression methods are only supported for | ||
6870 | .Fl tls1 . | ||
6871 | .Sh S_CLIENT BUGS | ||
6872 | Because this program has a lot of options and also because some of | ||
6873 | the techniques used are rather old, the C source of | ||
6874 | .Nm s_client | ||
6875 | is rather hard to read and not a model of how things should be done. | ||
6876 | A typical SSL client program would be much simpler. | ||
6877 | .Pp | ||
6878 | The | ||
6879 | .Fl verify | ||
6880 | option should really exit if the server verification fails. | ||
6881 | .Pp | ||
6882 | The | ||
6883 | .Fl prexit | ||
6884 | option is a bit of a hack. | ||
6885 | We should really report information whenever a session is renegotiated. | ||
6886 | .\" | ||
6887 | .\" S_SERVER | ||
6888 | .\" | ||
6889 | .Sh S_SERVER | ||
6890 | .nr nS 1 | ||
6891 | .Nm "openssl s_server" | ||
6892 | .Bk -words | ||
6893 | .Op Fl accept Ar port | ||
6894 | .Op Fl bugs | ||
6895 | .Op Fl CAfile Ar file | ||
6896 | .Op Fl CApath Ar directory | ||
6897 | .Op Fl cert Ar file | ||
6898 | .Op Fl cipher Ar cipherlist | ||
6899 | .Op Fl context Ar id | ||
6900 | .Op Fl crl_check | ||
6901 | .Op Fl crl_check_all | ||
6902 | .Op Fl crlf | ||
6903 | .Op Fl dcert Ar file | ||
6904 | .Op Fl debug | ||
6905 | .Op Fl dhparam Ar file | ||
6906 | .Op Fl dkey Ar file | ||
6907 | .Op Fl engine Ar id | ||
6908 | .Op Fl hack | ||
6909 | .Op Fl HTTP | ||
6910 | .Op Fl id_prefix Ar arg | ||
6911 | .Op Fl key Ar keyfile | ||
6912 | .Op Fl msg | ||
6913 | .Op Fl nbio | ||
6914 | .Op Fl nbio_test | ||
6915 | .Op Fl no_dhe | ||
6916 | .Op Fl no_ssl3 | ||
6917 | .Op Fl no_tls1 | ||
6918 | .Op Fl no_tmp_rsa | ||
6919 | .Op Fl nocert | ||
6920 | .Op Fl psk Ar key | ||
6921 | .Op Fl psk_hint Ar hint | ||
6922 | .Op Fl quiet | ||
6923 | .Op Fl serverpref | ||
6924 | .Op Fl ssl3 | ||
6925 | .Op Fl state | ||
6926 | .Op Fl tls1 | ||
6927 | .Op Fl Verify Ar depth | ||
6928 | .Op Fl verify Ar depth | ||
6929 | .Op Fl WWW | ||
6930 | .Op Fl www | ||
6931 | .Ek | ||
6932 | .nr nS 0 | ||
6933 | .Pp | ||
6934 | The | ||
6935 | .Nm s_server | ||
6936 | command implements a generic SSL/TLS server which listens | ||
6937 | for connections on a given port using SSL/TLS. | ||
6938 | .Pp | ||
6939 | The options are as follows: | ||
6940 | .Bl -tag -width Ds | ||
6941 | .It Fl accept Ar port | ||
6942 | The TCP | ||
6943 | .Ar port | ||
6944 | to listen on for connections. | ||
6945 | If not specified, 4433 is used. | ||
6946 | .It Fl bugs | ||
6947 | There are several known bugs in SSL and TLS implementations. | ||
6948 | Adding this option enables various workarounds. | ||
6949 | .It Fl CAfile Ar file | ||
6950 | A file containing trusted certificates to use during client authentication | ||
6951 | and to use when attempting to build the server certificate chain. | ||
6952 | The list is also used in the list of acceptable client CAs passed to the | ||
6953 | client when a certificate is requested. | ||
6954 | .It Fl CApath Ar directory | ||
6955 | The | ||
6956 | .Ar directory | ||
6957 | to use for client certificate verification. | ||
6958 | This directory must be in | ||
6959 | .Qq hash format ; | ||
6960 | see | ||
6961 | .Fl verify | ||
6962 | for more information. | ||
6963 | These are also used when building the server certificate chain. | ||
6964 | .It Fl cert Ar file | ||
6965 | The certificate to use; most server's cipher suites require the use of a | ||
6966 | certificate and some require a certificate with a certain public key type: | ||
6967 | for example the DSS cipher suites require a certificate containing a DSS | ||
6968 | .Pq DSA | ||
6969 | key. | ||
6970 | If not specified, the file | ||
6971 | .Pa server.pem | ||
6972 | will be used. | ||
6973 | .It Fl cipher Ar cipherlist | ||
6974 | This allows the cipher list used by the server to be modified. | ||
6975 | When the client sends a list of supported ciphers, the first client cipher | ||
6976 | also included in the server list is used. | ||
6977 | Because the client specifies the preference order, the order of the server | ||
6978 | cipherlist is irrelevant. | ||
6979 | See the | ||
6980 | .Sx CIPHERS | ||
6981 | section for more information. | ||
6982 | .It Fl context Ar id | ||
6983 | Sets the SSL context ID. | ||
6984 | It can be given any string value. | ||
6985 | If this option is not present, a default value will be used. | ||
6986 | .It Fl crl_check , crl_check_all | ||
6987 | Check the peer certificate has not been revoked by its CA. | ||
6988 | The CRLs are appended to the certificate file. | ||
6989 | With the | ||
6990 | .Fl crl_check_all | ||
6991 | option, all CRLs of all CAs in the chain are checked. | ||
6992 | .It Fl crlf | ||
6993 | This option translates a line feed from the terminal into CR+LF. | ||
6994 | .It Fl dcert Ar file , Fl dkey Ar file | ||
6995 | Specify an additional certificate and private key; these behave in the | ||
6996 | same manner as the | ||
6997 | .Fl cert | ||
6998 | and | ||
6999 | .Fl key | ||
7000 | options except there is no default if they are not specified | ||
7001 | .Pq no additional certificate or key is used . | ||
7002 | As noted above some cipher suites require a certificate containing a key of | ||
7003 | a certain type. | ||
7004 | Some cipher suites need a certificate carrying an RSA key | ||
7005 | and some a DSS | ||
7006 | .Pq DSA | ||
7007 | key. | ||
7008 | By using RSA and DSS certificates and keys, | ||
7009 | a server can support clients which only support RSA or DSS cipher suites | ||
7010 | by using an appropriate certificate. | ||
7011 | .It Fl debug | ||
7012 | Print extensive debugging information including a hex dump of all traffic. | ||
7013 | .It Fl dhparam Ar file | ||
7014 | The DH parameter file to use. | ||
7015 | The ephemeral DH cipher suites generate keys | ||
7016 | using a set of DH parameters. | ||
7017 | If not specified, an attempt is made to | ||
7018 | load the parameters from the server certificate file. | ||
7019 | If this fails, a static set of parameters hard coded into the | ||
7020 | .Nm s_server | ||
7021 | program will be used. | ||
7022 | .It Fl engine Ar id | ||
7023 | Specifying an engine (by its unique | ||
7024 | .Ar id | ||
7025 | string) will cause | ||
7026 | .Nm s_server | ||
7027 | to attempt to obtain a functional reference to the specified engine, | ||
7028 | thus initialising it if needed. | ||
7029 | The engine will then be set as the default for all available algorithms. | ||
7030 | .It Fl hack | ||
7031 | This option enables a further workaround for some early Netscape | ||
7032 | SSL code | ||
7033 | .Pq \&? . | ||
7034 | .It Fl HTTP | ||
7035 | Emulates a simple web server. | ||
7036 | Pages will be resolved relative to the current directory; | ||
7037 | for example if the URL | ||
7038 | .Pa https://myhost/page.html | ||
7039 | is requested, the file | ||
7040 | .Pa ./page.html | ||
7041 | will be loaded. | ||
7042 | The files loaded are assumed to contain a complete and correct HTTP | ||
7043 | response (lines that are part of the HTTP response line and headers | ||
7044 | must end with CRLF). | ||
7045 | .It Fl id_prefix Ar arg | ||
7046 | Generate SSL/TLS session IDs prefixed by | ||
7047 | .Ar arg . | ||
7048 | This is mostly useful for testing any SSL/TLS code | ||
7049 | .Pq e.g. proxies | ||
7050 | that wish to deal with multiple servers, when each of which might be | ||
7051 | generating a unique range of session IDs | ||
7052 | .Pq e.g. with a certain prefix . | ||
7053 | .It Fl key Ar keyfile | ||
7054 | The private key to use. | ||
7055 | If not specified, the certificate file will be used. | ||
7056 | .It Fl msg | ||
7057 | Show all protocol messages with hex dump. | ||
7058 | .It Fl nbio | ||
7059 | Turns on non-blocking I/O. | ||
7060 | .It Fl nbio_test | ||
7061 | Tests non-blocking I/O. | ||
7062 | .It Fl no_dhe | ||
7063 | If this option is set, no DH parameters will be loaded, effectively | ||
7064 | disabling the ephemeral DH cipher suites. | ||
7065 | .It Xo | ||
7066 | .Fl no_ssl3 | no_tls1 | | ||
7067 | .Fl ssl3 | tls1 | ||
7068 | .Xc | ||
7069 | These options disable the use of certain SSL or TLS protocols. | ||
7070 | By default, the initial handshake uses a method which should be compatible | ||
7071 | with all servers and permit them to use SSL v3 or TLS as appropriate. | ||
7072 | .It Fl no_tmp_rsa | ||
7073 | Certain export cipher suites sometimes use a temporary RSA key; this option | ||
7074 | disables temporary RSA key generation. | ||
7075 | .It Fl nocert | ||
7076 | If this option is set, no certificate is used. | ||
7077 | This restricts the cipher suites available to the anonymous ones | ||
7078 | .Pq currently just anonymous DH . | ||
7079 | .It Fl psk Ar key | ||
7080 | Use the PSK key | ||
7081 | .Ar key | ||
7082 | when using a PSK cipher suite. | ||
7083 | The key is given as a hexadecimal number without the leading 0x, | ||
7084 | for example -psk 1a2b3c4d. | ||
7085 | .It Fl psk_hint Ar hint | ||
7086 | Use the PSK identity hint | ||
7087 | .Ar hint | ||
7088 | when using a PSK cipher suite. | ||
7089 | .It Fl quiet | ||
7090 | Inhibit printing of session and certificate information. | ||
7091 | .It Fl serverpref | ||
7092 | Use server's cipher preferences. | ||
7093 | .It Fl state | ||
7094 | Prints out the SSL session states. | ||
7095 | .It Fl WWW | ||
7096 | Emulates a simple web server. | ||
7097 | Pages will be resolved relative to the current directory; | ||
7098 | for example if the URL | ||
7099 | .Pa https://myhost/page.html | ||
7100 | is requested, the file | ||
7101 | .Pa ./page.html | ||
7102 | will be loaded. | ||
7103 | .It Fl www | ||
7104 | Sends a status message back to the client when it connects. | ||
7105 | This includes lots of information about the ciphers used and various | ||
7106 | session parameters. | ||
7107 | The output is in HTML format so this option will normally be used with a | ||
7108 | web browser. | ||
7109 | .It Fl Verify Ar depth , Fl verify Ar depth | ||
7110 | The verify | ||
7111 | .Ar depth | ||
7112 | to use. | ||
7113 | This specifies the maximum length of the client certificate chain | ||
7114 | and makes the server request a certificate from the client. | ||
7115 | With the | ||
7116 | .Fl Verify | ||
7117 | option, the client must supply a certificate or an error occurs. | ||
7118 | With the | ||
7119 | .Fl verify | ||
7120 | option, a certificate is requested but the client does not have to send one. | ||
7121 | .El | ||
7122 | .Sh S_SERVER CONNECTED COMMANDS | ||
7123 | If a connection request is established with an SSL client and neither the | ||
7124 | .Fl www | ||
7125 | nor the | ||
7126 | .Fl WWW | ||
7127 | option has been used, then normally any data received | ||
7128 | from the client is displayed and any key presses will be sent to the client. | ||
7129 | .Pp | ||
7130 | Certain single letter commands are also recognized which perform special | ||
7131 | operations: these are listed below. | ||
7132 | .Bl -tag -width "XXXX" | ||
7133 | .It Ar P | ||
7134 | Send some plain text down the underlying TCP connection: this should | ||
7135 | cause the client to disconnect due to a protocol violation. | ||
7136 | .It Ar Q | ||
7137 | End the current SSL connection and exit. | ||
7138 | .It Ar q | ||
7139 | End the current SSL connection, but still accept new connections. | ||
7140 | .It Ar R | ||
7141 | Renegotiate the SSL session and request a client certificate. | ||
7142 | .It Ar r | ||
7143 | Renegotiate the SSL session. | ||
7144 | .It Ar S | ||
7145 | Print out some session cache status information. | ||
7146 | .El | ||
7147 | .Sh S_SERVER NOTES | ||
7148 | .Nm s_server | ||
7149 | can be used to debug SSL clients. | ||
7150 | To accept connections from a web browser the command: | ||
7151 | .Pp | ||
7152 | .Dl $ openssl s_server -accept 443 -www | ||
7153 | .Pp | ||
7154 | can be used, for example. | ||
7155 | .Pp | ||
7156 | Most web browsers | ||
7157 | .Pq in particular Netscape and MSIE | ||
7158 | only support RSA cipher suites, so they cannot connect to servers | ||
7159 | which don't use a certificate carrying an RSA key or a version of | ||
7160 | .Nm OpenSSL | ||
7161 | with RSA disabled. | ||
7162 | .Pp | ||
7163 | Although specifying an empty list of CAs when requesting a client certificate | ||
7164 | is strictly speaking a protocol violation, some SSL | ||
7165 | clients interpret this to mean any CA is acceptable. | ||
7166 | This is useful for debugging purposes. | ||
7167 | .Pp | ||
7168 | The session parameters can printed out using the | ||
7169 | .Nm sess_id | ||
7170 | program. | ||
7171 | .Sh S_SERVER BUGS | ||
7172 | Because this program has a lot of options and also because some of | ||
7173 | the techniques used are rather old, the C source of | ||
7174 | .Nm s_server | ||
7175 | is rather hard to read and not a model of how things should be done. | ||
7176 | A typical SSL server program would be much simpler. | ||
7177 | .Pp | ||
7178 | The output of common ciphers is wrong: it just gives the list of ciphers that | ||
7179 | .Nm OpenSSL | ||
7180 | recognizes and the client supports. | ||
7181 | .Pp | ||
7182 | There should be a way for the | ||
7183 | .Nm s_server | ||
7184 | program to print out details of any | ||
7185 | unknown cipher suites a client says it supports. | ||
7186 | .\" | ||
7187 | .\" S_TIME | ||
7188 | .\" | ||
7189 | .Sh S_TIME | ||
7190 | .nr nS 1 | ||
7191 | .Nm "openssl s_time" | ||
7192 | .Bk -words | ||
7193 | .Op Fl bugs | ||
7194 | .Op Fl CAfile Ar file | ||
7195 | .Op Fl CApath Ar directory | ||
7196 | .Op Fl cert Ar file | ||
7197 | .Op Fl cipher Ar cipherlist | ||
7198 | .Op Fl connect Ar host : Ns Ar port | ||
7199 | .Op Fl key Ar keyfile | ||
7200 | .Op Fl nbio | ||
7201 | .Op Fl new | ||
7202 | .Op Fl reuse | ||
7203 | .Op Fl ssl3 | ||
7204 | .Op Fl time Ar seconds | ||
7205 | .Op Fl verify Ar depth | ||
7206 | .Op Fl www Ar page | ||
7207 | .Ek | ||
7208 | .nr nS 0 | ||
7209 | .Pp | ||
7210 | The | ||
7211 | .Nm s_client | ||
7212 | command implements a generic SSL/TLS client which connects to a | ||
7213 | remote host using SSL/TLS. | ||
7214 | It can request a page from the server and includes | ||
7215 | the time to transfer the payload data in its timing measurements. | ||
7216 | It measures the number of connections within a given timeframe, | ||
7217 | the amount of data transferred | ||
7218 | .Pq if any , | ||
7219 | and calculates the average time spent for one connection. | ||
7220 | .Pp | ||
7221 | The options are as follows: | ||
7222 | .Bl -tag -width Ds | ||
7223 | .It Fl bugs | ||
7224 | There are several known bugs in SSL and TLS implementations. | ||
7225 | Adding this option enables various workarounds. | ||
7226 | .It Fl CAfile Ar file | ||
7227 | A file containing trusted certificates to use during server authentication | ||
7228 | and to use when attempting to build the client certificate chain. | ||
7229 | .It Fl CApath Ar directory | ||
7230 | The directory to use for server certificate verification. | ||
7231 | This directory must be in | ||
7232 | .Qq hash format ; | ||
7233 | see | ||
7234 | .Nm verify | ||
7235 | for more information. | ||
7236 | These are also used when building the client certificate chain. | ||
7237 | .It Fl cert Ar file | ||
7238 | The certificate to use, if one is requested by the server. | ||
7239 | The default is not to use a certificate. | ||
7240 | The file is in PEM format. | ||
7241 | .It Fl cipher Ar cipherlist | ||
7242 | This allows the cipher list sent by the client to be modified. | ||
7243 | Although the server determines which cipher suite is used, | ||
7244 | it should take the first supported cipher in the list sent by the client. | ||
7245 | See the | ||
7246 | .Nm ciphers | ||
7247 | command for more information. | ||
7248 | .It Fl connect Ar host : Ns Ar port | ||
7249 | This specifies the host and optional port to connect to. | ||
7250 | .It Fl key Ar keyfile | ||
7251 | The private key to use. | ||
7252 | If not specified, the certificate file will be used. | ||
7253 | The file is in PEM format. | ||
7254 | .It Fl nbio | ||
7255 | Turns on non-blocking I/O. | ||
7256 | .It Fl new | ||
7257 | Performs the timing test using a new session ID for each connection. | ||
7258 | If neither | ||
7259 | .Fl new | ||
7260 | nor | ||
7261 | .Fl reuse | ||
7262 | are specified, | ||
7263 | they are both on by default and executed in sequence. | ||
7264 | .It Fl reuse | ||
7265 | Performs the timing test using the same session ID; | ||
7266 | this can be used as a test that session caching is working. | ||
7267 | If neither | ||
7268 | .Fl new | ||
7269 | nor | ||
7270 | .Fl reuse | ||
7271 | are specified, | ||
7272 | they are both on by default and executed in sequence. | ||
7273 | .It Fl ssl3 | ||
7274 | This option disables the use of certain SSL or TLS protocols. | ||
7275 | By default, the initial handshake uses a method | ||
7276 | which should be compatible with all servers and permit them to use | ||
7277 | SSL v3 or TLS as appropriate. | ||
7278 | The timing program is not as rich in options to turn protocols on and off as | ||
7279 | the | ||
7280 | .Nm s_client | ||
7281 | program and may not connect to all servers. | ||
7282 | .Pp | ||
7283 | Unfortunately there are a lot of ancient and broken servers in use which | ||
7284 | cannot handle this technique and will fail to connect. | ||
7285 | Some servers only work if TLS is turned off with the | ||
7286 | .Fl ssl3 | ||
7287 | option. | ||
7288 | .It Fl time Ar seconds | ||
7289 | Specifies how long | ||
7290 | .Pq in seconds | ||
7291 | .Nm s_time | ||
7292 | should establish connections and | ||
7293 | optionally transfer payload data from a server. | ||
7294 | The default is 30 seconds. | ||
7295 | Server and client performance and the link speed | ||
7296 | determine how many connections | ||
7297 | .Nm s_time | ||
7298 | can establish. | ||
7299 | .It Fl verify Ar depth | ||
7300 | The verify depth to use. | ||
7301 | This specifies the maximum length of the server certificate chain | ||
7302 | and turns on server certificate verification. | ||
7303 | Currently the verify operation continues after errors, so all the problems | ||
7304 | with a certificate chain can be seen. | ||
7305 | As a side effect, | ||
7306 | the connection will never fail due to a server certificate verify failure. | ||
7307 | .It Fl www Ar page | ||
7308 | This specifies the page to GET from the server. | ||
7309 | A value of | ||
7310 | .Sq / | ||
7311 | gets the index.htm[l] page. | ||
7312 | If this parameter is not specified, | ||
7313 | .Nm s_time | ||
7314 | will only perform the handshake to establish SSL connections | ||
7315 | but not transfer any payload data. | ||
7316 | .El | ||
7317 | .Sh S_TIME NOTES | ||
7318 | .Nm s_client | ||
7319 | can be used to measure the performance of an SSL connection. | ||
7320 | To connect to an SSL HTTP server and get the default page the command | ||
7321 | .Bd -literal -offset indent | ||
7322 | $ openssl s_time -connect servername:443 -www / -CApath yourdir \e | ||
7323 | -CAfile yourfile.pem -cipher commoncipher [-ssl3] | ||
7324 | .Ed | ||
7325 | .Pp | ||
7326 | would typically be used | ||
7327 | .Pq HTTPS uses port 443 . | ||
7328 | .Dq commoncipher | ||
7329 | is a cipher to which both client and server can agree; | ||
7330 | see the | ||
7331 | .Nm ciphers | ||
7332 | command for details. | ||
7333 | .Pp | ||
7334 | If the handshake fails, there are several possible causes: | ||
7335 | if it is nothing obvious like no client certificate, the | ||
7336 | .Fl bugs | ||
7337 | and | ||
7338 | .Fl ssl3 | ||
7339 | options can be tried in case it is a buggy server. | ||
7340 | In particular you should play with these options | ||
7341 | .Em before | ||
7342 | submitting a bug report to an OpenSSL mailing list. | ||
7343 | .Pp | ||
7344 | A frequent problem when attempting to get client certificates working | ||
7345 | is that a web client complains it has no certificates or gives an empty | ||
7346 | list to choose from. | ||
7347 | This is normally because the server is not sending | ||
7348 | the clients certificate authority in its | ||
7349 | .Qq acceptable CA list | ||
7350 | when it requests a certificate. | ||
7351 | By using | ||
7352 | .Nm s_client , | ||
7353 | the CA list can be viewed and checked. | ||
7354 | However some servers only request client authentication | ||
7355 | after a specific URL is requested. | ||
7356 | To obtain the list in this case, it is necessary to use the | ||
7357 | .Fl prexit | ||
7358 | option of | ||
7359 | .Nm s_client | ||
7360 | and send an HTTP request for an appropriate page. | ||
7361 | .Pp | ||
7362 | If a certificate is specified on the command line using the | ||
7363 | .Fl cert | ||
7364 | option, | ||
7365 | it will not be used unless the server specifically requests | ||
7366 | a client certificate. | ||
7367 | Therefore merely including a client certificate | ||
7368 | on the command line is no guarantee that the certificate works. | ||
7369 | .Sh S_TIME BUGS | ||
7370 | Because this program does not have all the options of the | ||
7371 | .Nm s_client | ||
7372 | program to turn protocols on and off, | ||
7373 | you may not be able to measure the performance | ||
7374 | of all protocols with all servers. | ||
7375 | .Pp | ||
7376 | The | ||
7377 | .Fl verify | ||
7378 | option should really exit if the server verification fails. | ||
7379 | .\" | ||
7380 | .\" SESS_ID | ||
7381 | .\" | ||
7382 | .Sh SESS_ID | ||
7383 | .nr nS 1 | ||
7384 | .Nm "openssl sess_id" | ||
7385 | .Bk -words | ||
7386 | .Op Fl cert | ||
7387 | .Op Fl context Ar ID | ||
7388 | .Op Fl in Ar file | ||
7389 | .Op Fl inform Ar DER | PEM | ||
7390 | .Op Fl noout | ||
7391 | .Op Fl out Ar file | ||
7392 | .Op Fl outform Ar DER | PEM | ||
7393 | .Op Fl text | ||
7394 | .Ek | ||
7395 | .nr nS 0 | ||
7396 | .Pp | ||
7397 | The | ||
7398 | .Nm sess_id | ||
7399 | program processes the encoded version of the SSL session structure and | ||
7400 | optionally prints out SSL session details | ||
7401 | .Pq for example the SSL session master key | ||
7402 | in human readable format. | ||
7403 | Since this is a diagnostic tool that needs some knowledge of the SSL | ||
7404 | protocol to use properly, most users will not need to use it. | ||
7405 | .Pp | ||
7406 | The options are as follows: | ||
7407 | .Bl -tag -width Ds | ||
7408 | .It Fl cert | ||
7409 | If a certificate is present in the session, | ||
7410 | it will be output using this option; | ||
7411 | if the | ||
7412 | .Fl text | ||
7413 | option is also present, then it will be printed out in text form. | ||
7414 | .It Fl context Ar ID | ||
7415 | This option can set the session ID so the output session information uses the | ||
7416 | supplied | ||
7417 | .Ar ID . | ||
7418 | The | ||
7419 | .Ar ID | ||
7420 | can be any string of characters. | ||
7421 | This option won't normally be used. | ||
7422 | .It Fl in Ar file | ||
7423 | This specifies the input | ||
7424 | .Ar file | ||
7425 | to read session information from, or standard input by default. | ||
7426 | .It Fl inform Ar DER | PEM | ||
7427 | This specifies the input format. | ||
7428 | The | ||
7429 | .Ar DER | ||
7430 | argument uses an ASN1 DER-encoded | ||
7431 | format containing session details. | ||
7432 | The precise format can vary from one version to the next. | ||
7433 | The | ||
7434 | .Ar PEM | ||
7435 | form is the default format: it consists of the DER | ||
7436 | format base64-encoded with additional header and footer lines. | ||
7437 | .It Fl noout | ||
7438 | This option prevents output of the encoded version of the session. | ||
7439 | .It Fl out Ar file | ||
7440 | This specifies the output | ||
7441 | .Ar file | ||
7442 | to write session information to, or standard | ||
7443 | output if this option is not specified. | ||
7444 | .It Fl outform Ar DER | PEM | ||
7445 | This specifies the output format; the options have the same meaning as the | ||
7446 | .Fl inform | ||
7447 | option. | ||
7448 | .It Fl text | ||
7449 | Prints out the various public or private key components in | ||
7450 | plain text in addition to the encoded version. | ||
7451 | .El | ||
7452 | .Sh SESS_ID OUTPUT | ||
7453 | Typical output: | ||
7454 | .Bd -literal | ||
7455 | SSL-Session: | ||
7456 | Protocol : TLSv1 | ||
7457 | Cipher : 0016 | ||
7458 | Session-ID: 871E62626C554CE95488823752CBD5F3673A3EF3DCE9C67BD916C809914B40ED | ||
7459 | Session-ID-ctx: 01000000 | ||
7460 | Master-Key: A7CEFC571974BE02CAC305269DC59F76EA9F0B180CB6642697A68251F2D2BB57E51DBBB4C7885573192AE9AEE220FACD | ||
7461 | Key-Arg : None | ||
7462 | Start Time: 948459261 | ||
7463 | Timeout : 300 (sec) | ||
7464 | Verify return code 0 (ok) | ||
7465 | .Ed | ||
7466 | .Pp | ||
7467 | These are described below in more detail. | ||
7468 | .Pp | ||
7469 | .Bl -tag -width "Verify return code " -compact | ||
7470 | .It Ar Protocol | ||
7471 | This is the protocol in use: TLSv1 or SSLv3. | ||
7472 | .It Ar Cipher | ||
7473 | The cipher used is the actual raw SSL or TLS cipher code; | ||
7474 | see the SSL or TLS specifications for more information. | ||
7475 | .It Ar Session-ID | ||
7476 | The SSL session ID in hex format. | ||
7477 | .It Ar Session-ID-ctx | ||
7478 | The session ID context in hex format. | ||
7479 | .It Ar Master-Key | ||
7480 | This is the SSL session master key. | ||
7481 | .It Ar Key-Arg | ||
7482 | The key argument; this is only used in SSL v2. | ||
7483 | .It Ar Start Time | ||
7484 | This is the session start time, represented as an integer in standard | ||
7485 | .Ux | ||
7486 | format. | ||
7487 | .It Ar Timeout | ||
7488 | The timeout in seconds. | ||
7489 | .It Ar Verify return code | ||
7490 | This is the return code when an SSL client certificate is verified. | ||
7491 | .El | ||
7492 | .Sh SESS_ID NOTES | ||
7493 | The PEM-encoded session format uses the header and footer lines: | ||
7494 | .Bd -unfilled -offset indent | ||
7495 | -----BEGIN SSL SESSION PARAMETERS----- | ||
7496 | -----END SSL SESSION PARAMETERS----- | ||
7497 | .Ed | ||
7498 | .Pp | ||
7499 | Since the SSL session output contains the master key, it is possible to read | ||
7500 | the contents of an encrypted session using this information. | ||
7501 | Therefore appropriate security precautions | ||
7502 | should be taken if the information is being output by a | ||
7503 | .Qq real | ||
7504 | application. | ||
7505 | This is, however, strongly discouraged and should only be used for | ||
7506 | debugging purposes. | ||
7507 | .Sh SESS_ID BUGS | ||
7508 | The cipher and start time should be printed out in human readable form. | ||
7509 | .\" | ||
7510 | .\" SMIME | ||
7511 | .\" | ||
7512 | .Sh SMIME | ||
7513 | .nr nS 1 | ||
7514 | .Nm "openssl smime" | ||
7515 | .Bk -words | ||
7516 | .Oo | ||
7517 | .Fl aes128 | aes192 | aes256 | des | | ||
7518 | .Fl des3 | rc2-40 | rc2-64 | rc2-128 | ||
7519 | .Oc | ||
7520 | .Op Fl binary | ||
7521 | .Op Fl CAfile Ar file | ||
7522 | .Op Fl CApath Ar directory | ||
7523 | .Op Fl certfile Ar file | ||
7524 | .Op Fl check_ss_sig | ||
7525 | .Op Fl content Ar file | ||
7526 | .Op Fl crl_check | ||
7527 | .Op Fl crl_check_all | ||
7528 | .Op Fl decrypt | ||
7529 | .Op Fl encrypt | ||
7530 | .Op Fl engine Ar id | ||
7531 | .Op Fl extended_crl | ||
7532 | .Op Fl from Ar addr | ||
7533 | .Op Fl ignore_critical | ||
7534 | .Op Fl in Ar file | ||
7535 | .Op Fl indef | ||
7536 | .Op Fl inform Ar DER | PEM | SMIME | ||
7537 | .Op Fl inkey Ar file | ||
7538 | .Op Fl issuer_checks | ||
7539 | .Op Fl keyform Ar ENGINE | PEM | ||
7540 | .Op Fl md Ar digest | ||
7541 | .Op Fl noattr | ||
7542 | .Op Fl nocerts | ||
7543 | .Op Fl nochain | ||
7544 | .Op Fl nodetach | ||
7545 | .Op Fl noindef | ||
7546 | .Op Fl nointern | ||
7547 | .Op Fl nosigs | ||
7548 | .Op Fl noverify | ||
7549 | .Op Fl out Ar file | ||
7550 | .Op Fl outform Ar DER | PEM | SMIME | ||
7551 | .Op Fl passin Ar arg | ||
7552 | .Op Fl pk7out | ||
7553 | .Op Fl policy_check | ||
7554 | .Op Fl recip Ar file | ||
7555 | .Op Fl resign | ||
7556 | .Op Fl sign | ||
7557 | .Op Fl signer Ar file | ||
7558 | .Op Fl stream | ||
7559 | .Op Fl subject Ar s | ||
7560 | .Op Fl text | ||
7561 | .Op Fl to Ar addr | ||
7562 | .Op Fl verify | ||
7563 | .Op Fl x509_strict | ||
7564 | .Op Ar cert.pem ... | ||
7565 | .Ek | ||
7566 | .nr nS 0 | ||
7567 | .Pp | ||
7568 | The | ||
7569 | .Nm smime | ||
7570 | command handles | ||
7571 | .Em S/MIME | ||
7572 | mail. | ||
7573 | It can encrypt, decrypt, sign, and verify | ||
7574 | .Em S/MIME | ||
7575 | messages. | ||
7576 | .Pp | ||
7577 | There are six operation options that set the type of operation to be performed. | ||
7578 | The meaning of the other options varies according to the operation type. | ||
7579 | .Pp | ||
7580 | The six operation options are as follows: | ||
7581 | .Bl -tag -width "XXXX" | ||
7582 | .It Fl decrypt | ||
7583 | Decrypt mail using the supplied certificate and private key. | ||
7584 | Expects an encrypted mail message in | ||
7585 | .Em MIME | ||
7586 | format for the input file. | ||
7587 | The decrypted mail is written to the output file. | ||
7588 | .It Fl encrypt | ||
7589 | Encrypt mail for the given recipient certificates. | ||
7590 | Input file is the message to be encrypted. | ||
7591 | The output file is the encrypted mail in | ||
7592 | .Em MIME | ||
7593 | format. | ||
7594 | .It Fl pk7out | ||
7595 | Takes an input message and writes out a PEM-encoded PKCS#7 structure. | ||
7596 | .It Fl resign | ||
7597 | Resign a message: take an existing message and one or more new signers. | ||
7598 | .It Fl sign | ||
7599 | Sign mail using the supplied certificate and private key. | ||
7600 | Input file is the message to be signed. | ||
7601 | The signed message in | ||
7602 | .Em MIME | ||
7603 | format is written to the output file. | ||
7604 | .It Fl verify | ||
7605 | Verify signed mail. | ||
7606 | Expects a signed mail message on input and outputs the signed data. | ||
7607 | Both clear text and opaque signing is supported. | ||
7608 | .El | ||
7609 | .Pp | ||
7610 | The reamaining options are as follows: | ||
7611 | .Bl -tag -width "XXXX" | ||
7612 | .It Xo | ||
7613 | .Fl aes128 | aes192 | aes256 | des | | ||
7614 | .Fl des3 | rc2-40 | rc2-64 | rc2-128 | ||
7615 | .Xc | ||
7616 | The encryption algorithm to use. | ||
7617 | 128-, 192-, or 256-bit AES, | ||
7618 | DES | ||
7619 | .Pq 56 bits , | ||
7620 | triple DES | ||
7621 | .Pq 168 bits , | ||
7622 | or 40-, 64-, or 128-bit RC2, respectively; | ||
7623 | if not specified, 40-bit RC2 is | ||
7624 | used. | ||
7625 | Only used with | ||
7626 | .Fl encrypt . | ||
7627 | .It Fl binary | ||
7628 | Normally, the input message is converted to | ||
7629 | .Qq canonical | ||
7630 | format which is effectively using CR and LF as end of line \- | ||
7631 | as required by the | ||
7632 | .Em S/MIME | ||
7633 | specification. | ||
7634 | When this option is present no translation occurs. | ||
7635 | This is useful when handling binary data which may not be in | ||
7636 | .Em MIME | ||
7637 | format. | ||
7638 | .It Fl CAfile Ar file | ||
7639 | A | ||
7640 | .Ar file | ||
7641 | containing trusted CA certificates; only used with | ||
7642 | .Fl verify . | ||
7643 | .It Fl CApath Ar directory | ||
7644 | A | ||
7645 | .Ar directory | ||
7646 | containing trusted CA certificates; only used with | ||
7647 | .Fl verify . | ||
7648 | This directory must be a standard certificate directory: | ||
7649 | that is, a hash of each subject name (using | ||
7650 | .Nm x509 -hash ) | ||
7651 | should be linked to each certificate. | ||
7652 | .It Ar cert.pem ... | ||
7653 | One or more certificates of message recipients: used when encrypting | ||
7654 | a message. | ||
7655 | .It Fl certfile Ar file | ||
7656 | Allows additional certificates to be specified. | ||
7657 | When signing, these will be included with the message. | ||
7658 | When verifying, these will be searched for the signers' certificates. | ||
7659 | The certificates should be in PEM format. | ||
7660 | .It Xo | ||
7661 | .Fl check_ss_sig , | ||
7662 | .Fl crl_check , | ||
7663 | .Fl crl_check_all , | ||
7664 | .Fl extended_crl , | ||
7665 | .Fl ignore_critical , | ||
7666 | .Fl issuer_checks , | ||
7667 | .Fl policy_check , | ||
7668 | .Fl x509_strict | ||
7669 | .Xc | ||
7670 | Set various certificate chain validation options. | ||
7671 | See the | ||
7672 | .Nm VERIFY | ||
7673 | command for details. | ||
7674 | .It Fl content Ar file | ||
7675 | This specifies a file containing the detached content. | ||
7676 | This is only useful with the | ||
7677 | .Fl verify | ||
7678 | command. | ||
7679 | This is only usable if the PKCS#7 structure is using the detached | ||
7680 | signature form where the content is not included. | ||
7681 | This option will override any content if the input format is | ||
7682 | .Em S/MIME | ||
7683 | and it uses the multipart/signed | ||
7684 | .Em MIME | ||
7685 | content type. | ||
7686 | .It Fl engine Ar id | ||
7687 | Specifying an engine (by its unique | ||
7688 | .Ar id | ||
7689 | string) will cause | ||
7690 | .Nm smime | ||
7691 | to attempt to obtain a functional reference to the specified engine, | ||
7692 | thus initialising it if needed. | ||
7693 | The engine will then be set as the default for all available algorithms. | ||
7694 | .It Xo | ||
7695 | .Fl from Ar addr , | ||
7696 | .Fl subject Ar s , | ||
7697 | .Fl to Ar addr | ||
7698 | .Xc | ||
7699 | The relevant mail headers. | ||
7700 | These are included outside the signed | ||
7701 | portion of a message so they may be included manually. | ||
7702 | When signing, many | ||
7703 | .Em S/MIME | ||
7704 | mail clients check that the signer's certificate email | ||
7705 | address matches the From: address. | ||
7706 | .It Fl in Ar file | ||
7707 | The input message to be encrypted or signed or the | ||
7708 | .Em MIME | ||
7709 | message to | ||
7710 | be decrypted or verified. | ||
7711 | .It Fl indef | ||
7712 | Enable streaming I/O for encoding operations. | ||
7713 | This permits single pass processing of data without | ||
7714 | the need to hold the entire contents in memory, | ||
7715 | potentially supporting very large files. | ||
7716 | Streaming is automatically set for S/MIME signing with detached | ||
7717 | data if the output format is SMIME; | ||
7718 | it is currently off by default for all other operations. | ||
7719 | .It Fl inform Ar DER | PEM | SMIME | ||
7720 | This specifies the input format for the PKCS#7 structure. | ||
7721 | The default is | ||
7722 | .Em SMIME , | ||
7723 | which reads an | ||
7724 | .Em S/MIME | ||
7725 | format message. | ||
7726 | .Ar PEM | ||
7727 | and | ||
7728 | .Ar DER | ||
7729 | format change this to expect PEM and DER format PKCS#7 structures | ||
7730 | instead. | ||
7731 | This currently only affects the input format of the PKCS#7 | ||
7732 | structure; if no PKCS#7 structure is being input (for example with | ||
7733 | .Fl encrypt | ||
7734 | or | ||
7735 | .Fl sign ) , | ||
7736 | this option has no effect. | ||
7737 | .It Fl inkey Ar file | ||
7738 | The private key to use when signing or decrypting. | ||
7739 | This must match the corresponding certificate. | ||
7740 | If this option is not specified, the private key must be included | ||
7741 | in the certificate file specified with | ||
7742 | the | ||
7743 | .Fl recip | ||
7744 | or | ||
7745 | .Fl signer | ||
7746 | file. | ||
7747 | When signing, | ||
7748 | this option can be used multiple times to specify successive keys. | ||
7749 | .It Fl keyform Ar ENGINE | PEM | ||
7750 | Input private key format. | ||
7751 | .It Fl md Ar digest | ||
7752 | The digest algorithm to use when signing or resigning. | ||
7753 | If not present then the default digest algorithm for the signing key is used | ||
7754 | (usually SHA1). | ||
7755 | .It Fl noattr | ||
7756 | Normally, when a message is signed a set of attributes are included which | ||
7757 | include the signing time and supported symmetric algorithms. | ||
7758 | With this option they are not included. | ||
7759 | .It Fl nocerts | ||
7760 | When signing a message, the signer's certificate is normally included; | ||
7761 | with this option it is excluded. | ||
7762 | This will reduce the size of the signed message but the verifier must | ||
7763 | have a copy of the signer's certificate available locally (passed using the | ||
7764 | .Fl certfile | ||
7765 | option, for example). | ||
7766 | .It Fl nochain | ||
7767 | Do not do chain verification of signers' certificates: that is, | ||
7768 | don't use the certificates in the signed message as untrusted CAs. | ||
7769 | .It Fl nodetach | ||
7770 | When signing a message use opaque signing: this form is more resistant | ||
7771 | to translation by mail relays but it cannot be read by mail agents that | ||
7772 | do not support | ||
7773 | .Em S/MIME . | ||
7774 | Without this option cleartext signing with the | ||
7775 | .Em MIME | ||
7776 | type multipart/signed is used. | ||
7777 | .It Fl noindef | ||
7778 | Disable streaming I/O where it would produce an encoding of indefinite length. | ||
7779 | This option currently has no effect. | ||
7780 | In future streaming will be enabled by default on all relevant operations | ||
7781 | and this option will disable it. | ||
7782 | .It Fl nointern | ||
7783 | When verifying a message, normally certificates | ||
7784 | .Pq if any | ||
7785 | included in the message are searched for the signing certificate. | ||
7786 | With this option, only the certificates specified in the | ||
7787 | .Fl certfile | ||
7788 | option are used. | ||
7789 | The supplied certificates can still be used as untrusted CAs however. | ||
7790 | .It Fl nosigs | ||
7791 | Don't try to verify the signatures on the message. | ||
7792 | .It Fl noverify | ||
7793 | Do not verify the signer's certificate of a signed message. | ||
7794 | .It Fl out Ar file | ||
7795 | The message text that has been decrypted or verified, or the output | ||
7796 | .Em MIME | ||
7797 | format message that has been signed or verified. | ||
7798 | .It Fl outform Ar DER | PEM | SMIME | ||
7799 | This specifies the output format for the PKCS#7 structure. | ||
7800 | The default is | ||
7801 | .Em SMIME , | ||
7802 | which writes an | ||
7803 | .Em S/MIME | ||
7804 | format message. | ||
7805 | .Ar PEM | ||
7806 | and | ||
7807 | .Ar DER | ||
7808 | format change this to write PEM and DER format PKCS#7 structures | ||
7809 | instead. | ||
7810 | This currently only affects the output format of the PKCS#7 | ||
7811 | structure; if no PKCS#7 structure is being output (for example with | ||
7812 | .Fl verify | ||
7813 | or | ||
7814 | .Fl decrypt ) | ||
7815 | this option has no effect. | ||
7816 | .It Fl passin Ar arg | ||
7817 | The key password source. | ||
7818 | For more information about the format of | ||
7819 | .Ar arg , | ||
7820 | see the | ||
7821 | .Sx PASS PHRASE ARGUMENTS | ||
7822 | section above. | ||
7823 | .It Fl recip Ar file | ||
7824 | The recipients certificate when decrypting a message. | ||
7825 | This certificate | ||
7826 | must match one of the recipients of the message or an error occurs. | ||
7827 | .It Fl signer Ar file | ||
7828 | A signing certificate when signing or resigning a message; | ||
7829 | this option can be used multiple times if more than one signer is required. | ||
7830 | If a message is being verified, the signer's certificates will be | ||
7831 | written to this file if the verification was successful. | ||
7832 | .It Fl stream | ||
7833 | The same as | ||
7834 | .Fl indef . | ||
7835 | .It Fl text | ||
7836 | This option adds plain text | ||
7837 | .Pq text/plain | ||
7838 | .Em MIME | ||
7839 | headers to the supplied message if encrypting or signing. | ||
7840 | If decrypting or verifying, it strips off text headers: | ||
7841 | if the decrypted or verified message is not of | ||
7842 | .Em MIME | ||
7843 | type text/plain then an error occurs. | ||
7844 | .El | ||
7845 | .Sh SMIME NOTES | ||
7846 | The | ||
7847 | .Em MIME | ||
7848 | message must be sent without any blank lines between the | ||
7849 | headers and the output. | ||
7850 | Some mail programs will automatically add a blank line. | ||
7851 | Piping the mail directly to sendmail is one way to | ||
7852 | achieve the correct format. | ||
7853 | .Pp | ||
7854 | The supplied message to be signed or encrypted must include the | ||
7855 | necessary | ||
7856 | .Em MIME | ||
7857 | headers or many | ||
7858 | .Em S/MIME | ||
7859 | clients won't display it properly | ||
7860 | .Pq if at all . | ||
7861 | You can use the | ||
7862 | .Fl text | ||
7863 | option to automatically add plain text headers. | ||
7864 | .Pp | ||
7865 | A | ||
7866 | .Qq signed and encrypted | ||
7867 | message is one where a signed message is then encrypted. | ||
7868 | This can be produced by encrypting an already signed message: | ||
7869 | see the | ||
7870 | .Sx SMIME EXAMPLES | ||
7871 | section. | ||
7872 | .Pp | ||
7873 | This version of the program only allows one signer per message, but it | ||
7874 | will verify multiple signers on received messages. | ||
7875 | Some | ||
7876 | .Em S/MIME | ||
7877 | clients choke if a message contains multiple signers. | ||
7878 | It is possible to sign messages | ||
7879 | .Qq in parallel | ||
7880 | by signing an already signed message. | ||
7881 | .Pp | ||
7882 | The options | ||
7883 | .Fl encrypt | ||
7884 | and | ||
7885 | .Fl decrypt | ||
7886 | reflect common usage in | ||
7887 | .Em S/MIME | ||
7888 | clients. | ||
7889 | Strictly speaking these process PKCS#7 enveloped data: PKCS#7 | ||
7890 | encrypted data is used for other purposes. | ||
7891 | .Pp | ||
7892 | The | ||
7893 | .Fl resign | ||
7894 | option uses an existing message digest when adding a new signer. | ||
7895 | This means that attributes must be present in at least one existing | ||
7896 | signer using the same message digest or this operation will fail. | ||
7897 | .Pp | ||
7898 | The | ||
7899 | .Fl stream | ||
7900 | and | ||
7901 | .Fl indef | ||
7902 | options enable experimental streaming I/O support. | ||
7903 | As a result the encoding is BER using indefinite length constructed encoding | ||
7904 | and no longer DER. | ||
7905 | Streaming is supported for the | ||
7906 | .Fl encrypt | ||
7907 | and | ||
7908 | .Fl sign | ||
7909 | operations if the content is not detached. | ||
7910 | .Pp | ||
7911 | Streaming is always used for the | ||
7912 | .Fl sign | ||
7913 | operation with detached data | ||
7914 | but since the content is no longer part of the PKCS#7 structure | ||
7915 | the encoding remains DER. | ||
7916 | .Sh SMIME EXIT CODES | ||
7917 | .Bl -tag -width "XXXX" | ||
7918 | .It Ar 0 | ||
7919 | The operation was completely successful. | ||
7920 | .It Ar 1 | ||
7921 | An error occurred parsing the command options. | ||
7922 | .It Ar 2 | ||
7923 | One of the input files could not be read. | ||
7924 | .It Ar 3 | ||
7925 | An error occurred creating the PKCS#7 file or when reading the | ||
7926 | .Em MIME | ||
7927 | message. | ||
7928 | .It Ar 4 | ||
7929 | An error occurred decrypting or verifying the message. | ||
7930 | .It Ar 5 | ||
7931 | The message was verified correctly, but an error occurred writing out | ||
7932 | the signer's certificates. | ||
7933 | .El | ||
7934 | .Sh SMIME EXAMPLES | ||
7935 | Create a cleartext signed message: | ||
7936 | .Bd -literal -offset indent | ||
7937 | $ openssl smime -sign -in message.txt -text -out mail.msg \e | ||
7938 | -signer mycert.pem | ||
7939 | .Ed | ||
7940 | .Pp | ||
7941 | Create an opaque signed message: | ||
7942 | .Bd -literal -offset indent | ||
7943 | $ openssl smime -sign -in message.txt -text -out mail.msg \e | ||
7944 | -nodetach -signer mycert.pem | ||
7945 | .Ed | ||
7946 | .Pp | ||
7947 | Create a signed message, include some additional certificates and | ||
7948 | read the private key from another file: | ||
7949 | .Bd -literal -offset indent | ||
7950 | $ openssl smime -sign -in in.txt -text -out mail.msg \e | ||
7951 | -signer mycert.pem -inkey mykey.pem -certfile mycerts.pem | ||
7952 | .Ed | ||
7953 | .Pp | ||
7954 | Create a signed message with two signers: | ||
7955 | .Bd -literal -offset indent | ||
7956 | openssl smime -sign -in message.txt -text -out mail.msg \e | ||
7957 | -signer mycert.pem -signer othercert.pem | ||
7958 | .Ed | ||
7959 | .Pp | ||
7960 | Send a signed message under | ||
7961 | .Ux | ||
7962 | directly to | ||
7963 | .Xr sendmail 8 , | ||
7964 | including headers: | ||
7965 | .Bd -literal -offset indent | ||
7966 | $ openssl smime -sign -in in.txt -text -signer mycert.pem \e | ||
7967 | -from steve@openssl.org -to someone@somewhere \e | ||
7968 | -subject "Signed message" | sendmail someone@somewhere | ||
7969 | .Ed | ||
7970 | .Pp | ||
7971 | Verify a message and extract the signer's certificate if successful: | ||
7972 | .Bd -literal -offset indent | ||
7973 | $ openssl smime -verify -in mail.msg -signer user.pem \e | ||
7974 | -out signedtext.txt | ||
7975 | .Ed | ||
7976 | .Pp | ||
7977 | Send encrypted mail using triple DES: | ||
7978 | .Bd -literal -offset indent | ||
7979 | $ openssl smime -encrypt -in in.txt -from steve@openssl.org \e | ||
7980 | -to someone@somewhere -subject "Encrypted message" \e | ||
7981 | -des3 -out mail.msg user.pem | ||
7982 | .Ed | ||
7983 | .Pp | ||
7984 | Sign and encrypt mail: | ||
7985 | .Bd -literal -offset indent | ||
7986 | $ openssl smime -sign -in ml.txt -signer my.pem -text | \e | ||
7987 | openssl smime -encrypt -out mail.msg \e | ||
7988 | -from steve@openssl.org -to someone@somewhere \e | ||
7989 | -subject "Signed and Encrypted message" -des3 user.pem | ||
7990 | .Ed | ||
7991 | .Pp | ||
7992 | .Sy Note : | ||
7993 | The encryption command does not include the | ||
7994 | .Fl text | ||
7995 | option because the message being encrypted already has | ||
7996 | .Em MIME | ||
7997 | headers. | ||
7998 | .Pp | ||
7999 | Decrypt mail: | ||
8000 | .Bd -literal -offset indent | ||
8001 | $ openssl smime -decrypt -in mail.msg -recip mycert.pem \e | ||
8002 | -inkey key.pem" | ||
8003 | .Ed | ||
8004 | .Pp | ||
8005 | The output from Netscape form signing is a PKCS#7 structure with the | ||
8006 | detached signature format. | ||
8007 | You can use this program to verify the signature by line wrapping the | ||
8008 | base64-encoded structure and surrounding it with: | ||
8009 | .Bd -unfilled -offset indent | ||
8010 | -----BEGIN PKCS7----- | ||
8011 | -----END PKCS7----- | ||
8012 | .Ed | ||
8013 | .Pp | ||
8014 | and using the command: | ||
8015 | .Bd -literal -offset indent | ||
8016 | $ openssl smime -verify -inform PEM -in signature.pem \e | ||
8017 | -content content.txt | ||
8018 | .Ed | ||
8019 | .Pp | ||
8020 | Alternatively, you can base64 decode the signature and use: | ||
8021 | .Bd -literal -offset indent | ||
8022 | $ openssl smime -verify -inform DER -in signature.der \e | ||
8023 | -content content.txt | ||
8024 | .Ed | ||
8025 | .Pp | ||
8026 | Create an encrypted message using 128-bit AES: | ||
8027 | .Bd -literal -offset indent | ||
8028 | openssl smime -encrypt -in plain.txt -aes128 \e | ||
8029 | -out mail.msg cert.pem | ||
8030 | .Ed | ||
8031 | .Pp | ||
8032 | Add a signer to an existing message: | ||
8033 | .Bd -literal -offset indent | ||
8034 | openssl smime -resign -in mail.msg -signer newsign.pem \e | ||
8035 | -out mail2.msg | ||
8036 | .Ed | ||
8037 | .Sh SMIME BUGS | ||
8038 | The | ||
8039 | .Em MIME | ||
8040 | parser isn't very clever: it seems to handle most messages that I've thrown | ||
8041 | at it, but it may choke on others. | ||
8042 | .Pp | ||
8043 | The code currently will only write out the signer's certificate to a file: | ||
8044 | if the signer has a separate encryption certificate this must be manually | ||
8045 | extracted. | ||
8046 | There should be some heuristic that determines the correct encryption | ||
8047 | certificate. | ||
8048 | .Pp | ||
8049 | Ideally, a database should be maintained of a certificate for each email | ||
8050 | address. | ||
8051 | .Pp | ||
8052 | The code doesn't currently take note of the permitted symmetric encryption | ||
8053 | algorithms as supplied in the | ||
8054 | .Em SMIMECapabilities | ||
8055 | signed attribute. | ||
8056 | This means the user has to manually include the correct encryption algorithm. | ||
8057 | It should store the list of permitted ciphers in a database and only use those. | ||
8058 | .Pp | ||
8059 | No revocation checking is done on the signer's certificate. | ||
8060 | .Pp | ||
8061 | The current code can only handle | ||
8062 | .Em S/MIME | ||
8063 | v2 messages; the more complex | ||
8064 | .Em S/MIME | ||
8065 | v3 structures may cause parsing errors. | ||
8066 | .Sh SMIME HISTORY | ||
8067 | The use of multiple | ||
8068 | .Fl signer | ||
8069 | options and the | ||
8070 | .Fl resign | ||
8071 | command were first added in | ||
8072 | .Nm OpenSSL | ||
8073 | 1.0.0. | ||
8074 | .\" | ||
8075 | .\" SPEED | ||
8076 | .\" | ||
8077 | .Sh SPEED | ||
8078 | .nr nS 1 | ||
8079 | .Nm "openssl speed" | ||
8080 | .Bk -words | ||
8081 | .Op Cm aes | ||
8082 | .Op Cm aes-128-cbc | ||
8083 | .Op Cm aes-192-cbc | ||
8084 | .Op Cm aes-256-cbc | ||
8085 | .Op Cm blowfish | ||
8086 | .Op Cm bf-cbc | ||
8087 | .Op Cm cast | ||
8088 | .Op Cm cast-cbc | ||
8089 | .Op Cm des | ||
8090 | .Op Cm des-cbc | ||
8091 | .Op Cm des-ede3 | ||
8092 | .Op Cm dsa | ||
8093 | .Op Cm dsa512 | ||
8094 | .Op Cm dsa1024 | ||
8095 | .Op Cm dsa2048 | ||
8096 | .Op Cm hmac | ||
8097 | .Op Cm md2 | ||
8098 | .Op Cm md4 | ||
8099 | .Op Cm md5 | ||
8100 | .Op Cm rc2 | ||
8101 | .Op Cm rc2-cbc | ||
8102 | .Op Cm rc4 | ||
8103 | .Op Cm rmd160 | ||
8104 | .Op Cm rsa | ||
8105 | .Op Cm rsa512 | ||
8106 | .Op Cm rsa1024 | ||
8107 | .Op Cm rsa2048 | ||
8108 | .Op Cm rsa4096 | ||
8109 | .Op Cm sha1 | ||
8110 | .Op Fl decrypt | ||
8111 | .Op Fl elapsed | ||
8112 | .Op Fl engine Ar id | ||
8113 | .Op Fl evp Ar e | ||
8114 | .Op Fl mr | ||
8115 | .Op Fl multi Ar number | ||
8116 | .Ek | ||
8117 | .nr nS 0 | ||
8118 | .Pp | ||
8119 | The | ||
8120 | .Nm speed | ||
8121 | command is used to test the performance of cryptographic algorithms. | ||
8122 | .Bl -tag -width "XXXX" | ||
8123 | .It Bq Cm zero or more test algorithms | ||
8124 | If any options are given, | ||
8125 | .Nm speed | ||
8126 | tests those algorithms, otherwise all of the above are tested. | ||
8127 | .It Fl decrypt | ||
8128 | Time decryption instead of encryption | ||
8129 | .Pq only EVP . | ||
8130 | .It Fl engine Ar id | ||
8131 | Specifying an engine (by its unique | ||
8132 | .Ar id | ||
8133 | string) will cause | ||
8134 | .Nm speed | ||
8135 | to attempt to obtain a functional reference to the specified engine, | ||
8136 | thus initialising it if needed. | ||
8137 | The engine will then be set as the default for all available algorithms. | ||
8138 | .It Fl elapsed | ||
8139 | Measure time in real time instead of CPU user time. | ||
8140 | .It Fl evp Ar e | ||
8141 | Use EVP | ||
8142 | .Ar e . | ||
8143 | .It Fl mr | ||
8144 | Produce machine readable output. | ||
8145 | .It Fl multi Ar number | ||
8146 | Run | ||
8147 | .Ar number | ||
8148 | benchmarks in parallel. | ||
8149 | .El | ||
8150 | .\" | ||
8151 | .\" TS | ||
8152 | .\" | ||
8153 | .Sh TS | ||
8154 | .nr nS 1 | ||
8155 | .Nm "openssl ts" | ||
8156 | .Bk -words | ||
8157 | .Fl query | ||
8158 | .Op Fl md4 | md5 | ripemd160 | sha | sha1 | ||
8159 | .Op Fl cert | ||
8160 | .Op Fl config Ar configfile | ||
8161 | .Op Fl data Ar file_to_hash | ||
8162 | .Op Fl digest Ar digest_bytes | ||
8163 | .Op Fl in Ar request.tsq | ||
8164 | .Op Fl no_nonce | ||
8165 | .Op Fl out Ar request.tsq | ||
8166 | .Op Fl policy Ar object_id | ||
8167 | .Op Fl text | ||
8168 | .Ek | ||
8169 | .nr nS 0 | ||
8170 | .Pp | ||
8171 | .nr nS 1 | ||
8172 | .Nm "openssl ts" | ||
8173 | .Bk -words | ||
8174 | .Fl reply | ||
8175 | .Op Fl chain Ar certs_file.pem | ||
8176 | .Op Fl config Ar configfile | ||
8177 | .Op Fl engine Ar id | ||
8178 | .Op Fl in Ar response.tsr | ||
8179 | .Op Fl inkey Ar private.pem | ||
8180 | .Op Fl out Ar response.tsr | ||
8181 | .Op Fl passin Ar arg | ||
8182 | .Op Fl policy Ar object_id | ||
8183 | .Op Fl queryfile Ar request.tsq | ||
8184 | .Op Fl section Ar tsa_section | ||
8185 | .Op Fl signer Ar tsa_cert.pem | ||
8186 | .Op Fl text | ||
8187 | .Op Fl token_in | ||
8188 | .Op Fl token_out | ||
8189 | .Ek | ||
8190 | .nr nS 0 | ||
8191 | .Pp | ||
8192 | .nr nS 1 | ||
8193 | .Nm "openssl ts" | ||
8194 | .Bk -words | ||
8195 | .Fl verify | ||
8196 | .Op Fl CAfile Ar trusted_certs.pem | ||
8197 | .Op Fl CApath Ar trusted_cert_path | ||
8198 | .Op Fl data Ar file_to_hash | ||
8199 | .Op Fl digest Ar digest_bytes | ||
8200 | .Op Fl in Ar response.tsr | ||
8201 | .Op Fl queryfile Ar request.tsq | ||
8202 | .Op Fl token_in | ||
8203 | .Op Fl untrusted Ar cert_file.pem | ||
8204 | .Ek | ||
8205 | .nr nS 0 | ||
8206 | .Pp | ||
8207 | The | ||
8208 | .Nm ts | ||
8209 | command is a basic Time Stamping Authority (TSA) client and server | ||
8210 | application as specified in RFC 3161 (Time-Stamp Protocol, TSP). | ||
8211 | A TSA can be part of a PKI deployment and its role is to provide long | ||
8212 | term proof of the existence of a certain datum before a particular time. | ||
8213 | Here is a brief description of the protocol: | ||
8214 | .Bl -enum | ||
8215 | .It | ||
8216 | The TSA client computes a one-way hash value for a data file and sends | ||
8217 | the hash to the TSA. | ||
8218 | .It | ||
8219 | The TSA attaches the current date and time to the received hash value, | ||
8220 | signs them and sends the time stamp token back to the client. | ||
8221 | By creating this token the TSA certifies the existence of the original | ||
8222 | data file at the time of response generation. | ||
8223 | .It | ||
8224 | The TSA client receives the time stamp token and verifies the | ||
8225 | signature on it. | ||
8226 | It also checks if the token contains the same hash | ||
8227 | value that it had sent to the TSA. | ||
8228 | .El | ||
8229 | .Pp | ||
8230 | There is one DER-encoded protocol data unit defined for transporting a time | ||
8231 | stamp request to the TSA and one for sending the time stamp response | ||
8232 | back to the client. | ||
8233 | The | ||
8234 | .Nm ts | ||
8235 | command has three main functions: | ||
8236 | creating a time stamp request based on a data file; | ||
8237 | creating a time stamp response based on a request; | ||
8238 | and verifying if a response corresponds | ||
8239 | to a particular request or a data file. | ||
8240 | .Pp | ||
8241 | There is no support for sending the requests/responses automatically | ||
8242 | over HTTP or TCP yet as suggested in RFC 3161. | ||
8243 | Users must send the requests either by FTP or email. | ||
8244 | .Pp | ||
8245 | The | ||
8246 | .Fl query | ||
8247 | switch can be used for creating and printing a time stamp | ||
8248 | request with the following options: | ||
8249 | .Bl -tag -width Ds | ||
8250 | .It Fl cert | ||
8251 | The TSA is expected to include its signing certificate in the | ||
8252 | response. | ||
8253 | .It Fl config Ar configfile | ||
8254 | The configuration file to use. | ||
8255 | This option overrides the | ||
8256 | .Ev OPENSSL_CONF | ||
8257 | environment variable. | ||
8258 | Only the OID section of the config file is used with the | ||
8259 | .Fl query | ||
8260 | command. | ||
8261 | .It Fl data Ar file_to_hash | ||
8262 | The data file for which the time stamp request needs to be created. | ||
8263 | stdin is the default if neither the | ||
8264 | .Fl data | ||
8265 | nor the | ||
8266 | .Fl digest | ||
8267 | option is specified. | ||
8268 | .It Fl digest Ar digest_bytes | ||
8269 | It is possible to specify the message imprint explicitly without the data | ||
8270 | file. | ||
8271 | The imprint must be specified in a hexadecimal format, | ||
8272 | two characters per byte, | ||
8273 | the bytes optionally separated by colons (e.g. 1A:F6:01:... or 1AF601...). | ||
8274 | The number of bytes must match the message digest algorithm in use. | ||
8275 | .It Fl in Ar request.tsq | ||
8276 | This option specifies a previously created time stamp request in DER | ||
8277 | format that will be printed into the output file. | ||
8278 | Useful when you need to examine the content of a request in human-readable | ||
8279 | format. | ||
8280 | .It Fl md4|md5|ripemd160|sha|sha1 | ||
8281 | The message digest to apply to the data file. | ||
8282 | It supports all the message digest algorithms that are supported by the | ||
8283 | .Nm dgst | ||
8284 | command. | ||
8285 | The default is SHA-1. | ||
8286 | .It Fl no_nonce | ||
8287 | No nonce is specified in the request if this option is given. | ||
8288 | Otherwise a 64-bit long pseudo-random none is | ||
8289 | included in the request. | ||
8290 | It is recommended to use nonce to protect against replay-attacks. | ||
8291 | .It Fl out Ar request.tsq | ||
8292 | Name of the output file to which the request will be written. | ||
8293 | The default is stdout. | ||
8294 | .It Fl policy Ar object_id | ||
8295 | The policy that the client expects the TSA to use for creating the | ||
8296 | time stamp token. | ||
8297 | Either the dotted OID notation or OID names defined | ||
8298 | in the config file can be used. | ||
8299 | If no policy is requested the TSA will | ||
8300 | use its own default policy. | ||
8301 | .It Fl text | ||
8302 | If this option is specified the output is in human-readable text format | ||
8303 | instead of DER. | ||
8304 | .El | ||
8305 | .Pp | ||
8306 | A time stamp response (TimeStampResp) consists of a response status | ||
8307 | and the time stamp token itself (ContentInfo), | ||
8308 | if the token generation was successful. | ||
8309 | The | ||
8310 | .Fl reply | ||
8311 | command is for creating a time stamp | ||
8312 | response or time stamp token based on a request and printing the | ||
8313 | response/token in human-readable format. | ||
8314 | If | ||
8315 | .Fl token_out | ||
8316 | is not specified the output is always a time stamp response (TimeStampResp), | ||
8317 | otherwise it is a time stamp token (ContentInfo). | ||
8318 | .Bl -tag -width Ds | ||
8319 | .It Fl chain Ar certs_file.pem | ||
8320 | The collection of certificates, in PEM format, | ||
8321 | that will be included in the response | ||
8322 | in addition to the signer certificate if the | ||
8323 | .Fl cert | ||
8324 | option was used for the request. | ||
8325 | This file is supposed to contain the certificate chain | ||
8326 | for the signer certificate from its issuer upwards. | ||
8327 | The | ||
8328 | .Fl reply | ||
8329 | command does not build a certificate chain automatically. | ||
8330 | .It Fl config Ar configfile | ||
8331 | The configuration file to use. | ||
8332 | This option overrides the | ||
8333 | .Ev OPENSSL_CONF | ||
8334 | environment variable. | ||
8335 | See | ||
8336 | .Sx TS CONFIGURATION FILE OPTIONS | ||
8337 | for configurable variables. | ||
8338 | .It Fl engine Ar id | ||
8339 | Specifying an engine (by its unique | ||
8340 | .Ar id | ||
8341 | string) will cause | ||
8342 | .Nm ts | ||
8343 | to attempt to obtain a functional reference to the specified engine, | ||
8344 | thus initialising it if needed. | ||
8345 | The engine will then be set as the default for all available algorithms. | ||
8346 | .It Fl in Ar response.tsr | ||
8347 | Specifies a previously created time stamp response or time stamp token, if | ||
8348 | .Fl token_in | ||
8349 | is also specified, | ||
8350 | in DER format that will be written to the output file. | ||
8351 | This option does not require a request; | ||
8352 | it is useful, for example, | ||
8353 | when you need to examine the content of a response or token | ||
8354 | or you want to extract the time stamp token from a response. | ||
8355 | If the input is a token and the output is a time stamp response a default | ||
8356 | .Dq granted | ||
8357 | status info is added to the token. | ||
8358 | .It Fl inkey Ar private.pem | ||
8359 | The signer private key of the TSA in PEM format. | ||
8360 | Overrides the | ||
8361 | .Cm signer_key | ||
8362 | config file option. | ||
8363 | .It Fl out Ar response.tsr | ||
8364 | The response is written to this file. | ||
8365 | The format and content of the file depends on other options (see | ||
8366 | .Fl text | ||
8367 | and | ||
8368 | .Fl token_out ) . | ||
8369 | The default is stdout. | ||
8370 | .It Fl passin Ar arg | ||
8371 | The key password source. | ||
8372 | For more information about the format of | ||
8373 | .Ar arg , | ||
8374 | see the | ||
8375 | .Sx PASS PHRASE ARGUMENTS | ||
8376 | section above. | ||
8377 | .It Fl policy Ar object_id | ||
8378 | The default policy to use for the response unless the client | ||
8379 | explicitly requires a particular TSA policy. | ||
8380 | The OID can be specified either in dotted notation or with its name. | ||
8381 | Overrides the | ||
8382 | .Cm default_policy | ||
8383 | config file option. | ||
8384 | .It Fl queryfile Ar request.tsq | ||
8385 | The name of the file containing a DER-encoded time stamp request. | ||
8386 | .It Fl section Ar tsa_section | ||
8387 | The name of the config file section containing the settings for the | ||
8388 | response generation. | ||
8389 | If not specified the default TSA section is used; see | ||
8390 | .Sx TS CONFIGURATION FILE OPTIONS | ||
8391 | for details. | ||
8392 | .It Fl signer Ar tsa_cert.pem | ||
8393 | The signer certificate of the TSA in PEM format. | ||
8394 | The TSA signing certificate must have exactly one extended key usage | ||
8395 | assigned to it: timeStamping. | ||
8396 | The extended key usage must also be critical, | ||
8397 | otherwise the certificate is going to be refused. | ||
8398 | Overrides the | ||
8399 | .Cm signer_cert | ||
8400 | variable of the config file. | ||
8401 | .It Fl text | ||
8402 | If this option is specified the output is human-readable text format | ||
8403 | instead of DER. | ||
8404 | .It Fl token_in | ||
8405 | This flag can be used together with the | ||
8406 | .Fl in | ||
8407 | option and indicates that the input is a DER-encoded time stamp token | ||
8408 | (ContentInfo) instead of a time stamp response (TimeStampResp). | ||
8409 | .It Fl token_out | ||
8410 | The output is a time stamp token (ContentInfo) instead of time stamp | ||
8411 | response (TimeStampResp). | ||
8412 | .El | ||
8413 | .Pp | ||
8414 | The | ||
8415 | .Fl verify | ||
8416 | command is for verifying if a time stamp response or time stamp token | ||
8417 | is valid and matches a particular time stamp request or data file. | ||
8418 | The | ||
8419 | .Fl verify | ||
8420 | command does not use the configuration file. | ||
8421 | .Bl -tag -width Ds | ||
8422 | .It Fl CAfile Ar trusted_certs.pem | ||
8423 | The name of the file containing a set of trusted self-signed CA | ||
8424 | certificates in PEM format. | ||
8425 | See the similar option of | ||
8426 | .Nm verify | ||
8427 | for additional details. | ||
8428 | Either this option or | ||
8429 | .Fl CApath | ||
8430 | must be specified. | ||
8431 | .It Fl CApath Ar trusted_cert_path | ||
8432 | The name of the directory containing the trused CA certificates of the | ||
8433 | client. | ||
8434 | See the similar option of | ||
8435 | .Nm verify | ||
8436 | for additional details. | ||
8437 | Either this option or | ||
8438 | .Fl CAfile | ||
8439 | must be specified. | ||
8440 | .It Fl data Ar file_to_hash | ||
8441 | The response or token must be verified against | ||
8442 | .Ar file_to_hash . | ||
8443 | The file is hashed with the message digest algorithm specified in the token. | ||
8444 | The | ||
8445 | .Fl digest | ||
8446 | and | ||
8447 | .Fl queryfile | ||
8448 | options must not be specified with this one. | ||
8449 | .It Fl digest Ar digest_bytes | ||
8450 | The response or token must be verified against the message digest specified | ||
8451 | with this option. | ||
8452 | The number of bytes must match the message digest algorithm | ||
8453 | specified in the token. | ||
8454 | The | ||
8455 | .Fl data | ||
8456 | and | ||
8457 | .Fl queryfile | ||
8458 | options must not be specified with this one. | ||
8459 | .It Fl in Ar response.tsr | ||
8460 | The time stamp response that needs to be verified, in DER format. | ||
8461 | This option in mandatory. | ||
8462 | .It Fl queryfile Ar request.tsq | ||
8463 | The original time stamp request, in DER format. | ||
8464 | The | ||
8465 | .Fl data | ||
8466 | and | ||
8467 | .Fl digest | ||
8468 | options must not be specified with this one. | ||
8469 | .It Fl token_in | ||
8470 | This flag can be used together with the | ||
8471 | .Fl in | ||
8472 | option and indicates that the input is a DER-encoded time stamp token | ||
8473 | (ContentInfo) instead of a time stamp response (TimeStampResp). | ||
8474 | .It Fl untrusted Ar cert_file.pem | ||
8475 | Set of additional untrusted certificates in PEM format which may be | ||
8476 | needed when building the certificate chain for the TSA's signing | ||
8477 | certificate. | ||
8478 | This file must contain the TSA signing certificate and | ||
8479 | all intermediate CA certificates unless the response includes them. | ||
8480 | .El | ||
8481 | .Sh TS CONFIGURATION FILE OPTIONS | ||
8482 | The | ||
8483 | .Fl query | ||
8484 | and | ||
8485 | .Fl reply | ||
8486 | options make use of a configuration file defined by the | ||
8487 | .Ev OPENSSL_CONF | ||
8488 | environment variable. | ||
8489 | The | ||
8490 | .Fl query | ||
8491 | option uses only the symbolic OID names section | ||
8492 | and it can work without it. | ||
8493 | However, the | ||
8494 | .Fl reply | ||
8495 | option needs the config file for its operation. | ||
8496 | .Pp | ||
8497 | When there is a command line switch equivalent of a variable the | ||
8498 | switch always overrides the settings in the config file. | ||
8499 | .Bl -tag -width Ds | ||
8500 | .It Cm tsa Ar section , Cm default_tsa | ||
8501 | This is the main section and it specifies the name of another section | ||
8502 | that contains all the options for the | ||
8503 | .Fl reply | ||
8504 | option. | ||
8505 | This default section can be overridden with the | ||
8506 | .Fl section | ||
8507 | command line switch. | ||
8508 | .It Cm oid_file | ||
8509 | See | ||
8510 | .Nm ca | ||
8511 | for a description. | ||
8512 | .It Cm oid_section | ||
8513 | See | ||
8514 | .Nm ca | ||
8515 | for a description. | ||
8516 | .It Cm serial | ||
8517 | The name of the file containing the hexadecimal serial number of the | ||
8518 | last time stamp response created. | ||
8519 | This number is incremented by 1 for each response. | ||
8520 | If the file does not exist at the time of response | ||
8521 | generation a new file is created with serial number 1. | ||
8522 | This parameter is mandatory. | ||
8523 | .It Cm crypto_device | ||
8524 | Specifies the | ||
8525 | .Nm OpenSSL | ||
8526 | engine that will be set as the default for | ||
8527 | all available algorithms. | ||
8528 | .It Cm signer_cert | ||
8529 | TSA signing certificate, in PEM format. | ||
8530 | The same as the | ||
8531 | .Fl signer | ||
8532 | command line option. | ||
8533 | .It Cm certs | ||
8534 | A file containing a set of PEM-encoded certificates that need to be | ||
8535 | included in the response. | ||
8536 | The same as the | ||
8537 | .Fl chain | ||
8538 | command line option. | ||
8539 | .It Cm signer_key | ||
8540 | The private key of the TSA, in PEM format. | ||
8541 | The same as the | ||
8542 | .Fl inkey | ||
8543 | command line option. | ||
8544 | .It Cm default_policy | ||
8545 | The default policy to use when the request does not mandate any policy. | ||
8546 | The same as the | ||
8547 | .Fl policy | ||
8548 | command line option. | ||
8549 | .It Cm other_policies | ||
8550 | Comma separated list of policies that are also acceptable by the TSA | ||
8551 | and used only if the request explicitly specifies one of them. | ||
8552 | .It Cm digests | ||
8553 | The list of message digest algorithms that the TSA accepts. | ||
8554 | At least one algorithm must be specified. | ||
8555 | This parameter is mandatory. | ||
8556 | .It Cm accuracy | ||
8557 | The accuracy of the time source of the TSA in seconds, milliseconds | ||
8558 | and microseconds. | ||
8559 | For example, secs:1, millisecs:500, microsecs:100. | ||
8560 | If any of the components is missing, | ||
8561 | zero is assumed for that field. | ||
8562 | .It Cm clock_precision_digits | ||
8563 | Specifies the maximum number of digits, which represent the fraction of | ||
8564 | seconds, that need to be included in the time field. | ||
8565 | The trailing zeroes must be removed from the time, | ||
8566 | so there might actually be fewer digits, | ||
8567 | or no fraction of seconds at all. | ||
8568 | The maximum value is 6; | ||
8569 | the default is 0. | ||
8570 | .It Cm ordering | ||
8571 | If this option is yes, | ||
8572 | the responses generated by this TSA can always be ordered, | ||
8573 | even if the time difference between two responses is less | ||
8574 | than the sum of their accuracies. | ||
8575 | The default is no. | ||
8576 | .It Cm tsa_name | ||
8577 | Set this option to yes if the subject name of the TSA must be included in | ||
8578 | the TSA name field of the response. | ||
8579 | The default is no. | ||
8580 | .It Cm ess_cert_id_chain | ||
8581 | The SignedData objects created by the TSA always contain the | ||
8582 | certificate identifier of the signing certificate in a signed | ||
8583 | attribute (see RFC 2634, Enhanced Security Services). | ||
8584 | If this option is set to yes and either the | ||
8585 | .Cm certs | ||
8586 | variable or the | ||
8587 | .Fl chain | ||
8588 | option is specified then the certificate identifiers of the chain will also | ||
8589 | be included in the SigningCertificate signed attribute. | ||
8590 | If this variable is set to no, | ||
8591 | only the signing certificate identifier is included. | ||
8592 | The default is no. | ||
8593 | .El | ||
8594 | .Sh TS ENVIRONMENT VARIABLES | ||
8595 | .Ev OPENSSL_CONF | ||
8596 | contains the path of the configuration file and can be | ||
8597 | overridden by the | ||
8598 | .Fl config | ||
8599 | command line option. | ||
8600 | .Sh TS EXAMPLES | ||
8601 | All the examples below presume that | ||
8602 | .Ev OPENSSL_CONF | ||
8603 | is set to a proper configuration file, | ||
8604 | e.g. the example configuration file | ||
8605 | .Pa openssl/apps/openssl.cnf | ||
8606 | will do. | ||
8607 | .Pp | ||
8608 | To create a time stamp request for design1.txt with SHA-1 | ||
8609 | without nonce and policy and no certificate is required in the response: | ||
8610 | .Bd -literal -offset indent | ||
8611 | $ openssl ts -query -data design1.txt -no_nonce \e | ||
8612 | -out design1.tsq | ||
8613 | .Ed | ||
8614 | .Pp | ||
8615 | To create a similar time stamp request but specifying the message imprint | ||
8616 | explicitly: | ||
8617 | .Bd -literal -offset indent | ||
8618 | $ openssl ts -query \e | ||
8619 | -digest b7e5d3f93198b38379852f2c04e78d73abdd0f4b \e | ||
8620 | -no_nonce -out design1.tsq | ||
8621 | .Ed | ||
8622 | .Pp | ||
8623 | To print the content of the previous request in human readable format: | ||
8624 | .Bd -literal -offset indent | ||
8625 | $ openssl ts -query -in design1.tsq -text | ||
8626 | .Ed | ||
8627 | .Pp | ||
8628 | To create a time stamp request which includes the MD5 digest | ||
8629 | of design2.txt, requests the signer certificate and nonce, | ||
8630 | specifies a policy ID | ||
8631 | (assuming the tsa_policy1 name is defined in the | ||
8632 | OID section of the config file): | ||
8633 | .Bd -literal -offset indent | ||
8634 | $ openssl ts -query -data design2.txt -md5 \e | ||
8635 | -policy tsa_policy1 -cert -out design2.tsq | ||
8636 | .Ed | ||
8637 | .Pp | ||
8638 | Before generating a response, | ||
8639 | a signing certificate must be created for the TSA that contains the | ||
8640 | .Cm timeStamping | ||
8641 | critical extended key usage extension | ||
8642 | without any other key usage extensions. | ||
8643 | You can add the | ||
8644 | .Dq extendedKeyUsage = critical,timeStamping | ||
8645 | line to the user certificate section | ||
8646 | of the config file to generate a proper certificate. | ||
8647 | See the | ||
8648 | .Nm req , | ||
8649 | .Nm ca , | ||
8650 | and | ||
8651 | .Nm x509 | ||
8652 | commands for instructions. | ||
8653 | The examples below assume that cacert.pem contains the certificate of the CA, | ||
8654 | tsacert.pem is the signing certificate issued by cacert.pem and | ||
8655 | tsakey.pem is the private key of the TSA. | ||
8656 | .Pp | ||
8657 | To create a time stamp response for a request: | ||
8658 | .Bd -literal -offset indent | ||
8659 | $ openssl ts -reply -queryfile design1.tsq -inkey tsakey.pem \e | ||
8660 | -signer tsacert.pem -out design1.tsr | ||
8661 | .Ed | ||
8662 | .Pp | ||
8663 | If you want to use the settings in the config file you could just write: | ||
8664 | .Bd -literal -offset indent | ||
8665 | $ openssl ts -reply -queryfile design1.tsq -out design1.tsr | ||
8666 | .Ed | ||
8667 | .Pp | ||
8668 | To print a time stamp reply to stdout in human readable format: | ||
8669 | .Bd -literal -offset indent | ||
8670 | $ openssl ts -reply -in design1.tsr -text | ||
8671 | .Ed | ||
8672 | .Pp | ||
8673 | To create a time stamp token instead of time stamp response: | ||
8674 | .Bd -literal -offset indent | ||
8675 | $ openssl ts -reply -queryfile design1.tsq \e | ||
8676 | -out design1_token.der -token_out | ||
8677 | .Ed | ||
8678 | .Pp | ||
8679 | To print a time stamp token to stdout in human readable format: | ||
8680 | .Bd -literal -offset indent | ||
8681 | $ openssl ts -reply -in design1_token.der -token_in \e | ||
8682 | -text -token_out | ||
8683 | .Ed | ||
8684 | .Pp | ||
8685 | To extract the time stamp token from a response: | ||
8686 | .Bd -literal -offset indent | ||
8687 | $ openssl ts -reply -in design1.tsr -out design1_token.der \e | ||
8688 | -token_out | ||
8689 | .Ed | ||
8690 | .Pp | ||
8691 | To add | ||
8692 | .Dq granted | ||
8693 | status info to a time stamp token thereby creating a valid response: | ||
8694 | .Bd -literal -offset indent | ||
8695 | $ openssl ts -reply -in design1_token.der \e | ||
8696 | -token_in -out design1.tsr | ||
8697 | .Ed | ||
8698 | .Pp | ||
8699 | To verify a time stamp reply against a request: | ||
8700 | .Bd -literal -offset indent | ||
8701 | $ openssl ts -verify -queryfile design1.tsq -in design1.tsr \e | ||
8702 | -CAfile cacert.pem -untrusted tsacert.pem | ||
8703 | .Ed | ||
8704 | .Pp | ||
8705 | To verify a time stamp reply that includes the certificate chain: | ||
8706 | .Bd -literal -offset indent | ||
8707 | $ openssl ts -verify -queryfile design2.tsq -in design2.tsr \e | ||
8708 | -CAfile cacert.pem | ||
8709 | .Ed | ||
8710 | .Pp | ||
8711 | To verify a time stamp token against the original data file: | ||
8712 | .Bd -literal -offset indent | ||
8713 | $ openssl ts -verify -data design2.txt -in design2.tsr \e | ||
8714 | -CAfile cacert.pem | ||
8715 | .Ed | ||
8716 | .Pp | ||
8717 | To verify a time stamp token against a message imprint: | ||
8718 | .Bd -literal -offset indent | ||
8719 | $ openssl ts -verify \e | ||
8720 | -digest b7e5d3f93198b38379852f2c04e78d73abdd0f4b \e | ||
8721 | -in design2.tsr -CAfile cacert.pem | ||
8722 | .Ed | ||
8723 | .Sh TS BUGS | ||
8724 | No support for time stamps over SMTP, though it is quite easy | ||
8725 | to implement an automatic email-based TSA with | ||
8726 | .Xr procmail | ||
8727 | and | ||
8728 | .Xr perl 1 . | ||
8729 | Pure TCP/IP is not supported. | ||
8730 | .Pp | ||
8731 | The file containing the last serial number of the TSA is not | ||
8732 | locked when being read or written. | ||
8733 | This is a problem if more than one instance of | ||
8734 | .Nm OpenSSL | ||
8735 | is trying to create a time stamp | ||
8736 | response at the same time. | ||
8737 | .Pp | ||
8738 | Look for the FIXME word in the source files. | ||
8739 | .Pp | ||
8740 | The source code should really be reviewed by somebody else, too. | ||
8741 | .Pp | ||
8742 | More testing is needed. | ||
8743 | .Sh TS AUTHORS | ||
8744 | .An Zoltan Glozik Aq Mt zglozik@opentsa.org , | ||
8745 | OpenTSA project | ||
8746 | .Pq Lk http://www.opentsa.org . | ||
8747 | .\" | ||
8748 | .\" SPKAC | ||
8749 | .\" | ||
8750 | .Sh SPKAC | ||
8751 | .nr nS 1 | ||
8752 | .Nm "openssl spkac" | ||
8753 | .Bk -words | ||
8754 | .Op Fl challenge Ar string | ||
8755 | .Op Fl engine Ar id | ||
8756 | .Op Fl in Ar file | ||
8757 | .Op Fl key Ar keyfile | ||
8758 | .Op Fl noout | ||
8759 | .Op Fl out Ar file | ||
8760 | .Op Fl passin Ar arg | ||
8761 | .Op Fl pubkey | ||
8762 | .Op Fl spkac Ar spkacname | ||
8763 | .Op Fl spksect Ar section | ||
8764 | .Op Fl verify | ||
8765 | .Ek | ||
8766 | .nr nS 0 | ||
8767 | .Pp | ||
8768 | The | ||
8769 | .Nm spkac | ||
8770 | command processes Netscape signed public key and challenge | ||
8771 | .Pq SPKAC | ||
8772 | files. | ||
8773 | It can print out their contents, verify the signature, | ||
8774 | and produce its own SPKACs from a supplied private key. | ||
8775 | .Pp | ||
8776 | The options are as follows: | ||
8777 | .Bl -tag -width Ds | ||
8778 | .It Fl challenge Ar string | ||
8779 | Specifies the challenge string if an SPKAC is being created. | ||
8780 | .It Fl engine Ar id | ||
8781 | Specifying an engine (by its unique | ||
8782 | .Ar id | ||
8783 | string) will cause | ||
8784 | .Nm spkac | ||
8785 | to attempt to obtain a functional reference to the specified engine, | ||
8786 | thus initialising it if needed. | ||
8787 | The engine will then be set as the default for all available algorithms. | ||
8788 | .It Fl in Ar file | ||
8789 | This specifies the input | ||
8790 | .Ar file | ||
8791 | to read from, or standard input if this option is not specified. | ||
8792 | Ignored if the | ||
8793 | .Fl key | ||
8794 | option is used. | ||
8795 | .It Fl key Ar keyfile | ||
8796 | Create an SPKAC file using the private key in | ||
8797 | .Ar keyfile . | ||
8798 | The | ||
8799 | .Fl in , noout , spksect , | ||
8800 | and | ||
8801 | .Fl verify | ||
8802 | options are ignored if present. | ||
8803 | .It Fl noout | ||
8804 | Don't output the text version of the SPKAC | ||
8805 | .Pq not used if an SPKAC is being created . | ||
8806 | .It Fl out Ar file | ||
8807 | Specifies the output | ||
8808 | .Ar file | ||
8809 | to write to, or standard output by default. | ||
8810 | .It Fl passin Ar arg | ||
8811 | The key password source. | ||
8812 | For more information about the format of | ||
8813 | .Ar arg , | ||
8814 | see the | ||
8815 | .Sx PASS PHRASE ARGUMENTS | ||
8816 | section above. | ||
8817 | .It Fl pubkey | ||
8818 | Output the public key of an SPKAC | ||
8819 | .Pq not used if an SPKAC is being created . | ||
8820 | .It Fl spkac Ar spkacname | ||
8821 | Allows an alternative name for the variable containing the SPKAC. | ||
8822 | The default is "SPKAC". | ||
8823 | This option affects both generated and input SPKAC files. | ||
8824 | .It Fl spksect Ar section | ||
8825 | Allows an alternative name for the | ||
8826 | .Ar section | ||
8827 | containing the SPKAC. | ||
8828 | The default is the default section. | ||
8829 | .It Fl verify | ||
8830 | Verifies the digital signature on the supplied SPKAC. | ||
8831 | .El | ||
8832 | .Sh SPKAC EXAMPLES | ||
8833 | Print out the contents of an SPKAC: | ||
8834 | .Pp | ||
8835 | .Dl $ openssl spkac -in spkac.cnf | ||
8836 | .Pp | ||
8837 | Verify the signature of an SPKAC: | ||
8838 | .Pp | ||
8839 | .Dl $ openssl spkac -in spkac.cnf -noout -verify | ||
8840 | .Pp | ||
8841 | Create an SPKAC using the challenge string | ||
8842 | .Qq hello : | ||
8843 | .Pp | ||
8844 | .Dl $ openssl spkac -key key.pem -challenge hello -out spkac.cnf | ||
8845 | .Pp | ||
8846 | Example of an SPKAC, | ||
8847 | .Pq long lines split up for clarity : | ||
8848 | .Bd -unfilled -offset indent | ||
8849 | SPKAC=MIG5MGUwXDANBgkqhkiG9w0BAQEFAANLADBIAkEA1cCoq2Wa3Ixs47uI7F\e | ||
8850 | PVwHVIPDx5yso105Y6zpozam135a8R0CpoRvkkigIyXfcCjiVi5oWk+6FfPaD03u\e | ||
8851 | PFoQIDAQABFgVoZWxsbzANBgkqhkiG9w0BAQQFAANBAFpQtY/FojdwkJh1bEIYuc\e | ||
8852 | 2EeM2KHTWPEepWYeawvHD0gQ3DngSC75YCWnnDdq+NQ3F+X4deMx9AaEglZtULwV\e | ||
8853 | 4= | ||
8854 | .Ed | ||
8855 | .Sh SPKAC NOTES | ||
8856 | A created SPKAC with suitable DN components appended can be fed into | ||
8857 | the | ||
8858 | .Nm ca | ||
8859 | utility. | ||
8860 | .Pp | ||
8861 | SPKACs are typically generated by Netscape when a form is submitted | ||
8862 | containing the | ||
8863 | .Em KEYGEN | ||
8864 | tag as part of the certificate enrollment process. | ||
8865 | .Pp | ||
8866 | The challenge string permits a primitive form of proof of possession | ||
8867 | of private key. | ||
8868 | By checking the SPKAC signature and a random challenge | ||
8869 | string, some guarantee is given that the user knows the private key | ||
8870 | corresponding to the public key being certified. | ||
8871 | This is important in some applications. | ||
8872 | Without this it is possible for a previous SPKAC | ||
8873 | to be used in a | ||
8874 | .Qq replay attack . | ||
8875 | .\" | ||
8876 | .\" VERIFY | ||
8877 | .\" | ||
8878 | .Sh VERIFY | ||
8879 | .nr nS 1 | ||
8880 | .Nm "openssl verify" | ||
8881 | .Bk -words | ||
8882 | .Op Fl CAfile Ar file | ||
8883 | .Op Fl CApath Ar directory | ||
8884 | .Op Fl check_ss_sig | ||
8885 | .Op Fl crl_check | ||
8886 | .Op Fl crl_check_all | ||
8887 | .Op Fl engine Ar id | ||
8888 | .Op Fl explicit_policy | ||
8889 | .Op Fl extended_crl | ||
8890 | .Op Fl help | ||
8891 | .Op Fl ignore_critical | ||
8892 | .Op Fl inhibit_any | ||
8893 | .Op Fl inhibit_map | ||
8894 | .Op Fl issuer_checks | ||
8895 | .Op Fl policy_check | ||
8896 | .Op Fl purpose Ar purpose | ||
8897 | .Op Fl untrusted Ar file | ||
8898 | .Op Fl verbose | ||
8899 | .Op Fl x509_strict | ||
8900 | .Op Fl | ||
8901 | .Op Ar certificates | ||
8902 | .Ek | ||
8903 | .nr nS 0 | ||
8904 | .Pp | ||
8905 | The | ||
8906 | .Nm verify | ||
8907 | command verifies certificate chains. | ||
8908 | .Pp | ||
8909 | The options are as follows: | ||
8910 | .Bl -tag -width Ds | ||
8911 | .It Fl check_ss_sig | ||
8912 | Verify the signature on the self-signed root CA. | ||
8913 | This is disabled by default | ||
8914 | because it doesn't add any security. | ||
8915 | .It Fl CAfile Ar file | ||
8916 | A | ||
8917 | .Ar file | ||
8918 | of trusted certificates. | ||
8919 | The | ||
8920 | .Ar file | ||
8921 | should contain multiple certificates in PEM format, concatenated together. | ||
8922 | .It Fl CApath Ar directory | ||
8923 | A | ||
8924 | .Ar directory | ||
8925 | of trusted certificates. | ||
8926 | The certificates should have names of the form | ||
8927 | .Em hash.0 , | ||
8928 | or have symbolic links to them of this form | ||
8929 | ("hash" is the hashed certificate subject name: see the | ||
8930 | .Fl hash | ||
8931 | option of the | ||
8932 | .Nm x509 | ||
8933 | utility). | ||
8934 | The | ||
8935 | .Nm c_rehash | ||
8936 | script distributed with OpenSSL | ||
8937 | will automatically create symbolic links to a directory of certificates. | ||
8938 | .It Fl crl_check | ||
8939 | Checks end entity certificate validity by attempting to look up a valid CRL. | ||
8940 | If a valid CRL cannot be found an error occurs. | ||
8941 | .It Fl crl_check_all | ||
8942 | Checks the validity of all certificates in the chain by attempting | ||
8943 | to look up valid CRLs. | ||
8944 | .It Fl engine Ar id | ||
8945 | Specifying an engine (by its unique | ||
8946 | .Ar id | ||
8947 | string) will cause | ||
8948 | .Nm verify | ||
8949 | to attempt to obtain a functional reference to the specified engine, | ||
8950 | thus initialising it if needed. | ||
8951 | The engine will then be set as the default for all available algorithms. | ||
8952 | .It Fl explicit_policy | ||
8953 | Set policy variable require-explicit-policy (see RFC 3280 et al). | ||
8954 | .It Fl extended_crl | ||
8955 | Enable extended CRL features such as indirect CRLs and alternate CRL | ||
8956 | signing keys. | ||
8957 | .It Fl help | ||
8958 | Prints out a usage message. | ||
8959 | .It Fl ignore_critical | ||
8960 | Normally if an unhandled critical extension is present which is not | ||
8961 | supported by | ||
8962 | .Nm OpenSSL , | ||
8963 | the certificate is rejected (as required by RFC 3280 et al). | ||
8964 | If this option is set, critical extensions are ignored. | ||
8965 | .It Fl inhibit_any | ||
8966 | Set policy variable inhibit-any-policy (see RFC 3280 et al). | ||
8967 | .It Fl inhibit_map | ||
8968 | Set policy variable inhibit-policy-mapping (see RFC 3280 et al). | ||
8969 | .It Fl issuer_checks | ||
8970 | Print out diagnostics relating to searches for the issuer certificate | ||
8971 | of the current certificate. | ||
8972 | This shows why each candidate issuer certificate was rejected. | ||
8973 | However the presence of rejection messages | ||
8974 | does not itself imply that anything is wrong: during the normal | ||
8975 | verify process several rejections may take place. | ||
8976 | .It Fl policy_check | ||
8977 | Enables certificate policy processing. | ||
8978 | .It Fl purpose Ar purpose | ||
8979 | The intended use for the certificate. | ||
8980 | Without this option no chain verification will be done. | ||
8981 | Currently accepted uses are | ||
8982 | .Ar sslclient , sslserver , | ||
8983 | .Ar nssslserver , smimesign , | ||
8984 | .Ar smimeencrypt , crlsign , | ||
8985 | .Ar any , | ||
8986 | and | ||
8987 | .Ar ocsphelper . | ||
8988 | See the | ||
8989 | .Sx VERIFY OPERATION | ||
8990 | section for more information. | ||
8991 | .It Fl untrusted Ar file | ||
8992 | A | ||
8993 | .Ar file | ||
8994 | of untrusted certificates. | ||
8995 | The | ||
8996 | .Ar file | ||
8997 | should contain multiple certificates. | ||
8998 | .It Fl verbose | ||
8999 | Print extra information about the operations being performed. | ||
9000 | .It Fl x509_strict | ||
9001 | Disable workarounds for broken certificates which have to be disabled | ||
9002 | for strict X.509 compliance. | ||
9003 | .It Fl | ||
9004 | Marks the last option. | ||
9005 | All arguments following this are assumed to be certificate files. | ||
9006 | This is useful if the first certificate filename begins with a | ||
9007 | .Sq - . | ||
9008 | .It Ar certificates | ||
9009 | One or more | ||
9010 | .Ar certificates | ||
9011 | to verify. | ||
9012 | If no certificate files are included, an attempt is made to read | ||
9013 | a certificate from standard input. | ||
9014 | They should all be in PEM format. | ||
9015 | .El | ||
9016 | .Sh VERIFY OPERATION | ||
9017 | The | ||
9018 | .Nm verify | ||
9019 | program uses the same functions as the internal SSL and S/MIME verification, | ||
9020 | therefore this description applies to these verify operations too. | ||
9021 | .Pp | ||
9022 | There is one crucial difference between the verify operations performed | ||
9023 | by the | ||
9024 | .Nm verify | ||
9025 | program: wherever possible an attempt is made to continue | ||
9026 | after an error, whereas normally the verify operation would halt on the | ||
9027 | first error. | ||
9028 | This allows all the problems with a certificate chain to be determined. | ||
9029 | .Pp | ||
9030 | The verify operation consists of a number of separate steps: | ||
9031 | .Pp | ||
9032 | Firstly a certificate chain is built up starting from the supplied certificate | ||
9033 | and ending in the root CA. | ||
9034 | It is an error if the whole chain cannot be built up. | ||
9035 | The chain is built up by looking up the issuer's certificate of the current | ||
9036 | certificate. | ||
9037 | If a certificate is found which is its own issuer, it is assumed | ||
9038 | to be the root CA. | ||
9039 | .Pp | ||
9040 | The process of | ||
9041 | .Qq looking up the issuer's certificate | ||
9042 | itself involves a number of steps. | ||
9043 | In versions of | ||
9044 | .Nm OpenSSL | ||
9045 | before 0.9.5a the first certificate whose subject name matched the issuer | ||
9046 | of the current certificate was assumed to be the issuer's certificate. | ||
9047 | In | ||
9048 | .Nm OpenSSL | ||
9049 | 0.9.6 and later all certificates whose subject name matches the issuer name | ||
9050 | of the current certificate are subject to further tests. | ||
9051 | The relevant authority key identifier components of the current certificate | ||
9052 | .Pq if present | ||
9053 | must match the subject key identifier | ||
9054 | .Pq if present | ||
9055 | and issuer and serial number of the candidate issuer; in addition the | ||
9056 | .Em keyUsage | ||
9057 | extension of the candidate issuer | ||
9058 | .Pq if present | ||
9059 | must permit certificate signing. | ||
9060 | .Pp | ||
9061 | The lookup first looks in the list of untrusted certificates and if no match | ||
9062 | is found the remaining lookups are from the trusted certificates. | ||
9063 | The root CA is always looked up in the trusted certificate list: if the | ||
9064 | certificate to verify is a root certificate, then an exact match must be | ||
9065 | found in the trusted list. | ||
9066 | .Pp | ||
9067 | The second operation is to check every untrusted certificate's extensions for | ||
9068 | consistency with the supplied purpose. | ||
9069 | If the | ||
9070 | .Fl purpose | ||
9071 | option is not included, then no checks are done. | ||
9072 | The supplied or | ||
9073 | .Qq leaf | ||
9074 | certificate must have extensions compatible with the supplied purpose | ||
9075 | and all other certificates must also be valid CA certificates. | ||
9076 | The precise extensions required are described in more detail in | ||
9077 | the | ||
9078 | .Sx X.509 CERTIFICATE EXTENSIONS | ||
9079 | section below. | ||
9080 | .Pp | ||
9081 | The third operation is to check the trust settings on the root CA. | ||
9082 | The root CA should be trusted for the supplied purpose. | ||
9083 | For compatibility with previous versions of | ||
9084 | .Nm SSLeay | ||
9085 | and | ||
9086 | .Nm OpenSSL , | ||
9087 | a certificate with no trust settings is considered to be valid for | ||
9088 | all purposes. | ||
9089 | .Pp | ||
9090 | The final operation is to check the validity of the certificate chain. | ||
9091 | The validity period is checked against the current system time and the | ||
9092 | .Em notBefore | ||
9093 | and | ||
9094 | .Em notAfter | ||
9095 | dates in the certificate. | ||
9096 | The certificate signatures are also checked at this point. | ||
9097 | .Pp | ||
9098 | If all operations complete successfully, the certificate is considered | ||
9099 | valid. | ||
9100 | If any operation fails then the certificate is not valid. | ||
9101 | .Sh VERIFY DIAGNOSTICS | ||
9102 | When a verify operation fails, the output messages can be somewhat cryptic. | ||
9103 | The general form of the error message is: | ||
9104 | .Bd -unfilled | ||
9105 | \& server.pem: /C=AU/ST=Queensland/O=CryptSoft Pty Ltd/CN=Test CA (1024-bit) | ||
9106 | \& error 24 at 1 depth lookup:invalid CA certificate | ||
9107 | .Ed | ||
9108 | .Pp | ||
9109 | The first line contains the name of the certificate being verified, followed by | ||
9110 | the subject name of the certificate. | ||
9111 | The second line contains the error number and the depth. | ||
9112 | The depth is the number of the certificate being verified when a | ||
9113 | problem was detected starting with zero for the certificate being verified | ||
9114 | itself, then 1 for the CA that signed the certificate and so on. | ||
9115 | Finally a text version of the error number is presented. | ||
9116 | .Pp | ||
9117 | An exhaustive list of the error codes and messages is shown below; this also | ||
9118 | includes the name of the error code as defined in the header file | ||
9119 | .Aq Pa openssl/x509_vfy.h . | ||
9120 | Some of the error codes are defined but never returned: these are described | ||
9121 | as | ||
9122 | .Qq unused . | ||
9123 | .Bl -tag -width "XXXX" | ||
9124 | .It Ar "0 X509_V_OK: ok" | ||
9125 | The operation was successful. | ||
9126 | .It Ar 2 X509_V_ERR_UNABLE_TO_GET_ISSUER_CERT: unable to get issuer certificate | ||
9127 | The issuer certificate could not be found: this occurs if the issuer certificate | ||
9128 | of an untrusted certificate cannot be found. | ||
9129 | .It Ar 3 X509_V_ERR_UNABLE_TO_GET_CRL: unable to get certificate CRL | ||
9130 | The CRL of a certificate could not be found. | ||
9131 | .It Ar 4 X509_V_ERR_UNABLE_TO_DECRYPT_CERT_SIGNATURE: unable to decrypt certificate's signature | ||
9132 | The certificate signature could not be decrypted. | ||
9133 | This means that the actual signature value could not be determined rather | ||
9134 | than it not matching the expected value. | ||
9135 | This is only meaningful for RSA keys. | ||
9136 | .It Ar 5 X509_V_ERR_UNABLE_TO_DECRYPT_CRL_SIGNATURE: unable to decrypt CRL's signature | ||
9137 | The CRL signature could not be decrypted: this means that the actual | ||
9138 | signature value could not be determined rather than it not matching the | ||
9139 | expected value. | ||
9140 | Unused. | ||
9141 | .It Ar 6 X509_V_ERR_UNABLE_TO_DECODE_ISSUER_PUBLIC_KEY: unable to decode issuer public key | ||
9142 | The public key in the certificate | ||
9143 | .Em SubjectPublicKeyInfo | ||
9144 | could not be read. | ||
9145 | .It Ar 7 X509_V_ERR_CERT_SIGNATURE_FAILURE: certificate signature failure | ||
9146 | The signature of the certificate is invalid. | ||
9147 | .It Ar 8 X509_V_ERR_CRL_SIGNATURE_FAILURE: CRL signature failure | ||
9148 | The signature of the certificate is invalid. | ||
9149 | .It Ar 9 X509_V_ERR_CERT_NOT_YET_VALID: certificate is not yet valid | ||
9150 | The certificate is not yet valid: the | ||
9151 | .Em notBefore | ||
9152 | date is after the current time. | ||
9153 | .It Ar 10 X509_V_ERR_CERT_HAS_EXPIRED: certificate has expired | ||
9154 | The certificate has expired; that is, the | ||
9155 | .Em notAfter | ||
9156 | date is before the current time. | ||
9157 | .It Ar 11 X509_V_ERR_CRL_NOT_YET_VALID: CRL is not yet valid | ||
9158 | The CRL is not yet valid. | ||
9159 | .It Ar 12 X509_V_ERR_CRL_HAS_EXPIRED: CRL has expired | ||
9160 | The CRL has expired. | ||
9161 | .It Ar 13 X509_V_ERR_ERROR_IN_CERT_NOT_BEFORE_FIELD: format error in certificate's notBefore field | ||
9162 | The certificate | ||
9163 | .Em notBefore | ||
9164 | field contains an invalid time. | ||
9165 | .It Ar 14 X509_V_ERR_ERROR_IN_CERT_NOT_AFTER_FIELD: format error in certificate's notAfter field | ||
9166 | The certificate | ||
9167 | .Em notAfter | ||
9168 | field contains an invalid time. | ||
9169 | .It Ar 15 X509_V_ERR_ERROR_IN_CRL_LAST_UPDATE_FIELD: format error in CRL's lastUpdate field | ||
9170 | The CRL | ||
9171 | .Em lastUpdate | ||
9172 | field contains an invalid time. | ||
9173 | .It Ar 16 X509_V_ERR_ERROR_IN_CRL_NEXT_UPDATE_FIELD: format error in CRL's nextUpdate field | ||
9174 | The CRL | ||
9175 | .Em nextUpdate | ||
9176 | field contains an invalid time. | ||
9177 | .It Ar 17 X509_V_ERR_OUT_OF_MEM: out of memory | ||
9178 | An error occurred trying to allocate memory. | ||
9179 | This should never happen. | ||
9180 | .It Ar 18 X509_V_ERR_DEPTH_ZERO_SELF_SIGNED_CERT: self signed certificate | ||
9181 | The passed certificate is self-signed and the same certificate cannot be | ||
9182 | found in the list of trusted certificates. | ||
9183 | .It Ar 19 X509_V_ERR_SELF_SIGNED_CERT_IN_CHAIN: self signed certificate in certificate chain | ||
9184 | The certificate chain could be built up using the untrusted certificates but | ||
9185 | the root could not be found locally. | ||
9186 | .It Ar 20 X509_V_ERR_UNABLE_TO_GET_ISSUER_CERT_LOCALLY: unable to get local issuer certificate | ||
9187 | The issuer certificate of a locally looked up certificate could not be found. | ||
9188 | This normally means the list of trusted certificates is not complete. | ||
9189 | .It Ar 21 X509_V_ERR_UNABLE_TO_VERIFY_LEAF_SIGNATURE: unable to verify the first certificate | ||
9190 | No signatures could be verified because the chain contains only one | ||
9191 | certificate and it is not self-signed. | ||
9192 | .It Ar 22 X509_V_ERR_CERT_CHAIN_TOO_LONG: certificate chain too long | ||
9193 | The certificate chain length is greater than the supplied maximum depth. | ||
9194 | Unused. | ||
9195 | .It Ar 23 X509_V_ERR_CERT_REVOKED: certificate revoked | ||
9196 | The certificate has been revoked. | ||
9197 | .It Ar 24 X509_V_ERR_INVALID_CA: invalid CA certificate | ||
9198 | A CA certificate is invalid. | ||
9199 | Either it is not a CA or its extensions are not consistent | ||
9200 | with the supplied purpose. | ||
9201 | .It Ar 25 X509_V_ERR_PATH_LENGTH_EXCEEDED: path length constraint exceeded | ||
9202 | The | ||
9203 | .Em basicConstraints | ||
9204 | pathlength parameter has been exceeded. | ||
9205 | .It Ar 26 X509_V_ERR_INVALID_PURPOSE: unsupported certificate purpose | ||
9206 | The supplied certificate cannot be used for the specified purpose. | ||
9207 | .It Ar 27 X509_V_ERR_CERT_UNTRUSTED: certificate not trusted | ||
9208 | The root CA is not marked as trusted for the specified purpose. | ||
9209 | .It Ar 28 X509_V_ERR_CERT_REJECTED: certificate rejected | ||
9210 | The root CA is marked to reject the specified purpose. | ||
9211 | .It Ar 29 X509_V_ERR_SUBJECT_ISSUER_MISMATCH: subject issuer mismatch | ||
9212 | The current candidate issuer certificate was rejected because its subject name | ||
9213 | did not match the issuer name of the current certificate. | ||
9214 | Only displayed when the | ||
9215 | .Fl issuer_checks | ||
9216 | option is set. | ||
9217 | .It Ar 30 X509_V_ERR_AKID_SKID_MISMATCH: authority and subject key identifier mismatch | ||
9218 | The current candidate issuer certificate was rejected because its subject key | ||
9219 | identifier was present and did not match the authority key identifier current | ||
9220 | certificate. | ||
9221 | Only displayed when the | ||
9222 | .Fl issuer_checks | ||
9223 | option is set. | ||
9224 | .It Ar 31 X509_V_ERR_AKID_ISSUER_SERIAL_MISMATCH: authority and issuer serial number mismatch | ||
9225 | The current candidate issuer certificate was rejected because its issuer name | ||
9226 | and serial number were present and did not match the authority key identifier | ||
9227 | of the current certificate. | ||
9228 | Only displayed when the | ||
9229 | .Fl issuer_checks | ||
9230 | option is set. | ||
9231 | .It Ar 32 X509_V_ERR_KEYUSAGE_NO_CERTSIGN:key usage does not include certificate signing | ||
9232 | The current candidate issuer certificate was rejected because its | ||
9233 | .Em keyUsage | ||
9234 | extension does not permit certificate signing. | ||
9235 | .It Ar 50 X509_V_ERR_APPLICATION_VERIFICATION: application verification failure | ||
9236 | An application specific error. | ||
9237 | Unused. | ||
9238 | .El | ||
9239 | .Sh VERIFY BUGS | ||
9240 | Although the issuer checks are a considerable improvement over the old | ||
9241 | technique, they still suffer from limitations in the underlying | ||
9242 | X509_LOOKUP API. | ||
9243 | One consequence of this is that trusted certificates with matching subject | ||
9244 | name must either appear in a file (as specified by the | ||
9245 | .Fl CAfile | ||
9246 | option) or a directory (as specified by | ||
9247 | .Fl CApath ) . | ||
9248 | If they occur in both, only the certificates in the file will | ||
9249 | be recognised. | ||
9250 | .Pp | ||
9251 | Previous versions of | ||
9252 | .Nm OpenSSL | ||
9253 | assumed certificates with matching subject name were identical and | ||
9254 | mishandled them. | ||
9255 | .\" | ||
9256 | .\" VERSION | ||
9257 | .\" | ||
9258 | .Sh VERSION | ||
9259 | .Nm openssl version | ||
9260 | .Op Fl abdfopv | ||
9261 | .Pp | ||
9262 | The | ||
9263 | .Nm version | ||
9264 | command is used to print out version information about | ||
9265 | .Nm OpenSSL . | ||
9266 | .Pp | ||
9267 | The options are as follows: | ||
9268 | .Bl -tag -width Ds | ||
9269 | .It Fl a | ||
9270 | All information: this is the same as setting all the other flags. | ||
9271 | .It Fl b | ||
9272 | The date the current version of | ||
9273 | .Nm OpenSSL | ||
9274 | was built. | ||
9275 | .It Fl d | ||
9276 | .Ev OPENSSLDIR | ||
9277 | setting. | ||
9278 | .It Fl f | ||
9279 | Compilation flags. | ||
9280 | .It Fl o | ||
9281 | Option information: various options set when the library was built. | ||
9282 | .It Fl p | ||
9283 | Platform setting. | ||
9284 | .It Fl v | ||
9285 | The current | ||
9286 | .Nm OpenSSL | ||
9287 | version. | ||
9288 | .El | ||
9289 | .Sh VERSION NOTES | ||
9290 | The output of | ||
9291 | .Nm openssl version -a | ||
9292 | would typically be used when sending in a bug report. | ||
9293 | .Sh VERSION HISTORY | ||
9294 | The | ||
9295 | .Fl d | ||
9296 | option was added in | ||
9297 | .Nm OpenSSL | ||
9298 | 0.9.7. | ||
9299 | .\" | ||
9300 | .\" X509 | ||
9301 | .\" | ||
9302 | .Sh X509 | ||
9303 | .nr nS 1 | ||
9304 | .Nm "openssl x509" | ||
9305 | .Bk -words | ||
9306 | .Op Fl C | ||
9307 | .Op Fl addreject Ar arg | ||
9308 | .Op Fl addtrust Ar arg | ||
9309 | .Op Fl alias | ||
9310 | .Op Fl CA Ar file | ||
9311 | .Op Fl CAcreateserial | ||
9312 | .Op Fl CAform Ar DER | PEM | ||
9313 | .Op Fl CAkey Ar file | ||
9314 | .Op Fl CAkeyform Ar DER | PEM | ||
9315 | .Op Fl CAserial Ar file | ||
9316 | .Op Fl certopt Ar option | ||
9317 | .Op Fl checkend Ar arg | ||
9318 | .Op Fl clrext | ||
9319 | .Op Fl clrreject | ||
9320 | .Op Fl clrtrust | ||
9321 | .Op Fl dates | ||
9322 | .Op Fl days Ar arg | ||
9323 | .Op Fl email | ||
9324 | .Op Fl enddate | ||
9325 | .Op Fl engine Ar id | ||
9326 | .Op Fl extensions Ar section | ||
9327 | .Op Fl extfile Ar file | ||
9328 | .Op Fl fingerprint | ||
9329 | .Op Fl hash | ||
9330 | .Op Fl in Ar file | ||
9331 | .Op Fl inform Ar DER | NET | PEM | ||
9332 | .Op Fl issuer | ||
9333 | .Op Fl issuer_hash | ||
9334 | .Op Fl issuer_hash_old | ||
9335 | .Op Fl keyform Ar DER | PEM | ||
9336 | .Op Fl md2 | md5 | sha1 | ||
9337 | .Op Fl modulus | ||
9338 | .Op Fl nameopt Ar option | ||
9339 | .Op Fl noout | ||
9340 | .Op Fl ocsp_uri | ||
9341 | .Op Fl ocspid | ||
9342 | .Op Fl out Ar file | ||
9343 | .Op Fl outform Ar DER | NET | PEM | ||
9344 | .Op Fl passin Ar arg | ||
9345 | .Op Fl pubkey | ||
9346 | .Op Fl purpose | ||
9347 | .Op Fl req | ||
9348 | .Op Fl serial | ||
9349 | .Op Fl set_serial Ar n | ||
9350 | .Op Fl setalias Ar arg | ||
9351 | .Op Fl signkey Ar file | ||
9352 | .Op Fl startdate | ||
9353 | .Op Fl subject | ||
9354 | .Op Fl subject_hash | ||
9355 | .Op Fl subject_hash_old | ||
9356 | .Op Fl text | ||
9357 | .Op Fl trustout | ||
9358 | .Op Fl x509toreq | ||
9359 | .Ek | ||
9360 | .nr nS 0 | ||
9361 | .Pp | ||
9362 | The | ||
9363 | .Nm x509 | ||
9364 | command is a multi-purpose certificate utility. | ||
9365 | It can be used to display certificate information, convert certificates to | ||
9366 | various forms, sign certificate requests like a | ||
9367 | .Qq mini CA , | ||
9368 | or edit certificate trust settings. | ||
9369 | .Pp | ||
9370 | Since there are a large number of options, they are split up into | ||
9371 | various sections. | ||
9372 | .Sh X509 INPUT, OUTPUT, AND GENERAL PURPOSE OPTIONS | ||
9373 | .Bl -tag -width "XXXX" | ||
9374 | .It Fl engine Ar id | ||
9375 | Specifying an engine (by its unique | ||
9376 | .Ar id | ||
9377 | string) will cause | ||
9378 | .Nm x509 | ||
9379 | to attempt to obtain a functional reference to the specified engine, | ||
9380 | thus initialising it if needed. | ||
9381 | The engine will then be set as the default for all available algorithms. | ||
9382 | .It Fl in Ar file | ||
9383 | This specifies the input | ||
9384 | .Ar file | ||
9385 | to read a certificate from, or standard input if this option is not specified. | ||
9386 | .It Fl inform Ar DER | NET | PEM | ||
9387 | This specifies the input format. | ||
9388 | Normally, the command will expect an X.509 certificate, | ||
9389 | but this can change if other options such as | ||
9390 | .Fl req | ||
9391 | are present. | ||
9392 | The | ||
9393 | .Ar DER | ||
9394 | format is the DER encoding of the certificate and | ||
9395 | .Ar PEM | ||
9396 | is the base64 encoding of the DER encoding with header and footer lines added. | ||
9397 | The | ||
9398 | .Ar NET | ||
9399 | option is an obscure Netscape server format that is now | ||
9400 | obsolete. | ||
9401 | .It Fl md2 | md5 | sha1 | ||
9402 | The digest to use. | ||
9403 | This affects any signing or display option that uses a message digest, | ||
9404 | such as the | ||
9405 | .Fl fingerprint , signkey , | ||
9406 | and | ||
9407 | .Fl CA | ||
9408 | options. | ||
9409 | If not specified, MD5 is used. | ||
9410 | If the key being used to sign with is a DSA key, | ||
9411 | this option has no effect: SHA1 is always used with DSA keys. | ||
9412 | .It Fl out Ar file | ||
9413 | This specifies the output | ||
9414 | .Ar file | ||
9415 | to write to, or standard output by default. | ||
9416 | .It Fl outform Ar DER | NET | PEM | ||
9417 | This specifies the output format; the options have the same meaning as the | ||
9418 | .Fl inform | ||
9419 | option. | ||
9420 | .It Fl passin Ar arg | ||
9421 | The key password source. | ||
9422 | For more information about the format of | ||
9423 | .Ar arg , | ||
9424 | see the | ||
9425 | .Sx PASS PHRASE ARGUMENTS | ||
9426 | section above. | ||
9427 | .El | ||
9428 | .Sh X509 DISPLAY OPTIONS | ||
9429 | .Sy Note : | ||
9430 | The | ||
9431 | .Fl alias | ||
9432 | and | ||
9433 | .Fl purpose | ||
9434 | options are also display options but are described in the | ||
9435 | .Sx X509 TRUST SETTINGS | ||
9436 | section. | ||
9437 | .Bl -tag -width "XXXX" | ||
9438 | .It Fl C | ||
9439 | This outputs the certificate in the form of a C source file. | ||
9440 | .It Fl certopt Ar option | ||
9441 | Customise the output format used with | ||
9442 | .Fl text . | ||
9443 | The | ||
9444 | .Ar option | ||
9445 | argument can be a single option or multiple options separated by commas. | ||
9446 | The | ||
9447 | .Fl certopt | ||
9448 | switch may also be used more than once to set multiple options. | ||
9449 | See the | ||
9450 | .Sx X509 TEXT OPTIONS | ||
9451 | section for more information. | ||
9452 | .It Fl dates | ||
9453 | Prints out the start and expiry dates of a certificate. | ||
9454 | .It Fl email | ||
9455 | Outputs the email address(es), if any. | ||
9456 | .It Fl enddate | ||
9457 | Prints out the expiry date of the certificate; that is, the | ||
9458 | .Em notAfter | ||
9459 | date. | ||
9460 | .It Fl fingerprint | ||
9461 | Prints out the digest of the DER-encoded version of the whole certificate | ||
9462 | (see | ||
9463 | .Sx DIGEST OPTIONS ) . | ||
9464 | .It Fl hash | ||
9465 | A synonym for | ||
9466 | .Fl subject_hash , | ||
9467 | for backwards compatibility. | ||
9468 | .It Fl issuer | ||
9469 | Outputs the issuer name. | ||
9470 | .It Fl issuer_hash | ||
9471 | Outputs the | ||
9472 | .Qq hash | ||
9473 | of the certificate issuer name. | ||
9474 | .It Fl issuer_hash_old | ||
9475 | Outputs the | ||
9476 | .Qq hash | ||
9477 | of the certificate issuer name using the older algorithm | ||
9478 | as used by | ||
9479 | .Nm OpenSSL | ||
9480 | versions before 1.0.0. | ||
9481 | .It Fl modulus | ||
9482 | This option prints out the value of the modulus of the public key | ||
9483 | contained in the certificate. | ||
9484 | .It Fl nameopt Ar option | ||
9485 | Option which determines how the subject or issuer names are displayed. | ||
9486 | The | ||
9487 | .Ar option | ||
9488 | argument can be a single option or multiple options separated by commas. | ||
9489 | Alternatively, the | ||
9490 | .Fl nameopt | ||
9491 | switch may be used more than once to set multiple options. | ||
9492 | See the | ||
9493 | .Sx X509 NAME OPTIONS | ||
9494 | section for more information. | ||
9495 | .It Fl noout | ||
9496 | This option prevents output of the encoded version of the request. | ||
9497 | .It Fl ocsp_uri | ||
9498 | Outputs the OCSP responder addresses, if any. | ||
9499 | .It Fl ocspid | ||
9500 | Print OCSP hash values for the subject name and public key. | ||
9501 | .It Fl pubkey | ||
9502 | Output the public key. | ||
9503 | .It Fl serial | ||
9504 | Outputs the certificate serial number. | ||
9505 | .It Fl startdate | ||
9506 | Prints out the start date of the certificate; that is, the | ||
9507 | .Em notBefore | ||
9508 | date. | ||
9509 | .It Fl subject | ||
9510 | Outputs the subject name. | ||
9511 | .It Fl subject_hash | ||
9512 | Outputs the | ||
9513 | .Qq hash | ||
9514 | of the certificate subject name. | ||
9515 | This is used in | ||
9516 | .Nm OpenSSL | ||
9517 | to form an index to allow certificates in a directory to be looked up | ||
9518 | by subject name. | ||
9519 | .It Fl subject_hash_old | ||
9520 | Outputs the | ||
9521 | .Qq hash | ||
9522 | of the certificate subject name using the older algorithm | ||
9523 | as used by | ||
9524 | .Nm OpenSSL | ||
9525 | versions before 1.0.0. | ||
9526 | .It Fl text | ||
9527 | Prints out the certificate in text form. | ||
9528 | Full details are output including the public key, signature algorithms, | ||
9529 | issuer and subject names, serial number, any extensions present, | ||
9530 | and any trust settings. | ||
9531 | .El | ||
9532 | .Sh X509 TRUST SETTINGS | ||
9533 | Please note these options are currently experimental and may well change. | ||
9534 | .Pp | ||
9535 | A | ||
9536 | .Em trusted certificate | ||
9537 | is an ordinary certificate which has several | ||
9538 | additional pieces of information attached to it such as the permitted | ||
9539 | and prohibited uses of the certificate and an | ||
9540 | .Qq alias . | ||
9541 | .Pp | ||
9542 | Normally, when a certificate is being verified at least one certificate | ||
9543 | must be | ||
9544 | .Qq trusted . | ||
9545 | By default, a trusted certificate must be stored | ||
9546 | locally and must be a root CA: any certificate chain ending in this CA | ||
9547 | is then usable for any purpose. | ||
9548 | .Pp | ||
9549 | Trust settings currently are only used with a root CA. | ||
9550 | They allow a finer control over the purposes the root CA can be used for. | ||
9551 | For example, a CA may be trusted for an SSL client but not for | ||
9552 | SSL server use. | ||
9553 | .Pp | ||
9554 | See the description of the | ||
9555 | .Nm verify | ||
9556 | utility for more information on the meaning of trust settings. | ||
9557 | .Pp | ||
9558 | Future versions of | ||
9559 | .Nm OpenSSL | ||
9560 | will recognize trust settings on any certificate: not just root CAs. | ||
9561 | .Bl -tag -width "XXXX" | ||
9562 | .It Fl addreject Ar arg | ||
9563 | Adds a prohibited use. | ||
9564 | It accepts the same values as the | ||
9565 | .Fl addtrust | ||
9566 | option. | ||
9567 | .It Fl addtrust Ar arg | ||
9568 | Adds a trusted certificate use. | ||
9569 | Any object name can be used here, but currently only | ||
9570 | .Ar clientAuth | ||
9571 | .Pq SSL client use , | ||
9572 | .Ar serverAuth | ||
9573 | .Pq SSL server use , | ||
9574 | and | ||
9575 | .Ar emailProtection | ||
9576 | .Pq S/MIME email | ||
9577 | are used. | ||
9578 | Other | ||
9579 | .Nm OpenSSL | ||
9580 | applications may define additional uses. | ||
9581 | .It Fl alias | ||
9582 | Outputs the certificate alias, if any. | ||
9583 | .It Fl clrreject | ||
9584 | Clears all the prohibited or rejected uses of the certificate. | ||
9585 | .It Fl clrtrust | ||
9586 | Clears all the permitted or trusted uses of the certificate. | ||
9587 | .It Fl purpose | ||
9588 | This option performs tests on the certificate extensions and outputs | ||
9589 | the results. | ||
9590 | For a more complete description, see the | ||
9591 | .Sx X.509 CERTIFICATE EXTENSIONS | ||
9592 | section. | ||
9593 | .It Fl setalias Ar arg | ||
9594 | Sets the alias of the certificate. | ||
9595 | This will allow the certificate to be referred to using a nickname, | ||
9596 | for example | ||
9597 | .Qq Steve's Certificate . | ||
9598 | .It Fl trustout | ||
9599 | This causes | ||
9600 | .Nm x509 | ||
9601 | to output a | ||
9602 | .Em trusted certificate . | ||
9603 | An ordinary or trusted certificate can be input, but by default an ordinary | ||
9604 | certificate is output and any trust settings are discarded. | ||
9605 | With the | ||
9606 | .Fl trustout | ||
9607 | option a trusted certificate is output. | ||
9608 | A trusted certificate is automatically output if any trust settings | ||
9609 | are modified. | ||
9610 | .El | ||
9611 | .Sh X509 SIGNING OPTIONS | ||
9612 | The | ||
9613 | .Nm x509 | ||
9614 | utility can be used to sign certificates and requests: it | ||
9615 | can thus behave like a | ||
9616 | .Qq mini CA . | ||
9617 | .Bl -tag -width "XXXX" | ||
9618 | .It Fl CA Ar file | ||
9619 | Specifies the CA certificate to be used for signing. | ||
9620 | When this option is present, | ||
9621 | .Nm x509 | ||
9622 | behaves like a | ||
9623 | .Qq mini CA . | ||
9624 | The input file is signed by the CA using this option; | ||
9625 | that is, its issuer name is set to the subject name of the CA and it is | ||
9626 | digitally signed using the CA's private key. | ||
9627 | .Pp | ||
9628 | This option is normally combined with the | ||
9629 | .Fl req | ||
9630 | option. | ||
9631 | Without the | ||
9632 | .Fl req | ||
9633 | option, the input is a certificate which must be self-signed. | ||
9634 | .It Fl CAcreateserial | ||
9635 | With this option the CA serial number file is created if it does not exist: | ||
9636 | it will contain the serial number | ||
9637 | .Sq 02 | ||
9638 | and the certificate being signed will have | ||
9639 | .Sq 1 | ||
9640 | as its serial number. | ||
9641 | Normally, if the | ||
9642 | .Fl CA | ||
9643 | option is specified and the serial number file does not exist, it is an error. | ||
9644 | .It Fl CAform Ar DER | PEM | ||
9645 | The format of the CA certificate file. | ||
9646 | The default is | ||
9647 | .Ar PEM . | ||
9648 | .It Fl CAkey Ar file | ||
9649 | Sets the CA private key to sign a certificate with. | ||
9650 | If this option is not specified, it is assumed that the CA private key | ||
9651 | is present in the CA certificate file. | ||
9652 | .It Fl CAkeyform Ar DER | PEM | ||
9653 | The format of the CA private key. | ||
9654 | The default is | ||
9655 | .Ar PEM . | ||
9656 | .It Fl CAserial Ar file | ||
9657 | Sets the CA serial number file to use. | ||
9658 | .Pp | ||
9659 | When the | ||
9660 | .Fl CA | ||
9661 | option is used to sign a certificate, | ||
9662 | it uses a serial number specified in a file. | ||
9663 | This file consists of one line containing an even number of hex digits | ||
9664 | with the serial number to use. | ||
9665 | After each use the serial number is incremented and written out | ||
9666 | to the file again. | ||
9667 | .Pp | ||
9668 | The default filename consists of the CA certificate file base name with | ||
9669 | .Pa .srl | ||
9670 | appended. | ||
9671 | For example, if the CA certificate file is called | ||
9672 | .Pa mycacert.pem , | ||
9673 | it expects to find a serial number file called | ||
9674 | .Pa mycacert.srl . | ||
9675 | .It Fl checkend Ar arg | ||
9676 | Check whether the certificate expires in the next | ||
9677 | .Ar arg | ||
9678 | seconds. | ||
9679 | If so, exit with return value 1; | ||
9680 | otherwise exit with return value 0. | ||
9681 | .It Fl clrext | ||
9682 | Delete any extensions from a certificate. | ||
9683 | This option is used when a certificate is being created from another | ||
9684 | certificate (for example with the | ||
9685 | .Fl signkey | ||
9686 | or the | ||
9687 | .Fl CA | ||
9688 | options). | ||
9689 | Normally, all extensions are retained. | ||
9690 | .It Fl days Ar arg | ||
9691 | Specifies the number of days to make a certificate valid for. | ||
9692 | The default is 30 days. | ||
9693 | .It Fl extensions Ar section | ||
9694 | The section to add certificate extensions from. | ||
9695 | If this option is not specified, the extensions should either be | ||
9696 | contained in the unnamed | ||
9697 | .Pq default | ||
9698 | section or the default section should contain a variable called | ||
9699 | .Qq extensions | ||
9700 | which contains the section to use. | ||
9701 | .It Fl extfile Ar file | ||
9702 | File containing certificate extensions to use. | ||
9703 | If not specified, no extensions are added to the certificate. | ||
9704 | .It Fl keyform Ar DER | PEM | ||
9705 | Specifies the format | ||
9706 | .Pq DER or PEM | ||
9707 | of the private key file used in the | ||
9708 | .Fl signkey | ||
9709 | option. | ||
9710 | .It Fl req | ||
9711 | By default, a certificate is expected on input. | ||
9712 | With this option a certificate request is expected instead. | ||
9713 | .It Fl set_serial Ar n | ||
9714 | Specifies the serial number to use. | ||
9715 | This option can be used with either the | ||
9716 | .Fl signkey | ||
9717 | or | ||
9718 | .Fl CA | ||
9719 | options. | ||
9720 | If used in conjunction with the | ||
9721 | .Fl CA | ||
9722 | option, the serial number file (as specified by the | ||
9723 | .Fl CAserial | ||
9724 | or | ||
9725 | .Fl CAcreateserial | ||
9726 | options) is not used. | ||
9727 | .Pp | ||
9728 | The serial number can be decimal or hex (if preceded by | ||
9729 | .Sq 0x ) . | ||
9730 | Negative serial numbers can also be specified but their use is not recommended. | ||
9731 | .It Fl signkey Ar file | ||
9732 | This option causes the input file to be self-signed using the supplied | ||
9733 | private key. | ||
9734 | .Pp | ||
9735 | If the input file is a certificate, it sets the issuer name to the | ||
9736 | subject name | ||
9737 | .Pq i.e. makes it self-signed , | ||
9738 | changes the public key to the supplied value, | ||
9739 | and changes the start and end dates. | ||
9740 | The start date is set to the current time and the end date is set to | ||
9741 | a value determined by the | ||
9742 | .Fl days | ||
9743 | option. | ||
9744 | Any certificate extensions are retained unless the | ||
9745 | .Fl clrext | ||
9746 | option is supplied. | ||
9747 | .Pp | ||
9748 | If the input is a certificate request, a self-signed certificate | ||
9749 | is created using the supplied private key using the subject name in | ||
9750 | the request. | ||
9751 | .It Fl x509toreq | ||
9752 | Converts a certificate into a certificate request. | ||
9753 | The | ||
9754 | .Fl signkey | ||
9755 | option is used to pass the required private key. | ||
9756 | .El | ||
9757 | .Sh X509 NAME OPTIONS | ||
9758 | The | ||
9759 | .Fl nameopt | ||
9760 | command line switch determines how the subject and issuer | ||
9761 | names are displayed. | ||
9762 | If no | ||
9763 | .Fl nameopt | ||
9764 | switch is present, the default | ||
9765 | .Qq oneline | ||
9766 | format is used which is compatible with previous versions of | ||
9767 | .Nm OpenSSL . | ||
9768 | Each option is described in detail below; all options can be preceded by a | ||
9769 | .Sq - | ||
9770 | to turn the option off. | ||
9771 | Only | ||
9772 | .Ar compat , | ||
9773 | .Ar RFC2253 , | ||
9774 | .Ar oneline , | ||
9775 | and | ||
9776 | .Ar multiline | ||
9777 | will normally be used. | ||
9778 | .Bl -tag -width "XXXX" | ||
9779 | .It Ar align | ||
9780 | Align field values for a more readable output. | ||
9781 | Only usable with | ||
9782 | .Ar sep_multiline . | ||
9783 | .It Ar compat | ||
9784 | Use the old format. | ||
9785 | This is equivalent to specifying no name options at all. | ||
9786 | .It Ar dn_rev | ||
9787 | Reverse the fields of the DN. | ||
9788 | This is required by RFC 2253. | ||
9789 | As a side effect, this also reverses the order of multiple AVAs but this is | ||
9790 | permissible. | ||
9791 | .It Ar dump_all | ||
9792 | Dump all fields. | ||
9793 | This option, when used with | ||
9794 | .Ar dump_der , | ||
9795 | allows the DER encoding of the structure to be unambiguously determined. | ||
9796 | .It Ar dump_der | ||
9797 | When this option is set, any fields that need to be hexdumped will | ||
9798 | be dumped using the DER encoding of the field. | ||
9799 | Otherwise just the content octets will be displayed. | ||
9800 | Both options use the RFC 2253 #XXXX... format. | ||
9801 | .It Ar dump_nostr | ||
9802 | Dump non-character string types | ||
9803 | .Pq for example OCTET STRING ; | ||
9804 | if this option is not set, non-character string types will be displayed | ||
9805 | as though each content octet represents a single character. | ||
9806 | .It Ar dump_unknown | ||
9807 | Dump any field whose OID is not recognised by | ||
9808 | .Nm OpenSSL . | ||
9809 | .It Ar esc_2253 | ||
9810 | Escape the | ||
9811 | .Qq special | ||
9812 | characters required by RFC 2253 in a field that is | ||
9813 | .Dq \& ,+"\*(Lt\*(Gt; . | ||
9814 | Additionally, | ||
9815 | .Sq # | ||
9816 | is escaped at the beginning of a string | ||
9817 | and a space character at the beginning or end of a string. | ||
9818 | .It Ar esc_ctrl | ||
9819 | Escape control characters. | ||
9820 | That is, those with ASCII values less than 0x20 | ||
9821 | .Pq space | ||
9822 | and the delete | ||
9823 | .Pq 0x7f | ||
9824 | character. | ||
9825 | They are escaped using the RFC 2253 \eXX notation (where XX are two hex | ||
9826 | digits representing the character value). | ||
9827 | .It Ar esc_msb | ||
9828 | Escape characters with the MSB set; that is, with ASCII values larger than | ||
9829 | 127. | ||
9830 | .It Ar multiline | ||
9831 | A multiline format. | ||
9832 | It is equivalent to | ||
9833 | .Ar esc_ctrl , esc_msb , sep_multiline , | ||
9834 | .Ar space_eq , lname , | ||
9835 | and | ||
9836 | .Ar align . | ||
9837 | .It Ar no_type | ||
9838 | This option does not attempt to interpret multibyte characters in any | ||
9839 | way. | ||
9840 | That is, their content octets are merely dumped as though one octet | ||
9841 | represents each character. | ||
9842 | This is useful for diagnostic purposes but will result in rather odd | ||
9843 | looking output. | ||
9844 | .It Ar nofname , sname , lname , oid | ||
9845 | These options alter how the field name is displayed. | ||
9846 | .Ar nofname | ||
9847 | does not display the field at all. | ||
9848 | .Ar sname | ||
9849 | uses the | ||
9850 | .Qq short name | ||
9851 | form (CN for | ||
9852 | .Ar commonName , | ||
9853 | for example). | ||
9854 | .Ar lname | ||
9855 | uses the long form. | ||
9856 | .Ar oid | ||
9857 | represents the OID in numerical form and is useful for diagnostic purpose. | ||
9858 | .It Ar oneline | ||
9859 | A oneline format which is more readable than | ||
9860 | .Ar RFC2253 . | ||
9861 | It is equivalent to specifying the | ||
9862 | .Ar esc_2253 , esc_ctrl , esc_msb , utf8 , | ||
9863 | .Ar dump_nostr , dump_der , use_quote , sep_comma_plus_spc , | ||
9864 | .Ar space_eq , | ||
9865 | and | ||
9866 | .Ar sname | ||
9867 | options. | ||
9868 | .It Ar RFC2253 | ||
9869 | Displays names compatible with RFC 2253; equivalent to | ||
9870 | .Ar esc_2253 , esc_ctrl , | ||
9871 | .Ar esc_msb , utf8 , dump_nostr , dump_unknown , | ||
9872 | .Ar dump_der , sep_comma_plus , dn_rev , | ||
9873 | and | ||
9874 | .Ar sname . | ||
9875 | .It Ar sep_comma_plus , sep_comma_plus_space , sep_semi_plus_space , sep_multiline | ||
9876 | These options determine the field separators. | ||
9877 | The first character is between RDNs and the second between multiple AVAs | ||
9878 | (multiple AVAs are very rare and their use is discouraged). | ||
9879 | The options ending in | ||
9880 | .Qq space | ||
9881 | additionally place a space after the separator to make it more readable. | ||
9882 | The | ||
9883 | .Ar sep_multiline | ||
9884 | uses a linefeed character for the RDN separator and a spaced | ||
9885 | .Sq + | ||
9886 | for the AVA separator. | ||
9887 | It also indents the fields by four characters. | ||
9888 | .It Ar show_type | ||
9889 | Show the type of the ASN1 character string. | ||
9890 | The type precedes the field contents. | ||
9891 | For example | ||
9892 | .Qq BMPSTRING: Hello World . | ||
9893 | .It Ar space_eq | ||
9894 | Places spaces round the | ||
9895 | .Sq = | ||
9896 | character which follows the field name. | ||
9897 | .It Ar use_quote | ||
9898 | Escapes some characters by surrounding the whole string with | ||
9899 | .Sq \&" | ||
9900 | characters. | ||
9901 | Without the option, all escaping is done with the | ||
9902 | .Sq \e | ||
9903 | character. | ||
9904 | .It Ar utf8 | ||
9905 | Convert all strings to UTF8 format first. | ||
9906 | This is required by RFC 2253. | ||
9907 | If you are lucky enough to have a UTF8 compatible terminal, | ||
9908 | the use of this option (and | ||
9909 | .Em not | ||
9910 | setting | ||
9911 | .Ar esc_msb ) | ||
9912 | may result in the correct display of multibyte | ||
9913 | .Pq international | ||
9914 | characters. | ||
9915 | If this option is not present, multibyte characters larger than 0xff | ||
9916 | will be represented using the format \eUXXXX for 16 bits and \eWXXXXXXXX | ||
9917 | for 32 bits. | ||
9918 | Also, if this option is off, any UTF8Strings will be converted to their | ||
9919 | character form first. | ||
9920 | .El | ||
9921 | .Sh X509 TEXT OPTIONS | ||
9922 | As well as customising the name output format, it is also possible to | ||
9923 | customise the actual fields printed using the | ||
9924 | .Fl certopt | ||
9925 | options when the | ||
9926 | .Fl text | ||
9927 | option is present. | ||
9928 | The default behaviour is to print all fields. | ||
9929 | .Bl -tag -width "XXXX" | ||
9930 | .It Ar ca_default | ||
9931 | The value used by the | ||
9932 | .Nm ca | ||
9933 | utility; equivalent to | ||
9934 | .Ar no_issuer , no_pubkey , no_header , | ||
9935 | .Ar no_version , no_sigdump , | ||
9936 | and | ||
9937 | .Ar no_signame . | ||
9938 | .It Ar compatible | ||
9939 | Use the old format. | ||
9940 | This is equivalent to specifying no output options at all. | ||
9941 | .It Ar ext_default | ||
9942 | Retain default extension behaviour: attempt to print out unsupported | ||
9943 | certificate extensions. | ||
9944 | .It Ar ext_dump | ||
9945 | Hex dump unsupported extensions. | ||
9946 | .It Ar ext_error | ||
9947 | Print an error message for unsupported certificate extensions. | ||
9948 | .It Ar ext_parse | ||
9949 | ASN1 parse unsupported extensions. | ||
9950 | .It Ar no_aux | ||
9951 | Don't print out certificate trust information. | ||
9952 | .It Ar no_extensions | ||
9953 | Don't print out any X509V3 extensions. | ||
9954 | .It Ar no_header | ||
9955 | Don't print header information: that is, the lines saying | ||
9956 | .Qq Certificate | ||
9957 | and | ||
9958 | .Qq Data . | ||
9959 | .It Ar no_issuer | ||
9960 | Don't print out the issuer name. | ||
9961 | .It Ar no_pubkey | ||
9962 | Don't print out the public key. | ||
9963 | .It Ar no_serial | ||
9964 | Don't print out the serial number. | ||
9965 | .It Ar no_sigdump | ||
9966 | Don't give a hexadecimal dump of the certificate signature. | ||
9967 | .It Ar no_signame | ||
9968 | Don't print out the signature algorithm used. | ||
9969 | .It Ar no_subject | ||
9970 | Don't print out the subject name. | ||
9971 | .It Ar no_validity | ||
9972 | Don't print the validity; that is, the | ||
9973 | .Em notBefore | ||
9974 | and | ||
9975 | .Em notAfter | ||
9976 | fields. | ||
9977 | .It Ar no_version | ||
9978 | Don't print out the version number. | ||
9979 | .El | ||
9980 | .Sh X509 EXAMPLES | ||
9981 | Display the contents of a certificate: | ||
9982 | .Pp | ||
9983 | .Dl $ openssl x509 -in cert.pem -noout -text | ||
9984 | .Pp | ||
9985 | Display the certificate serial number: | ||
9986 | .Pp | ||
9987 | .Dl $ openssl x509 -in cert.pem -noout -serial | ||
9988 | .Pp | ||
9989 | Display the certificate subject name: | ||
9990 | .Pp | ||
9991 | .Dl $ openssl x509 -in cert.pem -noout -subject | ||
9992 | .Pp | ||
9993 | Display the certificate subject name in RFC 2253 form: | ||
9994 | .Pp | ||
9995 | .Dl $ openssl x509 -in cert.pem -noout -subject -nameopt RFC2253 | ||
9996 | .Pp | ||
9997 | Display the certificate subject name in oneline form on a terminal | ||
9998 | supporting UTF8: | ||
9999 | .Bd -literal -offset indent | ||
10000 | $ openssl x509 -in cert.pem -noout -subject \e | ||
10001 | -nameopt oneline,-esc_msb | ||
10002 | .Ed | ||
10003 | .Pp | ||
10004 | Display the certificate MD5 fingerprint: | ||
10005 | .Pp | ||
10006 | .Dl $ openssl x509 -in cert.pem -noout -fingerprint | ||
10007 | .Pp | ||
10008 | Display the certificate SHA1 fingerprint: | ||
10009 | .Pp | ||
10010 | .Dl $ openssl x509 -sha1 -in cert.pem -noout -fingerprint | ||
10011 | .Pp | ||
10012 | Convert a certificate from PEM to DER format: | ||
10013 | .Pp | ||
10014 | .Dl "$ openssl x509 -in cert.pem -inform PEM -out cert.der -outform DER" | ||
10015 | .Pp | ||
10016 | Convert a certificate to a certificate request: | ||
10017 | .Bd -literal -offset indent | ||
10018 | $ openssl x509 -x509toreq -in cert.pem -out req.pem \e | ||
10019 | -signkey key.pem | ||
10020 | .Ed | ||
10021 | .Pp | ||
10022 | Convert a certificate request into a self-signed certificate using | ||
10023 | extensions for a CA: | ||
10024 | .Bd -literal -offset indent | ||
10025 | $ openssl x509 -req -in careq.pem -extfile openssl.cnf -extensions \e | ||
10026 | v3_ca -signkey key.pem -out cacert.pem | ||
10027 | .Ed | ||
10028 | .Pp | ||
10029 | Sign a certificate request using the CA certificate above and add user | ||
10030 | certificate extensions: | ||
10031 | .Bd -literal -offset indent | ||
10032 | $ openssl x509 -req -in req.pem -extfile openssl.cnf -extensions \e | ||
10033 | v3_usr -CA cacert.pem -CAkey key.pem -CAcreateserial | ||
10034 | .Ed | ||
10035 | .Pp | ||
10036 | Set a certificate to be trusted for SSL | ||
10037 | client use and set its alias to | ||
10038 | .Qq Steve's Class 1 CA : | ||
10039 | .Bd -literal -offset indent | ||
10040 | $ openssl x509 -in cert.pem -addtrust clientAuth \e | ||
10041 | -setalias "Steve's Class 1 CA" -out trust.pem | ||
10042 | .Ed | ||
10043 | .Sh X509 NOTES | ||
10044 | The PEM format uses the header and footer lines: | ||
10045 | .Bd -unfilled -offset indent | ||
10046 | -----BEGIN CERTIFICATE----- | ||
10047 | -----END CERTIFICATE----- | ||
10048 | .Ed | ||
10049 | .Pp | ||
10050 | It will also handle files containing: | ||
10051 | .Bd -unfilled -offset indent | ||
10052 | -----BEGIN X509 CERTIFICATE----- | ||
10053 | -----END X509 CERTIFICATE----- | ||
10054 | .Ed | ||
10055 | .Pp | ||
10056 | Trusted certificates have the lines: | ||
10057 | .Bd -unfilled -offset indent | ||
10058 | -----BEGIN TRUSTED CERTIFICATE----- | ||
10059 | -----END TRUSTED CERTIFICATE----- | ||
10060 | .Ed | ||
10061 | .Pp | ||
10062 | The conversion to UTF8 format used with the name options assumes that | ||
10063 | T61Strings use the ISO 8859-1 character set. | ||
10064 | This is wrong, but Netscape and MSIE do this, as do many certificates. | ||
10065 | So although this is incorrect | ||
10066 | it is more likely to display the majority of certificates correctly. | ||
10067 | .Pp | ||
10068 | The | ||
10069 | .Fl fingerprint | ||
10070 | option takes the digest of the DER-encoded certificate. | ||
10071 | This is commonly called a | ||
10072 | .Qq fingerprint . | ||
10073 | Because of the nature of message digests, the fingerprint of a certificate | ||
10074 | is unique to that certificate and two certificates with the same fingerprint | ||
10075 | can be considered to be the same. | ||
10076 | .Pp | ||
10077 | The Netscape fingerprint uses MD5, whereas MSIE uses SHA1. | ||
10078 | .Pp | ||
10079 | The | ||
10080 | .Fl email | ||
10081 | option searches the subject name and the subject alternative | ||
10082 | name extension. | ||
10083 | Only unique email addresses will be printed out: it will | ||
10084 | not print the same address more than once. | ||
10085 | .Sh X.509 CERTIFICATE EXTENSIONS | ||
10086 | The | ||
10087 | .Fl purpose | ||
10088 | option checks the certificate extensions and determines | ||
10089 | what the certificate can be used for. | ||
10090 | The actual checks done are rather | ||
10091 | complex and include various hacks and workarounds to handle broken | ||
10092 | certificates and software. | ||
10093 | .Pp | ||
10094 | The same code is used when verifying untrusted certificates in chains, | ||
10095 | so this section is useful if a chain is rejected by the verify code. | ||
10096 | .Pp | ||
10097 | The | ||
10098 | .Em basicConstraints | ||
10099 | extension CA flag is used to determine whether the | ||
10100 | certificate can be used as a CA. | ||
10101 | If the CA flag is true, it is a CA; | ||
10102 | if the CA flag is false, it is not a CA. | ||
10103 | .Em All | ||
10104 | CAs should have the CA flag set to true. | ||
10105 | .Pp | ||
10106 | If the | ||
10107 | .Em basicConstraints | ||
10108 | extension is absent, then the certificate is | ||
10109 | considered to be a | ||
10110 | .Qq possible CA ; | ||
10111 | other extensions are checked according to the intended use of the certificate. | ||
10112 | A warning is given in this case because the certificate should really not | ||
10113 | be regarded as a CA: however, | ||
10114 | it is allowed to be a CA to work around some broken software. | ||
10115 | .Pp | ||
10116 | If the certificate is a V1 certificate | ||
10117 | .Pq and thus has no extensions | ||
10118 | and it is self-signed, it is also assumed to be a CA but a warning is again | ||
10119 | given: this is to work around the problem of Verisign roots which are V1 | ||
10120 | self-signed certificates. | ||
10121 | .Pp | ||
10122 | If the | ||
10123 | .Em keyUsage | ||
10124 | extension is present, then additional restraints are | ||
10125 | made on the uses of the certificate. | ||
10126 | A CA certificate | ||
10127 | .Em must | ||
10128 | have the | ||
10129 | .Em keyCertSign | ||
10130 | bit set if the | ||
10131 | .Em keyUsage | ||
10132 | extension is present. | ||
10133 | .Pp | ||
10134 | The extended key usage extension places additional restrictions on the | ||
10135 | certificate uses. | ||
10136 | If this extension is present | ||
10137 | .Pq whether critical or not , | ||
10138 | the key can only be used for the purposes specified. | ||
10139 | .Pp | ||
10140 | A complete description of each test is given below. | ||
10141 | The comments about | ||
10142 | .Em basicConstraints | ||
10143 | and | ||
10144 | .Em keyUsage | ||
10145 | and V1 certificates above apply to | ||
10146 | .Em all | ||
10147 | CA certificates. | ||
10148 | .Bl -tag -width "XXXX" | ||
10149 | .It Ar SSL Client | ||
10150 | The extended key usage extension must be absent or include the | ||
10151 | .Qq web client authentication | ||
10152 | OID. | ||
10153 | .Ar keyUsage | ||
10154 | must be absent or it must have the | ||
10155 | .Em digitalSignature | ||
10156 | bit set. | ||
10157 | Netscape certificate type must be absent or it must have the SSL | ||
10158 | client bit set. | ||
10159 | .It Ar SSL Client CA | ||
10160 | The extended key usage extension must be absent or include the | ||
10161 | .Qq web client authentication | ||
10162 | OID. | ||
10163 | Netscape certificate type must be absent or it must have the SSL CA | ||
10164 | bit set: this is used as a work around if the | ||
10165 | .Em basicConstraints | ||
10166 | extension is absent. | ||
10167 | .It Ar SSL Server | ||
10168 | The extended key usage extension must be absent or include the | ||
10169 | .Qq web server authentication | ||
10170 | and/or one of the SGC OIDs. | ||
10171 | .Em keyUsage | ||
10172 | must be absent or it must have the | ||
10173 | .Em digitalSignature | ||
10174 | set, the | ||
10175 | .Em keyEncipherment | ||
10176 | set, or both bits set. | ||
10177 | Netscape certificate type must be absent or have the SSL server bit set. | ||
10178 | .It Ar SSL Server CA | ||
10179 | The extended key usage extension must be absent or include the | ||
10180 | .Qq web server authentication | ||
10181 | and/or one of the SGC OIDs. | ||
10182 | Netscape certificate type must be absent or the SSL CA | ||
10183 | bit must be set: this is used as a work around if the | ||
10184 | .Em basicConstraints | ||
10185 | extension is absent. | ||
10186 | .It Ar Netscape SSL Server | ||
10187 | For Netscape SSL clients to connect to an SSL server; it must have the | ||
10188 | .Em keyEncipherment | ||
10189 | bit set if the | ||
10190 | .Em keyUsage | ||
10191 | extension is present. | ||
10192 | This isn't always valid because some cipher suites use the key for | ||
10193 | digital signing. | ||
10194 | Otherwise it is the same as a normal SSL server. | ||
10195 | .It Ar Common S/MIME Client Tests | ||
10196 | The extended key usage extension must be absent or include the | ||
10197 | .Qq email protection | ||
10198 | OID. | ||
10199 | Netscape certificate type must be absent or should have the | ||
10200 | .Em S/MIME | ||
10201 | bit set. | ||
10202 | If the | ||
10203 | .Em S/MIME | ||
10204 | bit is not set in Netscape certificate type, then the SSL | ||
10205 | client bit is tolerated as an alternative but a warning is shown: | ||
10206 | this is because some Verisign certificates don't set the | ||
10207 | .Em S/MIME | ||
10208 | bit. | ||
10209 | .It Ar S/MIME Signing | ||
10210 | In addition to the common | ||
10211 | .Em S/MIME | ||
10212 | client tests, the | ||
10213 | .Em digitalSignature | ||
10214 | bit must be set if the | ||
10215 | .Em keyUsage | ||
10216 | extension is present. | ||
10217 | .It Ar S/MIME Encryption | ||
10218 | In addition to the common | ||
10219 | .Em S/MIME | ||
10220 | tests, the | ||
10221 | .Em keyEncipherment | ||
10222 | bit must be set if the | ||
10223 | .Em keyUsage | ||
10224 | extension is present. | ||
10225 | .It Ar S/MIME CA | ||
10226 | The extended key usage extension must be absent or include the | ||
10227 | .Qq email protection | ||
10228 | OID. | ||
10229 | Netscape certificate type must be absent or must have the | ||
10230 | .Em S/MIME CA | ||
10231 | bit set: this is used as a work around if the | ||
10232 | .Em basicConstraints | ||
10233 | extension is absent. | ||
10234 | .It Ar CRL Signing | ||
10235 | The | ||
10236 | .Em keyUsage | ||
10237 | extension must be absent or it must have the | ||
10238 | .Em CRL | ||
10239 | signing bit set. | ||
10240 | .It Ar CRL Signing CA | ||
10241 | The normal CA tests apply. | ||
10242 | Except in this case the | ||
10243 | .Em basicConstraints | ||
10244 | extension must be present. | ||
10245 | .El | ||
10246 | .Sh X509 BUGS | ||
10247 | Extensions in certificates are not transferred to certificate requests and | ||
10248 | vice versa. | ||
10249 | .Pp | ||
10250 | It is possible to produce invalid certificates or requests by specifying the | ||
10251 | wrong private key or using inconsistent options in some cases: these should | ||
10252 | be checked. | ||
10253 | .Pp | ||
10254 | There should be options to explicitly set such things as start and end dates, | ||
10255 | rather than an offset from the current time. | ||
10256 | .Pp | ||
10257 | The code to implement the verify behaviour described in the | ||
10258 | .Sx X509 TRUST SETTINGS | ||
10259 | is currently being developed. | ||
10260 | It thus describes the intended behaviour rather than the current behaviour. | ||
10261 | It is hoped that it will represent reality in | ||
10262 | .Nm OpenSSL | ||
10263 | 0.9.5 and later. | ||
10264 | .Sh X509 HISTORY | ||
10265 | Before | ||
10266 | .Nm OpenSSL | ||
10267 | 0.9.8, | ||
10268 | the default digest for RSA keys was MD5. | ||
10269 | .Pp | ||
10270 | The hash algorithm used in the | ||
10271 | .Fl subject_hash | ||
10272 | and | ||
10273 | .Fl issuer_hash | ||
10274 | options before | ||
10275 | .Nm OpenSSL | ||
10276 | 1.0.0 was based on the deprecated MD5 algorithm and the encoding | ||
10277 | of the distinguished name. | ||
10278 | In | ||
10279 | .Nm OpenSSL | ||
10280 | 1.0.0 and later it is based on a canonical version of the DN using SHA1. | ||
10281 | This means that any directories using the old form | ||
10282 | must have their links rebuilt using | ||
10283 | .Ar c_rehash | ||
10284 | or similar. | ||
10285 | .\" | ||
10286 | .\" FILES | ||
10287 | .\" | ||
10288 | .Sh FILES | ||
10289 | .Bl -tag -width "/etc/ssl/openssl.cnf" -compact | ||
10290 | .It /etc/ssl/ | ||
10291 | Default config directory for | ||
10292 | .Nm openssl . | ||
10293 | .It /etc/ssl/lib/ | ||
10294 | Unused. | ||
10295 | .It /etc/ssl/private/ | ||
10296 | Default private key directory. | ||
10297 | .It /etc/ssl/openssl.cnf | ||
10298 | Default configuration file for | ||
10299 | .Nm openssl . | ||
10300 | .It /etc/ssl/x509v3.cnf | ||
10301 | Default configuration file for | ||
10302 | .Nm x509 | ||
10303 | certificates. | ||
10304 | .El | ||
10305 | .\" | ||
10306 | .\" SEE ALSO | ||
10307 | .\" | ||
10308 | .Sh SEE ALSO | ||
10309 | .Xr nginx 8 , | ||
10310 | .Xr sendmail 8 , | ||
10311 | .Xr ssl 8 , | ||
10312 | .Xr starttls 8 | ||
10313 | .Sh STANDARDS | ||
10314 | .Rs | ||
10315 | .%D February 1995 | ||
10316 | .%Q Netscape Communications Corp. | ||
10317 | .%T The SSL Protocol | ||
10318 | .Re | ||
10319 | .Pp | ||
10320 | .Rs | ||
10321 | .%D November 1996 | ||
10322 | .%Q Netscape Communications Corp. | ||
10323 | .%T The SSL 3.0 Protocol | ||
10324 | .Re | ||
10325 | .Pp | ||
10326 | .Rs | ||
10327 | .%A T. Dierks | ||
10328 | .%A C. Allen | ||
10329 | .%D January 1999 | ||
10330 | .%R RFC 2246 | ||
10331 | .%T The TLS Protocol Version 1.0 | ||
10332 | .Re | ||
10333 | .Pp | ||
10334 | .Rs | ||
10335 | .%A M. Wahl | ||
10336 | .%A S. Killie | ||
10337 | .%A T. Howes | ||
10338 | .%D December 1997 | ||
10339 | .%R RFC 2253 | ||
10340 | .%T Lightweight Directory Access Protocol (v3): UTF-8 String Representation of Distinguished Names | ||
10341 | .Re | ||
10342 | .Pp | ||
10343 | .Rs | ||
10344 | .%A B. Kaliski | ||
10345 | .%D March 1998 | ||
10346 | .%R RFC 2315 | ||
10347 | .%T PKCS #7: Cryptographic Message Syntax Version 1.5 | ||
10348 | .Re | ||
10349 | .Pp | ||
10350 | .Rs | ||
10351 | .%A R. Housley | ||
10352 | .%A W. Ford | ||
10353 | .%A W. Polk | ||
10354 | .%A D. Solo | ||
10355 | .%D January 1999 | ||
10356 | .%R RFC 2459 | ||
10357 | .%T Internet X.509 Public Key Infrastructure Certificate and CRL Profile | ||
10358 | .Re | ||
10359 | .Pp | ||
10360 | .Rs | ||
10361 | .%A M. Myers | ||
10362 | .%A R. Ankney | ||
10363 | .%A A. Malpani | ||
10364 | .%A S. Galperin | ||
10365 | .%A C. Adams | ||
10366 | .%D June 1999 | ||
10367 | .%R RFC 2560 | ||
10368 | .%T X.509 Internet Public Key Infrastructure Online Certificate Status Protocol \(en OCSP | ||
10369 | .Re | ||
10370 | .Pp | ||
10371 | .Rs | ||
10372 | .%A R. Housley | ||
10373 | .%D June 1999 | ||
10374 | .%R RFC 2630 | ||
10375 | .%T Cryptographic Message Syntax | ||
10376 | .Re | ||
10377 | .Pp | ||
10378 | .Rs | ||
10379 | .%A P. Chown | ||
10380 | .%D June 2002 | ||
10381 | .%R RFC 3268 | ||
10382 | .%T Advanced Encryption Standard (AES) Ciphersuites for Transport Layer Security(TLS) | ||
10383 | .Re | ||
10384 | .\" | ||
10385 | .\" OPENSSL HISTORY | ||
10386 | .\" | ||
10387 | .Sh HISTORY | ||
10388 | The | ||
10389 | .Xr openssl 1 | ||
10390 | document appeared in | ||
10391 | .Nm OpenSSL | ||
10392 | 0.9.2. | ||
10393 | The | ||
10394 | .Cm list- Ns XXX Ns Cm -commands | ||
10395 | pseudo-commands were added in | ||
10396 | .Nm OpenSSL | ||
10397 | 0.9.3; | ||
10398 | the | ||
10399 | .Cm no- Ns XXX | ||
10400 | pseudo-commands were added in | ||
10401 | .Nm OpenSSL | ||
10402 | 0.9.5a; | ||
10403 | the | ||
10404 | .Cm list- Ns XXX Ns Cm -algorithms | ||
10405 | pseudo-commands were added in | ||
10406 | .Nm OpenSSL | ||
10407 | 1.0.0. | ||
diff --git a/src/usr.bin/openssl/openssl.c b/src/usr.bin/openssl/openssl.c new file mode 100644 index 0000000000..bcb9b56b74 --- /dev/null +++ b/src/usr.bin/openssl/openssl.c | |||
@@ -0,0 +1,639 @@ | |||
1 | /* $OpenBSD: openssl.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
2 | /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) | ||
3 | * All rights reserved. | ||
4 | * | ||
5 | * This package is an SSL implementation written | ||
6 | * by Eric Young (eay@cryptsoft.com). | ||
7 | * The implementation was written so as to conform with Netscapes SSL. | ||
8 | * | ||
9 | * This library is free for commercial and non-commercial use as long as | ||
10 | * the following conditions are aheared to. The following conditions | ||
11 | * apply to all code found in this distribution, be it the RC4, RSA, | ||
12 | * lhash, DES, etc., code; not just the SSL code. The SSL documentation | ||
13 | * included with this distribution is covered by the same copyright terms | ||
14 | * except that the holder is Tim Hudson (tjh@cryptsoft.com). | ||
15 | * | ||
16 | * Copyright remains Eric Young's, and as such any Copyright notices in | ||
17 | * the code are not to be removed. | ||
18 | * If this package is used in a product, Eric Young should be given attribution | ||
19 | * as the author of the parts of the library used. | ||
20 | * This can be in the form of a textual message at program startup or | ||
21 | * in documentation (online or textual) provided with the package. | ||
22 | * | ||
23 | * Redistribution and use in source and binary forms, with or without | ||
24 | * modification, are permitted provided that the following conditions | ||
25 | * are met: | ||
26 | * 1. Redistributions of source code must retain the copyright | ||
27 | * notice, this list of conditions and the following disclaimer. | ||
28 | * 2. Redistributions in binary form must reproduce the above copyright | ||
29 | * notice, this list of conditions and the following disclaimer in the | ||
30 | * documentation and/or other materials provided with the distribution. | ||
31 | * 3. All advertising materials mentioning features or use of this software | ||
32 | * must display the following acknowledgement: | ||
33 | * "This product includes cryptographic software written by | ||
34 | * Eric Young (eay@cryptsoft.com)" | ||
35 | * The word 'cryptographic' can be left out if the rouines from the library | ||
36 | * being used are not cryptographic related :-). | ||
37 | * 4. If you include any Windows specific code (or a derivative thereof) from | ||
38 | * the apps directory (application code) you must include an acknowledgement: | ||
39 | * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" | ||
40 | * | ||
41 | * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND | ||
42 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
43 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
44 | * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE | ||
45 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
46 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
47 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
48 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
49 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
50 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
51 | * SUCH DAMAGE. | ||
52 | * | ||
53 | * The licence and distribution terms for any publically available version or | ||
54 | * derivative of this code cannot be changed. i.e. this code cannot simply be | ||
55 | * copied and put under another distribution licence | ||
56 | * [including the GNU Public Licence.] | ||
57 | */ | ||
58 | /* ==================================================================== | ||
59 | * Copyright (c) 1998-2006 The OpenSSL Project. All rights reserved. | ||
60 | * | ||
61 | * Redistribution and use in source and binary forms, with or without | ||
62 | * modification, are permitted provided that the following conditions | ||
63 | * are met: | ||
64 | * | ||
65 | * 1. Redistributions of source code must retain the above copyright | ||
66 | * notice, this list of conditions and the following disclaimer. | ||
67 | * | ||
68 | * 2. Redistributions in binary form must reproduce the above copyright | ||
69 | * notice, this list of conditions and the following disclaimer in | ||
70 | * the documentation and/or other materials provided with the | ||
71 | * distribution. | ||
72 | * | ||
73 | * 3. All advertising materials mentioning features or use of this | ||
74 | * software must display the following acknowledgment: | ||
75 | * "This product includes software developed by the OpenSSL Project | ||
76 | * for use in the OpenSSL Toolkit. (http://www.openssl.org/)" | ||
77 | * | ||
78 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
79 | * endorse or promote products derived from this software without | ||
80 | * prior written permission. For written permission, please contact | ||
81 | * openssl-core@openssl.org. | ||
82 | * | ||
83 | * 5. Products derived from this software may not be called "OpenSSL" | ||
84 | * nor may "OpenSSL" appear in their names without prior written | ||
85 | * permission of the OpenSSL Project. | ||
86 | * | ||
87 | * 6. Redistributions of any form whatsoever must retain the following | ||
88 | * acknowledgment: | ||
89 | * "This product includes software developed by the OpenSSL Project | ||
90 | * for use in the OpenSSL Toolkit (http://www.openssl.org/)" | ||
91 | * | ||
92 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
93 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
94 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
95 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
96 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
97 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
98 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
99 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
100 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
101 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
102 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
103 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
104 | * ==================================================================== | ||
105 | * | ||
106 | * This product includes cryptographic software written by Eric Young | ||
107 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
108 | * Hudson (tjh@cryptsoft.com). | ||
109 | * | ||
110 | */ | ||
111 | |||
112 | #include <err.h> | ||
113 | #include <signal.h> | ||
114 | #include <stdio.h> | ||
115 | #include <string.h> | ||
116 | #include <stdlib.h> | ||
117 | |||
118 | #include "apps.h" | ||
119 | |||
120 | #include <openssl/bio.h> | ||
121 | #include <openssl/conf.h> | ||
122 | #include <openssl/crypto.h> | ||
123 | #include <openssl/err.h> | ||
124 | #include <openssl/lhash.h> | ||
125 | #include <openssl/pem.h> | ||
126 | #include <openssl/rand.h> | ||
127 | #include <openssl/ssl.h> | ||
128 | #include <openssl/x509.h> | ||
129 | |||
130 | #ifndef OPENSSL_NO_ENGINE | ||
131 | #include <openssl/engine.h> | ||
132 | #endif | ||
133 | |||
134 | #include "progs.h" | ||
135 | #include "s_apps.h" | ||
136 | |||
137 | static void openssl_startup(void); | ||
138 | static void openssl_shutdown(void); | ||
139 | |||
140 | /* The LHASH callbacks ("hash" & "cmp") have been replaced by functions with the | ||
141 | * base prototypes (we cast each variable inside the function to the required | ||
142 | * type of "FUNCTION*"). This removes the necessity for macro-generated wrapper | ||
143 | * functions. */ | ||
144 | |||
145 | static LHASH_OF(FUNCTION) *prog_init(void); | ||
146 | static int do_cmd(LHASH_OF(FUNCTION) *prog, int argc, char *argv[]); | ||
147 | static void list_pkey(BIO * out); | ||
148 | static void list_cipher(BIO * out); | ||
149 | static void list_md(BIO * out); | ||
150 | char *default_config_file = NULL; | ||
151 | |||
152 | CONF *config = NULL; | ||
153 | BIO *bio_err = NULL; | ||
154 | |||
155 | static void | ||
156 | lock_dbg_cb(int mode, int type, const char *file, int line) | ||
157 | { | ||
158 | static int modes[CRYPTO_NUM_LOCKS]; /* = {0, 0, ... } */ | ||
159 | const char *errstr = NULL; | ||
160 | int rw; | ||
161 | |||
162 | rw = mode & (CRYPTO_READ | CRYPTO_WRITE); | ||
163 | if (!((rw == CRYPTO_READ) || (rw == CRYPTO_WRITE))) { | ||
164 | errstr = "invalid mode"; | ||
165 | goto err; | ||
166 | } | ||
167 | if (type < 0 || type >= CRYPTO_NUM_LOCKS) { | ||
168 | errstr = "type out of bounds"; | ||
169 | goto err; | ||
170 | } | ||
171 | if (mode & CRYPTO_LOCK) { | ||
172 | if (modes[type]) { | ||
173 | errstr = "already locked"; | ||
174 | /* | ||
175 | * must not happen in a single-threaded program | ||
176 | * (would deadlock) | ||
177 | */ | ||
178 | goto err; | ||
179 | } | ||
180 | modes[type] = rw; | ||
181 | } else if (mode & CRYPTO_UNLOCK) { | ||
182 | if (!modes[type]) { | ||
183 | errstr = "not locked"; | ||
184 | goto err; | ||
185 | } | ||
186 | if (modes[type] != rw) { | ||
187 | errstr = (rw == CRYPTO_READ) ? | ||
188 | "CRYPTO_r_unlock on write lock" : | ||
189 | "CRYPTO_w_unlock on read lock"; | ||
190 | } | ||
191 | modes[type] = 0; | ||
192 | } else { | ||
193 | errstr = "invalid mode"; | ||
194 | goto err; | ||
195 | } | ||
196 | |||
197 | err: | ||
198 | if (errstr) { | ||
199 | /* we cannot use bio_err here */ | ||
200 | fprintf(stderr, "openssl (lock_dbg_cb): %s (mode=%d, type=%d) at %s:%d\n", | ||
201 | errstr, mode, type, file, line); | ||
202 | } | ||
203 | } | ||
204 | |||
205 | static void | ||
206 | openssl_startup(void) | ||
207 | { | ||
208 | signal(SIGPIPE, SIG_IGN); | ||
209 | |||
210 | CRYPTO_malloc_init(); | ||
211 | OpenSSL_add_all_algorithms(); | ||
212 | SSL_library_init(); | ||
213 | SSL_load_error_strings(); | ||
214 | |||
215 | #ifndef OPENSSL_NO_ENGINE | ||
216 | ENGINE_load_builtin_engines(); | ||
217 | #endif | ||
218 | |||
219 | setup_ui_method(); | ||
220 | } | ||
221 | |||
222 | static void | ||
223 | openssl_shutdown(void) | ||
224 | { | ||
225 | CONF_modules_unload(1); | ||
226 | destroy_ui_method(); | ||
227 | OBJ_cleanup(); | ||
228 | EVP_cleanup(); | ||
229 | |||
230 | #ifndef OPENSSL_NO_ENGINE | ||
231 | ENGINE_cleanup(); | ||
232 | #endif | ||
233 | |||
234 | CRYPTO_cleanup_all_ex_data(); | ||
235 | ERR_remove_thread_state(NULL); | ||
236 | RAND_cleanup(); | ||
237 | ERR_free_strings(); | ||
238 | } | ||
239 | |||
240 | int | ||
241 | main(int argc, char **argv) | ||
242 | { | ||
243 | ARGS arg; | ||
244 | #define PROG_NAME_SIZE 39 | ||
245 | char pname[PROG_NAME_SIZE + 1]; | ||
246 | FUNCTION f, *fp; | ||
247 | const char *prompt; | ||
248 | char buf[1024]; | ||
249 | char *to_free = NULL; | ||
250 | int n, i, ret = 0; | ||
251 | char *p; | ||
252 | LHASH_OF(FUNCTION) * prog = NULL; | ||
253 | long errline; | ||
254 | |||
255 | arg.data = NULL; | ||
256 | arg.count = 0; | ||
257 | |||
258 | bio_err = BIO_new_fp(stderr, BIO_NOCLOSE); | ||
259 | if (bio_err == NULL) { | ||
260 | fprintf(stderr, "openssl: failed to initialise bio_err\n"); | ||
261 | exit(1); | ||
262 | } | ||
263 | |||
264 | CRYPTO_set_locking_callback(lock_dbg_cb); | ||
265 | |||
266 | openssl_startup(); | ||
267 | |||
268 | /* Lets load up our environment a little */ | ||
269 | p = getenv("OPENSSL_CONF"); | ||
270 | if (p == NULL) | ||
271 | p = getenv("SSLEAY_CONF"); | ||
272 | if (p == NULL) { | ||
273 | p = to_free = make_config_name(); | ||
274 | if (p == NULL) { | ||
275 | BIO_printf(bio_err, "error making config file name\n"); | ||
276 | goto end; | ||
277 | } | ||
278 | } | ||
279 | |||
280 | default_config_file = p; | ||
281 | |||
282 | config = NCONF_new(NULL); | ||
283 | i = NCONF_load(config, p, &errline); | ||
284 | if (i == 0) { | ||
285 | if (ERR_GET_REASON(ERR_peek_last_error()) == | ||
286 | CONF_R_NO_SUCH_FILE) { | ||
287 | BIO_printf(bio_err, | ||
288 | "WARNING: can't open config file: %s\n", p); | ||
289 | ERR_clear_error(); | ||
290 | NCONF_free(config); | ||
291 | config = NULL; | ||
292 | } else { | ||
293 | ERR_print_errors(bio_err); | ||
294 | NCONF_free(config); | ||
295 | exit(1); | ||
296 | } | ||
297 | } | ||
298 | |||
299 | if (!load_config(bio_err, NULL)) { | ||
300 | BIO_printf(bio_err, "failed to load configuration\n"); | ||
301 | goto end; | ||
302 | } | ||
303 | |||
304 | prog = prog_init(); | ||
305 | |||
306 | /* first check the program name */ | ||
307 | program_name(argv[0], pname, sizeof pname); | ||
308 | |||
309 | f.name = pname; | ||
310 | fp = lh_FUNCTION_retrieve(prog, &f); | ||
311 | if (fp != NULL) { | ||
312 | argv[0] = pname; | ||
313 | ret = fp->func(argc, argv); | ||
314 | goto end; | ||
315 | } | ||
316 | /* | ||
317 | * ok, now check that there are not arguments, if there are, run with | ||
318 | * them, shifting the ssleay off the front | ||
319 | */ | ||
320 | if (argc != 1) { | ||
321 | argc--; | ||
322 | argv++; | ||
323 | ret = do_cmd(prog, argc, argv); | ||
324 | if (ret < 0) | ||
325 | ret = 0; | ||
326 | goto end; | ||
327 | } | ||
328 | /* ok, lets enter the old 'OpenSSL>' mode */ | ||
329 | |||
330 | for (;;) { | ||
331 | ret = 0; | ||
332 | p = buf; | ||
333 | n = sizeof buf; | ||
334 | i = 0; | ||
335 | for (;;) { | ||
336 | p[0] = '\0'; | ||
337 | if (i++) | ||
338 | prompt = ">"; | ||
339 | else | ||
340 | prompt = "OpenSSL> "; | ||
341 | fputs(prompt, stdout); | ||
342 | fflush(stdout); | ||
343 | if (!fgets(p, n, stdin)) | ||
344 | goto end; | ||
345 | if (p[0] == '\0') | ||
346 | goto end; | ||
347 | i = strlen(p); | ||
348 | if (i <= 1) | ||
349 | break; | ||
350 | if (p[i - 2] != '\\') | ||
351 | break; | ||
352 | i -= 2; | ||
353 | p += i; | ||
354 | n -= i; | ||
355 | } | ||
356 | if (!chopup_args(&arg, buf, &argc, &argv)) | ||
357 | break; | ||
358 | |||
359 | ret = do_cmd(prog, argc, argv); | ||
360 | if (ret < 0) { | ||
361 | ret = 0; | ||
362 | goto end; | ||
363 | } | ||
364 | if (ret != 0) | ||
365 | BIO_printf(bio_err, "error in %s\n", argv[0]); | ||
366 | (void) BIO_flush(bio_err); | ||
367 | } | ||
368 | BIO_printf(bio_err, "bad exit\n"); | ||
369 | ret = 1; | ||
370 | |||
371 | end: | ||
372 | free(to_free); | ||
373 | |||
374 | if (config != NULL) { | ||
375 | NCONF_free(config); | ||
376 | config = NULL; | ||
377 | } | ||
378 | if (prog != NULL) | ||
379 | lh_FUNCTION_free(prog); | ||
380 | free(arg.data); | ||
381 | |||
382 | openssl_shutdown(); | ||
383 | |||
384 | if (bio_err != NULL) { | ||
385 | BIO_free(bio_err); | ||
386 | bio_err = NULL; | ||
387 | } | ||
388 | return (ret); | ||
389 | } | ||
390 | |||
391 | #define LIST_STANDARD_COMMANDS "list-standard-commands" | ||
392 | #define LIST_MESSAGE_DIGEST_COMMANDS "list-message-digest-commands" | ||
393 | #define LIST_MESSAGE_DIGEST_ALGORITHMS "list-message-digest-algorithms" | ||
394 | #define LIST_CIPHER_COMMANDS "list-cipher-commands" | ||
395 | #define LIST_CIPHER_ALGORITHMS "list-cipher-algorithms" | ||
396 | #define LIST_PUBLIC_KEY_ALGORITHMS "list-public-key-algorithms" | ||
397 | |||
398 | |||
399 | static int | ||
400 | do_cmd(LHASH_OF(FUNCTION) * prog, int argc, char *argv[]) | ||
401 | { | ||
402 | FUNCTION f, *fp; | ||
403 | int i, ret = 1, tp, nl; | ||
404 | |||
405 | if ((argc <= 0) || (argv[0] == NULL)) { | ||
406 | ret = 0; | ||
407 | goto end; | ||
408 | } | ||
409 | f.name = argv[0]; | ||
410 | fp = lh_FUNCTION_retrieve(prog, &f); | ||
411 | if (fp == NULL) { | ||
412 | if (EVP_get_digestbyname(argv[0])) { | ||
413 | f.type = FUNC_TYPE_MD; | ||
414 | f.func = dgst_main; | ||
415 | fp = &f; | ||
416 | } else if (EVP_get_cipherbyname(argv[0])) { | ||
417 | f.type = FUNC_TYPE_CIPHER; | ||
418 | f.func = enc_main; | ||
419 | fp = &f; | ||
420 | } | ||
421 | } | ||
422 | if (fp != NULL) { | ||
423 | ret = fp->func(argc, argv); | ||
424 | } else if ((strncmp(argv[0], "no-", 3)) == 0) { | ||
425 | BIO *bio_stdout = BIO_new_fp(stdout, BIO_NOCLOSE); | ||
426 | f.name = argv[0] + 3; | ||
427 | ret = (lh_FUNCTION_retrieve(prog, &f) != NULL); | ||
428 | if (!ret) | ||
429 | BIO_printf(bio_stdout, "%s\n", argv[0]); | ||
430 | else | ||
431 | BIO_printf(bio_stdout, "%s\n", argv[0] + 3); | ||
432 | BIO_free_all(bio_stdout); | ||
433 | goto end; | ||
434 | } else if ((strcmp(argv[0], "quit") == 0) || | ||
435 | (strcmp(argv[0], "q") == 0) || | ||
436 | (strcmp(argv[0], "exit") == 0) || | ||
437 | (strcmp(argv[0], "bye") == 0)) { | ||
438 | ret = -1; | ||
439 | goto end; | ||
440 | } else if ((strcmp(argv[0], LIST_STANDARD_COMMANDS) == 0) || | ||
441 | (strcmp(argv[0], LIST_MESSAGE_DIGEST_COMMANDS) == 0) || | ||
442 | (strcmp(argv[0], LIST_MESSAGE_DIGEST_ALGORITHMS) == 0) || | ||
443 | (strcmp(argv[0], LIST_CIPHER_COMMANDS) == 0) || | ||
444 | (strcmp(argv[0], LIST_CIPHER_ALGORITHMS) == 0) || | ||
445 | (strcmp(argv[0], LIST_PUBLIC_KEY_ALGORITHMS) == 0)) { | ||
446 | int list_type; | ||
447 | BIO *bio_stdout; | ||
448 | |||
449 | if (strcmp(argv[0], LIST_STANDARD_COMMANDS) == 0) | ||
450 | list_type = FUNC_TYPE_GENERAL; | ||
451 | else if (strcmp(argv[0], LIST_MESSAGE_DIGEST_COMMANDS) == 0) | ||
452 | list_type = FUNC_TYPE_MD; | ||
453 | else if (strcmp(argv[0], LIST_MESSAGE_DIGEST_ALGORITHMS) == 0) | ||
454 | list_type = FUNC_TYPE_MD_ALG; | ||
455 | else if (strcmp(argv[0], LIST_PUBLIC_KEY_ALGORITHMS) == 0) | ||
456 | list_type = FUNC_TYPE_PKEY; | ||
457 | else if (strcmp(argv[0], LIST_CIPHER_ALGORITHMS) == 0) | ||
458 | list_type = FUNC_TYPE_CIPHER_ALG; | ||
459 | else /* strcmp(argv[0],LIST_CIPHER_COMMANDS) == 0 */ | ||
460 | list_type = FUNC_TYPE_CIPHER; | ||
461 | bio_stdout = BIO_new_fp(stdout, BIO_NOCLOSE); | ||
462 | |||
463 | if (list_type == FUNC_TYPE_PKEY) | ||
464 | list_pkey(bio_stdout); | ||
465 | if (list_type == FUNC_TYPE_MD_ALG) | ||
466 | list_md(bio_stdout); | ||
467 | if (list_type == FUNC_TYPE_CIPHER_ALG) | ||
468 | list_cipher(bio_stdout); | ||
469 | else { | ||
470 | for (fp = functions; fp->name != NULL; fp++) | ||
471 | if (fp->type == list_type) | ||
472 | BIO_printf(bio_stdout, "%s\n", | ||
473 | fp->name); | ||
474 | } | ||
475 | BIO_free_all(bio_stdout); | ||
476 | ret = 0; | ||
477 | goto end; | ||
478 | } else { | ||
479 | BIO_printf(bio_err, | ||
480 | "openssl:Error: '%s' is an invalid command.\n", | ||
481 | argv[0]); | ||
482 | BIO_printf(bio_err, "\nStandard commands"); | ||
483 | i = 0; | ||
484 | tp = 0; | ||
485 | for (fp = functions; fp->name != NULL; fp++) { | ||
486 | nl = 0; | ||
487 | #ifdef OPENSSL_NO_CAMELLIA | ||
488 | if (((i++) % 5) == 0) | ||
489 | #else | ||
490 | if (((i++) % 4) == 0) | ||
491 | #endif | ||
492 | { | ||
493 | BIO_printf(bio_err, "\n"); | ||
494 | nl = 1; | ||
495 | } | ||
496 | if (fp->type != tp) { | ||
497 | tp = fp->type; | ||
498 | if (!nl) | ||
499 | BIO_printf(bio_err, "\n"); | ||
500 | if (tp == FUNC_TYPE_MD) { | ||
501 | i = 1; | ||
502 | BIO_printf(bio_err, | ||
503 | "\nMessage Digest commands (see the `dgst' command for more details)\n"); | ||
504 | } else if (tp == FUNC_TYPE_CIPHER) { | ||
505 | i = 1; | ||
506 | BIO_printf(bio_err, "\nCipher commands (see the `enc' command for more details)\n"); | ||
507 | } | ||
508 | } | ||
509 | #ifdef OPENSSL_NO_CAMELLIA | ||
510 | BIO_printf(bio_err, "%-15s", fp->name); | ||
511 | #else | ||
512 | BIO_printf(bio_err, "%-18s", fp->name); | ||
513 | #endif | ||
514 | } | ||
515 | BIO_printf(bio_err, "\n\n"); | ||
516 | ret = 0; | ||
517 | } | ||
518 | end: | ||
519 | return (ret); | ||
520 | } | ||
521 | |||
522 | static int | ||
523 | SortFnByName(const void *_f1, const void *_f2) | ||
524 | { | ||
525 | const FUNCTION *f1 = _f1; | ||
526 | const FUNCTION *f2 = _f2; | ||
527 | |||
528 | if (f1->type != f2->type) | ||
529 | return f1->type - f2->type; | ||
530 | return strcmp(f1->name, f2->name); | ||
531 | } | ||
532 | |||
533 | static void | ||
534 | list_pkey(BIO * out) | ||
535 | { | ||
536 | int i; | ||
537 | |||
538 | for (i = 0; i < EVP_PKEY_asn1_get_count(); i++) { | ||
539 | const EVP_PKEY_ASN1_METHOD *ameth; | ||
540 | int pkey_id, pkey_base_id, pkey_flags; | ||
541 | const char *pinfo, *pem_str; | ||
542 | ameth = EVP_PKEY_asn1_get0(i); | ||
543 | EVP_PKEY_asn1_get0_info(&pkey_id, &pkey_base_id, &pkey_flags, | ||
544 | &pinfo, &pem_str, ameth); | ||
545 | if (pkey_flags & ASN1_PKEY_ALIAS) { | ||
546 | BIO_printf(out, "Name: %s\n", | ||
547 | OBJ_nid2ln(pkey_id)); | ||
548 | BIO_printf(out, "\tType: Alias to %s\n", | ||
549 | OBJ_nid2ln(pkey_base_id)); | ||
550 | } else { | ||
551 | BIO_printf(out, "Name: %s\n", pinfo); | ||
552 | BIO_printf(out, "\tType: %s Algorithm\n", | ||
553 | pkey_flags & ASN1_PKEY_DYNAMIC ? | ||
554 | "External" : "Builtin"); | ||
555 | BIO_printf(out, "\tOID: %s\n", OBJ_nid2ln(pkey_id)); | ||
556 | if (pem_str == NULL) | ||
557 | pem_str = "(none)"; | ||
558 | BIO_printf(out, "\tPEM string: %s\n", pem_str); | ||
559 | } | ||
560 | |||
561 | } | ||
562 | } | ||
563 | |||
564 | static void | ||
565 | list_cipher_fn(const EVP_CIPHER * c, const char *from, const char *to, | ||
566 | void *arg) | ||
567 | { | ||
568 | if (c) | ||
569 | BIO_printf(arg, "%s\n", EVP_CIPHER_name(c)); | ||
570 | else { | ||
571 | if (!from) | ||
572 | from = "<undefined>"; | ||
573 | if (!to) | ||
574 | to = "<undefined>"; | ||
575 | BIO_printf(arg, "%s => %s\n", from, to); | ||
576 | } | ||
577 | } | ||
578 | |||
579 | static void | ||
580 | list_cipher(BIO * out) | ||
581 | { | ||
582 | EVP_CIPHER_do_all_sorted(list_cipher_fn, out); | ||
583 | } | ||
584 | |||
585 | static void | ||
586 | list_md_fn(const EVP_MD * m, const char *from, const char *to, void *arg) | ||
587 | { | ||
588 | if (m) | ||
589 | BIO_printf(arg, "%s\n", EVP_MD_name(m)); | ||
590 | else { | ||
591 | if (!from) | ||
592 | from = "<undefined>"; | ||
593 | if (!to) | ||
594 | to = "<undefined>"; | ||
595 | BIO_printf(arg, "%s => %s\n", from, to); | ||
596 | } | ||
597 | } | ||
598 | |||
599 | static void | ||
600 | list_md(BIO * out) | ||
601 | { | ||
602 | EVP_MD_do_all_sorted(list_md_fn, out); | ||
603 | } | ||
604 | |||
605 | static int | ||
606 | function_cmp(const FUNCTION * a, const FUNCTION * b) | ||
607 | { | ||
608 | return strncmp(a->name, b->name, 8); | ||
609 | } | ||
610 | |||
611 | static IMPLEMENT_LHASH_COMP_FN(function, FUNCTION) | ||
612 | |||
613 | static unsigned long | ||
614 | function_hash(const FUNCTION * a) | ||
615 | { | ||
616 | return lh_strhash(a->name); | ||
617 | } | ||
618 | |||
619 | static IMPLEMENT_LHASH_HASH_FN(function, FUNCTION) | ||
620 | |||
621 | static LHASH_OF(FUNCTION) * | ||
622 | prog_init(void) | ||
623 | { | ||
624 | LHASH_OF(FUNCTION) * ret; | ||
625 | FUNCTION *f; | ||
626 | size_t i; | ||
627 | |||
628 | /* Purely so it looks nice when the user hits ? */ | ||
629 | for (i = 0, f = functions; f->name != NULL; ++f, ++i) | ||
630 | ; | ||
631 | qsort(functions, i, sizeof *functions, SortFnByName); | ||
632 | |||
633 | if ((ret = lh_FUNCTION_new()) == NULL) | ||
634 | return (NULL); | ||
635 | |||
636 | for (f = functions; f->name != NULL; f++) | ||
637 | (void) lh_FUNCTION_insert(ret, f); | ||
638 | return (ret); | ||
639 | } | ||
diff --git a/src/usr.bin/openssl/passwd.c b/src/usr.bin/openssl/passwd.c new file mode 100644 index 0000000000..fd5d062f57 --- /dev/null +++ b/src/usr.bin/openssl/passwd.c | |||
@@ -0,0 +1,457 @@ | |||
1 | /* $OpenBSD: passwd.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
2 | |||
3 | #if defined OPENSSL_NO_MD5 | ||
4 | #define NO_MD5CRYPT_1 | ||
5 | #endif | ||
6 | |||
7 | #if !defined(OPENSSL_NO_DES) || !defined(NO_MD5CRYPT_1) | ||
8 | |||
9 | #include <assert.h> | ||
10 | #include <string.h> | ||
11 | |||
12 | #include "apps.h" | ||
13 | |||
14 | #include <openssl/bio.h> | ||
15 | #include <openssl/err.h> | ||
16 | #include <openssl/evp.h> | ||
17 | #include <openssl/rand.h> | ||
18 | |||
19 | #ifndef OPENSSL_NO_DES | ||
20 | #include <openssl/des.h> | ||
21 | #endif | ||
22 | |||
23 | #ifndef NO_MD5CRYPT_1 | ||
24 | #include <openssl/md5.h> | ||
25 | #endif | ||
26 | |||
27 | static unsigned const char cov_2char[64] = { | ||
28 | /* from crypto/des/fcrypt.c */ | ||
29 | 0x2E, 0x2F, 0x30, 0x31, 0x32, 0x33, 0x34, 0x35, | ||
30 | 0x36, 0x37, 0x38, 0x39, 0x41, 0x42, 0x43, 0x44, | ||
31 | 0x45, 0x46, 0x47, 0x48, 0x49, 0x4A, 0x4B, 0x4C, | ||
32 | 0x4D, 0x4E, 0x4F, 0x50, 0x51, 0x52, 0x53, 0x54, | ||
33 | 0x55, 0x56, 0x57, 0x58, 0x59, 0x5A, 0x61, 0x62, | ||
34 | 0x63, 0x64, 0x65, 0x66, 0x67, 0x68, 0x69, 0x6A, | ||
35 | 0x6B, 0x6C, 0x6D, 0x6E, 0x6F, 0x70, 0x71, 0x72, | ||
36 | 0x73, 0x74, 0x75, 0x76, 0x77, 0x78, 0x79, 0x7A | ||
37 | }; | ||
38 | |||
39 | static int | ||
40 | do_passwd(int passed_salt, char **salt_p, char **salt_malloc_p, | ||
41 | char *passwd, BIO * out, int quiet, int table, int reverse, | ||
42 | size_t pw_maxlen, int usecrypt, int use1, int useapr1); | ||
43 | |||
44 | /* -crypt - standard Unix password algorithm (default) | ||
45 | * -1 - MD5-based password algorithm | ||
46 | * -apr1 - MD5-based password algorithm, Apache variant | ||
47 | * -salt string - salt | ||
48 | * -in file - read passwords from file | ||
49 | * -stdin - read passwords from stdin | ||
50 | * -noverify - never verify when reading password from terminal | ||
51 | * -quiet - no warnings | ||
52 | * -table - format output as table | ||
53 | * -reverse - switch table columns | ||
54 | */ | ||
55 | |||
56 | int passwd_main(int, char **); | ||
57 | |||
58 | int | ||
59 | passwd_main(int argc, char **argv) | ||
60 | { | ||
61 | int ret = 1; | ||
62 | char *infile = NULL; | ||
63 | int in_stdin = 0; | ||
64 | int in_noverify = 0; | ||
65 | char *salt = NULL, *passwd = NULL, **passwds = NULL; | ||
66 | char *salt_malloc = NULL, *passwd_malloc = NULL; | ||
67 | size_t passwd_malloc_size = 0; | ||
68 | int pw_source_defined = 0; | ||
69 | BIO *in = NULL, *out = NULL; | ||
70 | int i, badopt, opt_done; | ||
71 | int passed_salt = 0, quiet = 0, table = 0, reverse = 0; | ||
72 | int usecrypt = 0, use1 = 0, useapr1 = 0; | ||
73 | size_t pw_maxlen = 0; | ||
74 | |||
75 | out = BIO_new(BIO_s_file()); | ||
76 | if (out == NULL) | ||
77 | goto err; | ||
78 | BIO_set_fp(out, stdout, BIO_NOCLOSE | BIO_FP_TEXT); | ||
79 | |||
80 | badopt = 0, opt_done = 0; | ||
81 | i = 0; | ||
82 | while (!badopt && !opt_done && argv[++i] != NULL) { | ||
83 | if (strcmp(argv[i], "-crypt") == 0) | ||
84 | usecrypt = 1; | ||
85 | else if (strcmp(argv[i], "-1") == 0) | ||
86 | use1 = 1; | ||
87 | else if (strcmp(argv[i], "-apr1") == 0) | ||
88 | useapr1 = 1; | ||
89 | else if (strcmp(argv[i], "-salt") == 0) { | ||
90 | if ((argv[i + 1] != NULL) && (salt == NULL)) { | ||
91 | passed_salt = 1; | ||
92 | salt = argv[++i]; | ||
93 | } else | ||
94 | badopt = 1; | ||
95 | } else if (strcmp(argv[i], "-in") == 0) { | ||
96 | if ((argv[i + 1] != NULL) && !pw_source_defined) { | ||
97 | pw_source_defined = 1; | ||
98 | infile = argv[++i]; | ||
99 | } else | ||
100 | badopt = 1; | ||
101 | } else if (strcmp(argv[i], "-stdin") == 0) { | ||
102 | if (!pw_source_defined) { | ||
103 | pw_source_defined = 1; | ||
104 | in_stdin = 1; | ||
105 | } else | ||
106 | badopt = 1; | ||
107 | } else if (strcmp(argv[i], "-noverify") == 0) | ||
108 | in_noverify = 1; | ||
109 | else if (strcmp(argv[i], "-quiet") == 0) | ||
110 | quiet = 1; | ||
111 | else if (strcmp(argv[i], "-table") == 0) | ||
112 | table = 1; | ||
113 | else if (strcmp(argv[i], "-reverse") == 0) | ||
114 | reverse = 1; | ||
115 | else if (argv[i][0] == '-') | ||
116 | badopt = 1; | ||
117 | else if (!pw_source_defined) | ||
118 | /* non-option arguments, use as passwords */ | ||
119 | { | ||
120 | pw_source_defined = 1; | ||
121 | passwds = &argv[i]; | ||
122 | opt_done = 1; | ||
123 | } else | ||
124 | badopt = 1; | ||
125 | } | ||
126 | |||
127 | if (!usecrypt && !use1 && !useapr1) /* use default */ | ||
128 | usecrypt = 1; | ||
129 | if (usecrypt + use1 + useapr1 > 1) /* conflict */ | ||
130 | badopt = 1; | ||
131 | |||
132 | /* reject unsupported algorithms */ | ||
133 | #ifdef OPENSSL_NO_DES | ||
134 | if (usecrypt) | ||
135 | badopt = 1; | ||
136 | #endif | ||
137 | #ifdef NO_MD5CRYPT_1 | ||
138 | if (use1 || useapr1) | ||
139 | badopt = 1; | ||
140 | #endif | ||
141 | |||
142 | if (badopt) { | ||
143 | BIO_printf(bio_err, "Usage: passwd [options] [passwords]\n"); | ||
144 | BIO_printf(bio_err, "where options are\n"); | ||
145 | #ifndef OPENSSL_NO_DES | ||
146 | BIO_printf(bio_err, "-crypt standard Unix password algorithm (default)\n"); | ||
147 | #endif | ||
148 | #ifndef NO_MD5CRYPT_1 | ||
149 | BIO_printf(bio_err, "-1 MD5-based password algorithm\n"); | ||
150 | BIO_printf(bio_err, "-apr1 MD5-based password algorithm, Apache variant\n"); | ||
151 | #endif | ||
152 | BIO_printf(bio_err, "-salt string use provided salt\n"); | ||
153 | BIO_printf(bio_err, "-in file read passwords from file\n"); | ||
154 | BIO_printf(bio_err, "-stdin read passwords from stdin\n"); | ||
155 | BIO_printf(bio_err, "-noverify never verify when reading password from terminal\n"); | ||
156 | BIO_printf(bio_err, "-quiet no warnings\n"); | ||
157 | BIO_printf(bio_err, "-table format output as table\n"); | ||
158 | BIO_printf(bio_err, "-reverse switch table columns\n"); | ||
159 | |||
160 | goto err; | ||
161 | } | ||
162 | if ((infile != NULL) || in_stdin) { | ||
163 | in = BIO_new(BIO_s_file()); | ||
164 | if (in == NULL) | ||
165 | goto err; | ||
166 | if (infile != NULL) { | ||
167 | assert(in_stdin == 0); | ||
168 | if (BIO_read_filename(in, infile) <= 0) | ||
169 | goto err; | ||
170 | } else { | ||
171 | assert(in_stdin); | ||
172 | BIO_set_fp(in, stdin, BIO_NOCLOSE); | ||
173 | } | ||
174 | } | ||
175 | if (usecrypt) | ||
176 | pw_maxlen = 8; | ||
177 | else if (use1 || useapr1) | ||
178 | pw_maxlen = 256;/* arbitrary limit, should be enough for most | ||
179 | * passwords */ | ||
180 | |||
181 | if (passwds == NULL) { | ||
182 | /* no passwords on the command line */ | ||
183 | |||
184 | passwd_malloc_size = pw_maxlen + 2; | ||
185 | /* longer than necessary so that we can warn about truncation */ | ||
186 | passwd = passwd_malloc = malloc(passwd_malloc_size); | ||
187 | if (passwd_malloc == NULL) | ||
188 | goto err; | ||
189 | } | ||
190 | if ((in == NULL) && (passwds == NULL)) { | ||
191 | /* build a null-terminated list */ | ||
192 | static char *passwds_static[2] = {NULL, NULL}; | ||
193 | |||
194 | passwds = passwds_static; | ||
195 | if (in == NULL) | ||
196 | if (EVP_read_pw_string(passwd_malloc, passwd_malloc_size, "Password: ", !(passed_salt || in_noverify)) != 0) | ||
197 | goto err; | ||
198 | passwds[0] = passwd_malloc; | ||
199 | } | ||
200 | if (in == NULL) { | ||
201 | assert(passwds != NULL); | ||
202 | assert(*passwds != NULL); | ||
203 | |||
204 | do { /* loop over list of passwords */ | ||
205 | passwd = *passwds++; | ||
206 | if (!do_passwd(passed_salt, &salt, &salt_malloc, passwd, out, | ||
207 | quiet, table, reverse, pw_maxlen, usecrypt, use1, useapr1)) | ||
208 | goto err; | ||
209 | } | ||
210 | while (*passwds != NULL); | ||
211 | } else | ||
212 | /* in != NULL */ | ||
213 | { | ||
214 | int done; | ||
215 | |||
216 | assert(passwd != NULL); | ||
217 | do { | ||
218 | int r = BIO_gets(in, passwd, pw_maxlen + 1); | ||
219 | if (r > 0) { | ||
220 | char *c = (strchr(passwd, '\n')); | ||
221 | if (c != NULL) | ||
222 | *c = 0; /* truncate at newline */ | ||
223 | else { | ||
224 | /* ignore rest of line */ | ||
225 | char trash[BUFSIZ]; | ||
226 | do | ||
227 | r = BIO_gets(in, trash, sizeof trash); | ||
228 | while ((r > 0) && (!strchr(trash, '\n'))); | ||
229 | } | ||
230 | |||
231 | if (!do_passwd(passed_salt, &salt, &salt_malloc, passwd, out, | ||
232 | quiet, table, reverse, pw_maxlen, usecrypt, use1, useapr1)) | ||
233 | goto err; | ||
234 | } | ||
235 | done = (r <= 0); | ||
236 | } | ||
237 | while (!done); | ||
238 | } | ||
239 | ret = 0; | ||
240 | |||
241 | err: | ||
242 | ERR_print_errors(bio_err); | ||
243 | free(salt_malloc); | ||
244 | free(passwd_malloc); | ||
245 | BIO_free(in); | ||
246 | if (out) | ||
247 | BIO_free_all(out); | ||
248 | |||
249 | return (ret); | ||
250 | } | ||
251 | |||
252 | |||
253 | #ifndef NO_MD5CRYPT_1 | ||
254 | /* MD5-based password algorithm (should probably be available as a library | ||
255 | * function; then the static buffer would not be acceptable). | ||
256 | * For magic string "1", this should be compatible to the MD5-based BSD | ||
257 | * password algorithm. | ||
258 | * For 'magic' string "apr1", this is compatible to the MD5-based Apache | ||
259 | * password algorithm. | ||
260 | * (Apparently, the Apache password algorithm is identical except that the | ||
261 | * 'magic' string was changed -- the laziest application of the NIH principle | ||
262 | * I've ever encountered.) | ||
263 | */ | ||
264 | static char * | ||
265 | md5crypt(const char *passwd, const char *magic, const char *salt) | ||
266 | { | ||
267 | static char out_buf[6 + 9 + 24 + 2]; /* "$apr1$..salt..$.......md5h | ||
268 | * ash..........\0" */ | ||
269 | unsigned char buf[MD5_DIGEST_LENGTH]; | ||
270 | char *salt_out; | ||
271 | int n; | ||
272 | unsigned int i; | ||
273 | EVP_MD_CTX md, md2; | ||
274 | size_t passwd_len, salt_len; | ||
275 | |||
276 | passwd_len = strlen(passwd); | ||
277 | out_buf[0] = '$'; | ||
278 | out_buf[1] = 0; | ||
279 | assert(strlen(magic) <= 4); /* "1" or "apr1" */ | ||
280 | strlcat(out_buf, magic, sizeof(out_buf)); | ||
281 | strlcat(out_buf, "$", sizeof(out_buf)); | ||
282 | strlcat(out_buf, salt, sizeof(out_buf)); | ||
283 | assert(strlen(out_buf) <= 6 + 8); /* "$apr1$..salt.." */ | ||
284 | salt_out = out_buf + 2 + strlen(magic); | ||
285 | salt_len = strlen(salt_out); | ||
286 | assert(salt_len <= 8); | ||
287 | |||
288 | EVP_MD_CTX_init(&md); | ||
289 | EVP_DigestInit_ex(&md, EVP_md5(), NULL); | ||
290 | EVP_DigestUpdate(&md, passwd, passwd_len); | ||
291 | EVP_DigestUpdate(&md, "$", 1); | ||
292 | EVP_DigestUpdate(&md, magic, strlen(magic)); | ||
293 | EVP_DigestUpdate(&md, "$", 1); | ||
294 | EVP_DigestUpdate(&md, salt_out, salt_len); | ||
295 | |||
296 | EVP_MD_CTX_init(&md2); | ||
297 | EVP_DigestInit_ex(&md2, EVP_md5(), NULL); | ||
298 | EVP_DigestUpdate(&md2, passwd, passwd_len); | ||
299 | EVP_DigestUpdate(&md2, salt_out, salt_len); | ||
300 | EVP_DigestUpdate(&md2, passwd, passwd_len); | ||
301 | EVP_DigestFinal_ex(&md2, buf, NULL); | ||
302 | |||
303 | for (i = passwd_len; i > sizeof buf; i -= sizeof buf) | ||
304 | EVP_DigestUpdate(&md, buf, sizeof buf); | ||
305 | EVP_DigestUpdate(&md, buf, i); | ||
306 | |||
307 | n = passwd_len; | ||
308 | while (n) { | ||
309 | EVP_DigestUpdate(&md, (n & 1) ? "\0" : passwd, 1); | ||
310 | n >>= 1; | ||
311 | } | ||
312 | EVP_DigestFinal_ex(&md, buf, NULL); | ||
313 | |||
314 | for (i = 0; i < 1000; i++) { | ||
315 | EVP_DigestInit_ex(&md2, EVP_md5(), NULL); | ||
316 | EVP_DigestUpdate(&md2, (i & 1) ? (unsigned const char *) passwd : buf, | ||
317 | (i & 1) ? passwd_len : sizeof buf); | ||
318 | if (i % 3) | ||
319 | EVP_DigestUpdate(&md2, salt_out, salt_len); | ||
320 | if (i % 7) | ||
321 | EVP_DigestUpdate(&md2, passwd, passwd_len); | ||
322 | EVP_DigestUpdate(&md2, (i & 1) ? buf : (unsigned const char *) passwd, | ||
323 | (i & 1) ? sizeof buf : passwd_len); | ||
324 | EVP_DigestFinal_ex(&md2, buf, NULL); | ||
325 | } | ||
326 | EVP_MD_CTX_cleanup(&md2); | ||
327 | |||
328 | { | ||
329 | /* transform buf into output string */ | ||
330 | |||
331 | unsigned char buf_perm[sizeof buf]; | ||
332 | int dest, source; | ||
333 | char *output; | ||
334 | |||
335 | /* silly output permutation */ | ||
336 | for (dest = 0, source = 0; dest < 14; dest++, source = (source + 6) % 17) | ||
337 | buf_perm[dest] = buf[source]; | ||
338 | buf_perm[14] = buf[5]; | ||
339 | buf_perm[15] = buf[11]; | ||
340 | assert(16 == sizeof buf_perm); | ||
341 | |||
342 | output = salt_out + salt_len; | ||
343 | assert(output == out_buf + strlen(out_buf)); | ||
344 | |||
345 | *output++ = '$'; | ||
346 | |||
347 | for (i = 0; i < 15; i += 3) { | ||
348 | *output++ = cov_2char[buf_perm[i + 2] & 0x3f]; | ||
349 | *output++ = cov_2char[((buf_perm[i + 1] & 0xf) << 2) | | ||
350 | (buf_perm[i + 2] >> 6)]; | ||
351 | *output++ = cov_2char[((buf_perm[i] & 3) << 4) | | ||
352 | (buf_perm[i + 1] >> 4)]; | ||
353 | *output++ = cov_2char[buf_perm[i] >> 2]; | ||
354 | } | ||
355 | assert(i == 15); | ||
356 | *output++ = cov_2char[buf_perm[i] & 0x3f]; | ||
357 | *output++ = cov_2char[buf_perm[i] >> 6]; | ||
358 | *output = 0; | ||
359 | assert(strlen(out_buf) < sizeof(out_buf)); | ||
360 | } | ||
361 | EVP_MD_CTX_cleanup(&md); | ||
362 | |||
363 | return out_buf; | ||
364 | } | ||
365 | #endif | ||
366 | |||
367 | |||
368 | static int | ||
369 | do_passwd(int passed_salt, char **salt_p, char **salt_malloc_p, | ||
370 | char *passwd, BIO * out, int quiet, int table, int reverse, | ||
371 | size_t pw_maxlen, int usecrypt, int use1, int useapr1) | ||
372 | { | ||
373 | char *hash = NULL; | ||
374 | |||
375 | assert(salt_p != NULL); | ||
376 | assert(salt_malloc_p != NULL); | ||
377 | |||
378 | /* first make sure we have a salt */ | ||
379 | if (!passed_salt) { | ||
380 | #ifndef OPENSSL_NO_DES | ||
381 | if (usecrypt) { | ||
382 | if (*salt_malloc_p == NULL) { | ||
383 | *salt_p = *salt_malloc_p = malloc(3); | ||
384 | if (*salt_malloc_p == NULL) | ||
385 | goto err; | ||
386 | } | ||
387 | if (RAND_pseudo_bytes((unsigned char *) *salt_p, 2) < 0) | ||
388 | goto err; | ||
389 | (*salt_p)[0] = cov_2char[(*salt_p)[0] & 0x3f]; /* 6 bits */ | ||
390 | (*salt_p)[1] = cov_2char[(*salt_p)[1] & 0x3f]; /* 6 bits */ | ||
391 | (*salt_p)[2] = 0; | ||
392 | } | ||
393 | #endif /* !OPENSSL_NO_DES */ | ||
394 | |||
395 | #ifndef NO_MD5CRYPT_1 | ||
396 | if (use1 || useapr1) { | ||
397 | int i; | ||
398 | |||
399 | if (*salt_malloc_p == NULL) { | ||
400 | *salt_p = *salt_malloc_p = malloc(9); | ||
401 | if (*salt_malloc_p == NULL) | ||
402 | goto err; | ||
403 | } | ||
404 | if (RAND_pseudo_bytes((unsigned char *) *salt_p, 8) < 0) | ||
405 | goto err; | ||
406 | |||
407 | for (i = 0; i < 8; i++) | ||
408 | (*salt_p)[i] = cov_2char[(*salt_p)[i] & 0x3f]; /* 6 bits */ | ||
409 | (*salt_p)[8] = 0; | ||
410 | } | ||
411 | #endif /* !NO_MD5CRYPT_1 */ | ||
412 | } | ||
413 | assert(*salt_p != NULL); | ||
414 | |||
415 | /* truncate password if necessary */ | ||
416 | if ((strlen(passwd) > pw_maxlen)) { | ||
417 | if (!quiet) | ||
418 | /* | ||
419 | * XXX: really we should know how to print a size_t, | ||
420 | * not cast it | ||
421 | */ | ||
422 | BIO_printf(bio_err, "Warning: truncating password to %u characters\n", (unsigned) pw_maxlen); | ||
423 | passwd[pw_maxlen] = 0; | ||
424 | } | ||
425 | assert(strlen(passwd) <= pw_maxlen); | ||
426 | |||
427 | /* now compute password hash */ | ||
428 | #ifndef OPENSSL_NO_DES | ||
429 | if (usecrypt) | ||
430 | hash = DES_crypt(passwd, *salt_p); | ||
431 | #endif | ||
432 | #ifndef NO_MD5CRYPT_1 | ||
433 | if (use1 || useapr1) | ||
434 | hash = md5crypt(passwd, (use1 ? "1" : "apr1"), *salt_p); | ||
435 | #endif | ||
436 | assert(hash != NULL); | ||
437 | |||
438 | if (table && !reverse) | ||
439 | BIO_printf(out, "%s\t%s\n", passwd, hash); | ||
440 | else if (table && reverse) | ||
441 | BIO_printf(out, "%s\t%s\n", hash, passwd); | ||
442 | else | ||
443 | BIO_printf(out, "%s\n", hash); | ||
444 | return 1; | ||
445 | |||
446 | err: | ||
447 | return 0; | ||
448 | } | ||
449 | #else | ||
450 | |||
451 | int | ||
452 | passwd_main(int argc, char **argv) | ||
453 | { | ||
454 | fputs("Program not available.\n", stderr) | ||
455 | return (1); | ||
456 | } | ||
457 | #endif | ||
diff --git a/src/usr.bin/openssl/pkcs12.c b/src/usr.bin/openssl/pkcs12.c new file mode 100644 index 0000000000..77b7c31d01 --- /dev/null +++ b/src/usr.bin/openssl/pkcs12.c | |||
@@ -0,0 +1,913 @@ | |||
1 | /* $OpenBSD: pkcs12.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
2 | /* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL | ||
3 | * project. | ||
4 | */ | ||
5 | /* ==================================================================== | ||
6 | * Copyright (c) 1999-2006 The OpenSSL Project. All rights reserved. | ||
7 | * | ||
8 | * Redistribution and use in source and binary forms, with or without | ||
9 | * modification, are permitted provided that the following conditions | ||
10 | * are met: | ||
11 | * | ||
12 | * 1. Redistributions of source code must retain the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer. | ||
14 | * | ||
15 | * 2. Redistributions in binary form must reproduce the above copyright | ||
16 | * notice, this list of conditions and the following disclaimer in | ||
17 | * the documentation and/or other materials provided with the | ||
18 | * distribution. | ||
19 | * | ||
20 | * 3. All advertising materials mentioning features or use of this | ||
21 | * software must display the following acknowledgment: | ||
22 | * "This product includes software developed by the OpenSSL Project | ||
23 | * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" | ||
24 | * | ||
25 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
26 | * endorse or promote products derived from this software without | ||
27 | * prior written permission. For written permission, please contact | ||
28 | * licensing@OpenSSL.org. | ||
29 | * | ||
30 | * 5. Products derived from this software may not be called "OpenSSL" | ||
31 | * nor may "OpenSSL" appear in their names without prior written | ||
32 | * permission of the OpenSSL Project. | ||
33 | * | ||
34 | * 6. Redistributions of any form whatsoever must retain the following | ||
35 | * acknowledgment: | ||
36 | * "This product includes software developed by the OpenSSL Project | ||
37 | * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" | ||
38 | * | ||
39 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
40 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
41 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
42 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
43 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
44 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
45 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
46 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
47 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
48 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
49 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
50 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
51 | * ==================================================================== | ||
52 | * | ||
53 | * This product includes cryptographic software written by Eric Young | ||
54 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
55 | * Hudson (tjh@cryptsoft.com). | ||
56 | * | ||
57 | */ | ||
58 | |||
59 | #include <openssl/opensslconf.h> | ||
60 | |||
61 | #if !defined(OPENSSL_NO_DES) && !defined(OPENSSL_NO_SHA1) | ||
62 | |||
63 | #include <stdio.h> | ||
64 | #include <stdlib.h> | ||
65 | #include <string.h> | ||
66 | |||
67 | #include "apps.h" | ||
68 | |||
69 | #include <openssl/crypto.h> | ||
70 | #include <openssl/err.h> | ||
71 | #include <openssl/pem.h> | ||
72 | #include <openssl/pkcs12.h> | ||
73 | |||
74 | const EVP_CIPHER *enc; | ||
75 | |||
76 | #define NOKEYS 0x1 | ||
77 | #define NOCERTS 0x2 | ||
78 | #define INFO 0x4 | ||
79 | #define CLCERTS 0x8 | ||
80 | #define CACERTS 0x10 | ||
81 | |||
82 | int get_cert_chain(X509 * cert, X509_STORE * store, STACK_OF(X509) ** chain); | ||
83 | int dump_certs_keys_p12(BIO * out, PKCS12 * p12, char *pass, int passlen, | ||
84 | int options, char *pempass); | ||
85 | int dump_certs_pkeys_bags(BIO * out, STACK_OF(PKCS12_SAFEBAG) * bags, char *pass, | ||
86 | int passlen, int options, char *pempass); | ||
87 | int dump_certs_pkeys_bag(BIO * out, PKCS12_SAFEBAG * bags, char *pass, int passlen, | ||
88 | int options, char *pempass); | ||
89 | int print_attribs(BIO * out, STACK_OF(X509_ATTRIBUTE) * attrlst, const char *name); | ||
90 | void hex_prin(BIO * out, unsigned char *buf, int len); | ||
91 | int alg_print(BIO * x, X509_ALGOR * alg); | ||
92 | int cert_load(BIO * in, STACK_OF(X509) * sk); | ||
93 | static int set_pbe(BIO * err, int *ppbe, const char *str); | ||
94 | |||
95 | int pkcs12_main(int, char **); | ||
96 | |||
97 | int | ||
98 | pkcs12_main(int argc, char **argv) | ||
99 | { | ||
100 | ENGINE *e = NULL; | ||
101 | char *infile = NULL, *outfile = NULL, *keyname = NULL; | ||
102 | char *certfile = NULL; | ||
103 | BIO *in = NULL, *out = NULL; | ||
104 | char **args; | ||
105 | char *name = NULL; | ||
106 | char *csp_name = NULL; | ||
107 | int add_lmk = 0; | ||
108 | PKCS12 *p12 = NULL; | ||
109 | char pass[50], macpass[50]; | ||
110 | int export_cert = 0; | ||
111 | int options = 0; | ||
112 | int chain = 0; | ||
113 | int badarg = 0; | ||
114 | int iter = PKCS12_DEFAULT_ITER; | ||
115 | int maciter = PKCS12_DEFAULT_ITER; | ||
116 | int twopass = 0; | ||
117 | int keytype = 0; | ||
118 | int cert_pbe; | ||
119 | int key_pbe = NID_pbe_WithSHA1And3_Key_TripleDES_CBC; | ||
120 | int ret = 1; | ||
121 | int macver = 1; | ||
122 | int noprompt = 0; | ||
123 | STACK_OF(OPENSSL_STRING) * canames = NULL; | ||
124 | char *cpass = NULL, *mpass = NULL; | ||
125 | char *passargin = NULL, *passargout = NULL, *passarg = NULL; | ||
126 | char *passin = NULL, *passout = NULL; | ||
127 | char *macalg = NULL; | ||
128 | char *CApath = NULL, *CAfile = NULL; | ||
129 | #ifndef OPENSSL_NO_ENGINE | ||
130 | char *engine = NULL; | ||
131 | #endif | ||
132 | |||
133 | cert_pbe = NID_pbe_WithSHA1And40BitRC2_CBC; | ||
134 | |||
135 | enc = EVP_des_ede3_cbc(); | ||
136 | |||
137 | args = argv + 1; | ||
138 | |||
139 | while (*args) { | ||
140 | if (*args[0] == '-') { | ||
141 | if (!strcmp(*args, "-nokeys")) | ||
142 | options |= NOKEYS; | ||
143 | else if (!strcmp(*args, "-keyex")) | ||
144 | keytype = KEY_EX; | ||
145 | else if (!strcmp(*args, "-keysig")) | ||
146 | keytype = KEY_SIG; | ||
147 | else if (!strcmp(*args, "-nocerts")) | ||
148 | options |= NOCERTS; | ||
149 | else if (!strcmp(*args, "-clcerts")) | ||
150 | options |= CLCERTS; | ||
151 | else if (!strcmp(*args, "-cacerts")) | ||
152 | options |= CACERTS; | ||
153 | else if (!strcmp(*args, "-noout")) | ||
154 | options |= (NOKEYS | NOCERTS); | ||
155 | else if (!strcmp(*args, "-info")) | ||
156 | options |= INFO; | ||
157 | else if (!strcmp(*args, "-chain")) | ||
158 | chain = 1; | ||
159 | else if (!strcmp(*args, "-twopass")) | ||
160 | twopass = 1; | ||
161 | else if (!strcmp(*args, "-nomacver")) | ||
162 | macver = 0; | ||
163 | else if (!strcmp(*args, "-descert")) | ||
164 | cert_pbe = NID_pbe_WithSHA1And3_Key_TripleDES_CBC; | ||
165 | else if (!strcmp(*args, "-export")) | ||
166 | export_cert = 1; | ||
167 | else if (!strcmp(*args, "-des")) | ||
168 | enc = EVP_des_cbc(); | ||
169 | else if (!strcmp(*args, "-des3")) | ||
170 | enc = EVP_des_ede3_cbc(); | ||
171 | #ifndef OPENSSL_NO_IDEA | ||
172 | else if (!strcmp(*args, "-idea")) | ||
173 | enc = EVP_idea_cbc(); | ||
174 | #endif | ||
175 | #ifndef OPENSSL_NO_AES | ||
176 | else if (!strcmp(*args, "-aes128")) | ||
177 | enc = EVP_aes_128_cbc(); | ||
178 | else if (!strcmp(*args, "-aes192")) | ||
179 | enc = EVP_aes_192_cbc(); | ||
180 | else if (!strcmp(*args, "-aes256")) | ||
181 | enc = EVP_aes_256_cbc(); | ||
182 | #endif | ||
183 | #ifndef OPENSSL_NO_CAMELLIA | ||
184 | else if (!strcmp(*args, "-camellia128")) | ||
185 | enc = EVP_camellia_128_cbc(); | ||
186 | else if (!strcmp(*args, "-camellia192")) | ||
187 | enc = EVP_camellia_192_cbc(); | ||
188 | else if (!strcmp(*args, "-camellia256")) | ||
189 | enc = EVP_camellia_256_cbc(); | ||
190 | #endif | ||
191 | else if (!strcmp(*args, "-noiter")) | ||
192 | iter = 1; | ||
193 | else if (!strcmp(*args, "-maciter")) | ||
194 | maciter = PKCS12_DEFAULT_ITER; | ||
195 | else if (!strcmp(*args, "-nomaciter")) | ||
196 | maciter = 1; | ||
197 | else if (!strcmp(*args, "-nomac")) | ||
198 | maciter = -1; | ||
199 | else if (!strcmp(*args, "-macalg")) | ||
200 | if (args[1]) { | ||
201 | args++; | ||
202 | macalg = *args; | ||
203 | } else | ||
204 | badarg = 1; | ||
205 | else if (!strcmp(*args, "-nodes")) | ||
206 | enc = NULL; | ||
207 | else if (!strcmp(*args, "-certpbe")) { | ||
208 | if (!set_pbe(bio_err, &cert_pbe, *++args)) | ||
209 | badarg = 1; | ||
210 | } else if (!strcmp(*args, "-keypbe")) { | ||
211 | if (!set_pbe(bio_err, &key_pbe, *++args)) | ||
212 | badarg = 1; | ||
213 | } else if (!strcmp(*args, "-inkey")) { | ||
214 | if (args[1]) { | ||
215 | args++; | ||
216 | keyname = *args; | ||
217 | } else | ||
218 | badarg = 1; | ||
219 | } else if (!strcmp(*args, "-certfile")) { | ||
220 | if (args[1]) { | ||
221 | args++; | ||
222 | certfile = *args; | ||
223 | } else | ||
224 | badarg = 1; | ||
225 | } else if (!strcmp(*args, "-name")) { | ||
226 | if (args[1]) { | ||
227 | args++; | ||
228 | name = *args; | ||
229 | } else | ||
230 | badarg = 1; | ||
231 | } else if (!strcmp(*args, "-LMK")) | ||
232 | add_lmk = 1; | ||
233 | else if (!strcmp(*args, "-CSP")) { | ||
234 | if (args[1]) { | ||
235 | args++; | ||
236 | csp_name = *args; | ||
237 | } else | ||
238 | badarg = 1; | ||
239 | } else if (!strcmp(*args, "-caname")) { | ||
240 | if (args[1]) { | ||
241 | args++; | ||
242 | if (!canames) | ||
243 | canames = sk_OPENSSL_STRING_new_null(); | ||
244 | sk_OPENSSL_STRING_push(canames, *args); | ||
245 | } else | ||
246 | badarg = 1; | ||
247 | } else if (!strcmp(*args, "-in")) { | ||
248 | if (args[1]) { | ||
249 | args++; | ||
250 | infile = *args; | ||
251 | } else | ||
252 | badarg = 1; | ||
253 | } else if (!strcmp(*args, "-out")) { | ||
254 | if (args[1]) { | ||
255 | args++; | ||
256 | outfile = *args; | ||
257 | } else | ||
258 | badarg = 1; | ||
259 | } else if (!strcmp(*args, "-passin")) { | ||
260 | if (args[1]) { | ||
261 | args++; | ||
262 | passargin = *args; | ||
263 | } else | ||
264 | badarg = 1; | ||
265 | } else if (!strcmp(*args, "-passout")) { | ||
266 | if (args[1]) { | ||
267 | args++; | ||
268 | passargout = *args; | ||
269 | } else | ||
270 | badarg = 1; | ||
271 | } else if (!strcmp(*args, "-password")) { | ||
272 | if (args[1]) { | ||
273 | args++; | ||
274 | passarg = *args; | ||
275 | noprompt = 1; | ||
276 | } else | ||
277 | badarg = 1; | ||
278 | } else if (!strcmp(*args, "-CApath")) { | ||
279 | if (args[1]) { | ||
280 | args++; | ||
281 | CApath = *args; | ||
282 | } else | ||
283 | badarg = 1; | ||
284 | } else if (!strcmp(*args, "-CAfile")) { | ||
285 | if (args[1]) { | ||
286 | args++; | ||
287 | CAfile = *args; | ||
288 | } else | ||
289 | badarg = 1; | ||
290 | #ifndef OPENSSL_NO_ENGINE | ||
291 | } else if (!strcmp(*args, "-engine")) { | ||
292 | if (args[1]) { | ||
293 | args++; | ||
294 | engine = *args; | ||
295 | } else | ||
296 | badarg = 1; | ||
297 | #endif | ||
298 | } else | ||
299 | badarg = 1; | ||
300 | |||
301 | } else | ||
302 | badarg = 1; | ||
303 | args++; | ||
304 | } | ||
305 | |||
306 | if (badarg) { | ||
307 | BIO_printf(bio_err, "Usage: pkcs12 [options]\n"); | ||
308 | BIO_printf(bio_err, "where options are\n"); | ||
309 | BIO_printf(bio_err, "-export output PKCS12 file\n"); | ||
310 | BIO_printf(bio_err, "-chain add certificate chain\n"); | ||
311 | BIO_printf(bio_err, "-inkey file private key if not infile\n"); | ||
312 | BIO_printf(bio_err, "-certfile f add all certs in f\n"); | ||
313 | BIO_printf(bio_err, "-CApath arg - PEM format directory of CA's\n"); | ||
314 | BIO_printf(bio_err, "-CAfile arg - PEM format file of CA's\n"); | ||
315 | BIO_printf(bio_err, "-name \"name\" use name as friendly name\n"); | ||
316 | BIO_printf(bio_err, "-caname \"nm\" use nm as CA friendly name (can be used more than once).\n"); | ||
317 | BIO_printf(bio_err, "-in infile input filename\n"); | ||
318 | BIO_printf(bio_err, "-out outfile output filename\n"); | ||
319 | BIO_printf(bio_err, "-noout don't output anything, just verify.\n"); | ||
320 | BIO_printf(bio_err, "-nomacver don't verify MAC.\n"); | ||
321 | BIO_printf(bio_err, "-nocerts don't output certificates.\n"); | ||
322 | BIO_printf(bio_err, "-clcerts only output client certificates.\n"); | ||
323 | BIO_printf(bio_err, "-cacerts only output CA certificates.\n"); | ||
324 | BIO_printf(bio_err, "-nokeys don't output private keys.\n"); | ||
325 | BIO_printf(bio_err, "-info give info about PKCS#12 structure.\n"); | ||
326 | BIO_printf(bio_err, "-des encrypt private keys with DES\n"); | ||
327 | BIO_printf(bio_err, "-des3 encrypt private keys with triple DES (default)\n"); | ||
328 | #ifndef OPENSSL_NO_IDEA | ||
329 | BIO_printf(bio_err, "-idea encrypt private keys with idea\n"); | ||
330 | #endif | ||
331 | #ifndef OPENSSL_NO_AES | ||
332 | BIO_printf(bio_err, "-aes128, -aes192, -aes256\n"); | ||
333 | BIO_printf(bio_err, " encrypt PEM output with cbc aes\n"); | ||
334 | #endif | ||
335 | #ifndef OPENSSL_NO_CAMELLIA | ||
336 | BIO_printf(bio_err, "-camellia128, -camellia192, -camellia256\n"); | ||
337 | BIO_printf(bio_err, " encrypt PEM output with cbc camellia\n"); | ||
338 | #endif | ||
339 | BIO_printf(bio_err, "-nodes don't encrypt private keys\n"); | ||
340 | BIO_printf(bio_err, "-noiter don't use encryption iteration\n"); | ||
341 | BIO_printf(bio_err, "-nomaciter don't use MAC iteration\n"); | ||
342 | BIO_printf(bio_err, "-maciter use MAC iteration\n"); | ||
343 | BIO_printf(bio_err, "-nomac don't generate MAC\n"); | ||
344 | BIO_printf(bio_err, "-twopass separate MAC, encryption passwords\n"); | ||
345 | BIO_printf(bio_err, "-descert encrypt PKCS#12 certificates with triple DES (default RC2-40)\n"); | ||
346 | BIO_printf(bio_err, "-certpbe alg specify certificate PBE algorithm (default RC2-40)\n"); | ||
347 | BIO_printf(bio_err, "-keypbe alg specify private key PBE algorithm (default 3DES)\n"); | ||
348 | BIO_printf(bio_err, "-macalg alg digest algorithm used in MAC (default SHA1)\n"); | ||
349 | BIO_printf(bio_err, "-keyex set MS key exchange type\n"); | ||
350 | BIO_printf(bio_err, "-keysig set MS key signature type\n"); | ||
351 | BIO_printf(bio_err, "-password p set import/export password source\n"); | ||
352 | BIO_printf(bio_err, "-passin p input file pass phrase source\n"); | ||
353 | BIO_printf(bio_err, "-passout p output file pass phrase source\n"); | ||
354 | #ifndef OPENSSL_NO_ENGINE | ||
355 | BIO_printf(bio_err, "-engine e use engine e, possibly a hardware device.\n"); | ||
356 | #endif | ||
357 | BIO_printf(bio_err, "-CSP name Microsoft CSP name\n"); | ||
358 | BIO_printf(bio_err, "-LMK Add local machine keyset attribute to private key\n"); | ||
359 | goto end; | ||
360 | } | ||
361 | #ifndef OPENSSL_NO_ENGINE | ||
362 | e = setup_engine(bio_err, engine, 0); | ||
363 | #endif | ||
364 | |||
365 | if (passarg) { | ||
366 | if (export_cert) | ||
367 | passargout = passarg; | ||
368 | else | ||
369 | passargin = passarg; | ||
370 | } | ||
371 | if (!app_passwd(bio_err, passargin, passargout, &passin, &passout)) { | ||
372 | BIO_printf(bio_err, "Error getting passwords\n"); | ||
373 | goto end; | ||
374 | } | ||
375 | if (!cpass) { | ||
376 | if (export_cert) | ||
377 | cpass = passout; | ||
378 | else | ||
379 | cpass = passin; | ||
380 | } | ||
381 | if (cpass) { | ||
382 | mpass = cpass; | ||
383 | noprompt = 1; | ||
384 | } else { | ||
385 | cpass = pass; | ||
386 | mpass = macpass; | ||
387 | } | ||
388 | |||
389 | ERR_load_crypto_strings(); | ||
390 | |||
391 | |||
392 | if (!infile) | ||
393 | in = BIO_new_fp(stdin, BIO_NOCLOSE); | ||
394 | else | ||
395 | in = BIO_new_file(infile, "rb"); | ||
396 | if (!in) { | ||
397 | BIO_printf(bio_err, "Error opening input file %s\n", | ||
398 | infile ? infile : "<stdin>"); | ||
399 | perror(infile); | ||
400 | goto end; | ||
401 | } | ||
402 | |||
403 | if (!outfile) { | ||
404 | out = BIO_new_fp(stdout, BIO_NOCLOSE); | ||
405 | } else | ||
406 | out = BIO_new_file(outfile, "wb"); | ||
407 | if (!out) { | ||
408 | BIO_printf(bio_err, "Error opening output file %s\n", | ||
409 | outfile ? outfile : "<stdout>"); | ||
410 | perror(outfile); | ||
411 | goto end; | ||
412 | } | ||
413 | if (twopass) { | ||
414 | if (EVP_read_pw_string(macpass, sizeof macpass, "Enter MAC Password:", export_cert)) { | ||
415 | BIO_printf(bio_err, "Can't read Password\n"); | ||
416 | goto end; | ||
417 | } | ||
418 | } | ||
419 | if (export_cert) { | ||
420 | EVP_PKEY *key = NULL; | ||
421 | X509 *ucert = NULL, *x = NULL; | ||
422 | STACK_OF(X509) * certs = NULL; | ||
423 | const EVP_MD *macmd = NULL; | ||
424 | unsigned char *catmp = NULL; | ||
425 | int i; | ||
426 | |||
427 | if ((options & (NOCERTS | NOKEYS)) == (NOCERTS | NOKEYS)) { | ||
428 | BIO_printf(bio_err, "Nothing to do!\n"); | ||
429 | goto export_end; | ||
430 | } | ||
431 | if (options & NOCERTS) | ||
432 | chain = 0; | ||
433 | |||
434 | if (!(options & NOKEYS)) { | ||
435 | key = load_key(bio_err, keyname ? keyname : infile, | ||
436 | FORMAT_PEM, 1, passin, e, "private key"); | ||
437 | if (!key) | ||
438 | goto export_end; | ||
439 | } | ||
440 | |||
441 | /* Load in all certs in input file */ | ||
442 | if (!(options & NOCERTS)) { | ||
443 | certs = load_certs(bio_err, infile, FORMAT_PEM, NULL, e, | ||
444 | "certificates"); | ||
445 | if (!certs) | ||
446 | goto export_end; | ||
447 | |||
448 | if (key) { | ||
449 | /* Look for matching private key */ | ||
450 | for (i = 0; i < sk_X509_num(certs); i++) { | ||
451 | x = sk_X509_value(certs, i); | ||
452 | if (X509_check_private_key(x, key)) { | ||
453 | ucert = x; | ||
454 | /* Zero keyid and alias */ | ||
455 | X509_keyid_set1(ucert, NULL, 0); | ||
456 | X509_alias_set1(ucert, NULL, 0); | ||
457 | /* Remove from list */ | ||
458 | (void) sk_X509_delete(certs, i); | ||
459 | break; | ||
460 | } | ||
461 | } | ||
462 | if (!ucert) { | ||
463 | BIO_printf(bio_err, "No certificate matches private key\n"); | ||
464 | goto export_end; | ||
465 | } | ||
466 | } | ||
467 | } | ||
468 | |||
469 | /* Add any more certificates asked for */ | ||
470 | if (certfile) { | ||
471 | STACK_OF(X509) * morecerts = NULL; | ||
472 | if (!(morecerts = load_certs(bio_err, certfile, FORMAT_PEM, | ||
473 | NULL, e, | ||
474 | "certificates from certfile"))) | ||
475 | goto export_end; | ||
476 | while (sk_X509_num(morecerts) > 0) | ||
477 | sk_X509_push(certs, sk_X509_shift(morecerts)); | ||
478 | sk_X509_free(morecerts); | ||
479 | } | ||
480 | |||
481 | |||
482 | /* If chaining get chain from user cert */ | ||
483 | if (chain) { | ||
484 | int vret; | ||
485 | STACK_OF(X509) * chain2; | ||
486 | X509_STORE *store = X509_STORE_new(); | ||
487 | if (!store) { | ||
488 | BIO_printf(bio_err, "Memory allocation error\n"); | ||
489 | goto export_end; | ||
490 | } | ||
491 | if (!X509_STORE_load_locations(store, CAfile, CApath)) | ||
492 | X509_STORE_set_default_paths(store); | ||
493 | |||
494 | vret = get_cert_chain(ucert, store, &chain2); | ||
495 | X509_STORE_free(store); | ||
496 | |||
497 | if (!vret) { | ||
498 | /* Exclude verified certificate */ | ||
499 | for (i = 1; i < sk_X509_num(chain2); i++) | ||
500 | sk_X509_push(certs, sk_X509_value(chain2, i)); | ||
501 | /* Free first certificate */ | ||
502 | X509_free(sk_X509_value(chain2, 0)); | ||
503 | sk_X509_free(chain2); | ||
504 | } else { | ||
505 | if (vret >= 0) | ||
506 | BIO_printf(bio_err, "Error %s getting chain.\n", | ||
507 | X509_verify_cert_error_string(vret)); | ||
508 | else | ||
509 | ERR_print_errors(bio_err); | ||
510 | goto export_end; | ||
511 | } | ||
512 | } | ||
513 | /* Add any CA names */ | ||
514 | |||
515 | for (i = 0; i < sk_OPENSSL_STRING_num(canames); i++) { | ||
516 | catmp = (unsigned char *) sk_OPENSSL_STRING_value(canames, i); | ||
517 | X509_alias_set1(sk_X509_value(certs, i), catmp, -1); | ||
518 | } | ||
519 | |||
520 | if (csp_name && key) | ||
521 | EVP_PKEY_add1_attr_by_NID(key, NID_ms_csp_name, | ||
522 | MBSTRING_ASC, (unsigned char *) csp_name, -1); | ||
523 | |||
524 | if (add_lmk && key) | ||
525 | EVP_PKEY_add1_attr_by_NID(key, NID_LocalKeySet, 0, NULL, -1); | ||
526 | |||
527 | |||
528 | if (!noprompt && | ||
529 | EVP_read_pw_string(pass, sizeof pass, "Enter Export Password:", 1)) { | ||
530 | BIO_printf(bio_err, "Can't read Password\n"); | ||
531 | goto export_end; | ||
532 | } | ||
533 | if (!twopass) | ||
534 | strlcpy(macpass, pass, sizeof macpass); | ||
535 | |||
536 | |||
537 | p12 = PKCS12_create(cpass, name, key, ucert, certs, | ||
538 | key_pbe, cert_pbe, iter, -1, keytype); | ||
539 | |||
540 | if (!p12) { | ||
541 | ERR_print_errors(bio_err); | ||
542 | goto export_end; | ||
543 | } | ||
544 | if (macalg) { | ||
545 | macmd = EVP_get_digestbyname(macalg); | ||
546 | if (!macmd) { | ||
547 | BIO_printf(bio_err, "Unknown digest algorithm %s\n", | ||
548 | macalg); | ||
549 | } | ||
550 | } | ||
551 | if (maciter != -1) | ||
552 | PKCS12_set_mac(p12, mpass, -1, NULL, 0, maciter, macmd); | ||
553 | |||
554 | |||
555 | i2d_PKCS12_bio(out, p12); | ||
556 | |||
557 | ret = 0; | ||
558 | |||
559 | export_end: | ||
560 | |||
561 | if (key) | ||
562 | EVP_PKEY_free(key); | ||
563 | if (certs) | ||
564 | sk_X509_pop_free(certs, X509_free); | ||
565 | if (ucert) | ||
566 | X509_free(ucert); | ||
567 | |||
568 | goto end; | ||
569 | |||
570 | } | ||
571 | if (!(p12 = d2i_PKCS12_bio(in, NULL))) { | ||
572 | ERR_print_errors(bio_err); | ||
573 | goto end; | ||
574 | } | ||
575 | if (!noprompt && EVP_read_pw_string(pass, sizeof pass, "Enter Import Password:", 0)) { | ||
576 | BIO_printf(bio_err, "Can't read Password\n"); | ||
577 | goto end; | ||
578 | } | ||
579 | |||
580 | if (!twopass) | ||
581 | strlcpy(macpass, pass, sizeof macpass); | ||
582 | |||
583 | if ((options & INFO) && p12->mac) | ||
584 | BIO_printf(bio_err, "MAC Iteration %ld\n", p12->mac->iter ? ASN1_INTEGER_get(p12->mac->iter) : 1); | ||
585 | if (macver) { | ||
586 | /* If we enter empty password try no password first */ | ||
587 | if (!mpass[0] && PKCS12_verify_mac(p12, NULL, 0)) { | ||
588 | /* If mac and crypto pass the same set it to NULL too */ | ||
589 | if (!twopass) | ||
590 | cpass = NULL; | ||
591 | } else if (!PKCS12_verify_mac(p12, mpass, -1)) { | ||
592 | BIO_printf(bio_err, "Mac verify error: invalid password?\n"); | ||
593 | ERR_print_errors(bio_err); | ||
594 | goto end; | ||
595 | } | ||
596 | BIO_printf(bio_err, "MAC verified OK\n"); | ||
597 | } | ||
598 | if (!dump_certs_keys_p12(out, p12, cpass, -1, options, passout)) { | ||
599 | BIO_printf(bio_err, "Error outputting keys and certificates\n"); | ||
600 | ERR_print_errors(bio_err); | ||
601 | goto end; | ||
602 | } | ||
603 | ret = 0; | ||
604 | end: | ||
605 | if (p12) | ||
606 | PKCS12_free(p12); | ||
607 | BIO_free(in); | ||
608 | BIO_free_all(out); | ||
609 | if (canames) | ||
610 | sk_OPENSSL_STRING_free(canames); | ||
611 | free(passin); | ||
612 | free(passout); | ||
613 | |||
614 | return (ret); | ||
615 | } | ||
616 | |||
617 | int | ||
618 | dump_certs_keys_p12(BIO * out, PKCS12 * p12, char *pass, | ||
619 | int passlen, int options, char *pempass) | ||
620 | { | ||
621 | STACK_OF(PKCS7) * asafes = NULL; | ||
622 | STACK_OF(PKCS12_SAFEBAG) * bags; | ||
623 | int i, bagnid; | ||
624 | int ret = 0; | ||
625 | PKCS7 *p7; | ||
626 | |||
627 | if (!(asafes = PKCS12_unpack_authsafes(p12))) | ||
628 | return 0; | ||
629 | for (i = 0; i < sk_PKCS7_num(asafes); i++) { | ||
630 | p7 = sk_PKCS7_value(asafes, i); | ||
631 | bagnid = OBJ_obj2nid(p7->type); | ||
632 | if (bagnid == NID_pkcs7_data) { | ||
633 | bags = PKCS12_unpack_p7data(p7); | ||
634 | if (options & INFO) | ||
635 | BIO_printf(bio_err, "PKCS7 Data\n"); | ||
636 | } else if (bagnid == NID_pkcs7_encrypted) { | ||
637 | if (options & INFO) { | ||
638 | BIO_printf(bio_err, "PKCS7 Encrypted data: "); | ||
639 | alg_print(bio_err, | ||
640 | p7->d.encrypted->enc_data->algorithm); | ||
641 | } | ||
642 | bags = PKCS12_unpack_p7encdata(p7, pass, passlen); | ||
643 | } else | ||
644 | continue; | ||
645 | if (!bags) | ||
646 | goto err; | ||
647 | if (!dump_certs_pkeys_bags(out, bags, pass, passlen, | ||
648 | options, pempass)) { | ||
649 | sk_PKCS12_SAFEBAG_pop_free(bags, PKCS12_SAFEBAG_free); | ||
650 | goto err; | ||
651 | } | ||
652 | sk_PKCS12_SAFEBAG_pop_free(bags, PKCS12_SAFEBAG_free); | ||
653 | bags = NULL; | ||
654 | } | ||
655 | ret = 1; | ||
656 | |||
657 | err: | ||
658 | |||
659 | if (asafes) | ||
660 | sk_PKCS7_pop_free(asafes, PKCS7_free); | ||
661 | return ret; | ||
662 | } | ||
663 | |||
664 | int | ||
665 | dump_certs_pkeys_bags(BIO * out, STACK_OF(PKCS12_SAFEBAG) * bags, | ||
666 | char *pass, int passlen, int options, char *pempass) | ||
667 | { | ||
668 | int i; | ||
669 | for (i = 0; i < sk_PKCS12_SAFEBAG_num(bags); i++) { | ||
670 | if (!dump_certs_pkeys_bag(out, | ||
671 | sk_PKCS12_SAFEBAG_value(bags, i), | ||
672 | pass, passlen, | ||
673 | options, pempass)) | ||
674 | return 0; | ||
675 | } | ||
676 | return 1; | ||
677 | } | ||
678 | |||
679 | int | ||
680 | dump_certs_pkeys_bag(BIO * out, PKCS12_SAFEBAG * bag, char *pass, | ||
681 | int passlen, int options, char *pempass) | ||
682 | { | ||
683 | EVP_PKEY *pkey; | ||
684 | PKCS8_PRIV_KEY_INFO *p8; | ||
685 | X509 *x509; | ||
686 | |||
687 | switch (M_PKCS12_bag_type(bag)) { | ||
688 | case NID_keyBag: | ||
689 | if (options & INFO) | ||
690 | BIO_printf(bio_err, "Key bag\n"); | ||
691 | if (options & NOKEYS) | ||
692 | return 1; | ||
693 | print_attribs(out, bag->attrib, "Bag Attributes"); | ||
694 | p8 = bag->value.keybag; | ||
695 | if (!(pkey = EVP_PKCS82PKEY(p8))) | ||
696 | return 0; | ||
697 | print_attribs(out, p8->attributes, "Key Attributes"); | ||
698 | PEM_write_bio_PrivateKey(out, pkey, enc, NULL, 0, NULL, pempass); | ||
699 | EVP_PKEY_free(pkey); | ||
700 | break; | ||
701 | |||
702 | case NID_pkcs8ShroudedKeyBag: | ||
703 | if (options & INFO) { | ||
704 | BIO_printf(bio_err, "Shrouded Keybag: "); | ||
705 | alg_print(bio_err, bag->value.shkeybag->algor); | ||
706 | } | ||
707 | if (options & NOKEYS) | ||
708 | return 1; | ||
709 | print_attribs(out, bag->attrib, "Bag Attributes"); | ||
710 | if (!(p8 = PKCS12_decrypt_skey(bag, pass, passlen))) | ||
711 | return 0; | ||
712 | if (!(pkey = EVP_PKCS82PKEY(p8))) { | ||
713 | PKCS8_PRIV_KEY_INFO_free(p8); | ||
714 | return 0; | ||
715 | } | ||
716 | print_attribs(out, p8->attributes, "Key Attributes"); | ||
717 | PKCS8_PRIV_KEY_INFO_free(p8); | ||
718 | PEM_write_bio_PrivateKey(out, pkey, enc, NULL, 0, NULL, pempass); | ||
719 | EVP_PKEY_free(pkey); | ||
720 | break; | ||
721 | |||
722 | case NID_certBag: | ||
723 | if (options & INFO) | ||
724 | BIO_printf(bio_err, "Certificate bag\n"); | ||
725 | if (options & NOCERTS) | ||
726 | return 1; | ||
727 | if (PKCS12_get_attr(bag, NID_localKeyID)) { | ||
728 | if (options & CACERTS) | ||
729 | return 1; | ||
730 | } else if (options & CLCERTS) | ||
731 | return 1; | ||
732 | print_attribs(out, bag->attrib, "Bag Attributes"); | ||
733 | if (M_PKCS12_cert_bag_type(bag) != NID_x509Certificate) | ||
734 | return 1; | ||
735 | if (!(x509 = PKCS12_certbag2x509(bag))) | ||
736 | return 0; | ||
737 | dump_cert_text(out, x509); | ||
738 | PEM_write_bio_X509(out, x509); | ||
739 | X509_free(x509); | ||
740 | break; | ||
741 | |||
742 | case NID_safeContentsBag: | ||
743 | if (options & INFO) | ||
744 | BIO_printf(bio_err, "Safe Contents bag\n"); | ||
745 | print_attribs(out, bag->attrib, "Bag Attributes"); | ||
746 | return dump_certs_pkeys_bags(out, bag->value.safes, pass, | ||
747 | passlen, options, pempass); | ||
748 | |||
749 | default: | ||
750 | BIO_printf(bio_err, "Warning unsupported bag type: "); | ||
751 | i2a_ASN1_OBJECT(bio_err, bag->type); | ||
752 | BIO_printf(bio_err, "\n"); | ||
753 | return 1; | ||
754 | break; | ||
755 | } | ||
756 | return 1; | ||
757 | } | ||
758 | |||
759 | /* Given a single certificate return a verified chain or NULL if error */ | ||
760 | |||
761 | /* Hope this is OK .... */ | ||
762 | |||
763 | int | ||
764 | get_cert_chain(X509 * cert, X509_STORE * store, STACK_OF(X509) ** chain) | ||
765 | { | ||
766 | X509_STORE_CTX store_ctx; | ||
767 | STACK_OF(X509) * chn; | ||
768 | int i = 0; | ||
769 | |||
770 | /* | ||
771 | * FIXME: Should really check the return status of | ||
772 | * X509_STORE_CTX_init for an error, but how that fits into the | ||
773 | * return value of this function is less obvious. | ||
774 | */ | ||
775 | X509_STORE_CTX_init(&store_ctx, store, cert, NULL); | ||
776 | if (X509_verify_cert(&store_ctx) <= 0) { | ||
777 | i = X509_STORE_CTX_get_error(&store_ctx); | ||
778 | if (i == 0) | ||
779 | /* | ||
780 | * avoid returning 0 if X509_verify_cert() did not | ||
781 | * set an appropriate error value in the context | ||
782 | */ | ||
783 | i = -1; | ||
784 | chn = NULL; | ||
785 | goto err; | ||
786 | } else | ||
787 | chn = X509_STORE_CTX_get1_chain(&store_ctx); | ||
788 | err: | ||
789 | X509_STORE_CTX_cleanup(&store_ctx); | ||
790 | *chain = chn; | ||
791 | |||
792 | return i; | ||
793 | } | ||
794 | |||
795 | int | ||
796 | alg_print(BIO * x, X509_ALGOR * alg) | ||
797 | { | ||
798 | PBEPARAM *pbe; | ||
799 | const unsigned char *p; | ||
800 | p = alg->parameter->value.sequence->data; | ||
801 | pbe = d2i_PBEPARAM(NULL, &p, alg->parameter->value.sequence->length); | ||
802 | if (!pbe) | ||
803 | return 1; | ||
804 | BIO_printf(bio_err, "%s, Iteration %ld\n", | ||
805 | OBJ_nid2ln(OBJ_obj2nid(alg->algorithm)), | ||
806 | ASN1_INTEGER_get(pbe->iter)); | ||
807 | PBEPARAM_free(pbe); | ||
808 | return 1; | ||
809 | } | ||
810 | |||
811 | /* Load all certificates from a given file */ | ||
812 | |||
813 | int | ||
814 | cert_load(BIO * in, STACK_OF(X509) * sk) | ||
815 | { | ||
816 | int ret; | ||
817 | X509 *cert; | ||
818 | ret = 0; | ||
819 | while ((cert = PEM_read_bio_X509(in, NULL, NULL, NULL))) { | ||
820 | ret = 1; | ||
821 | sk_X509_push(sk, cert); | ||
822 | } | ||
823 | if (ret) | ||
824 | ERR_clear_error(); | ||
825 | return ret; | ||
826 | } | ||
827 | |||
828 | /* Generalised attribute print: handle PKCS#8 and bag attributes */ | ||
829 | |||
830 | int | ||
831 | print_attribs(BIO * out, STACK_OF(X509_ATTRIBUTE) * attrlst, const char *name) | ||
832 | { | ||
833 | X509_ATTRIBUTE *attr; | ||
834 | ASN1_TYPE *av; | ||
835 | char *value; | ||
836 | int i, attr_nid; | ||
837 | if (!attrlst) { | ||
838 | BIO_printf(out, "%s: <No Attributes>\n", name); | ||
839 | return 1; | ||
840 | } | ||
841 | if (!sk_X509_ATTRIBUTE_num(attrlst)) { | ||
842 | BIO_printf(out, "%s: <Empty Attributes>\n", name); | ||
843 | return 1; | ||
844 | } | ||
845 | BIO_printf(out, "%s\n", name); | ||
846 | for (i = 0; i < sk_X509_ATTRIBUTE_num(attrlst); i++) { | ||
847 | attr = sk_X509_ATTRIBUTE_value(attrlst, i); | ||
848 | attr_nid = OBJ_obj2nid(attr->object); | ||
849 | BIO_printf(out, " "); | ||
850 | if (attr_nid == NID_undef) { | ||
851 | i2a_ASN1_OBJECT(out, attr->object); | ||
852 | BIO_printf(out, ": "); | ||
853 | } else | ||
854 | BIO_printf(out, "%s: ", OBJ_nid2ln(attr_nid)); | ||
855 | |||
856 | if (sk_ASN1_TYPE_num(attr->value.set)) { | ||
857 | av = sk_ASN1_TYPE_value(attr->value.set, 0); | ||
858 | switch (av->type) { | ||
859 | case V_ASN1_BMPSTRING: | ||
860 | value = OPENSSL_uni2asc(av->value.bmpstring->data, | ||
861 | av->value.bmpstring->length); | ||
862 | BIO_printf(out, "%s\n", value); | ||
863 | free(value); | ||
864 | break; | ||
865 | |||
866 | case V_ASN1_OCTET_STRING: | ||
867 | hex_prin(out, av->value.octet_string->data, | ||
868 | av->value.octet_string->length); | ||
869 | BIO_printf(out, "\n"); | ||
870 | break; | ||
871 | |||
872 | case V_ASN1_BIT_STRING: | ||
873 | hex_prin(out, av->value.bit_string->data, | ||
874 | av->value.bit_string->length); | ||
875 | BIO_printf(out, "\n"); | ||
876 | break; | ||
877 | |||
878 | default: | ||
879 | BIO_printf(out, "<Unsupported tag %d>\n", av->type); | ||
880 | break; | ||
881 | } | ||
882 | } else | ||
883 | BIO_printf(out, "<No Values>\n"); | ||
884 | } | ||
885 | return 1; | ||
886 | } | ||
887 | |||
888 | void | ||
889 | hex_prin(BIO * out, unsigned char *buf, int len) | ||
890 | { | ||
891 | int i; | ||
892 | for (i = 0; i < len; i++) | ||
893 | BIO_printf(out, "%02X ", buf[i]); | ||
894 | } | ||
895 | |||
896 | static int | ||
897 | set_pbe(BIO * err, int *ppbe, const char *str) | ||
898 | { | ||
899 | if (!str) | ||
900 | return 0; | ||
901 | if (!strcmp(str, "NONE")) { | ||
902 | *ppbe = -1; | ||
903 | return 1; | ||
904 | } | ||
905 | *ppbe = OBJ_txt2nid(str); | ||
906 | if (*ppbe == NID_undef) { | ||
907 | BIO_printf(bio_err, "Unknown PBE algorithm %s\n", str); | ||
908 | return 0; | ||
909 | } | ||
910 | return 1; | ||
911 | } | ||
912 | |||
913 | #endif | ||
diff --git a/src/usr.bin/openssl/pkcs7.c b/src/usr.bin/openssl/pkcs7.c new file mode 100644 index 0000000000..2c2af168a9 --- /dev/null +++ b/src/usr.bin/openssl/pkcs7.c | |||
@@ -0,0 +1,284 @@ | |||
1 | /* $OpenBSD: pkcs7.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
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 <time.h> | ||
63 | |||
64 | #include "apps.h" | ||
65 | |||
66 | #include <openssl/err.h> | ||
67 | #include <openssl/evp.h> | ||
68 | #include <openssl/objects.h> | ||
69 | #include <openssl/pem.h> | ||
70 | #include <openssl/pkcs7.h> | ||
71 | #include <openssl/x509.h> | ||
72 | |||
73 | /* -inform arg - input format - default PEM (DER or PEM) | ||
74 | * -outform arg - output format - default PEM | ||
75 | * -in arg - input file - default stdin | ||
76 | * -out arg - output file - default stdout | ||
77 | * -print_certs | ||
78 | */ | ||
79 | |||
80 | int pkcs7_main(int, char **); | ||
81 | |||
82 | int | ||
83 | pkcs7_main(int argc, char **argv) | ||
84 | { | ||
85 | PKCS7 *p7 = NULL; | ||
86 | int i, badops = 0; | ||
87 | BIO *in = NULL, *out = NULL; | ||
88 | int informat, outformat; | ||
89 | char *infile, *outfile, *prog; | ||
90 | int print_certs = 0, text = 0, noout = 0, p7_print = 0; | ||
91 | int ret = 1; | ||
92 | #ifndef OPENSSL_NO_ENGINE | ||
93 | char *engine = NULL; | ||
94 | #endif | ||
95 | |||
96 | infile = NULL; | ||
97 | outfile = NULL; | ||
98 | informat = FORMAT_PEM; | ||
99 | outformat = FORMAT_PEM; | ||
100 | |||
101 | prog = argv[0]; | ||
102 | argc--; | ||
103 | argv++; | ||
104 | while (argc >= 1) { | ||
105 | if (strcmp(*argv, "-inform") == 0) { | ||
106 | if (--argc < 1) | ||
107 | goto bad; | ||
108 | informat = str2fmt(*(++argv)); | ||
109 | } else if (strcmp(*argv, "-outform") == 0) { | ||
110 | if (--argc < 1) | ||
111 | goto bad; | ||
112 | outformat = str2fmt(*(++argv)); | ||
113 | } else if (strcmp(*argv, "-in") == 0) { | ||
114 | if (--argc < 1) | ||
115 | goto bad; | ||
116 | infile = *(++argv); | ||
117 | } else if (strcmp(*argv, "-out") == 0) { | ||
118 | if (--argc < 1) | ||
119 | goto bad; | ||
120 | outfile = *(++argv); | ||
121 | } else if (strcmp(*argv, "-noout") == 0) | ||
122 | noout = 1; | ||
123 | else if (strcmp(*argv, "-text") == 0) | ||
124 | text = 1; | ||
125 | else if (strcmp(*argv, "-print") == 0) | ||
126 | p7_print = 1; | ||
127 | else if (strcmp(*argv, "-print_certs") == 0) | ||
128 | print_certs = 1; | ||
129 | #ifndef OPENSSL_NO_ENGINE | ||
130 | else if (strcmp(*argv, "-engine") == 0) { | ||
131 | if (--argc < 1) | ||
132 | goto bad; | ||
133 | engine = *(++argv); | ||
134 | } | ||
135 | #endif | ||
136 | else { | ||
137 | BIO_printf(bio_err, "unknown option %s\n", *argv); | ||
138 | badops = 1; | ||
139 | break; | ||
140 | } | ||
141 | argc--; | ||
142 | argv++; | ||
143 | } | ||
144 | |||
145 | if (badops) { | ||
146 | bad: | ||
147 | BIO_printf(bio_err, "%s [options] <infile >outfile\n", prog); | ||
148 | BIO_printf(bio_err, "where options are\n"); | ||
149 | BIO_printf(bio_err, " -inform arg input format - DER or PEM\n"); | ||
150 | BIO_printf(bio_err, " -outform arg output format - DER or PEM\n"); | ||
151 | BIO_printf(bio_err, " -in arg input file\n"); | ||
152 | BIO_printf(bio_err, " -out arg output file\n"); | ||
153 | BIO_printf(bio_err, " -print_certs print any certs or crl in the input\n"); | ||
154 | BIO_printf(bio_err, " -text print full details of certificates\n"); | ||
155 | BIO_printf(bio_err, " -noout don't output encoded data\n"); | ||
156 | #ifndef OPENSSL_NO_ENGINE | ||
157 | BIO_printf(bio_err, " -engine e use engine e, possibly a hardware device.\n"); | ||
158 | #endif | ||
159 | ret = 1; | ||
160 | goto end; | ||
161 | } | ||
162 | ERR_load_crypto_strings(); | ||
163 | |||
164 | #ifndef OPENSSL_NO_ENGINE | ||
165 | setup_engine(bio_err, engine, 0); | ||
166 | #endif | ||
167 | |||
168 | in = BIO_new(BIO_s_file()); | ||
169 | out = BIO_new(BIO_s_file()); | ||
170 | if ((in == NULL) || (out == NULL)) { | ||
171 | ERR_print_errors(bio_err); | ||
172 | goto end; | ||
173 | } | ||
174 | if (infile == NULL) | ||
175 | BIO_set_fp(in, stdin, BIO_NOCLOSE); | ||
176 | else { | ||
177 | if (BIO_read_filename(in, infile) <= 0) | ||
178 | if (in == NULL) { | ||
179 | perror(infile); | ||
180 | goto end; | ||
181 | } | ||
182 | } | ||
183 | |||
184 | if (informat == FORMAT_ASN1) | ||
185 | p7 = d2i_PKCS7_bio(in, NULL); | ||
186 | else if (informat == FORMAT_PEM) | ||
187 | p7 = PEM_read_bio_PKCS7(in, NULL, NULL, NULL); | ||
188 | else { | ||
189 | BIO_printf(bio_err, "bad input format specified for pkcs7 object\n"); | ||
190 | goto end; | ||
191 | } | ||
192 | if (p7 == NULL) { | ||
193 | BIO_printf(bio_err, "unable to load PKCS7 object\n"); | ||
194 | ERR_print_errors(bio_err); | ||
195 | goto end; | ||
196 | } | ||
197 | if (outfile == NULL) { | ||
198 | BIO_set_fp(out, stdout, BIO_NOCLOSE); | ||
199 | } else { | ||
200 | if (BIO_write_filename(out, outfile) <= 0) { | ||
201 | perror(outfile); | ||
202 | goto end; | ||
203 | } | ||
204 | } | ||
205 | |||
206 | if (p7_print) | ||
207 | PKCS7_print_ctx(out, p7, 0, NULL); | ||
208 | |||
209 | if (print_certs) { | ||
210 | STACK_OF(X509) * certs = NULL; | ||
211 | STACK_OF(X509_CRL) * crls = NULL; | ||
212 | |||
213 | i = OBJ_obj2nid(p7->type); | ||
214 | switch (i) { | ||
215 | case NID_pkcs7_signed: | ||
216 | certs = p7->d.sign->cert; | ||
217 | crls = p7->d.sign->crl; | ||
218 | break; | ||
219 | case NID_pkcs7_signedAndEnveloped: | ||
220 | certs = p7->d.signed_and_enveloped->cert; | ||
221 | crls = p7->d.signed_and_enveloped->crl; | ||
222 | break; | ||
223 | default: | ||
224 | break; | ||
225 | } | ||
226 | |||
227 | if (certs != NULL) { | ||
228 | X509 *x; | ||
229 | |||
230 | for (i = 0; i < sk_X509_num(certs); i++) { | ||
231 | x = sk_X509_value(certs, i); | ||
232 | if (text) | ||
233 | X509_print(out, x); | ||
234 | else | ||
235 | dump_cert_text(out, x); | ||
236 | |||
237 | if (!noout) | ||
238 | PEM_write_bio_X509(out, x); | ||
239 | BIO_puts(out, "\n"); | ||
240 | } | ||
241 | } | ||
242 | if (crls != NULL) { | ||
243 | X509_CRL *crl; | ||
244 | |||
245 | for (i = 0; i < sk_X509_CRL_num(crls); i++) { | ||
246 | crl = sk_X509_CRL_value(crls, i); | ||
247 | |||
248 | X509_CRL_print(out, crl); | ||
249 | |||
250 | if (!noout) | ||
251 | PEM_write_bio_X509_CRL(out, crl); | ||
252 | BIO_puts(out, "\n"); | ||
253 | } | ||
254 | } | ||
255 | ret = 0; | ||
256 | goto end; | ||
257 | } | ||
258 | if (!noout) { | ||
259 | if (outformat == FORMAT_ASN1) | ||
260 | i = i2d_PKCS7_bio(out, p7); | ||
261 | else if (outformat == FORMAT_PEM) | ||
262 | i = PEM_write_bio_PKCS7(out, p7); | ||
263 | else { | ||
264 | BIO_printf(bio_err, "bad output format specified for outfile\n"); | ||
265 | goto end; | ||
266 | } | ||
267 | |||
268 | if (!i) { | ||
269 | BIO_printf(bio_err, "unable to write pkcs7 object\n"); | ||
270 | ERR_print_errors(bio_err); | ||
271 | goto end; | ||
272 | } | ||
273 | } | ||
274 | ret = 0; | ||
275 | end: | ||
276 | if (p7 != NULL) | ||
277 | PKCS7_free(p7); | ||
278 | if (in != NULL) | ||
279 | BIO_free(in); | ||
280 | if (out != NULL) | ||
281 | BIO_free_all(out); | ||
282 | |||
283 | return (ret); | ||
284 | } | ||
diff --git a/src/usr.bin/openssl/pkcs8.c b/src/usr.bin/openssl/pkcs8.c new file mode 100644 index 0000000000..1715fe1d6b --- /dev/null +++ b/src/usr.bin/openssl/pkcs8.c | |||
@@ -0,0 +1,367 @@ | |||
1 | /* $OpenBSD: pkcs8.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
2 | /* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL | ||
3 | * project 1999-2004. | ||
4 | */ | ||
5 | /* ==================================================================== | ||
6 | * Copyright (c) 1999 The OpenSSL Project. All rights reserved. | ||
7 | * | ||
8 | * Redistribution and use in source and binary forms, with or without | ||
9 | * modification, are permitted provided that the following conditions | ||
10 | * are met: | ||
11 | * | ||
12 | * 1. Redistributions of source code must retain the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer. | ||
14 | * | ||
15 | * 2. Redistributions in binary form must reproduce the above copyright | ||
16 | * notice, this list of conditions and the following disclaimer in | ||
17 | * the documentation and/or other materials provided with the | ||
18 | * distribution. | ||
19 | * | ||
20 | * 3. All advertising materials mentioning features or use of this | ||
21 | * software must display the following acknowledgment: | ||
22 | * "This product includes software developed by the OpenSSL Project | ||
23 | * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" | ||
24 | * | ||
25 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
26 | * endorse or promote products derived from this software without | ||
27 | * prior written permission. For written permission, please contact | ||
28 | * licensing@OpenSSL.org. | ||
29 | * | ||
30 | * 5. Products derived from this software may not be called "OpenSSL" | ||
31 | * nor may "OpenSSL" appear in their names without prior written | ||
32 | * permission of the OpenSSL Project. | ||
33 | * | ||
34 | * 6. Redistributions of any form whatsoever must retain the following | ||
35 | * acknowledgment: | ||
36 | * "This product includes software developed by the OpenSSL Project | ||
37 | * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" | ||
38 | * | ||
39 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
40 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
41 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
42 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
43 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
44 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
45 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
46 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
47 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
48 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
49 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
50 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
51 | * ==================================================================== | ||
52 | * | ||
53 | * This product includes cryptographic software written by Eric Young | ||
54 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
55 | * Hudson (tjh@cryptsoft.com). | ||
56 | * | ||
57 | */ | ||
58 | |||
59 | #include <stdio.h> | ||
60 | #include <string.h> | ||
61 | |||
62 | #include "apps.h" | ||
63 | |||
64 | #include <openssl/err.h> | ||
65 | #include <openssl/evp.h> | ||
66 | #include <openssl/pem.h> | ||
67 | #include <openssl/pkcs12.h> | ||
68 | |||
69 | int pkcs8_main(int, char **); | ||
70 | |||
71 | int | ||
72 | pkcs8_main(int argc, char **argv) | ||
73 | { | ||
74 | ENGINE *e = NULL; | ||
75 | char **args, *infile = NULL, *outfile = NULL; | ||
76 | char *passargin = NULL, *passargout = NULL; | ||
77 | BIO *in = NULL, *out = NULL; | ||
78 | int topk8 = 0; | ||
79 | int pbe_nid = -1; | ||
80 | const EVP_CIPHER *cipher = NULL; | ||
81 | int iter = PKCS12_DEFAULT_ITER; | ||
82 | int informat, outformat; | ||
83 | int p8_broken = PKCS8_OK; | ||
84 | int nocrypt = 0; | ||
85 | X509_SIG *p8 = NULL; | ||
86 | PKCS8_PRIV_KEY_INFO *p8inf = NULL; | ||
87 | EVP_PKEY *pkey = NULL; | ||
88 | char pass[50], *passin = NULL, *passout = NULL, *p8pass = NULL; | ||
89 | int badarg = 0; | ||
90 | int ret = 1; | ||
91 | #ifndef OPENSSL_NO_ENGINE | ||
92 | char *engine = NULL; | ||
93 | #endif | ||
94 | |||
95 | informat = FORMAT_PEM; | ||
96 | outformat = FORMAT_PEM; | ||
97 | |||
98 | ERR_load_crypto_strings(); | ||
99 | OpenSSL_add_all_algorithms(); | ||
100 | args = argv + 1; | ||
101 | while (!badarg && *args && *args[0] == '-') { | ||
102 | if (!strcmp(*args, "-v2")) { | ||
103 | if (args[1]) { | ||
104 | args++; | ||
105 | cipher = EVP_get_cipherbyname(*args); | ||
106 | if (!cipher) { | ||
107 | BIO_printf(bio_err, | ||
108 | "Unknown cipher %s\n", *args); | ||
109 | badarg = 1; | ||
110 | } | ||
111 | } else | ||
112 | badarg = 1; | ||
113 | } else if (!strcmp(*args, "-v1")) { | ||
114 | if (args[1]) { | ||
115 | args++; | ||
116 | pbe_nid = OBJ_txt2nid(*args); | ||
117 | if (pbe_nid == NID_undef) { | ||
118 | BIO_printf(bio_err, | ||
119 | "Unknown PBE algorithm %s\n", *args); | ||
120 | badarg = 1; | ||
121 | } | ||
122 | } else | ||
123 | badarg = 1; | ||
124 | } else if (!strcmp(*args, "-inform")) { | ||
125 | if (args[1]) { | ||
126 | args++; | ||
127 | informat = str2fmt(*args); | ||
128 | } else | ||
129 | badarg = 1; | ||
130 | } else if (!strcmp(*args, "-outform")) { | ||
131 | if (args[1]) { | ||
132 | args++; | ||
133 | outformat = str2fmt(*args); | ||
134 | } else | ||
135 | badarg = 1; | ||
136 | } else if (!strcmp(*args, "-topk8")) | ||
137 | topk8 = 1; | ||
138 | else if (!strcmp(*args, "-noiter")) | ||
139 | iter = 1; | ||
140 | else if (!strcmp(*args, "-nocrypt")) | ||
141 | nocrypt = 1; | ||
142 | else if (!strcmp(*args, "-nooct")) | ||
143 | p8_broken = PKCS8_NO_OCTET; | ||
144 | else if (!strcmp(*args, "-nsdb")) | ||
145 | p8_broken = PKCS8_NS_DB; | ||
146 | else if (!strcmp(*args, "-embed")) | ||
147 | p8_broken = PKCS8_EMBEDDED_PARAM; | ||
148 | else if (!strcmp(*args, "-passin")) { | ||
149 | if (!args[1]) | ||
150 | goto bad; | ||
151 | passargin = *(++args); | ||
152 | } else if (!strcmp(*args, "-passout")) { | ||
153 | if (!args[1]) | ||
154 | goto bad; | ||
155 | passargout = *(++args); | ||
156 | } | ||
157 | #ifndef OPENSSL_NO_ENGINE | ||
158 | else if (strcmp(*args, "-engine") == 0) { | ||
159 | if (!args[1]) | ||
160 | goto bad; | ||
161 | engine = *(++args); | ||
162 | } | ||
163 | #endif | ||
164 | else if (!strcmp(*args, "-in")) { | ||
165 | if (args[1]) { | ||
166 | args++; | ||
167 | infile = *args; | ||
168 | } else | ||
169 | badarg = 1; | ||
170 | } else if (!strcmp(*args, "-out")) { | ||
171 | if (args[1]) { | ||
172 | args++; | ||
173 | outfile = *args; | ||
174 | } else | ||
175 | badarg = 1; | ||
176 | } else | ||
177 | badarg = 1; | ||
178 | args++; | ||
179 | } | ||
180 | |||
181 | if (badarg) { | ||
182 | bad: | ||
183 | BIO_printf(bio_err, "Usage pkcs8 [options]\n"); | ||
184 | BIO_printf(bio_err, "where options are\n"); | ||
185 | BIO_printf(bio_err, "-in file input file\n"); | ||
186 | BIO_printf(bio_err, "-inform X input format (DER or PEM)\n"); | ||
187 | BIO_printf(bio_err, "-passin arg input file pass phrase source\n"); | ||
188 | BIO_printf(bio_err, "-outform X output format (DER or PEM)\n"); | ||
189 | BIO_printf(bio_err, "-out file output file\n"); | ||
190 | BIO_printf(bio_err, "-passout arg output file pass phrase source\n"); | ||
191 | BIO_printf(bio_err, "-topk8 output PKCS8 file\n"); | ||
192 | BIO_printf(bio_err, "-nooct use (nonstandard) no octet format\n"); | ||
193 | BIO_printf(bio_err, "-embed use (nonstandard) embedded DSA parameters format\n"); | ||
194 | BIO_printf(bio_err, "-nsdb use (nonstandard) DSA Netscape DB format\n"); | ||
195 | BIO_printf(bio_err, "-noiter use 1 as iteration count\n"); | ||
196 | BIO_printf(bio_err, "-nocrypt use or expect unencrypted private key\n"); | ||
197 | BIO_printf(bio_err, "-v2 alg use PKCS#5 v2.0 and cipher \"alg\"\n"); | ||
198 | BIO_printf(bio_err, "-v1 obj use PKCS#5 v1.5 and cipher \"alg\"\n"); | ||
199 | #ifndef OPENSSL_NO_ENGINE | ||
200 | BIO_printf(bio_err, " -engine e use engine e, possibly a hardware device.\n"); | ||
201 | #endif | ||
202 | goto end; | ||
203 | } | ||
204 | #ifndef OPENSSL_NO_ENGINE | ||
205 | e = setup_engine(bio_err, engine, 0); | ||
206 | #endif | ||
207 | |||
208 | if (!app_passwd(bio_err, passargin, passargout, &passin, &passout)) { | ||
209 | BIO_printf(bio_err, "Error getting passwords\n"); | ||
210 | goto end; | ||
211 | } | ||
212 | if ((pbe_nid == -1) && !cipher) | ||
213 | pbe_nid = NID_pbeWithMD5AndDES_CBC; | ||
214 | |||
215 | if (infile) { | ||
216 | if (!(in = BIO_new_file(infile, "rb"))) { | ||
217 | BIO_printf(bio_err, | ||
218 | "Can't open input file %s\n", infile); | ||
219 | goto end; | ||
220 | } | ||
221 | } else | ||
222 | in = BIO_new_fp(stdin, BIO_NOCLOSE); | ||
223 | |||
224 | if (outfile) { | ||
225 | if (!(out = BIO_new_file(outfile, "wb"))) { | ||
226 | BIO_printf(bio_err, | ||
227 | "Can't open output file %s\n", outfile); | ||
228 | goto end; | ||
229 | } | ||
230 | } else { | ||
231 | out = BIO_new_fp(stdout, BIO_NOCLOSE); | ||
232 | } | ||
233 | if (topk8) { | ||
234 | pkey = load_key(bio_err, infile, informat, 1, | ||
235 | passin, e, "key"); | ||
236 | if (!pkey) | ||
237 | goto end; | ||
238 | if (!(p8inf = EVP_PKEY2PKCS8_broken(pkey, p8_broken))) { | ||
239 | BIO_printf(bio_err, "Error converting key\n"); | ||
240 | ERR_print_errors(bio_err); | ||
241 | goto end; | ||
242 | } | ||
243 | if (nocrypt) { | ||
244 | if (outformat == FORMAT_PEM) | ||
245 | PEM_write_bio_PKCS8_PRIV_KEY_INFO(out, p8inf); | ||
246 | else if (outformat == FORMAT_ASN1) | ||
247 | i2d_PKCS8_PRIV_KEY_INFO_bio(out, p8inf); | ||
248 | else { | ||
249 | BIO_printf(bio_err, "Bad format specified for key\n"); | ||
250 | goto end; | ||
251 | } | ||
252 | } else { | ||
253 | if (passout) | ||
254 | p8pass = passout; | ||
255 | else { | ||
256 | p8pass = pass; | ||
257 | if (EVP_read_pw_string(pass, sizeof pass, "Enter Encryption Password:", 1)) | ||
258 | goto end; | ||
259 | } | ||
260 | if (!(p8 = PKCS8_encrypt(pbe_nid, cipher, | ||
261 | p8pass, strlen(p8pass), | ||
262 | NULL, 0, iter, p8inf))) { | ||
263 | BIO_printf(bio_err, "Error encrypting key\n"); | ||
264 | ERR_print_errors(bio_err); | ||
265 | goto end; | ||
266 | } | ||
267 | if (outformat == FORMAT_PEM) | ||
268 | PEM_write_bio_PKCS8(out, p8); | ||
269 | else if (outformat == FORMAT_ASN1) | ||
270 | i2d_PKCS8_bio(out, p8); | ||
271 | else { | ||
272 | BIO_printf(bio_err, "Bad format specified for key\n"); | ||
273 | goto end; | ||
274 | } | ||
275 | } | ||
276 | |||
277 | ret = 0; | ||
278 | goto end; | ||
279 | } | ||
280 | if (nocrypt) { | ||
281 | if (informat == FORMAT_PEM) | ||
282 | p8inf = PEM_read_bio_PKCS8_PRIV_KEY_INFO(in, NULL, NULL, NULL); | ||
283 | else if (informat == FORMAT_ASN1) | ||
284 | p8inf = d2i_PKCS8_PRIV_KEY_INFO_bio(in, NULL); | ||
285 | else { | ||
286 | BIO_printf(bio_err, "Bad format specified for key\n"); | ||
287 | goto end; | ||
288 | } | ||
289 | } else { | ||
290 | if (informat == FORMAT_PEM) | ||
291 | p8 = PEM_read_bio_PKCS8(in, NULL, NULL, NULL); | ||
292 | else if (informat == FORMAT_ASN1) | ||
293 | p8 = d2i_PKCS8_bio(in, NULL); | ||
294 | else { | ||
295 | BIO_printf(bio_err, "Bad format specified for key\n"); | ||
296 | goto end; | ||
297 | } | ||
298 | |||
299 | if (!p8) { | ||
300 | BIO_printf(bio_err, "Error reading key\n"); | ||
301 | ERR_print_errors(bio_err); | ||
302 | goto end; | ||
303 | } | ||
304 | if (passin) | ||
305 | p8pass = passin; | ||
306 | else { | ||
307 | p8pass = pass; | ||
308 | EVP_read_pw_string(pass, sizeof pass, "Enter Password:", 0); | ||
309 | } | ||
310 | p8inf = PKCS8_decrypt(p8, p8pass, strlen(p8pass)); | ||
311 | } | ||
312 | |||
313 | if (!p8inf) { | ||
314 | BIO_printf(bio_err, "Error decrypting key\n"); | ||
315 | ERR_print_errors(bio_err); | ||
316 | goto end; | ||
317 | } | ||
318 | if (!(pkey = EVP_PKCS82PKEY(p8inf))) { | ||
319 | BIO_printf(bio_err, "Error converting key\n"); | ||
320 | ERR_print_errors(bio_err); | ||
321 | goto end; | ||
322 | } | ||
323 | if (p8inf->broken) { | ||
324 | BIO_printf(bio_err, "Warning: broken key encoding: "); | ||
325 | switch (p8inf->broken) { | ||
326 | case PKCS8_NO_OCTET: | ||
327 | BIO_printf(bio_err, "No Octet String in PrivateKey\n"); | ||
328 | break; | ||
329 | |||
330 | case PKCS8_EMBEDDED_PARAM: | ||
331 | BIO_printf(bio_err, "DSA parameters included in PrivateKey\n"); | ||
332 | break; | ||
333 | |||
334 | case PKCS8_NS_DB: | ||
335 | BIO_printf(bio_err, "DSA public key include in PrivateKey\n"); | ||
336 | break; | ||
337 | |||
338 | case PKCS8_NEG_PRIVKEY: | ||
339 | BIO_printf(bio_err, "DSA private key value is negative\n"); | ||
340 | break; | ||
341 | |||
342 | default: | ||
343 | BIO_printf(bio_err, "Unknown broken type\n"); | ||
344 | break; | ||
345 | } | ||
346 | } | ||
347 | if (outformat == FORMAT_PEM) | ||
348 | PEM_write_bio_PrivateKey(out, pkey, NULL, NULL, 0, NULL, passout); | ||
349 | else if (outformat == FORMAT_ASN1) | ||
350 | i2d_PrivateKey_bio(out, pkey); | ||
351 | else { | ||
352 | BIO_printf(bio_err, "Bad format specified for key\n"); | ||
353 | goto end; | ||
354 | } | ||
355 | ret = 0; | ||
356 | |||
357 | end: | ||
358 | X509_SIG_free(p8); | ||
359 | PKCS8_PRIV_KEY_INFO_free(p8inf); | ||
360 | EVP_PKEY_free(pkey); | ||
361 | BIO_free_all(out); | ||
362 | BIO_free(in); | ||
363 | free(passin); | ||
364 | free(passout); | ||
365 | |||
366 | return ret; | ||
367 | } | ||
diff --git a/src/usr.bin/openssl/pkey.c b/src/usr.bin/openssl/pkey.c new file mode 100644 index 0000000000..7f13bbbf62 --- /dev/null +++ b/src/usr.bin/openssl/pkey.c | |||
@@ -0,0 +1,235 @@ | |||
1 | /* $OpenBSD: pkey.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
2 | /* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL | ||
3 | * project 2006 | ||
4 | */ | ||
5 | /* ==================================================================== | ||
6 | * Copyright (c) 2006 The OpenSSL Project. All rights reserved. | ||
7 | * | ||
8 | * Redistribution and use in source and binary forms, with or without | ||
9 | * modification, are permitted provided that the following conditions | ||
10 | * are met: | ||
11 | * | ||
12 | * 1. Redistributions of source code must retain the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer. | ||
14 | * | ||
15 | * 2. Redistributions in binary form must reproduce the above copyright | ||
16 | * notice, this list of conditions and the following disclaimer in | ||
17 | * the documentation and/or other materials provided with the | ||
18 | * distribution. | ||
19 | * | ||
20 | * 3. All advertising materials mentioning features or use of this | ||
21 | * software must display the following acknowledgment: | ||
22 | * "This product includes software developed by the OpenSSL Project | ||
23 | * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" | ||
24 | * | ||
25 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
26 | * endorse or promote products derived from this software without | ||
27 | * prior written permission. For written permission, please contact | ||
28 | * licensing@OpenSSL.org. | ||
29 | * | ||
30 | * 5. Products derived from this software may not be called "OpenSSL" | ||
31 | * nor may "OpenSSL" appear in their names without prior written | ||
32 | * permission of the OpenSSL Project. | ||
33 | * | ||
34 | * 6. Redistributions of any form whatsoever must retain the following | ||
35 | * acknowledgment: | ||
36 | * "This product includes software developed by the OpenSSL Project | ||
37 | * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" | ||
38 | * | ||
39 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
40 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
41 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
42 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
43 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
44 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
45 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
46 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
47 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
48 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
49 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
50 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
51 | * ==================================================================== | ||
52 | * | ||
53 | * This product includes cryptographic software written by Eric Young | ||
54 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
55 | * Hudson (tjh@cryptsoft.com). | ||
56 | * | ||
57 | */ | ||
58 | |||
59 | #include <stdio.h> | ||
60 | #include <string.h> | ||
61 | |||
62 | #include "apps.h" | ||
63 | |||
64 | #include <openssl/err.h> | ||
65 | #include <openssl/evp.h> | ||
66 | #include <openssl/pem.h> | ||
67 | |||
68 | int pkey_main(int, char **); | ||
69 | |||
70 | int | ||
71 | pkey_main(int argc, char **argv) | ||
72 | { | ||
73 | ENGINE *e = NULL; | ||
74 | char **args, *infile = NULL, *outfile = NULL; | ||
75 | char *passargin = NULL, *passargout = NULL; | ||
76 | BIO *in = NULL, *out = NULL; | ||
77 | const EVP_CIPHER *cipher = NULL; | ||
78 | int informat, outformat; | ||
79 | int pubin = 0, pubout = 0, pubtext = 0, text = 0, noout = 0; | ||
80 | EVP_PKEY *pkey = NULL; | ||
81 | char *passin = NULL, *passout = NULL; | ||
82 | int badarg = 0; | ||
83 | #ifndef OPENSSL_NO_ENGINE | ||
84 | char *engine = NULL; | ||
85 | #endif | ||
86 | int ret = 1; | ||
87 | |||
88 | informat = FORMAT_PEM; | ||
89 | outformat = FORMAT_PEM; | ||
90 | |||
91 | ERR_load_crypto_strings(); | ||
92 | OpenSSL_add_all_algorithms(); | ||
93 | args = argv + 1; | ||
94 | while (!badarg && *args && *args[0] == '-') { | ||
95 | if (!strcmp(*args, "-inform")) { | ||
96 | if (args[1]) { | ||
97 | args++; | ||
98 | informat = str2fmt(*args); | ||
99 | } else | ||
100 | badarg = 1; | ||
101 | } else if (!strcmp(*args, "-outform")) { | ||
102 | if (args[1]) { | ||
103 | args++; | ||
104 | outformat = str2fmt(*args); | ||
105 | } else | ||
106 | badarg = 1; | ||
107 | } else if (!strcmp(*args, "-passin")) { | ||
108 | if (!args[1]) | ||
109 | goto bad; | ||
110 | passargin = *(++args); | ||
111 | } else if (!strcmp(*args, "-passout")) { | ||
112 | if (!args[1]) | ||
113 | goto bad; | ||
114 | passargout = *(++args); | ||
115 | } | ||
116 | #ifndef OPENSSL_NO_ENGINE | ||
117 | else if (strcmp(*args, "-engine") == 0) { | ||
118 | if (!args[1]) | ||
119 | goto bad; | ||
120 | engine = *(++args); | ||
121 | } | ||
122 | #endif | ||
123 | else if (!strcmp(*args, "-in")) { | ||
124 | if (args[1]) { | ||
125 | args++; | ||
126 | infile = *args; | ||
127 | } else | ||
128 | badarg = 1; | ||
129 | } else if (!strcmp(*args, "-out")) { | ||
130 | if (args[1]) { | ||
131 | args++; | ||
132 | outfile = *args; | ||
133 | } else | ||
134 | badarg = 1; | ||
135 | } else if (strcmp(*args, "-pubin") == 0) { | ||
136 | pubin = 1; | ||
137 | pubout = 1; | ||
138 | pubtext = 1; | ||
139 | } else if (strcmp(*args, "-pubout") == 0) | ||
140 | pubout = 1; | ||
141 | else if (strcmp(*args, "-text_pub") == 0) { | ||
142 | pubtext = 1; | ||
143 | text = 1; | ||
144 | } else if (strcmp(*args, "-text") == 0) | ||
145 | text = 1; | ||
146 | else if (strcmp(*args, "-noout") == 0) | ||
147 | noout = 1; | ||
148 | else { | ||
149 | cipher = EVP_get_cipherbyname(*args + 1); | ||
150 | if (!cipher) { | ||
151 | BIO_printf(bio_err, "Unknown cipher %s\n", | ||
152 | *args + 1); | ||
153 | badarg = 1; | ||
154 | } | ||
155 | } | ||
156 | args++; | ||
157 | } | ||
158 | |||
159 | if (badarg) { | ||
160 | bad: | ||
161 | BIO_printf(bio_err, "Usage pkey [options]\n"); | ||
162 | BIO_printf(bio_err, "where options are\n"); | ||
163 | BIO_printf(bio_err, "-in file input file\n"); | ||
164 | BIO_printf(bio_err, "-inform X input format (DER or PEM)\n"); | ||
165 | BIO_printf(bio_err, "-passin arg input file pass phrase source\n"); | ||
166 | BIO_printf(bio_err, "-outform X output format (DER or PEM)\n"); | ||
167 | BIO_printf(bio_err, "-out file output file\n"); | ||
168 | BIO_printf(bio_err, "-passout arg output file pass phrase source\n"); | ||
169 | #ifndef OPENSSL_NO_ENGINE | ||
170 | BIO_printf(bio_err, "-engine e use engine e, possibly a hardware device.\n"); | ||
171 | #endif | ||
172 | return 1; | ||
173 | } | ||
174 | #ifndef OPENSSL_NO_ENGINE | ||
175 | e = setup_engine(bio_err, engine, 0); | ||
176 | #endif | ||
177 | |||
178 | if (!app_passwd(bio_err, passargin, passargout, &passin, &passout)) { | ||
179 | BIO_printf(bio_err, "Error getting passwords\n"); | ||
180 | goto end; | ||
181 | } | ||
182 | if (outfile) { | ||
183 | if (!(out = BIO_new_file(outfile, "wb"))) { | ||
184 | BIO_printf(bio_err, | ||
185 | "Can't open output file %s\n", outfile); | ||
186 | goto end; | ||
187 | } | ||
188 | } else { | ||
189 | out = BIO_new_fp(stdout, BIO_NOCLOSE); | ||
190 | } | ||
191 | |||
192 | if (pubin) | ||
193 | pkey = load_pubkey(bio_err, infile, informat, 1, | ||
194 | passin, e, "Public Key"); | ||
195 | else | ||
196 | pkey = load_key(bio_err, infile, informat, 1, | ||
197 | passin, e, "key"); | ||
198 | if (!pkey) | ||
199 | goto end; | ||
200 | |||
201 | if (!noout) { | ||
202 | if (outformat == FORMAT_PEM) { | ||
203 | if (pubout) | ||
204 | PEM_write_bio_PUBKEY(out, pkey); | ||
205 | else | ||
206 | PEM_write_bio_PrivateKey(out, pkey, cipher, | ||
207 | NULL, 0, NULL, passout); | ||
208 | } else if (outformat == FORMAT_ASN1) { | ||
209 | if (pubout) | ||
210 | i2d_PUBKEY_bio(out, pkey); | ||
211 | else | ||
212 | i2d_PrivateKey_bio(out, pkey); | ||
213 | } else { | ||
214 | BIO_printf(bio_err, "Bad format specified for key\n"); | ||
215 | goto end; | ||
216 | } | ||
217 | |||
218 | } | ||
219 | if (text) { | ||
220 | if (pubtext) | ||
221 | EVP_PKEY_print_public(out, pkey, 0, NULL); | ||
222 | else | ||
223 | EVP_PKEY_print_private(out, pkey, 0, NULL); | ||
224 | } | ||
225 | ret = 0; | ||
226 | |||
227 | end: | ||
228 | EVP_PKEY_free(pkey); | ||
229 | BIO_free_all(out); | ||
230 | BIO_free(in); | ||
231 | free(passin); | ||
232 | free(passout); | ||
233 | |||
234 | return ret; | ||
235 | } | ||
diff --git a/src/usr.bin/openssl/pkeyparam.c b/src/usr.bin/openssl/pkeyparam.c new file mode 100644 index 0000000000..c48f1a95dd --- /dev/null +++ b/src/usr.bin/openssl/pkeyparam.c | |||
@@ -0,0 +1,173 @@ | |||
1 | /* $OpenBSD: pkeyparam.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
2 | /* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL | ||
3 | * project 2006 | ||
4 | */ | ||
5 | /* ==================================================================== | ||
6 | * Copyright (c) 2006 The OpenSSL Project. All rights reserved. | ||
7 | * | ||
8 | * Redistribution and use in source and binary forms, with or without | ||
9 | * modification, are permitted provided that the following conditions | ||
10 | * are met: | ||
11 | * | ||
12 | * 1. Redistributions of source code must retain the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer. | ||
14 | * | ||
15 | * 2. Redistributions in binary form must reproduce the above copyright | ||
16 | * notice, this list of conditions and the following disclaimer in | ||
17 | * the documentation and/or other materials provided with the | ||
18 | * distribution. | ||
19 | * | ||
20 | * 3. All advertising materials mentioning features or use of this | ||
21 | * software must display the following acknowledgment: | ||
22 | * "This product includes software developed by the OpenSSL Project | ||
23 | * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" | ||
24 | * | ||
25 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
26 | * endorse or promote products derived from this software without | ||
27 | * prior written permission. For written permission, please contact | ||
28 | * licensing@OpenSSL.org. | ||
29 | * | ||
30 | * 5. Products derived from this software may not be called "OpenSSL" | ||
31 | * nor may "OpenSSL" appear in their names without prior written | ||
32 | * permission of the OpenSSL Project. | ||
33 | * | ||
34 | * 6. Redistributions of any form whatsoever must retain the following | ||
35 | * acknowledgment: | ||
36 | * "This product includes software developed by the OpenSSL Project | ||
37 | * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" | ||
38 | * | ||
39 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
40 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
41 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
42 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
43 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
44 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
45 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
46 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
47 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
48 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
49 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
50 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
51 | * ==================================================================== | ||
52 | * | ||
53 | * This product includes cryptographic software written by Eric Young | ||
54 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
55 | * Hudson (tjh@cryptsoft.com). | ||
56 | * | ||
57 | */ | ||
58 | |||
59 | #include <stdio.h> | ||
60 | #include <string.h> | ||
61 | |||
62 | #include "apps.h" | ||
63 | |||
64 | #include <openssl/err.h> | ||
65 | #include <openssl/evp.h> | ||
66 | #include <openssl/pem.h> | ||
67 | |||
68 | int pkeyparam_main(int, char **); | ||
69 | |||
70 | int | ||
71 | pkeyparam_main(int argc, char **argv) | ||
72 | { | ||
73 | char **args, *infile = NULL, *outfile = NULL; | ||
74 | BIO *in = NULL, *out = NULL; | ||
75 | int text = 0, noout = 0; | ||
76 | EVP_PKEY *pkey = NULL; | ||
77 | int badarg = 0; | ||
78 | #ifndef OPENSSL_NO_ENGINE | ||
79 | char *engine = NULL; | ||
80 | #endif | ||
81 | int ret = 1; | ||
82 | |||
83 | ERR_load_crypto_strings(); | ||
84 | OpenSSL_add_all_algorithms(); | ||
85 | args = argv + 1; | ||
86 | while (!badarg && *args && *args[0] == '-') { | ||
87 | if (!strcmp(*args, "-in")) { | ||
88 | if (args[1]) { | ||
89 | args++; | ||
90 | infile = *args; | ||
91 | } else | ||
92 | badarg = 1; | ||
93 | } else if (!strcmp(*args, "-out")) { | ||
94 | if (args[1]) { | ||
95 | args++; | ||
96 | outfile = *args; | ||
97 | } else | ||
98 | badarg = 1; | ||
99 | } | ||
100 | #ifndef OPENSSL_NO_ENGINE | ||
101 | else if (strcmp(*args, "-engine") == 0) { | ||
102 | if (!args[1]) | ||
103 | goto bad; | ||
104 | engine = *(++args); | ||
105 | } | ||
106 | #endif | ||
107 | |||
108 | else if (strcmp(*args, "-text") == 0) | ||
109 | text = 1; | ||
110 | else if (strcmp(*args, "-noout") == 0) | ||
111 | noout = 1; | ||
112 | args++; | ||
113 | } | ||
114 | |||
115 | if (badarg) { | ||
116 | #ifndef OPENSSL_NO_ENGINE | ||
117 | bad: | ||
118 | #endif | ||
119 | BIO_printf(bio_err, "Usage pkeyparam [options]\n"); | ||
120 | BIO_printf(bio_err, "where options are\n"); | ||
121 | BIO_printf(bio_err, "-in file input file\n"); | ||
122 | BIO_printf(bio_err, "-out file output file\n"); | ||
123 | BIO_printf(bio_err, "-text print parameters as text\n"); | ||
124 | BIO_printf(bio_err, "-noout don't output encoded parameters\n"); | ||
125 | #ifndef OPENSSL_NO_ENGINE | ||
126 | BIO_printf(bio_err, "-engine e use engine e, possibly a hardware device.\n"); | ||
127 | #endif | ||
128 | return 1; | ||
129 | } | ||
130 | #ifndef OPENSSL_NO_ENGINE | ||
131 | setup_engine(bio_err, engine, 0); | ||
132 | #endif | ||
133 | |||
134 | if (infile) { | ||
135 | if (!(in = BIO_new_file(infile, "r"))) { | ||
136 | BIO_printf(bio_err, | ||
137 | "Can't open input file %s\n", infile); | ||
138 | goto end; | ||
139 | } | ||
140 | } else | ||
141 | in = BIO_new_fp(stdin, BIO_NOCLOSE); | ||
142 | |||
143 | if (outfile) { | ||
144 | if (!(out = BIO_new_file(outfile, "w"))) { | ||
145 | BIO_printf(bio_err, | ||
146 | "Can't open output file %s\n", outfile); | ||
147 | goto end; | ||
148 | } | ||
149 | } else { | ||
150 | out = BIO_new_fp(stdout, BIO_NOCLOSE); | ||
151 | } | ||
152 | |||
153 | pkey = PEM_read_bio_Parameters(in, NULL); | ||
154 | if (!pkey) { | ||
155 | BIO_printf(bio_err, "Error reading parameters\n"); | ||
156 | ERR_print_errors(bio_err); | ||
157 | goto end; | ||
158 | } | ||
159 | if (!noout) | ||
160 | PEM_write_bio_Parameters(out, pkey); | ||
161 | |||
162 | if (text) | ||
163 | EVP_PKEY_print_params(out, pkey, 0, NULL); | ||
164 | |||
165 | ret = 0; | ||
166 | |||
167 | end: | ||
168 | EVP_PKEY_free(pkey); | ||
169 | BIO_free_all(out); | ||
170 | BIO_free(in); | ||
171 | |||
172 | return ret; | ||
173 | } | ||
diff --git a/src/usr.bin/openssl/pkeyutl.c b/src/usr.bin/openssl/pkeyutl.c new file mode 100644 index 0000000000..5fff008db6 --- /dev/null +++ b/src/usr.bin/openssl/pkeyutl.c | |||
@@ -0,0 +1,503 @@ | |||
1 | /* $OpenBSD: pkeyutl.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
2 | /* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL | ||
3 | * project 2006. | ||
4 | */ | ||
5 | /* ==================================================================== | ||
6 | * Copyright (c) 2006 The OpenSSL Project. All rights reserved. | ||
7 | * | ||
8 | * Redistribution and use in source and binary forms, with or without | ||
9 | * modification, are permitted provided that the following conditions | ||
10 | * are met: | ||
11 | * | ||
12 | * 1. Redistributions of source code must retain the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer. | ||
14 | * | ||
15 | * 2. Redistributions in binary form must reproduce the above copyright | ||
16 | * notice, this list of conditions and the following disclaimer in | ||
17 | * the documentation and/or other materials provided with the | ||
18 | * distribution. | ||
19 | * | ||
20 | * 3. All advertising materials mentioning features or use of this | ||
21 | * software must display the following acknowledgment: | ||
22 | * "This product includes software developed by the OpenSSL Project | ||
23 | * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" | ||
24 | * | ||
25 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
26 | * endorse or promote products derived from this software without | ||
27 | * prior written permission. For written permission, please contact | ||
28 | * licensing@OpenSSL.org. | ||
29 | * | ||
30 | * 5. Products derived from this software may not be called "OpenSSL" | ||
31 | * nor may "OpenSSL" appear in their names without prior written | ||
32 | * permission of the OpenSSL Project. | ||
33 | * | ||
34 | * 6. Redistributions of any form whatsoever must retain the following | ||
35 | * acknowledgment: | ||
36 | * "This product includes software developed by the OpenSSL Project | ||
37 | * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" | ||
38 | * | ||
39 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
40 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
41 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
42 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
43 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
44 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
45 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
46 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
47 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
48 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
49 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
50 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
51 | * ==================================================================== | ||
52 | * | ||
53 | * This product includes cryptographic software written by Eric Young | ||
54 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
55 | * Hudson (tjh@cryptsoft.com). | ||
56 | * | ||
57 | */ | ||
58 | |||
59 | #include <string.h> | ||
60 | |||
61 | #include "apps.h" | ||
62 | |||
63 | #include <openssl/err.h> | ||
64 | #include <openssl/evp.h> | ||
65 | #include <openssl/pem.h> | ||
66 | |||
67 | #define KEY_PRIVKEY 1 | ||
68 | #define KEY_PUBKEY 2 | ||
69 | #define KEY_CERT 3 | ||
70 | |||
71 | static void usage(void); | ||
72 | |||
73 | static EVP_PKEY_CTX *init_ctx(int *pkeysize, | ||
74 | char *keyfile, int keyform, int key_type, | ||
75 | char *passargin, int pkey_op, ENGINE * e); | ||
76 | |||
77 | static int setup_peer(BIO * err, EVP_PKEY_CTX * ctx, int peerform, | ||
78 | const char *file); | ||
79 | |||
80 | static int do_keyop(EVP_PKEY_CTX * ctx, int pkey_op, | ||
81 | unsigned char *out, size_t * poutlen, | ||
82 | unsigned char *in, size_t inlen); | ||
83 | |||
84 | int pkeyutl_main(int argc, char **); | ||
85 | |||
86 | int | ||
87 | pkeyutl_main(int argc, char **argv) | ||
88 | { | ||
89 | BIO *in = NULL, *out = NULL; | ||
90 | char *infile = NULL, *outfile = NULL, *sigfile = NULL; | ||
91 | ENGINE *e = NULL; | ||
92 | int pkey_op = EVP_PKEY_OP_SIGN, key_type = KEY_PRIVKEY; | ||
93 | int keyform = FORMAT_PEM, peerform = FORMAT_PEM; | ||
94 | char badarg = 0, rev = 0; | ||
95 | char hexdump = 0, asn1parse = 0; | ||
96 | EVP_PKEY_CTX *ctx = NULL; | ||
97 | char *passargin = NULL; | ||
98 | int keysize = -1; | ||
99 | |||
100 | unsigned char *buf_in = NULL, *buf_out = NULL, *sig = NULL; | ||
101 | size_t buf_outlen; | ||
102 | int buf_inlen = 0, siglen = -1; | ||
103 | |||
104 | int ret = 1, rv = -1; | ||
105 | |||
106 | argc--; | ||
107 | argv++; | ||
108 | |||
109 | ERR_load_crypto_strings(); | ||
110 | OpenSSL_add_all_algorithms(); | ||
111 | |||
112 | while (argc >= 1) { | ||
113 | if (!strcmp(*argv, "-in")) { | ||
114 | if (--argc < 1) | ||
115 | badarg = 1; | ||
116 | else | ||
117 | infile = *(++argv); | ||
118 | } else if (!strcmp(*argv, "-out")) { | ||
119 | if (--argc < 1) | ||
120 | badarg = 1; | ||
121 | else | ||
122 | outfile = *(++argv); | ||
123 | } else if (!strcmp(*argv, "-sigfile")) { | ||
124 | if (--argc < 1) | ||
125 | badarg = 1; | ||
126 | else | ||
127 | sigfile = *(++argv); | ||
128 | } else if (!strcmp(*argv, "-inkey")) { | ||
129 | if (--argc < 1) | ||
130 | badarg = 1; | ||
131 | else { | ||
132 | ctx = init_ctx(&keysize, | ||
133 | *(++argv), keyform, key_type, | ||
134 | passargin, pkey_op, e); | ||
135 | if (!ctx) { | ||
136 | BIO_puts(bio_err, | ||
137 | "Error initializing context\n"); | ||
138 | ERR_print_errors(bio_err); | ||
139 | badarg = 1; | ||
140 | } | ||
141 | } | ||
142 | } else if (!strcmp(*argv, "-peerkey")) { | ||
143 | if (--argc < 1) | ||
144 | badarg = 1; | ||
145 | else if (!setup_peer(bio_err, ctx, peerform, *(++argv))) | ||
146 | badarg = 1; | ||
147 | } else if (!strcmp(*argv, "-passin")) { | ||
148 | if (--argc < 1) | ||
149 | badarg = 1; | ||
150 | else | ||
151 | passargin = *(++argv); | ||
152 | } else if (strcmp(*argv, "-peerform") == 0) { | ||
153 | if (--argc < 1) | ||
154 | badarg = 1; | ||
155 | else | ||
156 | peerform = str2fmt(*(++argv)); | ||
157 | } else if (strcmp(*argv, "-keyform") == 0) { | ||
158 | if (--argc < 1) | ||
159 | badarg = 1; | ||
160 | else | ||
161 | keyform = str2fmt(*(++argv)); | ||
162 | } | ||
163 | #ifndef OPENSSL_NO_ENGINE | ||
164 | else if (!strcmp(*argv, "-engine")) { | ||
165 | if (--argc < 1) | ||
166 | badarg = 1; | ||
167 | else | ||
168 | e = setup_engine(bio_err, *(++argv), 0); | ||
169 | } | ||
170 | #endif | ||
171 | else if (!strcmp(*argv, "-pubin")) | ||
172 | key_type = KEY_PUBKEY; | ||
173 | else if (!strcmp(*argv, "-certin")) | ||
174 | key_type = KEY_CERT; | ||
175 | else if (!strcmp(*argv, "-asn1parse")) | ||
176 | asn1parse = 1; | ||
177 | else if (!strcmp(*argv, "-hexdump")) | ||
178 | hexdump = 1; | ||
179 | else if (!strcmp(*argv, "-sign")) | ||
180 | pkey_op = EVP_PKEY_OP_SIGN; | ||
181 | else if (!strcmp(*argv, "-verify")) | ||
182 | pkey_op = EVP_PKEY_OP_VERIFY; | ||
183 | else if (!strcmp(*argv, "-verifyrecover")) | ||
184 | pkey_op = EVP_PKEY_OP_VERIFYRECOVER; | ||
185 | else if (!strcmp(*argv, "-rev")) | ||
186 | rev = 1; | ||
187 | else if (!strcmp(*argv, "-encrypt")) | ||
188 | pkey_op = EVP_PKEY_OP_ENCRYPT; | ||
189 | else if (!strcmp(*argv, "-decrypt")) | ||
190 | pkey_op = EVP_PKEY_OP_DECRYPT; | ||
191 | else if (!strcmp(*argv, "-derive")) | ||
192 | pkey_op = EVP_PKEY_OP_DERIVE; | ||
193 | else if (strcmp(*argv, "-pkeyopt") == 0) { | ||
194 | if (--argc < 1) | ||
195 | badarg = 1; | ||
196 | else if (!ctx) { | ||
197 | BIO_puts(bio_err, | ||
198 | "-pkeyopt command before -inkey\n"); | ||
199 | badarg = 1; | ||
200 | } else if (pkey_ctrl_string(ctx, *(++argv)) <= 0) { | ||
201 | BIO_puts(bio_err, "parameter setting error\n"); | ||
202 | ERR_print_errors(bio_err); | ||
203 | goto end; | ||
204 | } | ||
205 | } else | ||
206 | badarg = 1; | ||
207 | if (badarg) { | ||
208 | usage(); | ||
209 | goto end; | ||
210 | } | ||
211 | argc--; | ||
212 | argv++; | ||
213 | } | ||
214 | |||
215 | if (!ctx) { | ||
216 | usage(); | ||
217 | goto end; | ||
218 | } | ||
219 | if (sigfile && (pkey_op != EVP_PKEY_OP_VERIFY)) { | ||
220 | BIO_puts(bio_err, "Signature file specified for non verify\n"); | ||
221 | goto end; | ||
222 | } | ||
223 | if (!sigfile && (pkey_op == EVP_PKEY_OP_VERIFY)) { | ||
224 | BIO_puts(bio_err, "No signature file specified for verify\n"); | ||
225 | goto end; | ||
226 | } | ||
227 | |||
228 | if (pkey_op != EVP_PKEY_OP_DERIVE) { | ||
229 | if (infile) { | ||
230 | if (!(in = BIO_new_file(infile, "rb"))) { | ||
231 | BIO_puts(bio_err, | ||
232 | "Error Opening Input File\n"); | ||
233 | ERR_print_errors(bio_err); | ||
234 | goto end; | ||
235 | } | ||
236 | } else | ||
237 | in = BIO_new_fp(stdin, BIO_NOCLOSE); | ||
238 | } | ||
239 | if (outfile) { | ||
240 | if (!(out = BIO_new_file(outfile, "wb"))) { | ||
241 | BIO_printf(bio_err, "Error Creating Output File\n"); | ||
242 | ERR_print_errors(bio_err); | ||
243 | goto end; | ||
244 | } | ||
245 | } else { | ||
246 | out = BIO_new_fp(stdout, BIO_NOCLOSE); | ||
247 | } | ||
248 | |||
249 | if (sigfile) { | ||
250 | BIO *sigbio = BIO_new_file(sigfile, "rb"); | ||
251 | if (!sigbio) { | ||
252 | BIO_printf(bio_err, "Can't open signature file %s\n", | ||
253 | sigfile); | ||
254 | goto end; | ||
255 | } | ||
256 | siglen = bio_to_mem(&sig, keysize * 10, sigbio); | ||
257 | BIO_free(sigbio); | ||
258 | if (siglen <= 0) { | ||
259 | BIO_printf(bio_err, "Error reading signature data\n"); | ||
260 | goto end; | ||
261 | } | ||
262 | } | ||
263 | if (in) { | ||
264 | /* Read the input data */ | ||
265 | buf_inlen = bio_to_mem(&buf_in, keysize * 10, in); | ||
266 | if (buf_inlen <= 0) { | ||
267 | BIO_printf(bio_err, "Error reading input Data\n"); | ||
268 | exit(1); | ||
269 | } | ||
270 | if (rev) { | ||
271 | size_t i; | ||
272 | unsigned char ctmp; | ||
273 | size_t l = (size_t) buf_inlen; | ||
274 | for (i = 0; i < l / 2; i++) { | ||
275 | ctmp = buf_in[i]; | ||
276 | buf_in[i] = buf_in[l - 1 - i]; | ||
277 | buf_in[l - 1 - i] = ctmp; | ||
278 | } | ||
279 | } | ||
280 | } | ||
281 | if (pkey_op == EVP_PKEY_OP_VERIFY) { | ||
282 | rv = EVP_PKEY_verify(ctx, sig, (size_t) siglen, | ||
283 | buf_in, (size_t) buf_inlen); | ||
284 | if (rv == 0) | ||
285 | BIO_puts(out, "Signature Verification Failure\n"); | ||
286 | else if (rv == 1) | ||
287 | BIO_puts(out, "Signature Verified Successfully\n"); | ||
288 | if (rv >= 0) | ||
289 | goto end; | ||
290 | } else { | ||
291 | rv = do_keyop(ctx, pkey_op, NULL, (size_t *) & buf_outlen, | ||
292 | buf_in, (size_t) buf_inlen); | ||
293 | if (rv > 0) { | ||
294 | buf_out = malloc(buf_outlen); | ||
295 | if (!buf_out) | ||
296 | rv = -1; | ||
297 | else | ||
298 | rv = do_keyop(ctx, pkey_op, | ||
299 | buf_out, (size_t *) & buf_outlen, | ||
300 | buf_in, (size_t) buf_inlen); | ||
301 | } | ||
302 | } | ||
303 | |||
304 | if (rv <= 0) { | ||
305 | BIO_printf(bio_err, "Public Key operation error\n"); | ||
306 | ERR_print_errors(bio_err); | ||
307 | goto end; | ||
308 | } | ||
309 | ret = 0; | ||
310 | if (asn1parse) { | ||
311 | if (!ASN1_parse_dump(out, buf_out, buf_outlen, 1, -1)) | ||
312 | ERR_print_errors(bio_err); | ||
313 | } else if (hexdump) | ||
314 | BIO_dump(out, (char *) buf_out, buf_outlen); | ||
315 | else | ||
316 | BIO_write(out, buf_out, buf_outlen); | ||
317 | |||
318 | end: | ||
319 | if (ctx) | ||
320 | EVP_PKEY_CTX_free(ctx); | ||
321 | BIO_free(in); | ||
322 | BIO_free_all(out); | ||
323 | free(buf_in); | ||
324 | free(buf_out); | ||
325 | free(sig); | ||
326 | |||
327 | return ret; | ||
328 | } | ||
329 | |||
330 | static void | ||
331 | usage() | ||
332 | { | ||
333 | BIO_printf(bio_err, "Usage: pkeyutl [options]\n"); | ||
334 | BIO_printf(bio_err, "-in file input file\n"); | ||
335 | BIO_printf(bio_err, "-out file output file\n"); | ||
336 | BIO_printf(bio_err, "-sigfile file signature file (verify operation only)\n"); | ||
337 | BIO_printf(bio_err, "-inkey file input key\n"); | ||
338 | BIO_printf(bio_err, "-keyform arg private key format - default PEM\n"); | ||
339 | BIO_printf(bio_err, "-pubin input is a public key\n"); | ||
340 | BIO_printf(bio_err, "-certin input is a certificate carrying a public key\n"); | ||
341 | BIO_printf(bio_err, "-pkeyopt X:Y public key options\n"); | ||
342 | BIO_printf(bio_err, "-sign sign with private key\n"); | ||
343 | BIO_printf(bio_err, "-verify verify with public key\n"); | ||
344 | BIO_printf(bio_err, "-verifyrecover verify with public key, recover original data\n"); | ||
345 | BIO_printf(bio_err, "-encrypt encrypt with public key\n"); | ||
346 | BIO_printf(bio_err, "-decrypt decrypt with private key\n"); | ||
347 | BIO_printf(bio_err, "-derive derive shared secret\n"); | ||
348 | BIO_printf(bio_err, "-hexdump hex dump output\n"); | ||
349 | #ifndef OPENSSL_NO_ENGINE | ||
350 | BIO_printf(bio_err, "-engine e use engine e, possibly a hardware device.\n"); | ||
351 | #endif | ||
352 | BIO_printf(bio_err, "-passin arg pass phrase source\n"); | ||
353 | |||
354 | } | ||
355 | |||
356 | static EVP_PKEY_CTX * | ||
357 | init_ctx(int *pkeysize, | ||
358 | char *keyfile, int keyform, int key_type, | ||
359 | char *passargin, int pkey_op, ENGINE * e) | ||
360 | { | ||
361 | EVP_PKEY *pkey = NULL; | ||
362 | EVP_PKEY_CTX *ctx = NULL; | ||
363 | char *passin = NULL; | ||
364 | int rv = -1; | ||
365 | X509 *x; | ||
366 | if (((pkey_op == EVP_PKEY_OP_SIGN) || (pkey_op == EVP_PKEY_OP_DECRYPT) | ||
367 | || (pkey_op == EVP_PKEY_OP_DERIVE)) | ||
368 | && (key_type != KEY_PRIVKEY)) { | ||
369 | BIO_printf(bio_err, "A private key is needed for this operation\n"); | ||
370 | goto end; | ||
371 | } | ||
372 | if (!app_passwd(bio_err, passargin, NULL, &passin, NULL)) { | ||
373 | BIO_printf(bio_err, "Error getting password\n"); | ||
374 | goto end; | ||
375 | } | ||
376 | switch (key_type) { | ||
377 | case KEY_PRIVKEY: | ||
378 | pkey = load_key(bio_err, keyfile, keyform, 0, | ||
379 | passin, e, "Private Key"); | ||
380 | break; | ||
381 | |||
382 | case KEY_PUBKEY: | ||
383 | pkey = load_pubkey(bio_err, keyfile, keyform, 0, | ||
384 | NULL, e, "Public Key"); | ||
385 | break; | ||
386 | |||
387 | case KEY_CERT: | ||
388 | x = load_cert(bio_err, keyfile, keyform, | ||
389 | NULL, e, "Certificate"); | ||
390 | if (x) { | ||
391 | pkey = X509_get_pubkey(x); | ||
392 | X509_free(x); | ||
393 | } | ||
394 | break; | ||
395 | |||
396 | } | ||
397 | |||
398 | *pkeysize = EVP_PKEY_size(pkey); | ||
399 | |||
400 | if (!pkey) | ||
401 | goto end; | ||
402 | |||
403 | ctx = EVP_PKEY_CTX_new(pkey, e); | ||
404 | |||
405 | EVP_PKEY_free(pkey); | ||
406 | |||
407 | if (!ctx) | ||
408 | goto end; | ||
409 | |||
410 | switch (pkey_op) { | ||
411 | case EVP_PKEY_OP_SIGN: | ||
412 | rv = EVP_PKEY_sign_init(ctx); | ||
413 | break; | ||
414 | |||
415 | case EVP_PKEY_OP_VERIFY: | ||
416 | rv = EVP_PKEY_verify_init(ctx); | ||
417 | break; | ||
418 | |||
419 | case EVP_PKEY_OP_VERIFYRECOVER: | ||
420 | rv = EVP_PKEY_verify_recover_init(ctx); | ||
421 | break; | ||
422 | |||
423 | case EVP_PKEY_OP_ENCRYPT: | ||
424 | rv = EVP_PKEY_encrypt_init(ctx); | ||
425 | break; | ||
426 | |||
427 | case EVP_PKEY_OP_DECRYPT: | ||
428 | rv = EVP_PKEY_decrypt_init(ctx); | ||
429 | break; | ||
430 | |||
431 | case EVP_PKEY_OP_DERIVE: | ||
432 | rv = EVP_PKEY_derive_init(ctx); | ||
433 | break; | ||
434 | } | ||
435 | |||
436 | if (rv <= 0) { | ||
437 | EVP_PKEY_CTX_free(ctx); | ||
438 | ctx = NULL; | ||
439 | } | ||
440 | end: | ||
441 | |||
442 | free(passin); | ||
443 | |||
444 | return ctx; | ||
445 | |||
446 | |||
447 | } | ||
448 | |||
449 | static int | ||
450 | setup_peer(BIO * err, EVP_PKEY_CTX * ctx, int peerform, | ||
451 | const char *file) | ||
452 | { | ||
453 | EVP_PKEY *peer = NULL; | ||
454 | int ret; | ||
455 | if (!ctx) { | ||
456 | BIO_puts(err, "-peerkey command before -inkey\n"); | ||
457 | return 0; | ||
458 | } | ||
459 | peer = load_pubkey(bio_err, file, peerform, 0, NULL, NULL, "Peer Key"); | ||
460 | |||
461 | if (!peer) { | ||
462 | BIO_printf(bio_err, "Error reading peer key %s\n", file); | ||
463 | ERR_print_errors(err); | ||
464 | return 0; | ||
465 | } | ||
466 | ret = EVP_PKEY_derive_set_peer(ctx, peer); | ||
467 | |||
468 | EVP_PKEY_free(peer); | ||
469 | if (ret <= 0) | ||
470 | ERR_print_errors(err); | ||
471 | return ret; | ||
472 | } | ||
473 | |||
474 | static int | ||
475 | do_keyop(EVP_PKEY_CTX * ctx, int pkey_op, | ||
476 | unsigned char *out, size_t * poutlen, | ||
477 | unsigned char *in, size_t inlen) | ||
478 | { | ||
479 | int rv = 0; | ||
480 | switch (pkey_op) { | ||
481 | case EVP_PKEY_OP_VERIFYRECOVER: | ||
482 | rv = EVP_PKEY_verify_recover(ctx, out, poutlen, in, inlen); | ||
483 | break; | ||
484 | |||
485 | case EVP_PKEY_OP_SIGN: | ||
486 | rv = EVP_PKEY_sign(ctx, out, poutlen, in, inlen); | ||
487 | break; | ||
488 | |||
489 | case EVP_PKEY_OP_ENCRYPT: | ||
490 | rv = EVP_PKEY_encrypt(ctx, out, poutlen, in, inlen); | ||
491 | break; | ||
492 | |||
493 | case EVP_PKEY_OP_DECRYPT: | ||
494 | rv = EVP_PKEY_decrypt(ctx, out, poutlen, in, inlen); | ||
495 | break; | ||
496 | |||
497 | case EVP_PKEY_OP_DERIVE: | ||
498 | rv = EVP_PKEY_derive(ctx, out, poutlen); | ||
499 | break; | ||
500 | |||
501 | } | ||
502 | return rv; | ||
503 | } | ||
diff --git a/src/usr.bin/openssl/prime.c b/src/usr.bin/openssl/prime.c new file mode 100644 index 0000000000..e7fb3257d8 --- /dev/null +++ b/src/usr.bin/openssl/prime.c | |||
@@ -0,0 +1,147 @@ | |||
1 | /* $OpenBSD: prime.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
2 | /* ==================================================================== | ||
3 | * Copyright (c) 2004 The OpenSSL Project. All rights reserved. | ||
4 | * | ||
5 | * Redistribution and use in source and binary forms, with or without | ||
6 | * modification, are permitted provided that the following conditions | ||
7 | * are met: | ||
8 | * | ||
9 | * 1. Redistributions of source code must retain the above copyright | ||
10 | * notice, this list of conditions and the following disclaimer. | ||
11 | * | ||
12 | * 2. Redistributions in binary form must reproduce the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer in | ||
14 | * the documentation and/or other materials provided with the | ||
15 | * distribution. | ||
16 | * | ||
17 | * 3. All advertising materials mentioning features or use of this | ||
18 | * software must display the following acknowledgment: | ||
19 | * "This product includes software developed by the OpenSSL Project | ||
20 | * for use in the OpenSSL Toolkit. (http://www.openssl.org/)" | ||
21 | * | ||
22 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
23 | * endorse or promote products derived from this software without | ||
24 | * prior written permission. For written permission, please contact | ||
25 | * openssl-core@openssl.org. | ||
26 | * | ||
27 | * 5. Products derived from this software may not be called "OpenSSL" | ||
28 | * nor may "OpenSSL" appear in their names without prior written | ||
29 | * permission of the OpenSSL Project. | ||
30 | * | ||
31 | * 6. Redistributions of any form whatsoever must retain the following | ||
32 | * acknowledgment: | ||
33 | * "This product includes software developed by the OpenSSL Project | ||
34 | * for use in the OpenSSL Toolkit (http://www.openssl.org/)" | ||
35 | * | ||
36 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
37 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
38 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
39 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
40 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
41 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
42 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
43 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
44 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
45 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
46 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
47 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
48 | * | ||
49 | */ | ||
50 | |||
51 | #include <string.h> | ||
52 | #include <limits.h> | ||
53 | |||
54 | #include "apps.h" | ||
55 | |||
56 | #include <openssl/bn.h> | ||
57 | |||
58 | int prime_main(int, char **); | ||
59 | |||
60 | int | ||
61 | prime_main(int argc, char **argv) | ||
62 | { | ||
63 | int hex = 0; | ||
64 | int checks = 20; | ||
65 | int generate = 0; | ||
66 | int bits = 0; | ||
67 | int safe = 0; | ||
68 | BIGNUM *bn = NULL; | ||
69 | const char *errstr = NULL; | ||
70 | BIO *bio_out; | ||
71 | |||
72 | --argc; | ||
73 | ++argv; | ||
74 | while (argc >= 1 && **argv == '-') { | ||
75 | if (!strcmp(*argv, "-hex")) | ||
76 | hex = 1; | ||
77 | else if (!strcmp(*argv, "-generate")) | ||
78 | generate = 1; | ||
79 | else if (!strcmp(*argv, "-bits")) { | ||
80 | if (--argc < 1) | ||
81 | goto bad; | ||
82 | else | ||
83 | bits = strtonum(*(++argv), 0, INT_MAX, &errstr); | ||
84 | if (errstr) | ||
85 | goto bad; | ||
86 | } else if (!strcmp(*argv, "-safe")) | ||
87 | safe = 1; | ||
88 | else if (!strcmp(*argv, "-checks")) { | ||
89 | if (--argc < 1) | ||
90 | goto bad; | ||
91 | else | ||
92 | checks = strtonum(*(++argv), 0, INT_MAX, &errstr); | ||
93 | if (errstr) | ||
94 | goto bad; | ||
95 | } else { | ||
96 | BIO_printf(bio_err, "Unknown option '%s'\n", *argv); | ||
97 | goto bad; | ||
98 | } | ||
99 | --argc; | ||
100 | ++argv; | ||
101 | } | ||
102 | |||
103 | if (argv[0] == NULL && !generate) { | ||
104 | BIO_printf(bio_err, "No prime specified\n"); | ||
105 | goto bad; | ||
106 | } | ||
107 | if ((bio_out = BIO_new(BIO_s_file())) != NULL) { | ||
108 | BIO_set_fp(bio_out, stdout, BIO_NOCLOSE); | ||
109 | } | ||
110 | if (generate) { | ||
111 | char *s; | ||
112 | |||
113 | if (!bits) { | ||
114 | BIO_printf(bio_err, "Specifiy the number of bits.\n"); | ||
115 | return 1; | ||
116 | } | ||
117 | bn = BN_new(); | ||
118 | BN_generate_prime_ex(bn, bits, safe, NULL, NULL, NULL); | ||
119 | s = hex ? BN_bn2hex(bn) : BN_bn2dec(bn); | ||
120 | BIO_printf(bio_out, "%s\n", s); | ||
121 | free(s); | ||
122 | } else { | ||
123 | if (hex) | ||
124 | BN_hex2bn(&bn, argv[0]); | ||
125 | else | ||
126 | BN_dec2bn(&bn, argv[0]); | ||
127 | |||
128 | BN_print(bio_out, bn); | ||
129 | BIO_printf(bio_out, " is %sprime\n", | ||
130 | BN_is_prime_ex(bn, checks, NULL, NULL) ? "" : "not "); | ||
131 | } | ||
132 | |||
133 | BN_free(bn); | ||
134 | BIO_free_all(bio_out); | ||
135 | |||
136 | return 0; | ||
137 | |||
138 | bad: | ||
139 | if (errstr) | ||
140 | BIO_printf(bio_err, "invalid argument %s: %s\n", *argv, errstr); | ||
141 | else { | ||
142 | BIO_printf(bio_err, "options are\n"); | ||
143 | BIO_printf(bio_err, "%-14s hex\n", "-hex"); | ||
144 | BIO_printf(bio_err, "%-14s number of checks\n", "-checks <n>"); | ||
145 | } | ||
146 | return 1; | ||
147 | } | ||
diff --git a/src/usr.bin/openssl/progs.h b/src/usr.bin/openssl/progs.h new file mode 100644 index 0000000000..6f957c6f7c --- /dev/null +++ b/src/usr.bin/openssl/progs.h | |||
@@ -0,0 +1,234 @@ | |||
1 | /* $OpenBSD: progs.h,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
2 | /* Public domain */ | ||
3 | |||
4 | extern int asn1parse_main(int argc, char *argv[]); | ||
5 | extern int ca_main(int argc, char *argv[]); | ||
6 | extern int ciphers_main(int argc, char *argv[]); | ||
7 | extern int cms_main(int argc, char *argv[]); | ||
8 | extern int crl2pkcs7_main(int argc, char *argv[]); | ||
9 | extern int crl_main(int argc, char *argv[]); | ||
10 | extern int dgst_main(int argc, char *argv[]); | ||
11 | extern int dh_main(int argc, char *argv[]); | ||
12 | extern int dhparam_main(int argc, char *argv[]); | ||
13 | extern int dsa_main(int argc, char *argv[]); | ||
14 | extern int dsaparam_main(int argc, char *argv[]); | ||
15 | extern int ec_main(int argc, char *argv[]); | ||
16 | extern int ecparam_main(int argc, char *argv[]); | ||
17 | extern int enc_main(int argc, char *argv[]); | ||
18 | extern int engine_main(int argc, char *argv[]); | ||
19 | extern int errstr_main(int argc, char *argv[]); | ||
20 | extern int gendh_main(int argc, char *argv[]); | ||
21 | extern int gendsa_main(int argc, char *argv[]); | ||
22 | extern int genpkey_main(int argc, char *argv[]); | ||
23 | extern int genrsa_main(int argc, char *argv[]); | ||
24 | extern int nseq_main(int argc, char *argv[]); | ||
25 | extern int ocsp_main(int argc, char *argv[]); | ||
26 | extern int passwd_main(int argc, char *argv[]); | ||
27 | extern int pkcs7_main(int argc, char *argv[]); | ||
28 | extern int pkcs8_main(int argc, char *argv[]); | ||
29 | extern int pkcs12_main(int argc, char *argv[]); | ||
30 | extern int pkey_main(int argc, char *argv[]); | ||
31 | extern int pkeyparam_main(int argc, char *argv[]); | ||
32 | extern int pkeyutl_main(int argc, char *argv[]); | ||
33 | extern int prime_main(int argc, char *argv[]); | ||
34 | extern int rand_main(int argc, char *argv[]); | ||
35 | extern int req_main(int argc, char *argv[]); | ||
36 | extern int rsa_main(int argc, char *argv[]); | ||
37 | extern int rsautl_main(int argc, char *argv[]); | ||
38 | extern int s_client_main(int argc, char *argv[]); | ||
39 | extern int s_server_main(int argc, char *argv[]); | ||
40 | extern int s_time_main(int argc, char *argv[]); | ||
41 | extern int sess_id_main(int argc, char *argv[]); | ||
42 | extern int smime_main(int argc, char *argv[]); | ||
43 | extern int speed_main(int argc, char *argv[]); | ||
44 | extern int spkac_main(int argc, char *argv[]); | ||
45 | extern int ts_main(int argc, char *argv[]); | ||
46 | extern int verify_main(int argc, char *argv[]); | ||
47 | extern int version_main(int argc, char *argv[]); | ||
48 | extern int x509_main(int argc, char *argv[]); | ||
49 | |||
50 | #define FUNC_TYPE_GENERAL 1 | ||
51 | #define FUNC_TYPE_MD 2 | ||
52 | #define FUNC_TYPE_CIPHER 3 | ||
53 | #define FUNC_TYPE_PKEY 4 | ||
54 | #define FUNC_TYPE_MD_ALG 5 | ||
55 | #define FUNC_TYPE_CIPHER_ALG 6 | ||
56 | |||
57 | typedef struct { | ||
58 | int type; | ||
59 | const char *name; | ||
60 | int (*func)(int argc, char *argv[]); | ||
61 | } FUNCTION; | ||
62 | DECLARE_LHASH_OF(FUNCTION); | ||
63 | |||
64 | FUNCTION functions[] = { | ||
65 | |||
66 | /* General functions. */ | ||
67 | { FUNC_TYPE_GENERAL, "asn1parse", asn1parse_main }, | ||
68 | { FUNC_TYPE_GENERAL, "ca", ca_main }, | ||
69 | { FUNC_TYPE_GENERAL, "ciphers", ciphers_main }, | ||
70 | #ifndef OPENSSL_NO_CMS | ||
71 | { FUNC_TYPE_GENERAL, "cms", cms_main }, | ||
72 | #endif | ||
73 | { FUNC_TYPE_GENERAL, "crl2pkcs7", crl2pkcs7_main }, | ||
74 | { FUNC_TYPE_GENERAL, "crl", crl_main }, | ||
75 | { FUNC_TYPE_GENERAL, "dgst", dgst_main }, | ||
76 | { FUNC_TYPE_GENERAL, "enc", enc_main }, | ||
77 | #ifndef OPENSSL_NO_ENGINE | ||
78 | { FUNC_TYPE_GENERAL, "engine", engine_main }, | ||
79 | #endif | ||
80 | { FUNC_TYPE_GENERAL, "errstr", errstr_main }, | ||
81 | { FUNC_TYPE_GENERAL, "genpkey", genpkey_main }, | ||
82 | { FUNC_TYPE_GENERAL, "nseq", nseq_main }, | ||
83 | #ifndef OPENSSL_NO_OCSP | ||
84 | { FUNC_TYPE_GENERAL, "ocsp", ocsp_main }, | ||
85 | #endif | ||
86 | { FUNC_TYPE_GENERAL, "passwd", passwd_main }, | ||
87 | { FUNC_TYPE_GENERAL, "pkcs7", pkcs7_main }, | ||
88 | { FUNC_TYPE_GENERAL, "pkcs8", pkcs8_main }, | ||
89 | #if !defined(OPENSSL_NO_DES) && !defined(OPENSSL_NO_SHA1) | ||
90 | { FUNC_TYPE_GENERAL, "pkcs12", pkcs12_main }, | ||
91 | #endif | ||
92 | { FUNC_TYPE_GENERAL, "pkey", pkey_main }, | ||
93 | { FUNC_TYPE_GENERAL, "pkeyparam", pkeyparam_main }, | ||
94 | { FUNC_TYPE_GENERAL, "pkeyutl", pkeyutl_main }, | ||
95 | { FUNC_TYPE_GENERAL, "prime", prime_main }, | ||
96 | { FUNC_TYPE_GENERAL, "rand", rand_main }, | ||
97 | { FUNC_TYPE_GENERAL, "req", req_main }, | ||
98 | { FUNC_TYPE_GENERAL, "s_client", s_client_main }, | ||
99 | { FUNC_TYPE_GENERAL, "s_server", s_server_main }, | ||
100 | { FUNC_TYPE_GENERAL, "s_time", s_time_main }, | ||
101 | { FUNC_TYPE_GENERAL, "sess_id", sess_id_main }, | ||
102 | { FUNC_TYPE_GENERAL, "smime", smime_main }, | ||
103 | #ifndef OPENSSL_NO_SPEED | ||
104 | { FUNC_TYPE_GENERAL, "speed", speed_main }, | ||
105 | #endif | ||
106 | { FUNC_TYPE_GENERAL, "spkac", spkac_main }, | ||
107 | { FUNC_TYPE_GENERAL, "ts", ts_main }, | ||
108 | { FUNC_TYPE_GENERAL, "verify", verify_main }, | ||
109 | { FUNC_TYPE_GENERAL, "version", version_main }, | ||
110 | { FUNC_TYPE_GENERAL, "x509", x509_main }, | ||
111 | |||
112 | #ifndef OPENSSL_NO_DH | ||
113 | { FUNC_TYPE_GENERAL, "dh", dh_main }, | ||
114 | { FUNC_TYPE_GENERAL, "dhparam", dhparam_main }, | ||
115 | { FUNC_TYPE_GENERAL, "gendh", gendh_main }, | ||
116 | #endif | ||
117 | #ifndef OPENSSL_NO_DSA | ||
118 | { FUNC_TYPE_GENERAL, "dsa", dsa_main }, | ||
119 | { FUNC_TYPE_GENERAL, "dsaparam", dsaparam_main }, | ||
120 | { FUNC_TYPE_GENERAL, "gendsa", gendsa_main }, | ||
121 | #endif | ||
122 | #ifndef OPENSSL_NO_EC | ||
123 | { FUNC_TYPE_GENERAL, "ec", ec_main }, | ||
124 | { FUNC_TYPE_GENERAL, "ecparam", ecparam_main }, | ||
125 | #endif | ||
126 | #ifndef OPENSSL_NO_RSA | ||
127 | { FUNC_TYPE_GENERAL, "genrsa", genrsa_main }, | ||
128 | { FUNC_TYPE_GENERAL, "rsa", rsa_main }, | ||
129 | { FUNC_TYPE_GENERAL, "rsautl", rsautl_main }, | ||
130 | #endif | ||
131 | |||
132 | /* Message Digests. */ | ||
133 | #ifndef OPENSSL_NO_MD4 | ||
134 | { FUNC_TYPE_MD, "md4", dgst_main }, | ||
135 | #endif | ||
136 | #ifndef OPENSSL_NO_MD5 | ||
137 | { FUNC_TYPE_MD, "md5", dgst_main }, | ||
138 | #endif | ||
139 | #ifndef OPENSSL_NO_RMD160 | ||
140 | { FUNC_TYPE_MD, "rmd160", dgst_main }, | ||
141 | #endif | ||
142 | #ifndef OPENSSL_NO_SHA | ||
143 | { FUNC_TYPE_MD, "sha", dgst_main }, | ||
144 | #endif | ||
145 | #ifndef OPENSSL_NO_SHA1 | ||
146 | { FUNC_TYPE_MD, "sha1", dgst_main }, | ||
147 | #endif | ||
148 | |||
149 | /* Ciphers. */ | ||
150 | { FUNC_TYPE_CIPHER, "base64", enc_main }, | ||
151 | #ifndef OPENSSL_NO_AES | ||
152 | { FUNC_TYPE_CIPHER, "aes-128-cbc", enc_main }, | ||
153 | { FUNC_TYPE_CIPHER, "aes-128-ecb", enc_main }, | ||
154 | { FUNC_TYPE_CIPHER, "aes-192-cbc", enc_main }, | ||
155 | { FUNC_TYPE_CIPHER, "aes-192-ecb", enc_main }, | ||
156 | { FUNC_TYPE_CIPHER, "aes-256-cbc", enc_main }, | ||
157 | { FUNC_TYPE_CIPHER, "aes-256-ecb", enc_main }, | ||
158 | #endif | ||
159 | #ifndef OPENSSL_NO_BF | ||
160 | { FUNC_TYPE_CIPHER, "bf", enc_main }, | ||
161 | { FUNC_TYPE_CIPHER, "bf-cbc", enc_main }, | ||
162 | { FUNC_TYPE_CIPHER, "bf-ecb", enc_main }, | ||
163 | { FUNC_TYPE_CIPHER, "bf-cfb", enc_main }, | ||
164 | { FUNC_TYPE_CIPHER, "bf-ofb", enc_main }, | ||
165 | #endif | ||
166 | #ifndef OPENSSL_NO_CAMELLIA | ||
167 | { FUNC_TYPE_CIPHER, "camellia-128-cbc", enc_main }, | ||
168 | { FUNC_TYPE_CIPHER, "camellia-128-ecb", enc_main }, | ||
169 | { FUNC_TYPE_CIPHER, "camellia-192-cbc", enc_main }, | ||
170 | { FUNC_TYPE_CIPHER, "camellia-192-ecb", enc_main }, | ||
171 | { FUNC_TYPE_CIPHER, "camellia-256-cbc", enc_main }, | ||
172 | { FUNC_TYPE_CIPHER, "camellia-256-ecb", enc_main }, | ||
173 | #endif | ||
174 | #ifndef OPENSSL_NO_CAST | ||
175 | { FUNC_TYPE_CIPHER, "cast", enc_main }, | ||
176 | { FUNC_TYPE_CIPHER, "cast5-cbc", enc_main }, | ||
177 | { FUNC_TYPE_CIPHER, "cast5-ecb", enc_main }, | ||
178 | { FUNC_TYPE_CIPHER, "cast5-cfb", enc_main }, | ||
179 | { FUNC_TYPE_CIPHER, "cast5-ofb", enc_main }, | ||
180 | { FUNC_TYPE_CIPHER, "cast-cbc", enc_main }, | ||
181 | #endif | ||
182 | #ifndef OPENSSL_NO_CHACHA | ||
183 | { FUNC_TYPE_CIPHER, "chacha", enc_main }, | ||
184 | #endif | ||
185 | #ifndef OPENSSL_NO_DES | ||
186 | { FUNC_TYPE_CIPHER, "des", enc_main }, | ||
187 | { FUNC_TYPE_CIPHER, "des3", enc_main }, | ||
188 | { FUNC_TYPE_CIPHER, "desx", enc_main }, | ||
189 | { FUNC_TYPE_CIPHER, "des-ecb", enc_main }, | ||
190 | { FUNC_TYPE_CIPHER, "des-ede", enc_main }, | ||
191 | { FUNC_TYPE_CIPHER, "des-ede3", enc_main }, | ||
192 | { FUNC_TYPE_CIPHER, "des-cbc", enc_main }, | ||
193 | { FUNC_TYPE_CIPHER, "des-ede-cbc", enc_main }, | ||
194 | { FUNC_TYPE_CIPHER, "des-ede3-cbc", enc_main }, | ||
195 | { FUNC_TYPE_CIPHER, "des-cfb", enc_main }, | ||
196 | { FUNC_TYPE_CIPHER, "des-ede-cfb", enc_main }, | ||
197 | { FUNC_TYPE_CIPHER, "des-ede3-cfb", enc_main }, | ||
198 | { FUNC_TYPE_CIPHER, "des-ofb", enc_main }, | ||
199 | { FUNC_TYPE_CIPHER, "des-ede-ofb", enc_main }, | ||
200 | { FUNC_TYPE_CIPHER, "des-ede3-ofb", enc_main }, | ||
201 | #endif | ||
202 | #ifndef OPENSSL_NO_IDEA | ||
203 | { FUNC_TYPE_CIPHER, "idea", enc_main }, | ||
204 | { FUNC_TYPE_CIPHER, "idea-cbc", enc_main }, | ||
205 | { FUNC_TYPE_CIPHER, "idea-ecb", enc_main }, | ||
206 | { FUNC_TYPE_CIPHER, "idea-cfb", enc_main }, | ||
207 | { FUNC_TYPE_CIPHER, "idea-ofb", enc_main }, | ||
208 | #endif | ||
209 | #ifndef OPENSSL_NO_RC2 | ||
210 | { FUNC_TYPE_CIPHER, "rc2", enc_main }, | ||
211 | { FUNC_TYPE_CIPHER, "rc2-cbc", enc_main }, | ||
212 | { FUNC_TYPE_CIPHER, "rc2-ecb", enc_main }, | ||
213 | { FUNC_TYPE_CIPHER, "rc2-cfb", enc_main }, | ||
214 | { FUNC_TYPE_CIPHER, "rc2-ofb", enc_main }, | ||
215 | { FUNC_TYPE_CIPHER, "rc2-64-cbc", enc_main }, | ||
216 | { FUNC_TYPE_CIPHER, "rc2-40-cbc", enc_main }, | ||
217 | #endif | ||
218 | #ifndef OPENSSL_NO_RC4 | ||
219 | { FUNC_TYPE_CIPHER, "rc4", enc_main }, | ||
220 | { FUNC_TYPE_CIPHER, "rc4-40", enc_main }, | ||
221 | #endif | ||
222 | #ifndef OPENSSL_NO_RC5 | ||
223 | { FUNC_TYPE_CIPHER, "rc5", enc_main }, | ||
224 | { FUNC_TYPE_CIPHER, "rc5-cbc", enc_main }, | ||
225 | { FUNC_TYPE_CIPHER, "rc5-ecb", enc_main }, | ||
226 | { FUNC_TYPE_CIPHER, "rc5-cfb", enc_main }, | ||
227 | { FUNC_TYPE_CIPHER, "rc5-ofb", enc_main }, | ||
228 | #endif | ||
229 | #ifdef ZLIB | ||
230 | { FUNC_TYPE_CIPHER, "zlib", enc_main }, | ||
231 | #endif | ||
232 | |||
233 | { 0, NULL, NULL } | ||
234 | }; | ||
diff --git a/src/usr.bin/openssl/rand.c b/src/usr.bin/openssl/rand.c new file mode 100644 index 0000000000..0800157a35 --- /dev/null +++ b/src/usr.bin/openssl/rand.c | |||
@@ -0,0 +1,194 @@ | |||
1 | /* $OpenBSD: rand.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
2 | /* ==================================================================== | ||
3 | * Copyright (c) 1998-2001 The OpenSSL Project. All rights reserved. | ||
4 | * | ||
5 | * Redistribution and use in source and binary forms, with or without | ||
6 | * modification, are permitted provided that the following conditions | ||
7 | * are met: | ||
8 | * | ||
9 | * 1. Redistributions of source code must retain the above copyright | ||
10 | * notice, this list of conditions and the following disclaimer. | ||
11 | * | ||
12 | * 2. Redistributions in binary form must reproduce the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer in | ||
14 | * the documentation and/or other materials provided with the | ||
15 | * distribution. | ||
16 | * | ||
17 | * 3. All advertising materials mentioning features or use of this | ||
18 | * software must display the following acknowledgment: | ||
19 | * "This product includes software developed by the OpenSSL Project | ||
20 | * for use in the OpenSSL Toolkit. (http://www.openssl.org/)" | ||
21 | * | ||
22 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
23 | * endorse or promote products derived from this software without | ||
24 | * prior written permission. For written permission, please contact | ||
25 | * openssl-core@openssl.org. | ||
26 | * | ||
27 | * 5. Products derived from this software may not be called "OpenSSL" | ||
28 | * nor may "OpenSSL" appear in their names without prior written | ||
29 | * permission of the OpenSSL Project. | ||
30 | * | ||
31 | * 6. Redistributions of any form whatsoever must retain the following | ||
32 | * acknowledgment: | ||
33 | * "This product includes software developed by the OpenSSL Project | ||
34 | * for use in the OpenSSL Toolkit (http://www.openssl.org/)" | ||
35 | * | ||
36 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
37 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
38 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
39 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
40 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
41 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
42 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
43 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
44 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
45 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
46 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
47 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
48 | * ==================================================================== | ||
49 | * | ||
50 | * This product includes cryptographic software written by Eric Young | ||
51 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
52 | * Hudson (tjh@cryptsoft.com). | ||
53 | * | ||
54 | */ | ||
55 | |||
56 | #include <ctype.h> | ||
57 | #include <stdio.h> | ||
58 | #include <string.h> | ||
59 | |||
60 | #include "apps.h" | ||
61 | |||
62 | #include <openssl/bio.h> | ||
63 | #include <openssl/err.h> | ||
64 | #include <openssl/rand.h> | ||
65 | |||
66 | /* -out file - write to file | ||
67 | * -base64 - base64 encode output | ||
68 | * -hex - hex encode output | ||
69 | * num - write 'num' bytes | ||
70 | */ | ||
71 | |||
72 | int rand_main(int, char **); | ||
73 | |||
74 | int | ||
75 | rand_main(int argc, char **argv) | ||
76 | { | ||
77 | int i, r, ret = 1; | ||
78 | int badopt; | ||
79 | char *outfile = NULL; | ||
80 | int base64 = 0; | ||
81 | int hex = 0; | ||
82 | BIO *out = NULL; | ||
83 | int num = -1; | ||
84 | #ifndef OPENSSL_NO_ENGINE | ||
85 | char *engine = NULL; | ||
86 | #endif | ||
87 | |||
88 | badopt = 0; | ||
89 | i = 0; | ||
90 | while (!badopt && argv[++i] != NULL) { | ||
91 | if (strcmp(argv[i], "-out") == 0) { | ||
92 | if ((argv[i + 1] != NULL) && (outfile == NULL)) | ||
93 | outfile = argv[++i]; | ||
94 | else | ||
95 | badopt = 1; | ||
96 | } | ||
97 | #ifndef OPENSSL_NO_ENGINE | ||
98 | else if (strcmp(argv[i], "-engine") == 0) { | ||
99 | if ((argv[i + 1] != NULL) && (engine == NULL)) | ||
100 | engine = argv[++i]; | ||
101 | else | ||
102 | badopt = 1; | ||
103 | } | ||
104 | #endif | ||
105 | else if (strcmp(argv[i], "-base64") == 0) { | ||
106 | if (!base64) | ||
107 | base64 = 1; | ||
108 | else | ||
109 | badopt = 1; | ||
110 | } else if (strcmp(argv[i], "-hex") == 0) { | ||
111 | if (!hex) | ||
112 | hex = 1; | ||
113 | else | ||
114 | badopt = 1; | ||
115 | } else if (isdigit((unsigned char) argv[i][0])) { | ||
116 | if (num < 0) { | ||
117 | r = sscanf(argv[i], "%d", &num); | ||
118 | if (r == 0 || num < 0) | ||
119 | badopt = 1; | ||
120 | } else | ||
121 | badopt = 1; | ||
122 | } else | ||
123 | badopt = 1; | ||
124 | } | ||
125 | |||
126 | if (hex && base64) | ||
127 | badopt = 1; | ||
128 | |||
129 | if (num < 0) | ||
130 | badopt = 1; | ||
131 | |||
132 | if (badopt) { | ||
133 | BIO_printf(bio_err, "Usage: rand [options] num\n"); | ||
134 | BIO_printf(bio_err, "where options are\n"); | ||
135 | BIO_printf(bio_err, "-out file - write to file\n"); | ||
136 | #ifndef OPENSSL_NO_ENGINE | ||
137 | BIO_printf(bio_err, "-engine e - use engine e, possibly a hardware device.\n"); | ||
138 | #endif | ||
139 | BIO_printf(bio_err, "-base64 - base64 encode output\n"); | ||
140 | BIO_printf(bio_err, "-hex - hex encode output\n"); | ||
141 | goto err; | ||
142 | } | ||
143 | #ifndef OPENSSL_NO_ENGINE | ||
144 | setup_engine(bio_err, engine, 0); | ||
145 | #endif | ||
146 | |||
147 | out = BIO_new(BIO_s_file()); | ||
148 | if (out == NULL) | ||
149 | goto err; | ||
150 | if (outfile != NULL) | ||
151 | r = BIO_write_filename(out, outfile); | ||
152 | else { | ||
153 | r = BIO_set_fp(out, stdout, BIO_NOCLOSE | BIO_FP_TEXT); | ||
154 | } | ||
155 | if (r <= 0) | ||
156 | goto err; | ||
157 | |||
158 | if (base64) { | ||
159 | BIO *b64 = BIO_new(BIO_f_base64()); | ||
160 | if (b64 == NULL) | ||
161 | goto err; | ||
162 | out = BIO_push(b64, out); | ||
163 | } | ||
164 | while (num > 0) { | ||
165 | unsigned char buf[4096]; | ||
166 | int chunk; | ||
167 | |||
168 | chunk = num; | ||
169 | if (chunk > (int) sizeof(buf)) | ||
170 | chunk = sizeof buf; | ||
171 | r = RAND_bytes(buf, chunk); | ||
172 | if (r <= 0) | ||
173 | goto err; | ||
174 | if (!hex) | ||
175 | BIO_write(out, buf, chunk); | ||
176 | else { | ||
177 | for (i = 0; i < chunk; i++) | ||
178 | BIO_printf(out, "%02x", buf[i]); | ||
179 | } | ||
180 | num -= chunk; | ||
181 | } | ||
182 | if (hex) | ||
183 | BIO_puts(out, "\n"); | ||
184 | (void) BIO_flush(out); | ||
185 | |||
186 | ret = 0; | ||
187 | |||
188 | err: | ||
189 | ERR_print_errors(bio_err); | ||
190 | if (out) | ||
191 | BIO_free_all(out); | ||
192 | |||
193 | return (ret); | ||
194 | } | ||
diff --git a/src/usr.bin/openssl/req.c b/src/usr.bin/openssl/req.c new file mode 100644 index 0000000000..87599b35e1 --- /dev/null +++ b/src/usr.bin/openssl/req.c | |||
@@ -0,0 +1,1602 @@ | |||
1 | /* $OpenBSD: req.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
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 | /* Until the key-gen callbacks are modified to use newer prototypes, we allow | ||
60 | * deprecated functions for openssl-internal code */ | ||
61 | #ifdef OPENSSL_NO_DEPRECATED | ||
62 | #undef OPENSSL_NO_DEPRECATED | ||
63 | #endif | ||
64 | |||
65 | #include <stdio.h> | ||
66 | #include <stdlib.h> | ||
67 | #include <limits.h> | ||
68 | #include <string.h> | ||
69 | #include <time.h> | ||
70 | |||
71 | #include "apps.h" | ||
72 | |||
73 | #include <openssl/asn1.h> | ||
74 | #include <openssl/bio.h> | ||
75 | #include <openssl/bn.h> | ||
76 | #include <openssl/conf.h> | ||
77 | #include <openssl/err.h> | ||
78 | #include <openssl/evp.h> | ||
79 | #include <openssl/objects.h> | ||
80 | #include <openssl/pem.h> | ||
81 | #include <openssl/x509.h> | ||
82 | #include <openssl/x509v3.h> | ||
83 | |||
84 | #include <openssl/dsa.h> | ||
85 | |||
86 | #include <openssl/rsa.h> | ||
87 | |||
88 | #define SECTION "req" | ||
89 | |||
90 | #define BITS "default_bits" | ||
91 | #define KEYFILE "default_keyfile" | ||
92 | #define PROMPT "prompt" | ||
93 | #define DISTINGUISHED_NAME "distinguished_name" | ||
94 | #define ATTRIBUTES "attributes" | ||
95 | #define V3_EXTENSIONS "x509_extensions" | ||
96 | #define REQ_EXTENSIONS "req_extensions" | ||
97 | #define STRING_MASK "string_mask" | ||
98 | #define UTF8_IN "utf8" | ||
99 | |||
100 | #define DEFAULT_KEY_LENGTH 512 | ||
101 | #define MIN_KEY_LENGTH 384 | ||
102 | |||
103 | |||
104 | /* -inform arg - input format - default PEM (DER or PEM) | ||
105 | * -outform arg - output format - default PEM | ||
106 | * -in arg - input file - default stdin | ||
107 | * -out arg - output file - default stdout | ||
108 | * -verify - check request signature | ||
109 | * -noout - don't print stuff out. | ||
110 | * -text - print out human readable text. | ||
111 | * -nodes - no des encryption | ||
112 | * -config file - Load configuration file. | ||
113 | * -key file - make a request using key in file (or use it for verification). | ||
114 | * -keyform arg - key file format. | ||
115 | * -newkey - make a key and a request. | ||
116 | * -modulus - print RSA modulus. | ||
117 | * -pubkey - output Public Key. | ||
118 | * -x509 - output a self signed X509 structure instead. | ||
119 | * -asn1-kludge - output new certificate request in a format that some CA's | ||
120 | * require. This format is wrong | ||
121 | */ | ||
122 | |||
123 | static int make_REQ(X509_REQ * req, EVP_PKEY * pkey, char *dn, int mutlirdn, | ||
124 | int attribs, unsigned long chtype); | ||
125 | static int build_subject(X509_REQ * req, char *subj, unsigned long chtype, | ||
126 | int multirdn); | ||
127 | static int prompt_info(X509_REQ * req, | ||
128 | STACK_OF(CONF_VALUE) * dn_sk, char *dn_sect, | ||
129 | STACK_OF(CONF_VALUE) * attr_sk, char *attr_sect, int attribs, | ||
130 | unsigned long chtype); | ||
131 | static int auto_info(X509_REQ * req, STACK_OF(CONF_VALUE) * sk, | ||
132 | STACK_OF(CONF_VALUE) * attr, int attribs, | ||
133 | unsigned long chtype); | ||
134 | static int add_attribute_object(X509_REQ * req, char *text, const char *def, | ||
135 | char *value, int nid, int n_min, | ||
136 | int n_max, unsigned long chtype); | ||
137 | static int add_DN_object(X509_NAME * n, char *text, const char *def, char *value, | ||
138 | int nid, int n_min, int n_max, unsigned long chtype, int mval); | ||
139 | static int genpkey_cb(EVP_PKEY_CTX * ctx); | ||
140 | static int req_check_len(int len, int n_min, int n_max); | ||
141 | static int check_end(const char *str, const char *end); | ||
142 | static EVP_PKEY_CTX *set_keygen_ctx(BIO * err, const char *gstr, int *pkey_type, | ||
143 | long *pkeylen, char **palgnam, | ||
144 | ENGINE * keygen_engine); | ||
145 | static CONF *req_conf = NULL; | ||
146 | static int batch = 0; | ||
147 | |||
148 | int req_main(int, char **); | ||
149 | |||
150 | int | ||
151 | req_main(int argc, char **argv) | ||
152 | { | ||
153 | ENGINE *e = NULL, *gen_eng = NULL; | ||
154 | unsigned long nmflag = 0, reqflag = 0; | ||
155 | int ex = 1, x509 = 0, days = 30; | ||
156 | X509 *x509ss = NULL; | ||
157 | X509_REQ *req = NULL; | ||
158 | EVP_PKEY_CTX *genctx = NULL; | ||
159 | const char *keyalg = NULL; | ||
160 | char *keyalgstr = NULL; | ||
161 | STACK_OF(OPENSSL_STRING) * pkeyopts = NULL, *sigopts = NULL; | ||
162 | EVP_PKEY *pkey = NULL; | ||
163 | int i = 0, badops = 0, newreq = 0, verbose = 0, pkey_type = -1; | ||
164 | long newkey = -1; | ||
165 | BIO *in = NULL, *out = NULL; | ||
166 | int informat, outformat, verify = 0, noout = 0, text = 0, keyform = FORMAT_PEM; | ||
167 | int nodes = 0, kludge = 0, newhdr = 0, subject = 0, pubkey = 0; | ||
168 | char *infile, *outfile, *prog, *keyfile = NULL, *template = NULL, | ||
169 | *keyout = NULL; | ||
170 | #ifndef OPENSSL_NO_ENGINE | ||
171 | char *engine = NULL; | ||
172 | #endif | ||
173 | char *extensions = NULL; | ||
174 | char *req_exts = NULL; | ||
175 | const EVP_CIPHER *cipher = NULL; | ||
176 | ASN1_INTEGER *serial = NULL; | ||
177 | int modulus = 0; | ||
178 | char *passargin = NULL, *passargout = NULL; | ||
179 | char *passin = NULL, *passout = NULL; | ||
180 | char *p; | ||
181 | char *subj = NULL; | ||
182 | int multirdn = 0; | ||
183 | const EVP_MD *md_alg = NULL, *digest = NULL; | ||
184 | unsigned long chtype = MBSTRING_ASC; | ||
185 | |||
186 | req_conf = NULL; | ||
187 | #ifndef OPENSSL_NO_DES | ||
188 | cipher = EVP_des_ede3_cbc(); | ||
189 | #endif | ||
190 | |||
191 | infile = NULL; | ||
192 | outfile = NULL; | ||
193 | informat = FORMAT_PEM; | ||
194 | outformat = FORMAT_PEM; | ||
195 | |||
196 | prog = argv[0]; | ||
197 | argc--; | ||
198 | argv++; | ||
199 | while (argc >= 1) { | ||
200 | if (strcmp(*argv, "-inform") == 0) { | ||
201 | if (--argc < 1) | ||
202 | goto bad; | ||
203 | informat = str2fmt(*(++argv)); | ||
204 | } else if (strcmp(*argv, "-outform") == 0) { | ||
205 | if (--argc < 1) | ||
206 | goto bad; | ||
207 | outformat = str2fmt(*(++argv)); | ||
208 | } | ||
209 | #ifndef OPENSSL_NO_ENGINE | ||
210 | else if (strcmp(*argv, "-engine") == 0) { | ||
211 | if (--argc < 1) | ||
212 | goto bad; | ||
213 | engine = *(++argv); | ||
214 | } else if (strcmp(*argv, "-keygen_engine") == 0) { | ||
215 | if (--argc < 1) | ||
216 | goto bad; | ||
217 | gen_eng = ENGINE_by_id(*(++argv)); | ||
218 | if (gen_eng == NULL) { | ||
219 | BIO_printf(bio_err, "Can't find keygen engine %s\n", *argv); | ||
220 | goto end; | ||
221 | } | ||
222 | } | ||
223 | #endif | ||
224 | else if (strcmp(*argv, "-key") == 0) { | ||
225 | if (--argc < 1) | ||
226 | goto bad; | ||
227 | keyfile = *(++argv); | ||
228 | } else if (strcmp(*argv, "-pubkey") == 0) { | ||
229 | pubkey = 1; | ||
230 | } else if (strcmp(*argv, "-new") == 0) { | ||
231 | newreq = 1; | ||
232 | } else if (strcmp(*argv, "-config") == 0) { | ||
233 | if (--argc < 1) | ||
234 | goto bad; | ||
235 | template = *(++argv); | ||
236 | } else if (strcmp(*argv, "-keyform") == 0) { | ||
237 | if (--argc < 1) | ||
238 | goto bad; | ||
239 | keyform = str2fmt(*(++argv)); | ||
240 | } else if (strcmp(*argv, "-in") == 0) { | ||
241 | if (--argc < 1) | ||
242 | goto bad; | ||
243 | infile = *(++argv); | ||
244 | } else if (strcmp(*argv, "-out") == 0) { | ||
245 | if (--argc < 1) | ||
246 | goto bad; | ||
247 | outfile = *(++argv); | ||
248 | } else if (strcmp(*argv, "-keyout") == 0) { | ||
249 | if (--argc < 1) | ||
250 | goto bad; | ||
251 | keyout = *(++argv); | ||
252 | } else if (strcmp(*argv, "-passin") == 0) { | ||
253 | if (--argc < 1) | ||
254 | goto bad; | ||
255 | passargin = *(++argv); | ||
256 | } else if (strcmp(*argv, "-passout") == 0) { | ||
257 | if (--argc < 1) | ||
258 | goto bad; | ||
259 | passargout = *(++argv); | ||
260 | } else if (strcmp(*argv, "-newkey") == 0) { | ||
261 | if (--argc < 1) | ||
262 | goto bad; | ||
263 | keyalg = *(++argv); | ||
264 | newreq = 1; | ||
265 | } else if (strcmp(*argv, "-pkeyopt") == 0) { | ||
266 | if (--argc < 1) | ||
267 | goto bad; | ||
268 | if (!pkeyopts) | ||
269 | pkeyopts = sk_OPENSSL_STRING_new_null(); | ||
270 | if (!pkeyopts || !sk_OPENSSL_STRING_push(pkeyopts, *(++argv))) | ||
271 | goto bad; | ||
272 | } else if (strcmp(*argv, "-sigopt") == 0) { | ||
273 | if (--argc < 1) | ||
274 | goto bad; | ||
275 | if (!sigopts) | ||
276 | sigopts = sk_OPENSSL_STRING_new_null(); | ||
277 | if (!sigopts || !sk_OPENSSL_STRING_push(sigopts, *(++argv))) | ||
278 | goto bad; | ||
279 | } else if (strcmp(*argv, "-batch") == 0) | ||
280 | batch = 1; | ||
281 | else if (strcmp(*argv, "-newhdr") == 0) | ||
282 | newhdr = 1; | ||
283 | else if (strcmp(*argv, "-modulus") == 0) | ||
284 | modulus = 1; | ||
285 | else if (strcmp(*argv, "-verify") == 0) | ||
286 | verify = 1; | ||
287 | else if (strcmp(*argv, "-nodes") == 0) | ||
288 | nodes = 1; | ||
289 | else if (strcmp(*argv, "-noout") == 0) | ||
290 | noout = 1; | ||
291 | else if (strcmp(*argv, "-verbose") == 0) | ||
292 | verbose = 1; | ||
293 | else if (strcmp(*argv, "-utf8") == 0) | ||
294 | chtype = MBSTRING_UTF8; | ||
295 | else if (strcmp(*argv, "-nameopt") == 0) { | ||
296 | if (--argc < 1) | ||
297 | goto bad; | ||
298 | if (!set_name_ex(&nmflag, *(++argv))) | ||
299 | goto bad; | ||
300 | } else if (strcmp(*argv, "-reqopt") == 0) { | ||
301 | if (--argc < 1) | ||
302 | goto bad; | ||
303 | if (!set_cert_ex(&reqflag, *(++argv))) | ||
304 | goto bad; | ||
305 | } else if (strcmp(*argv, "-subject") == 0) | ||
306 | subject = 1; | ||
307 | else if (strcmp(*argv, "-text") == 0) | ||
308 | text = 1; | ||
309 | else if (strcmp(*argv, "-x509") == 0) | ||
310 | x509 = 1; | ||
311 | else if (strcmp(*argv, "-asn1-kludge") == 0) | ||
312 | kludge = 1; | ||
313 | else if (strcmp(*argv, "-no-asn1-kludge") == 0) | ||
314 | kludge = 0; | ||
315 | else if (strcmp(*argv, "-subj") == 0) { | ||
316 | if (--argc < 1) | ||
317 | goto bad; | ||
318 | subj = *(++argv); | ||
319 | } else if (strcmp(*argv, "-multivalue-rdn") == 0) | ||
320 | multirdn = 1; | ||
321 | else if (strcmp(*argv, "-days") == 0) { | ||
322 | const char *errstr; | ||
323 | |||
324 | if (--argc < 1) | ||
325 | goto bad; | ||
326 | days = strtonum(*(++argv), 1, INT_MAX, &errstr); | ||
327 | if (errstr) { | ||
328 | BIO_printf(bio_err, "bad -days %s, using 0: %s\n", | ||
329 | *argv, errstr); | ||
330 | days = 30; | ||
331 | } | ||
332 | } else if (strcmp(*argv, "-set_serial") == 0) { | ||
333 | if (--argc < 1) | ||
334 | goto bad; | ||
335 | serial = s2i_ASN1_INTEGER(NULL, *(++argv)); | ||
336 | if (!serial) | ||
337 | goto bad; | ||
338 | } else if (strcmp(*argv, "-extensions") == 0) { | ||
339 | if (--argc < 1) | ||
340 | goto bad; | ||
341 | extensions = *(++argv); | ||
342 | } else if (strcmp(*argv, "-reqexts") == 0) { | ||
343 | if (--argc < 1) | ||
344 | goto bad; | ||
345 | req_exts = *(++argv); | ||
346 | } else if ((md_alg = EVP_get_digestbyname(&((*argv)[1]))) != NULL) { | ||
347 | /* ok */ | ||
348 | digest = md_alg; | ||
349 | } else { | ||
350 | BIO_printf(bio_err, "unknown option %s\n", *argv); | ||
351 | badops = 1; | ||
352 | break; | ||
353 | } | ||
354 | argc--; | ||
355 | argv++; | ||
356 | } | ||
357 | |||
358 | if (badops) { | ||
359 | bad: | ||
360 | BIO_printf(bio_err, "%s [options] <infile >outfile\n", prog); | ||
361 | BIO_printf(bio_err, "where options are\n"); | ||
362 | BIO_printf(bio_err, " -inform arg input format - DER or PEM\n"); | ||
363 | BIO_printf(bio_err, " -outform arg output format - DER or PEM\n"); | ||
364 | BIO_printf(bio_err, " -in arg input file\n"); | ||
365 | BIO_printf(bio_err, " -out arg output file\n"); | ||
366 | BIO_printf(bio_err, " -text text form of request\n"); | ||
367 | BIO_printf(bio_err, " -pubkey output public key\n"); | ||
368 | BIO_printf(bio_err, " -noout do not output REQ\n"); | ||
369 | BIO_printf(bio_err, " -verify verify signature on REQ\n"); | ||
370 | BIO_printf(bio_err, " -modulus RSA modulus\n"); | ||
371 | BIO_printf(bio_err, " -nodes don't encrypt the output key\n"); | ||
372 | #ifndef OPENSSL_NO_ENGINE | ||
373 | BIO_printf(bio_err, " -engine e use engine e, possibly a hardware device\n"); | ||
374 | #endif | ||
375 | BIO_printf(bio_err, " -subject output the request's subject\n"); | ||
376 | BIO_printf(bio_err, " -passin private key password source\n"); | ||
377 | BIO_printf(bio_err, " -key file use the private key contained in file\n"); | ||
378 | BIO_printf(bio_err, " -keyform arg key file format\n"); | ||
379 | BIO_printf(bio_err, " -keyout arg file to send the key to\n"); | ||
380 | BIO_printf(bio_err, " -newkey rsa:bits generate a new RSA key of 'bits' in size\n"); | ||
381 | BIO_printf(bio_err, " -newkey dsa:file generate a new DSA key, parameters taken from CA in 'file'\n"); | ||
382 | BIO_printf(bio_err, " -newkey ec:file generate a new EC key, parameters taken from CA in 'file'\n"); | ||
383 | BIO_printf(bio_err, " -[digest] Digest to sign with (md5, sha1, md2, mdc2, md4)\n"); | ||
384 | BIO_printf(bio_err, " -config file request template file.\n"); | ||
385 | BIO_printf(bio_err, " -subj arg set or modify request subject\n"); | ||
386 | BIO_printf(bio_err, " -multivalue-rdn enable support for multivalued RDNs\n"); | ||
387 | BIO_printf(bio_err, " -new new request.\n"); | ||
388 | BIO_printf(bio_err, " -batch do not ask anything during request generation\n"); | ||
389 | BIO_printf(bio_err, " -x509 output a x509 structure instead of a cert. req.\n"); | ||
390 | BIO_printf(bio_err, " -days number of days a certificate generated by -x509 is valid for.\n"); | ||
391 | BIO_printf(bio_err, " -set_serial serial number to use for a certificate generated by -x509.\n"); | ||
392 | BIO_printf(bio_err, " -newhdr output \"NEW\" in the header lines\n"); | ||
393 | BIO_printf(bio_err, " -asn1-kludge Output the 'request' in a format that is wrong but some CA's\n"); | ||
394 | BIO_printf(bio_err, " have been reported as requiring\n"); | ||
395 | BIO_printf(bio_err, " -extensions .. specify certificate extension section (override value in config file)\n"); | ||
396 | BIO_printf(bio_err, " -reqexts .. specify request extension section (override value in config file)\n"); | ||
397 | BIO_printf(bio_err, " -utf8 input characters are UTF8 (default ASCII)\n"); | ||
398 | BIO_printf(bio_err, " -nameopt arg - various certificate name options\n"); | ||
399 | BIO_printf(bio_err, " -reqopt arg - various request text options\n\n"); | ||
400 | goto end; | ||
401 | } | ||
402 | ERR_load_crypto_strings(); | ||
403 | if (!app_passwd(bio_err, passargin, passargout, &passin, &passout)) { | ||
404 | BIO_printf(bio_err, "Error getting passwords\n"); | ||
405 | goto end; | ||
406 | } | ||
407 | if (template != NULL) { | ||
408 | long errline = -1; | ||
409 | |||
410 | if (verbose) | ||
411 | BIO_printf(bio_err, "Using configuration from %s\n", template); | ||
412 | req_conf = NCONF_new(NULL); | ||
413 | i = NCONF_load(req_conf, template, &errline); | ||
414 | if (i == 0) { | ||
415 | BIO_printf(bio_err, "error on line %ld of %s\n", errline, template); | ||
416 | goto end; | ||
417 | } | ||
418 | } else { | ||
419 | req_conf = config; | ||
420 | |||
421 | if (req_conf == NULL) { | ||
422 | BIO_printf(bio_err, "Unable to load config info from %s\n", default_config_file); | ||
423 | if (newreq) | ||
424 | goto end; | ||
425 | } else if (verbose) | ||
426 | BIO_printf(bio_err, "Using configuration from %s\n", | ||
427 | default_config_file); | ||
428 | } | ||
429 | |||
430 | if (req_conf != NULL) { | ||
431 | if (!load_config(bio_err, req_conf)) | ||
432 | goto end; | ||
433 | p = NCONF_get_string(req_conf, NULL, "oid_file"); | ||
434 | if (p == NULL) | ||
435 | ERR_clear_error(); | ||
436 | if (p != NULL) { | ||
437 | BIO *oid_bio; | ||
438 | |||
439 | oid_bio = BIO_new_file(p, "r"); | ||
440 | if (oid_bio == NULL) { | ||
441 | /* | ||
442 | BIO_printf(bio_err,"problems opening %s for extra oid's\n",p); | ||
443 | ERR_print_errors(bio_err); | ||
444 | */ | ||
445 | } else { | ||
446 | OBJ_create_objects(oid_bio); | ||
447 | BIO_free(oid_bio); | ||
448 | } | ||
449 | } | ||
450 | } | ||
451 | if (!add_oid_section(bio_err, req_conf)) | ||
452 | goto end; | ||
453 | |||
454 | if (md_alg == NULL) { | ||
455 | p = NCONF_get_string(req_conf, SECTION, "default_md"); | ||
456 | if (p == NULL) | ||
457 | ERR_clear_error(); | ||
458 | if (p != NULL) { | ||
459 | if ((md_alg = EVP_get_digestbyname(p)) != NULL) | ||
460 | digest = md_alg; | ||
461 | } | ||
462 | } | ||
463 | if (!extensions) { | ||
464 | extensions = NCONF_get_string(req_conf, SECTION, V3_EXTENSIONS); | ||
465 | if (!extensions) | ||
466 | ERR_clear_error(); | ||
467 | } | ||
468 | if (extensions) { | ||
469 | /* Check syntax of file */ | ||
470 | X509V3_CTX ctx; | ||
471 | X509V3_set_ctx_test(&ctx); | ||
472 | X509V3_set_nconf(&ctx, req_conf); | ||
473 | if (!X509V3_EXT_add_nconf(req_conf, &ctx, extensions, NULL)) { | ||
474 | BIO_printf(bio_err, | ||
475 | "Error Loading extension section %s\n", extensions); | ||
476 | goto end; | ||
477 | } | ||
478 | } | ||
479 | if (!passin) { | ||
480 | passin = NCONF_get_string(req_conf, SECTION, "input_password"); | ||
481 | if (!passin) | ||
482 | ERR_clear_error(); | ||
483 | } | ||
484 | if (!passout) { | ||
485 | passout = NCONF_get_string(req_conf, SECTION, "output_password"); | ||
486 | if (!passout) | ||
487 | ERR_clear_error(); | ||
488 | } | ||
489 | p = NCONF_get_string(req_conf, SECTION, STRING_MASK); | ||
490 | if (!p) | ||
491 | ERR_clear_error(); | ||
492 | |||
493 | if (p && !ASN1_STRING_set_default_mask_asc(p)) { | ||
494 | BIO_printf(bio_err, "Invalid global string mask setting %s\n", p); | ||
495 | goto end; | ||
496 | } | ||
497 | if (chtype != MBSTRING_UTF8) { | ||
498 | p = NCONF_get_string(req_conf, SECTION, UTF8_IN); | ||
499 | if (!p) | ||
500 | ERR_clear_error(); | ||
501 | else if (!strcmp(p, "yes")) | ||
502 | chtype = MBSTRING_UTF8; | ||
503 | } | ||
504 | if (!req_exts) { | ||
505 | req_exts = NCONF_get_string(req_conf, SECTION, REQ_EXTENSIONS); | ||
506 | if (!req_exts) | ||
507 | ERR_clear_error(); | ||
508 | } | ||
509 | if (req_exts) { | ||
510 | /* Check syntax of file */ | ||
511 | X509V3_CTX ctx; | ||
512 | X509V3_set_ctx_test(&ctx); | ||
513 | X509V3_set_nconf(&ctx, req_conf); | ||
514 | if (!X509V3_EXT_add_nconf(req_conf, &ctx, req_exts, NULL)) { | ||
515 | BIO_printf(bio_err, | ||
516 | "Error Loading request extension section %s\n", | ||
517 | req_exts); | ||
518 | goto end; | ||
519 | } | ||
520 | } | ||
521 | in = BIO_new(BIO_s_file()); | ||
522 | out = BIO_new(BIO_s_file()); | ||
523 | if ((in == NULL) || (out == NULL)) | ||
524 | goto end; | ||
525 | |||
526 | #ifndef OPENSSL_NO_ENGINE | ||
527 | e = setup_engine(bio_err, engine, 0); | ||
528 | #endif | ||
529 | |||
530 | if (keyfile != NULL) { | ||
531 | pkey = load_key(bio_err, keyfile, keyform, 0, passin, e, | ||
532 | "Private Key"); | ||
533 | if (!pkey) { | ||
534 | /* | ||
535 | * load_key() has already printed an appropriate | ||
536 | * message | ||
537 | */ | ||
538 | goto end; | ||
539 | } | ||
540 | } | ||
541 | if (newreq && (pkey == NULL)) { | ||
542 | if (!NCONF_get_number(req_conf, SECTION, BITS, &newkey)) { | ||
543 | newkey = DEFAULT_KEY_LENGTH; | ||
544 | } | ||
545 | if (keyalg) { | ||
546 | genctx = set_keygen_ctx(bio_err, keyalg, &pkey_type, &newkey, | ||
547 | &keyalgstr, gen_eng); | ||
548 | if (!genctx) | ||
549 | goto end; | ||
550 | } | ||
551 | if (newkey < MIN_KEY_LENGTH && (pkey_type == EVP_PKEY_RSA || pkey_type == EVP_PKEY_DSA)) { | ||
552 | BIO_printf(bio_err, "private key length is too short,\n"); | ||
553 | BIO_printf(bio_err, "it needs to be at least %d bits, not %ld\n", MIN_KEY_LENGTH, newkey); | ||
554 | goto end; | ||
555 | } | ||
556 | if (!genctx) { | ||
557 | genctx = set_keygen_ctx(bio_err, NULL, &pkey_type, &newkey, | ||
558 | &keyalgstr, gen_eng); | ||
559 | if (!genctx) | ||
560 | goto end; | ||
561 | } | ||
562 | if (pkeyopts) { | ||
563 | char *genopt; | ||
564 | for (i = 0; i < sk_OPENSSL_STRING_num(pkeyopts); i++) { | ||
565 | genopt = sk_OPENSSL_STRING_value(pkeyopts, i); | ||
566 | if (pkey_ctrl_string(genctx, genopt) <= 0) { | ||
567 | BIO_printf(bio_err, | ||
568 | "parameter error \"%s\"\n", | ||
569 | genopt); | ||
570 | ERR_print_errors(bio_err); | ||
571 | goto end; | ||
572 | } | ||
573 | } | ||
574 | } | ||
575 | BIO_printf(bio_err, "Generating a %ld bit %s private key\n", | ||
576 | newkey, keyalgstr); | ||
577 | |||
578 | EVP_PKEY_CTX_set_cb(genctx, genpkey_cb); | ||
579 | EVP_PKEY_CTX_set_app_data(genctx, bio_err); | ||
580 | |||
581 | if (EVP_PKEY_keygen(genctx, &pkey) <= 0) { | ||
582 | BIO_puts(bio_err, "Error Generating Key\n"); | ||
583 | goto end; | ||
584 | } | ||
585 | EVP_PKEY_CTX_free(genctx); | ||
586 | genctx = NULL; | ||
587 | |||
588 | if (keyout == NULL) { | ||
589 | keyout = NCONF_get_string(req_conf, SECTION, KEYFILE); | ||
590 | if (keyout == NULL) | ||
591 | ERR_clear_error(); | ||
592 | } | ||
593 | if (keyout == NULL) { | ||
594 | BIO_printf(bio_err, "writing new private key to stdout\n"); | ||
595 | BIO_set_fp(out, stdout, BIO_NOCLOSE); | ||
596 | } else { | ||
597 | BIO_printf(bio_err, "writing new private key to '%s'\n", keyout); | ||
598 | if (BIO_write_filename(out, keyout) <= 0) { | ||
599 | perror(keyout); | ||
600 | goto end; | ||
601 | } | ||
602 | } | ||
603 | |||
604 | p = NCONF_get_string(req_conf, SECTION, "encrypt_rsa_key"); | ||
605 | if (p == NULL) { | ||
606 | ERR_clear_error(); | ||
607 | p = NCONF_get_string(req_conf, SECTION, "encrypt_key"); | ||
608 | if (p == NULL) | ||
609 | ERR_clear_error(); | ||
610 | } | ||
611 | if ((p != NULL) && (strcmp(p, "no") == 0)) | ||
612 | cipher = NULL; | ||
613 | if (nodes) | ||
614 | cipher = NULL; | ||
615 | |||
616 | i = 0; | ||
617 | loop: | ||
618 | if (!PEM_write_bio_PrivateKey(out, pkey, cipher, | ||
619 | NULL, 0, NULL, passout)) { | ||
620 | if ((ERR_GET_REASON(ERR_peek_error()) == | ||
621 | PEM_R_PROBLEMS_GETTING_PASSWORD) && (i < 3)) { | ||
622 | ERR_clear_error(); | ||
623 | i++; | ||
624 | goto loop; | ||
625 | } | ||
626 | goto end; | ||
627 | } | ||
628 | BIO_printf(bio_err, "-----\n"); | ||
629 | } | ||
630 | if (!newreq) { | ||
631 | /* | ||
632 | * Since we are using a pre-existing certificate request, the | ||
633 | * kludge 'format' info should not be changed. | ||
634 | */ | ||
635 | kludge = -1; | ||
636 | if (infile == NULL) | ||
637 | BIO_set_fp(in, stdin, BIO_NOCLOSE); | ||
638 | else { | ||
639 | if (BIO_read_filename(in, infile) <= 0) { | ||
640 | perror(infile); | ||
641 | goto end; | ||
642 | } | ||
643 | } | ||
644 | |||
645 | if (informat == FORMAT_ASN1) | ||
646 | req = d2i_X509_REQ_bio(in, NULL); | ||
647 | else if (informat == FORMAT_PEM) | ||
648 | req = PEM_read_bio_X509_REQ(in, NULL, NULL, NULL); | ||
649 | else { | ||
650 | BIO_printf(bio_err, "bad input format specified for X509 request\n"); | ||
651 | goto end; | ||
652 | } | ||
653 | if (req == NULL) { | ||
654 | BIO_printf(bio_err, "unable to load X509 request\n"); | ||
655 | goto end; | ||
656 | } | ||
657 | } | ||
658 | if (newreq || x509) { | ||
659 | if (pkey == NULL) { | ||
660 | BIO_printf(bio_err, "you need to specify a private key\n"); | ||
661 | goto end; | ||
662 | } | ||
663 | if (req == NULL) { | ||
664 | req = X509_REQ_new(); | ||
665 | if (req == NULL) { | ||
666 | goto end; | ||
667 | } | ||
668 | i = make_REQ(req, pkey, subj, multirdn, !x509, chtype); | ||
669 | subj = NULL; /* done processing '-subj' option */ | ||
670 | if ((kludge > 0) && !sk_X509_ATTRIBUTE_num(req->req_info->attributes)) { | ||
671 | sk_X509_ATTRIBUTE_free(req->req_info->attributes); | ||
672 | req->req_info->attributes = NULL; | ||
673 | } | ||
674 | if (!i) { | ||
675 | BIO_printf(bio_err, "problems making Certificate Request\n"); | ||
676 | goto end; | ||
677 | } | ||
678 | } | ||
679 | if (x509) { | ||
680 | EVP_PKEY *tmppkey; | ||
681 | X509V3_CTX ext_ctx; | ||
682 | if ((x509ss = X509_new()) == NULL) | ||
683 | goto end; | ||
684 | |||
685 | /* Set version to V3 */ | ||
686 | if (extensions && !X509_set_version(x509ss, 2)) | ||
687 | goto end; | ||
688 | if (serial) { | ||
689 | if (!X509_set_serialNumber(x509ss, serial)) | ||
690 | goto end; | ||
691 | } else { | ||
692 | if (!rand_serial(NULL, | ||
693 | X509_get_serialNumber(x509ss))) | ||
694 | goto end; | ||
695 | } | ||
696 | |||
697 | if (!X509_set_issuer_name(x509ss, X509_REQ_get_subject_name(req))) | ||
698 | goto end; | ||
699 | if (!X509_gmtime_adj(X509_get_notBefore(x509ss), 0)) | ||
700 | goto end; | ||
701 | if (!X509_time_adj_ex(X509_get_notAfter(x509ss), days, 0, NULL)) | ||
702 | goto end; | ||
703 | if (!X509_set_subject_name(x509ss, X509_REQ_get_subject_name(req))) | ||
704 | goto end; | ||
705 | tmppkey = X509_REQ_get_pubkey(req); | ||
706 | if (!tmppkey || !X509_set_pubkey(x509ss, tmppkey)) | ||
707 | goto end; | ||
708 | EVP_PKEY_free(tmppkey); | ||
709 | |||
710 | /* Set up V3 context struct */ | ||
711 | |||
712 | X509V3_set_ctx(&ext_ctx, x509ss, x509ss, NULL, NULL, 0); | ||
713 | X509V3_set_nconf(&ext_ctx, req_conf); | ||
714 | |||
715 | /* Add extensions */ | ||
716 | if (extensions && !X509V3_EXT_add_nconf(req_conf, | ||
717 | &ext_ctx, extensions, x509ss)) { | ||
718 | BIO_printf(bio_err, | ||
719 | "Error Loading extension section %s\n", | ||
720 | extensions); | ||
721 | goto end; | ||
722 | } | ||
723 | i = do_X509_sign(bio_err, x509ss, pkey, digest, sigopts); | ||
724 | if (!i) { | ||
725 | ERR_print_errors(bio_err); | ||
726 | goto end; | ||
727 | } | ||
728 | } else { | ||
729 | X509V3_CTX ext_ctx; | ||
730 | |||
731 | /* Set up V3 context struct */ | ||
732 | |||
733 | X509V3_set_ctx(&ext_ctx, NULL, NULL, req, NULL, 0); | ||
734 | X509V3_set_nconf(&ext_ctx, req_conf); | ||
735 | |||
736 | /* Add extensions */ | ||
737 | if (req_exts && !X509V3_EXT_REQ_add_nconf(req_conf, | ||
738 | &ext_ctx, req_exts, req)) { | ||
739 | BIO_printf(bio_err, | ||
740 | "Error Loading extension section %s\n", | ||
741 | req_exts); | ||
742 | goto end; | ||
743 | } | ||
744 | i = do_X509_REQ_sign(bio_err, req, pkey, digest, sigopts); | ||
745 | if (!i) { | ||
746 | ERR_print_errors(bio_err); | ||
747 | goto end; | ||
748 | } | ||
749 | } | ||
750 | } | ||
751 | if (subj && x509) { | ||
752 | BIO_printf(bio_err, "Cannot modifiy certificate subject\n"); | ||
753 | goto end; | ||
754 | } | ||
755 | if (subj && !x509) { | ||
756 | if (verbose) { | ||
757 | BIO_printf(bio_err, "Modifying Request's Subject\n"); | ||
758 | print_name(bio_err, "old subject=", X509_REQ_get_subject_name(req), nmflag); | ||
759 | } | ||
760 | if (build_subject(req, subj, chtype, multirdn) == 0) { | ||
761 | BIO_printf(bio_err, "ERROR: cannot modify subject\n"); | ||
762 | ex = 1; | ||
763 | goto end; | ||
764 | } | ||
765 | req->req_info->enc.modified = 1; | ||
766 | |||
767 | if (verbose) { | ||
768 | print_name(bio_err, "new subject=", X509_REQ_get_subject_name(req), nmflag); | ||
769 | } | ||
770 | } | ||
771 | if (verify && !x509) { | ||
772 | int tmp = 0; | ||
773 | |||
774 | if (pkey == NULL) { | ||
775 | pkey = X509_REQ_get_pubkey(req); | ||
776 | tmp = 1; | ||
777 | if (pkey == NULL) | ||
778 | goto end; | ||
779 | } | ||
780 | i = X509_REQ_verify(req, pkey); | ||
781 | if (tmp) { | ||
782 | EVP_PKEY_free(pkey); | ||
783 | pkey = NULL; | ||
784 | } | ||
785 | if (i < 0) { | ||
786 | goto end; | ||
787 | } else if (i == 0) { | ||
788 | BIO_printf(bio_err, "verify failure\n"); | ||
789 | ERR_print_errors(bio_err); | ||
790 | } else /* if (i > 0) */ | ||
791 | BIO_printf(bio_err, "verify OK\n"); | ||
792 | } | ||
793 | if (noout && !text && !modulus && !subject && !pubkey) { | ||
794 | ex = 0; | ||
795 | goto end; | ||
796 | } | ||
797 | if (outfile == NULL) { | ||
798 | BIO_set_fp(out, stdout, BIO_NOCLOSE); | ||
799 | } else { | ||
800 | if ((keyout != NULL) && (strcmp(outfile, keyout) == 0)) | ||
801 | i = (int) BIO_append_filename(out, outfile); | ||
802 | else | ||
803 | i = (int) BIO_write_filename(out, outfile); | ||
804 | if (!i) { | ||
805 | perror(outfile); | ||
806 | goto end; | ||
807 | } | ||
808 | } | ||
809 | |||
810 | if (pubkey) { | ||
811 | EVP_PKEY *tpubkey; | ||
812 | tpubkey = X509_REQ_get_pubkey(req); | ||
813 | if (tpubkey == NULL) { | ||
814 | BIO_printf(bio_err, "Error getting public key\n"); | ||
815 | ERR_print_errors(bio_err); | ||
816 | goto end; | ||
817 | } | ||
818 | PEM_write_bio_PUBKEY(out, tpubkey); | ||
819 | EVP_PKEY_free(tpubkey); | ||
820 | } | ||
821 | if (text) { | ||
822 | if (x509) | ||
823 | X509_print_ex(out, x509ss, nmflag, reqflag); | ||
824 | else | ||
825 | X509_REQ_print_ex(out, req, nmflag, reqflag); | ||
826 | } | ||
827 | if (subject) { | ||
828 | if (x509) | ||
829 | print_name(out, "subject=", X509_get_subject_name(x509ss), nmflag); | ||
830 | else | ||
831 | print_name(out, "subject=", X509_REQ_get_subject_name(req), nmflag); | ||
832 | } | ||
833 | if (modulus) { | ||
834 | EVP_PKEY *tpubkey; | ||
835 | |||
836 | if (x509) | ||
837 | tpubkey = X509_get_pubkey(x509ss); | ||
838 | else | ||
839 | tpubkey = X509_REQ_get_pubkey(req); | ||
840 | if (tpubkey == NULL) { | ||
841 | fprintf(stdout, "Modulus=unavailable\n"); | ||
842 | goto end; | ||
843 | } | ||
844 | fprintf(stdout, "Modulus="); | ||
845 | if (EVP_PKEY_base_id(tpubkey) == EVP_PKEY_RSA) | ||
846 | BN_print(out, tpubkey->pkey.rsa->n); | ||
847 | else | ||
848 | fprintf(stdout, "Wrong Algorithm type"); | ||
849 | EVP_PKEY_free(tpubkey); | ||
850 | fprintf(stdout, "\n"); | ||
851 | } | ||
852 | if (!noout && !x509) { | ||
853 | if (outformat == FORMAT_ASN1) | ||
854 | i = i2d_X509_REQ_bio(out, req); | ||
855 | else if (outformat == FORMAT_PEM) { | ||
856 | if (newhdr) | ||
857 | i = PEM_write_bio_X509_REQ_NEW(out, req); | ||
858 | else | ||
859 | i = PEM_write_bio_X509_REQ(out, req); | ||
860 | } else { | ||
861 | BIO_printf(bio_err, "bad output format specified for outfile\n"); | ||
862 | goto end; | ||
863 | } | ||
864 | if (!i) { | ||
865 | BIO_printf(bio_err, "unable to write X509 request\n"); | ||
866 | goto end; | ||
867 | } | ||
868 | } | ||
869 | if (!noout && x509 && (x509ss != NULL)) { | ||
870 | if (outformat == FORMAT_ASN1) | ||
871 | i = i2d_X509_bio(out, x509ss); | ||
872 | else if (outformat == FORMAT_PEM) | ||
873 | i = PEM_write_bio_X509(out, x509ss); | ||
874 | else { | ||
875 | BIO_printf(bio_err, "bad output format specified for outfile\n"); | ||
876 | goto end; | ||
877 | } | ||
878 | if (!i) { | ||
879 | BIO_printf(bio_err, "unable to write X509 certificate\n"); | ||
880 | goto end; | ||
881 | } | ||
882 | } | ||
883 | ex = 0; | ||
884 | end: | ||
885 | if (ex) { | ||
886 | ERR_print_errors(bio_err); | ||
887 | } | ||
888 | if ((req_conf != NULL) && (req_conf != config)) | ||
889 | NCONF_free(req_conf); | ||
890 | BIO_free(in); | ||
891 | BIO_free_all(out); | ||
892 | EVP_PKEY_free(pkey); | ||
893 | if (genctx) | ||
894 | EVP_PKEY_CTX_free(genctx); | ||
895 | if (pkeyopts) | ||
896 | sk_OPENSSL_STRING_free(pkeyopts); | ||
897 | if (sigopts) | ||
898 | sk_OPENSSL_STRING_free(sigopts); | ||
899 | #ifndef OPENSSL_NO_ENGINE | ||
900 | if (gen_eng) | ||
901 | ENGINE_free(gen_eng); | ||
902 | #endif | ||
903 | free(keyalgstr); | ||
904 | X509_REQ_free(req); | ||
905 | X509_free(x509ss); | ||
906 | ASN1_INTEGER_free(serial); | ||
907 | if (passargin && passin) | ||
908 | free(passin); | ||
909 | if (passargout && passout) | ||
910 | free(passout); | ||
911 | OBJ_cleanup(); | ||
912 | |||
913 | return (ex); | ||
914 | } | ||
915 | |||
916 | static int | ||
917 | make_REQ(X509_REQ * req, EVP_PKEY * pkey, char *subj, int multirdn, | ||
918 | int attribs, unsigned long chtype) | ||
919 | { | ||
920 | int ret = 0, i; | ||
921 | char no_prompt = 0; | ||
922 | STACK_OF(CONF_VALUE) * dn_sk, *attr_sk = NULL; | ||
923 | char *tmp, *dn_sect, *attr_sect; | ||
924 | |||
925 | tmp = NCONF_get_string(req_conf, SECTION, PROMPT); | ||
926 | if (tmp == NULL) | ||
927 | ERR_clear_error(); | ||
928 | if ((tmp != NULL) && !strcmp(tmp, "no")) | ||
929 | no_prompt = 1; | ||
930 | |||
931 | dn_sect = NCONF_get_string(req_conf, SECTION, DISTINGUISHED_NAME); | ||
932 | if (dn_sect == NULL) { | ||
933 | BIO_printf(bio_err, "unable to find '%s' in config\n", | ||
934 | DISTINGUISHED_NAME); | ||
935 | goto err; | ||
936 | } | ||
937 | dn_sk = NCONF_get_section(req_conf, dn_sect); | ||
938 | if (dn_sk == NULL) { | ||
939 | BIO_printf(bio_err, "unable to get '%s' section\n", dn_sect); | ||
940 | goto err; | ||
941 | } | ||
942 | attr_sect = NCONF_get_string(req_conf, SECTION, ATTRIBUTES); | ||
943 | if (attr_sect == NULL) { | ||
944 | ERR_clear_error(); | ||
945 | attr_sk = NULL; | ||
946 | } else { | ||
947 | attr_sk = NCONF_get_section(req_conf, attr_sect); | ||
948 | if (attr_sk == NULL) { | ||
949 | BIO_printf(bio_err, "unable to get '%s' section\n", attr_sect); | ||
950 | goto err; | ||
951 | } | ||
952 | } | ||
953 | |||
954 | /* setup version number */ | ||
955 | if (!X509_REQ_set_version(req, 0L)) | ||
956 | goto err; /* version 1 */ | ||
957 | |||
958 | if (no_prompt) | ||
959 | i = auto_info(req, dn_sk, attr_sk, attribs, chtype); | ||
960 | else { | ||
961 | if (subj) | ||
962 | i = build_subject(req, subj, chtype, multirdn); | ||
963 | else | ||
964 | i = prompt_info(req, dn_sk, dn_sect, attr_sk, attr_sect, attribs, chtype); | ||
965 | } | ||
966 | if (!i) | ||
967 | goto err; | ||
968 | |||
969 | if (!X509_REQ_set_pubkey(req, pkey)) | ||
970 | goto err; | ||
971 | |||
972 | ret = 1; | ||
973 | err: | ||
974 | return (ret); | ||
975 | } | ||
976 | |||
977 | /* | ||
978 | * subject is expected to be in the format /type0=value0/type1=value1/type2=... | ||
979 | * where characters may be escaped by \ | ||
980 | */ | ||
981 | static int | ||
982 | build_subject(X509_REQ * req, char *subject, unsigned long chtype, int multirdn) | ||
983 | { | ||
984 | X509_NAME *n; | ||
985 | |||
986 | if (!(n = parse_name(subject, chtype, multirdn))) | ||
987 | return 0; | ||
988 | |||
989 | if (!X509_REQ_set_subject_name(req, n)) { | ||
990 | X509_NAME_free(n); | ||
991 | return 0; | ||
992 | } | ||
993 | X509_NAME_free(n); | ||
994 | return 1; | ||
995 | } | ||
996 | |||
997 | |||
998 | static int | ||
999 | prompt_info(X509_REQ * req, | ||
1000 | STACK_OF(CONF_VALUE) * dn_sk, char *dn_sect, | ||
1001 | STACK_OF(CONF_VALUE) * attr_sk, char *attr_sect, int attribs, | ||
1002 | unsigned long chtype) | ||
1003 | { | ||
1004 | int i; | ||
1005 | char *p, *q; | ||
1006 | char buf[100]; | ||
1007 | int nid, mval; | ||
1008 | long n_min, n_max; | ||
1009 | char *type, *value; | ||
1010 | const char *def; | ||
1011 | CONF_VALUE *v; | ||
1012 | X509_NAME *subj; | ||
1013 | subj = X509_REQ_get_subject_name(req); | ||
1014 | |||
1015 | if (!batch) { | ||
1016 | BIO_printf(bio_err, "You are about to be asked to enter information that will be incorporated\n"); | ||
1017 | BIO_printf(bio_err, "into your certificate request.\n"); | ||
1018 | BIO_printf(bio_err, "What you are about to enter is what is called a Distinguished Name or a DN.\n"); | ||
1019 | BIO_printf(bio_err, "There are quite a few fields but you can leave some blank\n"); | ||
1020 | BIO_printf(bio_err, "For some fields there will be a default value,\n"); | ||
1021 | BIO_printf(bio_err, "If you enter '.', the field will be left blank.\n"); | ||
1022 | BIO_printf(bio_err, "-----\n"); | ||
1023 | } | ||
1024 | if (sk_CONF_VALUE_num(dn_sk)) { | ||
1025 | i = -1; | ||
1026 | start: for (;;) { | ||
1027 | int ret; | ||
1028 | i++; | ||
1029 | if (sk_CONF_VALUE_num(dn_sk) <= i) | ||
1030 | break; | ||
1031 | |||
1032 | v = sk_CONF_VALUE_value(dn_sk, i); | ||
1033 | p = q = NULL; | ||
1034 | type = v->name; | ||
1035 | if (!check_end(type, "_min") || !check_end(type, "_max") || | ||
1036 | !check_end(type, "_default") || | ||
1037 | !check_end(type, "_value")) | ||
1038 | continue; | ||
1039 | /* | ||
1040 | * Skip past any leading X. X: X, etc to allow for | ||
1041 | * multiple instances | ||
1042 | */ | ||
1043 | for (p = v->name; *p; p++) | ||
1044 | if ((*p == ':') || (*p == ',') || | ||
1045 | (*p == '.')) { | ||
1046 | p++; | ||
1047 | if (*p) | ||
1048 | type = p; | ||
1049 | break; | ||
1050 | } | ||
1051 | if (*type == '+') { | ||
1052 | mval = -1; | ||
1053 | type++; | ||
1054 | } else | ||
1055 | mval = 0; | ||
1056 | /* If OBJ not recognised ignore it */ | ||
1057 | if ((nid = OBJ_txt2nid(type)) == NID_undef) | ||
1058 | goto start; | ||
1059 | ret = snprintf(buf, sizeof buf, "%s_default", v->name); | ||
1060 | if (ret == -1 || ret >= sizeof(buf)) { | ||
1061 | BIO_printf(bio_err, "Name '%s' too long for default\n", | ||
1062 | v->name); | ||
1063 | return 0; | ||
1064 | } | ||
1065 | if ((def = NCONF_get_string(req_conf, dn_sect, buf)) == NULL) { | ||
1066 | ERR_clear_error(); | ||
1067 | def = ""; | ||
1068 | } | ||
1069 | ret = snprintf(buf, sizeof buf, "%s_value", v->name); | ||
1070 | if (ret == -1 || ret >= sizeof(buf)) { | ||
1071 | BIO_printf(bio_err, "Name '%s' too long for value\n", | ||
1072 | v->name); | ||
1073 | return 0; | ||
1074 | } | ||
1075 | if ((value = NCONF_get_string(req_conf, dn_sect, buf)) == NULL) { | ||
1076 | ERR_clear_error(); | ||
1077 | value = NULL; | ||
1078 | } | ||
1079 | ret = snprintf(buf, sizeof buf, "%s_min", v->name); | ||
1080 | if (ret == -1 || ret >= sizeof(buf)) { | ||
1081 | BIO_printf(bio_err, "Name '%s' too long for min\n", | ||
1082 | v->name); | ||
1083 | return 0; | ||
1084 | } | ||
1085 | if (!NCONF_get_number(req_conf, dn_sect, buf, &n_min)) { | ||
1086 | ERR_clear_error(); | ||
1087 | n_min = -1; | ||
1088 | } | ||
1089 | ret = snprintf(buf, sizeof buf, "%s_max", v->name); | ||
1090 | if (ret == -1 || ret >= sizeof(buf)) { | ||
1091 | BIO_printf(bio_err, "Name '%s' too long for max\n", | ||
1092 | v->name); | ||
1093 | return 0; | ||
1094 | } | ||
1095 | if (!NCONF_get_number(req_conf, dn_sect, buf, &n_max)) { | ||
1096 | ERR_clear_error(); | ||
1097 | n_max = -1; | ||
1098 | } | ||
1099 | if (!add_DN_object(subj, v->value, def, value, nid, | ||
1100 | n_min, n_max, chtype, mval)) | ||
1101 | return 0; | ||
1102 | } | ||
1103 | if (X509_NAME_entry_count(subj) == 0) { | ||
1104 | BIO_printf(bio_err, "error, no objects specified in config file\n"); | ||
1105 | return 0; | ||
1106 | } | ||
1107 | if (attribs) { | ||
1108 | if ((attr_sk != NULL) && (sk_CONF_VALUE_num(attr_sk) > 0) && | ||
1109 | (!batch)) { | ||
1110 | BIO_printf(bio_err, | ||
1111 | "\nPlease enter the following 'extra' attributes\n"); | ||
1112 | BIO_printf(bio_err, | ||
1113 | "to be sent with your certificate request\n"); | ||
1114 | } | ||
1115 | i = -1; | ||
1116 | start2: for (;;) { | ||
1117 | int ret; | ||
1118 | i++; | ||
1119 | if ((attr_sk == NULL) || | ||
1120 | (sk_CONF_VALUE_num(attr_sk) <= i)) | ||
1121 | break; | ||
1122 | |||
1123 | v = sk_CONF_VALUE_value(attr_sk, i); | ||
1124 | type = v->name; | ||
1125 | if ((nid = OBJ_txt2nid(type)) == NID_undef) | ||
1126 | goto start2; | ||
1127 | ret = snprintf(buf, sizeof buf, "%s_default", type); | ||
1128 | if (ret == -1 || ret >= sizeof(buf)) { | ||
1129 | BIO_printf(bio_err, "Name '%s' too long for default\n", | ||
1130 | v->name); | ||
1131 | return 0; | ||
1132 | } | ||
1133 | if ((def = NCONF_get_string(req_conf, attr_sect, buf)) | ||
1134 | == NULL) { | ||
1135 | ERR_clear_error(); | ||
1136 | def = ""; | ||
1137 | } | ||
1138 | ret = snprintf(buf, sizeof buf, "%s_value", type); | ||
1139 | if (ret == -1 || ret >= sizeof(buf)) { | ||
1140 | BIO_printf(bio_err, "Name '%s' too long for value\n", | ||
1141 | v->name); | ||
1142 | return 0; | ||
1143 | } | ||
1144 | if ((value = NCONF_get_string(req_conf, attr_sect, buf)) | ||
1145 | == NULL) { | ||
1146 | ERR_clear_error(); | ||
1147 | value = NULL; | ||
1148 | } | ||
1149 | ret = snprintf(buf, sizeof buf, "%s_min", type); | ||
1150 | if (ret == -1 || ret >= sizeof(buf)) { | ||
1151 | BIO_printf(bio_err, "Name '%s' too long for min\n", | ||
1152 | v->name); | ||
1153 | return 0; | ||
1154 | } | ||
1155 | if (!NCONF_get_number(req_conf, attr_sect, buf, &n_min)) { | ||
1156 | ERR_clear_error(); | ||
1157 | n_min = -1; | ||
1158 | } | ||
1159 | ret = snprintf(buf, sizeof buf, "%s_max", type); | ||
1160 | if (ret == -1 || ret >= sizeof(buf)) { | ||
1161 | BIO_printf(bio_err, "Name '%s' too long for max\n", | ||
1162 | v->name); | ||
1163 | return 0; | ||
1164 | } | ||
1165 | if (!NCONF_get_number(req_conf, attr_sect, buf, &n_max)) { | ||
1166 | ERR_clear_error(); | ||
1167 | n_max = -1; | ||
1168 | } | ||
1169 | if (!add_attribute_object(req, | ||
1170 | v->value, def, value, nid, n_min, n_max, chtype)) | ||
1171 | return 0; | ||
1172 | } | ||
1173 | } | ||
1174 | } else { | ||
1175 | BIO_printf(bio_err, "No template, please set one up.\n"); | ||
1176 | return 0; | ||
1177 | } | ||
1178 | |||
1179 | return 1; | ||
1180 | |||
1181 | } | ||
1182 | |||
1183 | static int | ||
1184 | auto_info(X509_REQ * req, STACK_OF(CONF_VALUE) * dn_sk, | ||
1185 | STACK_OF(CONF_VALUE) * attr_sk, int attribs, unsigned long chtype) | ||
1186 | { | ||
1187 | int i; | ||
1188 | char *p, *q; | ||
1189 | char *type; | ||
1190 | CONF_VALUE *v; | ||
1191 | X509_NAME *subj; | ||
1192 | |||
1193 | subj = X509_REQ_get_subject_name(req); | ||
1194 | |||
1195 | for (i = 0; i < sk_CONF_VALUE_num(dn_sk); i++) { | ||
1196 | int mval; | ||
1197 | v = sk_CONF_VALUE_value(dn_sk, i); | ||
1198 | p = q = NULL; | ||
1199 | type = v->name; | ||
1200 | /* | ||
1201 | * Skip past any leading X. X: X, etc to allow for multiple | ||
1202 | * instances | ||
1203 | */ | ||
1204 | for (p = v->name; *p; p++) | ||
1205 | if ((*p == ':') || (*p == ',') || (*p == '.')) { | ||
1206 | p++; | ||
1207 | if (*p) | ||
1208 | type = p; | ||
1209 | break; | ||
1210 | } | ||
1211 | if (*p == '+') { | ||
1212 | p++; | ||
1213 | mval = -1; | ||
1214 | } else | ||
1215 | mval = 0; | ||
1216 | if (!X509_NAME_add_entry_by_txt(subj, type, chtype, | ||
1217 | (unsigned char *) v->value, -1, -1, mval)) | ||
1218 | return 0; | ||
1219 | |||
1220 | } | ||
1221 | |||
1222 | if (!X509_NAME_entry_count(subj)) { | ||
1223 | BIO_printf(bio_err, "error, no objects specified in config file\n"); | ||
1224 | return 0; | ||
1225 | } | ||
1226 | if (attribs) { | ||
1227 | for (i = 0; i < sk_CONF_VALUE_num(attr_sk); i++) { | ||
1228 | v = sk_CONF_VALUE_value(attr_sk, i); | ||
1229 | if (!X509_REQ_add1_attr_by_txt(req, v->name, chtype, | ||
1230 | (unsigned char *) v->value, -1)) | ||
1231 | return 0; | ||
1232 | } | ||
1233 | } | ||
1234 | return 1; | ||
1235 | } | ||
1236 | |||
1237 | |||
1238 | static int | ||
1239 | add_DN_object(X509_NAME * n, char *text, const char *def, char *value, | ||
1240 | int nid, int n_min, int n_max, unsigned long chtype, int mval) | ||
1241 | { | ||
1242 | int i, ret = 0; | ||
1243 | char buf[1024]; | ||
1244 | start: | ||
1245 | if (!batch) | ||
1246 | BIO_printf(bio_err, "%s [%s]:", text, def); | ||
1247 | (void) BIO_flush(bio_err); | ||
1248 | if (value != NULL) { | ||
1249 | strlcpy(buf, value, sizeof buf); | ||
1250 | strlcat(buf, "\n", sizeof buf); | ||
1251 | BIO_printf(bio_err, "%s\n", value); | ||
1252 | } else { | ||
1253 | buf[0] = '\0'; | ||
1254 | if (!batch) { | ||
1255 | if (!fgets(buf, sizeof buf, stdin)) | ||
1256 | return 0; | ||
1257 | } else { | ||
1258 | buf[0] = '\n'; | ||
1259 | buf[1] = '\0'; | ||
1260 | } | ||
1261 | } | ||
1262 | |||
1263 | if (buf[0] == '\0') | ||
1264 | return (0); | ||
1265 | else if (buf[0] == '\n') { | ||
1266 | if ((def == NULL) || (def[0] == '\0')) | ||
1267 | return (1); | ||
1268 | strlcpy(buf, def, sizeof buf); | ||
1269 | strlcat(buf, "\n", sizeof buf); | ||
1270 | } else if ((buf[0] == '.') && (buf[1] == '\n')) | ||
1271 | return (1); | ||
1272 | |||
1273 | i = strlen(buf); | ||
1274 | if (buf[i - 1] != '\n') { | ||
1275 | BIO_printf(bio_err, "weird input :-(\n"); | ||
1276 | return (0); | ||
1277 | } | ||
1278 | buf[--i] = '\0'; | ||
1279 | if (!req_check_len(i, n_min, n_max)) | ||
1280 | goto start; | ||
1281 | if (!X509_NAME_add_entry_by_NID(n, nid, chtype, | ||
1282 | (unsigned char *) buf, -1, -1, mval)) | ||
1283 | goto err; | ||
1284 | ret = 1; | ||
1285 | err: | ||
1286 | return (ret); | ||
1287 | } | ||
1288 | |||
1289 | static int | ||
1290 | add_attribute_object(X509_REQ * req, char *text, const char *def, | ||
1291 | char *value, int nid, int n_min, | ||
1292 | int n_max, unsigned long chtype) | ||
1293 | { | ||
1294 | int i; | ||
1295 | static char buf[1024]; | ||
1296 | |||
1297 | start: | ||
1298 | if (!batch) | ||
1299 | BIO_printf(bio_err, "%s [%s]:", text, def); | ||
1300 | (void) BIO_flush(bio_err); | ||
1301 | if (value != NULL) { | ||
1302 | strlcpy(buf, value, sizeof buf); | ||
1303 | strlcat(buf, "\n", sizeof buf); | ||
1304 | BIO_printf(bio_err, "%s\n", value); | ||
1305 | } else { | ||
1306 | buf[0] = '\0'; | ||
1307 | if (!batch) { | ||
1308 | if (!fgets(buf, sizeof buf, stdin)) | ||
1309 | return 0; | ||
1310 | } else { | ||
1311 | buf[0] = '\n'; | ||
1312 | buf[1] = '\0'; | ||
1313 | } | ||
1314 | } | ||
1315 | |||
1316 | if (buf[0] == '\0') | ||
1317 | return (0); | ||
1318 | else if (buf[0] == '\n') { | ||
1319 | if ((def == NULL) || (def[0] == '\0')) | ||
1320 | return (1); | ||
1321 | strlcpy(buf, def, sizeof buf); | ||
1322 | strlcat(buf, "\n", sizeof buf); | ||
1323 | } else if ((buf[0] == '.') && (buf[1] == '\n')) | ||
1324 | return (1); | ||
1325 | |||
1326 | i = strlen(buf); | ||
1327 | if (buf[i - 1] != '\n') { | ||
1328 | BIO_printf(bio_err, "weird input :-(\n"); | ||
1329 | return (0); | ||
1330 | } | ||
1331 | buf[--i] = '\0'; | ||
1332 | if (!req_check_len(i, n_min, n_max)) | ||
1333 | goto start; | ||
1334 | |||
1335 | if (!X509_REQ_add1_attr_by_NID(req, nid, chtype, | ||
1336 | (unsigned char *) buf, -1)) { | ||
1337 | BIO_printf(bio_err, "Error adding attribute\n"); | ||
1338 | ERR_print_errors(bio_err); | ||
1339 | goto err; | ||
1340 | } | ||
1341 | return (1); | ||
1342 | err: | ||
1343 | return (0); | ||
1344 | } | ||
1345 | |||
1346 | static int | ||
1347 | req_check_len(int len, int n_min, int n_max) | ||
1348 | { | ||
1349 | if ((n_min > 0) && (len < n_min)) { | ||
1350 | BIO_printf(bio_err, "string is too short, it needs to be at least %d bytes long\n", n_min); | ||
1351 | return (0); | ||
1352 | } | ||
1353 | if ((n_max >= 0) && (len > n_max)) { | ||
1354 | BIO_printf(bio_err, "string is too long, it needs to be less than %d bytes long\n", n_max); | ||
1355 | return (0); | ||
1356 | } | ||
1357 | return (1); | ||
1358 | } | ||
1359 | |||
1360 | /* Check if the end of a string matches 'end' */ | ||
1361 | static int | ||
1362 | check_end(const char *str, const char *end) | ||
1363 | { | ||
1364 | int elen, slen; | ||
1365 | const char *tmp; | ||
1366 | elen = strlen(end); | ||
1367 | slen = strlen(str); | ||
1368 | if (elen > slen) | ||
1369 | return 1; | ||
1370 | tmp = str + slen - elen; | ||
1371 | return strcmp(tmp, end); | ||
1372 | } | ||
1373 | |||
1374 | static EVP_PKEY_CTX * | ||
1375 | set_keygen_ctx(BIO * err, const char *gstr, int *pkey_type, | ||
1376 | long *pkeylen, char **palgnam, | ||
1377 | ENGINE * keygen_engine) | ||
1378 | { | ||
1379 | EVP_PKEY_CTX *gctx = NULL; | ||
1380 | EVP_PKEY *param = NULL; | ||
1381 | long keylen = -1; | ||
1382 | BIO *pbio = NULL; | ||
1383 | const char *paramfile = NULL; | ||
1384 | const char *errstr; | ||
1385 | |||
1386 | if (gstr == NULL) { | ||
1387 | *pkey_type = EVP_PKEY_RSA; | ||
1388 | keylen = *pkeylen; | ||
1389 | } else if (gstr[0] >= '0' && gstr[0] <= '9') { | ||
1390 | *pkey_type = EVP_PKEY_RSA; | ||
1391 | keylen = strtonum(gstr, 0, LONG_MAX, &errstr); | ||
1392 | if (errstr) { | ||
1393 | BIO_printf(err, "bad algorithm %s: %s\n", gstr, errstr); | ||
1394 | return NULL; | ||
1395 | } | ||
1396 | *pkeylen = keylen; | ||
1397 | } else if (!strncmp(gstr, "param:", 6)) | ||
1398 | paramfile = gstr + 6; | ||
1399 | else { | ||
1400 | const char *p = strchr(gstr, ':'); | ||
1401 | int len; | ||
1402 | ENGINE *tmpeng; | ||
1403 | const EVP_PKEY_ASN1_METHOD *ameth; | ||
1404 | |||
1405 | if (p) | ||
1406 | len = p - gstr; | ||
1407 | else | ||
1408 | len = strlen(gstr); | ||
1409 | /* | ||
1410 | * The lookup of a the string will cover all engines so keep | ||
1411 | * a note of the implementation. | ||
1412 | */ | ||
1413 | |||
1414 | ameth = EVP_PKEY_asn1_find_str(&tmpeng, gstr, len); | ||
1415 | |||
1416 | if (!ameth) { | ||
1417 | BIO_printf(err, "Unknown algorithm %.*s\n", len, gstr); | ||
1418 | return NULL; | ||
1419 | } | ||
1420 | EVP_PKEY_asn1_get0_info(NULL, pkey_type, NULL, NULL, NULL, | ||
1421 | ameth); | ||
1422 | #ifndef OPENSSL_NO_ENGINE | ||
1423 | if (tmpeng) | ||
1424 | ENGINE_finish(tmpeng); | ||
1425 | #endif | ||
1426 | if (*pkey_type == EVP_PKEY_RSA) { | ||
1427 | if (p) { | ||
1428 | keylen = strtonum(p + 1, 0, LONG_MAX, &errstr); | ||
1429 | if (errstr) { | ||
1430 | BIO_printf(err, "bad algorithm %s: %s\n", | ||
1431 | p + 1, errstr); | ||
1432 | return NULL; | ||
1433 | } | ||
1434 | *pkeylen = keylen; | ||
1435 | } else | ||
1436 | keylen = *pkeylen; | ||
1437 | } else if (p) | ||
1438 | paramfile = p + 1; | ||
1439 | } | ||
1440 | |||
1441 | if (paramfile) { | ||
1442 | pbio = BIO_new_file(paramfile, "r"); | ||
1443 | if (!pbio) { | ||
1444 | BIO_printf(err, "Can't open parameter file %s\n", | ||
1445 | paramfile); | ||
1446 | return NULL; | ||
1447 | } | ||
1448 | param = PEM_read_bio_Parameters(pbio, NULL); | ||
1449 | |||
1450 | if (!param) { | ||
1451 | X509 *x; | ||
1452 | (void) BIO_reset(pbio); | ||
1453 | x = PEM_read_bio_X509(pbio, NULL, NULL, NULL); | ||
1454 | if (x) { | ||
1455 | param = X509_get_pubkey(x); | ||
1456 | X509_free(x); | ||
1457 | } | ||
1458 | } | ||
1459 | BIO_free(pbio); | ||
1460 | |||
1461 | if (!param) { | ||
1462 | BIO_printf(err, "Error reading parameter file %s\n", | ||
1463 | paramfile); | ||
1464 | return NULL; | ||
1465 | } | ||
1466 | if (*pkey_type == -1) | ||
1467 | *pkey_type = EVP_PKEY_id(param); | ||
1468 | else if (*pkey_type != EVP_PKEY_base_id(param)) { | ||
1469 | BIO_printf(err, "Key Type does not match parameters\n"); | ||
1470 | EVP_PKEY_free(param); | ||
1471 | return NULL; | ||
1472 | } | ||
1473 | } | ||
1474 | if (palgnam) { | ||
1475 | const EVP_PKEY_ASN1_METHOD *ameth; | ||
1476 | ENGINE *tmpeng; | ||
1477 | const char *anam; | ||
1478 | ameth = EVP_PKEY_asn1_find(&tmpeng, *pkey_type); | ||
1479 | if (!ameth) { | ||
1480 | BIO_puts(err, "Internal error: can't find key algorithm\n"); | ||
1481 | return NULL; | ||
1482 | } | ||
1483 | EVP_PKEY_asn1_get0_info(NULL, NULL, NULL, NULL, &anam, ameth); | ||
1484 | *palgnam = BUF_strdup(anam); | ||
1485 | #ifndef OPENSSL_NO_ENGINE | ||
1486 | if (tmpeng) | ||
1487 | ENGINE_finish(tmpeng); | ||
1488 | #endif | ||
1489 | } | ||
1490 | if (param) { | ||
1491 | gctx = EVP_PKEY_CTX_new(param, keygen_engine); | ||
1492 | *pkeylen = EVP_PKEY_bits(param); | ||
1493 | EVP_PKEY_free(param); | ||
1494 | } else | ||
1495 | gctx = EVP_PKEY_CTX_new_id(*pkey_type, keygen_engine); | ||
1496 | |||
1497 | if (!gctx) { | ||
1498 | BIO_puts(err, "Error allocating keygen context\n"); | ||
1499 | ERR_print_errors(err); | ||
1500 | return NULL; | ||
1501 | } | ||
1502 | if (EVP_PKEY_keygen_init(gctx) <= 0) { | ||
1503 | BIO_puts(err, "Error initializing keygen context\n"); | ||
1504 | ERR_print_errors(err); | ||
1505 | return NULL; | ||
1506 | } | ||
1507 | if ((*pkey_type == EVP_PKEY_RSA) && (keylen != -1)) { | ||
1508 | if (EVP_PKEY_CTX_set_rsa_keygen_bits(gctx, keylen) <= 0) { | ||
1509 | BIO_puts(err, "Error setting RSA keysize\n"); | ||
1510 | ERR_print_errors(err); | ||
1511 | EVP_PKEY_CTX_free(gctx); | ||
1512 | return NULL; | ||
1513 | } | ||
1514 | } | ||
1515 | |||
1516 | return gctx; | ||
1517 | } | ||
1518 | |||
1519 | static int | ||
1520 | genpkey_cb(EVP_PKEY_CTX * ctx) | ||
1521 | { | ||
1522 | char c = '*'; | ||
1523 | BIO *b = EVP_PKEY_CTX_get_app_data(ctx); | ||
1524 | int p; | ||
1525 | p = EVP_PKEY_CTX_get_keygen_info(ctx, 0); | ||
1526 | if (p == 0) | ||
1527 | c = '.'; | ||
1528 | if (p == 1) | ||
1529 | c = '+'; | ||
1530 | if (p == 2) | ||
1531 | c = '*'; | ||
1532 | if (p == 3) | ||
1533 | c = '\n'; | ||
1534 | BIO_write(b, &c, 1); | ||
1535 | (void) BIO_flush(b); | ||
1536 | return 1; | ||
1537 | } | ||
1538 | |||
1539 | static int | ||
1540 | do_sign_init(BIO * err, EVP_MD_CTX * ctx, EVP_PKEY * pkey, | ||
1541 | const EVP_MD * md, STACK_OF(OPENSSL_STRING) * sigopts) | ||
1542 | { | ||
1543 | EVP_PKEY_CTX *pkctx = NULL; | ||
1544 | int i; | ||
1545 | EVP_MD_CTX_init(ctx); | ||
1546 | if (!EVP_DigestSignInit(ctx, &pkctx, md, NULL, pkey)) | ||
1547 | return 0; | ||
1548 | for (i = 0; i < sk_OPENSSL_STRING_num(sigopts); i++) { | ||
1549 | char *sigopt = sk_OPENSSL_STRING_value(sigopts, i); | ||
1550 | if (pkey_ctrl_string(pkctx, sigopt) <= 0) { | ||
1551 | BIO_printf(err, "parameter error \"%s\"\n", sigopt); | ||
1552 | ERR_print_errors(bio_err); | ||
1553 | return 0; | ||
1554 | } | ||
1555 | } | ||
1556 | return 1; | ||
1557 | } | ||
1558 | |||
1559 | int | ||
1560 | do_X509_sign(BIO * err, X509 * x, EVP_PKEY * pkey, const EVP_MD * md, | ||
1561 | STACK_OF(OPENSSL_STRING) * sigopts) | ||
1562 | { | ||
1563 | int rv; | ||
1564 | EVP_MD_CTX mctx; | ||
1565 | EVP_MD_CTX_init(&mctx); | ||
1566 | rv = do_sign_init(err, &mctx, pkey, md, sigopts); | ||
1567 | if (rv > 0) | ||
1568 | rv = X509_sign_ctx(x, &mctx); | ||
1569 | EVP_MD_CTX_cleanup(&mctx); | ||
1570 | return rv > 0 ? 1 : 0; | ||
1571 | } | ||
1572 | |||
1573 | |||
1574 | int | ||
1575 | do_X509_REQ_sign(BIO * err, X509_REQ * x, EVP_PKEY * pkey, const EVP_MD * md, | ||
1576 | STACK_OF(OPENSSL_STRING) * sigopts) | ||
1577 | { | ||
1578 | int rv; | ||
1579 | EVP_MD_CTX mctx; | ||
1580 | EVP_MD_CTX_init(&mctx); | ||
1581 | rv = do_sign_init(err, &mctx, pkey, md, sigopts); | ||
1582 | if (rv > 0) | ||
1583 | rv = X509_REQ_sign_ctx(x, &mctx); | ||
1584 | EVP_MD_CTX_cleanup(&mctx); | ||
1585 | return rv > 0 ? 1 : 0; | ||
1586 | } | ||
1587 | |||
1588 | |||
1589 | |||
1590 | int | ||
1591 | do_X509_CRL_sign(BIO * err, X509_CRL * x, EVP_PKEY * pkey, const EVP_MD * md, | ||
1592 | STACK_OF(OPENSSL_STRING) * sigopts) | ||
1593 | { | ||
1594 | int rv; | ||
1595 | EVP_MD_CTX mctx; | ||
1596 | EVP_MD_CTX_init(&mctx); | ||
1597 | rv = do_sign_init(err, &mctx, pkey, md, sigopts); | ||
1598 | if (rv > 0) | ||
1599 | rv = X509_CRL_sign_ctx(x, &mctx); | ||
1600 | EVP_MD_CTX_cleanup(&mctx); | ||
1601 | return rv > 0 ? 1 : 0; | ||
1602 | } | ||
diff --git a/src/usr.bin/openssl/rsa.c b/src/usr.bin/openssl/rsa.c new file mode 100644 index 0000000000..677e35f859 --- /dev/null +++ b/src/usr.bin/openssl/rsa.c | |||
@@ -0,0 +1,392 @@ | |||
1 | /* $OpenBSD: rsa.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
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 <openssl/opensslconf.h> | ||
60 | |||
61 | |||
62 | #include <stdio.h> | ||
63 | #include <stdlib.h> | ||
64 | #include <string.h> | ||
65 | #include <time.h> | ||
66 | |||
67 | #include "apps.h" | ||
68 | |||
69 | #include <openssl/bio.h> | ||
70 | #include <openssl/bn.h> | ||
71 | #include <openssl/err.h> | ||
72 | #include <openssl/evp.h> | ||
73 | #include <openssl/pem.h> | ||
74 | #include <openssl/rsa.h> | ||
75 | #include <openssl/x509.h> | ||
76 | |||
77 | /* -inform arg - input format - default PEM (one of DER, NET or PEM) | ||
78 | * -outform arg - output format - default PEM | ||
79 | * -in arg - input file - default stdin | ||
80 | * -out arg - output file - default stdout | ||
81 | * -des - encrypt output if PEM format with DES in cbc mode | ||
82 | * -des3 - encrypt output if PEM format | ||
83 | * -idea - encrypt output if PEM format | ||
84 | * -seed - encrypt output if PEM format | ||
85 | * -aes128 - encrypt output if PEM format | ||
86 | * -aes192 - encrypt output if PEM format | ||
87 | * -aes256 - encrypt output if PEM format | ||
88 | * -camellia128 - encrypt output if PEM format | ||
89 | * -camellia192 - encrypt output if PEM format | ||
90 | * -camellia256 - encrypt output if PEM format | ||
91 | * -text - print a text version | ||
92 | * -modulus - print the RSA key modulus | ||
93 | * -check - verify key consistency | ||
94 | * -pubin - Expect a public key in input file. | ||
95 | * -pubout - Output a public key. | ||
96 | */ | ||
97 | |||
98 | int rsa_main(int, char **); | ||
99 | |||
100 | int | ||
101 | rsa_main(int argc, char **argv) | ||
102 | { | ||
103 | ENGINE *e = NULL; | ||
104 | int ret = 1; | ||
105 | RSA *rsa = NULL; | ||
106 | int i, badops = 0, sgckey = 0; | ||
107 | const EVP_CIPHER *enc = NULL; | ||
108 | BIO *out = NULL; | ||
109 | int informat, outformat, text = 0, check = 0, noout = 0; | ||
110 | int pubin = 0, pubout = 0; | ||
111 | char *infile, *outfile, *prog; | ||
112 | char *passargin = NULL, *passargout = NULL; | ||
113 | char *passin = NULL, *passout = NULL; | ||
114 | #ifndef OPENSSL_NO_ENGINE | ||
115 | char *engine = NULL; | ||
116 | #endif | ||
117 | int modulus = 0; | ||
118 | |||
119 | int pvk_encr = 2; | ||
120 | |||
121 | infile = NULL; | ||
122 | outfile = NULL; | ||
123 | informat = FORMAT_PEM; | ||
124 | outformat = FORMAT_PEM; | ||
125 | |||
126 | prog = argv[0]; | ||
127 | argc--; | ||
128 | argv++; | ||
129 | while (argc >= 1) { | ||
130 | if (strcmp(*argv, "-inform") == 0) { | ||
131 | if (--argc < 1) | ||
132 | goto bad; | ||
133 | informat = str2fmt(*(++argv)); | ||
134 | } else if (strcmp(*argv, "-outform") == 0) { | ||
135 | if (--argc < 1) | ||
136 | goto bad; | ||
137 | outformat = str2fmt(*(++argv)); | ||
138 | } else if (strcmp(*argv, "-in") == 0) { | ||
139 | if (--argc < 1) | ||
140 | goto bad; | ||
141 | infile = *(++argv); | ||
142 | } else if (strcmp(*argv, "-out") == 0) { | ||
143 | if (--argc < 1) | ||
144 | goto bad; | ||
145 | outfile = *(++argv); | ||
146 | } else if (strcmp(*argv, "-passin") == 0) { | ||
147 | if (--argc < 1) | ||
148 | goto bad; | ||
149 | passargin = *(++argv); | ||
150 | } else if (strcmp(*argv, "-passout") == 0) { | ||
151 | if (--argc < 1) | ||
152 | goto bad; | ||
153 | passargout = *(++argv); | ||
154 | } | ||
155 | #ifndef OPENSSL_NO_ENGINE | ||
156 | else if (strcmp(*argv, "-engine") == 0) { | ||
157 | if (--argc < 1) | ||
158 | goto bad; | ||
159 | engine = *(++argv); | ||
160 | } | ||
161 | #endif | ||
162 | else if (strcmp(*argv, "-sgckey") == 0) | ||
163 | sgckey = 1; | ||
164 | else if (strcmp(*argv, "-pubin") == 0) | ||
165 | pubin = 1; | ||
166 | else if (strcmp(*argv, "-pubout") == 0) | ||
167 | pubout = 1; | ||
168 | else if (strcmp(*argv, "-RSAPublicKey_in") == 0) | ||
169 | pubin = 2; | ||
170 | else if (strcmp(*argv, "-RSAPublicKey_out") == 0) | ||
171 | pubout = 2; | ||
172 | else if (strcmp(*argv, "-pvk-strong") == 0) | ||
173 | pvk_encr = 2; | ||
174 | else if (strcmp(*argv, "-pvk-weak") == 0) | ||
175 | pvk_encr = 1; | ||
176 | else if (strcmp(*argv, "-pvk-none") == 0) | ||
177 | pvk_encr = 0; | ||
178 | else if (strcmp(*argv, "-noout") == 0) | ||
179 | noout = 1; | ||
180 | else if (strcmp(*argv, "-text") == 0) | ||
181 | text = 1; | ||
182 | else if (strcmp(*argv, "-modulus") == 0) | ||
183 | modulus = 1; | ||
184 | else if (strcmp(*argv, "-check") == 0) | ||
185 | check = 1; | ||
186 | else if ((enc = EVP_get_cipherbyname(&(argv[0][1]))) == NULL) { | ||
187 | BIO_printf(bio_err, "unknown option %s\n", *argv); | ||
188 | badops = 1; | ||
189 | break; | ||
190 | } | ||
191 | argc--; | ||
192 | argv++; | ||
193 | } | ||
194 | |||
195 | if (badops) { | ||
196 | bad: | ||
197 | BIO_printf(bio_err, "%s [options] <infile >outfile\n", prog); | ||
198 | BIO_printf(bio_err, "where options are\n"); | ||
199 | BIO_printf(bio_err, " -inform arg input format - one of DER NET PEM\n"); | ||
200 | BIO_printf(bio_err, " -outform arg output format - one of DER NET PEM\n"); | ||
201 | BIO_printf(bio_err, " -in arg input file\n"); | ||
202 | BIO_printf(bio_err, " -sgckey Use IIS SGC key format\n"); | ||
203 | BIO_printf(bio_err, " -passin arg input file pass phrase source\n"); | ||
204 | BIO_printf(bio_err, " -out arg output file\n"); | ||
205 | BIO_printf(bio_err, " -passout arg output file pass phrase source\n"); | ||
206 | BIO_printf(bio_err, " -des encrypt PEM output with cbc des\n"); | ||
207 | BIO_printf(bio_err, " -des3 encrypt PEM output with ede cbc des using 168 bit key\n"); | ||
208 | #ifndef OPENSSL_NO_IDEA | ||
209 | BIO_printf(bio_err, " -idea encrypt PEM output with cbc idea\n"); | ||
210 | #endif | ||
211 | #ifndef OPENSSL_NO_AES | ||
212 | BIO_printf(bio_err, " -aes128, -aes192, -aes256\n"); | ||
213 | BIO_printf(bio_err, " encrypt PEM output with cbc aes\n"); | ||
214 | #endif | ||
215 | #ifndef OPENSSL_NO_CAMELLIA | ||
216 | BIO_printf(bio_err, " -camellia128, -camellia192, -camellia256\n"); | ||
217 | BIO_printf(bio_err, " encrypt PEM output with cbc camellia\n"); | ||
218 | #endif | ||
219 | BIO_printf(bio_err, " -text print the key in text\n"); | ||
220 | BIO_printf(bio_err, " -noout don't print key out\n"); | ||
221 | BIO_printf(bio_err, " -modulus print the RSA key modulus\n"); | ||
222 | BIO_printf(bio_err, " -check verify key consistency\n"); | ||
223 | BIO_printf(bio_err, " -pubin expect a public key in input file\n"); | ||
224 | BIO_printf(bio_err, " -pubout output a public key\n"); | ||
225 | #ifndef OPENSSL_NO_ENGINE | ||
226 | BIO_printf(bio_err, " -engine e use engine e, possibly a hardware device.\n"); | ||
227 | #endif | ||
228 | goto end; | ||
229 | } | ||
230 | ERR_load_crypto_strings(); | ||
231 | |||
232 | #ifndef OPENSSL_NO_ENGINE | ||
233 | e = setup_engine(bio_err, engine, 0); | ||
234 | #endif | ||
235 | |||
236 | if (!app_passwd(bio_err, passargin, passargout, &passin, &passout)) { | ||
237 | BIO_printf(bio_err, "Error getting passwords\n"); | ||
238 | goto end; | ||
239 | } | ||
240 | if (check && pubin) { | ||
241 | BIO_printf(bio_err, "Only private keys can be checked\n"); | ||
242 | goto end; | ||
243 | } | ||
244 | out = BIO_new(BIO_s_file()); | ||
245 | |||
246 | { | ||
247 | EVP_PKEY *pkey; | ||
248 | |||
249 | if (pubin) { | ||
250 | int tmpformat = -1; | ||
251 | if (pubin == 2) { | ||
252 | if (informat == FORMAT_PEM) | ||
253 | tmpformat = FORMAT_PEMRSA; | ||
254 | else if (informat == FORMAT_ASN1) | ||
255 | tmpformat = FORMAT_ASN1RSA; | ||
256 | } else if (informat == FORMAT_NETSCAPE && sgckey) | ||
257 | tmpformat = FORMAT_IISSGC; | ||
258 | else | ||
259 | tmpformat = informat; | ||
260 | |||
261 | pkey = load_pubkey(bio_err, infile, tmpformat, 1, | ||
262 | passin, e, "Public Key"); | ||
263 | } else | ||
264 | pkey = load_key(bio_err, infile, | ||
265 | (informat == FORMAT_NETSCAPE && sgckey ? | ||
266 | FORMAT_IISSGC : informat), 1, | ||
267 | passin, e, "Private Key"); | ||
268 | |||
269 | if (pkey != NULL) | ||
270 | rsa = EVP_PKEY_get1_RSA(pkey); | ||
271 | EVP_PKEY_free(pkey); | ||
272 | } | ||
273 | |||
274 | if (rsa == NULL) { | ||
275 | ERR_print_errors(bio_err); | ||
276 | goto end; | ||
277 | } | ||
278 | if (outfile == NULL) { | ||
279 | BIO_set_fp(out, stdout, BIO_NOCLOSE); | ||
280 | } else { | ||
281 | if (BIO_write_filename(out, outfile) <= 0) { | ||
282 | perror(outfile); | ||
283 | goto end; | ||
284 | } | ||
285 | } | ||
286 | |||
287 | if (text) | ||
288 | if (!RSA_print(out, rsa, 0)) { | ||
289 | perror(outfile); | ||
290 | ERR_print_errors(bio_err); | ||
291 | goto end; | ||
292 | } | ||
293 | if (modulus) { | ||
294 | BIO_printf(out, "Modulus="); | ||
295 | BN_print(out, rsa->n); | ||
296 | BIO_printf(out, "\n"); | ||
297 | } | ||
298 | if (check) { | ||
299 | int r = RSA_check_key(rsa); | ||
300 | |||
301 | if (r == 1) | ||
302 | BIO_printf(out, "RSA key ok\n"); | ||
303 | else if (r == 0) { | ||
304 | unsigned long err; | ||
305 | |||
306 | while ((err = ERR_peek_error()) != 0 && | ||
307 | ERR_GET_LIB(err) == ERR_LIB_RSA && | ||
308 | ERR_GET_FUNC(err) == RSA_F_RSA_CHECK_KEY && | ||
309 | ERR_GET_REASON(err) != ERR_R_MALLOC_FAILURE) { | ||
310 | BIO_printf(out, "RSA key error: %s\n", ERR_reason_error_string(err)); | ||
311 | ERR_get_error(); /* remove e from error | ||
312 | * stack */ | ||
313 | } | ||
314 | } | ||
315 | if (r == -1 || ERR_peek_error() != 0) { /* should happen only if | ||
316 | * r == -1 */ | ||
317 | ERR_print_errors(bio_err); | ||
318 | goto end; | ||
319 | } | ||
320 | } | ||
321 | if (noout) { | ||
322 | ret = 0; | ||
323 | goto end; | ||
324 | } | ||
325 | BIO_printf(bio_err, "writing RSA key\n"); | ||
326 | if (outformat == FORMAT_ASN1) { | ||
327 | if (pubout || pubin) { | ||
328 | if (pubout == 2) | ||
329 | i = i2d_RSAPublicKey_bio(out, rsa); | ||
330 | else | ||
331 | i = i2d_RSA_PUBKEY_bio(out, rsa); | ||
332 | } else | ||
333 | i = i2d_RSAPrivateKey_bio(out, rsa); | ||
334 | } | ||
335 | #ifndef OPENSSL_NO_RC4 | ||
336 | else if (outformat == FORMAT_NETSCAPE) { | ||
337 | unsigned char *p, *pp; | ||
338 | int size; | ||
339 | |||
340 | i = 1; | ||
341 | size = i2d_RSA_NET(rsa, NULL, NULL, sgckey); | ||
342 | if ((p = malloc(size)) == NULL) { | ||
343 | BIO_printf(bio_err, "Memory allocation failure\n"); | ||
344 | goto end; | ||
345 | } | ||
346 | pp = p; | ||
347 | i2d_RSA_NET(rsa, &p, NULL, sgckey); | ||
348 | BIO_write(out, (char *) pp, size); | ||
349 | free(pp); | ||
350 | } | ||
351 | #endif | ||
352 | else if (outformat == FORMAT_PEM) { | ||
353 | if (pubout || pubin) { | ||
354 | if (pubout == 2) | ||
355 | i = PEM_write_bio_RSAPublicKey(out, rsa); | ||
356 | else | ||
357 | i = PEM_write_bio_RSA_PUBKEY(out, rsa); | ||
358 | } else | ||
359 | i = PEM_write_bio_RSAPrivateKey(out, rsa, | ||
360 | enc, NULL, 0, NULL, passout); | ||
361 | #if !defined(OPENSSL_NO_DSA) && !defined(OPENSSL_NO_RC4) | ||
362 | } else if (outformat == FORMAT_MSBLOB || outformat == FORMAT_PVK) { | ||
363 | EVP_PKEY *pk; | ||
364 | pk = EVP_PKEY_new(); | ||
365 | EVP_PKEY_set1_RSA(pk, rsa); | ||
366 | if (outformat == FORMAT_PVK) | ||
367 | i = i2b_PVK_bio(out, pk, pvk_encr, 0, passout); | ||
368 | else if (pubin || pubout) | ||
369 | i = i2b_PublicKey_bio(out, pk); | ||
370 | else | ||
371 | i = i2b_PrivateKey_bio(out, pk); | ||
372 | EVP_PKEY_free(pk); | ||
373 | #endif | ||
374 | } else { | ||
375 | BIO_printf(bio_err, "bad output format specified for outfile\n"); | ||
376 | goto end; | ||
377 | } | ||
378 | if (i <= 0) { | ||
379 | BIO_printf(bio_err, "unable to write key\n"); | ||
380 | ERR_print_errors(bio_err); | ||
381 | } else | ||
382 | ret = 0; | ||
383 | end: | ||
384 | if (out != NULL) | ||
385 | BIO_free_all(out); | ||
386 | if (rsa != NULL) | ||
387 | RSA_free(rsa); | ||
388 | free(passin); | ||
389 | free(passout); | ||
390 | |||
391 | return (ret); | ||
392 | } | ||
diff --git a/src/usr.bin/openssl/rsautl.c b/src/usr.bin/openssl/rsautl.c new file mode 100644 index 0000000000..7c83f1a82c --- /dev/null +++ b/src/usr.bin/openssl/rsautl.c | |||
@@ -0,0 +1,341 @@ | |||
1 | /* $OpenBSD: rsautl.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
2 | /* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL | ||
3 | * project 2000. | ||
4 | */ | ||
5 | /* ==================================================================== | ||
6 | * Copyright (c) 2000 The OpenSSL Project. All rights reserved. | ||
7 | * | ||
8 | * Redistribution and use in source and binary forms, with or without | ||
9 | * modification, are permitted provided that the following conditions | ||
10 | * are met: | ||
11 | * | ||
12 | * 1. Redistributions of source code must retain the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer. | ||
14 | * | ||
15 | * 2. Redistributions in binary form must reproduce the above copyright | ||
16 | * notice, this list of conditions and the following disclaimer in | ||
17 | * the documentation and/or other materials provided with the | ||
18 | * distribution. | ||
19 | * | ||
20 | * 3. All advertising materials mentioning features or use of this | ||
21 | * software must display the following acknowledgment: | ||
22 | * "This product includes software developed by the OpenSSL Project | ||
23 | * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" | ||
24 | * | ||
25 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
26 | * endorse or promote products derived from this software without | ||
27 | * prior written permission. For written permission, please contact | ||
28 | * licensing@OpenSSL.org. | ||
29 | * | ||
30 | * 5. Products derived from this software may not be called "OpenSSL" | ||
31 | * nor may "OpenSSL" appear in their names without prior written | ||
32 | * permission of the OpenSSL Project. | ||
33 | * | ||
34 | * 6. Redistributions of any form whatsoever must retain the following | ||
35 | * acknowledgment: | ||
36 | * "This product includes software developed by the OpenSSL Project | ||
37 | * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" | ||
38 | * | ||
39 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
40 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
41 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
42 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
43 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
44 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
45 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
46 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
47 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
48 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
49 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
50 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
51 | * ==================================================================== | ||
52 | * | ||
53 | * This product includes cryptographic software written by Eric Young | ||
54 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
55 | * Hudson (tjh@cryptsoft.com). | ||
56 | * | ||
57 | */ | ||
58 | |||
59 | #include <openssl/opensslconf.h> | ||
60 | |||
61 | |||
62 | #include <string.h> | ||
63 | |||
64 | #include "apps.h" | ||
65 | |||
66 | #include <openssl/err.h> | ||
67 | #include <openssl/pem.h> | ||
68 | #include <openssl/rsa.h> | ||
69 | |||
70 | #define RSA_SIGN 1 | ||
71 | #define RSA_VERIFY 2 | ||
72 | #define RSA_ENCRYPT 3 | ||
73 | #define RSA_DECRYPT 4 | ||
74 | |||
75 | #define KEY_PRIVKEY 1 | ||
76 | #define KEY_PUBKEY 2 | ||
77 | #define KEY_CERT 3 | ||
78 | |||
79 | static void usage(void); | ||
80 | |||
81 | int rsautl_main(int argc, char **); | ||
82 | |||
83 | int | ||
84 | rsautl_main(int argc, char **argv) | ||
85 | { | ||
86 | ENGINE *e = NULL; | ||
87 | BIO *in = NULL, *out = NULL; | ||
88 | char *infile = NULL, *outfile = NULL; | ||
89 | #ifndef OPENSSL_NO_ENGINE | ||
90 | char *engine = NULL; | ||
91 | #endif | ||
92 | char *keyfile = NULL; | ||
93 | char rsa_mode = RSA_VERIFY, key_type = KEY_PRIVKEY; | ||
94 | int keyform = FORMAT_PEM; | ||
95 | char need_priv = 0, badarg = 0, rev = 0; | ||
96 | char hexdump = 0, asn1parse = 0; | ||
97 | X509 *x; | ||
98 | EVP_PKEY *pkey = NULL; | ||
99 | RSA *rsa = NULL; | ||
100 | unsigned char *rsa_in = NULL, *rsa_out = NULL, pad; | ||
101 | char *passargin = NULL, *passin = NULL; | ||
102 | int rsa_inlen, rsa_outlen = 0; | ||
103 | int keysize; | ||
104 | |||
105 | int ret = 1; | ||
106 | |||
107 | argc--; | ||
108 | argv++; | ||
109 | |||
110 | ERR_load_crypto_strings(); | ||
111 | OpenSSL_add_all_algorithms(); | ||
112 | pad = RSA_PKCS1_PADDING; | ||
113 | |||
114 | while (argc >= 1) { | ||
115 | if (!strcmp(*argv, "-in")) { | ||
116 | if (--argc < 1) | ||
117 | badarg = 1; | ||
118 | else | ||
119 | infile = *(++argv); | ||
120 | } else if (!strcmp(*argv, "-out")) { | ||
121 | if (--argc < 1) | ||
122 | badarg = 1; | ||
123 | else | ||
124 | outfile = *(++argv); | ||
125 | } else if (!strcmp(*argv, "-inkey")) { | ||
126 | if (--argc < 1) | ||
127 | badarg = 1; | ||
128 | else | ||
129 | keyfile = *(++argv); | ||
130 | } else if (!strcmp(*argv, "-passin")) { | ||
131 | if (--argc < 1) | ||
132 | badarg = 1; | ||
133 | else | ||
134 | passargin = *(++argv); | ||
135 | } else if (strcmp(*argv, "-keyform") == 0) { | ||
136 | if (--argc < 1) | ||
137 | badarg = 1; | ||
138 | else | ||
139 | keyform = str2fmt(*(++argv)); | ||
140 | #ifndef OPENSSL_NO_ENGINE | ||
141 | } else if (!strcmp(*argv, "-engine")) { | ||
142 | if (--argc < 1) | ||
143 | badarg = 1; | ||
144 | else | ||
145 | engine = *(++argv); | ||
146 | #endif | ||
147 | } else if (!strcmp(*argv, "-pubin")) { | ||
148 | key_type = KEY_PUBKEY; | ||
149 | } else if (!strcmp(*argv, "-certin")) { | ||
150 | key_type = KEY_CERT; | ||
151 | } else if (!strcmp(*argv, "-asn1parse")) | ||
152 | asn1parse = 1; | ||
153 | else if (!strcmp(*argv, "-hexdump")) | ||
154 | hexdump = 1; | ||
155 | else if (!strcmp(*argv, "-raw")) | ||
156 | pad = RSA_NO_PADDING; | ||
157 | else if (!strcmp(*argv, "-oaep")) | ||
158 | pad = RSA_PKCS1_OAEP_PADDING; | ||
159 | else if (!strcmp(*argv, "-ssl")) | ||
160 | pad = RSA_SSLV23_PADDING; | ||
161 | else if (!strcmp(*argv, "-pkcs")) | ||
162 | pad = RSA_PKCS1_PADDING; | ||
163 | else if (!strcmp(*argv, "-x931")) | ||
164 | pad = RSA_X931_PADDING; | ||
165 | else if (!strcmp(*argv, "-sign")) { | ||
166 | rsa_mode = RSA_SIGN; | ||
167 | need_priv = 1; | ||
168 | } else if (!strcmp(*argv, "-verify")) | ||
169 | rsa_mode = RSA_VERIFY; | ||
170 | else if (!strcmp(*argv, "-rev")) | ||
171 | rev = 1; | ||
172 | else if (!strcmp(*argv, "-encrypt")) | ||
173 | rsa_mode = RSA_ENCRYPT; | ||
174 | else if (!strcmp(*argv, "-decrypt")) { | ||
175 | rsa_mode = RSA_DECRYPT; | ||
176 | need_priv = 1; | ||
177 | } else | ||
178 | badarg = 1; | ||
179 | if (badarg) { | ||
180 | usage(); | ||
181 | goto end; | ||
182 | } | ||
183 | argc--; | ||
184 | argv++; | ||
185 | } | ||
186 | |||
187 | if (need_priv && (key_type != KEY_PRIVKEY)) { | ||
188 | BIO_printf(bio_err, "A private key is needed for this operation\n"); | ||
189 | goto end; | ||
190 | } | ||
191 | #ifndef OPENSSL_NO_ENGINE | ||
192 | e = setup_engine(bio_err, engine, 0); | ||
193 | #endif | ||
194 | if (!app_passwd(bio_err, passargin, NULL, &passin, NULL)) { | ||
195 | BIO_printf(bio_err, "Error getting password\n"); | ||
196 | goto end; | ||
197 | } | ||
198 | |||
199 | switch (key_type) { | ||
200 | case KEY_PRIVKEY: | ||
201 | pkey = load_key(bio_err, keyfile, keyform, 0, | ||
202 | passin, e, "Private Key"); | ||
203 | break; | ||
204 | |||
205 | case KEY_PUBKEY: | ||
206 | pkey = load_pubkey(bio_err, keyfile, keyform, 0, | ||
207 | NULL, e, "Public Key"); | ||
208 | break; | ||
209 | |||
210 | case KEY_CERT: | ||
211 | x = load_cert(bio_err, keyfile, keyform, | ||
212 | NULL, e, "Certificate"); | ||
213 | if (x) { | ||
214 | pkey = X509_get_pubkey(x); | ||
215 | X509_free(x); | ||
216 | } | ||
217 | break; | ||
218 | } | ||
219 | |||
220 | if (!pkey) { | ||
221 | return 1; | ||
222 | } | ||
223 | rsa = EVP_PKEY_get1_RSA(pkey); | ||
224 | EVP_PKEY_free(pkey); | ||
225 | |||
226 | if (!rsa) { | ||
227 | BIO_printf(bio_err, "Error getting RSA key\n"); | ||
228 | ERR_print_errors(bio_err); | ||
229 | goto end; | ||
230 | } | ||
231 | if (infile) { | ||
232 | if (!(in = BIO_new_file(infile, "rb"))) { | ||
233 | BIO_printf(bio_err, "Error Reading Input File\n"); | ||
234 | ERR_print_errors(bio_err); | ||
235 | goto end; | ||
236 | } | ||
237 | } else | ||
238 | in = BIO_new_fp(stdin, BIO_NOCLOSE); | ||
239 | |||
240 | if (outfile) { | ||
241 | if (!(out = BIO_new_file(outfile, "wb"))) { | ||
242 | BIO_printf(bio_err, "Error Reading Output File\n"); | ||
243 | ERR_print_errors(bio_err); | ||
244 | goto end; | ||
245 | } | ||
246 | } else { | ||
247 | out = BIO_new_fp(stdout, BIO_NOCLOSE); | ||
248 | } | ||
249 | |||
250 | keysize = RSA_size(rsa); | ||
251 | |||
252 | rsa_in = reallocarray(NULL, keysize, 2); | ||
253 | rsa_out = malloc(keysize); | ||
254 | |||
255 | /* Read the input data */ | ||
256 | rsa_inlen = BIO_read(in, rsa_in, keysize * 2); | ||
257 | if (rsa_inlen <= 0) { | ||
258 | BIO_printf(bio_err, "Error reading input Data\n"); | ||
259 | exit(1); | ||
260 | } | ||
261 | if (rev) { | ||
262 | int i; | ||
263 | unsigned char ctmp; | ||
264 | for (i = 0; i < rsa_inlen / 2; i++) { | ||
265 | ctmp = rsa_in[i]; | ||
266 | rsa_in[i] = rsa_in[rsa_inlen - 1 - i]; | ||
267 | rsa_in[rsa_inlen - 1 - i] = ctmp; | ||
268 | } | ||
269 | } | ||
270 | switch (rsa_mode) { | ||
271 | |||
272 | case RSA_VERIFY: | ||
273 | rsa_outlen = RSA_public_decrypt(rsa_inlen, rsa_in, rsa_out, rsa, pad); | ||
274 | break; | ||
275 | |||
276 | case RSA_SIGN: | ||
277 | rsa_outlen = RSA_private_encrypt(rsa_inlen, rsa_in, rsa_out, rsa, pad); | ||
278 | break; | ||
279 | |||
280 | case RSA_ENCRYPT: | ||
281 | rsa_outlen = RSA_public_encrypt(rsa_inlen, rsa_in, rsa_out, rsa, pad); | ||
282 | break; | ||
283 | |||
284 | case RSA_DECRYPT: | ||
285 | rsa_outlen = RSA_private_decrypt(rsa_inlen, rsa_in, rsa_out, rsa, pad); | ||
286 | break; | ||
287 | |||
288 | } | ||
289 | |||
290 | if (rsa_outlen <= 0) { | ||
291 | BIO_printf(bio_err, "RSA operation error\n"); | ||
292 | ERR_print_errors(bio_err); | ||
293 | goto end; | ||
294 | } | ||
295 | ret = 0; | ||
296 | if (asn1parse) { | ||
297 | if (!ASN1_parse_dump(out, rsa_out, rsa_outlen, 1, -1)) { | ||
298 | ERR_print_errors(bio_err); | ||
299 | } | ||
300 | } else if (hexdump) | ||
301 | BIO_dump(out, (char *) rsa_out, rsa_outlen); | ||
302 | else | ||
303 | BIO_write(out, rsa_out, rsa_outlen); | ||
304 | |||
305 | end: | ||
306 | RSA_free(rsa); | ||
307 | BIO_free(in); | ||
308 | BIO_free_all(out); | ||
309 | free(rsa_in); | ||
310 | free(rsa_out); | ||
311 | free(passin); | ||
312 | |||
313 | return ret; | ||
314 | } | ||
315 | |||
316 | static void | ||
317 | usage() | ||
318 | { | ||
319 | BIO_printf(bio_err, "Usage: rsautl [options]\n"); | ||
320 | BIO_printf(bio_err, "-in file input file\n"); | ||
321 | BIO_printf(bio_err, "-out file output file\n"); | ||
322 | BIO_printf(bio_err, "-inkey file input key\n"); | ||
323 | BIO_printf(bio_err, "-keyform arg private key format - default PEM\n"); | ||
324 | BIO_printf(bio_err, "-pubin input is an RSA public\n"); | ||
325 | BIO_printf(bio_err, "-certin input is a certificate carrying an RSA public key\n"); | ||
326 | BIO_printf(bio_err, "-ssl use SSL v2 padding\n"); | ||
327 | BIO_printf(bio_err, "-raw use no padding\n"); | ||
328 | BIO_printf(bio_err, "-pkcs use PKCS#1 v1.5 padding (default)\n"); | ||
329 | BIO_printf(bio_err, "-oaep use PKCS#1 OAEP\n"); | ||
330 | BIO_printf(bio_err, "-sign sign with private key\n"); | ||
331 | BIO_printf(bio_err, "-verify verify with public key\n"); | ||
332 | BIO_printf(bio_err, "-encrypt encrypt with public key\n"); | ||
333 | BIO_printf(bio_err, "-decrypt decrypt with private key\n"); | ||
334 | BIO_printf(bio_err, "-hexdump hex dump output\n"); | ||
335 | #ifndef OPENSSL_NO_ENGINE | ||
336 | BIO_printf(bio_err, "-engine e use engine e, possibly a hardware device.\n"); | ||
337 | BIO_printf(bio_err, "-passin arg pass phrase source\n"); | ||
338 | #endif | ||
339 | |||
340 | } | ||
341 | |||
diff --git a/src/usr.bin/openssl/s_apps.h b/src/usr.bin/openssl/s_apps.h new file mode 100644 index 0000000000..dd4b733afb --- /dev/null +++ b/src/usr.bin/openssl/s_apps.h | |||
@@ -0,0 +1,147 @@ | |||
1 | /* $OpenBSD: s_apps.h,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
2 | /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) | ||
3 | * All rights reserved. | ||
4 | * | ||
5 | * This package is an SSL implementation written | ||
6 | * by Eric Young (eay@cryptsoft.com). | ||
7 | * The implementation was written so as to conform with Netscapes SSL. | ||
8 | * | ||
9 | * This library is free for commercial and non-commercial use as long as | ||
10 | * the following conditions are aheared to. The following conditions | ||
11 | * apply to all code found in this distribution, be it the RC4, RSA, | ||
12 | * lhash, DES, etc., code; not just the SSL code. The SSL documentation | ||
13 | * included with this distribution is covered by the same copyright terms | ||
14 | * except that the holder is Tim Hudson (tjh@cryptsoft.com). | ||
15 | * | ||
16 | * Copyright remains Eric Young's, and as such any Copyright notices in | ||
17 | * the code are not to be removed. | ||
18 | * If this package is used in a product, Eric Young should be given attribution | ||
19 | * as the author of the parts of the library used. | ||
20 | * This can be in the form of a textual message at program startup or | ||
21 | * in documentation (online or textual) provided with the package. | ||
22 | * | ||
23 | * Redistribution and use in source and binary forms, with or without | ||
24 | * modification, are permitted provided that the following conditions | ||
25 | * are met: | ||
26 | * 1. Redistributions of source code must retain the copyright | ||
27 | * notice, this list of conditions and the following disclaimer. | ||
28 | * 2. Redistributions in binary form must reproduce the above copyright | ||
29 | * notice, this list of conditions and the following disclaimer in the | ||
30 | * documentation and/or other materials provided with the distribution. | ||
31 | * 3. All advertising materials mentioning features or use of this software | ||
32 | * must display the following acknowledgement: | ||
33 | * "This product includes cryptographic software written by | ||
34 | * Eric Young (eay@cryptsoft.com)" | ||
35 | * The word 'cryptographic' can be left out if the rouines from the library | ||
36 | * being used are not cryptographic related :-). | ||
37 | * 4. If you include any Windows specific code (or a derivative thereof) from | ||
38 | * the apps directory (application code) you must include an acknowledgement: | ||
39 | * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" | ||
40 | * | ||
41 | * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND | ||
42 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
43 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
44 | * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE | ||
45 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
46 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
47 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
48 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
49 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
50 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
51 | * SUCH DAMAGE. | ||
52 | * | ||
53 | * The licence and distribution terms for any publically available version or | ||
54 | * derivative of this code cannot be changed. i.e. this code cannot simply be | ||
55 | * copied and put under another distribution licence | ||
56 | * [including the GNU Public Licence.] | ||
57 | */ | ||
58 | /* ==================================================================== | ||
59 | * Copyright (c) 1998-2001 The OpenSSL Project. All rights reserved. | ||
60 | * | ||
61 | * Redistribution and use in source and binary forms, with or without | ||
62 | * modification, are permitted provided that the following conditions | ||
63 | * are met: | ||
64 | * | ||
65 | * 1. Redistributions of source code must retain the above copyright | ||
66 | * notice, this list of conditions and the following disclaimer. | ||
67 | * | ||
68 | * 2. Redistributions in binary form must reproduce the above copyright | ||
69 | * notice, this list of conditions and the following disclaimer in | ||
70 | * the documentation and/or other materials provided with the | ||
71 | * distribution. | ||
72 | * | ||
73 | * 3. All advertising materials mentioning features or use of this | ||
74 | * software must display the following acknowledgment: | ||
75 | * "This product includes software developed by the OpenSSL Project | ||
76 | * for use in the OpenSSL Toolkit. (http://www.openssl.org/)" | ||
77 | * | ||
78 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
79 | * endorse or promote products derived from this software without | ||
80 | * prior written permission. For written permission, please contact | ||
81 | * openssl-core@openssl.org. | ||
82 | * | ||
83 | * 5. Products derived from this software may not be called "OpenSSL" | ||
84 | * nor may "OpenSSL" appear in their names without prior written | ||
85 | * permission of the OpenSSL Project. | ||
86 | * | ||
87 | * 6. Redistributions of any form whatsoever must retain the following | ||
88 | * acknowledgment: | ||
89 | * "This product includes software developed by the OpenSSL Project | ||
90 | * for use in the OpenSSL Toolkit (http://www.openssl.org/)" | ||
91 | * | ||
92 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
93 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
94 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
95 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
96 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
97 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
98 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
99 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
100 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
101 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
102 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
103 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
104 | * ==================================================================== | ||
105 | * | ||
106 | * This product includes cryptographic software written by Eric Young | ||
107 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
108 | * Hudson (tjh@cryptsoft.com). | ||
109 | * | ||
110 | */ | ||
111 | #include <sys/types.h> | ||
112 | #include <openssl/opensslconf.h> | ||
113 | |||
114 | #define PORT 4433 | ||
115 | #define PORT_STR "4433" | ||
116 | #define PROTOCOL "tcp" | ||
117 | |||
118 | int do_server(int port, int type, int *ret, | ||
119 | int (*cb)(char *hostname, int s, unsigned char *context), | ||
120 | unsigned char *context); | ||
121 | #ifdef HEADER_X509_H | ||
122 | int verify_callback(int ok, X509_STORE_CTX *ctx); | ||
123 | #endif | ||
124 | #ifdef HEADER_SSL_H | ||
125 | int set_cert_stuff(SSL_CTX *ctx, char *cert_file, char *key_file); | ||
126 | int set_cert_key_stuff(SSL_CTX *ctx, X509 *cert, EVP_PKEY *key); | ||
127 | #endif | ||
128 | int init_client(int *sock, char *server, char *port, int type, int af); | ||
129 | int should_retry(int i); | ||
130 | int extract_port(char *str, short *port_ptr); | ||
131 | int extract_host_port(char *str, char **host_ptr, unsigned char *ip, char **p); | ||
132 | |||
133 | long bio_dump_callback(BIO *bio, int cmd, const char *argp, int argi, | ||
134 | long argl, long ret); | ||
135 | |||
136 | #ifdef HEADER_SSL_H | ||
137 | void apps_ssl_info_callback(const SSL *s, int where, int ret); | ||
138 | void msg_cb(int write_p, int version, int content_type, const void *buf, | ||
139 | size_t len, SSL *ssl, void *arg); | ||
140 | void tlsext_cb(SSL *s, int client_server, int type, unsigned char *data, | ||
141 | int len, void *arg); | ||
142 | #endif | ||
143 | |||
144 | int generate_cookie_callback(SSL *ssl, unsigned char *cookie, | ||
145 | unsigned int *cookie_len); | ||
146 | int verify_cookie_callback(SSL *ssl, unsigned char *cookie, | ||
147 | unsigned int cookie_len); | ||
diff --git a/src/usr.bin/openssl/s_cb.c b/src/usr.bin/openssl/s_cb.c new file mode 100644 index 0000000000..2e00abe7f1 --- /dev/null +++ b/src/usr.bin/openssl/s_cb.c | |||
@@ -0,0 +1,854 @@ | |||
1 | /* $OpenBSD: s_cb.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
2 | /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) | ||
3 | * All rights reserved. | ||
4 | * | ||
5 | * This package is an SSL implementation written | ||
6 | * by Eric Young (eay@cryptsoft.com). | ||
7 | * The implementation was written so as to conform with Netscapes SSL. | ||
8 | * | ||
9 | * This library is free for commercial and non-commercial use as long as | ||
10 | * the following conditions are aheared to. The following conditions | ||
11 | * apply to all code found in this distribution, be it the RC4, RSA, | ||
12 | * lhash, DES, etc., code; not just the SSL code. The SSL documentation | ||
13 | * included with this distribution is covered by the same copyright terms | ||
14 | * except that the holder is Tim Hudson (tjh@cryptsoft.com). | ||
15 | * | ||
16 | * Copyright remains Eric Young's, and as such any Copyright notices in | ||
17 | * the code are not to be removed. | ||
18 | * If this package is used in a product, Eric Young should be given attribution | ||
19 | * as the author of the parts of the library used. | ||
20 | * This can be in the form of a textual message at program startup or | ||
21 | * in documentation (online or textual) provided with the package. | ||
22 | * | ||
23 | * Redistribution and use in source and binary forms, with or without | ||
24 | * modification, are permitted provided that the following conditions | ||
25 | * are met: | ||
26 | * 1. Redistributions of source code must retain the copyright | ||
27 | * notice, this list of conditions and the following disclaimer. | ||
28 | * 2. Redistributions in binary form must reproduce the above copyright | ||
29 | * notice, this list of conditions and the following disclaimer in the | ||
30 | * documentation and/or other materials provided with the distribution. | ||
31 | * 3. All advertising materials mentioning features or use of this software | ||
32 | * must display the following acknowledgement: | ||
33 | * "This product includes cryptographic software written by | ||
34 | * Eric Young (eay@cryptsoft.com)" | ||
35 | * The word 'cryptographic' can be left out if the rouines from the library | ||
36 | * being used are not cryptographic related :-). | ||
37 | * 4. If you include any Windows specific code (or a derivative thereof) from | ||
38 | * the apps directory (application code) you must include an acknowledgement: | ||
39 | * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" | ||
40 | * | ||
41 | * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND | ||
42 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
43 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
44 | * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE | ||
45 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
46 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
47 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
48 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
49 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
50 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
51 | * SUCH DAMAGE. | ||
52 | * | ||
53 | * The licence and distribution terms for any publically available version or | ||
54 | * derivative of this code cannot be changed. i.e. this code cannot simply be | ||
55 | * copied and put under another distribution licence | ||
56 | * [including the GNU Public Licence.] | ||
57 | */ | ||
58 | /* ==================================================================== | ||
59 | * Copyright (c) 1998-2006 The OpenSSL Project. All rights reserved. | ||
60 | * | ||
61 | * Redistribution and use in source and binary forms, with or without | ||
62 | * modification, are permitted provided that the following conditions | ||
63 | * are met: | ||
64 | * | ||
65 | * 1. Redistributions of source code must retain the above copyright | ||
66 | * notice, this list of conditions and the following disclaimer. | ||
67 | * | ||
68 | * 2. Redistributions in binary form must reproduce the above copyright | ||
69 | * notice, this list of conditions and the following disclaimer in | ||
70 | * the documentation and/or other materials provided with the | ||
71 | * distribution. | ||
72 | * | ||
73 | * 3. All advertising materials mentioning features or use of this | ||
74 | * software must display the following acknowledgment: | ||
75 | * "This product includes software developed by the OpenSSL Project | ||
76 | * for use in the OpenSSL Toolkit. (http://www.openssl.org/)" | ||
77 | * | ||
78 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
79 | * endorse or promote products derived from this software without | ||
80 | * prior written permission. For written permission, please contact | ||
81 | * openssl-core@openssl.org. | ||
82 | * | ||
83 | * 5. Products derived from this software may not be called "OpenSSL" | ||
84 | * nor may "OpenSSL" appear in their names without prior written | ||
85 | * permission of the OpenSSL Project. | ||
86 | * | ||
87 | * 6. Redistributions of any form whatsoever must retain the following | ||
88 | * acknowledgment: | ||
89 | * "This product includes software developed by the OpenSSL Project | ||
90 | * for use in the OpenSSL Toolkit (http://www.openssl.org/)" | ||
91 | * | ||
92 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
93 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
94 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
95 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
96 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
97 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
98 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
99 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
100 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
101 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
102 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
103 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
104 | * ==================================================================== | ||
105 | * | ||
106 | * This product includes cryptographic software written by Eric Young | ||
107 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
108 | * Hudson (tjh@cryptsoft.com). | ||
109 | * | ||
110 | */ | ||
111 | |||
112 | #include <sys/socket.h> | ||
113 | |||
114 | #include <netinet/in.h> | ||
115 | |||
116 | #include <netdb.h> | ||
117 | #include <stdio.h> | ||
118 | #include <stdlib.h> | ||
119 | #include <string.h> | ||
120 | |||
121 | #include "apps.h" | ||
122 | |||
123 | #include <openssl/err.h> | ||
124 | #include <openssl/rand.h> | ||
125 | #include <openssl/ssl.h> | ||
126 | #include <openssl/x509.h> | ||
127 | |||
128 | #include "s_apps.h" | ||
129 | |||
130 | #define COOKIE_SECRET_LENGTH 16 | ||
131 | |||
132 | int verify_depth = 0; | ||
133 | int verify_error = X509_V_OK; | ||
134 | int verify_return_error = 0; | ||
135 | unsigned char cookie_secret[COOKIE_SECRET_LENGTH]; | ||
136 | int cookie_initialized = 0; | ||
137 | |||
138 | int | ||
139 | verify_callback(int ok, X509_STORE_CTX * ctx) | ||
140 | { | ||
141 | X509 *err_cert; | ||
142 | int err, depth; | ||
143 | |||
144 | err_cert = X509_STORE_CTX_get_current_cert(ctx); | ||
145 | err = X509_STORE_CTX_get_error(ctx); | ||
146 | depth = X509_STORE_CTX_get_error_depth(ctx); | ||
147 | |||
148 | BIO_printf(bio_err, "depth=%d ", depth); | ||
149 | if (err_cert) { | ||
150 | X509_NAME_print_ex(bio_err, X509_get_subject_name(err_cert), | ||
151 | 0, XN_FLAG_ONELINE); | ||
152 | BIO_puts(bio_err, "\n"); | ||
153 | } else | ||
154 | BIO_puts(bio_err, "<no cert>\n"); | ||
155 | if (!ok) { | ||
156 | BIO_printf(bio_err, "verify error:num=%d:%s\n", err, | ||
157 | X509_verify_cert_error_string(err)); | ||
158 | if (verify_depth >= depth) { | ||
159 | if (!verify_return_error) | ||
160 | ok = 1; | ||
161 | verify_error = X509_V_OK; | ||
162 | } else { | ||
163 | ok = 0; | ||
164 | verify_error = X509_V_ERR_CERT_CHAIN_TOO_LONG; | ||
165 | } | ||
166 | } | ||
167 | switch (err) { | ||
168 | case X509_V_ERR_UNABLE_TO_GET_ISSUER_CERT: | ||
169 | BIO_puts(bio_err, "issuer= "); | ||
170 | X509_NAME_print_ex(bio_err, X509_get_issuer_name(err_cert), | ||
171 | 0, XN_FLAG_ONELINE); | ||
172 | BIO_puts(bio_err, "\n"); | ||
173 | break; | ||
174 | case X509_V_ERR_CERT_NOT_YET_VALID: | ||
175 | case X509_V_ERR_ERROR_IN_CERT_NOT_BEFORE_FIELD: | ||
176 | BIO_printf(bio_err, "notBefore="); | ||
177 | ASN1_TIME_print(bio_err, X509_get_notBefore(err_cert)); | ||
178 | BIO_printf(bio_err, "\n"); | ||
179 | break; | ||
180 | case X509_V_ERR_CERT_HAS_EXPIRED: | ||
181 | case X509_V_ERR_ERROR_IN_CERT_NOT_AFTER_FIELD: | ||
182 | BIO_printf(bio_err, "notAfter="); | ||
183 | ASN1_TIME_print(bio_err, X509_get_notAfter(err_cert)); | ||
184 | BIO_printf(bio_err, "\n"); | ||
185 | break; | ||
186 | case X509_V_ERR_NO_EXPLICIT_POLICY: | ||
187 | policies_print(bio_err, ctx); | ||
188 | break; | ||
189 | } | ||
190 | if (err == X509_V_OK && ok == 2) | ||
191 | policies_print(bio_err, ctx); | ||
192 | |||
193 | BIO_printf(bio_err, "verify return:%d\n", ok); | ||
194 | return (ok); | ||
195 | } | ||
196 | |||
197 | int | ||
198 | set_cert_stuff(SSL_CTX * ctx, char *cert_file, char *key_file) | ||
199 | { | ||
200 | if (cert_file != NULL) { | ||
201 | /* | ||
202 | SSL *ssl; | ||
203 | X509 *x509; | ||
204 | */ | ||
205 | |||
206 | if (SSL_CTX_use_certificate_file(ctx, cert_file, | ||
207 | SSL_FILETYPE_PEM) <= 0) { | ||
208 | BIO_printf(bio_err, | ||
209 | "unable to get certificate from '%s'\n", cert_file); | ||
210 | ERR_print_errors(bio_err); | ||
211 | return (0); | ||
212 | } | ||
213 | if (key_file == NULL) | ||
214 | key_file = cert_file; | ||
215 | if (SSL_CTX_use_PrivateKey_file(ctx, key_file, | ||
216 | SSL_FILETYPE_PEM) <= 0) { | ||
217 | BIO_printf(bio_err, | ||
218 | "unable to get private key from '%s'\n", key_file); | ||
219 | ERR_print_errors(bio_err); | ||
220 | return (0); | ||
221 | } | ||
222 | /* | ||
223 | In theory this is no longer needed | ||
224 | ssl=SSL_new(ctx); | ||
225 | x509=SSL_get_certificate(ssl); | ||
226 | |||
227 | if (x509 != NULL) { | ||
228 | EVP_PKEY *pktmp; | ||
229 | pktmp = X509_get_pubkey(x509); | ||
230 | EVP_PKEY_copy_parameters(pktmp, | ||
231 | SSL_get_privatekey(ssl)); | ||
232 | EVP_PKEY_free(pktmp); | ||
233 | } | ||
234 | SSL_free(ssl); | ||
235 | */ | ||
236 | |||
237 | /* | ||
238 | * If we are using DSA, we can copy the parameters from the | ||
239 | * private key | ||
240 | */ | ||
241 | |||
242 | |||
243 | /* | ||
244 | * Now we know that a key and cert have been set against the | ||
245 | * SSL context | ||
246 | */ | ||
247 | if (!SSL_CTX_check_private_key(ctx)) { | ||
248 | BIO_printf(bio_err, | ||
249 | "Private key does not match the certificate public key\n"); | ||
250 | return (0); | ||
251 | } | ||
252 | } | ||
253 | return (1); | ||
254 | } | ||
255 | |||
256 | int | ||
257 | set_cert_key_stuff(SSL_CTX * ctx, X509 * cert, EVP_PKEY * key) | ||
258 | { | ||
259 | if (cert == NULL) | ||
260 | return 1; | ||
261 | if (SSL_CTX_use_certificate(ctx, cert) <= 0) { | ||
262 | BIO_printf(bio_err, "error setting certificate\n"); | ||
263 | ERR_print_errors(bio_err); | ||
264 | return 0; | ||
265 | } | ||
266 | if (SSL_CTX_use_PrivateKey(ctx, key) <= 0) { | ||
267 | BIO_printf(bio_err, "error setting private key\n"); | ||
268 | ERR_print_errors(bio_err); | ||
269 | return 0; | ||
270 | } | ||
271 | /* | ||
272 | * Now we know that a key and cert have been set against the SSL | ||
273 | * context | ||
274 | */ | ||
275 | if (!SSL_CTX_check_private_key(ctx)) { | ||
276 | BIO_printf(bio_err, | ||
277 | "Private key does not match the certificate public key\n"); | ||
278 | return 0; | ||
279 | } | ||
280 | return 1; | ||
281 | } | ||
282 | |||
283 | long | ||
284 | bio_dump_callback(BIO * bio, int cmd, const char *argp, | ||
285 | int argi, long argl, long ret) | ||
286 | { | ||
287 | BIO *out; | ||
288 | |||
289 | out = (BIO *) BIO_get_callback_arg(bio); | ||
290 | if (out == NULL) | ||
291 | return (ret); | ||
292 | |||
293 | if (cmd == (BIO_CB_READ | BIO_CB_RETURN)) { | ||
294 | BIO_printf(out, | ||
295 | "read from %p [%p] (%lu bytes => %ld (0x%lX))\n", | ||
296 | (void *) bio, argp, (unsigned long) argi, ret, ret); | ||
297 | BIO_dump(out, argp, (int) ret); | ||
298 | return (ret); | ||
299 | } else if (cmd == (BIO_CB_WRITE | BIO_CB_RETURN)) { | ||
300 | BIO_printf(out, | ||
301 | "write to %p [%p] (%lu bytes => %ld (0x%lX))\n", | ||
302 | (void *) bio, argp, (unsigned long) argi, ret, ret); | ||
303 | BIO_dump(out, argp, (int) ret); | ||
304 | } | ||
305 | return (ret); | ||
306 | } | ||
307 | |||
308 | void | ||
309 | apps_ssl_info_callback(const SSL * s, int where, int ret) | ||
310 | { | ||
311 | const char *str; | ||
312 | int w; | ||
313 | |||
314 | w = where & ~SSL_ST_MASK; | ||
315 | |||
316 | if (w & SSL_ST_CONNECT) | ||
317 | str = "SSL_connect"; | ||
318 | else if (w & SSL_ST_ACCEPT) | ||
319 | str = "SSL_accept"; | ||
320 | else | ||
321 | str = "undefined"; | ||
322 | |||
323 | if (where & SSL_CB_LOOP) { | ||
324 | BIO_printf(bio_err, "%s:%s\n", str, SSL_state_string_long(s)); | ||
325 | } else if (where & SSL_CB_ALERT) { | ||
326 | str = (where & SSL_CB_READ) ? "read" : "write"; | ||
327 | BIO_printf(bio_err, "SSL3 alert %s:%s:%s\n", str, | ||
328 | SSL_alert_type_string_long(ret), | ||
329 | SSL_alert_desc_string_long(ret)); | ||
330 | } else if (where & SSL_CB_EXIT) { | ||
331 | if (ret == 0) | ||
332 | BIO_printf(bio_err, "%s:failed in %s\n", | ||
333 | str, SSL_state_string_long(s)); | ||
334 | else if (ret < 0) { | ||
335 | BIO_printf(bio_err, "%s:error in %s\n", | ||
336 | str, SSL_state_string_long(s)); | ||
337 | } | ||
338 | } | ||
339 | } | ||
340 | |||
341 | |||
342 | void | ||
343 | msg_cb(int write_p, int version, int content_type, const void *buf, size_t len, SSL * ssl, void *arg) | ||
344 | { | ||
345 | BIO *bio = arg; | ||
346 | const char *str_write_p, *str_version, *str_content_type = "", | ||
347 | *str_details1 = "", *str_details2 = ""; | ||
348 | |||
349 | str_write_p = write_p ? ">>>" : "<<<"; | ||
350 | |||
351 | switch (version) { | ||
352 | case SSL2_VERSION: | ||
353 | str_version = "SSL 2.0"; | ||
354 | break; | ||
355 | case SSL3_VERSION: | ||
356 | str_version = "SSL 3.0 "; | ||
357 | break; | ||
358 | case TLS1_VERSION: | ||
359 | str_version = "TLS 1.0 "; | ||
360 | break; | ||
361 | case TLS1_1_VERSION: | ||
362 | str_version = "TLS 1.1 "; | ||
363 | break; | ||
364 | case TLS1_2_VERSION: | ||
365 | str_version = "TLS 1.2 "; | ||
366 | break; | ||
367 | case DTLS1_VERSION: | ||
368 | str_version = "DTLS 1.0 "; | ||
369 | break; | ||
370 | case DTLS1_BAD_VER: | ||
371 | str_version = "DTLS 1.0 (bad) "; | ||
372 | break; | ||
373 | default: | ||
374 | str_version = "???"; | ||
375 | } | ||
376 | |||
377 | if (version == SSL2_VERSION) { | ||
378 | str_details1 = "???"; | ||
379 | |||
380 | if (len > 0) { | ||
381 | switch (((const unsigned char *) buf)[0]) { | ||
382 | case 0: | ||
383 | str_details1 = ", ERROR:"; | ||
384 | str_details2 = " ???"; | ||
385 | if (len >= 3) { | ||
386 | unsigned err = (((const unsigned char *) buf)[1] << 8) + ((const unsigned char *) buf)[2]; | ||
387 | |||
388 | switch (err) { | ||
389 | case 0x0001: | ||
390 | str_details2 = " NO-CIPHER-ERROR"; | ||
391 | break; | ||
392 | case 0x0002: | ||
393 | str_details2 = " NO-CERTIFICATE-ERROR"; | ||
394 | break; | ||
395 | case 0x0004: | ||
396 | str_details2 = " BAD-CERTIFICATE-ERROR"; | ||
397 | break; | ||
398 | case 0x0006: | ||
399 | str_details2 = " UNSUPPORTED-CERTIFICATE-TYPE-ERROR"; | ||
400 | break; | ||
401 | } | ||
402 | } | ||
403 | break; | ||
404 | case 1: | ||
405 | str_details1 = ", CLIENT-HELLO"; | ||
406 | break; | ||
407 | case 2: | ||
408 | str_details1 = ", CLIENT-MASTER-KEY"; | ||
409 | break; | ||
410 | case 3: | ||
411 | str_details1 = ", CLIENT-FINISHED"; | ||
412 | break; | ||
413 | case 4: | ||
414 | str_details1 = ", SERVER-HELLO"; | ||
415 | break; | ||
416 | case 5: | ||
417 | str_details1 = ", SERVER-VERIFY"; | ||
418 | break; | ||
419 | case 6: | ||
420 | str_details1 = ", SERVER-FINISHED"; | ||
421 | break; | ||
422 | case 7: | ||
423 | str_details1 = ", REQUEST-CERTIFICATE"; | ||
424 | break; | ||
425 | case 8: | ||
426 | str_details1 = ", CLIENT-CERTIFICATE"; | ||
427 | break; | ||
428 | } | ||
429 | } | ||
430 | } | ||
431 | if (version == SSL3_VERSION || version == TLS1_VERSION || | ||
432 | version == TLS1_1_VERSION || version == TLS1_2_VERSION || | ||
433 | version == DTLS1_VERSION || version == DTLS1_BAD_VER) { | ||
434 | switch (content_type) { | ||
435 | case 20: | ||
436 | str_content_type = "ChangeCipherSpec"; | ||
437 | break; | ||
438 | case 21: | ||
439 | str_content_type = "Alert"; | ||
440 | break; | ||
441 | case 22: | ||
442 | str_content_type = "Handshake"; | ||
443 | break; | ||
444 | } | ||
445 | |||
446 | if (content_type == 21) { /* Alert */ | ||
447 | str_details1 = ", ???"; | ||
448 | |||
449 | if (len == 2) { | ||
450 | switch (((const unsigned char *) buf)[0]) { | ||
451 | case 1: | ||
452 | str_details1 = ", warning"; | ||
453 | break; | ||
454 | case 2: | ||
455 | str_details1 = ", fatal"; | ||
456 | break; | ||
457 | } | ||
458 | |||
459 | str_details2 = " ???"; | ||
460 | switch (((const unsigned char *) buf)[1]) { | ||
461 | case 0: | ||
462 | str_details2 = " close_notify"; | ||
463 | break; | ||
464 | case 10: | ||
465 | str_details2 = " unexpected_message"; | ||
466 | break; | ||
467 | case 20: | ||
468 | str_details2 = " bad_record_mac"; | ||
469 | break; | ||
470 | case 21: | ||
471 | str_details2 = " decryption_failed"; | ||
472 | break; | ||
473 | case 22: | ||
474 | str_details2 = " record_overflow"; | ||
475 | break; | ||
476 | case 30: | ||
477 | str_details2 = " decompression_failure"; | ||
478 | break; | ||
479 | case 40: | ||
480 | str_details2 = " handshake_failure"; | ||
481 | break; | ||
482 | case 42: | ||
483 | str_details2 = " bad_certificate"; | ||
484 | break; | ||
485 | case 43: | ||
486 | str_details2 = " unsupported_certificate"; | ||
487 | break; | ||
488 | case 44: | ||
489 | str_details2 = " certificate_revoked"; | ||
490 | break; | ||
491 | case 45: | ||
492 | str_details2 = " certificate_expired"; | ||
493 | break; | ||
494 | case 46: | ||
495 | str_details2 = " certificate_unknown"; | ||
496 | break; | ||
497 | case 47: | ||
498 | str_details2 = " illegal_parameter"; | ||
499 | break; | ||
500 | case 48: | ||
501 | str_details2 = " unknown_ca"; | ||
502 | break; | ||
503 | case 49: | ||
504 | str_details2 = " access_denied"; | ||
505 | break; | ||
506 | case 50: | ||
507 | str_details2 = " decode_error"; | ||
508 | break; | ||
509 | case 51: | ||
510 | str_details2 = " decrypt_error"; | ||
511 | break; | ||
512 | case 60: | ||
513 | str_details2 = " export_restriction"; | ||
514 | break; | ||
515 | case 70: | ||
516 | str_details2 = " protocol_version"; | ||
517 | break; | ||
518 | case 71: | ||
519 | str_details2 = " insufficient_security"; | ||
520 | break; | ||
521 | case 80: | ||
522 | str_details2 = " internal_error"; | ||
523 | break; | ||
524 | case 90: | ||
525 | str_details2 = " user_canceled"; | ||
526 | break; | ||
527 | case 100: | ||
528 | str_details2 = " no_renegotiation"; | ||
529 | break; | ||
530 | case 110: | ||
531 | str_details2 = " unsupported_extension"; | ||
532 | break; | ||
533 | case 111: | ||
534 | str_details2 = " certificate_unobtainable"; | ||
535 | break; | ||
536 | case 112: | ||
537 | str_details2 = " unrecognized_name"; | ||
538 | break; | ||
539 | case 113: | ||
540 | str_details2 = " bad_certificate_status_response"; | ||
541 | break; | ||
542 | case 114: | ||
543 | str_details2 = " bad_certificate_hash_value"; | ||
544 | break; | ||
545 | case 115: | ||
546 | str_details2 = " unknown_psk_identity"; | ||
547 | break; | ||
548 | } | ||
549 | } | ||
550 | } | ||
551 | if (content_type == 22) { /* Handshake */ | ||
552 | str_details1 = "???"; | ||
553 | |||
554 | if (len > 0) { | ||
555 | switch (((const unsigned char *) buf)[0]) { | ||
556 | case 0: | ||
557 | str_details1 = ", HelloRequest"; | ||
558 | break; | ||
559 | case 1: | ||
560 | str_details1 = ", ClientHello"; | ||
561 | break; | ||
562 | case 2: | ||
563 | str_details1 = ", ServerHello"; | ||
564 | break; | ||
565 | case 3: | ||
566 | str_details1 = ", HelloVerifyRequest"; | ||
567 | break; | ||
568 | case 11: | ||
569 | str_details1 = ", Certificate"; | ||
570 | break; | ||
571 | case 12: | ||
572 | str_details1 = ", ServerKeyExchange"; | ||
573 | break; | ||
574 | case 13: | ||
575 | str_details1 = ", CertificateRequest"; | ||
576 | break; | ||
577 | case 14: | ||
578 | str_details1 = ", ServerHelloDone"; | ||
579 | break; | ||
580 | case 15: | ||
581 | str_details1 = ", CertificateVerify"; | ||
582 | break; | ||
583 | case 16: | ||
584 | str_details1 = ", ClientKeyExchange"; | ||
585 | break; | ||
586 | case 20: | ||
587 | str_details1 = ", Finished"; | ||
588 | break; | ||
589 | } | ||
590 | } | ||
591 | } | ||
592 | } | ||
593 | BIO_printf(bio, "%s %s%s [length %04lx]%s%s\n", str_write_p, | ||
594 | str_version, str_content_type, (unsigned long) len, | ||
595 | str_details1, str_details2); | ||
596 | |||
597 | if (len > 0) { | ||
598 | size_t num, i; | ||
599 | |||
600 | BIO_printf(bio, " "); | ||
601 | num = len; | ||
602 | #if 0 | ||
603 | if (num > 16) | ||
604 | num = 16; | ||
605 | #endif | ||
606 | for (i = 0; i < num; i++) { | ||
607 | if (i % 16 == 0 && i > 0) | ||
608 | BIO_printf(bio, "\n "); | ||
609 | BIO_printf(bio, " %02x", | ||
610 | ((const unsigned char *) buf)[i]); | ||
611 | } | ||
612 | if (i < len) | ||
613 | BIO_printf(bio, " ..."); | ||
614 | BIO_printf(bio, "\n"); | ||
615 | } | ||
616 | (void) BIO_flush(bio); | ||
617 | } | ||
618 | |||
619 | void | ||
620 | tlsext_cb(SSL * s, int client_server, int type, unsigned char *data, int len, | ||
621 | void *arg) | ||
622 | { | ||
623 | BIO *bio = arg; | ||
624 | char *extname; | ||
625 | |||
626 | switch (type) { | ||
627 | case TLSEXT_TYPE_server_name: | ||
628 | extname = "server name"; | ||
629 | break; | ||
630 | |||
631 | case TLSEXT_TYPE_max_fragment_length: | ||
632 | extname = "max fragment length"; | ||
633 | break; | ||
634 | |||
635 | case TLSEXT_TYPE_client_certificate_url: | ||
636 | extname = "client certificate URL"; | ||
637 | break; | ||
638 | |||
639 | case TLSEXT_TYPE_trusted_ca_keys: | ||
640 | extname = "trusted CA keys"; | ||
641 | break; | ||
642 | |||
643 | case TLSEXT_TYPE_truncated_hmac: | ||
644 | extname = "truncated HMAC"; | ||
645 | break; | ||
646 | |||
647 | case TLSEXT_TYPE_status_request: | ||
648 | extname = "status request"; | ||
649 | break; | ||
650 | |||
651 | case TLSEXT_TYPE_user_mapping: | ||
652 | extname = "user mapping"; | ||
653 | break; | ||
654 | |||
655 | case TLSEXT_TYPE_client_authz: | ||
656 | extname = "client authz"; | ||
657 | break; | ||
658 | |||
659 | case TLSEXT_TYPE_server_authz: | ||
660 | extname = "server authz"; | ||
661 | break; | ||
662 | |||
663 | case TLSEXT_TYPE_cert_type: | ||
664 | extname = "cert type"; | ||
665 | break; | ||
666 | |||
667 | case TLSEXT_TYPE_elliptic_curves: | ||
668 | extname = "elliptic curves"; | ||
669 | break; | ||
670 | |||
671 | case TLSEXT_TYPE_ec_point_formats: | ||
672 | extname = "EC point formats"; | ||
673 | break; | ||
674 | |||
675 | case TLSEXT_TYPE_srp: | ||
676 | extname = "SRP"; | ||
677 | break; | ||
678 | |||
679 | case TLSEXT_TYPE_signature_algorithms: | ||
680 | extname = "signature algorithms"; | ||
681 | break; | ||
682 | |||
683 | case TLSEXT_TYPE_use_srtp: | ||
684 | extname = "use SRTP"; | ||
685 | break; | ||
686 | |||
687 | case TLSEXT_TYPE_heartbeat: | ||
688 | extname = "heartbeat"; | ||
689 | break; | ||
690 | |||
691 | case TLSEXT_TYPE_session_ticket: | ||
692 | extname = "session ticket"; | ||
693 | break; | ||
694 | |||
695 | case TLSEXT_TYPE_renegotiate: | ||
696 | extname = "renegotiation info"; | ||
697 | break; | ||
698 | |||
699 | #ifdef TLSEXT_TYPE_next_proto_neg | ||
700 | case TLSEXT_TYPE_next_proto_neg: | ||
701 | extname = "next protocol"; | ||
702 | break; | ||
703 | #endif | ||
704 | |||
705 | default: | ||
706 | extname = "unknown"; | ||
707 | break; | ||
708 | |||
709 | } | ||
710 | |||
711 | BIO_printf(bio, "TLS %s extension \"%s\" (id=%d), len=%d\n", | ||
712 | client_server ? "server" : "client", extname, type, len); | ||
713 | BIO_dump(bio, (char *) data, len); | ||
714 | (void) BIO_flush(bio); | ||
715 | } | ||
716 | |||
717 | int | ||
718 | generate_cookie_callback(SSL * ssl, unsigned char *cookie, | ||
719 | unsigned int *cookie_len) | ||
720 | { | ||
721 | unsigned char *buffer, result[EVP_MAX_MD_SIZE]; | ||
722 | unsigned int length, resultlength; | ||
723 | union { | ||
724 | struct sockaddr sa; | ||
725 | struct sockaddr_in s4; | ||
726 | struct sockaddr_in6 s6; | ||
727 | } peer; | ||
728 | |||
729 | /* Initialize a random secret */ | ||
730 | if (!cookie_initialized) { | ||
731 | if (!RAND_bytes(cookie_secret, COOKIE_SECRET_LENGTH)) { | ||
732 | BIO_printf(bio_err, | ||
733 | "error setting random cookie secret\n"); | ||
734 | return 0; | ||
735 | } | ||
736 | cookie_initialized = 1; | ||
737 | } | ||
738 | /* Read peer information */ | ||
739 | (void) BIO_dgram_get_peer(SSL_get_rbio(ssl), &peer); | ||
740 | |||
741 | /* Create buffer with peer's address and port */ | ||
742 | length = 0; | ||
743 | switch (peer.sa.sa_family) { | ||
744 | case AF_INET: | ||
745 | length += sizeof(struct in_addr); | ||
746 | length += sizeof(peer.s4.sin_port); | ||
747 | break; | ||
748 | case AF_INET6: | ||
749 | length += sizeof(struct in6_addr); | ||
750 | length += sizeof(peer.s6.sin6_port); | ||
751 | break; | ||
752 | default: | ||
753 | OPENSSL_assert(0); | ||
754 | break; | ||
755 | } | ||
756 | buffer = malloc(length); | ||
757 | |||
758 | if (buffer == NULL) { | ||
759 | BIO_printf(bio_err, "out of memory\n"); | ||
760 | return 0; | ||
761 | } | ||
762 | switch (peer.sa.sa_family) { | ||
763 | case AF_INET: | ||
764 | memcpy(buffer, &peer.s4.sin_port, sizeof(peer.s4.sin_port)); | ||
765 | memcpy(buffer + sizeof(peer.s4.sin_port), | ||
766 | &peer.s4.sin_addr, sizeof(struct in_addr)); | ||
767 | break; | ||
768 | case AF_INET6: | ||
769 | memcpy(buffer, &peer.s6.sin6_port, sizeof(peer.s6.sin6_port)); | ||
770 | memcpy(buffer + sizeof(peer.s6.sin6_port), | ||
771 | &peer.s6.sin6_addr, sizeof(struct in6_addr)); | ||
772 | break; | ||
773 | default: | ||
774 | OPENSSL_assert(0); | ||
775 | break; | ||
776 | } | ||
777 | |||
778 | /* Calculate HMAC of buffer using the secret */ | ||
779 | HMAC(EVP_sha1(), cookie_secret, COOKIE_SECRET_LENGTH, | ||
780 | buffer, length, result, &resultlength); | ||
781 | free(buffer); | ||
782 | |||
783 | memcpy(cookie, result, resultlength); | ||
784 | *cookie_len = resultlength; | ||
785 | |||
786 | return 1; | ||
787 | } | ||
788 | |||
789 | int | ||
790 | verify_cookie_callback(SSL * ssl, unsigned char *cookie, unsigned int cookie_len) | ||
791 | { | ||
792 | unsigned char *buffer, result[EVP_MAX_MD_SIZE]; | ||
793 | unsigned int length, resultlength; | ||
794 | union { | ||
795 | struct sockaddr sa; | ||
796 | struct sockaddr_in s4; | ||
797 | struct sockaddr_in6 s6; | ||
798 | } peer; | ||
799 | |||
800 | /* If secret isn't initialized yet, the cookie can't be valid */ | ||
801 | if (!cookie_initialized) | ||
802 | return 0; | ||
803 | |||
804 | /* Read peer information */ | ||
805 | (void) BIO_dgram_get_peer(SSL_get_rbio(ssl), &peer); | ||
806 | |||
807 | /* Create buffer with peer's address and port */ | ||
808 | length = 0; | ||
809 | switch (peer.sa.sa_family) { | ||
810 | case AF_INET: | ||
811 | length += sizeof(struct in_addr); | ||
812 | length += sizeof(peer.s4.sin_port); | ||
813 | break; | ||
814 | case AF_INET6: | ||
815 | length += sizeof(struct in6_addr); | ||
816 | length += sizeof(peer.s6.sin6_port); | ||
817 | break; | ||
818 | default: | ||
819 | OPENSSL_assert(0); | ||
820 | break; | ||
821 | } | ||
822 | buffer = malloc(length); | ||
823 | |||
824 | if (buffer == NULL) { | ||
825 | BIO_printf(bio_err, "out of memory\n"); | ||
826 | return 0; | ||
827 | } | ||
828 | switch (peer.sa.sa_family) { | ||
829 | case AF_INET: | ||
830 | memcpy(buffer, &peer.s4.sin_port, sizeof(peer.s4.sin_port)); | ||
831 | memcpy(buffer + sizeof(peer.s4.sin_port), | ||
832 | &peer.s4.sin_addr, sizeof(struct in_addr)); | ||
833 | break; | ||
834 | case AF_INET6: | ||
835 | memcpy(buffer, &peer.s6.sin6_port, sizeof(peer.s6.sin6_port)); | ||
836 | memcpy(buffer + sizeof(peer.s6.sin6_port), | ||
837 | &peer.s6.sin6_addr, sizeof(struct in6_addr)); | ||
838 | break; | ||
839 | default: | ||
840 | OPENSSL_assert(0); | ||
841 | break; | ||
842 | } | ||
843 | |||
844 | /* Calculate HMAC of buffer using the secret */ | ||
845 | HMAC(EVP_sha1(), cookie_secret, COOKIE_SECRET_LENGTH, | ||
846 | buffer, length, result, &resultlength); | ||
847 | free(buffer); | ||
848 | |||
849 | if (cookie_len == resultlength && | ||
850 | memcmp(result, cookie, resultlength) == 0) | ||
851 | return 1; | ||
852 | |||
853 | return 0; | ||
854 | } | ||
diff --git a/src/usr.bin/openssl/s_client.c b/src/usr.bin/openssl/s_client.c new file mode 100644 index 0000000000..f35624baca --- /dev/null +++ b/src/usr.bin/openssl/s_client.c | |||
@@ -0,0 +1,1507 @@ | |||
1 | /* $OpenBSD: s_client.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
2 | /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) | ||
3 | * All rights reserved. | ||
4 | * | ||
5 | * This package is an SSL implementation written | ||
6 | * by Eric Young (eay@cryptsoft.com). | ||
7 | * The implementation was written so as to conform with Netscapes SSL. | ||
8 | * | ||
9 | * This library is free for commercial and non-commercial use as long as | ||
10 | * the following conditions are aheared to. The following conditions | ||
11 | * apply to all code found in this distribution, be it the RC4, RSA, | ||
12 | * lhash, DES, etc., code; not just the SSL code. The SSL documentation | ||
13 | * included with this distribution is covered by the same copyright terms | ||
14 | * except that the holder is Tim Hudson (tjh@cryptsoft.com). | ||
15 | * | ||
16 | * Copyright remains Eric Young's, and as such any Copyright notices in | ||
17 | * the code are not to be removed. | ||
18 | * If this package is used in a product, Eric Young should be given attribution | ||
19 | * as the author of the parts of the library used. | ||
20 | * This can be in the form of a textual message at program startup or | ||
21 | * in documentation (online or textual) provided with the package. | ||
22 | * | ||
23 | * Redistribution and use in source and binary forms, with or without | ||
24 | * modification, are permitted provided that the following conditions | ||
25 | * are met: | ||
26 | * 1. Redistributions of source code must retain the copyright | ||
27 | * notice, this list of conditions and the following disclaimer. | ||
28 | * 2. Redistributions in binary form must reproduce the above copyright | ||
29 | * notice, this list of conditions and the following disclaimer in the | ||
30 | * documentation and/or other materials provided with the distribution. | ||
31 | * 3. All advertising materials mentioning features or use of this software | ||
32 | * must display the following acknowledgement: | ||
33 | * "This product includes cryptographic software written by | ||
34 | * Eric Young (eay@cryptsoft.com)" | ||
35 | * The word 'cryptographic' can be left out if the rouines from the library | ||
36 | * being used are not cryptographic related :-). | ||
37 | * 4. If you include any Windows specific code (or a derivative thereof) from | ||
38 | * the apps directory (application code) you must include an acknowledgement: | ||
39 | * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" | ||
40 | * | ||
41 | * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND | ||
42 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
43 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
44 | * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE | ||
45 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
46 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
47 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
48 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
49 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
50 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
51 | * SUCH DAMAGE. | ||
52 | * | ||
53 | * The licence and distribution terms for any publically available version or | ||
54 | * derivative of this code cannot be changed. i.e. this code cannot simply be | ||
55 | * copied and put under another distribution licence | ||
56 | * [including the GNU Public Licence.] | ||
57 | */ | ||
58 | /* ==================================================================== | ||
59 | * Copyright (c) 1998-2006 The OpenSSL Project. All rights reserved. | ||
60 | * | ||
61 | * Redistribution and use in source and binary forms, with or without | ||
62 | * modification, are permitted provided that the following conditions | ||
63 | * are met: | ||
64 | * | ||
65 | * 1. Redistributions of source code must retain the above copyright | ||
66 | * notice, this list of conditions and the following disclaimer. | ||
67 | * | ||
68 | * 2. Redistributions in binary form must reproduce the above copyright | ||
69 | * notice, this list of conditions and the following disclaimer in | ||
70 | * the documentation and/or other materials provided with the | ||
71 | * distribution. | ||
72 | * | ||
73 | * 3. All advertising materials mentioning features or use of this | ||
74 | * software must display the following acknowledgment: | ||
75 | * "This product includes software developed by the OpenSSL Project | ||
76 | * for use in the OpenSSL Toolkit. (http://www.openssl.org/)" | ||
77 | * | ||
78 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
79 | * endorse or promote products derived from this software without | ||
80 | * prior written permission. For written permission, please contact | ||
81 | * openssl-core@openssl.org. | ||
82 | * | ||
83 | * 5. Products derived from this software may not be called "OpenSSL" | ||
84 | * nor may "OpenSSL" appear in their names without prior written | ||
85 | * permission of the OpenSSL Project. | ||
86 | * | ||
87 | * 6. Redistributions of any form whatsoever must retain the following | ||
88 | * acknowledgment: | ||
89 | * "This product includes software developed by the OpenSSL Project | ||
90 | * for use in the OpenSSL Toolkit (http://www.openssl.org/)" | ||
91 | * | ||
92 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
93 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
94 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
95 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
96 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
97 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
98 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
99 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
100 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
101 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
102 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
103 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
104 | * ==================================================================== | ||
105 | * | ||
106 | * This product includes cryptographic software written by Eric Young | ||
107 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
108 | * Hudson (tjh@cryptsoft.com). | ||
109 | * | ||
110 | */ | ||
111 | /* ==================================================================== | ||
112 | * Copyright 2005 Nokia. All rights reserved. | ||
113 | * | ||
114 | * The portions of the attached software ("Contribution") is developed by | ||
115 | * Nokia Corporation and is licensed pursuant to the OpenSSL open source | ||
116 | * license. | ||
117 | * | ||
118 | * The Contribution, originally written by Mika Kousa and Pasi Eronen of | ||
119 | * Nokia Corporation, consists of the "PSK" (Pre-Shared Key) ciphersuites | ||
120 | * support (see RFC 4279) to OpenSSL. | ||
121 | * | ||
122 | * No patent licenses or other rights except those expressly stated in | ||
123 | * the OpenSSL open source license shall be deemed granted or received | ||
124 | * expressly, by implication, estoppel, or otherwise. | ||
125 | * | ||
126 | * No assurances are provided by Nokia that the Contribution does not | ||
127 | * infringe the patent or other intellectual property rights of any third | ||
128 | * party or that the license provides you with all the necessary rights | ||
129 | * to make use of the Contribution. | ||
130 | * | ||
131 | * THE SOFTWARE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. IN | ||
132 | * ADDITION TO THE DISCLAIMERS INCLUDED IN THE LICENSE, NOKIA | ||
133 | * SPECIFICALLY DISCLAIMS ANY LIABILITY FOR CLAIMS BROUGHT BY YOU OR ANY | ||
134 | * OTHER ENTITY BASED ON INFRINGEMENT OF INTELLECTUAL PROPERTY RIGHTS OR | ||
135 | * OTHERWISE. | ||
136 | */ | ||
137 | |||
138 | #include <sys/types.h> | ||
139 | #include <sys/ioctl.h> | ||
140 | #include <sys/select.h> | ||
141 | #include <sys/socket.h> | ||
142 | |||
143 | #include <netinet/in.h> | ||
144 | |||
145 | #include <assert.h> | ||
146 | #include <ctype.h> | ||
147 | #include <limits.h> | ||
148 | #include <netdb.h> | ||
149 | #include <stdio.h> | ||
150 | #include <stdlib.h> | ||
151 | #include <limits.h> | ||
152 | #include <string.h> | ||
153 | #include <unistd.h> | ||
154 | |||
155 | #include "apps.h" | ||
156 | |||
157 | #include <openssl/bn.h> | ||
158 | #include <openssl/err.h> | ||
159 | #include <openssl/ocsp.h> | ||
160 | #include <openssl/pem.h> | ||
161 | #include <openssl/rand.h> | ||
162 | #include <openssl/ssl.h> | ||
163 | #include <openssl/x509.h> | ||
164 | |||
165 | #include "s_apps.h" | ||
166 | #include "timeouts.h" | ||
167 | |||
168 | /*#define SSL_HOST_NAME "www.netscape.com" */ | ||
169 | /*#define SSL_HOST_NAME "193.118.187.102" */ | ||
170 | #define SSL_HOST_NAME "localhost" | ||
171 | |||
172 | /*#define TEST_CERT "client.pem" *//* no default cert. */ | ||
173 | |||
174 | #define BUFSIZZ 1024*8 | ||
175 | |||
176 | extern int verify_depth; | ||
177 | extern int verify_error; | ||
178 | extern int verify_return_error; | ||
179 | |||
180 | static int c_nbio = 0; | ||
181 | static int c_Pause = 0; | ||
182 | static int c_debug = 0; | ||
183 | #ifndef OPENSSL_NO_TLSEXT | ||
184 | static int c_tlsextdebug = 0; | ||
185 | static int c_status_req = 0; | ||
186 | #endif | ||
187 | static int c_msg = 0; | ||
188 | static int c_showcerts = 0; | ||
189 | |||
190 | static char *keymatexportlabel = NULL; | ||
191 | static int keymatexportlen = 20; | ||
192 | |||
193 | static void sc_usage(void); | ||
194 | static void print_stuff(BIO * berr, SSL * con, int full); | ||
195 | #ifndef OPENSSL_NO_TLSEXT | ||
196 | static int ocsp_resp_cb(SSL * s, void *arg); | ||
197 | #endif | ||
198 | static BIO *bio_c_out = NULL; | ||
199 | static int c_quiet = 0; | ||
200 | static int c_ign_eof = 0; | ||
201 | |||
202 | |||
203 | static void | ||
204 | sc_usage(void) | ||
205 | { | ||
206 | BIO_printf(bio_err, "usage: s_client args\n"); | ||
207 | BIO_printf(bio_err, "\n"); | ||
208 | BIO_printf(bio_err, " -4 - Force IPv4\n"); | ||
209 | BIO_printf(bio_err, " -6 - Force IPv6\n"); | ||
210 | BIO_printf(bio_err, " -host host - use -connect instead\n"); | ||
211 | BIO_printf(bio_err, " -port port - use -connect instead\n"); | ||
212 | BIO_printf(bio_err, " -connect host:port - who to connect to (default is %s:%s)\n", SSL_HOST_NAME, PORT_STR); | ||
213 | |||
214 | BIO_printf(bio_err, " -verify arg - turn on peer certificate verification\n"); | ||
215 | BIO_printf(bio_err, " -cert arg - certificate file to use, PEM format assumed\n"); | ||
216 | BIO_printf(bio_err, " -certform arg - certificate format (PEM or DER) PEM default\n"); | ||
217 | BIO_printf(bio_err, " -key arg - Private key file to use, in cert file if\n"); | ||
218 | BIO_printf(bio_err, " not specified but cert file is.\n"); | ||
219 | BIO_printf(bio_err, " -keyform arg - key format (PEM or DER) PEM default\n"); | ||
220 | BIO_printf(bio_err, " -pass arg - private key file pass phrase source\n"); | ||
221 | BIO_printf(bio_err, " -CApath arg - PEM format directory of CA's\n"); | ||
222 | BIO_printf(bio_err, " -CAfile arg - PEM format file of CA's\n"); | ||
223 | BIO_printf(bio_err, " -reconnect - Drop and re-make the connection with the same Session-ID\n"); | ||
224 | BIO_printf(bio_err, " -pause - sleep(1) after each read(2) and write(2) system call\n"); | ||
225 | BIO_printf(bio_err, " -showcerts - show all certificates in the chain\n"); | ||
226 | BIO_printf(bio_err, " -debug - extra output\n"); | ||
227 | BIO_printf(bio_err, " -msg - Show protocol messages\n"); | ||
228 | BIO_printf(bio_err, " -nbio_test - more ssl protocol testing\n"); | ||
229 | BIO_printf(bio_err, " -state - print the 'ssl' states\n"); | ||
230 | BIO_printf(bio_err, " -nbio - Run with non-blocking IO\n"); | ||
231 | BIO_printf(bio_err, " -crlf - convert LF from terminal into CRLF\n"); | ||
232 | BIO_printf(bio_err, " -quiet - no s_client output\n"); | ||
233 | BIO_printf(bio_err, " -ign_eof - ignore input eof (default when -quiet)\n"); | ||
234 | BIO_printf(bio_err, " -no_ign_eof - don't ignore input eof\n"); | ||
235 | BIO_printf(bio_err, " -ssl3 - just use SSLv3\n"); | ||
236 | BIO_printf(bio_err, " -tls1_2 - just use TLSv1.2\n"); | ||
237 | BIO_printf(bio_err, " -tls1_1 - just use TLSv1.1\n"); | ||
238 | BIO_printf(bio_err, " -tls1 - just use TLSv1\n"); | ||
239 | BIO_printf(bio_err, " -dtls1 - just use DTLSv1\n"); | ||
240 | BIO_printf(bio_err, " -mtu - set the link layer MTU\n"); | ||
241 | BIO_printf(bio_err, " -no_tls1_2/-no_tls1_1/-no_tls1/-no_ssl3/-no_ssl2 - turn off that protocol\n"); | ||
242 | BIO_printf(bio_err, " -bugs - Switch on all SSL implementation bug workarounds\n"); | ||
243 | BIO_printf(bio_err, " -cipher - preferred cipher to use, use the 'openssl ciphers'\n"); | ||
244 | BIO_printf(bio_err, " command to see what is available\n"); | ||
245 | BIO_printf(bio_err, " -starttls prot - use the STARTTLS command before starting TLS\n"); | ||
246 | BIO_printf(bio_err, " for those protocols that support it, where\n"); | ||
247 | BIO_printf(bio_err, " 'prot' defines which one to assume. Currently,\n"); | ||
248 | BIO_printf(bio_err, " only \"smtp\", \"lmtp\", \"pop3\", \"imap\", \"ftp\" and \"xmpp\"\n"); | ||
249 | BIO_printf(bio_err, " are supported.\n"); | ||
250 | #ifndef OPENSSL_NO_ENGINE | ||
251 | BIO_printf(bio_err, " -engine id - Initialise and use the specified engine\n"); | ||
252 | #endif | ||
253 | BIO_printf(bio_err, " -sess_out arg - file to write SSL session to\n"); | ||
254 | BIO_printf(bio_err, " -sess_in arg - file to read SSL session from\n"); | ||
255 | #ifndef OPENSSL_NO_TLSEXT | ||
256 | BIO_printf(bio_err, " -servername host - Set TLS extension servername in ClientHello\n"); | ||
257 | BIO_printf(bio_err, " -tlsextdebug - hex dump of all TLS extensions received\n"); | ||
258 | BIO_printf(bio_err, " -status - request certificate status from server\n"); | ||
259 | BIO_printf(bio_err, " -no_ticket - disable use of RFC4507bis session tickets\n"); | ||
260 | #ifndef OPENSSL_NO_NEXTPROTONEG | ||
261 | BIO_printf(bio_err, " -nextprotoneg arg - enable NPN extension, considering named protocols supported (comma-separated list)\n"); | ||
262 | #endif | ||
263 | #endif | ||
264 | #ifndef OPENSSL_NO_SRTP | ||
265 | BIO_printf(bio_err, " -use_srtp profiles - Offer SRTP key management with a colon-separated profile list\n"); | ||
266 | #endif | ||
267 | BIO_printf(bio_err, " -keymatexport label - Export keying material using label\n"); | ||
268 | BIO_printf(bio_err, " -keymatexportlen len - Export len bytes of keying material (default 20)\n"); | ||
269 | } | ||
270 | |||
271 | #ifndef OPENSSL_NO_TLSEXT | ||
272 | |||
273 | /* This is a context that we pass to callbacks */ | ||
274 | typedef struct tlsextctx_st { | ||
275 | BIO *biodebug; | ||
276 | int ack; | ||
277 | } tlsextctx; | ||
278 | |||
279 | |||
280 | static int | ||
281 | ssl_servername_cb(SSL * s, int *ad, void *arg) | ||
282 | { | ||
283 | tlsextctx *p = (tlsextctx *) arg; | ||
284 | const char *hn = SSL_get_servername(s, TLSEXT_NAMETYPE_host_name); | ||
285 | if (SSL_get_servername_type(s) != -1) | ||
286 | p->ack = !SSL_session_reused(s) && hn != NULL; | ||
287 | else | ||
288 | BIO_printf(bio_err, "Can't use SSL_get_servername\n"); | ||
289 | |||
290 | return SSL_TLSEXT_ERR_OK; | ||
291 | } | ||
292 | |||
293 | #ifndef OPENSSL_NO_SRTP | ||
294 | char *srtp_profiles = NULL; | ||
295 | #endif | ||
296 | |||
297 | #ifndef OPENSSL_NO_NEXTPROTONEG | ||
298 | /* This the context that we pass to next_proto_cb */ | ||
299 | typedef struct tlsextnextprotoctx_st { | ||
300 | unsigned char *data; | ||
301 | unsigned short len; | ||
302 | int status; | ||
303 | } tlsextnextprotoctx; | ||
304 | |||
305 | static tlsextnextprotoctx next_proto; | ||
306 | |||
307 | static int | ||
308 | next_proto_cb(SSL * s, unsigned char **out, unsigned char *outlen, const unsigned char *in, unsigned int inlen, void *arg) | ||
309 | { | ||
310 | tlsextnextprotoctx *ctx = arg; | ||
311 | |||
312 | if (!c_quiet) { | ||
313 | /* We can assume that |in| is syntactically valid. */ | ||
314 | unsigned i; | ||
315 | BIO_printf(bio_c_out, "Protocols advertised by server: "); | ||
316 | for (i = 0; i < inlen;) { | ||
317 | if (i) | ||
318 | BIO_write(bio_c_out, ", ", 2); | ||
319 | BIO_write(bio_c_out, &in[i + 1], in[i]); | ||
320 | i += in[i] + 1; | ||
321 | } | ||
322 | BIO_write(bio_c_out, "\n", 1); | ||
323 | } | ||
324 | ctx->status = SSL_select_next_proto(out, outlen, in, inlen, ctx->data, ctx->len); | ||
325 | return SSL_TLSEXT_ERR_OK; | ||
326 | } | ||
327 | #endif /* ndef OPENSSL_NO_NEXTPROTONEG */ | ||
328 | #endif | ||
329 | |||
330 | enum { | ||
331 | PROTO_OFF = 0, | ||
332 | PROTO_SMTP, | ||
333 | PROTO_LMTP, | ||
334 | PROTO_POP3, | ||
335 | PROTO_IMAP, | ||
336 | PROTO_FTP, | ||
337 | PROTO_XMPP | ||
338 | }; | ||
339 | |||
340 | int s_client_main(int, char **); | ||
341 | |||
342 | int | ||
343 | s_client_main(int argc, char **argv) | ||
344 | { | ||
345 | unsigned int off = 0, clr = 0; | ||
346 | SSL *con = NULL; | ||
347 | int s, k, width, state = 0, af = AF_UNSPEC; | ||
348 | char *cbuf = NULL, *sbuf = NULL, *mbuf = NULL; | ||
349 | int cbuf_len, cbuf_off; | ||
350 | int sbuf_len, sbuf_off; | ||
351 | fd_set readfds, writefds; | ||
352 | char *port = PORT_STR; | ||
353 | int full_log = 1; | ||
354 | char *host = SSL_HOST_NAME; | ||
355 | char *cert_file = NULL, *key_file = NULL; | ||
356 | int cert_format = FORMAT_PEM, key_format = FORMAT_PEM; | ||
357 | char *passarg = NULL, *pass = NULL; | ||
358 | X509 *cert = NULL; | ||
359 | EVP_PKEY *key = NULL; | ||
360 | char *CApath = NULL, *CAfile = NULL, *cipher = NULL; | ||
361 | int reconnect = 0, badop = 0, verify = SSL_VERIFY_NONE, bugs = 0; | ||
362 | int crlf = 0; | ||
363 | int write_tty, read_tty, write_ssl, read_ssl, tty_on, ssl_pending; | ||
364 | SSL_CTX *ctx = NULL; | ||
365 | int ret = 1, in_init = 1, i, nbio_test = 0; | ||
366 | int starttls_proto = PROTO_OFF; | ||
367 | int prexit = 0; | ||
368 | X509_VERIFY_PARAM *vpm = NULL; | ||
369 | int badarg = 0; | ||
370 | const SSL_METHOD *meth = NULL; | ||
371 | int socket_type = SOCK_STREAM; | ||
372 | BIO *sbio; | ||
373 | int mbuf_len = 0; | ||
374 | struct timeval timeout, *timeoutp; | ||
375 | const char *errstr = NULL; | ||
376 | #ifndef OPENSSL_NO_ENGINE | ||
377 | char *engine_id = NULL; | ||
378 | char *ssl_client_engine_id = NULL; | ||
379 | ENGINE *ssl_client_engine = NULL; | ||
380 | #endif | ||
381 | ENGINE *e = NULL; | ||
382 | #ifndef OPENSSL_NO_TLSEXT | ||
383 | char *servername = NULL; | ||
384 | tlsextctx tlsextcbp = | ||
385 | {NULL, 0}; | ||
386 | #ifndef OPENSSL_NO_NEXTPROTONEG | ||
387 | const char *next_proto_neg_in = NULL; | ||
388 | #endif | ||
389 | #endif | ||
390 | char *sess_in = NULL; | ||
391 | char *sess_out = NULL; | ||
392 | struct sockaddr peer; | ||
393 | int peerlen = sizeof(peer); | ||
394 | int enable_timeouts = 0; | ||
395 | long socket_mtu = 0; | ||
396 | |||
397 | meth = SSLv23_client_method(); | ||
398 | |||
399 | c_Pause = 0; | ||
400 | c_quiet = 0; | ||
401 | c_ign_eof = 0; | ||
402 | c_debug = 0; | ||
403 | c_msg = 0; | ||
404 | c_showcerts = 0; | ||
405 | |||
406 | if (((cbuf = malloc(BUFSIZZ)) == NULL) || | ||
407 | ((sbuf = malloc(BUFSIZZ)) == NULL) || | ||
408 | ((mbuf = malloc(BUFSIZZ + 1)) == NULL)) { /* NUL byte */ | ||
409 | BIO_printf(bio_err, "out of memory\n"); | ||
410 | goto end; | ||
411 | } | ||
412 | verify_depth = 0; | ||
413 | verify_error = X509_V_OK; | ||
414 | c_nbio = 0; | ||
415 | |||
416 | argc--; | ||
417 | argv++; | ||
418 | while (argc >= 1) { | ||
419 | if (strcmp(*argv, "-host") == 0) { | ||
420 | if (--argc < 1) | ||
421 | goto bad; | ||
422 | host = *(++argv); | ||
423 | } else if (strcmp(*argv, "-port") == 0) { | ||
424 | if (--argc < 1) | ||
425 | goto bad; | ||
426 | port = *(++argv); | ||
427 | if (port == NULL || *port == '\0') | ||
428 | goto bad; | ||
429 | } else if (strcmp(*argv, "-connect") == 0) { | ||
430 | if (--argc < 1) | ||
431 | goto bad; | ||
432 | if (!extract_host_port(*(++argv), &host, NULL, &port)) | ||
433 | goto bad; | ||
434 | } else if (strcmp(*argv, "-verify") == 0) { | ||
435 | verify = SSL_VERIFY_PEER; | ||
436 | if (--argc < 1) | ||
437 | goto bad; | ||
438 | verify_depth = strtonum(*(++argv), 0, INT_MAX, &errstr); | ||
439 | if (errstr) | ||
440 | goto bad; | ||
441 | BIO_printf(bio_err, "verify depth is %d\n", verify_depth); | ||
442 | } else if (strcmp(*argv, "-cert") == 0) { | ||
443 | if (--argc < 1) | ||
444 | goto bad; | ||
445 | cert_file = *(++argv); | ||
446 | } else if (strcmp(*argv, "-sess_out") == 0) { | ||
447 | if (--argc < 1) | ||
448 | goto bad; | ||
449 | sess_out = *(++argv); | ||
450 | } else if (strcmp(*argv, "-sess_in") == 0) { | ||
451 | if (--argc < 1) | ||
452 | goto bad; | ||
453 | sess_in = *(++argv); | ||
454 | } else if (strcmp(*argv, "-certform") == 0) { | ||
455 | if (--argc < 1) | ||
456 | goto bad; | ||
457 | cert_format = str2fmt(*(++argv)); | ||
458 | } else if (args_verify(&argv, &argc, &badarg, bio_err, &vpm)) { | ||
459 | if (badarg) | ||
460 | goto bad; | ||
461 | continue; | ||
462 | } else if (strcmp(*argv, "-verify_return_error") == 0) | ||
463 | verify_return_error = 1; | ||
464 | else if (strcmp(*argv, "-prexit") == 0) | ||
465 | prexit = 1; | ||
466 | else if (strcmp(*argv, "-crlf") == 0) | ||
467 | crlf = 1; | ||
468 | else if (strcmp(*argv, "-quiet") == 0) { | ||
469 | c_quiet = 1; | ||
470 | c_ign_eof = 1; | ||
471 | } else if (strcmp(*argv, "-ign_eof") == 0) | ||
472 | c_ign_eof = 1; | ||
473 | else if (strcmp(*argv, "-no_ign_eof") == 0) | ||
474 | c_ign_eof = 0; | ||
475 | else if (strcmp(*argv, "-pause") == 0) | ||
476 | c_Pause = 1; | ||
477 | else if (strcmp(*argv, "-debug") == 0) | ||
478 | c_debug = 1; | ||
479 | #ifndef OPENSSL_NO_TLSEXT | ||
480 | else if (strcmp(*argv, "-tlsextdebug") == 0) | ||
481 | c_tlsextdebug = 1; | ||
482 | else if (strcmp(*argv, "-status") == 0) | ||
483 | c_status_req = 1; | ||
484 | #endif | ||
485 | else if (strcmp(*argv, "-msg") == 0) | ||
486 | c_msg = 1; | ||
487 | else if (strcmp(*argv, "-showcerts") == 0) | ||
488 | c_showcerts = 1; | ||
489 | else if (strcmp(*argv, "-nbio_test") == 0) | ||
490 | nbio_test = 1; | ||
491 | else if (strcmp(*argv, "-state") == 0) | ||
492 | state = 1; | ||
493 | else if (strcmp(*argv, "-ssl3") == 0) | ||
494 | meth = SSLv3_client_method(); | ||
495 | else if (strcmp(*argv, "-tls1_2") == 0) | ||
496 | meth = TLSv1_2_client_method(); | ||
497 | else if (strcmp(*argv, "-tls1_1") == 0) | ||
498 | meth = TLSv1_1_client_method(); | ||
499 | else if (strcmp(*argv, "-tls1") == 0) | ||
500 | meth = TLSv1_client_method(); | ||
501 | #ifndef OPENSSL_NO_DTLS1 | ||
502 | else if (strcmp(*argv, "-dtls1") == 0) { | ||
503 | meth = DTLSv1_client_method(); | ||
504 | socket_type = SOCK_DGRAM; | ||
505 | } else if (strcmp(*argv, "-timeout") == 0) | ||
506 | enable_timeouts = 1; | ||
507 | else if (strcmp(*argv, "-mtu") == 0) { | ||
508 | if (--argc < 1) | ||
509 | goto bad; | ||
510 | socket_mtu = strtonum(*(++argv), 0, LONG_MAX, &errstr); | ||
511 | if (errstr) | ||
512 | goto bad; | ||
513 | } | ||
514 | #endif | ||
515 | else if (strcmp(*argv, "-bugs") == 0) | ||
516 | bugs = 1; | ||
517 | else if (strcmp(*argv, "-keyform") == 0) { | ||
518 | if (--argc < 1) | ||
519 | goto bad; | ||
520 | key_format = str2fmt(*(++argv)); | ||
521 | } else if (strcmp(*argv, "-pass") == 0) { | ||
522 | if (--argc < 1) | ||
523 | goto bad; | ||
524 | passarg = *(++argv); | ||
525 | } else if (strcmp(*argv, "-key") == 0) { | ||
526 | if (--argc < 1) | ||
527 | goto bad; | ||
528 | key_file = *(++argv); | ||
529 | } else if (strcmp(*argv, "-reconnect") == 0) { | ||
530 | reconnect = 5; | ||
531 | } else if (strcmp(*argv, "-CApath") == 0) { | ||
532 | if (--argc < 1) | ||
533 | goto bad; | ||
534 | CApath = *(++argv); | ||
535 | } else if (strcmp(*argv, "-CAfile") == 0) { | ||
536 | if (--argc < 1) | ||
537 | goto bad; | ||
538 | CAfile = *(++argv); | ||
539 | } else if (strcmp(*argv, "-no_tls1_2") == 0) | ||
540 | off |= SSL_OP_NO_TLSv1_2; | ||
541 | else if (strcmp(*argv, "-no_tls1_1") == 0) | ||
542 | off |= SSL_OP_NO_TLSv1_1; | ||
543 | else if (strcmp(*argv, "-no_tls1") == 0) | ||
544 | off |= SSL_OP_NO_TLSv1; | ||
545 | else if (strcmp(*argv, "-no_ssl3") == 0) | ||
546 | off |= SSL_OP_NO_SSLv3; | ||
547 | else if (strcmp(*argv, "-no_ssl2") == 0) | ||
548 | off |= SSL_OP_NO_SSLv2; | ||
549 | else if (strcmp(*argv, "-no_comp") == 0) { | ||
550 | off |= SSL_OP_NO_COMPRESSION; | ||
551 | } | ||
552 | #ifndef OPENSSL_NO_TLSEXT | ||
553 | else if (strcmp(*argv, "-no_ticket") == 0) { | ||
554 | off |= SSL_OP_NO_TICKET; | ||
555 | } | ||
556 | #ifndef OPENSSL_NO_NEXTPROTONEG | ||
557 | else if (strcmp(*argv, "-nextprotoneg") == 0) { | ||
558 | if (--argc < 1) | ||
559 | goto bad; | ||
560 | next_proto_neg_in = *(++argv); | ||
561 | } | ||
562 | #endif | ||
563 | #endif | ||
564 | else if (strcmp(*argv, "-serverpref") == 0) | ||
565 | off |= SSL_OP_CIPHER_SERVER_PREFERENCE; | ||
566 | else if (strcmp(*argv, "-legacy_renegotiation") == 0) | ||
567 | ; /* no-op */ | ||
568 | else if (strcmp(*argv, "-legacy_server_connect") == 0) { | ||
569 | off |= SSL_OP_LEGACY_SERVER_CONNECT; | ||
570 | } else if (strcmp(*argv, "-no_legacy_server_connect") == 0) { | ||
571 | clr |= SSL_OP_LEGACY_SERVER_CONNECT; | ||
572 | } else if (strcmp(*argv, "-cipher") == 0) { | ||
573 | if (--argc < 1) | ||
574 | goto bad; | ||
575 | cipher = *(++argv); | ||
576 | } | ||
577 | else if (strcmp(*argv, "-nbio") == 0) { | ||
578 | c_nbio = 1; | ||
579 | } | ||
580 | else if (strcmp(*argv, "-starttls") == 0) { | ||
581 | if (--argc < 1) | ||
582 | goto bad; | ||
583 | ++argv; | ||
584 | if (strcmp(*argv, "smtp") == 0) | ||
585 | starttls_proto = PROTO_SMTP; | ||
586 | else if (strcmp(*argv, "lmtp") == 0) | ||
587 | starttls_proto = PROTO_LMTP; | ||
588 | else if (strcmp(*argv, "pop3") == 0) | ||
589 | starttls_proto = PROTO_POP3; | ||
590 | else if (strcmp(*argv, "imap") == 0) | ||
591 | starttls_proto = PROTO_IMAP; | ||
592 | else if (strcmp(*argv, "ftp") == 0) | ||
593 | starttls_proto = PROTO_FTP; | ||
594 | else if (strcmp(*argv, "xmpp") == 0) | ||
595 | starttls_proto = PROTO_XMPP; | ||
596 | else | ||
597 | goto bad; | ||
598 | } | ||
599 | #ifndef OPENSSL_NO_ENGINE | ||
600 | else if (strcmp(*argv, "-engine") == 0) { | ||
601 | if (--argc < 1) | ||
602 | goto bad; | ||
603 | engine_id = *(++argv); | ||
604 | } else if (strcmp(*argv, "-ssl_client_engine") == 0) { | ||
605 | if (--argc < 1) | ||
606 | goto bad; | ||
607 | ssl_client_engine_id = *(++argv); | ||
608 | } | ||
609 | #endif | ||
610 | else if (strcmp(*argv, "-4") == 0) { | ||
611 | af = AF_INET; | ||
612 | } else if (strcmp(*argv, "-6") == 0) { | ||
613 | af = AF_INET6; | ||
614 | } | ||
615 | #ifndef OPENSSL_NO_TLSEXT | ||
616 | else if (strcmp(*argv, "-servername") == 0) { | ||
617 | if (--argc < 1) | ||
618 | goto bad; | ||
619 | servername = *(++argv); | ||
620 | /* meth=TLSv1_client_method(); */ | ||
621 | } | ||
622 | #endif | ||
623 | #ifndef OPENSSL_NO_SRTP | ||
624 | else if (strcmp(*argv, "-use_srtp") == 0) { | ||
625 | if (--argc < 1) | ||
626 | goto bad; | ||
627 | srtp_profiles = *(++argv); | ||
628 | } | ||
629 | #endif | ||
630 | else if (strcmp(*argv, "-keymatexport") == 0) { | ||
631 | if (--argc < 1) | ||
632 | goto bad; | ||
633 | keymatexportlabel = *(++argv); | ||
634 | } else if (strcmp(*argv, "-keymatexportlen") == 0) { | ||
635 | const char *errstr; | ||
636 | |||
637 | if (--argc < 1) | ||
638 | goto bad; | ||
639 | keymatexportlen = strtonum(*(++argv), 1, INT_MAX, &errstr); | ||
640 | if (errstr) | ||
641 | goto bad; | ||
642 | } else { | ||
643 | BIO_printf(bio_err, "unknown option %s\n", *argv); | ||
644 | badop = 1; | ||
645 | break; | ||
646 | } | ||
647 | argc--; | ||
648 | argv++; | ||
649 | } | ||
650 | if (badop) { | ||
651 | bad: | ||
652 | if (errstr) | ||
653 | BIO_printf(bio_err, "invalid argument %s: %s\n", | ||
654 | *argv, errstr); | ||
655 | else | ||
656 | sc_usage(); | ||
657 | goto end; | ||
658 | } | ||
659 | |||
660 | #if !defined(OPENSSL_NO_TLSEXT) && !defined(OPENSSL_NO_NEXTPROTONEG) | ||
661 | next_proto.status = -1; | ||
662 | if (next_proto_neg_in) { | ||
663 | next_proto.data = next_protos_parse(&next_proto.len, next_proto_neg_in); | ||
664 | if (next_proto.data == NULL) { | ||
665 | BIO_printf(bio_err, "Error parsing -nextprotoneg argument\n"); | ||
666 | goto end; | ||
667 | } | ||
668 | } else | ||
669 | next_proto.data = NULL; | ||
670 | #endif | ||
671 | |||
672 | #ifndef OPENSSL_NO_ENGINE | ||
673 | e = setup_engine(bio_err, engine_id, 1); | ||
674 | if (ssl_client_engine_id) { | ||
675 | ssl_client_engine = ENGINE_by_id(ssl_client_engine_id); | ||
676 | if (!ssl_client_engine) { | ||
677 | BIO_printf(bio_err, | ||
678 | "Error getting client auth engine\n"); | ||
679 | goto end; | ||
680 | } | ||
681 | } | ||
682 | #endif | ||
683 | if (!app_passwd(bio_err, passarg, NULL, &pass, NULL)) { | ||
684 | BIO_printf(bio_err, "Error getting password\n"); | ||
685 | goto end; | ||
686 | } | ||
687 | if (key_file == NULL) | ||
688 | key_file = cert_file; | ||
689 | |||
690 | |||
691 | if (key_file) { | ||
692 | |||
693 | key = load_key(bio_err, key_file, key_format, 0, pass, e, | ||
694 | "client certificate private key file"); | ||
695 | if (!key) { | ||
696 | ERR_print_errors(bio_err); | ||
697 | goto end; | ||
698 | } | ||
699 | } | ||
700 | if (cert_file) { | ||
701 | cert = load_cert(bio_err, cert_file, cert_format, | ||
702 | NULL, e, "client certificate file"); | ||
703 | |||
704 | if (!cert) { | ||
705 | ERR_print_errors(bio_err); | ||
706 | goto end; | ||
707 | } | ||
708 | } | ||
709 | if (bio_c_out == NULL) { | ||
710 | if (c_quiet && !c_debug && !c_msg) { | ||
711 | bio_c_out = BIO_new(BIO_s_null()); | ||
712 | } else { | ||
713 | if (bio_c_out == NULL) | ||
714 | bio_c_out = BIO_new_fp(stdout, BIO_NOCLOSE); | ||
715 | } | ||
716 | } | ||
717 | |||
718 | ctx = SSL_CTX_new(meth); | ||
719 | if (ctx == NULL) { | ||
720 | ERR_print_errors(bio_err); | ||
721 | goto end; | ||
722 | } | ||
723 | if (vpm) | ||
724 | SSL_CTX_set1_param(ctx, vpm); | ||
725 | |||
726 | #ifndef OPENSSL_NO_ENGINE | ||
727 | if (ssl_client_engine) { | ||
728 | if (!SSL_CTX_set_client_cert_engine(ctx, ssl_client_engine)) { | ||
729 | BIO_puts(bio_err, "Error setting client auth engine\n"); | ||
730 | ERR_print_errors(bio_err); | ||
731 | ENGINE_free(ssl_client_engine); | ||
732 | goto end; | ||
733 | } | ||
734 | ENGINE_free(ssl_client_engine); | ||
735 | } | ||
736 | #endif | ||
737 | |||
738 | #ifndef OPENSSL_NO_SRTP | ||
739 | if (srtp_profiles != NULL) | ||
740 | SSL_CTX_set_tlsext_use_srtp(ctx, srtp_profiles); | ||
741 | #endif | ||
742 | if (bugs) | ||
743 | SSL_CTX_set_options(ctx, SSL_OP_ALL | off); | ||
744 | else | ||
745 | SSL_CTX_set_options(ctx, off); | ||
746 | |||
747 | if (clr) | ||
748 | SSL_CTX_clear_options(ctx, clr); | ||
749 | /* | ||
750 | * DTLS: partial reads end up discarding unread UDP bytes :-( Setting | ||
751 | * read ahead solves this problem. | ||
752 | */ | ||
753 | if (socket_type == SOCK_DGRAM) | ||
754 | SSL_CTX_set_read_ahead(ctx, 1); | ||
755 | |||
756 | #if !defined(OPENSSL_NO_TLSEXT) && !defined(OPENSSL_NO_NEXTPROTONEG) | ||
757 | if (next_proto.data) | ||
758 | SSL_CTX_set_next_proto_select_cb(ctx, next_proto_cb, &next_proto); | ||
759 | #endif | ||
760 | |||
761 | if (state) | ||
762 | SSL_CTX_set_info_callback(ctx, apps_ssl_info_callback); | ||
763 | if (cipher != NULL) | ||
764 | if (!SSL_CTX_set_cipher_list(ctx, cipher)) { | ||
765 | BIO_printf(bio_err, "error setting cipher list\n"); | ||
766 | ERR_print_errors(bio_err); | ||
767 | goto end; | ||
768 | } | ||
769 | |||
770 | SSL_CTX_set_verify(ctx, verify, verify_callback); | ||
771 | if (!set_cert_key_stuff(ctx, cert, key)) | ||
772 | goto end; | ||
773 | |||
774 | if ((!SSL_CTX_load_verify_locations(ctx, CAfile, CApath)) || | ||
775 | (!SSL_CTX_set_default_verify_paths(ctx))) { | ||
776 | /* | ||
777 | * BIO_printf(bio_err,"error setting default verify | ||
778 | * locations\n"); | ||
779 | */ | ||
780 | ERR_print_errors(bio_err); | ||
781 | /* goto end; */ | ||
782 | } | ||
783 | #ifndef OPENSSL_NO_TLSEXT | ||
784 | if (servername != NULL) { | ||
785 | tlsextcbp.biodebug = bio_err; | ||
786 | SSL_CTX_set_tlsext_servername_callback(ctx, ssl_servername_cb); | ||
787 | SSL_CTX_set_tlsext_servername_arg(ctx, &tlsextcbp); | ||
788 | } | ||
789 | #endif | ||
790 | |||
791 | con = SSL_new(ctx); | ||
792 | if (sess_in) { | ||
793 | SSL_SESSION *sess; | ||
794 | BIO *stmp = BIO_new_file(sess_in, "r"); | ||
795 | if (!stmp) { | ||
796 | BIO_printf(bio_err, "Can't open session file %s\n", | ||
797 | sess_in); | ||
798 | ERR_print_errors(bio_err); | ||
799 | goto end; | ||
800 | } | ||
801 | sess = PEM_read_bio_SSL_SESSION(stmp, NULL, 0, NULL); | ||
802 | BIO_free(stmp); | ||
803 | if (!sess) { | ||
804 | BIO_printf(bio_err, "Can't open session file %s\n", | ||
805 | sess_in); | ||
806 | ERR_print_errors(bio_err); | ||
807 | goto end; | ||
808 | } | ||
809 | SSL_set_session(con, sess); | ||
810 | SSL_SESSION_free(sess); | ||
811 | } | ||
812 | #ifndef OPENSSL_NO_TLSEXT | ||
813 | if (servername != NULL) { | ||
814 | if (!SSL_set_tlsext_host_name(con, servername)) { | ||
815 | BIO_printf(bio_err, "Unable to set TLS servername extension.\n"); | ||
816 | ERR_print_errors(bio_err); | ||
817 | goto end; | ||
818 | } | ||
819 | } | ||
820 | #endif | ||
821 | /* SSL_set_cipher_list(con,"RC4-MD5"); */ | ||
822 | |||
823 | re_start: | ||
824 | |||
825 | if (init_client(&s, host, port, socket_type, af) == 0) { | ||
826 | BIO_printf(bio_err, "connect:errno=%d\n", errno); | ||
827 | shutdown(s, SHUT_RD); | ||
828 | close(s); | ||
829 | goto end; | ||
830 | } | ||
831 | BIO_printf(bio_c_out, "CONNECTED(%08X)\n", s); | ||
832 | |||
833 | if (c_nbio) { | ||
834 | unsigned long l = 1; | ||
835 | BIO_printf(bio_c_out, "turning on non blocking io\n"); | ||
836 | if (BIO_socket_ioctl(s, FIONBIO, &l) < 0) { | ||
837 | ERR_print_errors(bio_err); | ||
838 | goto end; | ||
839 | } | ||
840 | } | ||
841 | if (c_Pause & 0x01) | ||
842 | SSL_set_debug(con, 1); | ||
843 | |||
844 | if (SSL_version(con) == DTLS1_VERSION) { | ||
845 | |||
846 | sbio = BIO_new_dgram(s, BIO_NOCLOSE); | ||
847 | if (getsockname(s, &peer, (void *) &peerlen) < 0) { | ||
848 | BIO_printf(bio_err, "getsockname:errno=%d\n", | ||
849 | errno); | ||
850 | shutdown(s, SHUT_RD); | ||
851 | close(s); | ||
852 | goto end; | ||
853 | } | ||
854 | (void) BIO_ctrl_set_connected(sbio, 1, &peer); | ||
855 | |||
856 | if (enable_timeouts) { | ||
857 | timeout.tv_sec = 0; | ||
858 | timeout.tv_usec = DGRAM_RCV_TIMEOUT; | ||
859 | BIO_ctrl(sbio, BIO_CTRL_DGRAM_SET_RECV_TIMEOUT, 0, &timeout); | ||
860 | |||
861 | timeout.tv_sec = 0; | ||
862 | timeout.tv_usec = DGRAM_SND_TIMEOUT; | ||
863 | BIO_ctrl(sbio, BIO_CTRL_DGRAM_SET_SEND_TIMEOUT, 0, &timeout); | ||
864 | } | ||
865 | if (socket_mtu > 28) { | ||
866 | SSL_set_options(con, SSL_OP_NO_QUERY_MTU); | ||
867 | SSL_set_mtu(con, socket_mtu - 28); | ||
868 | } else | ||
869 | /* want to do MTU discovery */ | ||
870 | BIO_ctrl(sbio, BIO_CTRL_DGRAM_MTU_DISCOVER, 0, NULL); | ||
871 | } else | ||
872 | sbio = BIO_new_socket(s, BIO_NOCLOSE); | ||
873 | |||
874 | if (nbio_test) { | ||
875 | BIO *test; | ||
876 | |||
877 | test = BIO_new(BIO_f_nbio_test()); | ||
878 | sbio = BIO_push(test, sbio); | ||
879 | } | ||
880 | if (c_debug) { | ||
881 | SSL_set_debug(con, 1); | ||
882 | BIO_set_callback(sbio, bio_dump_callback); | ||
883 | BIO_set_callback_arg(sbio, (char *) bio_c_out); | ||
884 | } | ||
885 | if (c_msg) { | ||
886 | SSL_set_msg_callback(con, msg_cb); | ||
887 | SSL_set_msg_callback_arg(con, bio_c_out); | ||
888 | } | ||
889 | #ifndef OPENSSL_NO_TLSEXT | ||
890 | if (c_tlsextdebug) { | ||
891 | SSL_set_tlsext_debug_callback(con, tlsext_cb); | ||
892 | SSL_set_tlsext_debug_arg(con, bio_c_out); | ||
893 | } | ||
894 | if (c_status_req) { | ||
895 | SSL_set_tlsext_status_type(con, TLSEXT_STATUSTYPE_ocsp); | ||
896 | SSL_CTX_set_tlsext_status_cb(ctx, ocsp_resp_cb); | ||
897 | SSL_CTX_set_tlsext_status_arg(ctx, bio_c_out); | ||
898 | } | ||
899 | #endif | ||
900 | |||
901 | SSL_set_bio(con, sbio, sbio); | ||
902 | SSL_set_connect_state(con); | ||
903 | |||
904 | /* ok, lets connect */ | ||
905 | width = SSL_get_fd(con) + 1; | ||
906 | |||
907 | read_tty = 1; | ||
908 | write_tty = 0; | ||
909 | tty_on = 0; | ||
910 | read_ssl = 1; | ||
911 | write_ssl = 1; | ||
912 | |||
913 | cbuf_len = 0; | ||
914 | cbuf_off = 0; | ||
915 | sbuf_len = 0; | ||
916 | sbuf_off = 0; | ||
917 | |||
918 | /* This is an ugly hack that does a lot of assumptions */ | ||
919 | /* | ||
920 | * We do have to handle multi-line responses which may come in a | ||
921 | * single packet or not. We therefore have to use BIO_gets() which | ||
922 | * does need a buffering BIO. So during the initial chitchat we do | ||
923 | * push a buffering BIO into the chain that is removed again later on | ||
924 | * to not disturb the rest of the s_client operation. | ||
925 | */ | ||
926 | if (starttls_proto == PROTO_SMTP || starttls_proto == PROTO_LMTP) { | ||
927 | int foundit = 0; | ||
928 | BIO *fbio = BIO_new(BIO_f_buffer()); | ||
929 | BIO_push(fbio, sbio); | ||
930 | /* wait for multi-line response to end from SMTP */ | ||
931 | do { | ||
932 | mbuf_len = BIO_gets(fbio, mbuf, BUFSIZZ); | ||
933 | } | ||
934 | while (mbuf_len > 3 && mbuf[3] == '-'); | ||
935 | /* STARTTLS command requires EHLO... */ | ||
936 | BIO_printf(fbio, "%cHLO openssl.client.net\r\n", | ||
937 | starttls_proto == PROTO_SMTP ? 'E' : 'L'); | ||
938 | (void) BIO_flush(fbio); | ||
939 | /* wait for multi-line response to end EHLO SMTP response */ | ||
940 | do { | ||
941 | mbuf_len = BIO_gets(fbio, mbuf, BUFSIZZ); | ||
942 | if (strstr(mbuf, "STARTTLS")) | ||
943 | foundit = 1; | ||
944 | } | ||
945 | while (mbuf_len > 3 && mbuf[3] == '-'); | ||
946 | (void) BIO_flush(fbio); | ||
947 | BIO_pop(fbio); | ||
948 | BIO_free(fbio); | ||
949 | if (!foundit) | ||
950 | BIO_printf(bio_err, | ||
951 | "didn't found starttls in server response," | ||
952 | " try anyway...\n"); | ||
953 | BIO_printf(sbio, "STARTTLS\r\n"); | ||
954 | BIO_read(sbio, sbuf, BUFSIZZ); | ||
955 | } else if (starttls_proto == PROTO_POP3) { | ||
956 | mbuf_len = BIO_read(sbio, mbuf, BUFSIZZ); | ||
957 | if (mbuf_len == -1) { | ||
958 | BIO_printf(bio_err, "BIO_read failed\n"); | ||
959 | goto end; | ||
960 | } | ||
961 | BIO_printf(sbio, "STLS\r\n"); | ||
962 | BIO_read(sbio, sbuf, BUFSIZZ); | ||
963 | } else if (starttls_proto == PROTO_IMAP) { | ||
964 | int foundit = 0; | ||
965 | BIO *fbio = BIO_new(BIO_f_buffer()); | ||
966 | BIO_push(fbio, sbio); | ||
967 | BIO_gets(fbio, mbuf, BUFSIZZ); | ||
968 | /* STARTTLS command requires CAPABILITY... */ | ||
969 | BIO_printf(fbio, ". CAPABILITY\r\n"); | ||
970 | (void) BIO_flush(fbio); | ||
971 | /* wait for multi-line CAPABILITY response */ | ||
972 | do { | ||
973 | mbuf_len = BIO_gets(fbio, mbuf, BUFSIZZ); | ||
974 | if (strstr(mbuf, "STARTTLS")) | ||
975 | foundit = 1; | ||
976 | } | ||
977 | while (mbuf_len > 3 && mbuf[0] != '.'); | ||
978 | (void) BIO_flush(fbio); | ||
979 | BIO_pop(fbio); | ||
980 | BIO_free(fbio); | ||
981 | if (!foundit) | ||
982 | BIO_printf(bio_err, | ||
983 | "didn't found STARTTLS in server response," | ||
984 | " try anyway...\n"); | ||
985 | BIO_printf(sbio, ". STARTTLS\r\n"); | ||
986 | BIO_read(sbio, sbuf, BUFSIZZ); | ||
987 | } else if (starttls_proto == PROTO_FTP) { | ||
988 | BIO *fbio = BIO_new(BIO_f_buffer()); | ||
989 | BIO_push(fbio, sbio); | ||
990 | /* wait for multi-line response to end from FTP */ | ||
991 | do { | ||
992 | mbuf_len = BIO_gets(fbio, mbuf, BUFSIZZ); | ||
993 | } | ||
994 | while (mbuf_len > 3 && mbuf[3] == '-'); | ||
995 | (void) BIO_flush(fbio); | ||
996 | BIO_pop(fbio); | ||
997 | BIO_free(fbio); | ||
998 | BIO_printf(sbio, "AUTH TLS\r\n"); | ||
999 | BIO_read(sbio, sbuf, BUFSIZZ); | ||
1000 | } | ||
1001 | if (starttls_proto == PROTO_XMPP) { | ||
1002 | int seen = 0; | ||
1003 | BIO_printf(sbio, "<stream:stream " | ||
1004 | "xmlns:stream='http://etherx.jabber.org/streams' " | ||
1005 | "xmlns='jabber:client' to='%s' version='1.0'>", host); | ||
1006 | seen = BIO_read(sbio, mbuf, BUFSIZZ); | ||
1007 | mbuf[seen] = 0; | ||
1008 | while (!strstr(mbuf, "<starttls xmlns='urn:ietf:params:xml:ns:xmpp-tls'")) { | ||
1009 | if (strstr(mbuf, "/stream:features>")) | ||
1010 | goto shut; | ||
1011 | seen = BIO_read(sbio, mbuf, BUFSIZZ); | ||
1012 | mbuf[seen] = 0; | ||
1013 | } | ||
1014 | BIO_printf(sbio, "<starttls xmlns='urn:ietf:params:xml:ns:xmpp-tls'/>"); | ||
1015 | seen = BIO_read(sbio, sbuf, BUFSIZZ); | ||
1016 | sbuf[seen] = 0; | ||
1017 | if (!strstr(sbuf, "<proceed")) | ||
1018 | goto shut; | ||
1019 | mbuf[0] = 0; | ||
1020 | } | ||
1021 | for (;;) { | ||
1022 | FD_ZERO(&readfds); | ||
1023 | FD_ZERO(&writefds); | ||
1024 | |||
1025 | if ((SSL_version(con) == DTLS1_VERSION) && | ||
1026 | DTLSv1_get_timeout(con, &timeout)) | ||
1027 | timeoutp = &timeout; | ||
1028 | else | ||
1029 | timeoutp = NULL; | ||
1030 | |||
1031 | if (SSL_in_init(con) && !SSL_total_renegotiations(con)) { | ||
1032 | in_init = 1; | ||
1033 | tty_on = 0; | ||
1034 | } else { | ||
1035 | tty_on = 1; | ||
1036 | if (in_init) { | ||
1037 | in_init = 0; | ||
1038 | if (sess_out) { | ||
1039 | BIO *stmp = BIO_new_file(sess_out, "w"); | ||
1040 | if (stmp) { | ||
1041 | PEM_write_bio_SSL_SESSION(stmp, SSL_get_session(con)); | ||
1042 | BIO_free(stmp); | ||
1043 | } else | ||
1044 | BIO_printf(bio_err, "Error writing session file %s\n", sess_out); | ||
1045 | } | ||
1046 | print_stuff(bio_c_out, con, full_log); | ||
1047 | if (full_log > 0) | ||
1048 | full_log--; | ||
1049 | |||
1050 | if (starttls_proto) { | ||
1051 | BIO_write(bio_err, mbuf, mbuf_len); | ||
1052 | /* We don't need to know any more */ | ||
1053 | starttls_proto = PROTO_OFF; | ||
1054 | } | ||
1055 | if (reconnect) { | ||
1056 | reconnect--; | ||
1057 | BIO_printf(bio_c_out, "drop connection and then reconnect\n"); | ||
1058 | SSL_shutdown(con); | ||
1059 | SSL_set_connect_state(con); | ||
1060 | shutdown(SSL_get_fd(con), SHUT_RD); | ||
1061 | close(SSL_get_fd(con)); | ||
1062 | goto re_start; | ||
1063 | } | ||
1064 | } | ||
1065 | } | ||
1066 | |||
1067 | ssl_pending = read_ssl && SSL_pending(con); | ||
1068 | |||
1069 | /* XXX should add tests for fd_set overflow */ | ||
1070 | |||
1071 | if (!ssl_pending) { | ||
1072 | if (tty_on) { | ||
1073 | if (read_tty) | ||
1074 | FD_SET(fileno(stdin), &readfds); | ||
1075 | if (write_tty) | ||
1076 | FD_SET(fileno(stdout), &writefds); | ||
1077 | } | ||
1078 | if (read_ssl) | ||
1079 | FD_SET(SSL_get_fd(con), &readfds); | ||
1080 | if (write_ssl) | ||
1081 | FD_SET(SSL_get_fd(con), &writefds); | ||
1082 | /* printf("mode tty(%d %d%d) ssl(%d%d)\n", | ||
1083 | tty_on,read_tty,write_tty,read_ssl,write_ssl);*/ | ||
1084 | |||
1085 | i = select(width, &readfds, &writefds, | ||
1086 | NULL, timeoutp); | ||
1087 | if (i < 0) { | ||
1088 | BIO_printf(bio_err, "bad select %d\n", | ||
1089 | errno); | ||
1090 | goto shut; | ||
1091 | /* goto end; */ | ||
1092 | } | ||
1093 | } | ||
1094 | if ((SSL_version(con) == DTLS1_VERSION) && DTLSv1_handle_timeout(con) > 0) { | ||
1095 | BIO_printf(bio_err, "TIMEOUT occured\n"); | ||
1096 | } | ||
1097 | if (!ssl_pending && FD_ISSET(SSL_get_fd(con), &writefds)) { | ||
1098 | k = SSL_write(con, &(cbuf[cbuf_off]), | ||
1099 | (unsigned int) cbuf_len); | ||
1100 | switch (SSL_get_error(con, k)) { | ||
1101 | case SSL_ERROR_NONE: | ||
1102 | cbuf_off += k; | ||
1103 | cbuf_len -= k; | ||
1104 | if (k <= 0) | ||
1105 | goto end; | ||
1106 | /* we have done a write(con,NULL,0); */ | ||
1107 | if (cbuf_len <= 0) { | ||
1108 | read_tty = 1; | ||
1109 | write_ssl = 0; | ||
1110 | } else { /* if (cbuf_len > 0) */ | ||
1111 | read_tty = 0; | ||
1112 | write_ssl = 1; | ||
1113 | } | ||
1114 | break; | ||
1115 | case SSL_ERROR_WANT_WRITE: | ||
1116 | BIO_printf(bio_c_out, "write W BLOCK\n"); | ||
1117 | write_ssl = 1; | ||
1118 | read_tty = 0; | ||
1119 | break; | ||
1120 | case SSL_ERROR_WANT_READ: | ||
1121 | BIO_printf(bio_c_out, "write R BLOCK\n"); | ||
1122 | write_tty = 0; | ||
1123 | read_ssl = 1; | ||
1124 | write_ssl = 0; | ||
1125 | break; | ||
1126 | case SSL_ERROR_WANT_X509_LOOKUP: | ||
1127 | BIO_printf(bio_c_out, "write X BLOCK\n"); | ||
1128 | break; | ||
1129 | case SSL_ERROR_ZERO_RETURN: | ||
1130 | if (cbuf_len != 0) { | ||
1131 | BIO_printf(bio_c_out, "shutdown\n"); | ||
1132 | ret = 0; | ||
1133 | goto shut; | ||
1134 | } else { | ||
1135 | read_tty = 1; | ||
1136 | write_ssl = 0; | ||
1137 | break; | ||
1138 | } | ||
1139 | |||
1140 | case SSL_ERROR_SYSCALL: | ||
1141 | if ((k != 0) || (cbuf_len != 0)) { | ||
1142 | BIO_printf(bio_err, "write:errno=%d\n", | ||
1143 | errno); | ||
1144 | goto shut; | ||
1145 | } else { | ||
1146 | read_tty = 1; | ||
1147 | write_ssl = 0; | ||
1148 | } | ||
1149 | break; | ||
1150 | case SSL_ERROR_SSL: | ||
1151 | ERR_print_errors(bio_err); | ||
1152 | goto shut; | ||
1153 | } | ||
1154 | } else if (!ssl_pending && FD_ISSET(fileno(stdout), &writefds)) { | ||
1155 | i = write(fileno(stdout), &(sbuf[sbuf_off]), sbuf_len); | ||
1156 | |||
1157 | if (i <= 0) { | ||
1158 | BIO_printf(bio_c_out, "DONE\n"); | ||
1159 | ret = 0; | ||
1160 | goto shut; | ||
1161 | /* goto end; */ | ||
1162 | } | ||
1163 | sbuf_len -= i; | ||
1164 | sbuf_off += i; | ||
1165 | if (sbuf_len <= 0) { | ||
1166 | read_ssl = 1; | ||
1167 | write_tty = 0; | ||
1168 | } | ||
1169 | } else if (ssl_pending || FD_ISSET(SSL_get_fd(con), &readfds)) { | ||
1170 | #ifdef RENEG | ||
1171 | { | ||
1172 | static int iiii; | ||
1173 | if (++iiii == 52) { | ||
1174 | SSL_renegotiate(con); | ||
1175 | iiii = 0; | ||
1176 | } | ||
1177 | } | ||
1178 | #endif | ||
1179 | k = SSL_read(con, sbuf, 1024 /* BUFSIZZ */ ); | ||
1180 | |||
1181 | switch (SSL_get_error(con, k)) { | ||
1182 | case SSL_ERROR_NONE: | ||
1183 | if (k <= 0) | ||
1184 | goto end; | ||
1185 | sbuf_off = 0; | ||
1186 | sbuf_len = k; | ||
1187 | |||
1188 | read_ssl = 0; | ||
1189 | write_tty = 1; | ||
1190 | break; | ||
1191 | case SSL_ERROR_WANT_WRITE: | ||
1192 | BIO_printf(bio_c_out, "read W BLOCK\n"); | ||
1193 | write_ssl = 1; | ||
1194 | read_tty = 0; | ||
1195 | break; | ||
1196 | case SSL_ERROR_WANT_READ: | ||
1197 | BIO_printf(bio_c_out, "read R BLOCK\n"); | ||
1198 | write_tty = 0; | ||
1199 | read_ssl = 1; | ||
1200 | if ((read_tty == 0) && (write_ssl == 0)) | ||
1201 | write_ssl = 1; | ||
1202 | break; | ||
1203 | case SSL_ERROR_WANT_X509_LOOKUP: | ||
1204 | BIO_printf(bio_c_out, "read X BLOCK\n"); | ||
1205 | break; | ||
1206 | case SSL_ERROR_SYSCALL: | ||
1207 | ret = errno; | ||
1208 | BIO_printf(bio_err, "read:errno=%d\n", ret); | ||
1209 | goto shut; | ||
1210 | case SSL_ERROR_ZERO_RETURN: | ||
1211 | BIO_printf(bio_c_out, "closed\n"); | ||
1212 | ret = 0; | ||
1213 | goto shut; | ||
1214 | case SSL_ERROR_SSL: | ||
1215 | ERR_print_errors(bio_err); | ||
1216 | goto shut; | ||
1217 | /* break; */ | ||
1218 | } | ||
1219 | } else if (FD_ISSET(fileno(stdin), &readfds)) { | ||
1220 | if (crlf) { | ||
1221 | int j, lf_num; | ||
1222 | |||
1223 | i = read(fileno(stdin), cbuf, BUFSIZZ / 2); | ||
1224 | lf_num = 0; | ||
1225 | /* both loops are skipped when i <= 0 */ | ||
1226 | for (j = 0; j < i; j++) | ||
1227 | if (cbuf[j] == '\n') | ||
1228 | lf_num++; | ||
1229 | for (j = i - 1; j >= 0; j--) { | ||
1230 | cbuf[j + lf_num] = cbuf[j]; | ||
1231 | if (cbuf[j] == '\n') { | ||
1232 | lf_num--; | ||
1233 | i++; | ||
1234 | cbuf[j + lf_num] = '\r'; | ||
1235 | } | ||
1236 | } | ||
1237 | assert(lf_num == 0); | ||
1238 | } else | ||
1239 | i = read(fileno(stdin), cbuf, BUFSIZZ); | ||
1240 | |||
1241 | if ((!c_ign_eof) && ((i <= 0) || (cbuf[0] == 'Q'))) { | ||
1242 | BIO_printf(bio_err, "DONE\n"); | ||
1243 | ret = 0; | ||
1244 | goto shut; | ||
1245 | } | ||
1246 | if ((!c_ign_eof) && (cbuf[0] == 'R')) { | ||
1247 | BIO_printf(bio_err, "RENEGOTIATING\n"); | ||
1248 | SSL_renegotiate(con); | ||
1249 | cbuf_len = 0; | ||
1250 | } else { | ||
1251 | cbuf_len = i; | ||
1252 | cbuf_off = 0; | ||
1253 | } | ||
1254 | |||
1255 | write_ssl = 1; | ||
1256 | read_tty = 0; | ||
1257 | } | ||
1258 | } | ||
1259 | |||
1260 | ret = 0; | ||
1261 | shut: | ||
1262 | if (in_init) | ||
1263 | print_stuff(bio_c_out, con, full_log); | ||
1264 | SSL_shutdown(con); | ||
1265 | shutdown(SSL_get_fd(con), SHUT_RD); | ||
1266 | close(SSL_get_fd(con)); | ||
1267 | end: | ||
1268 | if (con != NULL) { | ||
1269 | if (prexit != 0) | ||
1270 | print_stuff(bio_c_out, con, 1); | ||
1271 | SSL_free(con); | ||
1272 | } | ||
1273 | #if !defined(OPENSSL_NO_TLSEXT) && !defined(OPENSSL_NO_NEXTPROTONEG) | ||
1274 | free(next_proto.data); | ||
1275 | #endif | ||
1276 | if (ctx != NULL) | ||
1277 | SSL_CTX_free(ctx); | ||
1278 | if (cert) | ||
1279 | X509_free(cert); | ||
1280 | if (key) | ||
1281 | EVP_PKEY_free(key); | ||
1282 | free(pass); | ||
1283 | if (vpm) | ||
1284 | X509_VERIFY_PARAM_free(vpm); | ||
1285 | if (cbuf != NULL) { | ||
1286 | OPENSSL_cleanse(cbuf, BUFSIZZ); | ||
1287 | free(cbuf); | ||
1288 | } | ||
1289 | if (sbuf != NULL) { | ||
1290 | OPENSSL_cleanse(sbuf, BUFSIZZ); | ||
1291 | free(sbuf); | ||
1292 | } | ||
1293 | if (mbuf != NULL) { | ||
1294 | OPENSSL_cleanse(mbuf, BUFSIZZ); | ||
1295 | free(mbuf); | ||
1296 | } | ||
1297 | if (bio_c_out != NULL) { | ||
1298 | BIO_free(bio_c_out); | ||
1299 | bio_c_out = NULL; | ||
1300 | } | ||
1301 | |||
1302 | return (ret); | ||
1303 | } | ||
1304 | |||
1305 | |||
1306 | static void | ||
1307 | print_stuff(BIO * bio, SSL * s, int full) | ||
1308 | { | ||
1309 | X509 *peer = NULL; | ||
1310 | char *p; | ||
1311 | static const char *space = " "; | ||
1312 | char buf[BUFSIZ]; | ||
1313 | STACK_OF(X509) * sk; | ||
1314 | STACK_OF(X509_NAME) * sk2; | ||
1315 | const SSL_CIPHER *c; | ||
1316 | X509_NAME *xn; | ||
1317 | int j, i; | ||
1318 | unsigned char *exportedkeymat; | ||
1319 | |||
1320 | if (full) { | ||
1321 | int got_a_chain = 0; | ||
1322 | |||
1323 | sk = SSL_get_peer_cert_chain(s); | ||
1324 | if (sk != NULL) { | ||
1325 | got_a_chain = 1; /* we don't have it for SSL2 | ||
1326 | * (yet) */ | ||
1327 | |||
1328 | BIO_printf(bio, "---\nCertificate chain\n"); | ||
1329 | for (i = 0; i < sk_X509_num(sk); i++) { | ||
1330 | X509_NAME_oneline(X509_get_subject_name( | ||
1331 | sk_X509_value(sk, i)), buf, sizeof buf); | ||
1332 | BIO_printf(bio, "%2d s:%s\n", i, buf); | ||
1333 | X509_NAME_oneline(X509_get_issuer_name( | ||
1334 | sk_X509_value(sk, i)), buf, sizeof buf); | ||
1335 | BIO_printf(bio, " i:%s\n", buf); | ||
1336 | if (c_showcerts) | ||
1337 | PEM_write_bio_X509(bio, sk_X509_value(sk, i)); | ||
1338 | } | ||
1339 | } | ||
1340 | BIO_printf(bio, "---\n"); | ||
1341 | peer = SSL_get_peer_certificate(s); | ||
1342 | if (peer != NULL) { | ||
1343 | BIO_printf(bio, "Server certificate\n"); | ||
1344 | if (!(c_showcerts && got_a_chain)) /* Redundant if we | ||
1345 | * showed the whole | ||
1346 | * chain */ | ||
1347 | PEM_write_bio_X509(bio, peer); | ||
1348 | X509_NAME_oneline(X509_get_subject_name(peer), | ||
1349 | buf, sizeof buf); | ||
1350 | BIO_printf(bio, "subject=%s\n", buf); | ||
1351 | X509_NAME_oneline(X509_get_issuer_name(peer), | ||
1352 | buf, sizeof buf); | ||
1353 | BIO_printf(bio, "issuer=%s\n", buf); | ||
1354 | } else | ||
1355 | BIO_printf(bio, "no peer certificate available\n"); | ||
1356 | |||
1357 | sk2 = SSL_get_client_CA_list(s); | ||
1358 | if ((sk2 != NULL) && (sk_X509_NAME_num(sk2) > 0)) { | ||
1359 | BIO_printf(bio, "---\nAcceptable client certificate CA names\n"); | ||
1360 | for (i = 0; i < sk_X509_NAME_num(sk2); i++) { | ||
1361 | xn = sk_X509_NAME_value(sk2, i); | ||
1362 | X509_NAME_oneline(xn, buf, sizeof(buf)); | ||
1363 | BIO_write(bio, buf, strlen(buf)); | ||
1364 | BIO_write(bio, "\n", 1); | ||
1365 | } | ||
1366 | } else { | ||
1367 | BIO_printf(bio, "---\nNo client certificate CA names sent\n"); | ||
1368 | } | ||
1369 | p = SSL_get_shared_ciphers(s, buf, sizeof buf); | ||
1370 | if (p != NULL) { | ||
1371 | /* | ||
1372 | * This works only for SSL 2. In later protocol | ||
1373 | * versions, the client does not know what other | ||
1374 | * ciphers (in addition to the one to be used in the | ||
1375 | * current connection) the server supports. | ||
1376 | */ | ||
1377 | |||
1378 | BIO_printf(bio, "---\nCiphers common between both SSL endpoints:\n"); | ||
1379 | j = i = 0; | ||
1380 | while (*p) { | ||
1381 | if (*p == ':') { | ||
1382 | BIO_write(bio, space, 15 - j % 25); | ||
1383 | i++; | ||
1384 | j = 0; | ||
1385 | BIO_write(bio, ((i % 3) ? " " : "\n"), 1); | ||
1386 | } else { | ||
1387 | BIO_write(bio, p, 1); | ||
1388 | j++; | ||
1389 | } | ||
1390 | p++; | ||
1391 | } | ||
1392 | BIO_write(bio, "\n", 1); | ||
1393 | } | ||
1394 | BIO_printf(bio, "---\nSSL handshake has read %ld bytes and written %ld bytes\n", | ||
1395 | BIO_number_read(SSL_get_rbio(s)), | ||
1396 | BIO_number_written(SSL_get_wbio(s))); | ||
1397 | } | ||
1398 | BIO_printf(bio, (SSL_cache_hit(s) ? "---\nReused, " : "---\nNew, ")); | ||
1399 | c = SSL_get_current_cipher(s); | ||
1400 | BIO_printf(bio, "%s, Cipher is %s\n", | ||
1401 | SSL_CIPHER_get_version(c), | ||
1402 | SSL_CIPHER_get_name(c)); | ||
1403 | if (peer != NULL) { | ||
1404 | EVP_PKEY *pktmp; | ||
1405 | pktmp = X509_get_pubkey(peer); | ||
1406 | BIO_printf(bio, "Server public key is %d bit\n", | ||
1407 | EVP_PKEY_bits(pktmp)); | ||
1408 | EVP_PKEY_free(pktmp); | ||
1409 | } | ||
1410 | BIO_printf(bio, "Secure Renegotiation IS%s supported\n", | ||
1411 | SSL_get_secure_renegotiation_support(s) ? "" : " NOT"); | ||
1412 | |||
1413 | /* Compression is not supported and will always be none. */ | ||
1414 | BIO_printf(bio, "Compression: NONE\n"); | ||
1415 | BIO_printf(bio, "Expansion: NONE\n"); | ||
1416 | |||
1417 | #ifdef SSL_DEBUG | ||
1418 | { | ||
1419 | /* Print out local port of connection: useful for debugging */ | ||
1420 | int sock; | ||
1421 | struct sockaddr_in ladd; | ||
1422 | socklen_t ladd_size = sizeof(ladd); | ||
1423 | sock = SSL_get_fd(s); | ||
1424 | getsockname(sock, (struct sockaddr *) & ladd, &ladd_size); | ||
1425 | BIO_printf(bio_c_out, "LOCAL PORT is %u\n", ntohs(ladd.sin_port)); | ||
1426 | } | ||
1427 | #endif | ||
1428 | |||
1429 | #if !defined(OPENSSL_NO_TLSEXT) && !defined(OPENSSL_NO_NEXTPROTONEG) | ||
1430 | if (next_proto.status != -1) { | ||
1431 | const unsigned char *proto; | ||
1432 | unsigned int proto_len; | ||
1433 | SSL_get0_next_proto_negotiated(s, &proto, &proto_len); | ||
1434 | BIO_printf(bio, "Next protocol: (%d) ", next_proto.status); | ||
1435 | BIO_write(bio, proto, proto_len); | ||
1436 | BIO_write(bio, "\n", 1); | ||
1437 | } | ||
1438 | #endif | ||
1439 | |||
1440 | #ifndef OPENSSL_NO_SRTP | ||
1441 | { | ||
1442 | SRTP_PROTECTION_PROFILE *srtp_profile = SSL_get_selected_srtp_profile(s); | ||
1443 | |||
1444 | if (srtp_profile) | ||
1445 | BIO_printf(bio, "SRTP Extension negotiated, profile=%s\n", | ||
1446 | srtp_profile->name); | ||
1447 | } | ||
1448 | #endif | ||
1449 | |||
1450 | SSL_SESSION_print(bio, SSL_get_session(s)); | ||
1451 | if (keymatexportlabel != NULL) { | ||
1452 | BIO_printf(bio, "Keying material exporter:\n"); | ||
1453 | BIO_printf(bio, " Label: '%s'\n", keymatexportlabel); | ||
1454 | BIO_printf(bio, " Length: %i bytes\n", keymatexportlen); | ||
1455 | exportedkeymat = malloc(keymatexportlen); | ||
1456 | if (exportedkeymat != NULL) { | ||
1457 | if (!SSL_export_keying_material(s, exportedkeymat, | ||
1458 | keymatexportlen, | ||
1459 | keymatexportlabel, | ||
1460 | strlen(keymatexportlabel), | ||
1461 | NULL, 0, 0)) { | ||
1462 | BIO_printf(bio, " Error\n"); | ||
1463 | } else { | ||
1464 | BIO_printf(bio, " Keying material: "); | ||
1465 | for (i = 0; i < keymatexportlen; i++) | ||
1466 | BIO_printf(bio, "%02X", | ||
1467 | exportedkeymat[i]); | ||
1468 | BIO_printf(bio, "\n"); | ||
1469 | } | ||
1470 | free(exportedkeymat); | ||
1471 | } | ||
1472 | } | ||
1473 | BIO_printf(bio, "---\n"); | ||
1474 | if (peer != NULL) | ||
1475 | X509_free(peer); | ||
1476 | /* flush, or debugging output gets mixed with http response */ | ||
1477 | (void) BIO_flush(bio); | ||
1478 | } | ||
1479 | |||
1480 | #ifndef OPENSSL_NO_TLSEXT | ||
1481 | |||
1482 | static int | ||
1483 | ocsp_resp_cb(SSL * s, void *arg) | ||
1484 | { | ||
1485 | const unsigned char *p; | ||
1486 | int len; | ||
1487 | OCSP_RESPONSE *rsp; | ||
1488 | len = SSL_get_tlsext_status_ocsp_resp(s, &p); | ||
1489 | BIO_puts(arg, "OCSP response: "); | ||
1490 | if (!p) { | ||
1491 | BIO_puts(arg, "no response sent\n"); | ||
1492 | return 1; | ||
1493 | } | ||
1494 | rsp = d2i_OCSP_RESPONSE(NULL, &p, len); | ||
1495 | if (!rsp) { | ||
1496 | BIO_puts(arg, "response parse error\n"); | ||
1497 | BIO_dump_indent(arg, (char *) p, len, 4); | ||
1498 | return 0; | ||
1499 | } | ||
1500 | BIO_puts(arg, "\n======================================\n"); | ||
1501 | OCSP_RESPONSE_print(arg, rsp, 0); | ||
1502 | BIO_puts(arg, "======================================\n"); | ||
1503 | OCSP_RESPONSE_free(rsp); | ||
1504 | return 1; | ||
1505 | } | ||
1506 | |||
1507 | #endif | ||
diff --git a/src/usr.bin/openssl/s_server.c b/src/usr.bin/openssl/s_server.c new file mode 100644 index 0000000000..7fa875c661 --- /dev/null +++ b/src/usr.bin/openssl/s_server.c | |||
@@ -0,0 +1,2154 @@ | |||
1 | /* $OpenBSD: s_server.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
2 | /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) | ||
3 | * All rights reserved. | ||
4 | * | ||
5 | * This package is an SSL implementation written | ||
6 | * by Eric Young (eay@cryptsoft.com). | ||
7 | * The implementation was written so as to conform with Netscapes SSL. | ||
8 | * | ||
9 | * This library is free for commercial and non-commercial use as long as | ||
10 | * the following conditions are aheared to. The following conditions | ||
11 | * apply to all code found in this distribution, be it the RC4, RSA, | ||
12 | * lhash, DES, etc., code; not just the SSL code. The SSL documentation | ||
13 | * included with this distribution is covered by the same copyright terms | ||
14 | * except that the holder is Tim Hudson (tjh@cryptsoft.com). | ||
15 | * | ||
16 | * Copyright remains Eric Young's, and as such any Copyright notices in | ||
17 | * the code are not to be removed. | ||
18 | * If this package is used in a product, Eric Young should be given attribution | ||
19 | * as the author of the parts of the library used. | ||
20 | * This can be in the form of a textual message at program startup or | ||
21 | * in documentation (online or textual) provided with the package. | ||
22 | * | ||
23 | * Redistribution and use in source and binary forms, with or without | ||
24 | * modification, are permitted provided that the following conditions | ||
25 | * are met: | ||
26 | * 1. Redistributions of source code must retain the copyright | ||
27 | * notice, this list of conditions and the following disclaimer. | ||
28 | * 2. Redistributions in binary form must reproduce the above copyright | ||
29 | * notice, this list of conditions and the following disclaimer in the | ||
30 | * documentation and/or other materials provided with the distribution. | ||
31 | * 3. All advertising materials mentioning features or use of this software | ||
32 | * must display the following acknowledgement: | ||
33 | * "This product includes cryptographic software written by | ||
34 | * Eric Young (eay@cryptsoft.com)" | ||
35 | * The word 'cryptographic' can be left out if the rouines from the library | ||
36 | * being used are not cryptographic related :-). | ||
37 | * 4. If you include any Windows specific code (or a derivative thereof) from | ||
38 | * the apps directory (application code) you must include an acknowledgement: | ||
39 | * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" | ||
40 | * | ||
41 | * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND | ||
42 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
43 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
44 | * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE | ||
45 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
46 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
47 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
48 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
49 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
50 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
51 | * SUCH DAMAGE. | ||
52 | * | ||
53 | * The licence and distribution terms for any publically available version or | ||
54 | * derivative of this code cannot be changed. i.e. this code cannot simply be | ||
55 | * copied and put under another distribution licence | ||
56 | * [including the GNU Public Licence.] | ||
57 | */ | ||
58 | /* ==================================================================== | ||
59 | * Copyright (c) 1998-2006 The OpenSSL Project. All rights reserved. | ||
60 | * | ||
61 | * Redistribution and use in source and binary forms, with or without | ||
62 | * modification, are permitted provided that the following conditions | ||
63 | * are met: | ||
64 | * | ||
65 | * 1. Redistributions of source code must retain the above copyright | ||
66 | * notice, this list of conditions and the following disclaimer. | ||
67 | * | ||
68 | * 2. Redistributions in binary form must reproduce the above copyright | ||
69 | * notice, this list of conditions and the following disclaimer in | ||
70 | * the documentation and/or other materials provided with the | ||
71 | * distribution. | ||
72 | * | ||
73 | * 3. All advertising materials mentioning features or use of this | ||
74 | * software must display the following acknowledgment: | ||
75 | * "This product includes software developed by the OpenSSL Project | ||
76 | * for use in the OpenSSL Toolkit. (http://www.openssl.org/)" | ||
77 | * | ||
78 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
79 | * endorse or promote products derived from this software without | ||
80 | * prior written permission. For written permission, please contact | ||
81 | * openssl-core@openssl.org. | ||
82 | * | ||
83 | * 5. Products derived from this software may not be called "OpenSSL" | ||
84 | * nor may "OpenSSL" appear in their names without prior written | ||
85 | * permission of the OpenSSL Project. | ||
86 | * | ||
87 | * 6. Redistributions of any form whatsoever must retain the following | ||
88 | * acknowledgment: | ||
89 | * "This product includes software developed by the OpenSSL Project | ||
90 | * for use in the OpenSSL Toolkit (http://www.openssl.org/)" | ||
91 | * | ||
92 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
93 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
94 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
95 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
96 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
97 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
98 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
99 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
100 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
101 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
102 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
103 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
104 | * ==================================================================== | ||
105 | * | ||
106 | * This product includes cryptographic software written by Eric Young | ||
107 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
108 | * Hudson (tjh@cryptsoft.com). | ||
109 | * | ||
110 | */ | ||
111 | /* ==================================================================== | ||
112 | * Copyright 2002 Sun Microsystems, Inc. ALL RIGHTS RESERVED. | ||
113 | * ECC cipher suite support in OpenSSL originally developed by | ||
114 | * SUN MICROSYSTEMS, INC., and contributed to the OpenSSL project. | ||
115 | */ | ||
116 | /* ==================================================================== | ||
117 | * Copyright 2005 Nokia. All rights reserved. | ||
118 | * | ||
119 | * The portions of the attached software ("Contribution") is developed by | ||
120 | * Nokia Corporation and is licensed pursuant to the OpenSSL open source | ||
121 | * license. | ||
122 | * | ||
123 | * The Contribution, originally written by Mika Kousa and Pasi Eronen of | ||
124 | * Nokia Corporation, consists of the "PSK" (Pre-Shared Key) ciphersuites | ||
125 | * support (see RFC 4279) to OpenSSL. | ||
126 | * | ||
127 | * No patent licenses or other rights except those expressly stated in | ||
128 | * the OpenSSL open source license shall be deemed granted or received | ||
129 | * expressly, by implication, estoppel, or otherwise. | ||
130 | * | ||
131 | * No assurances are provided by Nokia that the Contribution does not | ||
132 | * infringe the patent or other intellectual property rights of any third | ||
133 | * party or that the license provides you with all the necessary rights | ||
134 | * to make use of the Contribution. | ||
135 | * | ||
136 | * THE SOFTWARE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. IN | ||
137 | * ADDITION TO THE DISCLAIMERS INCLUDED IN THE LICENSE, NOKIA | ||
138 | * SPECIFICALLY DISCLAIMS ANY LIABILITY FOR CLAIMS BROUGHT BY YOU OR ANY | ||
139 | * OTHER ENTITY BASED ON INFRINGEMENT OF INTELLECTUAL PROPERTY RIGHTS OR | ||
140 | * OTHERWISE. | ||
141 | */ | ||
142 | |||
143 | /* Until the key-gen callbacks are modified to use newer prototypes, we allow | ||
144 | * deprecated functions for openssl-internal code */ | ||
145 | #ifdef OPENSSL_NO_DEPRECATED | ||
146 | #undef OPENSSL_NO_DEPRECATED | ||
147 | #endif | ||
148 | |||
149 | #include <sys/types.h> | ||
150 | #include <sys/ioctl.h> | ||
151 | #include <sys/select.h> | ||
152 | #include <sys/socket.h> | ||
153 | |||
154 | #include <assert.h> | ||
155 | #include <ctype.h> | ||
156 | #include <stdio.h> | ||
157 | #include <stdlib.h> | ||
158 | #include <limits.h> | ||
159 | #include <string.h> | ||
160 | #include <unistd.h> | ||
161 | |||
162 | #include "apps.h" | ||
163 | |||
164 | #include <openssl/bn.h> | ||
165 | #include <openssl/err.h> | ||
166 | #include <openssl/lhash.h> | ||
167 | #include <openssl/ocsp.h> | ||
168 | #include <openssl/pem.h> | ||
169 | #include <openssl/rand.h> | ||
170 | #include <openssl/ssl.h> | ||
171 | #include <openssl/x509.h> | ||
172 | |||
173 | #ifndef OPENSSL_NO_DH | ||
174 | #include <openssl/dh.h> | ||
175 | #endif | ||
176 | |||
177 | #include <openssl/rsa.h> | ||
178 | |||
179 | #include "s_apps.h" | ||
180 | #include "timeouts.h" | ||
181 | |||
182 | static RSA *tmp_rsa_cb(SSL * s, int is_export, int keylength); | ||
183 | static int sv_body(char *hostname, int s, unsigned char *context); | ||
184 | static int www_body(char *hostname, int s, unsigned char *context); | ||
185 | static void close_accept_socket(void); | ||
186 | static void sv_usage(void); | ||
187 | static int init_ssl_connection(SSL * s); | ||
188 | static void print_stats(BIO * bp, SSL_CTX * ctx); | ||
189 | static int | ||
190 | generate_session_id(const SSL * ssl, unsigned char *id, | ||
191 | unsigned int *id_len); | ||
192 | #ifndef OPENSSL_NO_DH | ||
193 | static DH *load_dh_param(const char *dhfile); | ||
194 | static DH *get_dh512(void); | ||
195 | #endif | ||
196 | |||
197 | static void s_server_init(void); | ||
198 | |||
199 | #ifndef OPENSSL_NO_DH | ||
200 | static unsigned char dh512_p[] = { | ||
201 | 0xDA, 0x58, 0x3C, 0x16, 0xD9, 0x85, 0x22, 0x89, 0xD0, 0xE4, 0xAF, 0x75, | ||
202 | 0x6F, 0x4C, 0xCA, 0x92, 0xDD, 0x4B, 0xE5, 0x33, 0xB8, 0x04, 0xFB, 0x0F, | ||
203 | 0xED, 0x94, 0xEF, 0x9C, 0x8A, 0x44, 0x03, 0xED, 0x57, 0x46, 0x50, 0xD3, | ||
204 | 0x69, 0x99, 0xDB, 0x29, 0xD7, 0x76, 0x27, 0x6B, 0xA2, 0xD3, 0xD4, 0x12, | ||
205 | 0xE2, 0x18, 0xF4, 0xDD, 0x1E, 0x08, 0x4C, 0xF6, 0xD8, 0x00, 0x3E, 0x7C, | ||
206 | 0x47, 0x74, 0xE8, 0x33, | ||
207 | }; | ||
208 | static unsigned char dh512_g[] = { | ||
209 | 0x02, | ||
210 | }; | ||
211 | |||
212 | static DH * | ||
213 | get_dh512(void) | ||
214 | { | ||
215 | DH *dh = NULL; | ||
216 | |||
217 | if ((dh = DH_new()) == NULL) | ||
218 | return (NULL); | ||
219 | dh->p = BN_bin2bn(dh512_p, sizeof(dh512_p), NULL); | ||
220 | dh->g = BN_bin2bn(dh512_g, sizeof(dh512_g), NULL); | ||
221 | if ((dh->p == NULL) || (dh->g == NULL)) | ||
222 | return (NULL); | ||
223 | return (dh); | ||
224 | } | ||
225 | #endif | ||
226 | |||
227 | |||
228 | /* static int load_CA(SSL_CTX *ctx, char *file);*/ | ||
229 | |||
230 | #define BUFSIZZ 16*1024 | ||
231 | static int bufsize = BUFSIZZ; | ||
232 | static int accept_socket = -1; | ||
233 | |||
234 | #define TEST_CERT "server.pem" | ||
235 | #ifndef OPENSSL_NO_TLSEXT | ||
236 | #define TEST_CERT2 "server2.pem" | ||
237 | #endif | ||
238 | |||
239 | extern int verify_depth, verify_return_error; | ||
240 | |||
241 | static char *cipher = NULL; | ||
242 | static int s_server_verify = SSL_VERIFY_NONE; | ||
243 | static int s_server_session_id_context = 1; /* anything will do */ | ||
244 | static const char *s_cert_file = TEST_CERT, *s_key_file = NULL; | ||
245 | #ifndef OPENSSL_NO_TLSEXT | ||
246 | static const char *s_cert_file2 = TEST_CERT2, *s_key_file2 = NULL; | ||
247 | #endif | ||
248 | static char *s_dcert_file = NULL, *s_dkey_file = NULL; | ||
249 | static int s_nbio = 0; | ||
250 | static int s_nbio_test = 0; | ||
251 | int s_crlf = 0; | ||
252 | static SSL_CTX *ctx = NULL; | ||
253 | #ifndef OPENSSL_NO_TLSEXT | ||
254 | static SSL_CTX *ctx2 = NULL; | ||
255 | #endif | ||
256 | static int www = 0; | ||
257 | |||
258 | static BIO *bio_s_out = NULL; | ||
259 | static int s_debug = 0; | ||
260 | #ifndef OPENSSL_NO_TLSEXT | ||
261 | static int s_tlsextdebug = 0; | ||
262 | static int s_tlsextstatus = 0; | ||
263 | static int cert_status_cb(SSL * s, void *arg); | ||
264 | #endif | ||
265 | static int s_msg = 0; | ||
266 | static int s_quiet = 0; | ||
267 | |||
268 | static char *keymatexportlabel = NULL; | ||
269 | static int keymatexportlen = 20; | ||
270 | |||
271 | static int hack = 0; | ||
272 | #ifndef OPENSSL_NO_ENGINE | ||
273 | static char *engine_id = NULL; | ||
274 | #endif | ||
275 | static const char *session_id_prefix = NULL; | ||
276 | |||
277 | static int enable_timeouts = 0; | ||
278 | static long socket_mtu; | ||
279 | #ifndef OPENSSL_NO_DTLS1 | ||
280 | static int cert_chain = 0; | ||
281 | #endif | ||
282 | |||
283 | |||
284 | |||
285 | |||
286 | static void | ||
287 | s_server_init(void) | ||
288 | { | ||
289 | accept_socket = -1; | ||
290 | cipher = NULL; | ||
291 | s_server_verify = SSL_VERIFY_NONE; | ||
292 | s_dcert_file = NULL; | ||
293 | s_dkey_file = NULL; | ||
294 | s_cert_file = TEST_CERT; | ||
295 | s_key_file = NULL; | ||
296 | #ifndef OPENSSL_NO_TLSEXT | ||
297 | s_cert_file2 = TEST_CERT2; | ||
298 | s_key_file2 = NULL; | ||
299 | ctx2 = NULL; | ||
300 | #endif | ||
301 | s_nbio = 0; | ||
302 | s_nbio_test = 0; | ||
303 | ctx = NULL; | ||
304 | www = 0; | ||
305 | |||
306 | bio_s_out = NULL; | ||
307 | s_debug = 0; | ||
308 | s_msg = 0; | ||
309 | s_quiet = 0; | ||
310 | hack = 0; | ||
311 | #ifndef OPENSSL_NO_ENGINE | ||
312 | engine_id = NULL; | ||
313 | #endif | ||
314 | } | ||
315 | |||
316 | static void | ||
317 | sv_usage(void) | ||
318 | { | ||
319 | BIO_printf(bio_err, "usage: s_server [args ...]\n"); | ||
320 | BIO_printf(bio_err, "\n"); | ||
321 | BIO_printf(bio_err, " -accept arg - port to accept on (default is %d)\n", PORT); | ||
322 | BIO_printf(bio_err, " -context arg - set session ID context\n"); | ||
323 | BIO_printf(bio_err, " -verify arg - turn on peer certificate verification\n"); | ||
324 | BIO_printf(bio_err, " -Verify arg - turn on peer certificate verification, must have a cert.\n"); | ||
325 | BIO_printf(bio_err, " -cert arg - certificate file to use\n"); | ||
326 | BIO_printf(bio_err, " (default is %s)\n", TEST_CERT); | ||
327 | BIO_printf(bio_err, " -crl_check - check the peer certificate has not been revoked by its CA.\n" \ | ||
328 | " The CRL(s) are appended to the certificate file\n"); | ||
329 | BIO_printf(bio_err, " -crl_check_all - check the peer certificate has not been revoked by its CA\n" \ | ||
330 | " or any other CRL in the CA chain. CRL(s) are appended to the\n" \ | ||
331 | " the certificate file.\n"); | ||
332 | BIO_printf(bio_err, " -certform arg - certificate format (PEM or DER) PEM default\n"); | ||
333 | BIO_printf(bio_err, " -key arg - Private Key file to use, in cert file if\n"); | ||
334 | BIO_printf(bio_err, " not specified (default is %s)\n", TEST_CERT); | ||
335 | BIO_printf(bio_err, " -keyform arg - key format (PEM, DER or ENGINE) PEM default\n"); | ||
336 | BIO_printf(bio_err, " -pass arg - private key file pass phrase source\n"); | ||
337 | BIO_printf(bio_err, " -dcert arg - second certificate file to use (usually for DSA)\n"); | ||
338 | BIO_printf(bio_err, " -dcertform x - second certificate format (PEM or DER) PEM default\n"); | ||
339 | BIO_printf(bio_err, " -dkey arg - second private key file to use (usually for DSA)\n"); | ||
340 | BIO_printf(bio_err, " -dkeyform arg - second key format (PEM, DER or ENGINE) PEM default\n"); | ||
341 | BIO_printf(bio_err, " -dpass arg - second private key file pass phrase source\n"); | ||
342 | BIO_printf(bio_err, " -dhparam arg - DH parameter file to use, in cert file if not specified\n"); | ||
343 | BIO_printf(bio_err, " or a default set of parameters is used\n"); | ||
344 | BIO_printf(bio_err, " -named_curve arg - Elliptic curve name to use for ephemeral ECDH keys.\n" \ | ||
345 | " Use \"openssl ecparam -list_curves\" for all names\n" \ | ||
346 | " (default is nistp256).\n"); | ||
347 | BIO_printf(bio_err, " -nbio - Run with non-blocking IO\n"); | ||
348 | BIO_printf(bio_err, " -nbio_test - test with the non-blocking test bio\n"); | ||
349 | BIO_printf(bio_err, " -crlf - convert LF from terminal into CRLF\n"); | ||
350 | BIO_printf(bio_err, " -debug - Print more output\n"); | ||
351 | BIO_printf(bio_err, " -msg - Show protocol messages\n"); | ||
352 | BIO_printf(bio_err, " -state - Print the SSL states\n"); | ||
353 | BIO_printf(bio_err, " -CApath arg - PEM format directory of CA's\n"); | ||
354 | BIO_printf(bio_err, " -CAfile arg - PEM format file of CA's\n"); | ||
355 | BIO_printf(bio_err, " -nocert - Don't use any certificates (Anon-DH)\n"); | ||
356 | BIO_printf(bio_err, " -cipher arg - play with 'openssl ciphers' to see what goes here\n"); | ||
357 | BIO_printf(bio_err, " -serverpref - Use server's cipher preferences\n"); | ||
358 | BIO_printf(bio_err, " -quiet - Inhibit printing of session and certificate information\n"); | ||
359 | BIO_printf(bio_err, " -no_tmp_rsa - Do not generate a tmp RSA key\n"); | ||
360 | BIO_printf(bio_err, " -ssl3 - Just talk SSLv3\n"); | ||
361 | BIO_printf(bio_err, " -tls1_2 - Just talk TLSv1.2\n"); | ||
362 | BIO_printf(bio_err, " -tls1_1 - Just talk TLSv1.1\n"); | ||
363 | BIO_printf(bio_err, " -tls1 - Just talk TLSv1\n"); | ||
364 | BIO_printf(bio_err, " -dtls1 - Just talk DTLSv1\n"); | ||
365 | BIO_printf(bio_err, " -timeout - Enable timeouts\n"); | ||
366 | BIO_printf(bio_err, " -mtu - Set link layer MTU\n"); | ||
367 | BIO_printf(bio_err, " -chain - Read a certificate chain\n"); | ||
368 | BIO_printf(bio_err, " -no_ssl2 - Just disable SSLv2\n"); | ||
369 | BIO_printf(bio_err, " -no_ssl3 - Just disable SSLv3\n"); | ||
370 | BIO_printf(bio_err, " -no_tls1 - Just disable TLSv1\n"); | ||
371 | BIO_printf(bio_err, " -no_tls1_1 - Just disable TLSv1.1\n"); | ||
372 | BIO_printf(bio_err, " -no_tls1_2 - Just disable TLSv1.2\n"); | ||
373 | #ifndef OPENSSL_NO_DH | ||
374 | BIO_printf(bio_err, " -no_dhe - Disable ephemeral DH\n"); | ||
375 | #endif | ||
376 | BIO_printf(bio_err, " -no_ecdhe - Disable ephemeral ECDH\n"); | ||
377 | BIO_printf(bio_err, " -bugs - Turn on SSL bug compatibility\n"); | ||
378 | BIO_printf(bio_err, " -www - Respond to a 'GET /' with a status page\n"); | ||
379 | BIO_printf(bio_err, " -WWW - Respond to a 'GET /<path> HTTP/1.0' with file ./<path>\n"); | ||
380 | BIO_printf(bio_err, " -HTTP - Respond to a 'GET /<path> HTTP/1.0' with file ./<path>\n"); | ||
381 | BIO_printf(bio_err, " with the assumption it contains a complete HTTP response.\n"); | ||
382 | #ifndef OPENSSL_NO_ENGINE | ||
383 | BIO_printf(bio_err, " -engine id - Initialise and use the specified engine\n"); | ||
384 | #endif | ||
385 | BIO_printf(bio_err, " -id_prefix arg - Generate SSL/TLS session IDs prefixed by 'arg'\n"); | ||
386 | #ifndef OPENSSL_NO_TLSEXT | ||
387 | BIO_printf(bio_err, " -servername host - servername for HostName TLS extension\n"); | ||
388 | BIO_printf(bio_err, " -servername_fatal - on mismatch send fatal alert (default warning alert)\n"); | ||
389 | BIO_printf(bio_err, " -cert2 arg - certificate file to use for servername\n"); | ||
390 | BIO_printf(bio_err, " (default is %s)\n", TEST_CERT2); | ||
391 | BIO_printf(bio_err, " -key2 arg - Private Key file to use for servername, in cert file if\n"); | ||
392 | BIO_printf(bio_err, " not specified (default is %s)\n", TEST_CERT2); | ||
393 | BIO_printf(bio_err, " -tlsextdebug - hex dump of all TLS extensions received\n"); | ||
394 | BIO_printf(bio_err, " -no_ticket - disable use of RFC4507bis session tickets\n"); | ||
395 | #ifndef OPENSSL_NO_NEXTPROTONEG | ||
396 | BIO_printf(bio_err, " -nextprotoneg arg - set the advertised protocols for the NPN extension (comma-separated list)\n"); | ||
397 | #endif | ||
398 | #ifndef OPENSSL_NO_SRTP | ||
399 | BIO_printf(bio_err, " -use_srtp profiles - Offer SRTP key management with a colon-separated profile list\n"); | ||
400 | #endif | ||
401 | #endif | ||
402 | BIO_printf(bio_err, " -keymatexport label - Export keying material using label\n"); | ||
403 | BIO_printf(bio_err, " -keymatexportlen len - Export len bytes of keying material (default 20)\n"); | ||
404 | } | ||
405 | |||
406 | static int local_argc = 0; | ||
407 | static char **local_argv; | ||
408 | |||
409 | #ifndef OPENSSL_NO_TLSEXT | ||
410 | |||
411 | /* This is a context that we pass to callbacks */ | ||
412 | typedef struct tlsextctx_st { | ||
413 | char *servername; | ||
414 | BIO *biodebug; | ||
415 | int extension_error; | ||
416 | } tlsextctx; | ||
417 | |||
418 | |||
419 | static int | ||
420 | ssl_servername_cb(SSL * s, int *ad, void *arg) | ||
421 | { | ||
422 | tlsextctx *p = (tlsextctx *) arg; | ||
423 | const char *servername = SSL_get_servername(s, TLSEXT_NAMETYPE_host_name); | ||
424 | if (servername && p->biodebug) | ||
425 | BIO_printf(p->biodebug, "Hostname in TLS extension: \"%s\"\n", servername); | ||
426 | |||
427 | if (!p->servername) | ||
428 | return SSL_TLSEXT_ERR_NOACK; | ||
429 | |||
430 | if (servername) { | ||
431 | if (strcmp(servername, p->servername)) | ||
432 | return p->extension_error; | ||
433 | if (ctx2) { | ||
434 | BIO_printf(p->biodebug, "Switching server context.\n"); | ||
435 | SSL_set_SSL_CTX(s, ctx2); | ||
436 | } | ||
437 | } | ||
438 | return SSL_TLSEXT_ERR_OK; | ||
439 | } | ||
440 | |||
441 | /* Structure passed to cert status callback */ | ||
442 | |||
443 | typedef struct tlsextstatusctx_st { | ||
444 | /* Default responder to use */ | ||
445 | char *host, *path, *port; | ||
446 | int use_ssl; | ||
447 | int timeout; | ||
448 | BIO *err; | ||
449 | int verbose; | ||
450 | } tlsextstatusctx; | ||
451 | |||
452 | static tlsextstatusctx tlscstatp = {NULL, NULL, NULL, 0, -1, NULL, 0}; | ||
453 | |||
454 | /* Certificate Status callback. This is called when a client includes a | ||
455 | * certificate status request extension. | ||
456 | * | ||
457 | * This is a simplified version. It examines certificates each time and | ||
458 | * makes one OCSP responder query for each request. | ||
459 | * | ||
460 | * A full version would store details such as the OCSP certificate IDs and | ||
461 | * minimise the number of OCSP responses by caching them until they were | ||
462 | * considered "expired". | ||
463 | */ | ||
464 | |||
465 | static int | ||
466 | cert_status_cb(SSL * s, void *arg) | ||
467 | { | ||
468 | tlsextstatusctx *srctx = arg; | ||
469 | BIO *err = srctx->err; | ||
470 | char *host, *port, *path; | ||
471 | int use_ssl; | ||
472 | unsigned char *rspder = NULL; | ||
473 | int rspderlen; | ||
474 | STACK_OF(OPENSSL_STRING) * aia = NULL; | ||
475 | X509 *x = NULL; | ||
476 | X509_STORE_CTX inctx; | ||
477 | X509_OBJECT obj; | ||
478 | OCSP_REQUEST *req = NULL; | ||
479 | OCSP_RESPONSE *resp = NULL; | ||
480 | OCSP_CERTID *id = NULL; | ||
481 | STACK_OF(X509_EXTENSION) * exts; | ||
482 | int ret = SSL_TLSEXT_ERR_NOACK; | ||
483 | int i; | ||
484 | |||
485 | if (srctx->verbose) | ||
486 | BIO_puts(err, "cert_status: callback called\n"); | ||
487 | /* Build up OCSP query from server certificate */ | ||
488 | x = SSL_get_certificate(s); | ||
489 | aia = X509_get1_ocsp(x); | ||
490 | if (aia) { | ||
491 | if (!OCSP_parse_url(sk_OPENSSL_STRING_value(aia, 0), | ||
492 | &host, &port, &path, &use_ssl)) { | ||
493 | BIO_puts(err, "cert_status: can't parse AIA URL\n"); | ||
494 | goto err; | ||
495 | } | ||
496 | if (srctx->verbose) | ||
497 | BIO_printf(err, "cert_status: AIA URL: %s\n", | ||
498 | sk_OPENSSL_STRING_value(aia, 0)); | ||
499 | } else { | ||
500 | if (!srctx->host) { | ||
501 | BIO_puts(srctx->err, "cert_status: no AIA and no default responder URL\n"); | ||
502 | goto done; | ||
503 | } | ||
504 | host = srctx->host; | ||
505 | path = srctx->path; | ||
506 | port = srctx->port; | ||
507 | use_ssl = srctx->use_ssl; | ||
508 | } | ||
509 | |||
510 | if (!X509_STORE_CTX_init(&inctx, | ||
511 | SSL_CTX_get_cert_store(SSL_get_SSL_CTX(s)), | ||
512 | NULL, NULL)) | ||
513 | goto err; | ||
514 | if (X509_STORE_get_by_subject(&inctx, X509_LU_X509, | ||
515 | X509_get_issuer_name(x), &obj) <= 0) { | ||
516 | BIO_puts(err, "cert_status: Can't retrieve issuer certificate.\n"); | ||
517 | X509_STORE_CTX_cleanup(&inctx); | ||
518 | goto done; | ||
519 | } | ||
520 | req = OCSP_REQUEST_new(); | ||
521 | if (!req) | ||
522 | goto err; | ||
523 | id = OCSP_cert_to_id(NULL, x, obj.data.x509); | ||
524 | X509_free(obj.data.x509); | ||
525 | X509_STORE_CTX_cleanup(&inctx); | ||
526 | if (!id) | ||
527 | goto err; | ||
528 | if (!OCSP_request_add0_id(req, id)) | ||
529 | goto err; | ||
530 | id = NULL; | ||
531 | /* Add any extensions to the request */ | ||
532 | SSL_get_tlsext_status_exts(s, &exts); | ||
533 | for (i = 0; i < sk_X509_EXTENSION_num(exts); i++) { | ||
534 | X509_EXTENSION *ext = sk_X509_EXTENSION_value(exts, i); | ||
535 | if (!OCSP_REQUEST_add_ext(req, ext, -1)) | ||
536 | goto err; | ||
537 | } | ||
538 | resp = process_responder(err, req, host, path, port, use_ssl, NULL, | ||
539 | srctx->timeout); | ||
540 | if (!resp) { | ||
541 | BIO_puts(err, "cert_status: error querying responder\n"); | ||
542 | goto done; | ||
543 | } | ||
544 | rspderlen = i2d_OCSP_RESPONSE(resp, &rspder); | ||
545 | if (rspderlen <= 0) | ||
546 | goto err; | ||
547 | SSL_set_tlsext_status_ocsp_resp(s, rspder, rspderlen); | ||
548 | if (srctx->verbose) { | ||
549 | BIO_puts(err, "cert_status: ocsp response sent:\n"); | ||
550 | OCSP_RESPONSE_print(err, resp, 2); | ||
551 | } | ||
552 | ret = SSL_TLSEXT_ERR_OK; | ||
553 | done: | ||
554 | if (ret != SSL_TLSEXT_ERR_OK) | ||
555 | ERR_print_errors(err); | ||
556 | if (aia) { | ||
557 | free(host); | ||
558 | free(path); | ||
559 | free(port); | ||
560 | X509_email_free(aia); | ||
561 | } | ||
562 | if (id) | ||
563 | OCSP_CERTID_free(id); | ||
564 | if (req) | ||
565 | OCSP_REQUEST_free(req); | ||
566 | if (resp) | ||
567 | OCSP_RESPONSE_free(resp); | ||
568 | return ret; | ||
569 | err: | ||
570 | ret = SSL_TLSEXT_ERR_ALERT_FATAL; | ||
571 | goto done; | ||
572 | } | ||
573 | |||
574 | #ifndef OPENSSL_NO_NEXTPROTONEG | ||
575 | /* This is the context that we pass to next_proto_cb */ | ||
576 | typedef struct tlsextnextprotoctx_st { | ||
577 | unsigned char *data; | ||
578 | unsigned int len; | ||
579 | } tlsextnextprotoctx; | ||
580 | |||
581 | static int | ||
582 | next_proto_cb(SSL * s, const unsigned char **data, unsigned int *len, void *arg) | ||
583 | { | ||
584 | tlsextnextprotoctx *next_proto = arg; | ||
585 | |||
586 | *data = next_proto->data; | ||
587 | *len = next_proto->len; | ||
588 | |||
589 | return SSL_TLSEXT_ERR_OK; | ||
590 | } | ||
591 | #endif /* ndef OPENSSL_NO_NEXTPROTONEG */ | ||
592 | |||
593 | |||
594 | #endif | ||
595 | |||
596 | int s_server_main(int, char **); | ||
597 | |||
598 | #ifndef OPENSSL_NO_SRTP | ||
599 | static char *srtp_profiles = NULL; | ||
600 | #endif | ||
601 | |||
602 | int | ||
603 | s_server_main(int argc, char *argv[]) | ||
604 | { | ||
605 | X509_VERIFY_PARAM *vpm = NULL; | ||
606 | int badarg = 0; | ||
607 | short port = PORT; | ||
608 | char *CApath = NULL, *CAfile = NULL; | ||
609 | unsigned char *context = NULL; | ||
610 | char *dhfile = NULL; | ||
611 | char *named_curve = NULL; | ||
612 | int badop = 0, bugs = 0; | ||
613 | int ret = 1; | ||
614 | int off = 0; | ||
615 | int no_tmp_rsa = 0, no_dhe = 0, no_ecdhe = 0, nocert = 0; | ||
616 | int state = 0; | ||
617 | const SSL_METHOD *meth = NULL; | ||
618 | int socket_type = SOCK_STREAM; | ||
619 | ENGINE *e = NULL; | ||
620 | int s_cert_format = FORMAT_PEM, s_key_format = FORMAT_PEM; | ||
621 | char *passarg = NULL, *pass = NULL; | ||
622 | char *dpassarg = NULL, *dpass = NULL; | ||
623 | int s_dcert_format = FORMAT_PEM, s_dkey_format = FORMAT_PEM; | ||
624 | X509 *s_cert = NULL, *s_dcert = NULL; | ||
625 | EVP_PKEY *s_key = NULL, *s_dkey = NULL; | ||
626 | int no_cache = 0; | ||
627 | const char *errstr = NULL; | ||
628 | #ifndef OPENSSL_NO_TLSEXT | ||
629 | EVP_PKEY *s_key2 = NULL; | ||
630 | X509 *s_cert2 = NULL; | ||
631 | tlsextctx tlsextcbp = {NULL, NULL, SSL_TLSEXT_ERR_ALERT_WARNING}; | ||
632 | #ifndef OPENSSL_NO_NEXTPROTONEG | ||
633 | const char *next_proto_neg_in = NULL; | ||
634 | tlsextnextprotoctx next_proto; | ||
635 | #endif | ||
636 | #endif | ||
637 | meth = SSLv23_server_method(); | ||
638 | |||
639 | local_argc = argc; | ||
640 | local_argv = argv; | ||
641 | |||
642 | s_server_init(); | ||
643 | |||
644 | verify_depth = 0; | ||
645 | s_nbio = 0; | ||
646 | s_nbio_test = 0; | ||
647 | |||
648 | argc--; | ||
649 | argv++; | ||
650 | |||
651 | while (argc >= 1) { | ||
652 | if ((strcmp(*argv, "-port") == 0) || | ||
653 | (strcmp(*argv, "-accept") == 0)) { | ||
654 | if (--argc < 1) | ||
655 | goto bad; | ||
656 | if (!extract_port(*(++argv), &port)) | ||
657 | goto bad; | ||
658 | } else if (strcmp(*argv, "-verify") == 0) { | ||
659 | s_server_verify = SSL_VERIFY_PEER | SSL_VERIFY_CLIENT_ONCE; | ||
660 | if (--argc < 1) | ||
661 | goto bad; | ||
662 | verify_depth = strtonum(*(++argv), 0, INT_MAX, &errstr); | ||
663 | if (errstr) | ||
664 | goto bad; | ||
665 | BIO_printf(bio_err, "verify depth is %d\n", verify_depth); | ||
666 | } else if (strcmp(*argv, "-Verify") == 0) { | ||
667 | s_server_verify = SSL_VERIFY_PEER | SSL_VERIFY_FAIL_IF_NO_PEER_CERT | | ||
668 | SSL_VERIFY_CLIENT_ONCE; | ||
669 | if (--argc < 1) | ||
670 | goto bad; | ||
671 | verify_depth = strtonum(*(++argv), 0, INT_MAX, &errstr); | ||
672 | if (errstr) | ||
673 | goto bad; | ||
674 | BIO_printf(bio_err, "verify depth is %d, must return a certificate\n", verify_depth); | ||
675 | } else if (strcmp(*argv, "-context") == 0) { | ||
676 | if (--argc < 1) | ||
677 | goto bad; | ||
678 | context = (unsigned char *) *(++argv); | ||
679 | } else if (strcmp(*argv, "-cert") == 0) { | ||
680 | if (--argc < 1) | ||
681 | goto bad; | ||
682 | s_cert_file = *(++argv); | ||
683 | } else if (strcmp(*argv, "-certform") == 0) { | ||
684 | if (--argc < 1) | ||
685 | goto bad; | ||
686 | s_cert_format = str2fmt(*(++argv)); | ||
687 | } else if (strcmp(*argv, "-key") == 0) { | ||
688 | if (--argc < 1) | ||
689 | goto bad; | ||
690 | s_key_file = *(++argv); | ||
691 | } else if (strcmp(*argv, "-keyform") == 0) { | ||
692 | if (--argc < 1) | ||
693 | goto bad; | ||
694 | s_key_format = str2fmt(*(++argv)); | ||
695 | } else if (strcmp(*argv, "-pass") == 0) { | ||
696 | if (--argc < 1) | ||
697 | goto bad; | ||
698 | passarg = *(++argv); | ||
699 | } else if (strcmp(*argv, "-dhparam") == 0) { | ||
700 | if (--argc < 1) | ||
701 | goto bad; | ||
702 | dhfile = *(++argv); | ||
703 | } | ||
704 | else if (strcmp(*argv, "-named_curve") == 0) { | ||
705 | if (--argc < 1) | ||
706 | goto bad; | ||
707 | named_curve = *(++argv); | ||
708 | } | ||
709 | else if (strcmp(*argv, "-dcertform") == 0) { | ||
710 | if (--argc < 1) | ||
711 | goto bad; | ||
712 | s_dcert_format = str2fmt(*(++argv)); | ||
713 | } else if (strcmp(*argv, "-dcert") == 0) { | ||
714 | if (--argc < 1) | ||
715 | goto bad; | ||
716 | s_dcert_file = *(++argv); | ||
717 | } else if (strcmp(*argv, "-dkeyform") == 0) { | ||
718 | if (--argc < 1) | ||
719 | goto bad; | ||
720 | s_dkey_format = str2fmt(*(++argv)); | ||
721 | } else if (strcmp(*argv, "-dpass") == 0) { | ||
722 | if (--argc < 1) | ||
723 | goto bad; | ||
724 | dpassarg = *(++argv); | ||
725 | } else if (strcmp(*argv, "-dkey") == 0) { | ||
726 | if (--argc < 1) | ||
727 | goto bad; | ||
728 | s_dkey_file = *(++argv); | ||
729 | } else if (strcmp(*argv, "-nocert") == 0) { | ||
730 | nocert = 1; | ||
731 | } else if (strcmp(*argv, "-CApath") == 0) { | ||
732 | if (--argc < 1) | ||
733 | goto bad; | ||
734 | CApath = *(++argv); | ||
735 | } else if (strcmp(*argv, "-no_cache") == 0) | ||
736 | no_cache = 1; | ||
737 | else if (args_verify(&argv, &argc, &badarg, bio_err, &vpm)) { | ||
738 | if (badarg) | ||
739 | goto bad; | ||
740 | continue; | ||
741 | } else if (strcmp(*argv, "-verify_return_error") == 0) | ||
742 | verify_return_error = 1; | ||
743 | else if (strcmp(*argv, "-serverpref") == 0) { | ||
744 | off |= SSL_OP_CIPHER_SERVER_PREFERENCE; | ||
745 | } else if (strcmp(*argv, "-legacy_renegotiation") == 0) | ||
746 | ; /* no-op */ | ||
747 | else if (strcmp(*argv, "-cipher") == 0) { | ||
748 | if (--argc < 1) | ||
749 | goto bad; | ||
750 | cipher = *(++argv); | ||
751 | } else if (strcmp(*argv, "-CAfile") == 0) { | ||
752 | if (--argc < 1) | ||
753 | goto bad; | ||
754 | CAfile = *(++argv); | ||
755 | } | ||
756 | else if (strcmp(*argv, "-nbio") == 0) { | ||
757 | s_nbio = 1; | ||
758 | } | ||
759 | else if (strcmp(*argv, "-nbio_test") == 0) { | ||
760 | s_nbio = 1; | ||
761 | s_nbio_test = 1; | ||
762 | } else if (strcmp(*argv, "-debug") == 0) { | ||
763 | s_debug = 1; | ||
764 | } | ||
765 | #ifndef OPENSSL_NO_TLSEXT | ||
766 | else if (strcmp(*argv, "-tlsextdebug") == 0) | ||
767 | s_tlsextdebug = 1; | ||
768 | else if (strcmp(*argv, "-status") == 0) | ||
769 | s_tlsextstatus = 1; | ||
770 | else if (strcmp(*argv, "-status_verbose") == 0) { | ||
771 | s_tlsextstatus = 1; | ||
772 | tlscstatp.verbose = 1; | ||
773 | } else if (!strcmp(*argv, "-status_timeout")) { | ||
774 | s_tlsextstatus = 1; | ||
775 | if (--argc < 1) | ||
776 | goto bad; | ||
777 | tlscstatp.timeout = strtonum(*(++argv), 0, INT_MAX, &errstr); | ||
778 | if (errstr) | ||
779 | goto bad; | ||
780 | } else if (!strcmp(*argv, "-status_url")) { | ||
781 | s_tlsextstatus = 1; | ||
782 | if (--argc < 1) | ||
783 | goto bad; | ||
784 | if (!OCSP_parse_url(*(++argv), | ||
785 | &tlscstatp.host, | ||
786 | &tlscstatp.port, | ||
787 | &tlscstatp.path, | ||
788 | &tlscstatp.use_ssl)) { | ||
789 | BIO_printf(bio_err, "Error parsing URL\n"); | ||
790 | goto bad; | ||
791 | } | ||
792 | } | ||
793 | #endif | ||
794 | else if (strcmp(*argv, "-msg") == 0) { | ||
795 | s_msg = 1; | ||
796 | } else if (strcmp(*argv, "-hack") == 0) { | ||
797 | hack = 1; | ||
798 | } else if (strcmp(*argv, "-state") == 0) { | ||
799 | state = 1; | ||
800 | } else if (strcmp(*argv, "-crlf") == 0) { | ||
801 | s_crlf = 1; | ||
802 | } else if (strcmp(*argv, "-quiet") == 0) { | ||
803 | s_quiet = 1; | ||
804 | } else if (strcmp(*argv, "-bugs") == 0) { | ||
805 | bugs = 1; | ||
806 | } else if (strcmp(*argv, "-no_tmp_rsa") == 0) { | ||
807 | no_tmp_rsa = 1; | ||
808 | } else if (strcmp(*argv, "-no_dhe") == 0) { | ||
809 | no_dhe = 1; | ||
810 | } else if (strcmp(*argv, "-no_ecdhe") == 0) { | ||
811 | no_ecdhe = 1; | ||
812 | } | ||
813 | else if (strcmp(*argv, "-www") == 0) { | ||
814 | www = 1; | ||
815 | } else if (strcmp(*argv, "-WWW") == 0) { | ||
816 | www = 2; | ||
817 | } else if (strcmp(*argv, "-HTTP") == 0) { | ||
818 | www = 3; | ||
819 | } else if (strcmp(*argv, "-no_ssl2") == 0) { | ||
820 | off |= SSL_OP_NO_SSLv2; | ||
821 | } else if (strcmp(*argv, "-no_ssl3") == 0) { | ||
822 | off |= SSL_OP_NO_SSLv3; | ||
823 | } else if (strcmp(*argv, "-no_tls1") == 0) { | ||
824 | off |= SSL_OP_NO_TLSv1; | ||
825 | } else if (strcmp(*argv, "-no_tls1_1") == 0) { | ||
826 | off |= SSL_OP_NO_TLSv1_1; | ||
827 | } else if (strcmp(*argv, "-no_tls1_2") == 0) { | ||
828 | off |= SSL_OP_NO_TLSv1_2; | ||
829 | } else if (strcmp(*argv, "-no_comp") == 0) { | ||
830 | off |= SSL_OP_NO_COMPRESSION; | ||
831 | } | ||
832 | #ifndef OPENSSL_NO_TLSEXT | ||
833 | else if (strcmp(*argv, "-no_ticket") == 0) { | ||
834 | off |= SSL_OP_NO_TICKET; | ||
835 | } | ||
836 | #endif | ||
837 | else if (strcmp(*argv, "-ssl3") == 0) { | ||
838 | meth = SSLv3_server_method(); | ||
839 | } else if (strcmp(*argv, "-tls1") == 0) { | ||
840 | meth = TLSv1_server_method(); | ||
841 | } else if (strcmp(*argv, "-tls1_1") == 0) { | ||
842 | meth = TLSv1_1_server_method(); | ||
843 | } else if (strcmp(*argv, "-tls1_2") == 0) { | ||
844 | meth = TLSv1_2_server_method(); | ||
845 | } | ||
846 | #ifndef OPENSSL_NO_DTLS1 | ||
847 | else if (strcmp(*argv, "-dtls1") == 0) { | ||
848 | meth = DTLSv1_server_method(); | ||
849 | socket_type = SOCK_DGRAM; | ||
850 | } else if (strcmp(*argv, "-timeout") == 0) | ||
851 | enable_timeouts = 1; | ||
852 | else if (strcmp(*argv, "-mtu") == 0) { | ||
853 | if (--argc < 1) | ||
854 | goto bad; | ||
855 | socket_mtu = strtonum(*(++argv), 0, LONG_MAX, &errstr); | ||
856 | if (errstr) | ||
857 | goto bad; | ||
858 | } else if (strcmp(*argv, "-chain") == 0) | ||
859 | cert_chain = 1; | ||
860 | #endif | ||
861 | else if (strcmp(*argv, "-id_prefix") == 0) { | ||
862 | if (--argc < 1) | ||
863 | goto bad; | ||
864 | session_id_prefix = *(++argv); | ||
865 | } | ||
866 | #ifndef OPENSSL_NO_ENGINE | ||
867 | else if (strcmp(*argv, "-engine") == 0) { | ||
868 | if (--argc < 1) | ||
869 | goto bad; | ||
870 | engine_id = *(++argv); | ||
871 | } | ||
872 | #endif | ||
873 | #ifndef OPENSSL_NO_TLSEXT | ||
874 | else if (strcmp(*argv, "-servername") == 0) { | ||
875 | if (--argc < 1) | ||
876 | goto bad; | ||
877 | tlsextcbp.servername = *(++argv); | ||
878 | } else if (strcmp(*argv, "-servername_fatal") == 0) { | ||
879 | tlsextcbp.extension_error = SSL_TLSEXT_ERR_ALERT_FATAL; | ||
880 | } else if (strcmp(*argv, "-cert2") == 0) { | ||
881 | if (--argc < 1) | ||
882 | goto bad; | ||
883 | s_cert_file2 = *(++argv); | ||
884 | } else if (strcmp(*argv, "-key2") == 0) { | ||
885 | if (--argc < 1) | ||
886 | goto bad; | ||
887 | s_key_file2 = *(++argv); | ||
888 | } | ||
889 | #ifndef OPENSSL_NO_NEXTPROTONEG | ||
890 | else if (strcmp(*argv, "-nextprotoneg") == 0) { | ||
891 | if (--argc < 1) | ||
892 | goto bad; | ||
893 | next_proto_neg_in = *(++argv); | ||
894 | } | ||
895 | #endif | ||
896 | #endif | ||
897 | #ifndef OPENSSL_NO_SRTP | ||
898 | else if (strcmp(*argv, "-use_srtp") == 0) { | ||
899 | if (--argc < 1) | ||
900 | goto bad; | ||
901 | srtp_profiles = *(++argv); | ||
902 | } | ||
903 | #endif | ||
904 | else if (strcmp(*argv, "-keymatexport") == 0) { | ||
905 | if (--argc < 1) | ||
906 | goto bad; | ||
907 | keymatexportlabel = *(++argv); | ||
908 | } else if (strcmp(*argv, "-keymatexportlen") == 0) { | ||
909 | if (--argc < 1) | ||
910 | goto bad; | ||
911 | keymatexportlen = strtonum(*(++argv), 1, INT_MAX, &errstr); | ||
912 | if (errstr) | ||
913 | goto bad; | ||
914 | } else { | ||
915 | BIO_printf(bio_err, "unknown option %s\n", *argv); | ||
916 | badop = 1; | ||
917 | break; | ||
918 | } | ||
919 | argc--; | ||
920 | argv++; | ||
921 | } | ||
922 | if (badop) { | ||
923 | bad: | ||
924 | if (errstr) | ||
925 | BIO_printf(bio_err, "invalid argument %s: %s\n", | ||
926 | *argv, errstr); | ||
927 | else | ||
928 | sv_usage(); | ||
929 | goto end; | ||
930 | } | ||
931 | |||
932 | #ifndef OPENSSL_NO_ENGINE | ||
933 | e = setup_engine(bio_err, engine_id, 1); | ||
934 | #endif | ||
935 | |||
936 | if (!app_passwd(bio_err, passarg, dpassarg, &pass, &dpass)) { | ||
937 | BIO_printf(bio_err, "Error getting password\n"); | ||
938 | goto end; | ||
939 | } | ||
940 | if (s_key_file == NULL) | ||
941 | s_key_file = s_cert_file; | ||
942 | #ifndef OPENSSL_NO_TLSEXT | ||
943 | if (s_key_file2 == NULL) | ||
944 | s_key_file2 = s_cert_file2; | ||
945 | #endif | ||
946 | |||
947 | if (nocert == 0) { | ||
948 | s_key = load_key(bio_err, s_key_file, s_key_format, 0, pass, e, | ||
949 | "server certificate private key file"); | ||
950 | if (!s_key) { | ||
951 | ERR_print_errors(bio_err); | ||
952 | goto end; | ||
953 | } | ||
954 | s_cert = load_cert(bio_err, s_cert_file, s_cert_format, | ||
955 | NULL, e, "server certificate file"); | ||
956 | |||
957 | if (!s_cert) { | ||
958 | ERR_print_errors(bio_err); | ||
959 | goto end; | ||
960 | } | ||
961 | #ifndef OPENSSL_NO_TLSEXT | ||
962 | if (tlsextcbp.servername) { | ||
963 | s_key2 = load_key(bio_err, s_key_file2, s_key_format, 0, pass, e, | ||
964 | "second server certificate private key file"); | ||
965 | if (!s_key2) { | ||
966 | ERR_print_errors(bio_err); | ||
967 | goto end; | ||
968 | } | ||
969 | s_cert2 = load_cert(bio_err, s_cert_file2, s_cert_format, | ||
970 | NULL, e, "second server certificate file"); | ||
971 | |||
972 | if (!s_cert2) { | ||
973 | ERR_print_errors(bio_err); | ||
974 | goto end; | ||
975 | } | ||
976 | } | ||
977 | #endif | ||
978 | } | ||
979 | #if !defined(OPENSSL_NO_TLSEXT) && !defined(OPENSSL_NO_NEXTPROTONEG) | ||
980 | if (next_proto_neg_in) { | ||
981 | unsigned short len; | ||
982 | next_proto.data = next_protos_parse(&len, next_proto_neg_in); | ||
983 | if (next_proto.data == NULL) | ||
984 | goto end; | ||
985 | next_proto.len = len; | ||
986 | } else { | ||
987 | next_proto.data = NULL; | ||
988 | } | ||
989 | #endif | ||
990 | |||
991 | |||
992 | if (s_dcert_file) { | ||
993 | |||
994 | if (s_dkey_file == NULL) | ||
995 | s_dkey_file = s_dcert_file; | ||
996 | |||
997 | s_dkey = load_key(bio_err, s_dkey_file, s_dkey_format, | ||
998 | 0, dpass, e, | ||
999 | "second certificate private key file"); | ||
1000 | if (!s_dkey) { | ||
1001 | ERR_print_errors(bio_err); | ||
1002 | goto end; | ||
1003 | } | ||
1004 | s_dcert = load_cert(bio_err, s_dcert_file, s_dcert_format, | ||
1005 | NULL, e, "second server certificate file"); | ||
1006 | |||
1007 | if (!s_dcert) { | ||
1008 | ERR_print_errors(bio_err); | ||
1009 | goto end; | ||
1010 | } | ||
1011 | } | ||
1012 | if (bio_s_out == NULL) { | ||
1013 | if (s_quiet && !s_debug && !s_msg) { | ||
1014 | bio_s_out = BIO_new(BIO_s_null()); | ||
1015 | } else { | ||
1016 | if (bio_s_out == NULL) | ||
1017 | bio_s_out = BIO_new_fp(stdout, BIO_NOCLOSE); | ||
1018 | } | ||
1019 | } | ||
1020 | if (nocert) | ||
1021 | { | ||
1022 | s_cert_file = NULL; | ||
1023 | s_key_file = NULL; | ||
1024 | s_dcert_file = NULL; | ||
1025 | s_dkey_file = NULL; | ||
1026 | #ifndef OPENSSL_NO_TLSEXT | ||
1027 | s_cert_file2 = NULL; | ||
1028 | s_key_file2 = NULL; | ||
1029 | #endif | ||
1030 | } | ||
1031 | ctx = SSL_CTX_new(meth); | ||
1032 | if (ctx == NULL) { | ||
1033 | ERR_print_errors(bio_err); | ||
1034 | goto end; | ||
1035 | } | ||
1036 | if (session_id_prefix) { | ||
1037 | if (strlen(session_id_prefix) >= 32) | ||
1038 | BIO_printf(bio_err, | ||
1039 | "warning: id_prefix is too long, only one new session will be possible\n"); | ||
1040 | else if (strlen(session_id_prefix) >= 16) | ||
1041 | BIO_printf(bio_err, | ||
1042 | "warning: id_prefix is too long if you use SSLv2\n"); | ||
1043 | if (!SSL_CTX_set_generate_session_id(ctx, generate_session_id)) { | ||
1044 | BIO_printf(bio_err, "error setting 'id_prefix'\n"); | ||
1045 | ERR_print_errors(bio_err); | ||
1046 | goto end; | ||
1047 | } | ||
1048 | BIO_printf(bio_err, "id_prefix '%s' set.\n", session_id_prefix); | ||
1049 | } | ||
1050 | SSL_CTX_set_quiet_shutdown(ctx, 1); | ||
1051 | if (bugs) | ||
1052 | SSL_CTX_set_options(ctx, SSL_OP_ALL); | ||
1053 | if (hack) | ||
1054 | SSL_CTX_set_options(ctx, SSL_OP_NETSCAPE_DEMO_CIPHER_CHANGE_BUG); | ||
1055 | SSL_CTX_set_options(ctx, off); | ||
1056 | /* | ||
1057 | * DTLS: partial reads end up discarding unread UDP bytes :-( Setting | ||
1058 | * read ahead solves this problem. | ||
1059 | */ | ||
1060 | if (socket_type == SOCK_DGRAM) | ||
1061 | SSL_CTX_set_read_ahead(ctx, 1); | ||
1062 | |||
1063 | if (state) | ||
1064 | SSL_CTX_set_info_callback(ctx, apps_ssl_info_callback); | ||
1065 | if (no_cache) | ||
1066 | SSL_CTX_set_session_cache_mode(ctx, SSL_SESS_CACHE_OFF); | ||
1067 | else | ||
1068 | SSL_CTX_sess_set_cache_size(ctx, 128); | ||
1069 | |||
1070 | #ifndef OPENSSL_NO_SRTP | ||
1071 | if (srtp_profiles != NULL) | ||
1072 | SSL_CTX_set_tlsext_use_srtp(ctx, srtp_profiles); | ||
1073 | #endif | ||
1074 | |||
1075 | |||
1076 | if ((!SSL_CTX_load_verify_locations(ctx, CAfile, CApath)) || | ||
1077 | (!SSL_CTX_set_default_verify_paths(ctx))) { | ||
1078 | /* BIO_printf(bio_err,"X509_load_verify_locations\n"); */ | ||
1079 | ERR_print_errors(bio_err); | ||
1080 | /* goto end; */ | ||
1081 | } | ||
1082 | if (vpm) | ||
1083 | SSL_CTX_set1_param(ctx, vpm); | ||
1084 | |||
1085 | #ifndef OPENSSL_NO_TLSEXT | ||
1086 | if (s_cert2) { | ||
1087 | ctx2 = SSL_CTX_new(meth); | ||
1088 | if (ctx2 == NULL) { | ||
1089 | ERR_print_errors(bio_err); | ||
1090 | goto end; | ||
1091 | } | ||
1092 | } | ||
1093 | if (ctx2) { | ||
1094 | BIO_printf(bio_s_out, "Setting secondary ctx parameters\n"); | ||
1095 | |||
1096 | if (session_id_prefix) { | ||
1097 | if (strlen(session_id_prefix) >= 32) | ||
1098 | BIO_printf(bio_err, | ||
1099 | "warning: id_prefix is too long, only one new session will be possible\n"); | ||
1100 | else if (strlen(session_id_prefix) >= 16) | ||
1101 | BIO_printf(bio_err, | ||
1102 | "warning: id_prefix is too long if you use SSLv2\n"); | ||
1103 | if (!SSL_CTX_set_generate_session_id(ctx2, generate_session_id)) { | ||
1104 | BIO_printf(bio_err, "error setting 'id_prefix'\n"); | ||
1105 | ERR_print_errors(bio_err); | ||
1106 | goto end; | ||
1107 | } | ||
1108 | BIO_printf(bio_err, "id_prefix '%s' set.\n", session_id_prefix); | ||
1109 | } | ||
1110 | SSL_CTX_set_quiet_shutdown(ctx2, 1); | ||
1111 | if (bugs) | ||
1112 | SSL_CTX_set_options(ctx2, SSL_OP_ALL); | ||
1113 | if (hack) | ||
1114 | SSL_CTX_set_options(ctx2, SSL_OP_NETSCAPE_DEMO_CIPHER_CHANGE_BUG); | ||
1115 | SSL_CTX_set_options(ctx2, off); | ||
1116 | /* | ||
1117 | * DTLS: partial reads end up discarding unread UDP bytes :-( | ||
1118 | * Setting read ahead solves this problem. | ||
1119 | */ | ||
1120 | if (socket_type == SOCK_DGRAM) | ||
1121 | SSL_CTX_set_read_ahead(ctx2, 1); | ||
1122 | |||
1123 | if (state) | ||
1124 | SSL_CTX_set_info_callback(ctx2, apps_ssl_info_callback); | ||
1125 | |||
1126 | if (no_cache) | ||
1127 | SSL_CTX_set_session_cache_mode(ctx2, SSL_SESS_CACHE_OFF); | ||
1128 | else | ||
1129 | SSL_CTX_sess_set_cache_size(ctx2, 128); | ||
1130 | |||
1131 | if ((!SSL_CTX_load_verify_locations(ctx2, CAfile, CApath)) || | ||
1132 | (!SSL_CTX_set_default_verify_paths(ctx2))) { | ||
1133 | ERR_print_errors(bio_err); | ||
1134 | } | ||
1135 | if (vpm) | ||
1136 | SSL_CTX_set1_param(ctx2, vpm); | ||
1137 | } | ||
1138 | #ifndef OPENSSL_NO_NEXTPROTONEG | ||
1139 | if (next_proto.data) | ||
1140 | SSL_CTX_set_next_protos_advertised_cb(ctx, next_proto_cb, &next_proto); | ||
1141 | #endif | ||
1142 | #endif | ||
1143 | |||
1144 | #ifndef OPENSSL_NO_DH | ||
1145 | if (!no_dhe) { | ||
1146 | DH *dh = NULL; | ||
1147 | |||
1148 | if (dhfile) | ||
1149 | dh = load_dh_param(dhfile); | ||
1150 | else if (s_cert_file) | ||
1151 | dh = load_dh_param(s_cert_file); | ||
1152 | |||
1153 | if (dh != NULL) { | ||
1154 | BIO_printf(bio_s_out, "Setting temp DH parameters\n"); | ||
1155 | } else { | ||
1156 | BIO_printf(bio_s_out, "Using default temp DH parameters\n"); | ||
1157 | dh = get_dh512(); | ||
1158 | } | ||
1159 | (void) BIO_flush(bio_s_out); | ||
1160 | |||
1161 | SSL_CTX_set_tmp_dh(ctx, dh); | ||
1162 | #ifndef OPENSSL_NO_TLSEXT | ||
1163 | if (ctx2) { | ||
1164 | if (!dhfile) { | ||
1165 | DH *dh2 = load_dh_param(s_cert_file2); | ||
1166 | if (dh2 != NULL) { | ||
1167 | BIO_printf(bio_s_out, "Setting temp DH parameters\n"); | ||
1168 | (void) BIO_flush(bio_s_out); | ||
1169 | |||
1170 | DH_free(dh); | ||
1171 | dh = dh2; | ||
1172 | } | ||
1173 | } | ||
1174 | SSL_CTX_set_tmp_dh(ctx2, dh); | ||
1175 | } | ||
1176 | #endif | ||
1177 | DH_free(dh); | ||
1178 | } | ||
1179 | #endif | ||
1180 | |||
1181 | if (!no_ecdhe) { | ||
1182 | EC_KEY *ecdh = NULL; | ||
1183 | |||
1184 | if (named_curve) { | ||
1185 | int nid = OBJ_sn2nid(named_curve); | ||
1186 | |||
1187 | if (nid == 0) { | ||
1188 | BIO_printf(bio_err, "unknown curve name (%s)\n", | ||
1189 | named_curve); | ||
1190 | goto end; | ||
1191 | } | ||
1192 | ecdh = EC_KEY_new_by_curve_name(nid); | ||
1193 | if (ecdh == NULL) { | ||
1194 | BIO_printf(bio_err, "unable to create curve (%s)\n", | ||
1195 | named_curve); | ||
1196 | goto end; | ||
1197 | } | ||
1198 | } | ||
1199 | if (ecdh != NULL) { | ||
1200 | BIO_printf(bio_s_out, "Setting temp ECDH parameters\n"); | ||
1201 | } else { | ||
1202 | BIO_printf(bio_s_out, "Using default temp ECDH parameters\n"); | ||
1203 | ecdh = EC_KEY_new_by_curve_name(NID_X9_62_prime256v1); | ||
1204 | if (ecdh == NULL) { | ||
1205 | BIO_printf(bio_err, "unable to create curve (nistp256)\n"); | ||
1206 | goto end; | ||
1207 | } | ||
1208 | } | ||
1209 | (void) BIO_flush(bio_s_out); | ||
1210 | |||
1211 | SSL_CTX_set_tmp_ecdh(ctx, ecdh); | ||
1212 | #ifndef OPENSSL_NO_TLSEXT | ||
1213 | if (ctx2) | ||
1214 | SSL_CTX_set_tmp_ecdh(ctx2, ecdh); | ||
1215 | #endif | ||
1216 | EC_KEY_free(ecdh); | ||
1217 | } | ||
1218 | |||
1219 | if (!set_cert_key_stuff(ctx, s_cert, s_key)) | ||
1220 | goto end; | ||
1221 | #ifndef OPENSSL_NO_TLSEXT | ||
1222 | if (ctx2 && !set_cert_key_stuff(ctx2, s_cert2, s_key2)) | ||
1223 | goto end; | ||
1224 | #endif | ||
1225 | if (s_dcert != NULL) { | ||
1226 | if (!set_cert_key_stuff(ctx, s_dcert, s_dkey)) | ||
1227 | goto end; | ||
1228 | } | ||
1229 | if (!no_tmp_rsa) { | ||
1230 | SSL_CTX_set_tmp_rsa_callback(ctx, tmp_rsa_cb); | ||
1231 | #ifndef OPENSSL_NO_TLSEXT | ||
1232 | if (ctx2) | ||
1233 | SSL_CTX_set_tmp_rsa_callback(ctx2, tmp_rsa_cb); | ||
1234 | #endif | ||
1235 | } | ||
1236 | |||
1237 | |||
1238 | if (cipher != NULL) { | ||
1239 | if (!SSL_CTX_set_cipher_list(ctx, cipher)) { | ||
1240 | BIO_printf(bio_err, "error setting cipher list\n"); | ||
1241 | ERR_print_errors(bio_err); | ||
1242 | goto end; | ||
1243 | } | ||
1244 | #ifndef OPENSSL_NO_TLSEXT | ||
1245 | if (ctx2 && !SSL_CTX_set_cipher_list(ctx2, cipher)) { | ||
1246 | BIO_printf(bio_err, "error setting cipher list\n"); | ||
1247 | ERR_print_errors(bio_err); | ||
1248 | goto end; | ||
1249 | } | ||
1250 | #endif | ||
1251 | } | ||
1252 | SSL_CTX_set_verify(ctx, s_server_verify, verify_callback); | ||
1253 | SSL_CTX_set_session_id_context(ctx, (void *) &s_server_session_id_context, | ||
1254 | sizeof s_server_session_id_context); | ||
1255 | |||
1256 | /* Set DTLS cookie generation and verification callbacks */ | ||
1257 | SSL_CTX_set_cookie_generate_cb(ctx, generate_cookie_callback); | ||
1258 | SSL_CTX_set_cookie_verify_cb(ctx, verify_cookie_callback); | ||
1259 | |||
1260 | #ifndef OPENSSL_NO_TLSEXT | ||
1261 | if (ctx2) { | ||
1262 | SSL_CTX_set_verify(ctx2, s_server_verify, verify_callback); | ||
1263 | SSL_CTX_set_session_id_context(ctx2, (void *) &s_server_session_id_context, | ||
1264 | sizeof s_server_session_id_context); | ||
1265 | |||
1266 | tlsextcbp.biodebug = bio_s_out; | ||
1267 | SSL_CTX_set_tlsext_servername_callback(ctx2, ssl_servername_cb); | ||
1268 | SSL_CTX_set_tlsext_servername_arg(ctx2, &tlsextcbp); | ||
1269 | SSL_CTX_set_tlsext_servername_callback(ctx, ssl_servername_cb); | ||
1270 | SSL_CTX_set_tlsext_servername_arg(ctx, &tlsextcbp); | ||
1271 | } | ||
1272 | #endif | ||
1273 | |||
1274 | if (CAfile != NULL) { | ||
1275 | SSL_CTX_set_client_CA_list(ctx, SSL_load_client_CA_file(CAfile)); | ||
1276 | #ifndef OPENSSL_NO_TLSEXT | ||
1277 | if (ctx2) | ||
1278 | SSL_CTX_set_client_CA_list(ctx2, SSL_load_client_CA_file(CAfile)); | ||
1279 | #endif | ||
1280 | } | ||
1281 | BIO_printf(bio_s_out, "ACCEPT\n"); | ||
1282 | (void) BIO_flush(bio_s_out); | ||
1283 | if (www) | ||
1284 | do_server(port, socket_type, &accept_socket, www_body, context); | ||
1285 | else | ||
1286 | do_server(port, socket_type, &accept_socket, sv_body, context); | ||
1287 | print_stats(bio_s_out, ctx); | ||
1288 | ret = 0; | ||
1289 | end: | ||
1290 | if (ctx != NULL) | ||
1291 | SSL_CTX_free(ctx); | ||
1292 | if (s_cert) | ||
1293 | X509_free(s_cert); | ||
1294 | if (s_dcert) | ||
1295 | X509_free(s_dcert); | ||
1296 | if (s_key) | ||
1297 | EVP_PKEY_free(s_key); | ||
1298 | if (s_dkey) | ||
1299 | EVP_PKEY_free(s_dkey); | ||
1300 | free(pass); | ||
1301 | free(dpass); | ||
1302 | if (vpm) | ||
1303 | X509_VERIFY_PARAM_free(vpm); | ||
1304 | #ifndef OPENSSL_NO_TLSEXT | ||
1305 | free(tlscstatp.host); | ||
1306 | free(tlscstatp.port); | ||
1307 | free(tlscstatp.path); | ||
1308 | if (ctx2 != NULL) | ||
1309 | SSL_CTX_free(ctx2); | ||
1310 | if (s_cert2) | ||
1311 | X509_free(s_cert2); | ||
1312 | if (s_key2) | ||
1313 | EVP_PKEY_free(s_key2); | ||
1314 | #endif | ||
1315 | if (bio_s_out != NULL) { | ||
1316 | BIO_free(bio_s_out); | ||
1317 | bio_s_out = NULL; | ||
1318 | } | ||
1319 | |||
1320 | return (ret); | ||
1321 | } | ||
1322 | |||
1323 | static void | ||
1324 | print_stats(BIO * bio, SSL_CTX * ssl_ctx) | ||
1325 | { | ||
1326 | BIO_printf(bio, "%4ld items in the session cache\n", | ||
1327 | SSL_CTX_sess_number(ssl_ctx)); | ||
1328 | BIO_printf(bio, "%4ld client connects (SSL_connect())\n", | ||
1329 | SSL_CTX_sess_connect(ssl_ctx)); | ||
1330 | BIO_printf(bio, "%4ld client renegotiates (SSL_connect())\n", | ||
1331 | SSL_CTX_sess_connect_renegotiate(ssl_ctx)); | ||
1332 | BIO_printf(bio, "%4ld client connects that finished\n", | ||
1333 | SSL_CTX_sess_connect_good(ssl_ctx)); | ||
1334 | BIO_printf(bio, "%4ld server accepts (SSL_accept())\n", | ||
1335 | SSL_CTX_sess_accept(ssl_ctx)); | ||
1336 | BIO_printf(bio, "%4ld server renegotiates (SSL_accept())\n", | ||
1337 | SSL_CTX_sess_accept_renegotiate(ssl_ctx)); | ||
1338 | BIO_printf(bio, "%4ld server accepts that finished\n", | ||
1339 | SSL_CTX_sess_accept_good(ssl_ctx)); | ||
1340 | BIO_printf(bio, "%4ld session cache hits\n", SSL_CTX_sess_hits(ssl_ctx)); | ||
1341 | BIO_printf(bio, "%4ld session cache misses\n", SSL_CTX_sess_misses(ssl_ctx)); | ||
1342 | BIO_printf(bio, "%4ld session cache timeouts\n", SSL_CTX_sess_timeouts(ssl_ctx)); | ||
1343 | BIO_printf(bio, "%4ld callback cache hits\n", SSL_CTX_sess_cb_hits(ssl_ctx)); | ||
1344 | BIO_printf(bio, "%4ld cache full overflows (%ld allowed)\n", | ||
1345 | SSL_CTX_sess_cache_full(ssl_ctx), | ||
1346 | SSL_CTX_sess_get_cache_size(ssl_ctx)); | ||
1347 | } | ||
1348 | |||
1349 | static int | ||
1350 | sv_body(char *hostname, int s, unsigned char *context) | ||
1351 | { | ||
1352 | char *buf = NULL; | ||
1353 | fd_set readfds; | ||
1354 | int ret = 1, width; | ||
1355 | int k, i; | ||
1356 | unsigned long l; | ||
1357 | SSL *con = NULL; | ||
1358 | BIO *sbio; | ||
1359 | struct timeval timeout; | ||
1360 | struct timeval *timeoutp; | ||
1361 | |||
1362 | if ((buf = malloc(bufsize)) == NULL) { | ||
1363 | BIO_printf(bio_err, "out of memory\n"); | ||
1364 | goto err; | ||
1365 | } | ||
1366 | if (s_nbio) { | ||
1367 | unsigned long sl = 1; | ||
1368 | |||
1369 | if (!s_quiet) | ||
1370 | BIO_printf(bio_err, "turning on non blocking io\n"); | ||
1371 | if (BIO_socket_ioctl(s, FIONBIO, &sl) < 0) | ||
1372 | ERR_print_errors(bio_err); | ||
1373 | } | ||
1374 | |||
1375 | if (con == NULL) { | ||
1376 | con = SSL_new(ctx); | ||
1377 | #ifndef OPENSSL_NO_TLSEXT | ||
1378 | if (s_tlsextdebug) { | ||
1379 | SSL_set_tlsext_debug_callback(con, tlsext_cb); | ||
1380 | SSL_set_tlsext_debug_arg(con, bio_s_out); | ||
1381 | } | ||
1382 | if (s_tlsextstatus) { | ||
1383 | SSL_CTX_set_tlsext_status_cb(ctx, cert_status_cb); | ||
1384 | tlscstatp.err = bio_err; | ||
1385 | SSL_CTX_set_tlsext_status_arg(ctx, &tlscstatp); | ||
1386 | } | ||
1387 | #endif | ||
1388 | if (context) | ||
1389 | SSL_set_session_id_context(con, context, | ||
1390 | strlen((char *) context)); | ||
1391 | } | ||
1392 | SSL_clear(con); | ||
1393 | |||
1394 | if (SSL_version(con) == DTLS1_VERSION) { | ||
1395 | |||
1396 | sbio = BIO_new_dgram(s, BIO_NOCLOSE); | ||
1397 | |||
1398 | if (enable_timeouts) { | ||
1399 | timeout.tv_sec = 0; | ||
1400 | timeout.tv_usec = DGRAM_RCV_TIMEOUT; | ||
1401 | BIO_ctrl(sbio, BIO_CTRL_DGRAM_SET_RECV_TIMEOUT, 0, &timeout); | ||
1402 | |||
1403 | timeout.tv_sec = 0; | ||
1404 | timeout.tv_usec = DGRAM_SND_TIMEOUT; | ||
1405 | BIO_ctrl(sbio, BIO_CTRL_DGRAM_SET_SEND_TIMEOUT, 0, &timeout); | ||
1406 | } | ||
1407 | if (socket_mtu > 28) { | ||
1408 | SSL_set_options(con, SSL_OP_NO_QUERY_MTU); | ||
1409 | SSL_set_mtu(con, socket_mtu - 28); | ||
1410 | } else | ||
1411 | /* want to do MTU discovery */ | ||
1412 | BIO_ctrl(sbio, BIO_CTRL_DGRAM_MTU_DISCOVER, 0, NULL); | ||
1413 | |||
1414 | /* turn on cookie exchange */ | ||
1415 | SSL_set_options(con, SSL_OP_COOKIE_EXCHANGE); | ||
1416 | } else | ||
1417 | sbio = BIO_new_socket(s, BIO_NOCLOSE); | ||
1418 | |||
1419 | if (s_nbio_test) { | ||
1420 | BIO *test; | ||
1421 | |||
1422 | test = BIO_new(BIO_f_nbio_test()); | ||
1423 | sbio = BIO_push(test, sbio); | ||
1424 | } | ||
1425 | |||
1426 | SSL_set_bio(con, sbio, sbio); | ||
1427 | SSL_set_accept_state(con); | ||
1428 | /* SSL_set_fd(con,s); */ | ||
1429 | |||
1430 | if (s_debug) { | ||
1431 | SSL_set_debug(con, 1); | ||
1432 | BIO_set_callback(SSL_get_rbio(con), bio_dump_callback); | ||
1433 | BIO_set_callback_arg(SSL_get_rbio(con), (char *) bio_s_out); | ||
1434 | } | ||
1435 | if (s_msg) { | ||
1436 | SSL_set_msg_callback(con, msg_cb); | ||
1437 | SSL_set_msg_callback_arg(con, bio_s_out); | ||
1438 | } | ||
1439 | #ifndef OPENSSL_NO_TLSEXT | ||
1440 | if (s_tlsextdebug) { | ||
1441 | SSL_set_tlsext_debug_callback(con, tlsext_cb); | ||
1442 | SSL_set_tlsext_debug_arg(con, bio_s_out); | ||
1443 | } | ||
1444 | #endif | ||
1445 | |||
1446 | width = s + 1; | ||
1447 | for (;;) { | ||
1448 | int read_from_terminal; | ||
1449 | int read_from_sslcon; | ||
1450 | |||
1451 | read_from_terminal = 0; | ||
1452 | read_from_sslcon = SSL_pending(con); | ||
1453 | |||
1454 | if (!read_from_sslcon) { | ||
1455 | FD_ZERO(&readfds); | ||
1456 | FD_SET(fileno(stdin), &readfds); | ||
1457 | FD_SET(s, &readfds); | ||
1458 | if ((SSL_version(con) == DTLS1_VERSION) && | ||
1459 | DTLSv1_get_timeout(con, &timeout)) | ||
1460 | timeoutp = &timeout; | ||
1461 | else | ||
1462 | timeoutp = NULL; | ||
1463 | |||
1464 | i = select(width, &readfds, NULL, NULL, timeoutp); | ||
1465 | |||
1466 | if ((SSL_version(con) == DTLS1_VERSION) && DTLSv1_handle_timeout(con) > 0) { | ||
1467 | BIO_printf(bio_err, "TIMEOUT occured\n"); | ||
1468 | } | ||
1469 | if (i <= 0) | ||
1470 | continue; | ||
1471 | if (FD_ISSET(fileno(stdin), &readfds)) | ||
1472 | read_from_terminal = 1; | ||
1473 | if (FD_ISSET(s, &readfds)) | ||
1474 | read_from_sslcon = 1; | ||
1475 | } | ||
1476 | if (read_from_terminal) { | ||
1477 | if (s_crlf) { | ||
1478 | int j, lf_num; | ||
1479 | |||
1480 | i = read(fileno(stdin), buf, bufsize / 2); | ||
1481 | lf_num = 0; | ||
1482 | /* both loops are skipped when i <= 0 */ | ||
1483 | for (j = 0; j < i; j++) | ||
1484 | if (buf[j] == '\n') | ||
1485 | lf_num++; | ||
1486 | for (j = i - 1; j >= 0; j--) { | ||
1487 | buf[j + lf_num] = buf[j]; | ||
1488 | if (buf[j] == '\n') { | ||
1489 | lf_num--; | ||
1490 | i++; | ||
1491 | buf[j + lf_num] = '\r'; | ||
1492 | } | ||
1493 | } | ||
1494 | assert(lf_num == 0); | ||
1495 | } else | ||
1496 | i = read(fileno(stdin), buf, bufsize); | ||
1497 | if (!s_quiet) { | ||
1498 | if ((i <= 0) || (buf[0] == 'Q')) { | ||
1499 | BIO_printf(bio_s_out, "DONE\n"); | ||
1500 | shutdown(s, SHUT_RD); | ||
1501 | close(s); | ||
1502 | close_accept_socket(); | ||
1503 | ret = -11; | ||
1504 | goto err; | ||
1505 | } | ||
1506 | if ((i <= 0) || (buf[0] == 'q')) { | ||
1507 | BIO_printf(bio_s_out, "DONE\n"); | ||
1508 | if (SSL_version(con) != DTLS1_VERSION) { | ||
1509 | shutdown(s, SHUT_RD); | ||
1510 | close(s); | ||
1511 | } | ||
1512 | /* | ||
1513 | * close_accept_socket(); ret= -11; | ||
1514 | */ | ||
1515 | goto err; | ||
1516 | } | ||
1517 | if ((buf[0] == 'r') && | ||
1518 | ((buf[1] == '\n') || (buf[1] == '\r'))) { | ||
1519 | SSL_renegotiate(con); | ||
1520 | i = SSL_do_handshake(con); | ||
1521 | printf("SSL_do_handshake -> %d\n", i); | ||
1522 | i = 0; /* 13; */ | ||
1523 | continue; | ||
1524 | /* | ||
1525 | * strcpy(buf,"server side | ||
1526 | * RE-NEGOTIATE\n"); | ||
1527 | */ | ||
1528 | } | ||
1529 | if ((buf[0] == 'R') && | ||
1530 | ((buf[1] == '\n') || (buf[1] == '\r'))) { | ||
1531 | SSL_set_verify(con, | ||
1532 | SSL_VERIFY_PEER | SSL_VERIFY_CLIENT_ONCE, NULL); | ||
1533 | SSL_renegotiate(con); | ||
1534 | i = SSL_do_handshake(con); | ||
1535 | printf("SSL_do_handshake -> %d\n", i); | ||
1536 | i = 0; /* 13; */ | ||
1537 | continue; | ||
1538 | /* | ||
1539 | * strcpy(buf,"server side | ||
1540 | * RE-NEGOTIATE asking for client | ||
1541 | * cert\n"); | ||
1542 | */ | ||
1543 | } | ||
1544 | if (buf[0] == 'P') { | ||
1545 | static const char *str = "Lets print some clear text\n"; | ||
1546 | BIO_write(SSL_get_wbio(con), str, strlen(str)); | ||
1547 | } | ||
1548 | if (buf[0] == 'S') { | ||
1549 | print_stats(bio_s_out, SSL_get_SSL_CTX(con)); | ||
1550 | } | ||
1551 | } | ||
1552 | l = k = 0; | ||
1553 | for (;;) { | ||
1554 | /* should do a select for the write */ | ||
1555 | #ifdef RENEG | ||
1556 | { | ||
1557 | static count = 0; | ||
1558 | if (++count == 100) { | ||
1559 | count = 0; | ||
1560 | SSL_renegotiate(con); | ||
1561 | } | ||
1562 | } | ||
1563 | #endif | ||
1564 | k = SSL_write(con, &(buf[l]), (unsigned int) i); | ||
1565 | switch (SSL_get_error(con, k)) { | ||
1566 | case SSL_ERROR_NONE: | ||
1567 | break; | ||
1568 | case SSL_ERROR_WANT_WRITE: | ||
1569 | case SSL_ERROR_WANT_READ: | ||
1570 | case SSL_ERROR_WANT_X509_LOOKUP: | ||
1571 | BIO_printf(bio_s_out, "Write BLOCK\n"); | ||
1572 | break; | ||
1573 | case SSL_ERROR_SYSCALL: | ||
1574 | case SSL_ERROR_SSL: | ||
1575 | BIO_printf(bio_s_out, "ERROR\n"); | ||
1576 | ERR_print_errors(bio_err); | ||
1577 | ret = 1; | ||
1578 | goto err; | ||
1579 | /* break; */ | ||
1580 | case SSL_ERROR_ZERO_RETURN: | ||
1581 | BIO_printf(bio_s_out, "DONE\n"); | ||
1582 | ret = 1; | ||
1583 | goto err; | ||
1584 | } | ||
1585 | l += k; | ||
1586 | i -= k; | ||
1587 | if (i <= 0) | ||
1588 | break; | ||
1589 | } | ||
1590 | } | ||
1591 | if (read_from_sslcon) { | ||
1592 | if (!SSL_is_init_finished(con)) { | ||
1593 | i = init_ssl_connection(con); | ||
1594 | |||
1595 | if (i < 0) { | ||
1596 | ret = 0; | ||
1597 | goto err; | ||
1598 | } else if (i == 0) { | ||
1599 | ret = 1; | ||
1600 | goto err; | ||
1601 | } | ||
1602 | } else { | ||
1603 | again: | ||
1604 | i = SSL_read(con, (char *) buf, bufsize); | ||
1605 | switch (SSL_get_error(con, i)) { | ||
1606 | case SSL_ERROR_NONE: { | ||
1607 | int len, n; | ||
1608 | for (len = 0; len < i;) { | ||
1609 | do { | ||
1610 | n = write(fileno(stdout), buf + len, i - len); | ||
1611 | } while (n == -1 && errno == EINTR); | ||
1612 | |||
1613 | if (n < 0) { | ||
1614 | BIO_printf(bio_s_out, "ERROR\n"); | ||
1615 | goto err; | ||
1616 | } | ||
1617 | len += n; | ||
1618 | } | ||
1619 | } | ||
1620 | if (SSL_pending(con)) | ||
1621 | goto again; | ||
1622 | break; | ||
1623 | case SSL_ERROR_WANT_WRITE: | ||
1624 | case SSL_ERROR_WANT_READ: | ||
1625 | BIO_printf(bio_s_out, "Read BLOCK\n"); | ||
1626 | break; | ||
1627 | case SSL_ERROR_SYSCALL: | ||
1628 | case SSL_ERROR_SSL: | ||
1629 | BIO_printf(bio_s_out, "ERROR\n"); | ||
1630 | ERR_print_errors(bio_err); | ||
1631 | ret = 1; | ||
1632 | goto err; | ||
1633 | case SSL_ERROR_ZERO_RETURN: | ||
1634 | BIO_printf(bio_s_out, "DONE\n"); | ||
1635 | ret = 1; | ||
1636 | goto err; | ||
1637 | } | ||
1638 | } | ||
1639 | } | ||
1640 | } | ||
1641 | err: | ||
1642 | if (con != NULL) { | ||
1643 | BIO_printf(bio_s_out, "shutting down SSL\n"); | ||
1644 | SSL_set_shutdown(con, SSL_SENT_SHUTDOWN | SSL_RECEIVED_SHUTDOWN); | ||
1645 | SSL_free(con); | ||
1646 | } | ||
1647 | BIO_printf(bio_s_out, "CONNECTION CLOSED\n"); | ||
1648 | if (buf != NULL) { | ||
1649 | OPENSSL_cleanse(buf, bufsize); | ||
1650 | free(buf); | ||
1651 | } | ||
1652 | if (ret >= 0) | ||
1653 | BIO_printf(bio_s_out, "ACCEPT\n"); | ||
1654 | return (ret); | ||
1655 | } | ||
1656 | |||
1657 | static void | ||
1658 | close_accept_socket(void) | ||
1659 | { | ||
1660 | BIO_printf(bio_err, "shutdown accept socket\n"); | ||
1661 | if (accept_socket >= 0) { | ||
1662 | shutdown(accept_socket, SHUT_RDWR); | ||
1663 | close(accept_socket); | ||
1664 | } | ||
1665 | } | ||
1666 | |||
1667 | static int | ||
1668 | init_ssl_connection(SSL * con) | ||
1669 | { | ||
1670 | int i; | ||
1671 | const char *str; | ||
1672 | X509 *peer; | ||
1673 | long verify_error; | ||
1674 | char buf[BUFSIZ]; | ||
1675 | #if !defined(OPENSSL_NO_TLSEXT) && !defined(OPENSSL_NO_NEXTPROTONEG) | ||
1676 | const unsigned char *next_proto_neg; | ||
1677 | unsigned next_proto_neg_len; | ||
1678 | #endif | ||
1679 | unsigned char *exportedkeymat; | ||
1680 | |||
1681 | |||
1682 | i = SSL_accept(con); | ||
1683 | if (i <= 0) { | ||
1684 | if (BIO_sock_should_retry(i)) { | ||
1685 | BIO_printf(bio_s_out, "DELAY\n"); | ||
1686 | return (1); | ||
1687 | } | ||
1688 | BIO_printf(bio_err, "ERROR\n"); | ||
1689 | verify_error = SSL_get_verify_result(con); | ||
1690 | if (verify_error != X509_V_OK) { | ||
1691 | BIO_printf(bio_err, "verify error:%s\n", | ||
1692 | X509_verify_cert_error_string(verify_error)); | ||
1693 | } else | ||
1694 | ERR_print_errors(bio_err); | ||
1695 | return (0); | ||
1696 | } | ||
1697 | PEM_write_bio_SSL_SESSION(bio_s_out, SSL_get_session(con)); | ||
1698 | |||
1699 | peer = SSL_get_peer_certificate(con); | ||
1700 | if (peer != NULL) { | ||
1701 | BIO_printf(bio_s_out, "Client certificate\n"); | ||
1702 | PEM_write_bio_X509(bio_s_out, peer); | ||
1703 | X509_NAME_oneline(X509_get_subject_name(peer), buf, sizeof buf); | ||
1704 | BIO_printf(bio_s_out, "subject=%s\n", buf); | ||
1705 | X509_NAME_oneline(X509_get_issuer_name(peer), buf, sizeof buf); | ||
1706 | BIO_printf(bio_s_out, "issuer=%s\n", buf); | ||
1707 | X509_free(peer); | ||
1708 | } | ||
1709 | if (SSL_get_shared_ciphers(con, buf, sizeof buf) != NULL) | ||
1710 | BIO_printf(bio_s_out, "Shared ciphers:%s\n", buf); | ||
1711 | str = SSL_CIPHER_get_name(SSL_get_current_cipher(con)); | ||
1712 | BIO_printf(bio_s_out, "CIPHER is %s\n", (str != NULL) ? str : "(NONE)"); | ||
1713 | |||
1714 | #if !defined(OPENSSL_NO_TLSEXT) && !defined(OPENSSL_NO_NEXTPROTONEG) | ||
1715 | SSL_get0_next_proto_negotiated(con, &next_proto_neg, &next_proto_neg_len); | ||
1716 | if (next_proto_neg) { | ||
1717 | BIO_printf(bio_s_out, "NEXTPROTO is "); | ||
1718 | BIO_write(bio_s_out, next_proto_neg, next_proto_neg_len); | ||
1719 | BIO_printf(bio_s_out, "\n"); | ||
1720 | } | ||
1721 | #endif | ||
1722 | #ifndef OPENSSL_NO_SRTP | ||
1723 | { | ||
1724 | SRTP_PROTECTION_PROFILE *srtp_profile | ||
1725 | = SSL_get_selected_srtp_profile(con); | ||
1726 | |||
1727 | if (srtp_profile) | ||
1728 | BIO_printf(bio_s_out, "SRTP Extension negotiated, profile=%s\n", | ||
1729 | srtp_profile->name); | ||
1730 | } | ||
1731 | #endif | ||
1732 | if (SSL_cache_hit(con)) | ||
1733 | BIO_printf(bio_s_out, "Reused session-id\n"); | ||
1734 | if (SSL_ctrl(con, SSL_CTRL_GET_FLAGS, 0, NULL) & | ||
1735 | TLS1_FLAGS_TLS_PADDING_BUG) | ||
1736 | BIO_printf(bio_s_out, | ||
1737 | "Peer has incorrect TLSv1 block padding\n"); | ||
1738 | BIO_printf(bio_s_out, "Secure Renegotiation IS%s supported\n", | ||
1739 | SSL_get_secure_renegotiation_support(con) ? "" : " NOT"); | ||
1740 | if (keymatexportlabel != NULL) { | ||
1741 | BIO_printf(bio_s_out, "Keying material exporter:\n"); | ||
1742 | BIO_printf(bio_s_out, " Label: '%s'\n", keymatexportlabel); | ||
1743 | BIO_printf(bio_s_out, " Length: %i bytes\n", | ||
1744 | keymatexportlen); | ||
1745 | exportedkeymat = malloc(keymatexportlen); | ||
1746 | if (exportedkeymat != NULL) { | ||
1747 | if (!SSL_export_keying_material(con, exportedkeymat, | ||
1748 | keymatexportlen, | ||
1749 | keymatexportlabel, | ||
1750 | strlen(keymatexportlabel), | ||
1751 | NULL, 0, 0)) { | ||
1752 | BIO_printf(bio_s_out, " Error\n"); | ||
1753 | } else { | ||
1754 | BIO_printf(bio_s_out, " Keying material: "); | ||
1755 | for (i = 0; i < keymatexportlen; i++) | ||
1756 | BIO_printf(bio_s_out, "%02X", | ||
1757 | exportedkeymat[i]); | ||
1758 | BIO_printf(bio_s_out, "\n"); | ||
1759 | } | ||
1760 | free(exportedkeymat); | ||
1761 | } | ||
1762 | } | ||
1763 | return (1); | ||
1764 | } | ||
1765 | |||
1766 | #ifndef OPENSSL_NO_DH | ||
1767 | static DH * | ||
1768 | load_dh_param(const char *dhfile) | ||
1769 | { | ||
1770 | DH *ret = NULL; | ||
1771 | BIO *bio; | ||
1772 | |||
1773 | if ((bio = BIO_new_file(dhfile, "r")) == NULL) | ||
1774 | goto err; | ||
1775 | ret = PEM_read_bio_DHparams(bio, NULL, NULL, NULL); | ||
1776 | err: | ||
1777 | BIO_free(bio); | ||
1778 | return (ret); | ||
1779 | } | ||
1780 | #endif | ||
1781 | |||
1782 | static int | ||
1783 | www_body(char *hostname, int s, unsigned char *context) | ||
1784 | { | ||
1785 | char *buf = NULL; | ||
1786 | int ret = 1; | ||
1787 | int i, j, k, dot; | ||
1788 | SSL *con; | ||
1789 | const SSL_CIPHER *c; | ||
1790 | BIO *io, *ssl_bio, *sbio; | ||
1791 | |||
1792 | buf = malloc(bufsize); | ||
1793 | if (buf == NULL) | ||
1794 | return (0); | ||
1795 | io = BIO_new(BIO_f_buffer()); | ||
1796 | ssl_bio = BIO_new(BIO_f_ssl()); | ||
1797 | if ((io == NULL) || (ssl_bio == NULL)) | ||
1798 | goto err; | ||
1799 | |||
1800 | if (s_nbio) { | ||
1801 | unsigned long sl = 1; | ||
1802 | |||
1803 | if (!s_quiet) | ||
1804 | BIO_printf(bio_err, "turning on non blocking io\n"); | ||
1805 | if (BIO_socket_ioctl(s, FIONBIO, &sl) < 0) | ||
1806 | ERR_print_errors(bio_err); | ||
1807 | } | ||
1808 | |||
1809 | /* lets make the output buffer a reasonable size */ | ||
1810 | if (!BIO_set_write_buffer_size(io, bufsize)) | ||
1811 | goto err; | ||
1812 | |||
1813 | if ((con = SSL_new(ctx)) == NULL) | ||
1814 | goto err; | ||
1815 | #ifndef OPENSSL_NO_TLSEXT | ||
1816 | if (s_tlsextdebug) { | ||
1817 | SSL_set_tlsext_debug_callback(con, tlsext_cb); | ||
1818 | SSL_set_tlsext_debug_arg(con, bio_s_out); | ||
1819 | } | ||
1820 | #endif | ||
1821 | if (context) | ||
1822 | SSL_set_session_id_context(con, context, | ||
1823 | strlen((char *) context)); | ||
1824 | |||
1825 | sbio = BIO_new_socket(s, BIO_NOCLOSE); | ||
1826 | if (s_nbio_test) { | ||
1827 | BIO *test; | ||
1828 | |||
1829 | test = BIO_new(BIO_f_nbio_test()); | ||
1830 | sbio = BIO_push(test, sbio); | ||
1831 | } | ||
1832 | SSL_set_bio(con, sbio, sbio); | ||
1833 | SSL_set_accept_state(con); | ||
1834 | |||
1835 | /* SSL_set_fd(con,s); */ | ||
1836 | BIO_set_ssl(ssl_bio, con, BIO_CLOSE); | ||
1837 | BIO_push(io, ssl_bio); | ||
1838 | |||
1839 | if (s_debug) { | ||
1840 | SSL_set_debug(con, 1); | ||
1841 | BIO_set_callback(SSL_get_rbio(con), bio_dump_callback); | ||
1842 | BIO_set_callback_arg(SSL_get_rbio(con), (char *) bio_s_out); | ||
1843 | } | ||
1844 | if (s_msg) { | ||
1845 | SSL_set_msg_callback(con, msg_cb); | ||
1846 | SSL_set_msg_callback_arg(con, bio_s_out); | ||
1847 | } | ||
1848 | for (;;) { | ||
1849 | if (hack) { | ||
1850 | i = SSL_accept(con); | ||
1851 | switch (SSL_get_error(con, i)) { | ||
1852 | case SSL_ERROR_NONE: | ||
1853 | break; | ||
1854 | case SSL_ERROR_WANT_WRITE: | ||
1855 | case SSL_ERROR_WANT_READ: | ||
1856 | case SSL_ERROR_WANT_X509_LOOKUP: | ||
1857 | continue; | ||
1858 | case SSL_ERROR_SYSCALL: | ||
1859 | case SSL_ERROR_SSL: | ||
1860 | case SSL_ERROR_ZERO_RETURN: | ||
1861 | ret = 1; | ||
1862 | goto err; | ||
1863 | /* break; */ | ||
1864 | } | ||
1865 | |||
1866 | SSL_renegotiate(con); | ||
1867 | SSL_write(con, NULL, 0); | ||
1868 | } | ||
1869 | i = BIO_gets(io, buf, bufsize - 1); | ||
1870 | if (i < 0) { /* error */ | ||
1871 | if (!BIO_should_retry(io)) { | ||
1872 | if (!s_quiet) | ||
1873 | ERR_print_errors(bio_err); | ||
1874 | goto err; | ||
1875 | } else { | ||
1876 | BIO_printf(bio_s_out, "read R BLOCK\n"); | ||
1877 | sleep(1); | ||
1878 | continue; | ||
1879 | } | ||
1880 | } else if (i == 0) { /* end of input */ | ||
1881 | ret = 1; | ||
1882 | goto end; | ||
1883 | } | ||
1884 | /* else we have data */ | ||
1885 | if (((www == 1) && (strncmp("GET ", buf, 4) == 0)) || | ||
1886 | ((www == 2) && (strncmp("GET /stats ", buf, 11) == 0))) { | ||
1887 | char *p; | ||
1888 | X509 *peer; | ||
1889 | STACK_OF(SSL_CIPHER) * sk; | ||
1890 | static const char *space = " "; | ||
1891 | |||
1892 | BIO_puts(io, "HTTP/1.0 200 ok\r\nContent-type: text/html\r\n\r\n"); | ||
1893 | BIO_puts(io, "<HTML><BODY BGCOLOR=\"#ffffff\">\n"); | ||
1894 | BIO_puts(io, "<pre>\n"); | ||
1895 | /* BIO_puts(io,SSLeay_version(SSLEAY_VERSION));*/ | ||
1896 | BIO_puts(io, "\n"); | ||
1897 | for (i = 0; i < local_argc; i++) { | ||
1898 | BIO_puts(io, local_argv[i]); | ||
1899 | BIO_write(io, " ", 1); | ||
1900 | } | ||
1901 | BIO_puts(io, "\n"); | ||
1902 | |||
1903 | BIO_printf(io, | ||
1904 | "Secure Renegotiation IS%s supported\n", | ||
1905 | SSL_get_secure_renegotiation_support(con) ? | ||
1906 | "" : " NOT"); | ||
1907 | |||
1908 | /* | ||
1909 | * The following is evil and should not really be | ||
1910 | * done | ||
1911 | */ | ||
1912 | BIO_printf(io, "Ciphers supported in s_server binary\n"); | ||
1913 | sk = SSL_get_ciphers(con); | ||
1914 | j = sk_SSL_CIPHER_num(sk); | ||
1915 | for (i = 0; i < j; i++) { | ||
1916 | c = sk_SSL_CIPHER_value(sk, i); | ||
1917 | BIO_printf(io, "%-11s:%-25s", | ||
1918 | SSL_CIPHER_get_version(c), | ||
1919 | SSL_CIPHER_get_name(c)); | ||
1920 | if ((((i + 1) % 2) == 0) && (i + 1 != j)) | ||
1921 | BIO_puts(io, "\n"); | ||
1922 | } | ||
1923 | BIO_puts(io, "\n"); | ||
1924 | p = SSL_get_shared_ciphers(con, buf, bufsize); | ||
1925 | if (p != NULL) { | ||
1926 | BIO_printf(io, "---\nCiphers common between both SSL end points:\n"); | ||
1927 | j = i = 0; | ||
1928 | while (*p) { | ||
1929 | if (*p == ':') { | ||
1930 | BIO_write(io, space, 26 - j); | ||
1931 | i++; | ||
1932 | j = 0; | ||
1933 | BIO_write(io, ((i % 3) ? " " : "\n"), 1); | ||
1934 | } else { | ||
1935 | BIO_write(io, p, 1); | ||
1936 | j++; | ||
1937 | } | ||
1938 | p++; | ||
1939 | } | ||
1940 | BIO_puts(io, "\n"); | ||
1941 | } | ||
1942 | BIO_printf(io, (SSL_cache_hit(con) | ||
1943 | ? "---\nReused, " | ||
1944 | : "---\nNew, ")); | ||
1945 | c = SSL_get_current_cipher(con); | ||
1946 | BIO_printf(io, "%s, Cipher is %s\n", | ||
1947 | SSL_CIPHER_get_version(c), | ||
1948 | SSL_CIPHER_get_name(c)); | ||
1949 | SSL_SESSION_print(io, SSL_get_session(con)); | ||
1950 | BIO_printf(io, "---\n"); | ||
1951 | print_stats(io, SSL_get_SSL_CTX(con)); | ||
1952 | BIO_printf(io, "---\n"); | ||
1953 | peer = SSL_get_peer_certificate(con); | ||
1954 | if (peer != NULL) { | ||
1955 | BIO_printf(io, "Client certificate\n"); | ||
1956 | X509_print(io, peer); | ||
1957 | PEM_write_bio_X509(io, peer); | ||
1958 | } else | ||
1959 | BIO_puts(io, "no client certificate available\n"); | ||
1960 | BIO_puts(io, "</BODY></HTML>\r\n\r\n"); | ||
1961 | break; | ||
1962 | } else if ((www == 2 || www == 3) | ||
1963 | && (strncmp("GET /", buf, 5) == 0)) { | ||
1964 | BIO *file; | ||
1965 | char *p, *e; | ||
1966 | static const char *text = "HTTP/1.0 200 ok\r\nContent-type: text/plain\r\n\r\n"; | ||
1967 | |||
1968 | /* skip the '/' */ | ||
1969 | p = &(buf[5]); | ||
1970 | |||
1971 | dot = 1; | ||
1972 | for (e = p; *e != '\0'; e++) { | ||
1973 | if (e[0] == ' ') | ||
1974 | break; | ||
1975 | |||
1976 | switch (dot) { | ||
1977 | case 1: | ||
1978 | dot = (e[0] == '.') ? 2 : 0; | ||
1979 | break; | ||
1980 | case 2: | ||
1981 | dot = (e[0] == '.') ? 3 : 0; | ||
1982 | break; | ||
1983 | case 3: | ||
1984 | dot = (e[0] == '/') ? -1 : 0; | ||
1985 | break; | ||
1986 | } | ||
1987 | if (dot == 0) | ||
1988 | dot = (e[0] == '/') ? 1 : 0; | ||
1989 | } | ||
1990 | dot = (dot == 3) || (dot == -1); /* filename contains | ||
1991 | * ".." component */ | ||
1992 | |||
1993 | if (*e == '\0') { | ||
1994 | BIO_puts(io, text); | ||
1995 | BIO_printf(io, "'%s' is an invalid file name\r\n", p); | ||
1996 | break; | ||
1997 | } | ||
1998 | *e = '\0'; | ||
1999 | |||
2000 | if (dot) { | ||
2001 | BIO_puts(io, text); | ||
2002 | BIO_printf(io, "'%s' contains '..' reference\r\n", p); | ||
2003 | break; | ||
2004 | } | ||
2005 | if (*p == '/') { | ||
2006 | BIO_puts(io, text); | ||
2007 | BIO_printf(io, "'%s' is an invalid path\r\n", p); | ||
2008 | break; | ||
2009 | } | ||
2010 | /* if a directory, do the index thang */ | ||
2011 | if (app_isdir(p) > 0) { | ||
2012 | BIO_puts(io, text); | ||
2013 | BIO_printf(io, "'%s' is a directory\r\n", p); | ||
2014 | break; | ||
2015 | } | ||
2016 | if ((file = BIO_new_file(p, "r")) == NULL) { | ||
2017 | BIO_puts(io, text); | ||
2018 | BIO_printf(io, "Error opening '%s'\r\n", p); | ||
2019 | ERR_print_errors(io); | ||
2020 | break; | ||
2021 | } | ||
2022 | if (!s_quiet) | ||
2023 | BIO_printf(bio_err, "FILE:%s\n", p); | ||
2024 | |||
2025 | if (www == 2) { | ||
2026 | i = strlen(p); | ||
2027 | if (((i > 5) && (strcmp(&(p[i - 5]), ".html") == 0)) || | ||
2028 | ((i > 4) && (strcmp(&(p[i - 4]), ".php") == 0)) || | ||
2029 | ((i > 4) && (strcmp(&(p[i - 4]), ".htm") == 0))) | ||
2030 | BIO_puts(io, "HTTP/1.0 200 ok\r\nContent-type: text/html\r\n\r\n"); | ||
2031 | else | ||
2032 | BIO_puts(io, "HTTP/1.0 200 ok\r\nContent-type: text/plain\r\n\r\n"); | ||
2033 | } | ||
2034 | /* send the file */ | ||
2035 | for (;;) { | ||
2036 | i = BIO_read(file, buf, bufsize); | ||
2037 | if (i <= 0) | ||
2038 | break; | ||
2039 | |||
2040 | #ifdef RENEG | ||
2041 | total_bytes += i; | ||
2042 | fprintf(stderr, "%d\n", i); | ||
2043 | if (total_bytes > 3 * 1024) { | ||
2044 | total_bytes = 0; | ||
2045 | fprintf(stderr, "RENEGOTIATE\n"); | ||
2046 | SSL_renegotiate(con); | ||
2047 | } | ||
2048 | #endif | ||
2049 | |||
2050 | for (j = 0; j < i;) { | ||
2051 | #ifdef RENEG | ||
2052 | { | ||
2053 | static count = 0; | ||
2054 | if (++count == 13) { | ||
2055 | SSL_renegotiate(con); | ||
2056 | } | ||
2057 | } | ||
2058 | #endif | ||
2059 | k = BIO_write(io, &(buf[j]), i - j); | ||
2060 | if (k <= 0) { | ||
2061 | if (!BIO_should_retry(io)) | ||
2062 | goto write_error; | ||
2063 | else { | ||
2064 | BIO_printf(bio_s_out, "rwrite W BLOCK\n"); | ||
2065 | } | ||
2066 | } else { | ||
2067 | j += k; | ||
2068 | } | ||
2069 | } | ||
2070 | } | ||
2071 | write_error: | ||
2072 | BIO_free(file); | ||
2073 | break; | ||
2074 | } | ||
2075 | } | ||
2076 | |||
2077 | for (;;) { | ||
2078 | i = (int) BIO_flush(io); | ||
2079 | if (i <= 0) { | ||
2080 | if (!BIO_should_retry(io)) | ||
2081 | break; | ||
2082 | } else | ||
2083 | break; | ||
2084 | } | ||
2085 | end: | ||
2086 | /* make sure we re-use sessions */ | ||
2087 | SSL_set_shutdown(con, SSL_SENT_SHUTDOWN | SSL_RECEIVED_SHUTDOWN); | ||
2088 | |||
2089 | err: | ||
2090 | |||
2091 | if (ret >= 0) | ||
2092 | BIO_printf(bio_s_out, "ACCEPT\n"); | ||
2093 | |||
2094 | if (buf != NULL) | ||
2095 | free(buf); | ||
2096 | if (io != NULL) | ||
2097 | BIO_free_all(io); | ||
2098 | /* if (ssl_bio != NULL) BIO_free(ssl_bio);*/ | ||
2099 | return (ret); | ||
2100 | } | ||
2101 | |||
2102 | static RSA * | ||
2103 | tmp_rsa_cb(SSL * s, int is_export, int keylength) | ||
2104 | { | ||
2105 | BIGNUM *bn = NULL; | ||
2106 | static RSA *rsa_tmp = NULL; | ||
2107 | |||
2108 | if (!rsa_tmp && ((bn = BN_new()) == NULL)) | ||
2109 | BIO_printf(bio_err, "Allocation error in generating RSA key\n"); | ||
2110 | if (!rsa_tmp && bn) { | ||
2111 | if (!s_quiet) { | ||
2112 | BIO_printf(bio_err, "Generating temp (%d bit) RSA key...", keylength); | ||
2113 | (void) BIO_flush(bio_err); | ||
2114 | } | ||
2115 | if (!BN_set_word(bn, RSA_F4) || ((rsa_tmp = RSA_new()) == NULL) || | ||
2116 | !RSA_generate_key_ex(rsa_tmp, keylength, bn, NULL)) { | ||
2117 | if (rsa_tmp) | ||
2118 | RSA_free(rsa_tmp); | ||
2119 | rsa_tmp = NULL; | ||
2120 | } | ||
2121 | if (!s_quiet) { | ||
2122 | BIO_printf(bio_err, "\n"); | ||
2123 | (void) BIO_flush(bio_err); | ||
2124 | } | ||
2125 | BN_free(bn); | ||
2126 | } | ||
2127 | return (rsa_tmp); | ||
2128 | } | ||
2129 | |||
2130 | #define MAX_SESSION_ID_ATTEMPTS 10 | ||
2131 | static int | ||
2132 | generate_session_id(const SSL * ssl, unsigned char *id, | ||
2133 | unsigned int *id_len) | ||
2134 | { | ||
2135 | unsigned int count = 0; | ||
2136 | do { | ||
2137 | RAND_pseudo_bytes(id, *id_len); | ||
2138 | /* | ||
2139 | * Prefix the session_id with the required prefix. NB: If our | ||
2140 | * prefix is too long, clip it - but there will be worse | ||
2141 | * effects anyway, eg. the server could only possibly create | ||
2142 | * 1 session ID (ie. the prefix!) so all future session | ||
2143 | * negotiations will fail due to conflicts. | ||
2144 | */ | ||
2145 | memcpy(id, session_id_prefix, | ||
2146 | (strlen(session_id_prefix) < *id_len) ? | ||
2147 | strlen(session_id_prefix) : *id_len); | ||
2148 | } | ||
2149 | while (SSL_has_matching_session_id(ssl, id, *id_len) && | ||
2150 | (++count < MAX_SESSION_ID_ATTEMPTS)); | ||
2151 | if (count >= MAX_SESSION_ID_ATTEMPTS) | ||
2152 | return 0; | ||
2153 | return 1; | ||
2154 | } | ||
diff --git a/src/usr.bin/openssl/s_socket.c b/src/usr.bin/openssl/s_socket.c new file mode 100644 index 0000000000..48af178a23 --- /dev/null +++ b/src/usr.bin/openssl/s_socket.c | |||
@@ -0,0 +1,351 @@ | |||
1 | /* $OpenBSD: s_socket.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
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 <sys/socket.h> | ||
60 | |||
61 | #include <netinet/in.h> | ||
62 | |||
63 | #include <errno.h> | ||
64 | #include <netdb.h> | ||
65 | #include <stdio.h> | ||
66 | #include <stdlib.h> | ||
67 | #include <string.h> | ||
68 | #include <unistd.h> | ||
69 | |||
70 | #include "apps.h" | ||
71 | |||
72 | #include <openssl/ssl.h> | ||
73 | |||
74 | #include "s_apps.h" | ||
75 | |||
76 | static int ssl_sock_init(void); | ||
77 | static int init_server(int *sock, int port, int type); | ||
78 | static int init_server_long(int *sock, int port, char *ip, int type); | ||
79 | static int do_accept(int acc_sock, int *sock, char **host); | ||
80 | |||
81 | #define SOCKET_PROTOCOL IPPROTO_TCP | ||
82 | |||
83 | static int | ||
84 | ssl_sock_init(void) | ||
85 | { | ||
86 | return (1); | ||
87 | } | ||
88 | |||
89 | int | ||
90 | init_client(int *sock, char *host, char *port, int type, int af) | ||
91 | { | ||
92 | struct addrinfo hints, *ai_top, *ai; | ||
93 | int i, s; | ||
94 | |||
95 | if (!ssl_sock_init()) | ||
96 | return (0); | ||
97 | |||
98 | memset(&hints, '\0', sizeof(hints)); | ||
99 | hints.ai_family = af; | ||
100 | hints.ai_socktype = type; | ||
101 | |||
102 | if ((i = getaddrinfo(host, port, &hints, &ai_top)) != 0) { | ||
103 | BIO_printf(bio_err, "getaddrinfo: %s\n", gai_strerror(i)); | ||
104 | return (0); | ||
105 | } | ||
106 | if (ai_top == NULL || ai_top->ai_addr == NULL) { | ||
107 | BIO_printf(bio_err, "getaddrinfo returned no addresses\n"); | ||
108 | if (ai_top != NULL) { | ||
109 | freeaddrinfo(ai_top); | ||
110 | } | ||
111 | return (0); | ||
112 | } | ||
113 | for (ai = ai_top; ai != NULL; ai = ai->ai_next) { | ||
114 | s = socket(ai->ai_family, ai->ai_socktype, ai->ai_protocol); | ||
115 | if (s == -1) { | ||
116 | continue; | ||
117 | } | ||
118 | if (type == SOCK_STREAM) { | ||
119 | i = 0; | ||
120 | i = setsockopt(s, SOL_SOCKET, SO_KEEPALIVE, | ||
121 | (char *) &i, sizeof(i)); | ||
122 | if (i < 0) { | ||
123 | perror("keepalive"); | ||
124 | close(s); | ||
125 | return (0); | ||
126 | } | ||
127 | } | ||
128 | if ((i = connect(s, ai->ai_addr, ai->ai_addrlen)) == 0) { | ||
129 | *sock = s; | ||
130 | freeaddrinfo(ai_top); | ||
131 | return (1); | ||
132 | } | ||
133 | close(s); | ||
134 | } | ||
135 | |||
136 | perror("connect"); | ||
137 | close(s); | ||
138 | freeaddrinfo(ai_top); | ||
139 | return (0); | ||
140 | } | ||
141 | |||
142 | int | ||
143 | do_server(int port, int type, int *ret, | ||
144 | int (*cb) (char *hostname, int s, unsigned char *context), | ||
145 | unsigned char *context) | ||
146 | { | ||
147 | int sock; | ||
148 | char *name = NULL; | ||
149 | int accept_socket = 0; | ||
150 | int i; | ||
151 | |||
152 | if (!init_server(&accept_socket, port, type)) | ||
153 | return (0); | ||
154 | |||
155 | if (ret != NULL) { | ||
156 | *ret = accept_socket; | ||
157 | /* return(1); */ | ||
158 | } | ||
159 | for (;;) { | ||
160 | if (type == SOCK_STREAM) { | ||
161 | if (do_accept(accept_socket, &sock, &name) == 0) { | ||
162 | shutdown(accept_socket, SHUT_RD); | ||
163 | close(accept_socket); | ||
164 | return (0); | ||
165 | } | ||
166 | } else | ||
167 | sock = accept_socket; | ||
168 | i = (*cb) (name, sock, context); | ||
169 | free(name); | ||
170 | if (type == SOCK_STREAM) { | ||
171 | shutdown(sock, SHUT_RDWR); | ||
172 | close(sock); | ||
173 | } | ||
174 | if (i < 0) { | ||
175 | shutdown(accept_socket, SHUT_RDWR); | ||
176 | close(accept_socket); | ||
177 | return (i); | ||
178 | } | ||
179 | } | ||
180 | } | ||
181 | |||
182 | static int | ||
183 | init_server_long(int *sock, int port, char *ip, int type) | ||
184 | { | ||
185 | int ret = 0; | ||
186 | struct sockaddr_in server; | ||
187 | int s = -1; | ||
188 | |||
189 | if (!ssl_sock_init()) | ||
190 | return (0); | ||
191 | |||
192 | memset((char *) &server, 0, sizeof(server)); | ||
193 | server.sin_family = AF_INET; | ||
194 | server.sin_port = htons((unsigned short) port); | ||
195 | if (ip == NULL) | ||
196 | server.sin_addr.s_addr = INADDR_ANY; | ||
197 | else | ||
198 | memcpy(&server.sin_addr.s_addr, ip, 4); | ||
199 | |||
200 | if (type == SOCK_STREAM) | ||
201 | s = socket(AF_INET, SOCK_STREAM, SOCKET_PROTOCOL); | ||
202 | else /* type == SOCK_DGRAM */ | ||
203 | s = socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP); | ||
204 | |||
205 | if (s == -1) | ||
206 | goto err; | ||
207 | #if defined SOL_SOCKET && defined SO_REUSEADDR | ||
208 | { | ||
209 | int j = 1; | ||
210 | setsockopt(s, SOL_SOCKET, SO_REUSEADDR, | ||
211 | (void *) &j, sizeof j); | ||
212 | } | ||
213 | #endif | ||
214 | if (bind(s, (struct sockaddr *) & server, sizeof(server)) == -1) { | ||
215 | perror("bind"); | ||
216 | goto err; | ||
217 | } | ||
218 | /* Make it 128 for linux */ | ||
219 | if (type == SOCK_STREAM && listen(s, 128) == -1) | ||
220 | goto err; | ||
221 | *sock = s; | ||
222 | ret = 1; | ||
223 | err: | ||
224 | if ((ret == 0) && (s != -1)) { | ||
225 | shutdown(s, SHUT_RD); | ||
226 | close(s); | ||
227 | } | ||
228 | return (ret); | ||
229 | } | ||
230 | |||
231 | static int | ||
232 | init_server(int *sock, int port, int type) | ||
233 | { | ||
234 | return (init_server_long(sock, port, NULL, type)); | ||
235 | } | ||
236 | |||
237 | static int | ||
238 | do_accept(int acc_sock, int *sock, char **host) | ||
239 | { | ||
240 | int ret; | ||
241 | struct hostent *h1, *h2; | ||
242 | static struct sockaddr_in from; | ||
243 | socklen_t len; | ||
244 | /* struct linger ling; */ | ||
245 | |||
246 | if (!ssl_sock_init()) | ||
247 | return (0); | ||
248 | |||
249 | redoit: | ||
250 | |||
251 | memset((char *) &from, 0, sizeof(from)); | ||
252 | len = sizeof(from); | ||
253 | ret = accept(acc_sock, (struct sockaddr *) & from, &len); | ||
254 | if (ret == -1) { | ||
255 | if (errno == EINTR) { | ||
256 | /* check_timeout(); */ | ||
257 | goto redoit; | ||
258 | } | ||
259 | fprintf(stderr, "errno=%d ", errno); | ||
260 | perror("accept"); | ||
261 | return (0); | ||
262 | } | ||
263 | /* | ||
264 | ling.l_onoff=1; | ||
265 | ling.l_linger=0; | ||
266 | i=setsockopt(ret,SOL_SOCKET,SO_LINGER,(char *)&ling,sizeof(ling)); | ||
267 | if (i < 0) { perror("linger"); return(0); } | ||
268 | i=0; | ||
269 | i=setsockopt(ret,SOL_SOCKET,SO_KEEPALIVE,(char *)&i,sizeof(i)); | ||
270 | if (i < 0) { perror("keepalive"); return(0); } | ||
271 | */ | ||
272 | |||
273 | if (host == NULL) | ||
274 | goto end; | ||
275 | h1 = gethostbyaddr((char *) &from.sin_addr.s_addr, | ||
276 | sizeof(from.sin_addr.s_addr), AF_INET); | ||
277 | if (h1 == NULL) { | ||
278 | BIO_printf(bio_err, "bad gethostbyaddr\n"); | ||
279 | *host = NULL; | ||
280 | /* return(0); */ | ||
281 | } else { | ||
282 | if ((*host = strdup(h1->h_name)) == NULL) { | ||
283 | perror("strdup"); | ||
284 | close(ret); | ||
285 | return (0); | ||
286 | } | ||
287 | |||
288 | h2 = gethostbyname(*host); | ||
289 | if (h2 == NULL) { | ||
290 | BIO_printf(bio_err, "gethostbyname failure\n"); | ||
291 | close(ret); | ||
292 | return (0); | ||
293 | } | ||
294 | if (h2->h_addrtype != AF_INET) { | ||
295 | BIO_printf(bio_err, "gethostbyname addr is not AF_INET\n"); | ||
296 | close(ret); | ||
297 | return (0); | ||
298 | } | ||
299 | } | ||
300 | |||
301 | end: | ||
302 | *sock = ret; | ||
303 | return (1); | ||
304 | } | ||
305 | |||
306 | int | ||
307 | extract_host_port(char *str, char **host_ptr, unsigned char *ip, | ||
308 | char **port_ptr) | ||
309 | { | ||
310 | char *h, *p; | ||
311 | |||
312 | h = str; | ||
313 | p = strrchr(str, '/'); /* IPv6 host/port */ | ||
314 | if (p == NULL) { | ||
315 | p = strrchr(str, ':'); | ||
316 | } | ||
317 | if (p == NULL) { | ||
318 | BIO_printf(bio_err, "no port defined\n"); | ||
319 | return (0); | ||
320 | } | ||
321 | *(p++) = '\0'; | ||
322 | |||
323 | if (host_ptr != NULL) | ||
324 | *host_ptr = h; | ||
325 | |||
326 | if (port_ptr != NULL && p != NULL && *p != '\0') | ||
327 | *port_ptr = p; | ||
328 | |||
329 | return (1); | ||
330 | } | ||
331 | |||
332 | int | ||
333 | extract_port(char *str, short *port_ptr) | ||
334 | { | ||
335 | int i; | ||
336 | const char *errstr; | ||
337 | struct servent *s; | ||
338 | |||
339 | i = strtonum(str, 1, 65535, &errstr); | ||
340 | if (!errstr) { | ||
341 | *port_ptr = (unsigned short) i; | ||
342 | } else { | ||
343 | s = getservbyname(str, "tcp"); | ||
344 | if (s == NULL) { | ||
345 | BIO_printf(bio_err, "getservbyname failure for %s\n", str); | ||
346 | return (0); | ||
347 | } | ||
348 | *port_ptr = ntohs((unsigned short) s->s_port); | ||
349 | } | ||
350 | return (1); | ||
351 | } | ||
diff --git a/src/usr.bin/openssl/s_time.c b/src/usr.bin/openssl/s_time.c new file mode 100644 index 0000000000..f8c104b7d7 --- /dev/null +++ b/src/usr.bin/openssl/s_time.c | |||
@@ -0,0 +1,587 @@ | |||
1 | /* $OpenBSD: s_time.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
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 | #define NO_SHUTDOWN | ||
60 | |||
61 | /*----------------------------------------- | ||
62 | s_time - SSL client connection timer program | ||
63 | Written and donated by Larry Streepy <streepy@healthcare.com> | ||
64 | -----------------------------------------*/ | ||
65 | |||
66 | #include <sys/select.h> | ||
67 | #include <sys/socket.h> | ||
68 | |||
69 | #include <stdio.h> | ||
70 | #include <stdlib.h> | ||
71 | #include <limits.h> | ||
72 | #include <string.h> | ||
73 | #include <unistd.h> | ||
74 | |||
75 | #include "apps.h" | ||
76 | |||
77 | #include <openssl/err.h> | ||
78 | #include <openssl/pem.h> | ||
79 | #include <openssl/ssl.h> | ||
80 | #include <openssl/x509.h> | ||
81 | |||
82 | #include "s_apps.h" | ||
83 | |||
84 | #define SSL_CONNECT_NAME "localhost:4433" | ||
85 | |||
86 | /*#define TEST_CERT "client.pem" *//* no default cert. */ | ||
87 | |||
88 | #define BUFSIZZ 1024*10 | ||
89 | |||
90 | #define MYBUFSIZ 1024*8 | ||
91 | |||
92 | #undef min | ||
93 | #undef max | ||
94 | #define min(a,b) (((a) < (b)) ? (a) : (b)) | ||
95 | #define max(a,b) (((a) > (b)) ? (a) : (b)) | ||
96 | |||
97 | #define SECONDS 30 | ||
98 | extern int verify_depth; | ||
99 | extern int verify_error; | ||
100 | |||
101 | static void s_time_usage(void); | ||
102 | static int parseArgs(int argc, char **argv); | ||
103 | static SSL *doConnection(SSL * scon); | ||
104 | static void s_time_init(void); | ||
105 | |||
106 | /*********************************************************************** | ||
107 | * Static data declarations | ||
108 | */ | ||
109 | |||
110 | /* static char *port=PORT_STR;*/ | ||
111 | static char *host = SSL_CONNECT_NAME; | ||
112 | static char *t_cert_file = NULL; | ||
113 | static char *t_key_file = NULL; | ||
114 | static char *CApath = NULL; | ||
115 | static char *CAfile = NULL; | ||
116 | static char *tm_cipher = NULL; | ||
117 | static int tm_verify = SSL_VERIFY_NONE; | ||
118 | static int maxTime = SECONDS; | ||
119 | static SSL_CTX *tm_ctx = NULL; | ||
120 | static const SSL_METHOD *s_time_meth = NULL; | ||
121 | static char *s_www_path = NULL; | ||
122 | static long bytes_read = 0; | ||
123 | static int st_bugs = 0; | ||
124 | static int perform = 0; | ||
125 | static int t_nbio = 0; | ||
126 | |||
127 | static void | ||
128 | s_time_init(void) | ||
129 | { | ||
130 | host = SSL_CONNECT_NAME; | ||
131 | t_cert_file = NULL; | ||
132 | t_key_file = NULL; | ||
133 | CApath = NULL; | ||
134 | CAfile = NULL; | ||
135 | tm_cipher = NULL; | ||
136 | tm_verify = SSL_VERIFY_NONE; | ||
137 | maxTime = SECONDS; | ||
138 | tm_ctx = NULL; | ||
139 | s_time_meth = NULL; | ||
140 | s_www_path = NULL; | ||
141 | bytes_read = 0; | ||
142 | st_bugs = 0; | ||
143 | perform = 0; | ||
144 | |||
145 | t_nbio = 0; | ||
146 | } | ||
147 | |||
148 | /*********************************************************************** | ||
149 | * usage - display usage message | ||
150 | */ | ||
151 | static void | ||
152 | s_time_usage(void) | ||
153 | { | ||
154 | static const char umsg[] = "\ | ||
155 | -time arg - max number of seconds to collect data, default %d\n\ | ||
156 | -verify arg - turn on peer certificate verification, arg == depth\n\ | ||
157 | -cert arg - certificate file to use, PEM format assumed\n\ | ||
158 | -key arg - RSA file to use, PEM format assumed, key is in cert file\n\ | ||
159 | file if not specified by this option\n\ | ||
160 | -CApath arg - PEM format directory of CA's\n\ | ||
161 | -CAfile arg - PEM format file of CA's\n\ | ||
162 | -cipher - preferred cipher to use, play with 'openssl ciphers'\n\n"; | ||
163 | |||
164 | printf("usage: s_time <args>\n\n"); | ||
165 | |||
166 | printf("-connect host:port - host:port to connect to (default is %s)\n", SSL_CONNECT_NAME); | ||
167 | printf("-nbio - Run with non-blocking IO\n"); | ||
168 | printf("-ssl2 - Just use SSLv2\n"); | ||
169 | printf("-ssl3 - Just use SSLv3\n"); | ||
170 | printf("-bugs - Turn on SSL bug compatibility\n"); | ||
171 | printf("-new - Just time new connections\n"); | ||
172 | printf("-reuse - Just time connection reuse\n"); | ||
173 | printf("-www page - Retrieve 'page' from the site\n"); | ||
174 | printf(umsg, SECONDS); | ||
175 | } | ||
176 | |||
177 | /*********************************************************************** | ||
178 | * parseArgs - Parse command line arguments and initialize data | ||
179 | * | ||
180 | * Returns 0 if ok, -1 on bad args | ||
181 | */ | ||
182 | static int | ||
183 | parseArgs(int argc, char **argv) | ||
184 | { | ||
185 | int badop = 0; | ||
186 | const char *errstr; | ||
187 | |||
188 | verify_depth = 0; | ||
189 | verify_error = X509_V_OK; | ||
190 | |||
191 | argc--; | ||
192 | argv++; | ||
193 | |||
194 | while (argc >= 1) { | ||
195 | if (strcmp(*argv, "-connect") == 0) { | ||
196 | if (--argc < 1) | ||
197 | goto bad; | ||
198 | host = *(++argv); | ||
199 | } | ||
200 | #if 0 | ||
201 | else if (strcmp(*argv, "-host") == 0) { | ||
202 | if (--argc < 1) | ||
203 | goto bad; | ||
204 | host = *(++argv); | ||
205 | } else if (strcmp(*argv, "-port") == 0) { | ||
206 | if (--argc < 1) | ||
207 | goto bad; | ||
208 | port = *(++argv); | ||
209 | } | ||
210 | #endif | ||
211 | else if (strcmp(*argv, "-reuse") == 0) | ||
212 | perform = 2; | ||
213 | else if (strcmp(*argv, "-new") == 0) | ||
214 | perform = 1; | ||
215 | else if (strcmp(*argv, "-verify") == 0) { | ||
216 | const char *errstr; | ||
217 | |||
218 | tm_verify = SSL_VERIFY_PEER | SSL_VERIFY_CLIENT_ONCE; | ||
219 | if (--argc < 1) | ||
220 | goto bad; | ||
221 | verify_depth = strtonum(*(++argv), 0, INT_MAX, &errstr); | ||
222 | if (errstr) | ||
223 | goto bad; | ||
224 | BIO_printf(bio_err, "verify depth is %d\n", verify_depth); | ||
225 | |||
226 | } else if (strcmp(*argv, "-cert") == 0) { | ||
227 | |||
228 | if (--argc < 1) | ||
229 | goto bad; | ||
230 | t_cert_file = *(++argv); | ||
231 | |||
232 | } else if (strcmp(*argv, "-key") == 0) { | ||
233 | |||
234 | if (--argc < 1) | ||
235 | goto bad; | ||
236 | t_key_file = *(++argv); | ||
237 | |||
238 | } else if (strcmp(*argv, "-CApath") == 0) { | ||
239 | |||
240 | if (--argc < 1) | ||
241 | goto bad; | ||
242 | CApath = *(++argv); | ||
243 | |||
244 | } else if (strcmp(*argv, "-CAfile") == 0) { | ||
245 | |||
246 | if (--argc < 1) | ||
247 | goto bad; | ||
248 | CAfile = *(++argv); | ||
249 | |||
250 | } else if (strcmp(*argv, "-cipher") == 0) { | ||
251 | |||
252 | if (--argc < 1) | ||
253 | goto bad; | ||
254 | tm_cipher = *(++argv); | ||
255 | } | ||
256 | else if (strcmp(*argv, "-nbio") == 0) { | ||
257 | t_nbio = 1; | ||
258 | } | ||
259 | else if (strcmp(*argv, "-www") == 0) { | ||
260 | if (--argc < 1) | ||
261 | goto bad; | ||
262 | s_www_path = *(++argv); | ||
263 | if (strlen(s_www_path) > MYBUFSIZ - 100) { | ||
264 | BIO_printf(bio_err, "-www option too long\n"); | ||
265 | badop = 1; | ||
266 | } | ||
267 | } else if (strcmp(*argv, "-bugs") == 0) | ||
268 | st_bugs = 1; | ||
269 | else if (strcmp(*argv, "-ssl3") == 0) | ||
270 | s_time_meth = SSLv3_client_method(); | ||
271 | else if (strcmp(*argv, "-time") == 0) { | ||
272 | |||
273 | if (--argc < 1) | ||
274 | goto bad; | ||
275 | maxTime = strtonum(*(++argv), 0, INT_MAX, &errstr); | ||
276 | if (errstr) | ||
277 | goto bad; | ||
278 | } else { | ||
279 | BIO_printf(bio_err, "unknown option %s\n", *argv); | ||
280 | badop = 1; | ||
281 | break; | ||
282 | } | ||
283 | |||
284 | argc--; | ||
285 | argv++; | ||
286 | } | ||
287 | |||
288 | if (perform == 0) | ||
289 | perform = 3; | ||
290 | |||
291 | if (badop) { | ||
292 | bad: | ||
293 | s_time_usage(); | ||
294 | return -1; | ||
295 | } | ||
296 | return 0; /* Valid args */ | ||
297 | } | ||
298 | |||
299 | /*********************************************************************** | ||
300 | * TIME - time functions | ||
301 | */ | ||
302 | #define START 0 | ||
303 | #define STOP 1 | ||
304 | |||
305 | static double | ||
306 | tm_Time_F(int s) | ||
307 | { | ||
308 | return app_tminterval(s, 1); | ||
309 | } | ||
310 | |||
311 | /*********************************************************************** | ||
312 | * MAIN - main processing area for client | ||
313 | * real name depends on MONOLITH | ||
314 | */ | ||
315 | int s_time_main(int, char **); | ||
316 | |||
317 | int | ||
318 | s_time_main(int argc, char **argv) | ||
319 | { | ||
320 | double totalTime = 0.0; | ||
321 | int nConn = 0; | ||
322 | SSL *scon = NULL; | ||
323 | long finishtime = 0; | ||
324 | int ret = 1, i; | ||
325 | char buf[1024 * 8]; | ||
326 | int ver; | ||
327 | |||
328 | s_time_init(); | ||
329 | |||
330 | s_time_meth = SSLv23_client_method(); | ||
331 | |||
332 | /* parse the command line arguments */ | ||
333 | if (parseArgs(argc, argv) < 0) | ||
334 | goto end; | ||
335 | |||
336 | if ((tm_ctx = SSL_CTX_new(s_time_meth)) == NULL) | ||
337 | return (1); | ||
338 | |||
339 | SSL_CTX_set_quiet_shutdown(tm_ctx, 1); | ||
340 | |||
341 | if (st_bugs) | ||
342 | SSL_CTX_set_options(tm_ctx, SSL_OP_ALL); | ||
343 | SSL_CTX_set_cipher_list(tm_ctx, tm_cipher); | ||
344 | if (!set_cert_stuff(tm_ctx, t_cert_file, t_key_file)) | ||
345 | goto end; | ||
346 | |||
347 | if ((!SSL_CTX_load_verify_locations(tm_ctx, CAfile, CApath)) || | ||
348 | (!SSL_CTX_set_default_verify_paths(tm_ctx))) { | ||
349 | /* | ||
350 | * BIO_printf(bio_err,"error setting default verify | ||
351 | * locations\n"); | ||
352 | */ | ||
353 | ERR_print_errors(bio_err); | ||
354 | /* goto end; */ | ||
355 | } | ||
356 | if (tm_cipher == NULL) | ||
357 | tm_cipher = getenv("SSL_CIPHER"); | ||
358 | |||
359 | if (tm_cipher == NULL) { | ||
360 | fprintf(stderr, "No CIPHER specified\n"); | ||
361 | } | ||
362 | if (!(perform & 1)) | ||
363 | goto next; | ||
364 | printf("Collecting connection statistics for %d seconds\n", maxTime); | ||
365 | |||
366 | /* Loop and time how long it takes to make connections */ | ||
367 | |||
368 | bytes_read = 0; | ||
369 | finishtime = (long) time(NULL) + maxTime; | ||
370 | tm_Time_F(START); | ||
371 | for (;;) { | ||
372 | if (finishtime < (long) time(NULL)) | ||
373 | break; | ||
374 | if ((scon = doConnection(NULL)) == NULL) | ||
375 | goto end; | ||
376 | |||
377 | if (s_www_path != NULL) { | ||
378 | int ret = snprintf(buf, sizeof buf, | ||
379 | "GET %s HTTP/1.0\r\n\r\n", s_www_path); | ||
380 | if (ret == -1 || ret >= sizeof buf) { | ||
381 | fprintf(stderr, "URL too long\n"); | ||
382 | goto end; | ||
383 | } | ||
384 | SSL_write(scon, buf, strlen(buf)); | ||
385 | while ((i = SSL_read(scon, buf, sizeof(buf))) > 0) | ||
386 | bytes_read += i; | ||
387 | } | ||
388 | #ifdef NO_SHUTDOWN | ||
389 | SSL_set_shutdown(scon, SSL_SENT_SHUTDOWN | SSL_RECEIVED_SHUTDOWN); | ||
390 | #else | ||
391 | SSL_shutdown(scon); | ||
392 | #endif | ||
393 | shutdown(SSL_get_fd(scon), SHUT_RDWR); | ||
394 | close(SSL_get_fd(scon)); | ||
395 | |||
396 | nConn += 1; | ||
397 | if (SSL_session_reused(scon)) | ||
398 | ver = 'r'; | ||
399 | else { | ||
400 | ver = SSL_version(scon); | ||
401 | if (ver == TLS1_VERSION) | ||
402 | ver = 't'; | ||
403 | else if (ver == SSL3_VERSION) | ||
404 | ver = '3'; | ||
405 | else if (ver == SSL2_VERSION) | ||
406 | ver = '2'; | ||
407 | else | ||
408 | ver = '*'; | ||
409 | } | ||
410 | fputc(ver, stdout); | ||
411 | fflush(stdout); | ||
412 | |||
413 | SSL_free(scon); | ||
414 | scon = NULL; | ||
415 | } | ||
416 | totalTime += tm_Time_F(STOP); /* Add the time for this iteration */ | ||
417 | |||
418 | i = (int) ((long) time(NULL) - finishtime + maxTime); | ||
419 | printf("\n\n%d connections in %.2fs; %.2f connections/user sec, bytes read %ld\n", nConn, totalTime, ((double) nConn / totalTime), bytes_read); | ||
420 | printf("%d connections in %ld real seconds, %ld bytes read per connection\n", nConn, (long) time(NULL) - finishtime + maxTime, bytes_read / nConn); | ||
421 | |||
422 | /* | ||
423 | * Now loop and time connections using the same session id over and | ||
424 | * over | ||
425 | */ | ||
426 | |||
427 | next: | ||
428 | if (!(perform & 2)) | ||
429 | goto end; | ||
430 | printf("\n\nNow timing with session id reuse.\n"); | ||
431 | |||
432 | /* Get an SSL object so we can reuse the session id */ | ||
433 | if ((scon = doConnection(NULL)) == NULL) { | ||
434 | fprintf(stderr, "Unable to get connection\n"); | ||
435 | goto end; | ||
436 | } | ||
437 | if (s_www_path != NULL) { | ||
438 | int ret = snprintf(buf, sizeof buf, | ||
439 | "GET %s HTTP/1.0\r\n\r\n", s_www_path); | ||
440 | if (ret == -1 || ret >= sizeof buf) { | ||
441 | fprintf(stderr, "URL too long\n"); | ||
442 | goto end; | ||
443 | } | ||
444 | SSL_write(scon, buf, strlen(buf)); | ||
445 | while (SSL_read(scon, buf, sizeof(buf)) > 0); | ||
446 | } | ||
447 | #ifdef NO_SHUTDOWN | ||
448 | SSL_set_shutdown(scon, SSL_SENT_SHUTDOWN | SSL_RECEIVED_SHUTDOWN); | ||
449 | #else | ||
450 | SSL_shutdown(scon); | ||
451 | #endif | ||
452 | shutdown(SSL_get_fd(scon), SHUT_RDWR); | ||
453 | close(SSL_get_fd(scon)); | ||
454 | |||
455 | nConn = 0; | ||
456 | totalTime = 0.0; | ||
457 | |||
458 | finishtime = (long) time(NULL) + maxTime; | ||
459 | |||
460 | printf("starting\n"); | ||
461 | bytes_read = 0; | ||
462 | tm_Time_F(START); | ||
463 | |||
464 | for (;;) { | ||
465 | if (finishtime < (long) time(NULL)) | ||
466 | break; | ||
467 | if ((doConnection(scon)) == NULL) | ||
468 | goto end; | ||
469 | |||
470 | if (s_www_path) { | ||
471 | int ret = snprintf(buf, sizeof buf, | ||
472 | "GET %s HTTP/1.0\r\n\r\n", s_www_path); | ||
473 | if (ret == -1 || ret >= sizeof buf) { | ||
474 | fprintf(stderr, "URL too long\n"); | ||
475 | goto end; | ||
476 | } | ||
477 | SSL_write(scon, buf, strlen(buf)); | ||
478 | while ((i = SSL_read(scon, buf, sizeof(buf))) > 0) | ||
479 | bytes_read += i; | ||
480 | } | ||
481 | #ifdef NO_SHUTDOWN | ||
482 | SSL_set_shutdown(scon, SSL_SENT_SHUTDOWN | SSL_RECEIVED_SHUTDOWN); | ||
483 | #else | ||
484 | SSL_shutdown(scon); | ||
485 | #endif | ||
486 | shutdown(SSL_get_fd(scon), SHUT_RDWR); | ||
487 | close(SSL_get_fd(scon)); | ||
488 | |||
489 | nConn += 1; | ||
490 | if (SSL_session_reused(scon)) | ||
491 | ver = 'r'; | ||
492 | else { | ||
493 | ver = SSL_version(scon); | ||
494 | if (ver == TLS1_VERSION) | ||
495 | ver = 't'; | ||
496 | else if (ver == SSL3_VERSION) | ||
497 | ver = '3'; | ||
498 | else if (ver == SSL2_VERSION) | ||
499 | ver = '2'; | ||
500 | else | ||
501 | ver = '*'; | ||
502 | } | ||
503 | fputc(ver, stdout); | ||
504 | fflush(stdout); | ||
505 | } | ||
506 | totalTime += tm_Time_F(STOP); /* Add the time for this iteration */ | ||
507 | |||
508 | |||
509 | printf("\n\n%d connections in %.2fs; %.2f connections/user sec, bytes read %ld\n", nConn, totalTime, ((double) nConn / totalTime), bytes_read); | ||
510 | printf("%d connections in %ld real seconds, %ld bytes read per connection\n", nConn, (long) time(NULL) - finishtime + maxTime, bytes_read / nConn); | ||
511 | |||
512 | ret = 0; | ||
513 | end: | ||
514 | if (scon != NULL) | ||
515 | SSL_free(scon); | ||
516 | |||
517 | if (tm_ctx != NULL) { | ||
518 | SSL_CTX_free(tm_ctx); | ||
519 | tm_ctx = NULL; | ||
520 | } | ||
521 | |||
522 | return (ret); | ||
523 | } | ||
524 | |||
525 | /*********************************************************************** | ||
526 | * doConnection - make a connection | ||
527 | * Args: | ||
528 | * scon = earlier ssl connection for session id, or NULL | ||
529 | * Returns: | ||
530 | * SSL * = the connection pointer. | ||
531 | */ | ||
532 | static SSL * | ||
533 | doConnection(SSL * scon) | ||
534 | { | ||
535 | BIO *conn; | ||
536 | SSL *serverCon; | ||
537 | int width, i; | ||
538 | fd_set readfds; | ||
539 | |||
540 | if ((conn = BIO_new(BIO_s_connect())) == NULL) | ||
541 | return (NULL); | ||
542 | |||
543 | /* BIO_set_conn_port(conn,port);*/ | ||
544 | BIO_set_conn_hostname(conn, host); | ||
545 | |||
546 | if (scon == NULL) | ||
547 | serverCon = SSL_new(tm_ctx); | ||
548 | else { | ||
549 | serverCon = scon; | ||
550 | SSL_set_connect_state(serverCon); | ||
551 | } | ||
552 | |||
553 | SSL_set_bio(serverCon, conn, conn); | ||
554 | |||
555 | #if 0 | ||
556 | if (scon != NULL) | ||
557 | SSL_set_session(serverCon, SSL_get_session(scon)); | ||
558 | #endif | ||
559 | |||
560 | /* ok, lets connect */ | ||
561 | for (;;) { | ||
562 | i = SSL_connect(serverCon); | ||
563 | if (BIO_sock_should_retry(i)) { | ||
564 | BIO_printf(bio_err, "DELAY\n"); | ||
565 | |||
566 | i = SSL_get_fd(serverCon); | ||
567 | width = i + 1; | ||
568 | FD_ZERO(&readfds); | ||
569 | FD_SET(i, &readfds); | ||
570 | select(width, &readfds, NULL, NULL, NULL); | ||
571 | continue; | ||
572 | } | ||
573 | break; | ||
574 | } | ||
575 | if (i <= 0) { | ||
576 | BIO_printf(bio_err, "ERROR\n"); | ||
577 | if (verify_error != X509_V_OK) | ||
578 | BIO_printf(bio_err, "verify error:%s\n", | ||
579 | X509_verify_cert_error_string(verify_error)); | ||
580 | else | ||
581 | ERR_print_errors(bio_err); | ||
582 | if (scon == NULL) | ||
583 | SSL_free(serverCon); | ||
584 | return NULL; | ||
585 | } | ||
586 | return serverCon; | ||
587 | } | ||
diff --git a/src/usr.bin/openssl/sess_id.c b/src/usr.bin/openssl/sess_id.c new file mode 100644 index 0000000000..23df0301b3 --- /dev/null +++ b/src/usr.bin/openssl/sess_id.c | |||
@@ -0,0 +1,282 @@ | |||
1 | /* $OpenBSD: sess_id.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
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 | |||
63 | #include "apps.h" | ||
64 | |||
65 | #include <openssl/bio.h> | ||
66 | #include <openssl/err.h> | ||
67 | #include <openssl/pem.h> | ||
68 | #include <openssl/ssl.h> | ||
69 | #include <openssl/x509.h> | ||
70 | |||
71 | static const char *sess_id_usage[] = { | ||
72 | "usage: sess_id args\n", | ||
73 | "\n", | ||
74 | " -inform arg - input format - default PEM (DER or PEM)\n", | ||
75 | " -outform arg - output format - default PEM\n", | ||
76 | " -in arg - input file - default stdin\n", | ||
77 | " -out arg - output file - default stdout\n", | ||
78 | " -text - print ssl session id details\n", | ||
79 | " -cert - output certificate \n", | ||
80 | " -noout - no output of encoded session info\n", | ||
81 | " -context arg - set the session ID context\n", | ||
82 | NULL | ||
83 | }; | ||
84 | |||
85 | static SSL_SESSION *load_sess_id(char *file, int format); | ||
86 | |||
87 | int sess_id_main(int, char **); | ||
88 | |||
89 | int | ||
90 | sess_id_main(int argc, char **argv) | ||
91 | { | ||
92 | SSL_SESSION *x = NULL; | ||
93 | X509 *peer = NULL; | ||
94 | int ret = 1, i, num, badops = 0; | ||
95 | BIO *out = NULL; | ||
96 | int informat, outformat; | ||
97 | char *infile = NULL, *outfile = NULL, *context = NULL; | ||
98 | int cert = 0, noout = 0, text = 0; | ||
99 | const char **pp; | ||
100 | |||
101 | informat = FORMAT_PEM; | ||
102 | outformat = FORMAT_PEM; | ||
103 | |||
104 | argc--; | ||
105 | argv++; | ||
106 | num = 0; | ||
107 | while (argc >= 1) { | ||
108 | if (strcmp(*argv, "-inform") == 0) { | ||
109 | if (--argc < 1) | ||
110 | goto bad; | ||
111 | informat = str2fmt(*(++argv)); | ||
112 | } else if (strcmp(*argv, "-outform") == 0) { | ||
113 | if (--argc < 1) | ||
114 | goto bad; | ||
115 | outformat = str2fmt(*(++argv)); | ||
116 | } else if (strcmp(*argv, "-in") == 0) { | ||
117 | if (--argc < 1) | ||
118 | goto bad; | ||
119 | infile = *(++argv); | ||
120 | } else if (strcmp(*argv, "-out") == 0) { | ||
121 | if (--argc < 1) | ||
122 | goto bad; | ||
123 | outfile = *(++argv); | ||
124 | } else if (strcmp(*argv, "-text") == 0) | ||
125 | text = ++num; | ||
126 | else if (strcmp(*argv, "-cert") == 0) | ||
127 | cert = ++num; | ||
128 | else if (strcmp(*argv, "-noout") == 0) | ||
129 | noout = ++num; | ||
130 | else if (strcmp(*argv, "-context") == 0) { | ||
131 | if (--argc < 1) | ||
132 | goto bad; | ||
133 | context = *++argv; | ||
134 | } else { | ||
135 | BIO_printf(bio_err, "unknown option %s\n", *argv); | ||
136 | badops = 1; | ||
137 | break; | ||
138 | } | ||
139 | argc--; | ||
140 | argv++; | ||
141 | } | ||
142 | |||
143 | if (badops) { | ||
144 | bad: | ||
145 | for (pp = sess_id_usage; (*pp != NULL); pp++) | ||
146 | BIO_printf(bio_err, "%s", *pp); | ||
147 | goto end; | ||
148 | } | ||
149 | ERR_load_crypto_strings(); | ||
150 | x = load_sess_id(infile, informat); | ||
151 | if (x == NULL) { | ||
152 | goto end; | ||
153 | } | ||
154 | peer = SSL_SESSION_get0_peer(x); | ||
155 | |||
156 | if (context) { | ||
157 | size_t ctx_len = strlen(context); | ||
158 | if (ctx_len > SSL_MAX_SID_CTX_LENGTH) { | ||
159 | BIO_printf(bio_err, "Context too long\n"); | ||
160 | goto end; | ||
161 | } | ||
162 | SSL_SESSION_set1_id_context(x, (unsigned char *) context, ctx_len); | ||
163 | } | ||
164 | #ifdef undef | ||
165 | /* just testing for memory leaks :-) */ | ||
166 | { | ||
167 | SSL_SESSION *s; | ||
168 | char buf[1024 * 10], *p; | ||
169 | int i; | ||
170 | |||
171 | s = SSL_SESSION_new(); | ||
172 | |||
173 | p = &buf; | ||
174 | i = i2d_SSL_SESSION(x, &p); | ||
175 | p = &buf; | ||
176 | d2i_SSL_SESSION(&s, &p, (long) i); | ||
177 | p = &buf; | ||
178 | d2i_SSL_SESSION(&s, &p, (long) i); | ||
179 | p = &buf; | ||
180 | d2i_SSL_SESSION(&s, &p, (long) i); | ||
181 | SSL_SESSION_free(s); | ||
182 | } | ||
183 | #endif | ||
184 | |||
185 | if (!noout || text) { | ||
186 | out = BIO_new(BIO_s_file()); | ||
187 | if (out == NULL) { | ||
188 | ERR_print_errors(bio_err); | ||
189 | goto end; | ||
190 | } | ||
191 | if (outfile == NULL) { | ||
192 | BIO_set_fp(out, stdout, BIO_NOCLOSE); | ||
193 | } else { | ||
194 | if (BIO_write_filename(out, outfile) <= 0) { | ||
195 | perror(outfile); | ||
196 | goto end; | ||
197 | } | ||
198 | } | ||
199 | } | ||
200 | if (text) { | ||
201 | SSL_SESSION_print(out, x); | ||
202 | |||
203 | if (cert) { | ||
204 | if (peer == NULL) | ||
205 | BIO_puts(out, "No certificate present\n"); | ||
206 | else | ||
207 | X509_print(out, peer); | ||
208 | } | ||
209 | } | ||
210 | if (!noout && !cert) { | ||
211 | if (outformat == FORMAT_ASN1) | ||
212 | i = i2d_SSL_SESSION_bio(out, x); | ||
213 | else if (outformat == FORMAT_PEM) | ||
214 | i = PEM_write_bio_SSL_SESSION(out, x); | ||
215 | else { | ||
216 | BIO_printf(bio_err, "bad output format specified for outfile\n"); | ||
217 | goto end; | ||
218 | } | ||
219 | if (!i) { | ||
220 | BIO_printf(bio_err, "unable to write SSL_SESSION\n"); | ||
221 | goto end; | ||
222 | } | ||
223 | } else if (!noout && (peer != NULL)) { /* just print the certificate */ | ||
224 | if (outformat == FORMAT_ASN1) | ||
225 | i = (int) i2d_X509_bio(out, peer); | ||
226 | else if (outformat == FORMAT_PEM) | ||
227 | i = PEM_write_bio_X509(out, peer); | ||
228 | else { | ||
229 | BIO_printf(bio_err, "bad output format specified for outfile\n"); | ||
230 | goto end; | ||
231 | } | ||
232 | if (!i) { | ||
233 | BIO_printf(bio_err, "unable to write X509\n"); | ||
234 | goto end; | ||
235 | } | ||
236 | } | ||
237 | ret = 0; | ||
238 | end: | ||
239 | if (out != NULL) | ||
240 | BIO_free_all(out); | ||
241 | if (x != NULL) | ||
242 | SSL_SESSION_free(x); | ||
243 | |||
244 | return (ret); | ||
245 | } | ||
246 | |||
247 | static SSL_SESSION * | ||
248 | load_sess_id(char *infile, int format) | ||
249 | { | ||
250 | SSL_SESSION *x = NULL; | ||
251 | BIO *in = NULL; | ||
252 | |||
253 | in = BIO_new(BIO_s_file()); | ||
254 | if (in == NULL) { | ||
255 | ERR_print_errors(bio_err); | ||
256 | goto end; | ||
257 | } | ||
258 | if (infile == NULL) | ||
259 | BIO_set_fp(in, stdin, BIO_NOCLOSE); | ||
260 | else { | ||
261 | if (BIO_read_filename(in, infile) <= 0) { | ||
262 | perror(infile); | ||
263 | goto end; | ||
264 | } | ||
265 | } | ||
266 | if (format == FORMAT_ASN1) | ||
267 | x = d2i_SSL_SESSION_bio(in, NULL); | ||
268 | else if (format == FORMAT_PEM) | ||
269 | x = PEM_read_bio_SSL_SESSION(in, NULL, NULL, NULL); | ||
270 | else { | ||
271 | BIO_printf(bio_err, "bad input format specified for input crl\n"); | ||
272 | goto end; | ||
273 | } | ||
274 | if (x == NULL) { | ||
275 | BIO_printf(bio_err, "unable to load SSL_SESSION\n"); | ||
276 | ERR_print_errors(bio_err); | ||
277 | goto end; | ||
278 | } | ||
279 | end: | ||
280 | BIO_free(in); | ||
281 | return (x); | ||
282 | } | ||
diff --git a/src/usr.bin/openssl/smime.c b/src/usr.bin/openssl/smime.c new file mode 100644 index 0000000000..155bb8b03d --- /dev/null +++ b/src/usr.bin/openssl/smime.c | |||
@@ -0,0 +1,697 @@ | |||
1 | /* $OpenBSD: smime.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
2 | /* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL | ||
3 | * project. | ||
4 | */ | ||
5 | /* ==================================================================== | ||
6 | * Copyright (c) 1999-2004 The OpenSSL Project. All rights reserved. | ||
7 | * | ||
8 | * Redistribution and use in source and binary forms, with or without | ||
9 | * modification, are permitted provided that the following conditions | ||
10 | * are met: | ||
11 | * | ||
12 | * 1. Redistributions of source code must retain the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer. | ||
14 | * | ||
15 | * 2. Redistributions in binary form must reproduce the above copyright | ||
16 | * notice, this list of conditions and the following disclaimer in | ||
17 | * the documentation and/or other materials provided with the | ||
18 | * distribution. | ||
19 | * | ||
20 | * 3. All advertising materials mentioning features or use of this | ||
21 | * software must display the following acknowledgment: | ||
22 | * "This product includes software developed by the OpenSSL Project | ||
23 | * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" | ||
24 | * | ||
25 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
26 | * endorse or promote products derived from this software without | ||
27 | * prior written permission. For written permission, please contact | ||
28 | * licensing@OpenSSL.org. | ||
29 | * | ||
30 | * 5. Products derived from this software may not be called "OpenSSL" | ||
31 | * nor may "OpenSSL" appear in their names without prior written | ||
32 | * permission of the OpenSSL Project. | ||
33 | * | ||
34 | * 6. Redistributions of any form whatsoever must retain the following | ||
35 | * acknowledgment: | ||
36 | * "This product includes software developed by the OpenSSL Project | ||
37 | * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" | ||
38 | * | ||
39 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
40 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
41 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
42 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
43 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
44 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
45 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
46 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
47 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
48 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
49 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
50 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
51 | * ==================================================================== | ||
52 | * | ||
53 | * This product includes cryptographic software written by Eric Young | ||
54 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
55 | * Hudson (tjh@cryptsoft.com). | ||
56 | * | ||
57 | */ | ||
58 | |||
59 | /* S/MIME utility function */ | ||
60 | |||
61 | #include <stdio.h> | ||
62 | #include <string.h> | ||
63 | |||
64 | #include "apps.h" | ||
65 | |||
66 | #include <openssl/crypto.h> | ||
67 | #include <openssl/err.h> | ||
68 | #include <openssl/pem.h> | ||
69 | #include <openssl/x509_vfy.h> | ||
70 | #include <openssl/x509v3.h> | ||
71 | |||
72 | static int save_certs(char *signerfile, STACK_OF(X509) * signers); | ||
73 | static int smime_cb(int ok, X509_STORE_CTX * ctx); | ||
74 | |||
75 | #define SMIME_OP 0x10 | ||
76 | #define SMIME_IP 0x20 | ||
77 | #define SMIME_SIGNERS 0x40 | ||
78 | #define SMIME_ENCRYPT (1 | SMIME_OP) | ||
79 | #define SMIME_DECRYPT (2 | SMIME_IP) | ||
80 | #define SMIME_SIGN (3 | SMIME_OP | SMIME_SIGNERS) | ||
81 | #define SMIME_VERIFY (4 | SMIME_IP) | ||
82 | #define SMIME_PK7OUT (5 | SMIME_IP | SMIME_OP) | ||
83 | #define SMIME_RESIGN (6 | SMIME_IP | SMIME_OP | SMIME_SIGNERS) | ||
84 | |||
85 | int smime_main(int, char **); | ||
86 | |||
87 | int | ||
88 | smime_main(int argc, char **argv) | ||
89 | { | ||
90 | ENGINE *e = NULL; | ||
91 | int operation = 0; | ||
92 | int ret = 0; | ||
93 | char **args; | ||
94 | const char *inmode = "r", *outmode = "w"; | ||
95 | char *infile = NULL, *outfile = NULL; | ||
96 | char *signerfile = NULL, *recipfile = NULL; | ||
97 | STACK_OF(OPENSSL_STRING) * sksigners = NULL, *skkeys = NULL; | ||
98 | char *certfile = NULL, *keyfile = NULL, *contfile = NULL; | ||
99 | const EVP_CIPHER *cipher = NULL; | ||
100 | PKCS7 *p7 = NULL; | ||
101 | X509_STORE *store = NULL; | ||
102 | X509 *cert = NULL, *recip = NULL, *signer = NULL; | ||
103 | EVP_PKEY *key = NULL; | ||
104 | STACK_OF(X509) * encerts = NULL, *other = NULL; | ||
105 | BIO *in = NULL, *out = NULL, *indata = NULL; | ||
106 | int badarg = 0; | ||
107 | int flags = PKCS7_DETACHED; | ||
108 | char *to = NULL, *from = NULL, *subject = NULL; | ||
109 | char *CAfile = NULL, *CApath = NULL; | ||
110 | char *passargin = NULL, *passin = NULL; | ||
111 | int indef = 0; | ||
112 | const EVP_MD *sign_md = NULL; | ||
113 | int informat = FORMAT_SMIME, outformat = FORMAT_SMIME; | ||
114 | int keyform = FORMAT_PEM; | ||
115 | #ifndef OPENSSL_NO_ENGINE | ||
116 | char *engine = NULL; | ||
117 | #endif | ||
118 | |||
119 | X509_VERIFY_PARAM *vpm = NULL; | ||
120 | |||
121 | args = argv + 1; | ||
122 | ret = 1; | ||
123 | |||
124 | while (!badarg && *args && *args[0] == '-') { | ||
125 | if (!strcmp(*args, "-encrypt")) | ||
126 | operation = SMIME_ENCRYPT; | ||
127 | else if (!strcmp(*args, "-decrypt")) | ||
128 | operation = SMIME_DECRYPT; | ||
129 | else if (!strcmp(*args, "-sign")) | ||
130 | operation = SMIME_SIGN; | ||
131 | else if (!strcmp(*args, "-resign")) | ||
132 | operation = SMIME_RESIGN; | ||
133 | else if (!strcmp(*args, "-verify")) | ||
134 | operation = SMIME_VERIFY; | ||
135 | else if (!strcmp(*args, "-pk7out")) | ||
136 | operation = SMIME_PK7OUT; | ||
137 | #ifndef OPENSSL_NO_DES | ||
138 | else if (!strcmp(*args, "-des3")) | ||
139 | cipher = EVP_des_ede3_cbc(); | ||
140 | else if (!strcmp(*args, "-des")) | ||
141 | cipher = EVP_des_cbc(); | ||
142 | #endif | ||
143 | #ifndef OPENSSL_NO_RC2 | ||
144 | else if (!strcmp(*args, "-rc2-40")) | ||
145 | cipher = EVP_rc2_40_cbc(); | ||
146 | else if (!strcmp(*args, "-rc2-128")) | ||
147 | cipher = EVP_rc2_cbc(); | ||
148 | else if (!strcmp(*args, "-rc2-64")) | ||
149 | cipher = EVP_rc2_64_cbc(); | ||
150 | #endif | ||
151 | #ifndef OPENSSL_NO_AES | ||
152 | else if (!strcmp(*args, "-aes128")) | ||
153 | cipher = EVP_aes_128_cbc(); | ||
154 | else if (!strcmp(*args, "-aes192")) | ||
155 | cipher = EVP_aes_192_cbc(); | ||
156 | else if (!strcmp(*args, "-aes256")) | ||
157 | cipher = EVP_aes_256_cbc(); | ||
158 | #endif | ||
159 | #ifndef OPENSSL_NO_CAMELLIA | ||
160 | else if (!strcmp(*args, "-camellia128")) | ||
161 | cipher = EVP_camellia_128_cbc(); | ||
162 | else if (!strcmp(*args, "-camellia192")) | ||
163 | cipher = EVP_camellia_192_cbc(); | ||
164 | else if (!strcmp(*args, "-camellia256")) | ||
165 | cipher = EVP_camellia_256_cbc(); | ||
166 | #endif | ||
167 | else if (!strcmp(*args, "-text")) | ||
168 | flags |= PKCS7_TEXT; | ||
169 | else if (!strcmp(*args, "-nointern")) | ||
170 | flags |= PKCS7_NOINTERN; | ||
171 | else if (!strcmp(*args, "-noverify")) | ||
172 | flags |= PKCS7_NOVERIFY; | ||
173 | else if (!strcmp(*args, "-nochain")) | ||
174 | flags |= PKCS7_NOCHAIN; | ||
175 | else if (!strcmp(*args, "-nocerts")) | ||
176 | flags |= PKCS7_NOCERTS; | ||
177 | else if (!strcmp(*args, "-noattr")) | ||
178 | flags |= PKCS7_NOATTR; | ||
179 | else if (!strcmp(*args, "-nodetach")) | ||
180 | flags &= ~PKCS7_DETACHED; | ||
181 | else if (!strcmp(*args, "-nosmimecap")) | ||
182 | flags |= PKCS7_NOSMIMECAP; | ||
183 | else if (!strcmp(*args, "-binary")) | ||
184 | flags |= PKCS7_BINARY; | ||
185 | else if (!strcmp(*args, "-nosigs")) | ||
186 | flags |= PKCS7_NOSIGS; | ||
187 | else if (!strcmp(*args, "-stream")) | ||
188 | indef = 1; | ||
189 | else if (!strcmp(*args, "-indef")) | ||
190 | indef = 1; | ||
191 | else if (!strcmp(*args, "-noindef")) | ||
192 | indef = 0; | ||
193 | else if (!strcmp(*args, "-nooldmime")) | ||
194 | flags |= PKCS7_NOOLDMIMETYPE; | ||
195 | else if (!strcmp(*args, "-crlfeol")) | ||
196 | flags |= PKCS7_CRLFEOL; | ||
197 | #ifndef OPENSSL_NO_ENGINE | ||
198 | else if (!strcmp(*args, "-engine")) { | ||
199 | if (!args[1]) | ||
200 | goto argerr; | ||
201 | engine = *++args; | ||
202 | } | ||
203 | #endif | ||
204 | else if (!strcmp(*args, "-passin")) { | ||
205 | if (!args[1]) | ||
206 | goto argerr; | ||
207 | passargin = *++args; | ||
208 | } else if (!strcmp(*args, "-to")) { | ||
209 | if (!args[1]) | ||
210 | goto argerr; | ||
211 | to = *++args; | ||
212 | } else if (!strcmp(*args, "-from")) { | ||
213 | if (!args[1]) | ||
214 | goto argerr; | ||
215 | from = *++args; | ||
216 | } else if (!strcmp(*args, "-subject")) { | ||
217 | if (!args[1]) | ||
218 | goto argerr; | ||
219 | subject = *++args; | ||
220 | } else if (!strcmp(*args, "-signer")) { | ||
221 | if (!args[1]) | ||
222 | goto argerr; | ||
223 | /* If previous -signer argument add signer to list */ | ||
224 | |||
225 | if (signerfile) { | ||
226 | if (!sksigners) | ||
227 | sksigners = sk_OPENSSL_STRING_new_null(); | ||
228 | sk_OPENSSL_STRING_push(sksigners, signerfile); | ||
229 | if (!keyfile) | ||
230 | keyfile = signerfile; | ||
231 | if (!skkeys) | ||
232 | skkeys = sk_OPENSSL_STRING_new_null(); | ||
233 | sk_OPENSSL_STRING_push(skkeys, keyfile); | ||
234 | keyfile = NULL; | ||
235 | } | ||
236 | signerfile = *++args; | ||
237 | } else if (!strcmp(*args, "-recip")) { | ||
238 | if (!args[1]) | ||
239 | goto argerr; | ||
240 | recipfile = *++args; | ||
241 | } else if (!strcmp(*args, "-md")) { | ||
242 | if (!args[1]) | ||
243 | goto argerr; | ||
244 | sign_md = EVP_get_digestbyname(*++args); | ||
245 | if (sign_md == NULL) { | ||
246 | BIO_printf(bio_err, "Unknown digest %s\n", | ||
247 | *args); | ||
248 | goto argerr; | ||
249 | } | ||
250 | } else if (!strcmp(*args, "-inkey")) { | ||
251 | if (!args[1]) | ||
252 | goto argerr; | ||
253 | /* If previous -inkey arument add signer to list */ | ||
254 | if (keyfile) { | ||
255 | if (!signerfile) { | ||
256 | BIO_puts(bio_err, "Illegal -inkey without -signer\n"); | ||
257 | goto argerr; | ||
258 | } | ||
259 | if (!sksigners) | ||
260 | sksigners = sk_OPENSSL_STRING_new_null(); | ||
261 | sk_OPENSSL_STRING_push(sksigners, signerfile); | ||
262 | signerfile = NULL; | ||
263 | if (!skkeys) | ||
264 | skkeys = sk_OPENSSL_STRING_new_null(); | ||
265 | sk_OPENSSL_STRING_push(skkeys, keyfile); | ||
266 | } | ||
267 | keyfile = *++args; | ||
268 | } else if (!strcmp(*args, "-keyform")) { | ||
269 | if (!args[1]) | ||
270 | goto argerr; | ||
271 | keyform = str2fmt(*++args); | ||
272 | } else if (!strcmp(*args, "-certfile")) { | ||
273 | if (!args[1]) | ||
274 | goto argerr; | ||
275 | certfile = *++args; | ||
276 | } else if (!strcmp(*args, "-CAfile")) { | ||
277 | if (!args[1]) | ||
278 | goto argerr; | ||
279 | CAfile = *++args; | ||
280 | } else if (!strcmp(*args, "-CApath")) { | ||
281 | if (!args[1]) | ||
282 | goto argerr; | ||
283 | CApath = *++args; | ||
284 | } else if (!strcmp(*args, "-in")) { | ||
285 | if (!args[1]) | ||
286 | goto argerr; | ||
287 | infile = *++args; | ||
288 | } else if (!strcmp(*args, "-inform")) { | ||
289 | if (!args[1]) | ||
290 | goto argerr; | ||
291 | informat = str2fmt(*++args); | ||
292 | } else if (!strcmp(*args, "-outform")) { | ||
293 | if (!args[1]) | ||
294 | goto argerr; | ||
295 | outformat = str2fmt(*++args); | ||
296 | } else if (!strcmp(*args, "-out")) { | ||
297 | if (!args[1]) | ||
298 | goto argerr; | ||
299 | outfile = *++args; | ||
300 | } else if (!strcmp(*args, "-content")) { | ||
301 | if (!args[1]) | ||
302 | goto argerr; | ||
303 | contfile = *++args; | ||
304 | } else if (args_verify(&args, NULL, &badarg, bio_err, &vpm)) | ||
305 | continue; | ||
306 | else if ((cipher = EVP_get_cipherbyname(*args + 1)) == NULL) | ||
307 | badarg = 1; | ||
308 | args++; | ||
309 | } | ||
310 | |||
311 | if (!(operation & SMIME_SIGNERS) && (skkeys || sksigners)) { | ||
312 | BIO_puts(bio_err, "Multiple signers or keys not allowed\n"); | ||
313 | goto argerr; | ||
314 | } | ||
315 | if (operation & SMIME_SIGNERS) { | ||
316 | /* Check to see if any final signer needs to be appended */ | ||
317 | if (keyfile && !signerfile) { | ||
318 | BIO_puts(bio_err, "Illegal -inkey without -signer\n"); | ||
319 | goto argerr; | ||
320 | } | ||
321 | if (signerfile) { | ||
322 | if (!sksigners) | ||
323 | sksigners = sk_OPENSSL_STRING_new_null(); | ||
324 | sk_OPENSSL_STRING_push(sksigners, signerfile); | ||
325 | if (!skkeys) | ||
326 | skkeys = sk_OPENSSL_STRING_new_null(); | ||
327 | if (!keyfile) | ||
328 | keyfile = signerfile; | ||
329 | sk_OPENSSL_STRING_push(skkeys, keyfile); | ||
330 | } | ||
331 | if (!sksigners) { | ||
332 | BIO_printf(bio_err, "No signer certificate specified\n"); | ||
333 | badarg = 1; | ||
334 | } | ||
335 | signerfile = NULL; | ||
336 | keyfile = NULL; | ||
337 | } else if (operation == SMIME_DECRYPT) { | ||
338 | if (!recipfile && !keyfile) { | ||
339 | BIO_printf(bio_err, "No recipient certificate or key specified\n"); | ||
340 | badarg = 1; | ||
341 | } | ||
342 | } else if (operation == SMIME_ENCRYPT) { | ||
343 | if (!*args) { | ||
344 | BIO_printf(bio_err, "No recipient(s) certificate(s) specified\n"); | ||
345 | badarg = 1; | ||
346 | } | ||
347 | } else if (!operation) | ||
348 | badarg = 1; | ||
349 | |||
350 | if (badarg) { | ||
351 | argerr: | ||
352 | BIO_printf(bio_err, "Usage smime [options] cert.pem ...\n"); | ||
353 | BIO_printf(bio_err, "where options are\n"); | ||
354 | BIO_printf(bio_err, "-encrypt encrypt message\n"); | ||
355 | BIO_printf(bio_err, "-decrypt decrypt encrypted message\n"); | ||
356 | BIO_printf(bio_err, "-sign sign message\n"); | ||
357 | BIO_printf(bio_err, "-verify verify signed message\n"); | ||
358 | BIO_printf(bio_err, "-pk7out output PKCS#7 structure\n"); | ||
359 | #ifndef OPENSSL_NO_DES | ||
360 | BIO_printf(bio_err, "-des3 encrypt with triple DES\n"); | ||
361 | BIO_printf(bio_err, "-des encrypt with DES\n"); | ||
362 | #endif | ||
363 | #ifndef OPENSSL_NO_RC2 | ||
364 | BIO_printf(bio_err, "-rc2-40 encrypt with RC2-40 (default)\n"); | ||
365 | BIO_printf(bio_err, "-rc2-64 encrypt with RC2-64\n"); | ||
366 | BIO_printf(bio_err, "-rc2-128 encrypt with RC2-128\n"); | ||
367 | #endif | ||
368 | #ifndef OPENSSL_NO_AES | ||
369 | BIO_printf(bio_err, "-aes128, -aes192, -aes256\n"); | ||
370 | BIO_printf(bio_err, " encrypt PEM output with cbc aes\n"); | ||
371 | #endif | ||
372 | #ifndef OPENSSL_NO_CAMELLIA | ||
373 | BIO_printf(bio_err, "-camellia128, -camellia192, -camellia256\n"); | ||
374 | BIO_printf(bio_err, " encrypt PEM output with cbc camellia\n"); | ||
375 | #endif | ||
376 | BIO_printf(bio_err, "-nointern don't search certificates in message for signer\n"); | ||
377 | BIO_printf(bio_err, "-nosigs don't verify message signature\n"); | ||
378 | BIO_printf(bio_err, "-noverify don't verify signers certificate\n"); | ||
379 | BIO_printf(bio_err, "-nocerts don't include signers certificate when signing\n"); | ||
380 | BIO_printf(bio_err, "-nodetach use opaque signing\n"); | ||
381 | BIO_printf(bio_err, "-noattr don't include any signed attributes\n"); | ||
382 | BIO_printf(bio_err, "-binary don't translate message to text\n"); | ||
383 | BIO_printf(bio_err, "-certfile file other certificates file\n"); | ||
384 | BIO_printf(bio_err, "-signer file signer certificate file\n"); | ||
385 | BIO_printf(bio_err, "-recip file recipient certificate file for decryption\n"); | ||
386 | BIO_printf(bio_err, "-in file input file\n"); | ||
387 | BIO_printf(bio_err, "-inform arg input format SMIME (default), PEM or DER\n"); | ||
388 | BIO_printf(bio_err, "-inkey file input private key (if not signer or recipient)\n"); | ||
389 | BIO_printf(bio_err, "-keyform arg input private key format (PEM or ENGINE)\n"); | ||
390 | BIO_printf(bio_err, "-out file output file\n"); | ||
391 | BIO_printf(bio_err, "-outform arg output format SMIME (default), PEM or DER\n"); | ||
392 | BIO_printf(bio_err, "-content file supply or override content for detached signature\n"); | ||
393 | BIO_printf(bio_err, "-to addr to address\n"); | ||
394 | BIO_printf(bio_err, "-from ad from address\n"); | ||
395 | BIO_printf(bio_err, "-subject s subject\n"); | ||
396 | BIO_printf(bio_err, "-text include or delete text MIME headers\n"); | ||
397 | BIO_printf(bio_err, "-CApath dir trusted certificates directory\n"); | ||
398 | BIO_printf(bio_err, "-CAfile file trusted certificates file\n"); | ||
399 | BIO_printf(bio_err, "-crl_check check revocation status of signer's certificate using CRLs\n"); | ||
400 | BIO_printf(bio_err, "-crl_check_all check revocation status of signer's certificate chain using CRLs\n"); | ||
401 | #ifndef OPENSSL_NO_ENGINE | ||
402 | BIO_printf(bio_err, "-engine e use engine e, possibly a hardware device.\n"); | ||
403 | #endif | ||
404 | BIO_printf(bio_err, "-passin arg input file pass phrase source\n"); | ||
405 | BIO_printf(bio_err, "cert.pem recipient certificate(s) for encryption\n"); | ||
406 | goto end; | ||
407 | } | ||
408 | #ifndef OPENSSL_NO_ENGINE | ||
409 | e = setup_engine(bio_err, engine, 0); | ||
410 | #endif | ||
411 | |||
412 | if (!app_passwd(bio_err, passargin, NULL, &passin, NULL)) { | ||
413 | BIO_printf(bio_err, "Error getting password\n"); | ||
414 | goto end; | ||
415 | } | ||
416 | ret = 2; | ||
417 | |||
418 | if (!(operation & SMIME_SIGNERS)) | ||
419 | flags &= ~PKCS7_DETACHED; | ||
420 | |||
421 | if (operation & SMIME_OP) { | ||
422 | if (outformat == FORMAT_ASN1) | ||
423 | outmode = "wb"; | ||
424 | } else { | ||
425 | if (flags & PKCS7_BINARY) | ||
426 | outmode = "wb"; | ||
427 | } | ||
428 | |||
429 | if (operation & SMIME_IP) { | ||
430 | if (informat == FORMAT_ASN1) | ||
431 | inmode = "rb"; | ||
432 | } else { | ||
433 | if (flags & PKCS7_BINARY) | ||
434 | inmode = "rb"; | ||
435 | } | ||
436 | |||
437 | if (operation == SMIME_ENCRYPT) { | ||
438 | if (!cipher) { | ||
439 | #ifndef OPENSSL_NO_RC2 | ||
440 | cipher = EVP_rc2_40_cbc(); | ||
441 | #else | ||
442 | BIO_printf(bio_err, "No cipher selected\n"); | ||
443 | goto end; | ||
444 | #endif | ||
445 | } | ||
446 | encerts = sk_X509_new_null(); | ||
447 | while (*args) { | ||
448 | if (!(cert = load_cert(bio_err, *args, FORMAT_PEM, | ||
449 | NULL, e, "recipient certificate file"))) { | ||
450 | #if 0 /* An appropriate message is already printed */ | ||
451 | BIO_printf(bio_err, "Can't read recipient certificate file %s\n", *args); | ||
452 | #endif | ||
453 | goto end; | ||
454 | } | ||
455 | sk_X509_push(encerts, cert); | ||
456 | cert = NULL; | ||
457 | args++; | ||
458 | } | ||
459 | } | ||
460 | if (certfile) { | ||
461 | if (!(other = load_certs(bio_err, certfile, FORMAT_PEM, NULL, | ||
462 | e, "certificate file"))) { | ||
463 | ERR_print_errors(bio_err); | ||
464 | goto end; | ||
465 | } | ||
466 | } | ||
467 | if (recipfile && (operation == SMIME_DECRYPT)) { | ||
468 | if (!(recip = load_cert(bio_err, recipfile, FORMAT_PEM, NULL, | ||
469 | e, "recipient certificate file"))) { | ||
470 | ERR_print_errors(bio_err); | ||
471 | goto end; | ||
472 | } | ||
473 | } | ||
474 | if (operation == SMIME_DECRYPT) { | ||
475 | if (!keyfile) | ||
476 | keyfile = recipfile; | ||
477 | } else if (operation == SMIME_SIGN) { | ||
478 | if (!keyfile) | ||
479 | keyfile = signerfile; | ||
480 | } else | ||
481 | keyfile = NULL; | ||
482 | |||
483 | if (keyfile) { | ||
484 | key = load_key(bio_err, keyfile, keyform, 0, passin, e, | ||
485 | "signing key file"); | ||
486 | if (!key) | ||
487 | goto end; | ||
488 | } | ||
489 | if (infile) { | ||
490 | if (!(in = BIO_new_file(infile, inmode))) { | ||
491 | BIO_printf(bio_err, | ||
492 | "Can't open input file %s\n", infile); | ||
493 | goto end; | ||
494 | } | ||
495 | } else | ||
496 | in = BIO_new_fp(stdin, BIO_NOCLOSE); | ||
497 | |||
498 | if (operation & SMIME_IP) { | ||
499 | if (informat == FORMAT_SMIME) | ||
500 | p7 = SMIME_read_PKCS7(in, &indata); | ||
501 | else if (informat == FORMAT_PEM) | ||
502 | p7 = PEM_read_bio_PKCS7(in, NULL, NULL, NULL); | ||
503 | else if (informat == FORMAT_ASN1) | ||
504 | p7 = d2i_PKCS7_bio(in, NULL); | ||
505 | else { | ||
506 | BIO_printf(bio_err, "Bad input format for PKCS#7 file\n"); | ||
507 | goto end; | ||
508 | } | ||
509 | |||
510 | if (!p7) { | ||
511 | BIO_printf(bio_err, "Error reading S/MIME message\n"); | ||
512 | goto end; | ||
513 | } | ||
514 | if (contfile) { | ||
515 | BIO_free(indata); | ||
516 | if (!(indata = BIO_new_file(contfile, "rb"))) { | ||
517 | BIO_printf(bio_err, "Can't read content file %s\n", contfile); | ||
518 | goto end; | ||
519 | } | ||
520 | } | ||
521 | } | ||
522 | if (outfile) { | ||
523 | if (!(out = BIO_new_file(outfile, outmode))) { | ||
524 | BIO_printf(bio_err, | ||
525 | "Can't open output file %s\n", outfile); | ||
526 | goto end; | ||
527 | } | ||
528 | } else { | ||
529 | out = BIO_new_fp(stdout, BIO_NOCLOSE); | ||
530 | } | ||
531 | |||
532 | if (operation == SMIME_VERIFY) { | ||
533 | if (!(store = setup_verify(bio_err, CAfile, CApath))) | ||
534 | goto end; | ||
535 | X509_STORE_set_verify_cb(store, smime_cb); | ||
536 | if (vpm) | ||
537 | X509_STORE_set1_param(store, vpm); | ||
538 | } | ||
539 | ret = 3; | ||
540 | |||
541 | if (operation == SMIME_ENCRYPT) { | ||
542 | if (indef) | ||
543 | flags |= PKCS7_STREAM; | ||
544 | p7 = PKCS7_encrypt(encerts, in, cipher, flags); | ||
545 | } else if (operation & SMIME_SIGNERS) { | ||
546 | int i; | ||
547 | /* | ||
548 | * If detached data content we only enable streaming if | ||
549 | * S/MIME output format. | ||
550 | */ | ||
551 | if (operation == SMIME_SIGN) { | ||
552 | if (flags & PKCS7_DETACHED) { | ||
553 | if (outformat == FORMAT_SMIME) | ||
554 | flags |= PKCS7_STREAM; | ||
555 | } else if (indef) | ||
556 | flags |= PKCS7_STREAM; | ||
557 | flags |= PKCS7_PARTIAL; | ||
558 | p7 = PKCS7_sign(NULL, NULL, other, in, flags); | ||
559 | if (!p7) | ||
560 | goto end; | ||
561 | } else | ||
562 | flags |= PKCS7_REUSE_DIGEST; | ||
563 | for (i = 0; i < sk_OPENSSL_STRING_num(sksigners); i++) { | ||
564 | signerfile = sk_OPENSSL_STRING_value(sksigners, i); | ||
565 | keyfile = sk_OPENSSL_STRING_value(skkeys, i); | ||
566 | signer = load_cert(bio_err, signerfile, FORMAT_PEM, NULL, | ||
567 | e, "signer certificate"); | ||
568 | if (!signer) | ||
569 | goto end; | ||
570 | key = load_key(bio_err, keyfile, keyform, 0, passin, e, | ||
571 | "signing key file"); | ||
572 | if (!key) | ||
573 | goto end; | ||
574 | if (!PKCS7_sign_add_signer(p7, signer, key, | ||
575 | sign_md, flags)) | ||
576 | goto end; | ||
577 | X509_free(signer); | ||
578 | signer = NULL; | ||
579 | EVP_PKEY_free(key); | ||
580 | key = NULL; | ||
581 | } | ||
582 | /* If not streaming or resigning finalize structure */ | ||
583 | if ((operation == SMIME_SIGN) && !(flags & PKCS7_STREAM)) { | ||
584 | if (!PKCS7_final(p7, in, flags)) | ||
585 | goto end; | ||
586 | } | ||
587 | } | ||
588 | if (!p7) { | ||
589 | BIO_printf(bio_err, "Error creating PKCS#7 structure\n"); | ||
590 | goto end; | ||
591 | } | ||
592 | ret = 4; | ||
593 | if (operation == SMIME_DECRYPT) { | ||
594 | if (!PKCS7_decrypt(p7, key, recip, out, flags)) { | ||
595 | BIO_printf(bio_err, "Error decrypting PKCS#7 structure\n"); | ||
596 | goto end; | ||
597 | } | ||
598 | } else if (operation == SMIME_VERIFY) { | ||
599 | STACK_OF(X509) * signers; | ||
600 | if (PKCS7_verify(p7, other, store, indata, out, flags)) | ||
601 | BIO_printf(bio_err, "Verification successful\n"); | ||
602 | else { | ||
603 | BIO_printf(bio_err, "Verification failure\n"); | ||
604 | goto end; | ||
605 | } | ||
606 | signers = PKCS7_get0_signers(p7, other, flags); | ||
607 | if (!save_certs(signerfile, signers)) { | ||
608 | BIO_printf(bio_err, "Error writing signers to %s\n", | ||
609 | signerfile); | ||
610 | ret = 5; | ||
611 | goto end; | ||
612 | } | ||
613 | sk_X509_free(signers); | ||
614 | } else if (operation == SMIME_PK7OUT) | ||
615 | PEM_write_bio_PKCS7(out, p7); | ||
616 | else { | ||
617 | if (to) | ||
618 | BIO_printf(out, "To: %s\n", to); | ||
619 | if (from) | ||
620 | BIO_printf(out, "From: %s\n", from); | ||
621 | if (subject) | ||
622 | BIO_printf(out, "Subject: %s\n", subject); | ||
623 | if (outformat == FORMAT_SMIME) { | ||
624 | if (operation == SMIME_RESIGN) | ||
625 | SMIME_write_PKCS7(out, p7, indata, flags); | ||
626 | else | ||
627 | SMIME_write_PKCS7(out, p7, in, flags); | ||
628 | } else if (outformat == FORMAT_PEM) | ||
629 | PEM_write_bio_PKCS7_stream(out, p7, in, flags); | ||
630 | else if (outformat == FORMAT_ASN1) | ||
631 | i2d_PKCS7_bio_stream(out, p7, in, flags); | ||
632 | else { | ||
633 | BIO_printf(bio_err, "Bad output format for PKCS#7 file\n"); | ||
634 | goto end; | ||
635 | } | ||
636 | } | ||
637 | ret = 0; | ||
638 | end: | ||
639 | if (ret) | ||
640 | ERR_print_errors(bio_err); | ||
641 | sk_X509_pop_free(encerts, X509_free); | ||
642 | sk_X509_pop_free(other, X509_free); | ||
643 | if (vpm) | ||
644 | X509_VERIFY_PARAM_free(vpm); | ||
645 | if (sksigners) | ||
646 | sk_OPENSSL_STRING_free(sksigners); | ||
647 | if (skkeys) | ||
648 | sk_OPENSSL_STRING_free(skkeys); | ||
649 | X509_STORE_free(store); | ||
650 | X509_free(cert); | ||
651 | X509_free(recip); | ||
652 | X509_free(signer); | ||
653 | EVP_PKEY_free(key); | ||
654 | PKCS7_free(p7); | ||
655 | BIO_free(in); | ||
656 | BIO_free(indata); | ||
657 | BIO_free_all(out); | ||
658 | free(passin); | ||
659 | |||
660 | return (ret); | ||
661 | } | ||
662 | |||
663 | static int | ||
664 | save_certs(char *signerfile, STACK_OF(X509) * signers) | ||
665 | { | ||
666 | int i; | ||
667 | BIO *tmp; | ||
668 | if (!signerfile) | ||
669 | return 1; | ||
670 | tmp = BIO_new_file(signerfile, "w"); | ||
671 | if (!tmp) | ||
672 | return 0; | ||
673 | for (i = 0; i < sk_X509_num(signers); i++) | ||
674 | PEM_write_bio_X509(tmp, sk_X509_value(signers, i)); | ||
675 | BIO_free(tmp); | ||
676 | return 1; | ||
677 | } | ||
678 | |||
679 | |||
680 | /* Minimal callback just to output policy info (if any) */ | ||
681 | |||
682 | static int | ||
683 | smime_cb(int ok, X509_STORE_CTX * ctx) | ||
684 | { | ||
685 | int error; | ||
686 | |||
687 | error = X509_STORE_CTX_get_error(ctx); | ||
688 | |||
689 | if ((error != X509_V_ERR_NO_EXPLICIT_POLICY) | ||
690 | && ((error != X509_V_OK) || (ok != 2))) | ||
691 | return ok; | ||
692 | |||
693 | policies_print(NULL, ctx); | ||
694 | |||
695 | return ok; | ||
696 | |||
697 | } | ||
diff --git a/src/usr.bin/openssl/speed.c b/src/usr.bin/openssl/speed.c new file mode 100644 index 0000000000..82a0f90f05 --- /dev/null +++ b/src/usr.bin/openssl/speed.c | |||
@@ -0,0 +1,2170 @@ | |||
1 | /* $OpenBSD: speed.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
2 | /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) | ||
3 | * All rights reserved. | ||
4 | * | ||
5 | * This package is an SSL implementation written | ||
6 | * by Eric Young (eay@cryptsoft.com). | ||
7 | * The implementation was written so as to conform with Netscapes SSL. | ||
8 | * | ||
9 | * This library is free for commercial and non-commercial use as long as | ||
10 | * the following conditions are aheared to. The following conditions | ||
11 | * apply to all code found in this distribution, be it the RC4, RSA, | ||
12 | * lhash, DES, etc., code; not just the SSL code. The SSL documentation | ||
13 | * included with this distribution is covered by the same copyright terms | ||
14 | * except that the holder is Tim Hudson (tjh@cryptsoft.com). | ||
15 | * | ||
16 | * Copyright remains Eric Young's, and as such any Copyright notices in | ||
17 | * the code are not to be removed. | ||
18 | * If this package is used in a product, Eric Young should be given attribution | ||
19 | * as the author of the parts of the library used. | ||
20 | * This can be in the form of a textual message at program startup or | ||
21 | * in documentation (online or textual) provided with the package. | ||
22 | * | ||
23 | * Redistribution and use in source and binary forms, with or without | ||
24 | * modification, are permitted provided that the following conditions | ||
25 | * are met: | ||
26 | * 1. Redistributions of source code must retain the copyright | ||
27 | * notice, this list of conditions and the following disclaimer. | ||
28 | * 2. Redistributions in binary form must reproduce the above copyright | ||
29 | * notice, this list of conditions and the following disclaimer in the | ||
30 | * documentation and/or other materials provided with the distribution. | ||
31 | * 3. All advertising materials mentioning features or use of this software | ||
32 | * must display the following acknowledgement: | ||
33 | * "This product includes cryptographic software written by | ||
34 | * Eric Young (eay@cryptsoft.com)" | ||
35 | * The word 'cryptographic' can be left out if the rouines from the library | ||
36 | * being used are not cryptographic related :-). | ||
37 | * 4. If you include any Windows specific code (or a derivative thereof) from | ||
38 | * the apps directory (application code) you must include an acknowledgement: | ||
39 | * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" | ||
40 | * | ||
41 | * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND | ||
42 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
43 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
44 | * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE | ||
45 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
46 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
47 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
48 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
49 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
50 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
51 | * SUCH DAMAGE. | ||
52 | * | ||
53 | * The licence and distribution terms for any publically available version or | ||
54 | * derivative of this code cannot be changed. i.e. this code cannot simply be | ||
55 | * copied and put under another distribution licence | ||
56 | * [including the GNU Public Licence.] | ||
57 | */ | ||
58 | /* ==================================================================== | ||
59 | * Copyright 2002 Sun Microsystems, Inc. ALL RIGHTS RESERVED. | ||
60 | * | ||
61 | * Portions of the attached software ("Contribution") are developed by | ||
62 | * SUN MICROSYSTEMS, INC., and are contributed to the OpenSSL project. | ||
63 | * | ||
64 | * The Contribution is licensed pursuant to the OpenSSL open source | ||
65 | * license provided above. | ||
66 | * | ||
67 | * The ECDH and ECDSA speed test software is originally written by | ||
68 | * Sumit Gupta of Sun Microsystems Laboratories. | ||
69 | * | ||
70 | */ | ||
71 | |||
72 | /* most of this code has been pilfered from my libdes speed.c program */ | ||
73 | |||
74 | #ifndef OPENSSL_NO_SPEED | ||
75 | |||
76 | #define SECONDS 3 | ||
77 | #define RSA_SECONDS 10 | ||
78 | #define DSA_SECONDS 10 | ||
79 | #define ECDSA_SECONDS 10 | ||
80 | #define ECDH_SECONDS 10 | ||
81 | |||
82 | /* 11-Sep-92 Andrew Daviel Support for Silicon Graphics IRIX added */ | ||
83 | /* 06-Apr-92 Luke Brennan Support for VMS and add extra signal calls */ | ||
84 | |||
85 | #include <math.h> | ||
86 | #include <signal.h> | ||
87 | #include <stdio.h> | ||
88 | #include <stdlib.h> | ||
89 | #include <limits.h> | ||
90 | #include <string.h> | ||
91 | #include <unistd.h> | ||
92 | |||
93 | #include "apps.h" | ||
94 | |||
95 | #include <openssl/bn.h> | ||
96 | #include <openssl/crypto.h> | ||
97 | #include <openssl/err.h> | ||
98 | #include <openssl/evp.h> | ||
99 | #include <openssl/modes.h> | ||
100 | #include <openssl/objects.h> | ||
101 | #include <openssl/rand.h> | ||
102 | #include <openssl/x509.h> | ||
103 | |||
104 | #ifndef OPENSSL_NO_AES | ||
105 | #include <openssl/aes.h> | ||
106 | #endif | ||
107 | #ifndef OPENSSL_NO_BF | ||
108 | #include <openssl/blowfish.h> | ||
109 | #endif | ||
110 | #ifndef OPENSSL_NO_CAST | ||
111 | #include <openssl/cast.h> | ||
112 | #endif | ||
113 | #ifndef OPENSSL_NO_CAMELLIA | ||
114 | #include <openssl/camellia.h> | ||
115 | #endif | ||
116 | #ifndef OPENSSL_NO_DES | ||
117 | #include <openssl/des.h> | ||
118 | #endif | ||
119 | #include <openssl/dsa.h> | ||
120 | #include <openssl/ecdh.h> | ||
121 | #include <openssl/ecdsa.h> | ||
122 | #ifndef OPENSSL_NO_HMAC | ||
123 | #include <openssl/hmac.h> | ||
124 | #endif | ||
125 | #ifndef OPENSSL_NO_IDEA | ||
126 | #include <openssl/idea.h> | ||
127 | #endif | ||
128 | #ifndef OPENSSL_NO_MDC2 | ||
129 | #include <openssl/mdc2.h> | ||
130 | #endif | ||
131 | #ifndef OPENSSL_NO_MD4 | ||
132 | #include <openssl/md4.h> | ||
133 | #endif | ||
134 | #ifndef OPENSSL_NO_MD5 | ||
135 | #include <openssl/md5.h> | ||
136 | #endif | ||
137 | #ifndef OPENSSL_NO_RC2 | ||
138 | #include <openssl/rc2.h> | ||
139 | #endif | ||
140 | #ifndef OPENSSL_NO_RC4 | ||
141 | #include <openssl/rc4.h> | ||
142 | #endif | ||
143 | #ifndef OPENSSL_NO_RC5 | ||
144 | #include <openssl/rc5.h> | ||
145 | #endif | ||
146 | #include <openssl/rsa.h> | ||
147 | #ifndef OPENSSL_NO_RIPEMD | ||
148 | #include <openssl/ripemd.h> | ||
149 | #endif | ||
150 | #ifndef OPENSSL_NO_SHA | ||
151 | #include <openssl/sha.h> | ||
152 | #endif | ||
153 | #ifndef OPENSSL_NO_WHIRLPOOL | ||
154 | #include <openssl/whrlpool.h> | ||
155 | #endif | ||
156 | |||
157 | #include "./testdsa.h" | ||
158 | #include "./testrsa.h" | ||
159 | |||
160 | #define BUFSIZE ((long)1024*8+1) | ||
161 | int run = 0; | ||
162 | |||
163 | static int mr = 0; | ||
164 | static int usertime = 1; | ||
165 | |||
166 | static double Time_F(int s); | ||
167 | static void print_message(const char *s, long num, int length); | ||
168 | static void | ||
169 | pkey_print_message(const char *str, const char *str2, | ||
170 | long num, int bits, int sec); | ||
171 | static void print_result(int alg, int run_no, int count, double time_used); | ||
172 | static int do_multi(int multi); | ||
173 | |||
174 | #define ALGOR_NUM 30 | ||
175 | #define SIZE_NUM 5 | ||
176 | #define RSA_NUM 4 | ||
177 | #define DSA_NUM 3 | ||
178 | |||
179 | #define EC_NUM 16 | ||
180 | #define MAX_ECDH_SIZE 256 | ||
181 | |||
182 | static const char *names[ALGOR_NUM] = { | ||
183 | "md2", "mdc2", "md4", "md5", "hmac(md5)", "sha1", "rmd160", "rc4", | ||
184 | "des cbc", "des ede3", "idea cbc", "seed cbc", | ||
185 | "rc2 cbc", "rc5-32/12 cbc", "blowfish cbc", "cast cbc", | ||
186 | "aes-128 cbc", "aes-192 cbc", "aes-256 cbc", | ||
187 | "camellia-128 cbc", "camellia-192 cbc", "camellia-256 cbc", | ||
188 | "evp", "sha256", "sha512", "whirlpool", | ||
189 | "aes-128 ige", "aes-192 ige", "aes-256 ige", "ghash"}; | ||
190 | static double results[ALGOR_NUM][SIZE_NUM]; | ||
191 | static int lengths[SIZE_NUM] = {16, 64, 256, 1024, 8 * 1024}; | ||
192 | static double rsa_results[RSA_NUM][2]; | ||
193 | static double dsa_results[DSA_NUM][2]; | ||
194 | static double ecdsa_results[EC_NUM][2]; | ||
195 | static double ecdh_results[EC_NUM][1]; | ||
196 | |||
197 | static void sig_done(int sig); | ||
198 | |||
199 | static void | ||
200 | sig_done(int sig) | ||
201 | { | ||
202 | signal(SIGALRM, sig_done); | ||
203 | run = 0; | ||
204 | } | ||
205 | |||
206 | #define START 0 | ||
207 | #define STOP 1 | ||
208 | |||
209 | |||
210 | static double | ||
211 | Time_F(int s) | ||
212 | { | ||
213 | return app_tminterval(s, usertime); | ||
214 | } | ||
215 | |||
216 | |||
217 | static const int KDF1_SHA1_len = 20; | ||
218 | static void * | ||
219 | KDF1_SHA1(const void *in, size_t inlen, void *out, size_t * outlen) | ||
220 | { | ||
221 | #ifndef OPENSSL_NO_SHA | ||
222 | if (*outlen < SHA_DIGEST_LENGTH) | ||
223 | return NULL; | ||
224 | else | ||
225 | *outlen = SHA_DIGEST_LENGTH; | ||
226 | return SHA1(in, inlen, out); | ||
227 | #else | ||
228 | return NULL; | ||
229 | #endif /* OPENSSL_NO_SHA */ | ||
230 | } | ||
231 | |||
232 | |||
233 | int speed_main(int, char **); | ||
234 | |||
235 | int | ||
236 | speed_main(int argc, char **argv) | ||
237 | { | ||
238 | unsigned char *buf = NULL, *buf2 = NULL; | ||
239 | int mret = 1; | ||
240 | long count = 0, save_count = 0; | ||
241 | int i, j, k; | ||
242 | long rsa_count; | ||
243 | unsigned rsa_num; | ||
244 | unsigned char md[EVP_MAX_MD_SIZE]; | ||
245 | #ifndef OPENSSL_NO_MDC2 | ||
246 | unsigned char mdc2[MDC2_DIGEST_LENGTH]; | ||
247 | #endif | ||
248 | #ifndef OPENSSL_NO_MD4 | ||
249 | unsigned char md4[MD4_DIGEST_LENGTH]; | ||
250 | #endif | ||
251 | #ifndef OPENSSL_NO_MD5 | ||
252 | unsigned char md5[MD5_DIGEST_LENGTH]; | ||
253 | unsigned char hmac[MD5_DIGEST_LENGTH]; | ||
254 | #endif | ||
255 | #ifndef OPENSSL_NO_SHA | ||
256 | unsigned char sha[SHA_DIGEST_LENGTH]; | ||
257 | #ifndef OPENSSL_NO_SHA256 | ||
258 | unsigned char sha256[SHA256_DIGEST_LENGTH]; | ||
259 | #endif | ||
260 | #ifndef OPENSSL_NO_SHA512 | ||
261 | unsigned char sha512[SHA512_DIGEST_LENGTH]; | ||
262 | #endif | ||
263 | #endif | ||
264 | #ifndef OPENSSL_NO_WHIRLPOOL | ||
265 | unsigned char whirlpool[WHIRLPOOL_DIGEST_LENGTH]; | ||
266 | #endif | ||
267 | #ifndef OPENSSL_NO_RIPEMD | ||
268 | unsigned char rmd160[RIPEMD160_DIGEST_LENGTH]; | ||
269 | #endif | ||
270 | #ifndef OPENSSL_NO_RC4 | ||
271 | RC4_KEY rc4_ks; | ||
272 | #endif | ||
273 | #ifndef OPENSSL_NO_RC5 | ||
274 | RC5_32_KEY rc5_ks; | ||
275 | #endif | ||
276 | #ifndef OPENSSL_NO_RC2 | ||
277 | RC2_KEY rc2_ks; | ||
278 | #endif | ||
279 | #ifndef OPENSSL_NO_IDEA | ||
280 | IDEA_KEY_SCHEDULE idea_ks; | ||
281 | #endif | ||
282 | #ifndef OPENSSL_NO_BF | ||
283 | BF_KEY bf_ks; | ||
284 | #endif | ||
285 | #ifndef OPENSSL_NO_CAST | ||
286 | CAST_KEY cast_ks; | ||
287 | #endif | ||
288 | static const unsigned char key16[16] = | ||
289 | {0x12, 0x34, 0x56, 0x78, 0x9a, 0xbc, 0xde, 0xf0, | ||
290 | 0x34, 0x56, 0x78, 0x9a, 0xbc, 0xde, 0xf0, 0x12}; | ||
291 | #ifndef OPENSSL_NO_AES | ||
292 | static const unsigned char key24[24] = | ||
293 | {0x12, 0x34, 0x56, 0x78, 0x9a, 0xbc, 0xde, 0xf0, | ||
294 | 0x34, 0x56, 0x78, 0x9a, 0xbc, 0xde, 0xf0, 0x12, | ||
295 | 0x56, 0x78, 0x9a, 0xbc, 0xde, 0xf0, 0x12, 0x34}; | ||
296 | static const unsigned char key32[32] = | ||
297 | {0x12, 0x34, 0x56, 0x78, 0x9a, 0xbc, 0xde, 0xf0, | ||
298 | 0x34, 0x56, 0x78, 0x9a, 0xbc, 0xde, 0xf0, 0x12, | ||
299 | 0x56, 0x78, 0x9a, 0xbc, 0xde, 0xf0, 0x12, 0x34, | ||
300 | 0x78, 0x9a, 0xbc, 0xde, 0xf0, 0x12, 0x34, 0x56}; | ||
301 | #endif | ||
302 | #ifndef OPENSSL_NO_CAMELLIA | ||
303 | static const unsigned char ckey24[24] = | ||
304 | {0x12, 0x34, 0x56, 0x78, 0x9a, 0xbc, 0xde, 0xf0, | ||
305 | 0x34, 0x56, 0x78, 0x9a, 0xbc, 0xde, 0xf0, 0x12, | ||
306 | 0x56, 0x78, 0x9a, 0xbc, 0xde, 0xf0, 0x12, 0x34}; | ||
307 | static const unsigned char ckey32[32] = | ||
308 | {0x12, 0x34, 0x56, 0x78, 0x9a, 0xbc, 0xde, 0xf0, | ||
309 | 0x34, 0x56, 0x78, 0x9a, 0xbc, 0xde, 0xf0, 0x12, | ||
310 | 0x56, 0x78, 0x9a, 0xbc, 0xde, 0xf0, 0x12, 0x34, | ||
311 | 0x78, 0x9a, 0xbc, 0xde, 0xf0, 0x12, 0x34, 0x56}; | ||
312 | #endif | ||
313 | #ifndef OPENSSL_NO_AES | ||
314 | #define MAX_BLOCK_SIZE 128 | ||
315 | #else | ||
316 | #define MAX_BLOCK_SIZE 64 | ||
317 | #endif | ||
318 | unsigned char DES_iv[8]; | ||
319 | unsigned char iv[2 * MAX_BLOCK_SIZE / 8]; | ||
320 | #ifndef OPENSSL_NO_DES | ||
321 | static DES_cblock key = {0x12, 0x34, 0x56, 0x78, 0x9a, 0xbc, 0xde, 0xf0}; | ||
322 | static DES_cblock key2 = {0x34, 0x56, 0x78, 0x9a, 0xbc, 0xde, 0xf0, 0x12}; | ||
323 | static DES_cblock key3 = {0x56, 0x78, 0x9a, 0xbc, 0xde, 0xf0, 0x12, 0x34}; | ||
324 | DES_key_schedule sch; | ||
325 | DES_key_schedule sch2; | ||
326 | DES_key_schedule sch3; | ||
327 | #endif | ||
328 | #ifndef OPENSSL_NO_AES | ||
329 | AES_KEY aes_ks1, aes_ks2, aes_ks3; | ||
330 | #endif | ||
331 | #ifndef OPENSSL_NO_CAMELLIA | ||
332 | CAMELLIA_KEY camellia_ks1, camellia_ks2, camellia_ks3; | ||
333 | #endif | ||
334 | #define D_MD2 0 | ||
335 | #define D_MDC2 1 | ||
336 | #define D_MD4 2 | ||
337 | #define D_MD5 3 | ||
338 | #define D_HMAC 4 | ||
339 | #define D_SHA1 5 | ||
340 | #define D_RMD160 6 | ||
341 | #define D_RC4 7 | ||
342 | #define D_CBC_DES 8 | ||
343 | #define D_EDE3_DES 9 | ||
344 | #define D_CBC_IDEA 10 | ||
345 | #define D_CBC_SEED 11 | ||
346 | #define D_CBC_RC2 12 | ||
347 | #define D_CBC_RC5 13 | ||
348 | #define D_CBC_BF 14 | ||
349 | #define D_CBC_CAST 15 | ||
350 | #define D_CBC_128_AES 16 | ||
351 | #define D_CBC_192_AES 17 | ||
352 | #define D_CBC_256_AES 18 | ||
353 | #define D_CBC_128_CML 19 | ||
354 | #define D_CBC_192_CML 20 | ||
355 | #define D_CBC_256_CML 21 | ||
356 | #define D_EVP 22 | ||
357 | #define D_SHA256 23 | ||
358 | #define D_SHA512 24 | ||
359 | #define D_WHIRLPOOL 25 | ||
360 | #define D_IGE_128_AES 26 | ||
361 | #define D_IGE_192_AES 27 | ||
362 | #define D_IGE_256_AES 28 | ||
363 | #define D_GHASH 29 | ||
364 | double d = 0.0; | ||
365 | long c[ALGOR_NUM][SIZE_NUM]; | ||
366 | #define R_DSA_512 0 | ||
367 | #define R_DSA_1024 1 | ||
368 | #define R_DSA_2048 2 | ||
369 | #define R_RSA_512 0 | ||
370 | #define R_RSA_1024 1 | ||
371 | #define R_RSA_2048 2 | ||
372 | #define R_RSA_4096 3 | ||
373 | |||
374 | #define R_EC_P160 0 | ||
375 | #define R_EC_P192 1 | ||
376 | #define R_EC_P224 2 | ||
377 | #define R_EC_P256 3 | ||
378 | #define R_EC_P384 4 | ||
379 | #define R_EC_P521 5 | ||
380 | #define R_EC_K163 6 | ||
381 | #define R_EC_K233 7 | ||
382 | #define R_EC_K283 8 | ||
383 | #define R_EC_K409 9 | ||
384 | #define R_EC_K571 10 | ||
385 | #define R_EC_B163 11 | ||
386 | #define R_EC_B233 12 | ||
387 | #define R_EC_B283 13 | ||
388 | #define R_EC_B409 14 | ||
389 | #define R_EC_B571 15 | ||
390 | |||
391 | RSA *rsa_key[RSA_NUM]; | ||
392 | long rsa_c[RSA_NUM][2]; | ||
393 | static unsigned int rsa_bits[RSA_NUM] = {512, 1024, 2048, 4096}; | ||
394 | static unsigned char *rsa_data[RSA_NUM] = | ||
395 | {test512, test1024, test2048, test4096}; | ||
396 | static int rsa_data_length[RSA_NUM] = { | ||
397 | sizeof(test512), sizeof(test1024), | ||
398 | sizeof(test2048), sizeof(test4096)}; | ||
399 | DSA *dsa_key[DSA_NUM]; | ||
400 | long dsa_c[DSA_NUM][2]; | ||
401 | static unsigned int dsa_bits[DSA_NUM] = {512, 1024, 2048}; | ||
402 | #ifndef OPENSSL_NO_EC | ||
403 | /* | ||
404 | * We only test over the following curves as they are representative, | ||
405 | * To add tests over more curves, simply add the curve NID and curve | ||
406 | * name to the following arrays and increase the EC_NUM value | ||
407 | * accordingly. | ||
408 | */ | ||
409 | static unsigned int test_curves[EC_NUM] = | ||
410 | { | ||
411 | /* Prime Curves */ | ||
412 | NID_secp160r1, | ||
413 | NID_X9_62_prime192v1, | ||
414 | NID_secp224r1, | ||
415 | NID_X9_62_prime256v1, | ||
416 | NID_secp384r1, | ||
417 | NID_secp521r1, | ||
418 | /* Binary Curves */ | ||
419 | NID_sect163k1, | ||
420 | NID_sect233k1, | ||
421 | NID_sect283k1, | ||
422 | NID_sect409k1, | ||
423 | NID_sect571k1, | ||
424 | NID_sect163r2, | ||
425 | NID_sect233r1, | ||
426 | NID_sect283r1, | ||
427 | NID_sect409r1, | ||
428 | NID_sect571r1 | ||
429 | }; | ||
430 | static const char *test_curves_names[EC_NUM] = | ||
431 | { | ||
432 | /* Prime Curves */ | ||
433 | "secp160r1", | ||
434 | "nistp192", | ||
435 | "nistp224", | ||
436 | "nistp256", | ||
437 | "nistp384", | ||
438 | "nistp521", | ||
439 | /* Binary Curves */ | ||
440 | "nistk163", | ||
441 | "nistk233", | ||
442 | "nistk283", | ||
443 | "nistk409", | ||
444 | "nistk571", | ||
445 | "nistb163", | ||
446 | "nistb233", | ||
447 | "nistb283", | ||
448 | "nistb409", | ||
449 | "nistb571" | ||
450 | }; | ||
451 | static int test_curves_bits[EC_NUM] = | ||
452 | { | ||
453 | 160, 192, 224, 256, 384, 521, | ||
454 | 163, 233, 283, 409, 571, | ||
455 | 163, 233, 283, 409, 571 | ||
456 | }; | ||
457 | |||
458 | #endif | ||
459 | |||
460 | unsigned char ecdsasig[256]; | ||
461 | unsigned int ecdsasiglen; | ||
462 | EC_KEY *ecdsa[EC_NUM]; | ||
463 | long ecdsa_c[EC_NUM][2]; | ||
464 | |||
465 | EC_KEY *ecdh_a[EC_NUM], *ecdh_b[EC_NUM]; | ||
466 | unsigned char secret_a[MAX_ECDH_SIZE], secret_b[MAX_ECDH_SIZE]; | ||
467 | int secret_size_a, secret_size_b; | ||
468 | int ecdh_checks = 0; | ||
469 | int secret_idx = 0; | ||
470 | long ecdh_c[EC_NUM][2]; | ||
471 | |||
472 | int rsa_doit[RSA_NUM]; | ||
473 | int dsa_doit[DSA_NUM]; | ||
474 | int ecdsa_doit[EC_NUM]; | ||
475 | int ecdh_doit[EC_NUM]; | ||
476 | int doit[ALGOR_NUM]; | ||
477 | int pr_header = 0; | ||
478 | const EVP_CIPHER *evp_cipher = NULL; | ||
479 | const EVP_MD *evp_md = NULL; | ||
480 | int decrypt = 0; | ||
481 | int multi = 0; | ||
482 | const char *errstr = NULL; | ||
483 | |||
484 | #ifndef TIMES | ||
485 | usertime = -1; | ||
486 | #endif | ||
487 | |||
488 | memset(results, 0, sizeof(results)); | ||
489 | memset(dsa_key, 0, sizeof(dsa_key)); | ||
490 | for (i = 0; i < EC_NUM; i++) | ||
491 | ecdsa[i] = NULL; | ||
492 | for (i = 0; i < EC_NUM; i++) { | ||
493 | ecdh_a[i] = NULL; | ||
494 | ecdh_b[i] = NULL; | ||
495 | } | ||
496 | |||
497 | memset(rsa_key, 0, sizeof(rsa_key)); | ||
498 | for (i = 0; i < RSA_NUM; i++) | ||
499 | rsa_key[i] = NULL; | ||
500 | |||
501 | if ((buf = malloc((int) BUFSIZE)) == NULL) { | ||
502 | BIO_printf(bio_err, "out of memory\n"); | ||
503 | goto end; | ||
504 | } | ||
505 | if ((buf2 = malloc((int) BUFSIZE)) == NULL) { | ||
506 | BIO_printf(bio_err, "out of memory\n"); | ||
507 | goto end; | ||
508 | } | ||
509 | memset(c, 0, sizeof(c)); | ||
510 | memset(DES_iv, 0, sizeof(DES_iv)); | ||
511 | memset(iv, 0, sizeof(iv)); | ||
512 | |||
513 | for (i = 0; i < ALGOR_NUM; i++) | ||
514 | doit[i] = 0; | ||
515 | for (i = 0; i < RSA_NUM; i++) | ||
516 | rsa_doit[i] = 0; | ||
517 | for (i = 0; i < DSA_NUM; i++) | ||
518 | dsa_doit[i] = 0; | ||
519 | for (i = 0; i < EC_NUM; i++) | ||
520 | ecdsa_doit[i] = 0; | ||
521 | for (i = 0; i < EC_NUM; i++) | ||
522 | ecdh_doit[i] = 0; | ||
523 | |||
524 | |||
525 | j = 0; | ||
526 | argc--; | ||
527 | argv++; | ||
528 | while (argc) { | ||
529 | if ((argc > 0) && (strcmp(*argv, "-elapsed") == 0)) { | ||
530 | usertime = 0; | ||
531 | j--; /* Otherwise, -elapsed gets confused with an | ||
532 | * algorithm. */ | ||
533 | } else if ((argc > 0) && (strcmp(*argv, "-evp") == 0)) { | ||
534 | argc--; | ||
535 | argv++; | ||
536 | if (argc == 0) { | ||
537 | BIO_printf(bio_err, "no EVP given\n"); | ||
538 | goto end; | ||
539 | } | ||
540 | evp_cipher = EVP_get_cipherbyname(*argv); | ||
541 | if (!evp_cipher) { | ||
542 | evp_md = EVP_get_digestbyname(*argv); | ||
543 | } | ||
544 | if (!evp_cipher && !evp_md) { | ||
545 | BIO_printf(bio_err, "%s is an unknown cipher or digest\n", *argv); | ||
546 | goto end; | ||
547 | } | ||
548 | doit[D_EVP] = 1; | ||
549 | } else if (argc > 0 && !strcmp(*argv, "-decrypt")) { | ||
550 | decrypt = 1; | ||
551 | j--; /* Otherwise, -elapsed gets confused with an | ||
552 | * algorithm. */ | ||
553 | } | ||
554 | #ifndef OPENSSL_NO_ENGINE | ||
555 | else if ((argc > 0) && (strcmp(*argv, "-engine") == 0)) { | ||
556 | argc--; | ||
557 | argv++; | ||
558 | if (argc == 0) { | ||
559 | BIO_printf(bio_err, "no engine given\n"); | ||
560 | goto end; | ||
561 | } | ||
562 | setup_engine(bio_err, *argv, 0); | ||
563 | /* | ||
564 | * j will be increased again further down. We just | ||
565 | * don't want speed to confuse an engine with an | ||
566 | * algorithm, especially when none is given (which | ||
567 | * means all of them should be run) | ||
568 | */ | ||
569 | j--; | ||
570 | } | ||
571 | #endif | ||
572 | else if ((argc > 0) && (strcmp(*argv, "-multi") == 0)) { | ||
573 | argc--; | ||
574 | argv++; | ||
575 | if (argc == 0) { | ||
576 | BIO_printf(bio_err, "no multi count given\n"); | ||
577 | goto end; | ||
578 | } | ||
579 | multi = strtonum(argv[0], 1, INT_MAX, &errstr); | ||
580 | if (errstr) { | ||
581 | BIO_printf(bio_err, "bad multi count: %s", errstr); | ||
582 | goto end; | ||
583 | } | ||
584 | j--; /* Otherwise, -mr gets confused with an | ||
585 | * algorithm. */ | ||
586 | } | ||
587 | else if (argc > 0 && !strcmp(*argv, "-mr")) { | ||
588 | mr = 1; | ||
589 | j--; /* Otherwise, -mr gets confused with an | ||
590 | * algorithm. */ | ||
591 | } else | ||
592 | #ifndef OPENSSL_NO_MDC2 | ||
593 | if (strcmp(*argv, "mdc2") == 0) | ||
594 | doit[D_MDC2] = 1; | ||
595 | else | ||
596 | #endif | ||
597 | #ifndef OPENSSL_NO_MD4 | ||
598 | if (strcmp(*argv, "md4") == 0) | ||
599 | doit[D_MD4] = 1; | ||
600 | else | ||
601 | #endif | ||
602 | #ifndef OPENSSL_NO_MD5 | ||
603 | if (strcmp(*argv, "md5") == 0) | ||
604 | doit[D_MD5] = 1; | ||
605 | else | ||
606 | #endif | ||
607 | #ifndef OPENSSL_NO_MD5 | ||
608 | if (strcmp(*argv, "hmac") == 0) | ||
609 | doit[D_HMAC] = 1; | ||
610 | else | ||
611 | #endif | ||
612 | #ifndef OPENSSL_NO_SHA | ||
613 | if (strcmp(*argv, "sha1") == 0) | ||
614 | doit[D_SHA1] = 1; | ||
615 | else if (strcmp(*argv, "sha") == 0) | ||
616 | doit[D_SHA1] = 1, | ||
617 | doit[D_SHA256] = 1, | ||
618 | doit[D_SHA512] = 1; | ||
619 | else | ||
620 | #ifndef OPENSSL_NO_SHA256 | ||
621 | if (strcmp(*argv, "sha256") == 0) | ||
622 | doit[D_SHA256] = 1; | ||
623 | else | ||
624 | #endif | ||
625 | #ifndef OPENSSL_NO_SHA512 | ||
626 | if (strcmp(*argv, "sha512") == 0) | ||
627 | doit[D_SHA512] = 1; | ||
628 | else | ||
629 | #endif | ||
630 | #endif | ||
631 | #ifndef OPENSSL_NO_WHIRLPOOL | ||
632 | if (strcmp(*argv, "whirlpool") == 0) | ||
633 | doit[D_WHIRLPOOL] = 1; | ||
634 | else | ||
635 | #endif | ||
636 | #ifndef OPENSSL_NO_RIPEMD | ||
637 | if (strcmp(*argv, "ripemd") == 0) | ||
638 | doit[D_RMD160] = 1; | ||
639 | else if (strcmp(*argv, "rmd160") == 0) | ||
640 | doit[D_RMD160] = 1; | ||
641 | else if (strcmp(*argv, "ripemd160") == 0) | ||
642 | doit[D_RMD160] = 1; | ||
643 | else | ||
644 | #endif | ||
645 | #ifndef OPENSSL_NO_RC4 | ||
646 | if (strcmp(*argv, "rc4") == 0) | ||
647 | doit[D_RC4] = 1; | ||
648 | else | ||
649 | #endif | ||
650 | #ifndef OPENSSL_NO_DES | ||
651 | if (strcmp(*argv, "des-cbc") == 0) | ||
652 | doit[D_CBC_DES] = 1; | ||
653 | else if (strcmp(*argv, "des-ede3") == 0) | ||
654 | doit[D_EDE3_DES] = 1; | ||
655 | else | ||
656 | #endif | ||
657 | #ifndef OPENSSL_NO_AES | ||
658 | if (strcmp(*argv, "aes-128-cbc") == 0) | ||
659 | doit[D_CBC_128_AES] = 1; | ||
660 | else if (strcmp(*argv, "aes-192-cbc") == 0) | ||
661 | doit[D_CBC_192_AES] = 1; | ||
662 | else if (strcmp(*argv, "aes-256-cbc") == 0) | ||
663 | doit[D_CBC_256_AES] = 1; | ||
664 | else if (strcmp(*argv, "aes-128-ige") == 0) | ||
665 | doit[D_IGE_128_AES] = 1; | ||
666 | else if (strcmp(*argv, "aes-192-ige") == 0) | ||
667 | doit[D_IGE_192_AES] = 1; | ||
668 | else if (strcmp(*argv, "aes-256-ige") == 0) | ||
669 | doit[D_IGE_256_AES] = 1; | ||
670 | else | ||
671 | #endif | ||
672 | #ifndef OPENSSL_NO_CAMELLIA | ||
673 | if (strcmp(*argv, "camellia-128-cbc") == 0) | ||
674 | doit[D_CBC_128_CML] = 1; | ||
675 | else if (strcmp(*argv, "camellia-192-cbc") == 0) | ||
676 | doit[D_CBC_192_CML] = 1; | ||
677 | else if (strcmp(*argv, "camellia-256-cbc") == 0) | ||
678 | doit[D_CBC_256_CML] = 1; | ||
679 | else | ||
680 | #endif | ||
681 | #if 0 /* was: #ifdef RSAref */ | ||
682 | if (strcmp(*argv, "rsaref") == 0) { | ||
683 | RSA_set_default_openssl_method(RSA_PKCS1_RSAref()); | ||
684 | j--; | ||
685 | } else | ||
686 | #endif | ||
687 | #ifndef RSA_NULL | ||
688 | if (strcmp(*argv, "openssl") == 0) { | ||
689 | RSA_set_default_method(RSA_PKCS1_SSLeay()); | ||
690 | j--; | ||
691 | } else | ||
692 | #endif | ||
693 | if (strcmp(*argv, "dsa512") == 0) | ||
694 | dsa_doit[R_DSA_512] = 2; | ||
695 | else if (strcmp(*argv, "dsa1024") == 0) | ||
696 | dsa_doit[R_DSA_1024] = 2; | ||
697 | else if (strcmp(*argv, "dsa2048") == 0) | ||
698 | dsa_doit[R_DSA_2048] = 2; | ||
699 | else if (strcmp(*argv, "rsa512") == 0) | ||
700 | rsa_doit[R_RSA_512] = 2; | ||
701 | else if (strcmp(*argv, "rsa1024") == 0) | ||
702 | rsa_doit[R_RSA_1024] = 2; | ||
703 | else if (strcmp(*argv, "rsa2048") == 0) | ||
704 | rsa_doit[R_RSA_2048] = 2; | ||
705 | else if (strcmp(*argv, "rsa4096") == 0) | ||
706 | rsa_doit[R_RSA_4096] = 2; | ||
707 | else | ||
708 | #ifndef OPENSSL_NO_RC2 | ||
709 | if (strcmp(*argv, "rc2-cbc") == 0) | ||
710 | doit[D_CBC_RC2] = 1; | ||
711 | else if (strcmp(*argv, "rc2") == 0) | ||
712 | doit[D_CBC_RC2] = 1; | ||
713 | else | ||
714 | #endif | ||
715 | #ifndef OPENSSL_NO_RC5 | ||
716 | if (strcmp(*argv, "rc5-cbc") == 0) | ||
717 | doit[D_CBC_RC5] = 1; | ||
718 | else if (strcmp(*argv, "rc5") == 0) | ||
719 | doit[D_CBC_RC5] = 1; | ||
720 | else | ||
721 | #endif | ||
722 | #ifndef OPENSSL_NO_IDEA | ||
723 | if (strcmp(*argv, "idea-cbc") == 0) | ||
724 | doit[D_CBC_IDEA] = 1; | ||
725 | else if (strcmp(*argv, "idea") == 0) | ||
726 | doit[D_CBC_IDEA] = 1; | ||
727 | else | ||
728 | #endif | ||
729 | #ifndef OPENSSL_NO_BF | ||
730 | if (strcmp(*argv, "bf-cbc") == 0) | ||
731 | doit[D_CBC_BF] = 1; | ||
732 | else if (strcmp(*argv, "blowfish") == 0) | ||
733 | doit[D_CBC_BF] = 1; | ||
734 | else if (strcmp(*argv, "bf") == 0) | ||
735 | doit[D_CBC_BF] = 1; | ||
736 | else | ||
737 | #endif | ||
738 | #ifndef OPENSSL_NO_CAST | ||
739 | if (strcmp(*argv, "cast-cbc") == 0) | ||
740 | doit[D_CBC_CAST] = 1; | ||
741 | else if (strcmp(*argv, "cast") == 0) | ||
742 | doit[D_CBC_CAST] = 1; | ||
743 | else if (strcmp(*argv, "cast5") == 0) | ||
744 | doit[D_CBC_CAST] = 1; | ||
745 | else | ||
746 | #endif | ||
747 | #ifndef OPENSSL_NO_DES | ||
748 | if (strcmp(*argv, "des") == 0) { | ||
749 | doit[D_CBC_DES] = 1; | ||
750 | doit[D_EDE3_DES] = 1; | ||
751 | } else | ||
752 | #endif | ||
753 | #ifndef OPENSSL_NO_AES | ||
754 | if (strcmp(*argv, "aes") == 0) { | ||
755 | doit[D_CBC_128_AES] = 1; | ||
756 | doit[D_CBC_192_AES] = 1; | ||
757 | doit[D_CBC_256_AES] = 1; | ||
758 | } else if (strcmp(*argv, "ghash") == 0) { | ||
759 | doit[D_GHASH] = 1; | ||
760 | } else | ||
761 | #endif | ||
762 | #ifndef OPENSSL_NO_CAMELLIA | ||
763 | if (strcmp(*argv, "camellia") == 0) { | ||
764 | doit[D_CBC_128_CML] = 1; | ||
765 | doit[D_CBC_192_CML] = 1; | ||
766 | doit[D_CBC_256_CML] = 1; | ||
767 | } else | ||
768 | #endif | ||
769 | if (strcmp(*argv, "rsa") == 0) { | ||
770 | rsa_doit[R_RSA_512] = 1; | ||
771 | rsa_doit[R_RSA_1024] = 1; | ||
772 | rsa_doit[R_RSA_2048] = 1; | ||
773 | rsa_doit[R_RSA_4096] = 1; | ||
774 | } else | ||
775 | if (strcmp(*argv, "dsa") == 0) { | ||
776 | dsa_doit[R_DSA_512] = 1; | ||
777 | dsa_doit[R_DSA_1024] = 1; | ||
778 | dsa_doit[R_DSA_2048] = 1; | ||
779 | } else | ||
780 | if (strcmp(*argv, "ecdsap160") == 0) | ||
781 | ecdsa_doit[R_EC_P160] = 2; | ||
782 | else if (strcmp(*argv, "ecdsap192") == 0) | ||
783 | ecdsa_doit[R_EC_P192] = 2; | ||
784 | else if (strcmp(*argv, "ecdsap224") == 0) | ||
785 | ecdsa_doit[R_EC_P224] = 2; | ||
786 | else if (strcmp(*argv, "ecdsap256") == 0) | ||
787 | ecdsa_doit[R_EC_P256] = 2; | ||
788 | else if (strcmp(*argv, "ecdsap384") == 0) | ||
789 | ecdsa_doit[R_EC_P384] = 2; | ||
790 | else if (strcmp(*argv, "ecdsap521") == 0) | ||
791 | ecdsa_doit[R_EC_P521] = 2; | ||
792 | else if (strcmp(*argv, "ecdsak163") == 0) | ||
793 | ecdsa_doit[R_EC_K163] = 2; | ||
794 | else if (strcmp(*argv, "ecdsak233") == 0) | ||
795 | ecdsa_doit[R_EC_K233] = 2; | ||
796 | else if (strcmp(*argv, "ecdsak283") == 0) | ||
797 | ecdsa_doit[R_EC_K283] = 2; | ||
798 | else if (strcmp(*argv, "ecdsak409") == 0) | ||
799 | ecdsa_doit[R_EC_K409] = 2; | ||
800 | else if (strcmp(*argv, "ecdsak571") == 0) | ||
801 | ecdsa_doit[R_EC_K571] = 2; | ||
802 | else if (strcmp(*argv, "ecdsab163") == 0) | ||
803 | ecdsa_doit[R_EC_B163] = 2; | ||
804 | else if (strcmp(*argv, "ecdsab233") == 0) | ||
805 | ecdsa_doit[R_EC_B233] = 2; | ||
806 | else if (strcmp(*argv, "ecdsab283") == 0) | ||
807 | ecdsa_doit[R_EC_B283] = 2; | ||
808 | else if (strcmp(*argv, "ecdsab409") == 0) | ||
809 | ecdsa_doit[R_EC_B409] = 2; | ||
810 | else if (strcmp(*argv, "ecdsab571") == 0) | ||
811 | ecdsa_doit[R_EC_B571] = 2; | ||
812 | else if (strcmp(*argv, "ecdsa") == 0) { | ||
813 | for (i = 0; i < EC_NUM; i++) | ||
814 | ecdsa_doit[i] = 1; | ||
815 | } else | ||
816 | if (strcmp(*argv, "ecdhp160") == 0) | ||
817 | ecdh_doit[R_EC_P160] = 2; | ||
818 | else if (strcmp(*argv, "ecdhp192") == 0) | ||
819 | ecdh_doit[R_EC_P192] = 2; | ||
820 | else if (strcmp(*argv, "ecdhp224") == 0) | ||
821 | ecdh_doit[R_EC_P224] = 2; | ||
822 | else if (strcmp(*argv, "ecdhp256") == 0) | ||
823 | ecdh_doit[R_EC_P256] = 2; | ||
824 | else if (strcmp(*argv, "ecdhp384") == 0) | ||
825 | ecdh_doit[R_EC_P384] = 2; | ||
826 | else if (strcmp(*argv, "ecdhp521") == 0) | ||
827 | ecdh_doit[R_EC_P521] = 2; | ||
828 | else if (strcmp(*argv, "ecdhk163") == 0) | ||
829 | ecdh_doit[R_EC_K163] = 2; | ||
830 | else if (strcmp(*argv, "ecdhk233") == 0) | ||
831 | ecdh_doit[R_EC_K233] = 2; | ||
832 | else if (strcmp(*argv, "ecdhk283") == 0) | ||
833 | ecdh_doit[R_EC_K283] = 2; | ||
834 | else if (strcmp(*argv, "ecdhk409") == 0) | ||
835 | ecdh_doit[R_EC_K409] = 2; | ||
836 | else if (strcmp(*argv, "ecdhk571") == 0) | ||
837 | ecdh_doit[R_EC_K571] = 2; | ||
838 | else if (strcmp(*argv, "ecdhb163") == 0) | ||
839 | ecdh_doit[R_EC_B163] = 2; | ||
840 | else if (strcmp(*argv, "ecdhb233") == 0) | ||
841 | ecdh_doit[R_EC_B233] = 2; | ||
842 | else if (strcmp(*argv, "ecdhb283") == 0) | ||
843 | ecdh_doit[R_EC_B283] = 2; | ||
844 | else if (strcmp(*argv, "ecdhb409") == 0) | ||
845 | ecdh_doit[R_EC_B409] = 2; | ||
846 | else if (strcmp(*argv, "ecdhb571") == 0) | ||
847 | ecdh_doit[R_EC_B571] = 2; | ||
848 | else if (strcmp(*argv, "ecdh") == 0) { | ||
849 | for (i = 0; i < EC_NUM; i++) | ||
850 | ecdh_doit[i] = 1; | ||
851 | } else | ||
852 | { | ||
853 | BIO_printf(bio_err, "Error: bad option or value\n"); | ||
854 | BIO_printf(bio_err, "\n"); | ||
855 | BIO_printf(bio_err, "Available values:\n"); | ||
856 | #ifndef OPENSSL_NO_MDC2 | ||
857 | BIO_printf(bio_err, "mdc2 "); | ||
858 | #endif | ||
859 | #ifndef OPENSSL_NO_MD4 | ||
860 | BIO_printf(bio_err, "md4 "); | ||
861 | #endif | ||
862 | #ifndef OPENSSL_NO_MD5 | ||
863 | BIO_printf(bio_err, "md5 "); | ||
864 | #ifndef OPENSSL_NO_HMAC | ||
865 | BIO_printf(bio_err, "hmac "); | ||
866 | #endif | ||
867 | #endif | ||
868 | #ifndef OPENSSL_NO_SHA1 | ||
869 | BIO_printf(bio_err, "sha1 "); | ||
870 | #endif | ||
871 | #ifndef OPENSSL_NO_SHA256 | ||
872 | BIO_printf(bio_err, "sha256 "); | ||
873 | #endif | ||
874 | #ifndef OPENSSL_NO_SHA512 | ||
875 | BIO_printf(bio_err, "sha512 "); | ||
876 | #endif | ||
877 | #ifndef OPENSSL_NO_WHIRLPOOL | ||
878 | BIO_printf(bio_err, "whirlpool"); | ||
879 | #endif | ||
880 | #ifndef OPENSSL_NO_RIPEMD160 | ||
881 | BIO_printf(bio_err, "rmd160"); | ||
882 | #endif | ||
883 | #if !defined(OPENSSL_NO_MD2) || !defined(OPENSSL_NO_MDC2) || \ | ||
884 | !defined(OPENSSL_NO_MD4) || !defined(OPENSSL_NO_MD5) || \ | ||
885 | !defined(OPENSSL_NO_SHA1) || !defined(OPENSSL_NO_RIPEMD160) || \ | ||
886 | !defined(OPENSSL_NO_WHIRLPOOL) | ||
887 | BIO_printf(bio_err, "\n"); | ||
888 | #endif | ||
889 | |||
890 | #ifndef OPENSSL_NO_IDEA | ||
891 | BIO_printf(bio_err, "idea-cbc "); | ||
892 | #endif | ||
893 | #ifndef OPENSSL_NO_RC2 | ||
894 | BIO_printf(bio_err, "rc2-cbc "); | ||
895 | #endif | ||
896 | #ifndef OPENSSL_NO_RC5 | ||
897 | BIO_printf(bio_err, "rc5-cbc "); | ||
898 | #endif | ||
899 | #ifndef OPENSSL_NO_BF | ||
900 | BIO_printf(bio_err, "bf-cbc"); | ||
901 | #endif | ||
902 | #if !defined(OPENSSL_NO_IDEA) || !defined(OPENSSL_NO_SEED) || !defined(OPENSSL_NO_RC2) || \ | ||
903 | !defined(OPENSSL_NO_BF) || !defined(OPENSSL_NO_RC5) | ||
904 | BIO_printf(bio_err, "\n"); | ||
905 | #endif | ||
906 | #ifndef OPENSSL_NO_DES | ||
907 | BIO_printf(bio_err, "des-cbc des-ede3 "); | ||
908 | #endif | ||
909 | #ifndef OPENSSL_NO_AES | ||
910 | BIO_printf(bio_err, "aes-128-cbc aes-192-cbc aes-256-cbc "); | ||
911 | BIO_printf(bio_err, "aes-128-ige aes-192-ige aes-256-ige "); | ||
912 | #endif | ||
913 | #ifndef OPENSSL_NO_CAMELLIA | ||
914 | BIO_printf(bio_err, "\n"); | ||
915 | BIO_printf(bio_err, "camellia-128-cbc camellia-192-cbc camellia-256-cbc "); | ||
916 | #endif | ||
917 | #ifndef OPENSSL_NO_RC4 | ||
918 | BIO_printf(bio_err, "rc4"); | ||
919 | #endif | ||
920 | BIO_printf(bio_err, "\n"); | ||
921 | |||
922 | BIO_printf(bio_err, "rsa512 rsa1024 rsa2048 rsa4096\n"); | ||
923 | |||
924 | BIO_printf(bio_err, "dsa512 dsa1024 dsa2048\n"); | ||
925 | BIO_printf(bio_err, "ecdsap160 ecdsap192 ecdsap224 ecdsap256 ecdsap384 ecdsap521\n"); | ||
926 | BIO_printf(bio_err, "ecdsak163 ecdsak233 ecdsak283 ecdsak409 ecdsak571\n"); | ||
927 | BIO_printf(bio_err, "ecdsab163 ecdsab233 ecdsab283 ecdsab409 ecdsab571\n"); | ||
928 | BIO_printf(bio_err, "ecdsa\n"); | ||
929 | BIO_printf(bio_err, "ecdhp160 ecdhp192 ecdhp224 ecdhp256 ecdhp384 ecdhp521\n"); | ||
930 | BIO_printf(bio_err, "ecdhk163 ecdhk233 ecdhk283 ecdhk409 ecdhk571\n"); | ||
931 | BIO_printf(bio_err, "ecdhb163 ecdhb233 ecdhb283 ecdhb409 ecdhb571\n"); | ||
932 | BIO_printf(bio_err, "ecdh\n"); | ||
933 | |||
934 | #ifndef OPENSSL_NO_IDEA | ||
935 | BIO_printf(bio_err, "idea "); | ||
936 | #endif | ||
937 | #ifndef OPENSSL_NO_RC2 | ||
938 | BIO_printf(bio_err, "rc2 "); | ||
939 | #endif | ||
940 | #ifndef OPENSSL_NO_DES | ||
941 | BIO_printf(bio_err, "des "); | ||
942 | #endif | ||
943 | #ifndef OPENSSL_NO_AES | ||
944 | BIO_printf(bio_err, "aes "); | ||
945 | #endif | ||
946 | #ifndef OPENSSL_NO_CAMELLIA | ||
947 | BIO_printf(bio_err, "camellia "); | ||
948 | #endif | ||
949 | BIO_printf(bio_err, "rsa "); | ||
950 | #ifndef OPENSSL_NO_BF | ||
951 | BIO_printf(bio_err, "blowfish"); | ||
952 | #endif | ||
953 | #if !defined(OPENSSL_NO_IDEA) || !defined(OPENSSL_NO_SEED) || \ | ||
954 | !defined(OPENSSL_NO_RC2) || !defined(OPENSSL_NO_DES) || \ | ||
955 | !defined(OPENSSL_NO_RSA) || !defined(OPENSSL_NO_BF) || \ | ||
956 | !defined(OPENSSL_NO_AES) || !defined(OPENSSL_NO_CAMELLIA) | ||
957 | BIO_printf(bio_err, "\n"); | ||
958 | #endif | ||
959 | |||
960 | BIO_printf(bio_err, "\n"); | ||
961 | BIO_printf(bio_err, "Available options:\n"); | ||
962 | #if defined(TIMES) || defined(USE_TOD) | ||
963 | BIO_printf(bio_err, "-elapsed measure time in real time instead of CPU user time.\n"); | ||
964 | #endif | ||
965 | #ifndef OPENSSL_NO_ENGINE | ||
966 | BIO_printf(bio_err, "-engine e use engine e, possibly a hardware device.\n"); | ||
967 | #endif | ||
968 | BIO_printf(bio_err, "-evp e use EVP e.\n"); | ||
969 | BIO_printf(bio_err, "-decrypt time decryption instead of encryption (only EVP).\n"); | ||
970 | BIO_printf(bio_err, "-mr produce machine readable output.\n"); | ||
971 | BIO_printf(bio_err, "-multi n run n benchmarks in parallel.\n"); | ||
972 | goto end; | ||
973 | } | ||
974 | argc--; | ||
975 | argv++; | ||
976 | j++; | ||
977 | } | ||
978 | |||
979 | if (multi && do_multi(multi)) | ||
980 | goto show_res; | ||
981 | |||
982 | if (j == 0) { | ||
983 | for (i = 0; i < ALGOR_NUM; i++) { | ||
984 | if (i != D_EVP) | ||
985 | doit[i] = 1; | ||
986 | } | ||
987 | for (i = 0; i < RSA_NUM; i++) | ||
988 | rsa_doit[i] = 1; | ||
989 | for (i = 0; i < DSA_NUM; i++) | ||
990 | dsa_doit[i] = 1; | ||
991 | for (i = 0; i < EC_NUM; i++) | ||
992 | ecdsa_doit[i] = 1; | ||
993 | for (i = 0; i < EC_NUM; i++) | ||
994 | ecdh_doit[i] = 1; | ||
995 | } | ||
996 | for (i = 0; i < ALGOR_NUM; i++) | ||
997 | if (doit[i]) | ||
998 | pr_header++; | ||
999 | |||
1000 | if (usertime == 0 && !mr) | ||
1001 | BIO_printf(bio_err, "You have chosen to measure elapsed time instead of user CPU time.\n"); | ||
1002 | |||
1003 | for (i = 0; i < RSA_NUM; i++) { | ||
1004 | const unsigned char *p; | ||
1005 | |||
1006 | p = rsa_data[i]; | ||
1007 | rsa_key[i] = d2i_RSAPrivateKey(NULL, &p, rsa_data_length[i]); | ||
1008 | if (rsa_key[i] == NULL) { | ||
1009 | BIO_printf(bio_err, "internal error loading RSA key number %d\n", i); | ||
1010 | goto end; | ||
1011 | } | ||
1012 | #if 0 | ||
1013 | else { | ||
1014 | BIO_printf(bio_err, mr ? "+RK:%d:" | ||
1015 | : "Loaded RSA key, %d bit modulus and e= 0x", | ||
1016 | BN_num_bits(rsa_key[i]->n)); | ||
1017 | BN_print(bio_err, rsa_key[i]->e); | ||
1018 | BIO_printf(bio_err, "\n"); | ||
1019 | } | ||
1020 | #endif | ||
1021 | } | ||
1022 | |||
1023 | dsa_key[0] = get_dsa512(); | ||
1024 | dsa_key[1] = get_dsa1024(); | ||
1025 | dsa_key[2] = get_dsa2048(); | ||
1026 | |||
1027 | #ifndef OPENSSL_NO_DES | ||
1028 | DES_set_key_unchecked(&key, &sch); | ||
1029 | DES_set_key_unchecked(&key2, &sch2); | ||
1030 | DES_set_key_unchecked(&key3, &sch3); | ||
1031 | #endif | ||
1032 | #ifndef OPENSSL_NO_AES | ||
1033 | AES_set_encrypt_key(key16, 128, &aes_ks1); | ||
1034 | AES_set_encrypt_key(key24, 192, &aes_ks2); | ||
1035 | AES_set_encrypt_key(key32, 256, &aes_ks3); | ||
1036 | #endif | ||
1037 | #ifndef OPENSSL_NO_CAMELLIA | ||
1038 | Camellia_set_key(key16, 128, &camellia_ks1); | ||
1039 | Camellia_set_key(ckey24, 192, &camellia_ks2); | ||
1040 | Camellia_set_key(ckey32, 256, &camellia_ks3); | ||
1041 | #endif | ||
1042 | #ifndef OPENSSL_NO_IDEA | ||
1043 | idea_set_encrypt_key(key16, &idea_ks); | ||
1044 | #endif | ||
1045 | #ifndef OPENSSL_NO_RC4 | ||
1046 | RC4_set_key(&rc4_ks, 16, key16); | ||
1047 | #endif | ||
1048 | #ifndef OPENSSL_NO_RC2 | ||
1049 | RC2_set_key(&rc2_ks, 16, key16, 128); | ||
1050 | #endif | ||
1051 | #ifndef OPENSSL_NO_RC5 | ||
1052 | RC5_32_set_key(&rc5_ks, 16, key16, 12); | ||
1053 | #endif | ||
1054 | #ifndef OPENSSL_NO_BF | ||
1055 | BF_set_key(&bf_ks, 16, key16); | ||
1056 | #endif | ||
1057 | #ifndef OPENSSL_NO_CAST | ||
1058 | CAST_set_key(&cast_ks, 16, key16); | ||
1059 | #endif | ||
1060 | memset(rsa_c, 0, sizeof(rsa_c)); | ||
1061 | #define COND(c) (run && count<0x7fffffff) | ||
1062 | #define COUNT(d) (count) | ||
1063 | signal(SIGALRM, sig_done); | ||
1064 | |||
1065 | #ifndef OPENSSL_NO_MDC2 | ||
1066 | if (doit[D_MDC2]) { | ||
1067 | for (j = 0; j < SIZE_NUM; j++) { | ||
1068 | print_message(names[D_MDC2], c[D_MDC2][j], lengths[j]); | ||
1069 | Time_F(START); | ||
1070 | for (count = 0, run = 1; COND(c[D_MDC2][j]); count++) | ||
1071 | EVP_Digest(buf, (unsigned long) lengths[j], &(mdc2[0]), NULL, EVP_mdc2(), NULL); | ||
1072 | d = Time_F(STOP); | ||
1073 | print_result(D_MDC2, j, count, d); | ||
1074 | } | ||
1075 | } | ||
1076 | #endif | ||
1077 | |||
1078 | #ifndef OPENSSL_NO_MD4 | ||
1079 | if (doit[D_MD4]) { | ||
1080 | for (j = 0; j < SIZE_NUM; j++) { | ||
1081 | print_message(names[D_MD4], c[D_MD4][j], lengths[j]); | ||
1082 | Time_F(START); | ||
1083 | for (count = 0, run = 1; COND(c[D_MD4][j]); count++) | ||
1084 | EVP_Digest(&(buf[0]), (unsigned long) lengths[j], &(md4[0]), NULL, EVP_md4(), NULL); | ||
1085 | d = Time_F(STOP); | ||
1086 | print_result(D_MD4, j, count, d); | ||
1087 | } | ||
1088 | } | ||
1089 | #endif | ||
1090 | |||
1091 | #ifndef OPENSSL_NO_MD5 | ||
1092 | if (doit[D_MD5]) { | ||
1093 | for (j = 0; j < SIZE_NUM; j++) { | ||
1094 | print_message(names[D_MD5], c[D_MD5][j], lengths[j]); | ||
1095 | Time_F(START); | ||
1096 | for (count = 0, run = 1; COND(c[D_MD5][j]); count++) | ||
1097 | EVP_Digest(&(buf[0]), (unsigned long) lengths[j], &(md5[0]), NULL, EVP_get_digestbyname("md5"), NULL); | ||
1098 | d = Time_F(STOP); | ||
1099 | print_result(D_MD5, j, count, d); | ||
1100 | } | ||
1101 | } | ||
1102 | #endif | ||
1103 | |||
1104 | #if !defined(OPENSSL_NO_MD5) && !defined(OPENSSL_NO_HMAC) | ||
1105 | if (doit[D_HMAC]) { | ||
1106 | HMAC_CTX hctx; | ||
1107 | |||
1108 | HMAC_CTX_init(&hctx); | ||
1109 | HMAC_Init_ex(&hctx, (unsigned char *) "This is a key...", | ||
1110 | 16, EVP_md5(), NULL); | ||
1111 | |||
1112 | for (j = 0; j < SIZE_NUM; j++) { | ||
1113 | print_message(names[D_HMAC], c[D_HMAC][j], lengths[j]); | ||
1114 | Time_F(START); | ||
1115 | for (count = 0, run = 1; COND(c[D_HMAC][j]); count++) { | ||
1116 | HMAC_Init_ex(&hctx, NULL, 0, NULL, NULL); | ||
1117 | HMAC_Update(&hctx, buf, lengths[j]); | ||
1118 | HMAC_Final(&hctx, &(hmac[0]), NULL); | ||
1119 | } | ||
1120 | d = Time_F(STOP); | ||
1121 | print_result(D_HMAC, j, count, d); | ||
1122 | } | ||
1123 | HMAC_CTX_cleanup(&hctx); | ||
1124 | } | ||
1125 | #endif | ||
1126 | #ifndef OPENSSL_NO_SHA | ||
1127 | if (doit[D_SHA1]) { | ||
1128 | for (j = 0; j < SIZE_NUM; j++) { | ||
1129 | print_message(names[D_SHA1], c[D_SHA1][j], lengths[j]); | ||
1130 | Time_F(START); | ||
1131 | for (count = 0, run = 1; COND(c[D_SHA1][j]); count++) | ||
1132 | EVP_Digest(buf, (unsigned long) lengths[j], &(sha[0]), NULL, EVP_sha1(), NULL); | ||
1133 | d = Time_F(STOP); | ||
1134 | print_result(D_SHA1, j, count, d); | ||
1135 | } | ||
1136 | } | ||
1137 | #ifndef OPENSSL_NO_SHA256 | ||
1138 | if (doit[D_SHA256]) { | ||
1139 | for (j = 0; j < SIZE_NUM; j++) { | ||
1140 | print_message(names[D_SHA256], c[D_SHA256][j], lengths[j]); | ||
1141 | Time_F(START); | ||
1142 | for (count = 0, run = 1; COND(c[D_SHA256][j]); count++) | ||
1143 | SHA256(buf, lengths[j], sha256); | ||
1144 | d = Time_F(STOP); | ||
1145 | print_result(D_SHA256, j, count, d); | ||
1146 | } | ||
1147 | } | ||
1148 | #endif | ||
1149 | |||
1150 | #ifndef OPENSSL_NO_SHA512 | ||
1151 | if (doit[D_SHA512]) { | ||
1152 | for (j = 0; j < SIZE_NUM; j++) { | ||
1153 | print_message(names[D_SHA512], c[D_SHA512][j], lengths[j]); | ||
1154 | Time_F(START); | ||
1155 | for (count = 0, run = 1; COND(c[D_SHA512][j]); count++) | ||
1156 | SHA512(buf, lengths[j], sha512); | ||
1157 | d = Time_F(STOP); | ||
1158 | print_result(D_SHA512, j, count, d); | ||
1159 | } | ||
1160 | } | ||
1161 | #endif | ||
1162 | #endif | ||
1163 | |||
1164 | #ifndef OPENSSL_NO_WHIRLPOOL | ||
1165 | if (doit[D_WHIRLPOOL]) { | ||
1166 | for (j = 0; j < SIZE_NUM; j++) { | ||
1167 | print_message(names[D_WHIRLPOOL], c[D_WHIRLPOOL][j], lengths[j]); | ||
1168 | Time_F(START); | ||
1169 | for (count = 0, run = 1; COND(c[D_WHIRLPOOL][j]); count++) | ||
1170 | WHIRLPOOL(buf, lengths[j], whirlpool); | ||
1171 | d = Time_F(STOP); | ||
1172 | print_result(D_WHIRLPOOL, j, count, d); | ||
1173 | } | ||
1174 | } | ||
1175 | #endif | ||
1176 | |||
1177 | #ifndef OPENSSL_NO_RIPEMD | ||
1178 | if (doit[D_RMD160]) { | ||
1179 | for (j = 0; j < SIZE_NUM; j++) { | ||
1180 | print_message(names[D_RMD160], c[D_RMD160][j], lengths[j]); | ||
1181 | Time_F(START); | ||
1182 | for (count = 0, run = 1; COND(c[D_RMD160][j]); count++) | ||
1183 | EVP_Digest(buf, (unsigned long) lengths[j], &(rmd160[0]), NULL, EVP_ripemd160(), NULL); | ||
1184 | d = Time_F(STOP); | ||
1185 | print_result(D_RMD160, j, count, d); | ||
1186 | } | ||
1187 | } | ||
1188 | #endif | ||
1189 | #ifndef OPENSSL_NO_RC4 | ||
1190 | if (doit[D_RC4]) { | ||
1191 | for (j = 0; j < SIZE_NUM; j++) { | ||
1192 | print_message(names[D_RC4], c[D_RC4][j], lengths[j]); | ||
1193 | Time_F(START); | ||
1194 | for (count = 0, run = 1; COND(c[D_RC4][j]); count++) | ||
1195 | RC4(&rc4_ks, (unsigned int) lengths[j], | ||
1196 | buf, buf); | ||
1197 | d = Time_F(STOP); | ||
1198 | print_result(D_RC4, j, count, d); | ||
1199 | } | ||
1200 | } | ||
1201 | #endif | ||
1202 | #ifndef OPENSSL_NO_DES | ||
1203 | if (doit[D_CBC_DES]) { | ||
1204 | for (j = 0; j < SIZE_NUM; j++) { | ||
1205 | print_message(names[D_CBC_DES], c[D_CBC_DES][j], lengths[j]); | ||
1206 | Time_F(START); | ||
1207 | for (count = 0, run = 1; COND(c[D_CBC_DES][j]); count++) | ||
1208 | DES_ncbc_encrypt(buf, buf, lengths[j], &sch, | ||
1209 | &DES_iv, DES_ENCRYPT); | ||
1210 | d = Time_F(STOP); | ||
1211 | print_result(D_CBC_DES, j, count, d); | ||
1212 | } | ||
1213 | } | ||
1214 | if (doit[D_EDE3_DES]) { | ||
1215 | for (j = 0; j < SIZE_NUM; j++) { | ||
1216 | print_message(names[D_EDE3_DES], c[D_EDE3_DES][j], lengths[j]); | ||
1217 | Time_F(START); | ||
1218 | for (count = 0, run = 1; COND(c[D_EDE3_DES][j]); count++) | ||
1219 | DES_ede3_cbc_encrypt(buf, buf, lengths[j], | ||
1220 | &sch, &sch2, &sch3, | ||
1221 | &DES_iv, DES_ENCRYPT); | ||
1222 | d = Time_F(STOP); | ||
1223 | print_result(D_EDE3_DES, j, count, d); | ||
1224 | } | ||
1225 | } | ||
1226 | #endif | ||
1227 | #ifndef OPENSSL_NO_AES | ||
1228 | if (doit[D_CBC_128_AES]) { | ||
1229 | for (j = 0; j < SIZE_NUM; j++) { | ||
1230 | print_message(names[D_CBC_128_AES], c[D_CBC_128_AES][j], lengths[j]); | ||
1231 | Time_F(START); | ||
1232 | for (count = 0, run = 1; COND(c[D_CBC_128_AES][j]); count++) | ||
1233 | AES_cbc_encrypt(buf, buf, | ||
1234 | (unsigned long) lengths[j], &aes_ks1, | ||
1235 | iv, AES_ENCRYPT); | ||
1236 | d = Time_F(STOP); | ||
1237 | print_result(D_CBC_128_AES, j, count, d); | ||
1238 | } | ||
1239 | } | ||
1240 | if (doit[D_CBC_192_AES]) { | ||
1241 | for (j = 0; j < SIZE_NUM; j++) { | ||
1242 | print_message(names[D_CBC_192_AES], c[D_CBC_192_AES][j], lengths[j]); | ||
1243 | Time_F(START); | ||
1244 | for (count = 0, run = 1; COND(c[D_CBC_192_AES][j]); count++) | ||
1245 | AES_cbc_encrypt(buf, buf, | ||
1246 | (unsigned long) lengths[j], &aes_ks2, | ||
1247 | iv, AES_ENCRYPT); | ||
1248 | d = Time_F(STOP); | ||
1249 | print_result(D_CBC_192_AES, j, count, d); | ||
1250 | } | ||
1251 | } | ||
1252 | if (doit[D_CBC_256_AES]) { | ||
1253 | for (j = 0; j < SIZE_NUM; j++) { | ||
1254 | print_message(names[D_CBC_256_AES], c[D_CBC_256_AES][j], lengths[j]); | ||
1255 | Time_F(START); | ||
1256 | for (count = 0, run = 1; COND(c[D_CBC_256_AES][j]); count++) | ||
1257 | AES_cbc_encrypt(buf, buf, | ||
1258 | (unsigned long) lengths[j], &aes_ks3, | ||
1259 | iv, AES_ENCRYPT); | ||
1260 | d = Time_F(STOP); | ||
1261 | print_result(D_CBC_256_AES, j, count, d); | ||
1262 | } | ||
1263 | } | ||
1264 | if (doit[D_IGE_128_AES]) { | ||
1265 | for (j = 0; j < SIZE_NUM; j++) { | ||
1266 | print_message(names[D_IGE_128_AES], c[D_IGE_128_AES][j], lengths[j]); | ||
1267 | Time_F(START); | ||
1268 | for (count = 0, run = 1; COND(c[D_IGE_128_AES][j]); count++) | ||
1269 | AES_ige_encrypt(buf, buf2, | ||
1270 | (unsigned long) lengths[j], &aes_ks1, | ||
1271 | iv, AES_ENCRYPT); | ||
1272 | d = Time_F(STOP); | ||
1273 | print_result(D_IGE_128_AES, j, count, d); | ||
1274 | } | ||
1275 | } | ||
1276 | if (doit[D_IGE_192_AES]) { | ||
1277 | for (j = 0; j < SIZE_NUM; j++) { | ||
1278 | print_message(names[D_IGE_192_AES], c[D_IGE_192_AES][j], lengths[j]); | ||
1279 | Time_F(START); | ||
1280 | for (count = 0, run = 1; COND(c[D_IGE_192_AES][j]); count++) | ||
1281 | AES_ige_encrypt(buf, buf2, | ||
1282 | (unsigned long) lengths[j], &aes_ks2, | ||
1283 | iv, AES_ENCRYPT); | ||
1284 | d = Time_F(STOP); | ||
1285 | print_result(D_IGE_192_AES, j, count, d); | ||
1286 | } | ||
1287 | } | ||
1288 | if (doit[D_IGE_256_AES]) { | ||
1289 | for (j = 0; j < SIZE_NUM; j++) { | ||
1290 | print_message(names[D_IGE_256_AES], c[D_IGE_256_AES][j], lengths[j]); | ||
1291 | Time_F(START); | ||
1292 | for (count = 0, run = 1; COND(c[D_IGE_256_AES][j]); count++) | ||
1293 | AES_ige_encrypt(buf, buf2, | ||
1294 | (unsigned long) lengths[j], &aes_ks3, | ||
1295 | iv, AES_ENCRYPT); | ||
1296 | d = Time_F(STOP); | ||
1297 | print_result(D_IGE_256_AES, j, count, d); | ||
1298 | } | ||
1299 | } | ||
1300 | if (doit[D_GHASH]) { | ||
1301 | GCM128_CONTEXT *ctx = CRYPTO_gcm128_new(&aes_ks1, (block128_f) AES_encrypt); | ||
1302 | CRYPTO_gcm128_setiv(ctx, (unsigned char *) "0123456789ab", 12); | ||
1303 | |||
1304 | for (j = 0; j < SIZE_NUM; j++) { | ||
1305 | print_message(names[D_GHASH], c[D_GHASH][j], lengths[j]); | ||
1306 | Time_F(START); | ||
1307 | for (count = 0, run = 1; COND(c[D_GHASH][j]); count++) | ||
1308 | CRYPTO_gcm128_aad(ctx, buf, lengths[j]); | ||
1309 | d = Time_F(STOP); | ||
1310 | print_result(D_GHASH, j, count, d); | ||
1311 | } | ||
1312 | CRYPTO_gcm128_release(ctx); | ||
1313 | } | ||
1314 | #endif | ||
1315 | #ifndef OPENSSL_NO_CAMELLIA | ||
1316 | if (doit[D_CBC_128_CML]) { | ||
1317 | for (j = 0; j < SIZE_NUM; j++) { | ||
1318 | print_message(names[D_CBC_128_CML], c[D_CBC_128_CML][j], lengths[j]); | ||
1319 | Time_F(START); | ||
1320 | for (count = 0, run = 1; COND(c[D_CBC_128_CML][j]); count++) | ||
1321 | Camellia_cbc_encrypt(buf, buf, | ||
1322 | (unsigned long) lengths[j], &camellia_ks1, | ||
1323 | iv, CAMELLIA_ENCRYPT); | ||
1324 | d = Time_F(STOP); | ||
1325 | print_result(D_CBC_128_CML, j, count, d); | ||
1326 | } | ||
1327 | } | ||
1328 | if (doit[D_CBC_192_CML]) { | ||
1329 | for (j = 0; j < SIZE_NUM; j++) { | ||
1330 | print_message(names[D_CBC_192_CML], c[D_CBC_192_CML][j], lengths[j]); | ||
1331 | Time_F(START); | ||
1332 | for (count = 0, run = 1; COND(c[D_CBC_192_CML][j]); count++) | ||
1333 | Camellia_cbc_encrypt(buf, buf, | ||
1334 | (unsigned long) lengths[j], &camellia_ks2, | ||
1335 | iv, CAMELLIA_ENCRYPT); | ||
1336 | d = Time_F(STOP); | ||
1337 | print_result(D_CBC_192_CML, j, count, d); | ||
1338 | } | ||
1339 | } | ||
1340 | if (doit[D_CBC_256_CML]) { | ||
1341 | for (j = 0; j < SIZE_NUM; j++) { | ||
1342 | print_message(names[D_CBC_256_CML], c[D_CBC_256_CML][j], lengths[j]); | ||
1343 | Time_F(START); | ||
1344 | for (count = 0, run = 1; COND(c[D_CBC_256_CML][j]); count++) | ||
1345 | Camellia_cbc_encrypt(buf, buf, | ||
1346 | (unsigned long) lengths[j], &camellia_ks3, | ||
1347 | iv, CAMELLIA_ENCRYPT); | ||
1348 | d = Time_F(STOP); | ||
1349 | print_result(D_CBC_256_CML, j, count, d); | ||
1350 | } | ||
1351 | } | ||
1352 | #endif | ||
1353 | #ifndef OPENSSL_NO_IDEA | ||
1354 | if (doit[D_CBC_IDEA]) { | ||
1355 | for (j = 0; j < SIZE_NUM; j++) { | ||
1356 | print_message(names[D_CBC_IDEA], c[D_CBC_IDEA][j], lengths[j]); | ||
1357 | Time_F(START); | ||
1358 | for (count = 0, run = 1; COND(c[D_CBC_IDEA][j]); count++) | ||
1359 | idea_cbc_encrypt(buf, buf, | ||
1360 | (unsigned long) lengths[j], &idea_ks, | ||
1361 | iv, IDEA_ENCRYPT); | ||
1362 | d = Time_F(STOP); | ||
1363 | print_result(D_CBC_IDEA, j, count, d); | ||
1364 | } | ||
1365 | } | ||
1366 | #endif | ||
1367 | #ifndef OPENSSL_NO_RC2 | ||
1368 | if (doit[D_CBC_RC2]) { | ||
1369 | for (j = 0; j < SIZE_NUM; j++) { | ||
1370 | print_message(names[D_CBC_RC2], c[D_CBC_RC2][j], lengths[j]); | ||
1371 | Time_F(START); | ||
1372 | for (count = 0, run = 1; COND(c[D_CBC_RC2][j]); count++) | ||
1373 | RC2_cbc_encrypt(buf, buf, | ||
1374 | (unsigned long) lengths[j], &rc2_ks, | ||
1375 | iv, RC2_ENCRYPT); | ||
1376 | d = Time_F(STOP); | ||
1377 | print_result(D_CBC_RC2, j, count, d); | ||
1378 | } | ||
1379 | } | ||
1380 | #endif | ||
1381 | #ifndef OPENSSL_NO_RC5 | ||
1382 | if (doit[D_CBC_RC5]) { | ||
1383 | for (j = 0; j < SIZE_NUM; j++) { | ||
1384 | print_message(names[D_CBC_RC5], c[D_CBC_RC5][j], lengths[j]); | ||
1385 | Time_F(START); | ||
1386 | for (count = 0, run = 1; COND(c[D_CBC_RC5][j]); count++) | ||
1387 | RC5_32_cbc_encrypt(buf, buf, | ||
1388 | (unsigned long) lengths[j], &rc5_ks, | ||
1389 | iv, RC5_ENCRYPT); | ||
1390 | d = Time_F(STOP); | ||
1391 | print_result(D_CBC_RC5, j, count, d); | ||
1392 | } | ||
1393 | } | ||
1394 | #endif | ||
1395 | #ifndef OPENSSL_NO_BF | ||
1396 | if (doit[D_CBC_BF]) { | ||
1397 | for (j = 0; j < SIZE_NUM; j++) { | ||
1398 | print_message(names[D_CBC_BF], c[D_CBC_BF][j], lengths[j]); | ||
1399 | Time_F(START); | ||
1400 | for (count = 0, run = 1; COND(c[D_CBC_BF][j]); count++) | ||
1401 | BF_cbc_encrypt(buf, buf, | ||
1402 | (unsigned long) lengths[j], &bf_ks, | ||
1403 | iv, BF_ENCRYPT); | ||
1404 | d = Time_F(STOP); | ||
1405 | print_result(D_CBC_BF, j, count, d); | ||
1406 | } | ||
1407 | } | ||
1408 | #endif | ||
1409 | #ifndef OPENSSL_NO_CAST | ||
1410 | if (doit[D_CBC_CAST]) { | ||
1411 | for (j = 0; j < SIZE_NUM; j++) { | ||
1412 | print_message(names[D_CBC_CAST], c[D_CBC_CAST][j], lengths[j]); | ||
1413 | Time_F(START); | ||
1414 | for (count = 0, run = 1; COND(c[D_CBC_CAST][j]); count++) | ||
1415 | CAST_cbc_encrypt(buf, buf, | ||
1416 | (unsigned long) lengths[j], &cast_ks, | ||
1417 | iv, CAST_ENCRYPT); | ||
1418 | d = Time_F(STOP); | ||
1419 | print_result(D_CBC_CAST, j, count, d); | ||
1420 | } | ||
1421 | } | ||
1422 | #endif | ||
1423 | |||
1424 | if (doit[D_EVP]) { | ||
1425 | for (j = 0; j < SIZE_NUM; j++) { | ||
1426 | if (evp_cipher) { | ||
1427 | EVP_CIPHER_CTX ctx; | ||
1428 | int outl; | ||
1429 | |||
1430 | names[D_EVP] = OBJ_nid2ln(evp_cipher->nid); | ||
1431 | /* | ||
1432 | * -O3 -fschedule-insns messes up an | ||
1433 | * optimization here! names[D_EVP] somehow | ||
1434 | * becomes NULL | ||
1435 | */ | ||
1436 | print_message(names[D_EVP], save_count, | ||
1437 | lengths[j]); | ||
1438 | |||
1439 | EVP_CIPHER_CTX_init(&ctx); | ||
1440 | if (decrypt) | ||
1441 | EVP_DecryptInit_ex(&ctx, evp_cipher, NULL, key16, iv); | ||
1442 | else | ||
1443 | EVP_EncryptInit_ex(&ctx, evp_cipher, NULL, key16, iv); | ||
1444 | EVP_CIPHER_CTX_set_padding(&ctx, 0); | ||
1445 | |||
1446 | Time_F(START); | ||
1447 | if (decrypt) | ||
1448 | for (count = 0, run = 1; COND(save_count * 4 * lengths[0] / lengths[j]); count++) | ||
1449 | EVP_DecryptUpdate(&ctx, buf, &outl, buf, lengths[j]); | ||
1450 | else | ||
1451 | for (count = 0, run = 1; COND(save_count * 4 * lengths[0] / lengths[j]); count++) | ||
1452 | EVP_EncryptUpdate(&ctx, buf, &outl, buf, lengths[j]); | ||
1453 | if (decrypt) | ||
1454 | EVP_DecryptFinal_ex(&ctx, buf, &outl); | ||
1455 | else | ||
1456 | EVP_EncryptFinal_ex(&ctx, buf, &outl); | ||
1457 | d = Time_F(STOP); | ||
1458 | EVP_CIPHER_CTX_cleanup(&ctx); | ||
1459 | } | ||
1460 | if (evp_md) { | ||
1461 | names[D_EVP] = OBJ_nid2ln(evp_md->type); | ||
1462 | print_message(names[D_EVP], save_count, | ||
1463 | lengths[j]); | ||
1464 | |||
1465 | Time_F(START); | ||
1466 | for (count = 0, run = 1; COND(save_count * 4 * lengths[0] / lengths[j]); count++) | ||
1467 | EVP_Digest(buf, lengths[j], &(md[0]), NULL, evp_md, NULL); | ||
1468 | |||
1469 | d = Time_F(STOP); | ||
1470 | } | ||
1471 | print_result(D_EVP, j, count, d); | ||
1472 | } | ||
1473 | } | ||
1474 | RAND_pseudo_bytes(buf, 36); | ||
1475 | for (j = 0; j < RSA_NUM; j++) { | ||
1476 | int ret; | ||
1477 | if (!rsa_doit[j]) | ||
1478 | continue; | ||
1479 | ret = RSA_sign(NID_md5_sha1, buf, 36, buf2, &rsa_num, rsa_key[j]); | ||
1480 | if (ret == 0) { | ||
1481 | BIO_printf(bio_err, "RSA sign failure. No RSA sign will be done.\n"); | ||
1482 | ERR_print_errors(bio_err); | ||
1483 | rsa_count = 1; | ||
1484 | } else { | ||
1485 | pkey_print_message("private", "rsa", | ||
1486 | rsa_c[j][0], rsa_bits[j], | ||
1487 | RSA_SECONDS); | ||
1488 | /* RSA_blinding_on(rsa_key[j],NULL); */ | ||
1489 | Time_F(START); | ||
1490 | for (count = 0, run = 1; COND(rsa_c[j][0]); count++) { | ||
1491 | ret = RSA_sign(NID_md5_sha1, buf, 36, buf2, | ||
1492 | &rsa_num, rsa_key[j]); | ||
1493 | if (ret == 0) { | ||
1494 | BIO_printf(bio_err, | ||
1495 | "RSA sign failure\n"); | ||
1496 | ERR_print_errors(bio_err); | ||
1497 | count = 1; | ||
1498 | break; | ||
1499 | } | ||
1500 | } | ||
1501 | d = Time_F(STOP); | ||
1502 | BIO_printf(bio_err, mr ? "+R1:%ld:%d:%.2f\n" | ||
1503 | : "%ld %d bit private RSA's in %.2fs\n", | ||
1504 | count, rsa_bits[j], d); | ||
1505 | rsa_results[j][0] = d / (double) count; | ||
1506 | rsa_count = count; | ||
1507 | } | ||
1508 | |||
1509 | #if 1 | ||
1510 | ret = RSA_verify(NID_md5_sha1, buf, 36, buf2, rsa_num, rsa_key[j]); | ||
1511 | if (ret <= 0) { | ||
1512 | BIO_printf(bio_err, "RSA verify failure. No RSA verify will be done.\n"); | ||
1513 | ERR_print_errors(bio_err); | ||
1514 | rsa_doit[j] = 0; | ||
1515 | } else { | ||
1516 | pkey_print_message("public", "rsa", | ||
1517 | rsa_c[j][1], rsa_bits[j], | ||
1518 | RSA_SECONDS); | ||
1519 | Time_F(START); | ||
1520 | for (count = 0, run = 1; COND(rsa_c[j][1]); count++) { | ||
1521 | ret = RSA_verify(NID_md5_sha1, buf, 36, buf2, | ||
1522 | rsa_num, rsa_key[j]); | ||
1523 | if (ret <= 0) { | ||
1524 | BIO_printf(bio_err, | ||
1525 | "RSA verify failure\n"); | ||
1526 | ERR_print_errors(bio_err); | ||
1527 | count = 1; | ||
1528 | break; | ||
1529 | } | ||
1530 | } | ||
1531 | d = Time_F(STOP); | ||
1532 | BIO_printf(bio_err, mr ? "+R2:%ld:%d:%.2f\n" | ||
1533 | : "%ld %d bit public RSA's in %.2fs\n", | ||
1534 | count, rsa_bits[j], d); | ||
1535 | rsa_results[j][1] = d / (double) count; | ||
1536 | } | ||
1537 | #endif | ||
1538 | |||
1539 | if (rsa_count <= 1) { | ||
1540 | /* if longer than 10s, don't do any more */ | ||
1541 | for (j++; j < RSA_NUM; j++) | ||
1542 | rsa_doit[j] = 0; | ||
1543 | } | ||
1544 | } | ||
1545 | |||
1546 | RAND_pseudo_bytes(buf, 20); | ||
1547 | for (j = 0; j < DSA_NUM; j++) { | ||
1548 | unsigned int kk; | ||
1549 | int ret; | ||
1550 | |||
1551 | if (!dsa_doit[j]) | ||
1552 | continue; | ||
1553 | /* DSA_generate_key(dsa_key[j]); */ | ||
1554 | /* DSA_sign_setup(dsa_key[j],NULL); */ | ||
1555 | ret = DSA_sign(EVP_PKEY_DSA, buf, 20, buf2, | ||
1556 | &kk, dsa_key[j]); | ||
1557 | if (ret == 0) { | ||
1558 | BIO_printf(bio_err, "DSA sign failure. No DSA sign will be done.\n"); | ||
1559 | ERR_print_errors(bio_err); | ||
1560 | rsa_count = 1; | ||
1561 | } else { | ||
1562 | pkey_print_message("sign", "dsa", | ||
1563 | dsa_c[j][0], dsa_bits[j], | ||
1564 | DSA_SECONDS); | ||
1565 | Time_F(START); | ||
1566 | for (count = 0, run = 1; COND(dsa_c[j][0]); count++) { | ||
1567 | ret = DSA_sign(EVP_PKEY_DSA, buf, 20, buf2, | ||
1568 | &kk, dsa_key[j]); | ||
1569 | if (ret == 0) { | ||
1570 | BIO_printf(bio_err, | ||
1571 | "DSA sign failure\n"); | ||
1572 | ERR_print_errors(bio_err); | ||
1573 | count = 1; | ||
1574 | break; | ||
1575 | } | ||
1576 | } | ||
1577 | d = Time_F(STOP); | ||
1578 | BIO_printf(bio_err, mr ? "+R3:%ld:%d:%.2f\n" | ||
1579 | : "%ld %d bit DSA signs in %.2fs\n", | ||
1580 | count, dsa_bits[j], d); | ||
1581 | dsa_results[j][0] = d / (double) count; | ||
1582 | rsa_count = count; | ||
1583 | } | ||
1584 | |||
1585 | ret = DSA_verify(EVP_PKEY_DSA, buf, 20, buf2, | ||
1586 | kk, dsa_key[j]); | ||
1587 | if (ret <= 0) { | ||
1588 | BIO_printf(bio_err, "DSA verify failure. No DSA verify will be done.\n"); | ||
1589 | ERR_print_errors(bio_err); | ||
1590 | dsa_doit[j] = 0; | ||
1591 | } else { | ||
1592 | pkey_print_message("verify", "dsa", | ||
1593 | dsa_c[j][1], dsa_bits[j], | ||
1594 | DSA_SECONDS); | ||
1595 | Time_F(START); | ||
1596 | for (count = 0, run = 1; COND(dsa_c[j][1]); count++) { | ||
1597 | ret = DSA_verify(EVP_PKEY_DSA, buf, 20, buf2, | ||
1598 | kk, dsa_key[j]); | ||
1599 | if (ret <= 0) { | ||
1600 | BIO_printf(bio_err, | ||
1601 | "DSA verify failure\n"); | ||
1602 | ERR_print_errors(bio_err); | ||
1603 | count = 1; | ||
1604 | break; | ||
1605 | } | ||
1606 | } | ||
1607 | d = Time_F(STOP); | ||
1608 | BIO_printf(bio_err, mr ? "+R4:%ld:%d:%.2f\n" | ||
1609 | : "%ld %d bit DSA verify in %.2fs\n", | ||
1610 | count, dsa_bits[j], d); | ||
1611 | dsa_results[j][1] = d / (double) count; | ||
1612 | } | ||
1613 | |||
1614 | if (rsa_count <= 1) { | ||
1615 | /* if longer than 10s, don't do any more */ | ||
1616 | for (j++; j < DSA_NUM; j++) | ||
1617 | dsa_doit[j] = 0; | ||
1618 | } | ||
1619 | } | ||
1620 | |||
1621 | for (j = 0; j < EC_NUM; j++) { | ||
1622 | int ret; | ||
1623 | |||
1624 | if (!ecdsa_doit[j]) | ||
1625 | continue; /* Ignore Curve */ | ||
1626 | ecdsa[j] = EC_KEY_new_by_curve_name(test_curves[j]); | ||
1627 | if (ecdsa[j] == NULL) { | ||
1628 | BIO_printf(bio_err, "ECDSA failure.\n"); | ||
1629 | ERR_print_errors(bio_err); | ||
1630 | rsa_count = 1; | ||
1631 | } else { | ||
1632 | #if 1 | ||
1633 | EC_KEY_precompute_mult(ecdsa[j], NULL); | ||
1634 | #endif | ||
1635 | /* Perform ECDSA signature test */ | ||
1636 | EC_KEY_generate_key(ecdsa[j]); | ||
1637 | ret = ECDSA_sign(0, buf, 20, ecdsasig, | ||
1638 | &ecdsasiglen, ecdsa[j]); | ||
1639 | if (ret == 0) { | ||
1640 | BIO_printf(bio_err, "ECDSA sign failure. No ECDSA sign will be done.\n"); | ||
1641 | ERR_print_errors(bio_err); | ||
1642 | rsa_count = 1; | ||
1643 | } else { | ||
1644 | pkey_print_message("sign", "ecdsa", | ||
1645 | ecdsa_c[j][0], | ||
1646 | test_curves_bits[j], | ||
1647 | ECDSA_SECONDS); | ||
1648 | |||
1649 | Time_F(START); | ||
1650 | for (count = 0, run = 1; COND(ecdsa_c[j][0]); | ||
1651 | count++) { | ||
1652 | ret = ECDSA_sign(0, buf, 20, | ||
1653 | ecdsasig, &ecdsasiglen, | ||
1654 | ecdsa[j]); | ||
1655 | if (ret == 0) { | ||
1656 | BIO_printf(bio_err, "ECDSA sign failure\n"); | ||
1657 | ERR_print_errors(bio_err); | ||
1658 | count = 1; | ||
1659 | break; | ||
1660 | } | ||
1661 | } | ||
1662 | d = Time_F(STOP); | ||
1663 | |||
1664 | BIO_printf(bio_err, mr ? "+R5:%ld:%d:%.2f\n" : | ||
1665 | "%ld %d bit ECDSA signs in %.2fs \n", | ||
1666 | count, test_curves_bits[j], d); | ||
1667 | ecdsa_results[j][0] = d / (double) count; | ||
1668 | rsa_count = count; | ||
1669 | } | ||
1670 | |||
1671 | /* Perform ECDSA verification test */ | ||
1672 | ret = ECDSA_verify(0, buf, 20, ecdsasig, | ||
1673 | ecdsasiglen, ecdsa[j]); | ||
1674 | if (ret != 1) { | ||
1675 | BIO_printf(bio_err, "ECDSA verify failure. No ECDSA verify will be done.\n"); | ||
1676 | ERR_print_errors(bio_err); | ||
1677 | ecdsa_doit[j] = 0; | ||
1678 | } else { | ||
1679 | pkey_print_message("verify", "ecdsa", | ||
1680 | ecdsa_c[j][1], | ||
1681 | test_curves_bits[j], | ||
1682 | ECDSA_SECONDS); | ||
1683 | Time_F(START); | ||
1684 | for (count = 0, run = 1; COND(ecdsa_c[j][1]); count++) { | ||
1685 | ret = ECDSA_verify(0, buf, 20, ecdsasig, ecdsasiglen, ecdsa[j]); | ||
1686 | if (ret != 1) { | ||
1687 | BIO_printf(bio_err, "ECDSA verify failure\n"); | ||
1688 | ERR_print_errors(bio_err); | ||
1689 | count = 1; | ||
1690 | break; | ||
1691 | } | ||
1692 | } | ||
1693 | d = Time_F(STOP); | ||
1694 | BIO_printf(bio_err, mr ? "+R6:%ld:%d:%.2f\n" | ||
1695 | : "%ld %d bit ECDSA verify in %.2fs\n", | ||
1696 | count, test_curves_bits[j], d); | ||
1697 | ecdsa_results[j][1] = d / (double) count; | ||
1698 | } | ||
1699 | |||
1700 | if (rsa_count <= 1) { | ||
1701 | /* if longer than 10s, don't do any more */ | ||
1702 | for (j++; j < EC_NUM; j++) | ||
1703 | ecdsa_doit[j] = 0; | ||
1704 | } | ||
1705 | } | ||
1706 | } | ||
1707 | |||
1708 | for (j = 0; j < EC_NUM; j++) { | ||
1709 | if (!ecdh_doit[j]) | ||
1710 | continue; | ||
1711 | ecdh_a[j] = EC_KEY_new_by_curve_name(test_curves[j]); | ||
1712 | ecdh_b[j] = EC_KEY_new_by_curve_name(test_curves[j]); | ||
1713 | if ((ecdh_a[j] == NULL) || (ecdh_b[j] == NULL)) { | ||
1714 | BIO_printf(bio_err, "ECDH failure.\n"); | ||
1715 | ERR_print_errors(bio_err); | ||
1716 | rsa_count = 1; | ||
1717 | } else { | ||
1718 | /* generate two ECDH key pairs */ | ||
1719 | if (!EC_KEY_generate_key(ecdh_a[j]) || | ||
1720 | !EC_KEY_generate_key(ecdh_b[j])) { | ||
1721 | BIO_printf(bio_err, "ECDH key generation failure.\n"); | ||
1722 | ERR_print_errors(bio_err); | ||
1723 | rsa_count = 1; | ||
1724 | } else { | ||
1725 | /* | ||
1726 | * If field size is not more than 24 octets, | ||
1727 | * then use SHA-1 hash of result; otherwise, | ||
1728 | * use result (see section 4.8 of | ||
1729 | * draft-ietf-tls-ecc-03.txt). | ||
1730 | */ | ||
1731 | int field_size, outlen; | ||
1732 | void *(*kdf) (const void *in, size_t inlen, void *out, size_t * xoutlen); | ||
1733 | field_size = EC_GROUP_get_degree(EC_KEY_get0_group(ecdh_a[j])); | ||
1734 | if (field_size <= 24 * 8) { | ||
1735 | outlen = KDF1_SHA1_len; | ||
1736 | kdf = KDF1_SHA1; | ||
1737 | } else { | ||
1738 | outlen = (field_size + 7) / 8; | ||
1739 | kdf = NULL; | ||
1740 | } | ||
1741 | secret_size_a = ECDH_compute_key(secret_a, outlen, | ||
1742 | EC_KEY_get0_public_key(ecdh_b[j]), | ||
1743 | ecdh_a[j], kdf); | ||
1744 | secret_size_b = ECDH_compute_key(secret_b, outlen, | ||
1745 | EC_KEY_get0_public_key(ecdh_a[j]), | ||
1746 | ecdh_b[j], kdf); | ||
1747 | if (secret_size_a != secret_size_b) | ||
1748 | ecdh_checks = 0; | ||
1749 | else | ||
1750 | ecdh_checks = 1; | ||
1751 | |||
1752 | for (secret_idx = 0; | ||
1753 | (secret_idx < secret_size_a) | ||
1754 | && (ecdh_checks == 1); | ||
1755 | secret_idx++) { | ||
1756 | if (secret_a[secret_idx] != secret_b[secret_idx]) | ||
1757 | ecdh_checks = 0; | ||
1758 | } | ||
1759 | |||
1760 | if (ecdh_checks == 0) { | ||
1761 | BIO_printf(bio_err, "ECDH computations don't match.\n"); | ||
1762 | ERR_print_errors(bio_err); | ||
1763 | rsa_count = 1; | ||
1764 | } | ||
1765 | pkey_print_message("", "ecdh", | ||
1766 | ecdh_c[j][0], | ||
1767 | test_curves_bits[j], | ||
1768 | ECDH_SECONDS); | ||
1769 | Time_F(START); | ||
1770 | for (count = 0, run = 1; COND(ecdh_c[j][0]); count++) { | ||
1771 | ECDH_compute_key(secret_a, outlen, | ||
1772 | EC_KEY_get0_public_key(ecdh_b[j]), | ||
1773 | ecdh_a[j], kdf); | ||
1774 | } | ||
1775 | d = Time_F(STOP); | ||
1776 | BIO_printf(bio_err, mr ? "+R7:%ld:%d:%.2f\n" : "%ld %d-bit ECDH ops in %.2fs\n", | ||
1777 | count, test_curves_bits[j], d); | ||
1778 | ecdh_results[j][0] = d / (double) count; | ||
1779 | rsa_count = count; | ||
1780 | } | ||
1781 | } | ||
1782 | |||
1783 | |||
1784 | if (rsa_count <= 1) { | ||
1785 | /* if longer than 10s, don't do any more */ | ||
1786 | for (j++; j < EC_NUM; j++) | ||
1787 | ecdh_doit[j] = 0; | ||
1788 | } | ||
1789 | } | ||
1790 | show_res: | ||
1791 | if (!mr) { | ||
1792 | fprintf(stdout, "%s\n", SSLeay_version(SSLEAY_VERSION)); | ||
1793 | fprintf(stdout, "%s\n", SSLeay_version(SSLEAY_BUILT_ON)); | ||
1794 | printf("options:"); | ||
1795 | printf("%s ", BN_options()); | ||
1796 | #ifndef OPENSSL_NO_RC4 | ||
1797 | printf("%s ", RC4_options()); | ||
1798 | #endif | ||
1799 | #ifndef OPENSSL_NO_DES | ||
1800 | printf("%s ", DES_options()); | ||
1801 | #endif | ||
1802 | #ifndef OPENSSL_NO_AES | ||
1803 | printf("%s ", AES_options()); | ||
1804 | #endif | ||
1805 | #ifndef OPENSSL_NO_IDEA | ||
1806 | printf("%s ", idea_options()); | ||
1807 | #endif | ||
1808 | #ifndef OPENSSL_NO_BF | ||
1809 | printf("%s ", BF_options()); | ||
1810 | #endif | ||
1811 | fprintf(stdout, "\n%s\n", SSLeay_version(SSLEAY_CFLAGS)); | ||
1812 | } | ||
1813 | if (pr_header) { | ||
1814 | if (mr) | ||
1815 | fprintf(stdout, "+H"); | ||
1816 | else { | ||
1817 | fprintf(stdout, "The 'numbers' are in 1000s of bytes per second processed.\n"); | ||
1818 | fprintf(stdout, "type "); | ||
1819 | } | ||
1820 | for (j = 0; j < SIZE_NUM; j++) | ||
1821 | fprintf(stdout, mr ? ":%d" : "%7d bytes", lengths[j]); | ||
1822 | fprintf(stdout, "\n"); | ||
1823 | } | ||
1824 | for (k = 0; k < ALGOR_NUM; k++) { | ||
1825 | if (!doit[k]) | ||
1826 | continue; | ||
1827 | if (mr) | ||
1828 | fprintf(stdout, "+F:%d:%s", k, names[k]); | ||
1829 | else | ||
1830 | fprintf(stdout, "%-13s", names[k]); | ||
1831 | for (j = 0; j < SIZE_NUM; j++) { | ||
1832 | if (results[k][j] > 10000 && !mr) | ||
1833 | fprintf(stdout, " %11.2fk", results[k][j] / 1e3); | ||
1834 | else | ||
1835 | fprintf(stdout, mr ? ":%.2f" : " %11.2f ", results[k][j]); | ||
1836 | } | ||
1837 | fprintf(stdout, "\n"); | ||
1838 | } | ||
1839 | j = 1; | ||
1840 | for (k = 0; k < RSA_NUM; k++) { | ||
1841 | if (!rsa_doit[k]) | ||
1842 | continue; | ||
1843 | if (j && !mr) { | ||
1844 | printf("%18ssign verify sign/s verify/s\n", " "); | ||
1845 | j = 0; | ||
1846 | } | ||
1847 | if (mr) | ||
1848 | fprintf(stdout, "+F2:%u:%u:%f:%f\n", | ||
1849 | k, rsa_bits[k], rsa_results[k][0], | ||
1850 | rsa_results[k][1]); | ||
1851 | else | ||
1852 | fprintf(stdout, "rsa %4u bits %8.6fs %8.6fs %8.1f %8.1f\n", | ||
1853 | rsa_bits[k], rsa_results[k][0], rsa_results[k][1], | ||
1854 | 1.0 / rsa_results[k][0], 1.0 / rsa_results[k][1]); | ||
1855 | } | ||
1856 | j = 1; | ||
1857 | for (k = 0; k < DSA_NUM; k++) { | ||
1858 | if (!dsa_doit[k]) | ||
1859 | continue; | ||
1860 | if (j && !mr) { | ||
1861 | printf("%18ssign verify sign/s verify/s\n", " "); | ||
1862 | j = 0; | ||
1863 | } | ||
1864 | if (mr) | ||
1865 | fprintf(stdout, "+F3:%u:%u:%f:%f\n", | ||
1866 | k, dsa_bits[k], dsa_results[k][0], dsa_results[k][1]); | ||
1867 | else | ||
1868 | fprintf(stdout, "dsa %4u bits %8.6fs %8.6fs %8.1f %8.1f\n", | ||
1869 | dsa_bits[k], dsa_results[k][0], dsa_results[k][1], | ||
1870 | 1.0 / dsa_results[k][0], 1.0 / dsa_results[k][1]); | ||
1871 | } | ||
1872 | j = 1; | ||
1873 | for (k = 0; k < EC_NUM; k++) { | ||
1874 | if (!ecdsa_doit[k]) | ||
1875 | continue; | ||
1876 | if (j && !mr) { | ||
1877 | printf("%30ssign verify sign/s verify/s\n", " "); | ||
1878 | j = 0; | ||
1879 | } | ||
1880 | if (mr) | ||
1881 | fprintf(stdout, "+F4:%u:%u:%f:%f\n", | ||
1882 | k, test_curves_bits[k], | ||
1883 | ecdsa_results[k][0], ecdsa_results[k][1]); | ||
1884 | else | ||
1885 | fprintf(stdout, | ||
1886 | "%4u bit ecdsa (%s) %8.4fs %8.4fs %8.1f %8.1f\n", | ||
1887 | test_curves_bits[k], | ||
1888 | test_curves_names[k], | ||
1889 | ecdsa_results[k][0], ecdsa_results[k][1], | ||
1890 | 1.0 / ecdsa_results[k][0], 1.0 / ecdsa_results[k][1]); | ||
1891 | } | ||
1892 | |||
1893 | |||
1894 | j = 1; | ||
1895 | for (k = 0; k < EC_NUM; k++) { | ||
1896 | if (!ecdh_doit[k]) | ||
1897 | continue; | ||
1898 | if (j && !mr) { | ||
1899 | printf("%30sop op/s\n", " "); | ||
1900 | j = 0; | ||
1901 | } | ||
1902 | if (mr) | ||
1903 | fprintf(stdout, "+F5:%u:%u:%f:%f\n", | ||
1904 | k, test_curves_bits[k], | ||
1905 | ecdh_results[k][0], 1.0 / ecdh_results[k][0]); | ||
1906 | |||
1907 | else | ||
1908 | fprintf(stdout, "%4u bit ecdh (%s) %8.4fs %8.1f\n", | ||
1909 | test_curves_bits[k], | ||
1910 | test_curves_names[k], | ||
1911 | ecdh_results[k][0], 1.0 / ecdh_results[k][0]); | ||
1912 | } | ||
1913 | |||
1914 | mret = 0; | ||
1915 | |||
1916 | end: | ||
1917 | ERR_print_errors(bio_err); | ||
1918 | free(buf); | ||
1919 | free(buf2); | ||
1920 | for (i = 0; i < RSA_NUM; i++) | ||
1921 | if (rsa_key[i] != NULL) | ||
1922 | RSA_free(rsa_key[i]); | ||
1923 | for (i = 0; i < DSA_NUM; i++) | ||
1924 | if (dsa_key[i] != NULL) | ||
1925 | DSA_free(dsa_key[i]); | ||
1926 | |||
1927 | for (i = 0; i < EC_NUM; i++) | ||
1928 | if (ecdsa[i] != NULL) | ||
1929 | EC_KEY_free(ecdsa[i]); | ||
1930 | for (i = 0; i < EC_NUM; i++) { | ||
1931 | if (ecdh_a[i] != NULL) | ||
1932 | EC_KEY_free(ecdh_a[i]); | ||
1933 | if (ecdh_b[i] != NULL) | ||
1934 | EC_KEY_free(ecdh_b[i]); | ||
1935 | } | ||
1936 | |||
1937 | |||
1938 | return (mret); | ||
1939 | } | ||
1940 | |||
1941 | static void | ||
1942 | print_message(const char *s, long num, int length) | ||
1943 | { | ||
1944 | BIO_printf(bio_err, mr ? "+DT:%s:%d:%d\n" | ||
1945 | : "Doing %s for %ds on %d size blocks: ", s, SECONDS, length); | ||
1946 | (void) BIO_flush(bio_err); | ||
1947 | alarm(SECONDS); | ||
1948 | } | ||
1949 | |||
1950 | static void | ||
1951 | pkey_print_message(const char *str, const char *str2, long num, | ||
1952 | int bits, int tm) | ||
1953 | { | ||
1954 | BIO_printf(bio_err, mr ? "+DTP:%d:%s:%s:%d\n" | ||
1955 | : "Doing %d bit %s %s's for %ds: ", bits, str, str2, tm); | ||
1956 | (void) BIO_flush(bio_err); | ||
1957 | alarm(tm); | ||
1958 | } | ||
1959 | |||
1960 | static void | ||
1961 | print_result(int alg, int run_no, int count, double time_used) | ||
1962 | { | ||
1963 | BIO_printf(bio_err, mr ? "+R:%d:%s:%f\n" | ||
1964 | : "%d %s's in %.2fs\n", count, names[alg], time_used); | ||
1965 | results[alg][run_no] = ((double) count) / time_used * lengths[run_no]; | ||
1966 | } | ||
1967 | |||
1968 | static char * | ||
1969 | sstrsep(char **string, const char *delim) | ||
1970 | { | ||
1971 | char isdelim[256]; | ||
1972 | char *token = *string; | ||
1973 | |||
1974 | if (**string == 0) | ||
1975 | return NULL; | ||
1976 | |||
1977 | memset(isdelim, 0, sizeof isdelim); | ||
1978 | isdelim[0] = 1; | ||
1979 | |||
1980 | while (*delim) { | ||
1981 | isdelim[(unsigned char) (*delim)] = 1; | ||
1982 | delim++; | ||
1983 | } | ||
1984 | |||
1985 | while (!isdelim[(unsigned char) (**string)]) { | ||
1986 | (*string)++; | ||
1987 | } | ||
1988 | |||
1989 | if (**string) { | ||
1990 | **string = 0; | ||
1991 | (*string)++; | ||
1992 | } | ||
1993 | return token; | ||
1994 | } | ||
1995 | |||
1996 | static int | ||
1997 | do_multi(int multi) | ||
1998 | { | ||
1999 | int n; | ||
2000 | int fd[2]; | ||
2001 | int *fds; | ||
2002 | static char sep[] = ":"; | ||
2003 | const char *errstr = NULL; | ||
2004 | |||
2005 | fds = reallocarray(NULL, multi, sizeof *fds); | ||
2006 | for (n = 0; n < multi; ++n) { | ||
2007 | if (pipe(fd) == -1) { | ||
2008 | fprintf(stderr, "pipe failure\n"); | ||
2009 | exit(1); | ||
2010 | } | ||
2011 | fflush(stdout); | ||
2012 | fflush(stderr); | ||
2013 | if (fork()) { | ||
2014 | close(fd[1]); | ||
2015 | fds[n] = fd[0]; | ||
2016 | } else { | ||
2017 | close(fd[0]); | ||
2018 | close(1); | ||
2019 | if (dup(fd[1]) == -1) { | ||
2020 | fprintf(stderr, "dup failed\n"); | ||
2021 | exit(1); | ||
2022 | } | ||
2023 | close(fd[1]); | ||
2024 | mr = 1; | ||
2025 | usertime = 0; | ||
2026 | free(fds); | ||
2027 | return 0; | ||
2028 | } | ||
2029 | printf("Forked child %d\n", n); | ||
2030 | } | ||
2031 | |||
2032 | /* for now, assume the pipe is long enough to take all the output */ | ||
2033 | for (n = 0; n < multi; ++n) { | ||
2034 | FILE *f; | ||
2035 | char buf[1024]; | ||
2036 | char *p; | ||
2037 | |||
2038 | f = fdopen(fds[n], "r"); | ||
2039 | while (fgets(buf, sizeof buf, f)) { | ||
2040 | p = strchr(buf, '\n'); | ||
2041 | if (p) | ||
2042 | *p = '\0'; | ||
2043 | if (buf[0] != '+') { | ||
2044 | fprintf(stderr, "Don't understand line '%s' from child %d\n", | ||
2045 | buf, n); | ||
2046 | continue; | ||
2047 | } | ||
2048 | printf("Got: %s from %d\n", buf, n); | ||
2049 | if (!strncmp(buf, "+F:", 3)) { | ||
2050 | int alg; | ||
2051 | int j; | ||
2052 | |||
2053 | p = buf + 3; | ||
2054 | alg = strtonum(sstrsep(&p, sep), | ||
2055 | 0, ALGOR_NUM - 1, &errstr); | ||
2056 | sstrsep(&p, sep); | ||
2057 | for (j = 0; j < SIZE_NUM; ++j) | ||
2058 | results[alg][j] += atof(sstrsep(&p, sep)); | ||
2059 | } else if (!strncmp(buf, "+F2:", 4)) { | ||
2060 | int k; | ||
2061 | double d; | ||
2062 | |||
2063 | p = buf + 4; | ||
2064 | k = strtonum(sstrsep(&p, sep), | ||
2065 | 0, ALGOR_NUM - 1, &errstr); | ||
2066 | sstrsep(&p, sep); | ||
2067 | |||
2068 | d = atof(sstrsep(&p, sep)); | ||
2069 | if (n) | ||
2070 | rsa_results[k][0] = 1 / (1 / rsa_results[k][0] + 1 / d); | ||
2071 | else | ||
2072 | rsa_results[k][0] = d; | ||
2073 | |||
2074 | d = atof(sstrsep(&p, sep)); | ||
2075 | if (n) | ||
2076 | rsa_results[k][1] = 1 / (1 / rsa_results[k][1] + 1 / d); | ||
2077 | else | ||
2078 | rsa_results[k][1] = d; | ||
2079 | } else if (!strncmp(buf, "+F2:", 4)) { | ||
2080 | int k; | ||
2081 | double d; | ||
2082 | |||
2083 | p = buf + 4; | ||
2084 | k = strtonum(sstrsep(&p, sep), | ||
2085 | 0, ALGOR_NUM - 1, &errstr); | ||
2086 | sstrsep(&p, sep); | ||
2087 | |||
2088 | d = atof(sstrsep(&p, sep)); | ||
2089 | if (n) | ||
2090 | rsa_results[k][0] = 1 / (1 / rsa_results[k][0] + 1 / d); | ||
2091 | else | ||
2092 | rsa_results[k][0] = d; | ||
2093 | |||
2094 | d = atof(sstrsep(&p, sep)); | ||
2095 | if (n) | ||
2096 | rsa_results[k][1] = 1 / (1 / rsa_results[k][1] + 1 / d); | ||
2097 | else | ||
2098 | rsa_results[k][1] = d; | ||
2099 | } | ||
2100 | else if (!strncmp(buf, "+F3:", 4)) { | ||
2101 | int k; | ||
2102 | double d; | ||
2103 | |||
2104 | p = buf + 4; | ||
2105 | k = strtonum(sstrsep(&p, sep), | ||
2106 | 0, ALGOR_NUM - 1, &errstr); | ||
2107 | sstrsep(&p, sep); | ||
2108 | |||
2109 | d = atof(sstrsep(&p, sep)); | ||
2110 | if (n) | ||
2111 | dsa_results[k][0] = 1 / (1 / dsa_results[k][0] + 1 / d); | ||
2112 | else | ||
2113 | dsa_results[k][0] = d; | ||
2114 | |||
2115 | d = atof(sstrsep(&p, sep)); | ||
2116 | if (n) | ||
2117 | dsa_results[k][1] = 1 / (1 / dsa_results[k][1] + 1 / d); | ||
2118 | else | ||
2119 | dsa_results[k][1] = d; | ||
2120 | } | ||
2121 | else if (!strncmp(buf, "+F4:", 4)) { | ||
2122 | int k; | ||
2123 | double d; | ||
2124 | |||
2125 | p = buf + 4; | ||
2126 | k = strtonum(sstrsep(&p, sep), | ||
2127 | 0, ALGOR_NUM - 1, &errstr); | ||
2128 | sstrsep(&p, sep); | ||
2129 | |||
2130 | d = atof(sstrsep(&p, sep)); | ||
2131 | if (n) | ||
2132 | ecdsa_results[k][0] = 1 / (1 / ecdsa_results[k][0] + 1 / d); | ||
2133 | else | ||
2134 | ecdsa_results[k][0] = d; | ||
2135 | |||
2136 | d = atof(sstrsep(&p, sep)); | ||
2137 | if (n) | ||
2138 | ecdsa_results[k][1] = 1 / (1 / ecdsa_results[k][1] + 1 / d); | ||
2139 | else | ||
2140 | ecdsa_results[k][1] = d; | ||
2141 | } | ||
2142 | |||
2143 | else if (!strncmp(buf, "+F5:", 4)) { | ||
2144 | int k; | ||
2145 | double d; | ||
2146 | |||
2147 | p = buf + 4; | ||
2148 | k = strtonum(sstrsep(&p, sep), | ||
2149 | 0, ALGOR_NUM - 1, &errstr); | ||
2150 | sstrsep(&p, sep); | ||
2151 | |||
2152 | d = atof(sstrsep(&p, sep)); | ||
2153 | if (n) | ||
2154 | ecdh_results[k][0] = 1 / (1 / ecdh_results[k][0] + 1 / d); | ||
2155 | else | ||
2156 | ecdh_results[k][0] = d; | ||
2157 | |||
2158 | } | ||
2159 | |||
2160 | else if (!strncmp(buf, "+H:", 3)) { | ||
2161 | } else | ||
2162 | fprintf(stderr, "Unknown type '%s' from child %d\n", buf, n); | ||
2163 | } | ||
2164 | |||
2165 | fclose(f); | ||
2166 | } | ||
2167 | free(fds); | ||
2168 | return 1; | ||
2169 | } | ||
2170 | #endif | ||
diff --git a/src/usr.bin/openssl/spkac.c b/src/usr.bin/openssl/spkac.c new file mode 100644 index 0000000000..266ed57662 --- /dev/null +++ b/src/usr.bin/openssl/spkac.c | |||
@@ -0,0 +1,284 @@ | |||
1 | /* $OpenBSD: spkac.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
2 | /* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL | ||
3 | * project 1999. Based on an original idea by Massimiliano Pala | ||
4 | * (madwolf@openca.org). | ||
5 | */ | ||
6 | /* ==================================================================== | ||
7 | * Copyright (c) 1999 The OpenSSL Project. All rights reserved. | ||
8 | * | ||
9 | * Redistribution and use in source and binary forms, with or without | ||
10 | * modification, are permitted provided that the following conditions | ||
11 | * are met: | ||
12 | * | ||
13 | * 1. Redistributions of source code must retain the above copyright | ||
14 | * notice, this list of conditions and the following disclaimer. | ||
15 | * | ||
16 | * 2. Redistributions in binary form must reproduce the above copyright | ||
17 | * notice, this list of conditions and the following disclaimer in | ||
18 | * the documentation and/or other materials provided with the | ||
19 | * distribution. | ||
20 | * | ||
21 | * 3. All advertising materials mentioning features or use of this | ||
22 | * software must display the following acknowledgment: | ||
23 | * "This product includes software developed by the OpenSSL Project | ||
24 | * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" | ||
25 | * | ||
26 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
27 | * endorse or promote products derived from this software without | ||
28 | * prior written permission. For written permission, please contact | ||
29 | * licensing@OpenSSL.org. | ||
30 | * | ||
31 | * 5. Products derived from this software may not be called "OpenSSL" | ||
32 | * nor may "OpenSSL" appear in their names without prior written | ||
33 | * permission of the OpenSSL Project. | ||
34 | * | ||
35 | * 6. Redistributions of any form whatsoever must retain the following | ||
36 | * acknowledgment: | ||
37 | * "This product includes software developed by the OpenSSL Project | ||
38 | * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" | ||
39 | * | ||
40 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
41 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
42 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
43 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
44 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
45 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
46 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
47 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
48 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
49 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
50 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
51 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
52 | * ==================================================================== | ||
53 | * | ||
54 | * This product includes cryptographic software written by Eric Young | ||
55 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
56 | * Hudson (tjh@cryptsoft.com). | ||
57 | * | ||
58 | */ | ||
59 | |||
60 | #include <stdio.h> | ||
61 | #include <stdlib.h> | ||
62 | #include <string.h> | ||
63 | #include <time.h> | ||
64 | |||
65 | #include "apps.h" | ||
66 | |||
67 | #include <openssl/bio.h> | ||
68 | #include <openssl/conf.h> | ||
69 | #include <openssl/err.h> | ||
70 | #include <openssl/evp.h> | ||
71 | #include <openssl/lhash.h> | ||
72 | #include <openssl/pem.h> | ||
73 | #include <openssl/x509.h> | ||
74 | |||
75 | /* -in arg - input file - default stdin | ||
76 | * -out arg - output file - default stdout | ||
77 | */ | ||
78 | |||
79 | int spkac_main(int, char **); | ||
80 | |||
81 | int | ||
82 | spkac_main(int argc, char **argv) | ||
83 | { | ||
84 | ENGINE *e = NULL; | ||
85 | int i, badops = 0, ret = 1; | ||
86 | BIO *in = NULL, *out = NULL; | ||
87 | int verify = 0, noout = 0, pubkey = 0; | ||
88 | char *infile = NULL, *outfile = NULL, *prog; | ||
89 | char *passargin = NULL, *passin = NULL; | ||
90 | const char *spkac = "SPKAC", *spksect = "default"; | ||
91 | char *spkstr = NULL; | ||
92 | char *challenge = NULL, *keyfile = NULL; | ||
93 | CONF *conf = NULL; | ||
94 | NETSCAPE_SPKI *spki = NULL; | ||
95 | EVP_PKEY *pkey = NULL; | ||
96 | #ifndef OPENSSL_NO_ENGINE | ||
97 | char *engine = NULL; | ||
98 | #endif | ||
99 | |||
100 | prog = argv[0]; | ||
101 | argc--; | ||
102 | argv++; | ||
103 | while (argc >= 1) { | ||
104 | if (strcmp(*argv, "-in") == 0) { | ||
105 | if (--argc < 1) | ||
106 | goto bad; | ||
107 | infile = *(++argv); | ||
108 | } else if (strcmp(*argv, "-out") == 0) { | ||
109 | if (--argc < 1) | ||
110 | goto bad; | ||
111 | outfile = *(++argv); | ||
112 | } else if (strcmp(*argv, "-passin") == 0) { | ||
113 | if (--argc < 1) | ||
114 | goto bad; | ||
115 | passargin = *(++argv); | ||
116 | } else if (strcmp(*argv, "-key") == 0) { | ||
117 | if (--argc < 1) | ||
118 | goto bad; | ||
119 | keyfile = *(++argv); | ||
120 | } else if (strcmp(*argv, "-challenge") == 0) { | ||
121 | if (--argc < 1) | ||
122 | goto bad; | ||
123 | challenge = *(++argv); | ||
124 | } else if (strcmp(*argv, "-spkac") == 0) { | ||
125 | if (--argc < 1) | ||
126 | goto bad; | ||
127 | spkac = *(++argv); | ||
128 | } else if (strcmp(*argv, "-spksect") == 0) { | ||
129 | if (--argc < 1) | ||
130 | goto bad; | ||
131 | spksect = *(++argv); | ||
132 | } | ||
133 | #ifndef OPENSSL_NO_ENGINE | ||
134 | else if (strcmp(*argv, "-engine") == 0) { | ||
135 | if (--argc < 1) | ||
136 | goto bad; | ||
137 | engine = *(++argv); | ||
138 | } | ||
139 | #endif | ||
140 | else if (strcmp(*argv, "-noout") == 0) | ||
141 | noout = 1; | ||
142 | else if (strcmp(*argv, "-pubkey") == 0) | ||
143 | pubkey = 1; | ||
144 | else if (strcmp(*argv, "-verify") == 0) | ||
145 | verify = 1; | ||
146 | else | ||
147 | badops = 1; | ||
148 | argc--; | ||
149 | argv++; | ||
150 | } | ||
151 | |||
152 | if (badops) { | ||
153 | bad: | ||
154 | BIO_printf(bio_err, "%s [options]\n", prog); | ||
155 | BIO_printf(bio_err, "where options are\n"); | ||
156 | BIO_printf(bio_err, " -in arg input file\n"); | ||
157 | BIO_printf(bio_err, " -out arg output file\n"); | ||
158 | BIO_printf(bio_err, " -key arg create SPKAC using private key\n"); | ||
159 | BIO_printf(bio_err, " -passin arg input file pass phrase source\n"); | ||
160 | BIO_printf(bio_err, " -challenge arg challenge string\n"); | ||
161 | BIO_printf(bio_err, " -spkac arg alternative SPKAC name\n"); | ||
162 | BIO_printf(bio_err, " -noout don't print SPKAC\n"); | ||
163 | BIO_printf(bio_err, " -pubkey output public key\n"); | ||
164 | BIO_printf(bio_err, " -verify verify SPKAC signature\n"); | ||
165 | #ifndef OPENSSL_NO_ENGINE | ||
166 | BIO_printf(bio_err, " -engine e use engine e, possibly a hardware device.\n"); | ||
167 | #endif | ||
168 | goto end; | ||
169 | } | ||
170 | ERR_load_crypto_strings(); | ||
171 | if (!app_passwd(bio_err, passargin, NULL, &passin, NULL)) { | ||
172 | BIO_printf(bio_err, "Error getting password\n"); | ||
173 | goto end; | ||
174 | } | ||
175 | #ifndef OPENSSL_NO_ENGINE | ||
176 | e = setup_engine(bio_err, engine, 0); | ||
177 | #endif | ||
178 | |||
179 | if (keyfile) { | ||
180 | pkey = load_key(bio_err, | ||
181 | strcmp(keyfile, "-") ? keyfile : NULL, | ||
182 | FORMAT_PEM, 1, passin, e, "private key"); | ||
183 | if (!pkey) { | ||
184 | goto end; | ||
185 | } | ||
186 | spki = NETSCAPE_SPKI_new(); | ||
187 | if (challenge) | ||
188 | ASN1_STRING_set(spki->spkac->challenge, | ||
189 | challenge, (int) strlen(challenge)); | ||
190 | NETSCAPE_SPKI_set_pubkey(spki, pkey); | ||
191 | NETSCAPE_SPKI_sign(spki, pkey, EVP_md5()); | ||
192 | spkstr = NETSCAPE_SPKI_b64_encode(spki); | ||
193 | if (spkstr == NULL) { | ||
194 | BIO_printf(bio_err, "Error encoding SPKAC\n"); | ||
195 | ERR_print_errors(bio_err); | ||
196 | goto end; | ||
197 | } | ||
198 | |||
199 | if (outfile) | ||
200 | out = BIO_new_file(outfile, "w"); | ||
201 | else | ||
202 | out = BIO_new_fp(stdout, BIO_NOCLOSE); | ||
203 | |||
204 | if (!out) { | ||
205 | BIO_printf(bio_err, "Error opening output file\n"); | ||
206 | ERR_print_errors(bio_err); | ||
207 | } else { | ||
208 | BIO_printf(out, "SPKAC=%s\n", spkstr); | ||
209 | ret = 0; | ||
210 | } | ||
211 | free(spkstr); | ||
212 | goto end; | ||
213 | } | ||
214 | if (infile) | ||
215 | in = BIO_new_file(infile, "r"); | ||
216 | else | ||
217 | in = BIO_new_fp(stdin, BIO_NOCLOSE); | ||
218 | |||
219 | if (!in) { | ||
220 | BIO_printf(bio_err, "Error opening input file\n"); | ||
221 | ERR_print_errors(bio_err); | ||
222 | goto end; | ||
223 | } | ||
224 | conf = NCONF_new(NULL); | ||
225 | i = NCONF_load_bio(conf, in, NULL); | ||
226 | |||
227 | if (!i) { | ||
228 | BIO_printf(bio_err, "Error parsing config file\n"); | ||
229 | ERR_print_errors(bio_err); | ||
230 | goto end; | ||
231 | } | ||
232 | spkstr = NCONF_get_string(conf, spksect, spkac); | ||
233 | |||
234 | if (!spkstr) { | ||
235 | BIO_printf(bio_err, "Can't find SPKAC called \"%s\"\n", spkac); | ||
236 | ERR_print_errors(bio_err); | ||
237 | goto end; | ||
238 | } | ||
239 | spki = NETSCAPE_SPKI_b64_decode(spkstr, -1); | ||
240 | |||
241 | if (!spki) { | ||
242 | BIO_printf(bio_err, "Error loading SPKAC\n"); | ||
243 | ERR_print_errors(bio_err); | ||
244 | goto end; | ||
245 | } | ||
246 | if (outfile) | ||
247 | out = BIO_new_file(outfile, "w"); | ||
248 | else { | ||
249 | out = BIO_new_fp(stdout, BIO_NOCLOSE); | ||
250 | } | ||
251 | |||
252 | if (!out) { | ||
253 | BIO_printf(bio_err, "Error opening output file\n"); | ||
254 | ERR_print_errors(bio_err); | ||
255 | goto end; | ||
256 | } | ||
257 | if (!noout) | ||
258 | NETSCAPE_SPKI_print(out, spki); | ||
259 | pkey = NETSCAPE_SPKI_get_pubkey(spki); | ||
260 | if (verify) { | ||
261 | i = NETSCAPE_SPKI_verify(spki, pkey); | ||
262 | if (i > 0) | ||
263 | BIO_printf(bio_err, "Signature OK\n"); | ||
264 | else { | ||
265 | BIO_printf(bio_err, "Signature Failure\n"); | ||
266 | ERR_print_errors(bio_err); | ||
267 | goto end; | ||
268 | } | ||
269 | } | ||
270 | if (pubkey) | ||
271 | PEM_write_bio_PUBKEY(out, pkey); | ||
272 | |||
273 | ret = 0; | ||
274 | |||
275 | end: | ||
276 | NCONF_free(conf); | ||
277 | NETSCAPE_SPKI_free(spki); | ||
278 | BIO_free(in); | ||
279 | BIO_free_all(out); | ||
280 | EVP_PKEY_free(pkey); | ||
281 | free(passin); | ||
282 | |||
283 | return (ret); | ||
284 | } | ||
diff --git a/src/usr.bin/openssl/testdsa.h b/src/usr.bin/openssl/testdsa.h new file mode 100644 index 0000000000..1bbb09ca70 --- /dev/null +++ b/src/usr.bin/openssl/testdsa.h | |||
@@ -0,0 +1,221 @@ | |||
1 | /* $OpenBSD: testdsa.h,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
2 | |||
3 | DSA *get_dsa512(void); | ||
4 | DSA *get_dsa1024(void); | ||
5 | DSA *get_dsa2048(void); | ||
6 | |||
7 | static unsigned char dsa512_priv[] = { | ||
8 | 0x65, 0xe5, 0xc7, 0x38, 0x60, 0x24, 0xb5, 0x89, 0xd4, 0x9c, 0xeb, 0x4c, | ||
9 | 0x9c, 0x1d, 0x7a, 0x22, 0xbd, 0xd1, 0xc2, 0xd2, | ||
10 | }; | ||
11 | static unsigned char dsa512_pub[] = { | ||
12 | 0x00, 0x95, 0xa7, 0x0d, 0xec, 0x93, 0x68, 0xba, 0x5f, 0xf7, 0x5f, 0x07, | ||
13 | 0xf2, 0x3b, 0xad, 0x6b, 0x01, 0xdc, 0xbe, 0xec, 0xde, 0x04, 0x7a, 0x3a, | ||
14 | 0x27, 0xb3, 0xec, 0x49, 0xfd, 0x08, 0x43, 0x3d, 0x7e, 0xa8, 0x2c, 0x5e, | ||
15 | 0x7b, 0xbb, 0xfc, 0xf4, 0x6e, 0xeb, 0x6c, 0xb0, 0x6e, 0xf8, 0x02, 0x12, | ||
16 | 0x8c, 0x38, 0x5d, 0x83, 0x56, 0x7d, 0xee, 0x53, 0x05, 0x3e, 0x24, 0x84, | ||
17 | 0xbe, 0xba, 0x0a, 0x6b, 0xc8, | ||
18 | }; | ||
19 | static unsigned char dsa512_p[] = { | ||
20 | 0x9D, 0x1B, 0x69, 0x8E, 0x26, 0xDB, 0xF2, 0x2B, 0x11, 0x70, 0x19, 0x86, | ||
21 | 0xF6, 0x19, 0xC8, 0xF8, 0x19, 0xF2, 0x18, 0x53, 0x94, 0x46, 0x06, 0xD0, | ||
22 | 0x62, 0x50, 0x33, 0x4B, 0x02, 0x3C, 0x52, 0x30, 0x03, 0x8B, 0x3B, 0xF9, | ||
23 | 0x5F, 0xD1, 0x24, 0x06, 0x4F, 0x7B, 0x4C, 0xBA, 0xAA, 0x40, 0x9B, 0xFD, | ||
24 | 0x96, 0xE4, 0x37, 0x33, 0xBB, 0x2D, 0x5A, 0xD7, 0x5A, 0x11, 0x40, 0x66, | ||
25 | 0xA2, 0x76, 0x7D, 0x31, | ||
26 | }; | ||
27 | static unsigned char dsa512_q[] = { | ||
28 | 0xFB, 0x53, 0xEF, 0x50, 0xB4, 0x40, 0x92, 0x31, 0x56, 0x86, 0x53, 0x7A, | ||
29 | 0xE8, 0x8B, 0x22, 0x9A, 0x49, 0xFB, 0x71, 0x8F, | ||
30 | }; | ||
31 | static unsigned char dsa512_g[] = { | ||
32 | 0x83, 0x3E, 0x88, 0xE5, 0xC5, 0x89, 0x73, 0xCE, 0x3B, 0x6C, 0x01, 0x49, | ||
33 | 0xBF, 0xB3, 0xC7, 0x9F, 0x0A, 0xEA, 0x44, 0x91, 0xE5, 0x30, 0xAA, 0xD9, | ||
34 | 0xBE, 0x5B, 0x5F, 0xB7, 0x10, 0xD7, 0x89, 0xB7, 0x8E, 0x74, 0xFB, 0xCF, | ||
35 | 0x29, 0x1E, 0xEB, 0xA8, 0x2C, 0x54, 0x51, 0xB8, 0x10, 0xDE, 0xA0, 0xCE, | ||
36 | 0x2F, 0xCC, 0x24, 0x6B, 0x90, 0x77, 0xDE, 0xA2, 0x68, 0xA6, 0x52, 0x12, | ||
37 | 0xA2, 0x03, 0x9D, 0x20, | ||
38 | }; | ||
39 | |||
40 | DSA * | ||
41 | get_dsa512() | ||
42 | { | ||
43 | DSA *dsa; | ||
44 | |||
45 | if ((dsa = DSA_new()) == NULL) | ||
46 | return (NULL); | ||
47 | dsa->priv_key = BN_bin2bn(dsa512_priv, sizeof(dsa512_priv), NULL); | ||
48 | dsa->pub_key = BN_bin2bn(dsa512_pub, sizeof(dsa512_pub), NULL); | ||
49 | dsa->p = BN_bin2bn(dsa512_p, sizeof(dsa512_p), NULL); | ||
50 | dsa->q = BN_bin2bn(dsa512_q, sizeof(dsa512_q), NULL); | ||
51 | dsa->g = BN_bin2bn(dsa512_g, sizeof(dsa512_g), NULL); | ||
52 | if ((dsa->priv_key == NULL) || (dsa->pub_key == NULL) || | ||
53 | (dsa->p == NULL) || (dsa->q == NULL) || (dsa->g == NULL)) | ||
54 | return (NULL); | ||
55 | return (dsa); | ||
56 | } | ||
57 | |||
58 | static unsigned char dsa1024_priv[] = { | ||
59 | 0x7d, 0x21, 0xda, 0xbb, 0x62, 0x15, 0x47, 0x36, 0x07, 0x67, 0x12, 0xe8, | ||
60 | 0x8c, 0xaa, 0x1c, 0xcd, 0x38, 0x12, 0x61, 0x18, | ||
61 | }; | ||
62 | static unsigned char dsa1024_pub[] = { | ||
63 | 0x3c, 0x4e, 0x9c, 0x2a, 0x7f, 0x16, 0xc1, 0x25, 0xeb, 0xac, 0x78, 0x63, | ||
64 | 0x90, 0x14, 0x8c, 0x8b, 0xf4, 0x68, 0x43, 0x3c, 0x2d, 0xee, 0x65, 0x50, | ||
65 | 0x7d, 0x9c, 0x8f, 0x8c, 0x8a, 0x51, 0xd6, 0x11, 0x2b, 0x99, 0xaf, 0x1e, | ||
66 | 0x90, 0x97, 0xb5, 0xd3, 0xa6, 0x20, 0x25, 0xd6, 0xfe, 0x43, 0x02, 0xd5, | ||
67 | 0x91, 0x7d, 0xa7, 0x8c, 0xdb, 0xc9, 0x85, 0xa3, 0x36, 0x48, 0xf7, 0x68, | ||
68 | 0xaa, 0x60, 0xb1, 0xf7, 0x05, 0x68, 0x3a, 0xa3, 0x3f, 0xd3, 0x19, 0x82, | ||
69 | 0xd8, 0x82, 0x7a, 0x77, 0xfb, 0xef, 0xf4, 0x15, 0x0a, 0xeb, 0x06, 0x04, | ||
70 | 0x7f, 0x53, 0x07, 0x0c, 0xbc, 0xcb, 0x2d, 0x83, 0xdb, 0x3e, 0xd1, 0x28, | ||
71 | 0xa5, 0xa1, 0x31, 0xe0, 0x67, 0xfa, 0x50, 0xde, 0x9b, 0x07, 0x83, 0x7e, | ||
72 | 0x2c, 0x0b, 0xc3, 0x13, 0x50, 0x61, 0xe5, 0xad, 0xbd, 0x36, 0xb8, 0x97, | ||
73 | 0x4e, 0x40, 0x7d, 0xe8, 0x83, 0x0d, 0xbc, 0x4b | ||
74 | }; | ||
75 | static unsigned char dsa1024_p[] = { | ||
76 | 0xA7, 0x3F, 0x6E, 0x85, 0xBF, 0x41, 0x6A, 0x29, 0x7D, 0xF0, 0x9F, 0x47, | ||
77 | 0x19, 0x30, 0x90, 0x9A, 0x09, 0x1D, 0xDA, 0x6A, 0x33, 0x1E, 0xC5, 0x3D, | ||
78 | 0x86, 0x96, 0xB3, 0x15, 0xE0, 0x53, 0x2E, 0x8F, 0xE0, 0x59, 0x82, 0x73, | ||
79 | 0x90, 0x3E, 0x75, 0x31, 0x99, 0x47, 0x7A, 0x52, 0xFB, 0x85, 0xE4, 0xD9, | ||
80 | 0xA6, 0x7B, 0x38, 0x9B, 0x68, 0x8A, 0x84, 0x9B, 0x87, 0xC6, 0x1E, 0xB5, | ||
81 | 0x7E, 0x86, 0x4B, 0x53, 0x5B, 0x59, 0xCF, 0x71, 0x65, 0x19, 0x88, 0x6E, | ||
82 | 0xCE, 0x66, 0xAE, 0x6B, 0x88, 0x36, 0xFB, 0xEC, 0x28, 0xDC, 0xC2, 0xD7, | ||
83 | 0xA5, 0xBB, 0xE5, 0x2C, 0x39, 0x26, 0x4B, 0xDA, 0x9A, 0x70, 0x18, 0x95, | ||
84 | 0x37, 0x95, 0x10, 0x56, 0x23, 0xF6, 0x15, 0xED, 0xBA, 0x04, 0x5E, 0xDE, | ||
85 | 0x39, 0x4F, 0xFD, 0xB7, 0x43, 0x1F, 0xB5, 0xA4, 0x65, 0x6F, 0xCD, 0x80, | ||
86 | 0x11, 0xE4, 0x70, 0x95, 0x5B, 0x50, 0xCD, 0x49, | ||
87 | }; | ||
88 | static unsigned char dsa1024_q[] = { | ||
89 | 0xF7, 0x07, 0x31, 0xED, 0xFA, 0x6C, 0x06, 0x03, 0xD5, 0x85, 0x8A, 0x1C, | ||
90 | 0xAC, 0x9C, 0x65, 0xE7, 0x50, 0x66, 0x65, 0x6F, | ||
91 | }; | ||
92 | static unsigned char dsa1024_g[] = { | ||
93 | 0x4D, 0xDF, 0x4C, 0x03, 0xA6, 0x91, 0x8A, 0xF5, 0x19, 0x6F, 0x50, 0x46, | ||
94 | 0x25, 0x99, 0xE5, 0x68, 0x6F, 0x30, 0xE3, 0x69, 0xE1, 0xE5, 0xB3, 0x5D, | ||
95 | 0x98, 0xBB, 0x28, 0x86, 0x48, 0xFC, 0xDE, 0x99, 0x04, 0x3F, 0x5F, 0x88, | ||
96 | 0x0C, 0x9C, 0x73, 0x24, 0x0D, 0x20, 0x5D, 0xB9, 0x2A, 0x9A, 0x3F, 0x18, | ||
97 | 0x96, 0x27, 0xE4, 0x62, 0x87, 0xC1, 0x7B, 0x74, 0x62, 0x53, 0xFC, 0x61, | ||
98 | 0x27, 0xA8, 0x7A, 0x91, 0x09, 0x9D, 0xB6, 0xF1, 0x4D, 0x9C, 0x54, 0x0F, | ||
99 | 0x58, 0x06, 0xEE, 0x49, 0x74, 0x07, 0xCE, 0x55, 0x7E, 0x23, 0xCE, 0x16, | ||
100 | 0xF6, 0xCA, 0xDC, 0x5A, 0x61, 0x01, 0x7E, 0xC9, 0x71, 0xB5, 0x4D, 0xF6, | ||
101 | 0xDC, 0x34, 0x29, 0x87, 0x68, 0xF6, 0x5E, 0x20, 0x93, 0xB3, 0xDB, 0xF5, | ||
102 | 0xE4, 0x09, 0x6C, 0x41, 0x17, 0x95, 0x92, 0xEB, 0x01, 0xB5, 0x73, 0xA5, | ||
103 | 0x6A, 0x7E, 0xD8, 0x32, 0xED, 0x0E, 0x02, 0xB8, | ||
104 | }; | ||
105 | |||
106 | DSA * | ||
107 | get_dsa1024() | ||
108 | { | ||
109 | DSA *dsa; | ||
110 | |||
111 | if ((dsa = DSA_new()) == NULL) | ||
112 | return (NULL); | ||
113 | dsa->priv_key = BN_bin2bn(dsa1024_priv, sizeof(dsa1024_priv), NULL); | ||
114 | dsa->pub_key = BN_bin2bn(dsa1024_pub, sizeof(dsa1024_pub), NULL); | ||
115 | dsa->p = BN_bin2bn(dsa1024_p, sizeof(dsa1024_p), NULL); | ||
116 | dsa->q = BN_bin2bn(dsa1024_q, sizeof(dsa1024_q), NULL); | ||
117 | dsa->g = BN_bin2bn(dsa1024_g, sizeof(dsa1024_g), NULL); | ||
118 | if ((dsa->priv_key == NULL) || (dsa->pub_key == NULL) || | ||
119 | (dsa->p == NULL) || (dsa->q == NULL) || (dsa->g == NULL)) | ||
120 | return (NULL); | ||
121 | return (dsa); | ||
122 | } | ||
123 | |||
124 | static unsigned char dsa2048_priv[] = { | ||
125 | 0x32, 0x67, 0x92, 0xf6, 0xc4, 0xe2, 0xe2, 0xe8, 0xa0, 0x8b, 0x6b, 0x45, | ||
126 | 0x0c, 0x8a, 0x76, 0xb0, 0xee, 0xcf, 0x91, 0xa7, | ||
127 | }; | ||
128 | static unsigned char dsa2048_pub[] = { | ||
129 | 0x17, 0x8f, 0xa8, 0x11, 0x84, 0x92, 0xec, 0x83, 0x47, 0xc7, 0x6a, 0xb0, | ||
130 | 0x92, 0xaf, 0x5a, 0x20, 0x37, 0xa3, 0x64, 0x79, 0xd2, 0xd0, 0x3d, 0xcd, | ||
131 | 0xe0, 0x61, 0x88, 0x88, 0x21, 0xcc, 0x74, 0x5d, 0xce, 0x4c, 0x51, 0x47, | ||
132 | 0xf0, 0xc5, 0x5c, 0x4c, 0x82, 0x7a, 0xaf, 0x72, 0xad, 0xb9, 0xe0, 0x53, | ||
133 | 0xf2, 0x78, 0xb7, 0xf0, 0xb5, 0x48, 0x7f, 0x8a, 0x3a, 0x18, 0xd1, 0x9f, | ||
134 | 0x8b, 0x7d, 0xa5, 0x47, 0xb7, 0x95, 0xab, 0x98, 0xf8, 0x7b, 0x74, 0x50, | ||
135 | 0x56, 0x8e, 0x57, 0xf0, 0xee, 0xf5, 0xb7, 0xba, 0xab, 0x85, 0x86, 0xf9, | ||
136 | 0x2b, 0xef, 0x41, 0x56, 0xa0, 0xa4, 0x9f, 0xb7, 0x38, 0x00, 0x46, 0x0a, | ||
137 | 0xa6, 0xf1, 0xfc, 0x1f, 0xd8, 0x4e, 0x85, 0x44, 0x92, 0x43, 0x21, 0x5d, | ||
138 | 0x6e, 0xcc, 0xc2, 0xcb, 0x26, 0x31, 0x0d, 0x21, 0xc4, 0xbd, 0x8d, 0x24, | ||
139 | 0xbc, 0xd9, 0x18, 0x19, 0xd7, 0xdc, 0xf1, 0xe7, 0x93, 0x50, 0x48, 0x03, | ||
140 | 0x2c, 0xae, 0x2e, 0xe7, 0x49, 0x88, 0x5f, 0x93, 0x57, 0x27, 0x99, 0x36, | ||
141 | 0xb4, 0x20, 0xab, 0xfc, 0xa7, 0x2b, 0xf2, 0xd9, 0x98, 0xd7, 0xd4, 0x34, | ||
142 | 0x9d, 0x96, 0x50, 0x58, 0x9a, 0xea, 0x54, 0xf3, 0xee, 0xf5, 0x63, 0x14, | ||
143 | 0xee, 0x85, 0x83, 0x74, 0x76, 0xe1, 0x52, 0x95, 0xc3, 0xf7, 0xeb, 0x04, | ||
144 | 0x04, 0x7b, 0xa7, 0x28, 0x1b, 0xcc, 0xea, 0x4a, 0x4e, 0x84, 0xda, 0xd8, | ||
145 | 0x9c, 0x79, 0xd8, 0x9b, 0x66, 0x89, 0x2f, 0xcf, 0xac, 0xd7, 0x79, 0xf9, | ||
146 | 0xa9, 0xd8, 0x45, 0x13, 0x78, 0xb9, 0x00, 0x14, 0xc9, 0x7e, 0x22, 0x51, | ||
147 | 0x86, 0x67, 0xb0, 0x9f, 0x26, 0x11, 0x23, 0xc8, 0x38, 0xd7, 0x70, 0x1d, | ||
148 | 0x15, 0x8e, 0x4d, 0x4f, 0x95, 0x97, 0x40, 0xa1, 0xc2, 0x7e, 0x01, 0x18, | ||
149 | 0x72, 0xf4, 0x10, 0xe6, 0x8d, 0x52, 0x16, 0x7f, 0xf2, 0xc9, 0xf8, 0x33, | ||
150 | 0x8b, 0x33, 0xb7, 0xce, | ||
151 | }; | ||
152 | static unsigned char dsa2048_p[] = { | ||
153 | 0xA0, 0x25, 0xFA, 0xAD, 0xF4, 0x8E, 0xB9, 0xE5, 0x99, 0xF3, 0x5D, 0x6F, | ||
154 | 0x4F, 0x83, 0x34, 0xE2, 0x7E, 0xCF, 0x6F, 0xBF, 0x30, 0xAF, 0x6F, 0x81, | ||
155 | 0xEB, 0xF8, 0xC4, 0x13, 0xD9, 0xA0, 0x5D, 0x8B, 0x5C, 0x8E, 0xDC, 0xC2, | ||
156 | 0x1D, 0x0B, 0x41, 0x32, 0xB0, 0x1F, 0xFE, 0xEF, 0x0C, 0xC2, 0xA2, 0x7E, | ||
157 | 0x68, 0x5C, 0x28, 0x21, 0xE9, 0xF5, 0xB1, 0x58, 0x12, 0x63, 0x4C, 0x19, | ||
158 | 0x4E, 0xFF, 0x02, 0x4B, 0x92, 0xED, 0xD2, 0x07, 0x11, 0x4D, 0x8C, 0x58, | ||
159 | 0x16, 0x5C, 0x55, 0x8E, 0xAD, 0xA3, 0x67, 0x7D, 0xB9, 0x86, 0x6E, 0x0B, | ||
160 | 0xE6, 0x54, 0x6F, 0x40, 0xAE, 0x0E, 0x67, 0x4C, 0xF9, 0x12, 0x5B, 0x3C, | ||
161 | 0x08, 0x7A, 0xF7, 0xFC, 0x67, 0x86, 0x69, 0xE7, 0x0A, 0x94, 0x40, 0xBF, | ||
162 | 0x8B, 0x76, 0xFE, 0x26, 0xD1, 0xF2, 0xA1, 0x1A, 0x84, 0xA1, 0x43, 0x56, | ||
163 | 0x28, 0xBC, 0x9A, 0x5F, 0xD7, 0x3B, 0x69, 0x89, 0x8A, 0x36, 0x2C, 0x51, | ||
164 | 0xDF, 0x12, 0x77, 0x2F, 0x57, 0x7B, 0xA0, 0xAA, 0xDD, 0x7F, 0xA1, 0x62, | ||
165 | 0x3B, 0x40, 0x7B, 0x68, 0x1A, 0x8F, 0x0D, 0x38, 0xBB, 0x21, 0x5D, 0x18, | ||
166 | 0xFC, 0x0F, 0x46, 0xF7, 0xA3, 0xB0, 0x1D, 0x23, 0xC3, 0xD2, 0xC7, 0x72, | ||
167 | 0x51, 0x18, 0xDF, 0x46, 0x95, 0x79, 0xD9, 0xBD, 0xB5, 0x19, 0x02, 0x2C, | ||
168 | 0x87, 0xDC, 0xE7, 0x57, 0x82, 0x7E, 0xF1, 0x8B, 0x06, 0x3D, 0x00, 0xA5, | ||
169 | 0x7B, 0x6B, 0x26, 0x27, 0x91, 0x0F, 0x6A, 0x77, 0xE4, 0xD5, 0x04, 0xE4, | ||
170 | 0x12, 0x2C, 0x42, 0xFF, 0xD2, 0x88, 0xBB, 0xD3, 0x92, 0xA0, 0xF9, 0xC8, | ||
171 | 0x51, 0x64, 0x14, 0x5C, 0xD8, 0xF9, 0x6C, 0x47, 0x82, 0xB4, 0x1C, 0x7F, | ||
172 | 0x09, 0xB8, 0xF0, 0x25, 0x83, 0x1D, 0x3F, 0x3F, 0x05, 0xB3, 0x21, 0x0A, | ||
173 | 0x5D, 0xA7, 0xD8, 0x54, 0xC3, 0x65, 0x7D, 0xC3, 0xB0, 0x1D, 0xBF, 0xAE, | ||
174 | 0xF8, 0x68, 0xCF, 0x9B, | ||
175 | }; | ||
176 | static unsigned char dsa2048_q[] = { | ||
177 | 0x97, 0xE7, 0x33, 0x4D, 0xD3, 0x94, 0x3E, 0x0B, 0xDB, 0x62, 0x74, 0xC6, | ||
178 | 0xA1, 0x08, 0xDD, 0x19, 0xA3, 0x75, 0x17, 0x1B, | ||
179 | }; | ||
180 | static unsigned char dsa2048_g[] = { | ||
181 | 0x2C, 0x78, 0x16, 0x59, 0x34, 0x63, 0xF4, 0xF3, 0x92, 0xFC, 0xB5, 0xA5, | ||
182 | 0x4F, 0x13, 0xDE, 0x2F, 0x1C, 0xA4, 0x3C, 0xAE, 0xAD, 0x38, 0x3F, 0x7E, | ||
183 | 0x90, 0xBF, 0x96, 0xA6, 0xAE, 0x25, 0x90, 0x72, 0xF5, 0x8E, 0x80, 0x0C, | ||
184 | 0x39, 0x1C, 0xD9, 0xEC, 0xBA, 0x90, 0x5B, 0x3A, 0xE8, 0x58, 0x6C, 0x9E, | ||
185 | 0x30, 0x42, 0x37, 0x02, 0x31, 0x82, 0xBC, 0x6A, 0xDF, 0x6A, 0x09, 0x29, | ||
186 | 0xE3, 0xC0, 0x46, 0xD1, 0xCB, 0x85, 0xEC, 0x0C, 0x30, 0x5E, 0xEA, 0xC8, | ||
187 | 0x39, 0x8E, 0x22, 0x9F, 0x22, 0x10, 0xD2, 0x34, 0x61, 0x68, 0x37, 0x3D, | ||
188 | 0x2E, 0x4A, 0x5B, 0x9A, 0xF5, 0xC1, 0x48, 0xC6, 0xF6, 0xDC, 0x63, 0x1A, | ||
189 | 0xD3, 0x96, 0x64, 0xBA, 0x34, 0xC9, 0xD1, 0xA0, 0xD1, 0xAE, 0x6C, 0x2F, | ||
190 | 0x48, 0x17, 0x93, 0x14, 0x43, 0xED, 0xF0, 0x21, 0x30, 0x19, 0xC3, 0x1B, | ||
191 | 0x5F, 0xDE, 0xA3, 0xF0, 0x70, 0x78, 0x18, 0xE1, 0xA8, 0xE4, 0xEE, 0x2E, | ||
192 | 0x00, 0xA5, 0xE4, 0xB3, 0x17, 0xC8, 0x0C, 0x7D, 0x6E, 0x42, 0xDC, 0xB7, | ||
193 | 0x46, 0x00, 0x36, 0x4D, 0xD4, 0x46, 0xAA, 0x3D, 0x3C, 0x46, 0x89, 0x40, | ||
194 | 0xBF, 0x1D, 0x84, 0x77, 0x0A, 0x75, 0xF3, 0x87, 0x1D, 0x08, 0x4C, 0xA6, | ||
195 | 0xD1, 0xA9, 0x1C, 0x1E, 0x12, 0x1E, 0xE1, 0xC7, 0x30, 0x28, 0x76, 0xA5, | ||
196 | 0x7F, 0x6C, 0x85, 0x96, 0x2B, 0x6F, 0xDB, 0x80, 0x66, 0x26, 0xAE, 0xF5, | ||
197 | 0x93, 0xC7, 0x8E, 0xAE, 0x9A, 0xED, 0xE4, 0xCA, 0x04, 0xEA, 0x3B, 0x72, | ||
198 | 0xEF, 0xDC, 0x87, 0xED, 0x0D, 0xA5, 0x4C, 0x4A, 0xDD, 0x71, 0x22, 0x64, | ||
199 | 0x59, 0x69, 0x4E, 0x8E, 0xBF, 0x43, 0xDC, 0xAB, 0x8E, 0x66, 0xBB, 0x01, | ||
200 | 0xB6, 0xF4, 0xE7, 0xFD, 0xD2, 0xAD, 0x9F, 0x36, 0xC1, 0xA0, 0x29, 0x99, | ||
201 | 0xD1, 0x96, 0x70, 0x59, 0x06, 0x78, 0x35, 0xBD, 0x65, 0x55, 0x52, 0x9E, | ||
202 | 0xF8, 0xB2, 0xE5, 0x38, | ||
203 | }; | ||
204 | |||
205 | DSA * | ||
206 | get_dsa2048() | ||
207 | { | ||
208 | DSA *dsa; | ||
209 | |||
210 | if ((dsa = DSA_new()) == NULL) | ||
211 | return (NULL); | ||
212 | dsa->priv_key = BN_bin2bn(dsa2048_priv, sizeof(dsa2048_priv), NULL); | ||
213 | dsa->pub_key = BN_bin2bn(dsa2048_pub, sizeof(dsa2048_pub), NULL); | ||
214 | dsa->p = BN_bin2bn(dsa2048_p, sizeof(dsa2048_p), NULL); | ||
215 | dsa->q = BN_bin2bn(dsa2048_q, sizeof(dsa2048_q), NULL); | ||
216 | dsa->g = BN_bin2bn(dsa2048_g, sizeof(dsa2048_g), NULL); | ||
217 | if ((dsa->priv_key == NULL) || (dsa->pub_key == NULL) || | ||
218 | (dsa->p == NULL) || (dsa->q == NULL) || (dsa->g == NULL)) | ||
219 | return (NULL); | ||
220 | return (dsa); | ||
221 | } | ||
diff --git a/src/usr.bin/openssl/testrsa.h b/src/usr.bin/openssl/testrsa.h new file mode 100644 index 0000000000..789afa9621 --- /dev/null +++ b/src/usr.bin/openssl/testrsa.h | |||
@@ -0,0 +1,517 @@ | |||
1 | /* $OpenBSD: testrsa.h,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
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 | static unsigned char test512[] = { | ||
60 | 0x30, 0x82, 0x01, 0x3a, 0x02, 0x01, 0x00, 0x02, 0x41, 0x00, | ||
61 | 0xd6, 0x33, 0xb9, 0xc8, 0xfb, 0x4f, 0x3c, 0x7d, 0xc0, 0x01, | ||
62 | 0x86, 0xd0, 0xe7, 0xa0, 0x55, 0xf2, 0x95, 0x93, 0xcc, 0x4f, | ||
63 | 0xb7, 0x5b, 0x67, 0x5b, 0x94, 0x68, 0xc9, 0x34, 0x15, 0xde, | ||
64 | 0xa5, 0x2e, 0x1c, 0x33, 0xc2, 0x6e, 0xfc, 0x34, 0x5e, 0x71, | ||
65 | 0x13, 0xb7, 0xd6, 0xee, 0xd8, 0xa5, 0x65, 0x05, 0x72, 0x87, | ||
66 | 0xa8, 0xb0, 0x77, 0xfe, 0x57, 0xf5, 0xfc, 0x5f, 0x55, 0x83, | ||
67 | 0x87, 0xdd, 0x57, 0x49, 0x02, 0x03, 0x01, 0x00, 0x01, 0x02, | ||
68 | 0x41, 0x00, 0xa7, 0xf7, 0x91, 0xc5, 0x0f, 0x84, 0x57, 0xdc, | ||
69 | 0x07, 0xf7, 0x6a, 0x7f, 0x60, 0x52, 0xb3, 0x72, 0xf1, 0x66, | ||
70 | 0x1f, 0x7d, 0x97, 0x3b, 0x9e, 0xb6, 0x0a, 0x8f, 0x8c, 0xcf, | ||
71 | 0x42, 0x23, 0x00, 0x04, 0xd4, 0x28, 0x0e, 0x1c, 0x90, 0xc4, | ||
72 | 0x11, 0x25, 0x25, 0xa5, 0x93, 0xa5, 0x2f, 0x70, 0x02, 0xdf, | ||
73 | 0x81, 0x9c, 0x49, 0x03, 0xa0, 0xf8, 0x6d, 0x54, 0x2e, 0x26, | ||
74 | 0xde, 0xaa, 0x85, 0x59, 0xa8, 0x31, 0x02, 0x21, 0x00, 0xeb, | ||
75 | 0x47, 0xd7, 0x3b, 0xf6, 0xc3, 0xdd, 0x5a, 0x46, 0xc5, 0xb9, | ||
76 | 0x2b, 0x9a, 0xa0, 0x09, 0x8f, 0xa6, 0xfb, 0xf3, 0x78, 0x7a, | ||
77 | 0x33, 0x70, 0x9d, 0x0f, 0x42, 0x6b, 0x13, 0x68, 0x24, 0xd3, | ||
78 | 0x15, 0x02, 0x21, 0x00, 0xe9, 0x10, 0xb0, 0xb3, 0x0d, 0xe2, | ||
79 | 0x82, 0x68, 0x77, 0x8a, 0x6e, 0x7c, 0xda, 0xbc, 0x3e, 0x53, | ||
80 | 0x83, 0xfb, 0xd6, 0x22, 0xe7, 0xb5, 0xae, 0x6e, 0x80, 0xda, | ||
81 | 0x00, 0x55, 0x97, 0xc1, 0xd0, 0x65, 0x02, 0x20, 0x4c, 0xf8, | ||
82 | 0x73, 0xb1, 0x6a, 0x49, 0x29, 0x61, 0x1f, 0x46, 0x10, 0x0d, | ||
83 | 0xf3, 0xc7, 0xe7, 0x58, 0xd7, 0x88, 0x15, 0x5e, 0x94, 0x9b, | ||
84 | 0xbf, 0x7b, 0xa2, 0x42, 0x58, 0x45, 0x41, 0x0c, 0xcb, 0x01, | ||
85 | 0x02, 0x20, 0x12, 0x11, 0xba, 0x31, 0x57, 0x9d, 0x3d, 0x11, | ||
86 | 0x0e, 0x5b, 0x8c, 0x2f, 0x5f, 0xe2, 0x02, 0x4f, 0x05, 0x47, | ||
87 | 0x8c, 0x15, 0x8e, 0xb3, 0x56, 0x3f, 0xb8, 0xfb, 0xad, 0xd4, | ||
88 | 0xf4, 0xfc, 0x10, 0xc5, 0x02, 0x20, 0x18, 0xa1, 0x29, 0x99, | ||
89 | 0x5b, 0xd9, 0xc8, 0xd4, 0xfc, 0x49, 0x7a, 0x2a, 0x21, 0x2c, | ||
90 | 0x49, 0xe4, 0x4f, 0xeb, 0xef, 0x51, 0xf1, 0xab, 0x6d, 0xfb, | ||
91 | 0x4b, 0x14, 0xe9, 0x4b, 0x52, 0xb5, 0x82, 0x2c, | ||
92 | }; | ||
93 | |||
94 | static unsigned char test1024[] = { | ||
95 | 0x30, 0x82, 0x02, 0x5c, 0x02, 0x01, 0x00, 0x02, 0x81, 0x81, | ||
96 | 0x00, 0xdc, 0x98, 0x43, 0xe8, 0x3d, 0x43, 0x5b, 0xe4, 0x05, | ||
97 | 0xcd, 0xd0, 0xa9, 0x3e, 0xcb, 0x83, 0x75, 0xf6, 0xb5, 0xa5, | ||
98 | 0x9f, 0x6b, 0xe9, 0x34, 0x41, 0x29, 0x18, 0xfa, 0x6a, 0x55, | ||
99 | 0x4d, 0x70, 0xfc, 0xec, 0xae, 0x87, 0x38, 0x0a, 0x20, 0xa9, | ||
100 | 0xc0, 0x45, 0x77, 0x6e, 0x57, 0x60, 0x57, 0xf4, 0xed, 0x96, | ||
101 | 0x22, 0xcb, 0x8f, 0xe1, 0x33, 0x3a, 0x17, 0x1f, 0xed, 0x37, | ||
102 | 0xa5, 0x6f, 0xeb, 0xa6, 0xbc, 0x12, 0x80, 0x1d, 0x53, 0xbd, | ||
103 | 0x70, 0xeb, 0x21, 0x76, 0x3e, 0xc9, 0x2f, 0x1a, 0x45, 0x24, | ||
104 | 0x82, 0xff, 0xcd, 0x59, 0x32, 0x06, 0x2e, 0x12, 0x3b, 0x23, | ||
105 | 0x78, 0xed, 0x12, 0x3d, 0xe0, 0x8d, 0xf9, 0x67, 0x4f, 0x37, | ||
106 | 0x4e, 0x47, 0x02, 0x4c, 0x2d, 0xc0, 0x4f, 0x1f, 0xb3, 0x94, | ||
107 | 0xe1, 0x41, 0x2e, 0x2d, 0x90, 0x10, 0xfc, 0x82, 0x91, 0x8b, | ||
108 | 0x0f, 0x22, 0xd4, 0xf2, 0xfc, 0x2c, 0xab, 0x53, 0x55, 0x02, | ||
109 | 0x03, 0x01, 0x00, 0x01, 0x02, 0x81, 0x80, 0x2b, 0xcc, 0x3f, | ||
110 | 0x8f, 0x58, 0xba, 0x8b, 0x00, 0x16, 0xf6, 0xea, 0x3a, 0xf0, | ||
111 | 0x30, 0xd0, 0x05, 0x17, 0xda, 0xb0, 0xeb, 0x9a, 0x2d, 0x4f, | ||
112 | 0x26, 0xb0, 0xd6, 0x38, 0xc1, 0xeb, 0xf5, 0xd8, 0x3d, 0x1f, | ||
113 | 0x70, 0xf7, 0x7f, 0xf4, 0xe2, 0xcf, 0x51, 0x51, 0x79, 0x88, | ||
114 | 0xfa, 0xe8, 0x32, 0x0e, 0x7b, 0x2d, 0x97, 0xf2, 0xfa, 0xba, | ||
115 | 0x27, 0xc5, 0x9c, 0xd9, 0xc5, 0xeb, 0x8a, 0x79, 0x52, 0x3c, | ||
116 | 0x64, 0x34, 0x7d, 0xc2, 0xcf, 0x28, 0xc7, 0x4e, 0xd5, 0x43, | ||
117 | 0x0b, 0xd1, 0xa6, 0xca, 0x6d, 0x03, 0x2d, 0x72, 0x23, 0xbc, | ||
118 | 0x6d, 0x05, 0xfa, 0x16, 0x09, 0x2f, 0x2e, 0x5c, 0xb6, 0xee, | ||
119 | 0x74, 0xdd, 0xd2, 0x48, 0x8e, 0x36, 0x0c, 0x06, 0x3d, 0x4d, | ||
120 | 0xe5, 0x10, 0x82, 0xeb, 0x6a, 0xf3, 0x4b, 0x9f, 0xd6, 0xed, | ||
121 | 0x11, 0xb1, 0x6e, 0xec, 0xf4, 0xfe, 0x8e, 0x75, 0x94, 0x20, | ||
122 | 0x2f, 0xcb, 0xac, 0x46, 0xf1, 0x02, 0x41, 0x00, 0xf9, 0x8c, | ||
123 | 0xa3, 0x85, 0xb1, 0xdd, 0x29, 0xaf, 0x65, 0xc1, 0x33, 0xf3, | ||
124 | 0x95, 0xc5, 0x52, 0x68, 0x0b, 0xd4, 0xf1, 0xe5, 0x0e, 0x02, | ||
125 | 0x9f, 0x4f, 0xfa, 0x77, 0xdc, 0x46, 0x9e, 0xc7, 0xa6, 0xe4, | ||
126 | 0x16, 0x29, 0xda, 0xb0, 0x07, 0xcf, 0x5b, 0xa9, 0x12, 0x8a, | ||
127 | 0xdd, 0x63, 0x0a, 0xde, 0x2e, 0x8c, 0x66, 0x8b, 0x8c, 0xdc, | ||
128 | 0x19, 0xa3, 0x7e, 0xf4, 0x3b, 0xd0, 0x1a, 0x8c, 0xa4, 0xc2, | ||
129 | 0xe1, 0xd3, 0x02, 0x41, 0x00, 0xe2, 0x4c, 0x05, 0xf2, 0x04, | ||
130 | 0x86, 0x4e, 0x61, 0x43, 0xdb, 0xb0, 0xb9, 0x96, 0x86, 0x52, | ||
131 | 0x2c, 0xca, 0x8d, 0x7b, 0xab, 0x0b, 0x13, 0x0d, 0x7e, 0x38, | ||
132 | 0x5b, 0xe2, 0x2e, 0x7b, 0x0e, 0xe7, 0x19, 0x99, 0x38, 0xe7, | ||
133 | 0xf2, 0x21, 0xbd, 0x85, 0x85, 0xe3, 0xfd, 0x28, 0x77, 0x20, | ||
134 | 0x31, 0x71, 0x2c, 0xd0, 0xff, 0xfb, 0x2e, 0xaf, 0x85, 0xb4, | ||
135 | 0x86, 0xca, 0xf3, 0xbb, 0xca, 0xaa, 0x0f, 0x95, 0x37, 0x02, | ||
136 | 0x40, 0x0e, 0x41, 0x9a, 0x95, 0xe8, 0xb3, 0x59, 0xce, 0x4b, | ||
137 | 0x61, 0xde, 0x35, 0xec, 0x38, 0x79, 0x9c, 0xb8, 0x10, 0x52, | ||
138 | 0x41, 0x63, 0xab, 0x82, 0xae, 0x6f, 0x00, 0xa9, 0xf4, 0xde, | ||
139 | 0xdd, 0x49, 0x0b, 0x7e, 0xb8, 0xa5, 0x65, 0xa9, 0x0c, 0x8f, | ||
140 | 0x8f, 0xf9, 0x1f, 0x35, 0xc6, 0x92, 0xb8, 0x5e, 0xb0, 0x66, | ||
141 | 0xab, 0x52, 0x40, 0xc0, 0xb6, 0x36, 0x6a, 0x7d, 0x80, 0x46, | ||
142 | 0x04, 0x02, 0xe5, 0x9f, 0x41, 0x02, 0x41, 0x00, 0xc0, 0xad, | ||
143 | 0xcc, 0x4e, 0x21, 0xee, 0x1d, 0x24, 0x91, 0xfb, 0xa7, 0x80, | ||
144 | 0x8d, 0x9a, 0xb6, 0xb3, 0x2e, 0x8f, 0xc2, 0xe1, 0x82, 0xdf, | ||
145 | 0x69, 0x18, 0xb4, 0x71, 0xff, 0xa6, 0x65, 0xde, 0xed, 0x84, | ||
146 | 0x8d, 0x42, 0xb7, 0xb3, 0x21, 0x69, 0x56, 0x1c, 0x07, 0x60, | ||
147 | 0x51, 0x29, 0x04, 0xff, 0x34, 0x06, 0xdd, 0xb9, 0x67, 0x2c, | ||
148 | 0x7c, 0x04, 0x93, 0x0e, 0x46, 0x15, 0xbb, 0x2a, 0xb7, 0x1b, | ||
149 | 0xe7, 0x87, 0x02, 0x40, 0x78, 0xda, 0x5d, 0x07, 0x51, 0x0c, | ||
150 | 0x16, 0x7a, 0x9f, 0x29, 0x20, 0x84, 0x0d, 0x42, 0xfa, 0xd7, | ||
151 | 0x00, 0xd8, 0x77, 0x7e, 0xb0, 0xb0, 0x6b, 0xd6, 0x5b, 0x53, | ||
152 | 0xb8, 0x9b, 0x7a, 0xcd, 0xc7, 0x2b, 0xb8, 0x6a, 0x63, 0xa9, | ||
153 | 0xfb, 0x6f, 0xa4, 0x72, 0xbf, 0x4c, 0x5d, 0x00, 0x14, 0xba, | ||
154 | 0xfa, 0x59, 0x88, 0xed, 0xe4, 0xe0, 0x8c, 0xa2, 0xec, 0x14, | ||
155 | 0x7e, 0x2d, 0xe2, 0xf0, 0x46, 0x49, 0x95, 0x45, | ||
156 | }; | ||
157 | |||
158 | static unsigned char test2048[] = { | ||
159 | 0x30, 0x82, 0x04, 0xa3, 0x02, 0x01, 0x00, 0x02, 0x82, 0x01, | ||
160 | 0x01, 0x00, 0xc0, 0xc0, 0xce, 0x3e, 0x3c, 0x53, 0x67, 0x3f, | ||
161 | 0x4f, 0xc5, 0x2f, 0xa4, 0xc2, 0x5a, 0x2f, 0x58, 0xfd, 0x27, | ||
162 | 0x52, 0x6a, 0xe8, 0xcf, 0x4a, 0x73, 0x47, 0x8d, 0x25, 0x0f, | ||
163 | 0x5f, 0x03, 0x26, 0x78, 0xef, 0xf0, 0x22, 0x12, 0xd3, 0xde, | ||
164 | 0x47, 0xb2, 0x1c, 0x0b, 0x38, 0x63, 0x1a, 0x6c, 0x85, 0x7a, | ||
165 | 0x80, 0xc6, 0x8f, 0xa0, 0x41, 0xaf, 0x62, 0xc4, 0x67, 0x32, | ||
166 | 0x88, 0xf8, 0xa6, 0x9c, 0xf5, 0x23, 0x1d, 0xe4, 0xac, 0x3f, | ||
167 | 0x29, 0xf9, 0xec, 0xe1, 0x8b, 0x26, 0x03, 0x2c, 0xb2, 0xab, | ||
168 | 0xf3, 0x7d, 0xb5, 0xca, 0x49, 0xc0, 0x8f, 0x1c, 0xdf, 0x33, | ||
169 | 0x3a, 0x60, 0xda, 0x3c, 0xb0, 0x16, 0xf8, 0xa9, 0x12, 0x8f, | ||
170 | 0x64, 0xac, 0x23, 0x0c, 0x69, 0x64, 0x97, 0x5d, 0x99, 0xd4, | ||
171 | 0x09, 0x83, 0x9b, 0x61, 0xd3, 0xac, 0xf0, 0xde, 0xdd, 0x5e, | ||
172 | 0x9f, 0x44, 0x94, 0xdb, 0x3a, 0x4d, 0x97, 0xe8, 0x52, 0x29, | ||
173 | 0xf7, 0xdb, 0x94, 0x07, 0x45, 0x90, 0x78, 0x1e, 0x31, 0x0b, | ||
174 | 0x80, 0xf7, 0x57, 0xad, 0x1c, 0x79, 0xc5, 0xcb, 0x32, 0xb0, | ||
175 | 0xce, 0xcd, 0x74, 0xb3, 0xe2, 0x94, 0xc5, 0x78, 0x2f, 0x34, | ||
176 | 0x1a, 0x45, 0xf7, 0x8c, 0x52, 0xa5, 0xbc, 0x8d, 0xec, 0xd1, | ||
177 | 0x2f, 0x31, 0x3b, 0xf0, 0x49, 0x59, 0x5e, 0x88, 0x9d, 0x15, | ||
178 | 0x92, 0x35, 0x32, 0xc1, 0xe7, 0x61, 0xec, 0x50, 0x48, 0x7c, | ||
179 | 0xba, 0x05, 0xf9, 0xf8, 0xf8, 0xa7, 0x8c, 0x83, 0xe8, 0x66, | ||
180 | 0x5b, 0xeb, 0xfe, 0xd8, 0x4f, 0xdd, 0x6d, 0x36, 0xc0, 0xb2, | ||
181 | 0x90, 0x0f, 0xb8, 0x52, 0xf9, 0x04, 0x9b, 0x40, 0x2c, 0x27, | ||
182 | 0xd6, 0x36, 0x8e, 0xc2, 0x1b, 0x44, 0xf3, 0x92, 0xd5, 0x15, | ||
183 | 0x9e, 0x9a, 0xbc, 0xf3, 0x7d, 0x03, 0xd7, 0x02, 0x14, 0x20, | ||
184 | 0xe9, 0x10, 0x92, 0xfd, 0xf9, 0xfc, 0x8f, 0xe5, 0x18, 0xe1, | ||
185 | 0x95, 0xcc, 0x9e, 0x60, 0xa6, 0xfa, 0x38, 0x4d, 0x02, 0x03, | ||
186 | 0x01, 0x00, 0x01, 0x02, 0x82, 0x01, 0x00, 0x00, 0xc3, 0xc3, | ||
187 | 0x0d, 0xb4, 0x27, 0x90, 0x8d, 0x4b, 0xbf, 0xb8, 0x84, 0xaa, | ||
188 | 0xd0, 0xb8, 0xc7, 0x5d, 0x99, 0xbe, 0x55, 0xf6, 0x3e, 0x7c, | ||
189 | 0x49, 0x20, 0xcb, 0x8a, 0x8e, 0x19, 0x0e, 0x66, 0x24, 0xac, | ||
190 | 0xaf, 0x03, 0x33, 0x97, 0xeb, 0x95, 0xd5, 0x3b, 0x0f, 0x40, | ||
191 | 0x56, 0x04, 0x50, 0xd1, 0xe6, 0xbe, 0x84, 0x0b, 0x25, 0xd3, | ||
192 | 0x9c, 0xe2, 0x83, 0x6c, 0xf5, 0x62, 0x5d, 0xba, 0x2b, 0x7d, | ||
193 | 0x3d, 0x7a, 0x6c, 0xe1, 0xd2, 0x0e, 0x54, 0x93, 0x80, 0x01, | ||
194 | 0x91, 0x51, 0x09, 0xe8, 0x5b, 0x8e, 0x47, 0xbd, 0x64, 0xe4, | ||
195 | 0x0e, 0x03, 0x83, 0x55, 0xcf, 0x5a, 0x37, 0xf0, 0x25, 0xb5, | ||
196 | 0x7d, 0x21, 0xd7, 0x69, 0xdf, 0x6f, 0xc2, 0xcf, 0x10, 0xc9, | ||
197 | 0x8a, 0x40, 0x9f, 0x7a, 0x70, 0xc0, 0xe8, 0xe8, 0xc0, 0xe6, | ||
198 | 0x9a, 0x15, 0x0a, 0x8d, 0x4e, 0x46, 0xcb, 0x7a, 0xdb, 0xb3, | ||
199 | 0xcb, 0x83, 0x02, 0xc4, 0xf0, 0xab, 0xeb, 0x02, 0x01, 0x0e, | ||
200 | 0x23, 0xfc, 0x1d, 0xc4, 0xbd, 0xd4, 0xaa, 0x5d, 0x31, 0x46, | ||
201 | 0x99, 0xce, 0x9e, 0xf8, 0x04, 0x75, 0x10, 0x67, 0xc4, 0x53, | ||
202 | 0x47, 0x44, 0xfa, 0xc2, 0x25, 0x73, 0x7e, 0xd0, 0x8e, 0x59, | ||
203 | 0xd1, 0xb2, 0x5a, 0xf4, 0xc7, 0x18, 0x92, 0x2f, 0x39, 0xab, | ||
204 | 0xcd, 0xa3, 0xb5, 0xc2, 0xb9, 0xc7, 0xb9, 0x1b, 0x9f, 0x48, | ||
205 | 0xfa, 0x13, 0xc6, 0x98, 0x4d, 0xca, 0x84, 0x9c, 0x06, 0xca, | ||
206 | 0xe7, 0x89, 0x01, 0x04, 0xc4, 0x6c, 0xfd, 0x29, 0x59, 0x35, | ||
207 | 0xe7, 0xf3, 0xdd, 0xce, 0x64, 0x59, 0xbf, 0x21, 0x13, 0xa9, | ||
208 | 0x9f, 0x0e, 0xc5, 0xff, 0xbd, 0x33, 0x00, 0xec, 0xac, 0x6b, | ||
209 | 0x11, 0xef, 0x51, 0x5e, 0xad, 0x07, 0x15, 0xde, 0xb8, 0x5f, | ||
210 | 0xc6, 0xb9, 0xa3, 0x22, 0x65, 0x46, 0x83, 0x14, 0xdf, 0xd0, | ||
211 | 0xf1, 0x44, 0x8a, 0xe1, 0x9c, 0x23, 0x33, 0xb4, 0x97, 0x33, | ||
212 | 0xe6, 0x6b, 0x81, 0x02, 0x81, 0x81, 0x00, 0xec, 0x12, 0xa7, | ||
213 | 0x59, 0x74, 0x6a, 0xde, 0x3e, 0xad, 0xd8, 0x36, 0x80, 0x50, | ||
214 | 0xa2, 0xd5, 0x21, 0x81, 0x07, 0xf1, 0xd0, 0x91, 0xf2, 0x6c, | ||
215 | 0x12, 0x2f, 0x9d, 0x1a, 0x26, 0xf8, 0x30, 0x65, 0xdf, 0xe8, | ||
216 | 0xc0, 0x9b, 0x6a, 0x30, 0x98, 0x82, 0x87, 0xec, 0xa2, 0x56, | ||
217 | 0x87, 0x62, 0x6f, 0xe7, 0x9f, 0xf6, 0x56, 0xe6, 0x71, 0x8f, | ||
218 | 0x49, 0x86, 0x93, 0x5a, 0x4d, 0x34, 0x58, 0xfe, 0xd9, 0x04, | ||
219 | 0x13, 0xaf, 0x79, 0xb7, 0xad, 0x11, 0xd1, 0x30, 0x9a, 0x14, | ||
220 | 0x06, 0xa0, 0xfa, 0xb7, 0x55, 0xdc, 0x6c, 0x5a, 0x4c, 0x2c, | ||
221 | 0x59, 0x56, 0xf6, 0xe8, 0x9d, 0xaf, 0x0a, 0x78, 0x99, 0x06, | ||
222 | 0x06, 0x9e, 0xe7, 0x9c, 0x51, 0x55, 0x43, 0xfc, 0x3b, 0x6c, | ||
223 | 0x0b, 0xbf, 0x2d, 0x41, 0xa7, 0xaf, 0xb7, 0xe0, 0xe8, 0x28, | ||
224 | 0x18, 0xb4, 0x13, 0xd1, 0xe6, 0x97, 0xd0, 0x9f, 0x6a, 0x80, | ||
225 | 0xca, 0xdd, 0x1a, 0x7e, 0x15, 0x02, 0x81, 0x81, 0x00, 0xd1, | ||
226 | 0x06, 0x0c, 0x1f, 0xe3, 0xd0, 0xab, 0xd6, 0xca, 0x7c, 0xbc, | ||
227 | 0x7d, 0x13, 0x35, 0xce, 0x27, 0xcd, 0xd8, 0x49, 0x51, 0x63, | ||
228 | 0x64, 0x0f, 0xca, 0x06, 0x12, 0xfc, 0x07, 0x3e, 0xaf, 0x61, | ||
229 | 0x6d, 0xe2, 0x53, 0x39, 0x27, 0xae, 0xc3, 0x11, 0x9e, 0x94, | ||
230 | 0x01, 0x4f, 0xe3, 0xf3, 0x67, 0xf9, 0x77, 0xf9, 0xe7, 0x95, | ||
231 | 0x3a, 0x6f, 0xe2, 0x20, 0x73, 0x3e, 0xa4, 0x7a, 0x28, 0xd4, | ||
232 | 0x61, 0x97, 0xf6, 0x17, 0xa0, 0x23, 0x10, 0x2b, 0xce, 0x84, | ||
233 | 0x57, 0x7e, 0x25, 0x1f, 0xf4, 0xa8, 0x54, 0xd2, 0x65, 0x94, | ||
234 | 0xcc, 0x95, 0x0a, 0xab, 0x30, 0xc1, 0x59, 0x1f, 0x61, 0x8e, | ||
235 | 0xb9, 0x6b, 0xd7, 0x4e, 0xb9, 0x83, 0x43, 0x79, 0x85, 0x11, | ||
236 | 0xbc, 0x0f, 0xae, 0x25, 0x20, 0x05, 0xbc, 0xd2, 0x48, 0xa1, | ||
237 | 0x68, 0x09, 0x84, 0xf6, 0x12, 0x9a, 0x66, 0xb9, 0x2b, 0xbb, | ||
238 | 0x76, 0x03, 0x17, 0x46, 0x4e, 0x97, 0x59, 0x02, 0x81, 0x80, | ||
239 | 0x09, 0x4c, 0xfa, 0xd6, 0xe5, 0x65, 0x48, 0x78, 0x43, 0xb5, | ||
240 | 0x1f, 0x00, 0x93, 0x2c, 0xb7, 0x24, 0xe8, 0xc6, 0x7d, 0x5a, | ||
241 | 0x70, 0x45, 0x92, 0xc8, 0x6c, 0xa3, 0xcd, 0xe1, 0xf7, 0x29, | ||
242 | 0x40, 0xfa, 0x3f, 0x5b, 0x47, 0x44, 0x39, 0xc1, 0xe8, 0x72, | ||
243 | 0x9e, 0x7a, 0x0e, 0xda, 0xaa, 0xa0, 0x2a, 0x09, 0xfd, 0x54, | ||
244 | 0x93, 0x23, 0xaa, 0x37, 0x85, 0x5b, 0xcc, 0xd4, 0xf9, 0xd8, | ||
245 | 0xff, 0xc1, 0x61, 0x0d, 0xbd, 0x7e, 0x18, 0x24, 0x73, 0x6d, | ||
246 | 0x40, 0x72, 0xf1, 0x93, 0x09, 0x48, 0x97, 0x6c, 0x84, 0x90, | ||
247 | 0xa8, 0x46, 0x14, 0x01, 0x39, 0x11, 0xe5, 0x3c, 0x41, 0x27, | ||
248 | 0x32, 0x75, 0x24, 0xed, 0xa1, 0xd9, 0x12, 0x29, 0x8a, 0x28, | ||
249 | 0x71, 0x89, 0x8d, 0xca, 0x30, 0xb0, 0x01, 0xc4, 0x2f, 0x82, | ||
250 | 0x19, 0x14, 0x4c, 0x70, 0x1c, 0xb8, 0x23, 0x2e, 0xe8, 0x90, | ||
251 | 0x49, 0x97, 0x92, 0x97, 0x6b, 0x7a, 0x9d, 0xb9, 0x02, 0x81, | ||
252 | 0x80, 0x0f, 0x0e, 0xa1, 0x76, 0xf6, 0xa1, 0x44, 0x8f, 0xaf, | ||
253 | 0x7c, 0x76, 0xd3, 0x87, 0xbb, 0xbb, 0x83, 0x10, 0x88, 0x01, | ||
254 | 0x18, 0x14, 0xd1, 0xd3, 0x75, 0x59, 0x24, 0xaa, 0xf5, 0x16, | ||
255 | 0xa5, 0xe9, 0x9d, 0xd1, 0xcc, 0xee, 0xf4, 0x15, 0xd9, 0xc5, | ||
256 | 0x7e, 0x27, 0xe9, 0x44, 0x49, 0x06, 0x72, 0xb9, 0xfc, 0xd3, | ||
257 | 0x8a, 0xc4, 0x2c, 0x36, 0x7d, 0x12, 0x9b, 0x5a, 0xaa, 0xdc, | ||
258 | 0x85, 0xee, 0x6e, 0xad, 0x54, 0xb3, 0xf4, 0xfc, 0x31, 0xa1, | ||
259 | 0x06, 0x3a, 0x70, 0x57, 0x0c, 0xf3, 0x95, 0x5b, 0x3e, 0xe8, | ||
260 | 0xfd, 0x1a, 0x4f, 0xf6, 0x78, 0x93, 0x46, 0x6a, 0xd7, 0x31, | ||
261 | 0xb4, 0x84, 0x64, 0x85, 0x09, 0x38, 0x89, 0x92, 0x94, 0x1c, | ||
262 | 0xbf, 0xe2, 0x3c, 0x2a, 0xe0, 0xff, 0x99, 0xa3, 0xf0, 0x2b, | ||
263 | 0x31, 0xc2, 0x36, 0xcd, 0x60, 0xbf, 0x9d, 0x2d, 0x74, 0x32, | ||
264 | 0xe8, 0x9c, 0x93, 0x6e, 0xbb, 0x91, 0x7b, 0xfd, 0xd9, 0x02, | ||
265 | 0x81, 0x81, 0x00, 0xa2, 0x71, 0x25, 0x38, 0xeb, 0x2a, 0xe9, | ||
266 | 0x37, 0xcd, 0xfe, 0x44, 0xce, 0x90, 0x3f, 0x52, 0x87, 0x84, | ||
267 | 0x52, 0x1b, 0xae, 0x8d, 0x22, 0x94, 0xce, 0x38, 0xe6, 0x04, | ||
268 | 0x88, 0x76, 0x85, 0x9a, 0xd3, 0x14, 0x09, 0xe5, 0x69, 0x9a, | ||
269 | 0xff, 0x58, 0x92, 0x02, 0x6a, 0x7d, 0x7c, 0x1e, 0x2c, 0xfd, | ||
270 | 0xa8, 0xca, 0x32, 0x14, 0x4f, 0x0d, 0x84, 0x0d, 0x37, 0x43, | ||
271 | 0xbf, 0xe4, 0x5d, 0x12, 0xc8, 0x24, 0x91, 0x27, 0x8d, 0x46, | ||
272 | 0xd9, 0x54, 0x53, 0xe7, 0x62, 0x71, 0xa8, 0x2b, 0x71, 0x41, | ||
273 | 0x8d, 0x75, 0xf8, 0x3a, 0xa0, 0x61, 0x29, 0x46, 0xa6, 0xe5, | ||
274 | 0x82, 0xfa, 0x3a, 0xd9, 0x08, 0xfa, 0xfc, 0x63, 0xfd, 0x6b, | ||
275 | 0x30, 0xbc, 0xf4, 0x4e, 0x9e, 0x8c, 0x25, 0x0c, 0xb6, 0x55, | ||
276 | 0xe7, 0x3c, 0xd4, 0x4e, 0x0b, 0xfd, 0x8b, 0xc3, 0x0e, 0x1d, | ||
277 | 0x9c, 0x44, 0x57, 0x8f, 0x1f, 0x86, 0xf7, 0xd5, 0x1b, 0xe4, | ||
278 | 0x95, | ||
279 | }; | ||
280 | |||
281 | static unsigned char test4096[] = { | ||
282 | 0x30, 0x82, 0x09, 0x29, 0x02, 0x01, 0x00, 0x02, 0x82, 0x02, | ||
283 | 0x01, 0x00, 0xc0, 0x71, 0xac, 0x1a, 0x13, 0x88, 0x82, 0x43, | ||
284 | 0x3b, 0x51, 0x57, 0x71, 0x8d, 0xb6, 0x2b, 0x82, 0x65, 0x21, | ||
285 | 0x53, 0x5f, 0x28, 0x29, 0x4f, 0x8d, 0x7c, 0x8a, 0xb9, 0x44, | ||
286 | 0xb3, 0x28, 0x41, 0x4f, 0xd3, 0xfa, 0x6a, 0xf8, 0xb9, 0x28, | ||
287 | 0x50, 0x39, 0x67, 0x53, 0x2c, 0x3c, 0xd7, 0xcb, 0x96, 0x41, | ||
288 | 0x40, 0x32, 0xbb, 0xeb, 0x70, 0xae, 0x1f, 0xb0, 0x65, 0xf7, | ||
289 | 0x3a, 0xd9, 0x22, 0xfd, 0x10, 0xae, 0xbd, 0x02, 0xe2, 0xdd, | ||
290 | 0xf3, 0xc2, 0x79, 0x3c, 0xc6, 0xfc, 0x75, 0xbb, 0xaf, 0x4e, | ||
291 | 0x3a, 0x36, 0xc2, 0x4f, 0xea, 0x25, 0xdf, 0x13, 0x16, 0x4b, | ||
292 | 0x20, 0xfe, 0x4b, 0x69, 0x16, 0xc4, 0x7f, 0x1a, 0x43, 0xa6, | ||
293 | 0x17, 0x1b, 0xb9, 0x0a, 0xf3, 0x09, 0x86, 0x28, 0x89, 0xcf, | ||
294 | 0x2c, 0xd0, 0xd4, 0x81, 0xaf, 0xc6, 0x6d, 0xe6, 0x21, 0x8d, | ||
295 | 0xee, 0xef, 0xea, 0xdc, 0xb7, 0xc6, 0x3b, 0x63, 0x9f, 0x0e, | ||
296 | 0xad, 0x89, 0x78, 0x23, 0x18, 0xbf, 0x70, 0x7e, 0x84, 0xe0, | ||
297 | 0x37, 0xec, 0xdb, 0x8e, 0x9c, 0x3e, 0x6a, 0x19, 0xcc, 0x99, | ||
298 | 0x72, 0xe6, 0xb5, 0x7d, 0x6d, 0xfa, 0xe5, 0xd3, 0xe4, 0x90, | ||
299 | 0xb5, 0xb2, 0xb2, 0x12, 0x70, 0x4e, 0xca, 0xf8, 0x10, 0xf8, | ||
300 | 0xa3, 0x14, 0xc2, 0x48, 0x19, 0xeb, 0x60, 0x99, 0xbb, 0x2a, | ||
301 | 0x1f, 0xb1, 0x7a, 0xb1, 0x3d, 0x24, 0xfb, 0xa0, 0x29, 0xda, | ||
302 | 0xbd, 0x1b, 0xd7, 0xa4, 0xbf, 0xef, 0x60, 0x2d, 0x22, 0xca, | ||
303 | 0x65, 0x98, 0xf1, 0xc4, 0xe1, 0xc9, 0x02, 0x6b, 0x16, 0x28, | ||
304 | 0x2f, 0xa1, 0xaa, 0x79, 0x00, 0xda, 0xdc, 0x7c, 0x43, 0xf7, | ||
305 | 0x42, 0x3c, 0xa0, 0xef, 0x68, 0xf7, 0xdf, 0xb9, 0x69, 0xfb, | ||
306 | 0x8e, 0x01, 0xed, 0x01, 0x42, 0xb5, 0x4e, 0x57, 0xa6, 0x26, | ||
307 | 0xb8, 0xd0, 0x7b, 0x56, 0x6d, 0x03, 0xc6, 0x40, 0x8c, 0x8c, | ||
308 | 0x2a, 0x55, 0xd7, 0x9c, 0x35, 0x00, 0x94, 0x93, 0xec, 0x03, | ||
309 | 0xeb, 0x22, 0xef, 0x77, 0xbb, 0x79, 0x13, 0x3f, 0x15, 0xa1, | ||
310 | 0x8f, 0xca, 0xdf, 0xfd, 0xd3, 0xb8, 0xe1, 0xd4, 0xcc, 0x09, | ||
311 | 0x3f, 0x3c, 0x2c, 0xdb, 0xd1, 0x49, 0x7f, 0x38, 0x07, 0x83, | ||
312 | 0x6d, 0xeb, 0x08, 0x66, 0xe9, 0x06, 0x44, 0x12, 0xac, 0x95, | ||
313 | 0x22, 0x90, 0x23, 0x67, 0xd4, 0x08, 0xcc, 0xf4, 0xb7, 0xdc, | ||
314 | 0xcc, 0x87, 0xd4, 0xac, 0x69, 0x35, 0x4c, 0xb5, 0x39, 0x36, | ||
315 | 0xcd, 0xa4, 0xd2, 0x95, 0xca, 0x0d, 0xc5, 0xda, 0xc2, 0xc5, | ||
316 | 0x22, 0x32, 0x28, 0x08, 0xe3, 0xd2, 0x8b, 0x38, 0x30, 0xdc, | ||
317 | 0x8c, 0x75, 0x4f, 0x6a, 0xec, 0x7a, 0xac, 0x16, 0x3e, 0xa8, | ||
318 | 0xd4, 0x6a, 0x45, 0xe1, 0xa8, 0x4f, 0x2e, 0x80, 0x34, 0xaa, | ||
319 | 0x54, 0x1b, 0x02, 0x95, 0x7d, 0x8a, 0x6d, 0xcc, 0x79, 0xca, | ||
320 | 0xf2, 0xa4, 0x2e, 0x8d, 0xfb, 0xfe, 0x15, 0x51, 0x10, 0x0e, | ||
321 | 0x4d, 0x88, 0xb1, 0xc7, 0xf4, 0x79, 0xdb, 0xf0, 0xb4, 0x56, | ||
322 | 0x44, 0x37, 0xca, 0x5a, 0xc1, 0x8c, 0x48, 0xac, 0xae, 0x48, | ||
323 | 0x80, 0x83, 0x01, 0x3f, 0xde, 0xd9, 0xd3, 0x2c, 0x51, 0x46, | ||
324 | 0xb1, 0x41, 0xb6, 0xc6, 0x91, 0x72, 0xf9, 0x83, 0x55, 0x1b, | ||
325 | 0x8c, 0xba, 0xf3, 0x73, 0xe5, 0x2c, 0x74, 0x50, 0x3a, 0xbe, | ||
326 | 0xc5, 0x2f, 0xa7, 0xb2, 0x6d, 0x8c, 0x9e, 0x13, 0x77, 0xa3, | ||
327 | 0x13, 0xcd, 0x6d, 0x8c, 0x45, 0xe1, 0xfc, 0x0b, 0xb7, 0x69, | ||
328 | 0xe9, 0x27, 0xbc, 0x65, 0xc3, 0xfa, 0x9b, 0xd0, 0xef, 0xfe, | ||
329 | 0xe8, 0x1f, 0xb3, 0x5e, 0x34, 0xf4, 0x8c, 0xea, 0xfc, 0xd3, | ||
330 | 0x81, 0xbf, 0x3d, 0x30, 0xb2, 0xb4, 0x01, 0xe8, 0x43, 0x0f, | ||
331 | 0xba, 0x02, 0x23, 0x42, 0x76, 0x82, 0x31, 0x73, 0x91, 0xed, | ||
332 | 0x07, 0x46, 0x61, 0x0d, 0x39, 0x83, 0x40, 0xce, 0x7a, 0xd4, | ||
333 | 0xdb, 0x80, 0x2c, 0x1f, 0x0d, 0xd1, 0x34, 0xd4, 0x92, 0xe3, | ||
334 | 0xd4, 0xf1, 0xc2, 0x01, 0x02, 0x03, 0x01, 0x00, 0x01, 0x02, | ||
335 | 0x82, 0x02, 0x01, 0x00, 0x97, 0x6c, 0xda, 0x6e, 0xea, 0x4f, | ||
336 | 0xcf, 0xaf, 0xf7, 0x4c, 0xd9, 0xf1, 0x90, 0x00, 0x77, 0xdb, | ||
337 | 0xf2, 0x97, 0x76, 0x72, 0xb9, 0xb7, 0x47, 0xd1, 0x9c, 0xdd, | ||
338 | 0xcb, 0x4a, 0x33, 0x6e, 0xc9, 0x75, 0x76, 0xe6, 0xe4, 0xa5, | ||
339 | 0x31, 0x8c, 0x77, 0x13, 0xb4, 0x29, 0xcd, 0xf5, 0x52, 0x17, | ||
340 | 0xef, 0xf3, 0x08, 0x00, 0xe3, 0xbd, 0x2e, 0xbc, 0xd4, 0x52, | ||
341 | 0x88, 0xe9, 0x30, 0x75, 0x0b, 0x02, 0xf5, 0xcd, 0x89, 0x0c, | ||
342 | 0x6c, 0x57, 0x19, 0x27, 0x3d, 0x1e, 0x85, 0xb4, 0xc1, 0x2f, | ||
343 | 0x1d, 0x92, 0x00, 0x5c, 0x76, 0x29, 0x4b, 0xa4, 0xe1, 0x12, | ||
344 | 0xb3, 0xc8, 0x09, 0xfe, 0x0e, 0x78, 0x72, 0x61, 0xcb, 0x61, | ||
345 | 0x6f, 0x39, 0x91, 0x95, 0x4e, 0xd5, 0x3e, 0xc7, 0x8f, 0xb8, | ||
346 | 0xf6, 0x36, 0xfe, 0x9c, 0x93, 0x9a, 0x38, 0x25, 0x7a, 0xf4, | ||
347 | 0x4a, 0x12, 0xd4, 0xa0, 0x13, 0xbd, 0xf9, 0x1d, 0x12, 0x3e, | ||
348 | 0x21, 0x39, 0xfb, 0x72, 0xe0, 0x05, 0x3d, 0xc3, 0xe5, 0x50, | ||
349 | 0xa8, 0x5d, 0x85, 0xa3, 0xea, 0x5f, 0x1c, 0xb2, 0x3f, 0xea, | ||
350 | 0x6d, 0x03, 0x91, 0x55, 0xd8, 0x19, 0x0a, 0x21, 0x12, 0x16, | ||
351 | 0xd9, 0x12, 0xc4, 0xe6, 0x07, 0x18, 0x5b, 0x26, 0xa4, 0xae, | ||
352 | 0xed, 0x2b, 0xb7, 0xa6, 0xed, 0xf8, 0xad, 0xec, 0x77, 0xe6, | ||
353 | 0x7f, 0x4f, 0x76, 0x00, 0xc0, 0xfa, 0x15, 0x92, 0xb4, 0x2c, | ||
354 | 0x22, 0xc2, 0xeb, 0x6a, 0xad, 0x14, 0x05, 0xb2, 0xe5, 0x8a, | ||
355 | 0x9e, 0x85, 0x83, 0xcc, 0x04, 0xf1, 0x56, 0x78, 0x44, 0x5e, | ||
356 | 0xde, 0xe0, 0x60, 0x1a, 0x65, 0x79, 0x31, 0x23, 0x05, 0xbb, | ||
357 | 0x01, 0xff, 0xdd, 0x2e, 0xb7, 0xb3, 0xaa, 0x74, 0xe0, 0xa5, | ||
358 | 0x94, 0xaf, 0x4b, 0xde, 0x58, 0x0f, 0x55, 0xde, 0x33, 0xf6, | ||
359 | 0xe3, 0xd6, 0x34, 0x36, 0x57, 0xd6, 0x79, 0x91, 0x2e, 0xbe, | ||
360 | 0x3b, 0xd9, 0x4e, 0xb6, 0x9d, 0x21, 0x5c, 0xd3, 0x48, 0x14, | ||
361 | 0x7f, 0x4a, 0xc4, 0x60, 0xa9, 0x29, 0xf8, 0x53, 0x7f, 0x88, | ||
362 | 0x11, 0x2d, 0xb5, 0xc5, 0x2d, 0x6f, 0xee, 0x85, 0x0b, 0xf7, | ||
363 | 0x8d, 0x9a, 0xbe, 0xb0, 0x42, 0xf2, 0x2e, 0x71, 0xaf, 0x19, | ||
364 | 0x31, 0x6d, 0xec, 0xcd, 0x6f, 0x2b, 0x23, 0xdf, 0xb4, 0x40, | ||
365 | 0xaf, 0x2c, 0x0a, 0xc3, 0x1b, 0x7d, 0x7d, 0x03, 0x1d, 0x4b, | ||
366 | 0xf3, 0xb5, 0xe0, 0x85, 0xd8, 0xdf, 0x91, 0x6b, 0x0a, 0x69, | ||
367 | 0xf7, 0xf2, 0x69, 0x66, 0x5b, 0xf1, 0xcf, 0x46, 0x7d, 0xe9, | ||
368 | 0x70, 0xfa, 0x6d, 0x7e, 0x75, 0x4e, 0xa9, 0x77, 0xe6, 0x8c, | ||
369 | 0x02, 0xf7, 0x14, 0x4d, 0xa5, 0x41, 0x8f, 0x3f, 0xc1, 0x62, | ||
370 | 0x1e, 0x71, 0x5e, 0x38, 0xb4, 0xd6, 0xe6, 0xe1, 0x4b, 0xc2, | ||
371 | 0x2c, 0x30, 0x83, 0x81, 0x6f, 0x49, 0x2e, 0x96, 0xe6, 0xc9, | ||
372 | 0x9a, 0xf7, 0x5d, 0x09, 0xa0, 0x55, 0x02, 0xa5, 0x3a, 0x25, | ||
373 | 0x23, 0xd0, 0x92, 0xc3, 0xa3, 0xe3, 0x0e, 0x12, 0x2f, 0x4d, | ||
374 | 0xef, 0xf3, 0x55, 0x5a, 0xbe, 0xe6, 0x19, 0x86, 0x31, 0xab, | ||
375 | 0x75, 0x9a, 0xd3, 0xf0, 0x2c, 0xc5, 0x41, 0x92, 0xd9, 0x1f, | ||
376 | 0x5f, 0x11, 0x8c, 0x75, 0x1c, 0x63, 0xd0, 0x02, 0x80, 0x2c, | ||
377 | 0x68, 0xcb, 0x93, 0xfb, 0x51, 0x73, 0x49, 0xb4, 0x60, 0xda, | ||
378 | 0xe2, 0x26, 0xaf, 0xa9, 0x46, 0x12, 0xb8, 0xec, 0x50, 0xdd, | ||
379 | 0x12, 0x06, 0x5f, 0xce, 0x59, 0xe6, 0xf6, 0x1c, 0xe0, 0x54, | ||
380 | 0x10, 0xad, 0xf6, 0xcd, 0x98, 0xcc, 0x0f, 0xfb, 0xcb, 0x41, | ||
381 | 0x14, 0x9d, 0xed, 0xe4, 0xb4, 0x74, 0x5f, 0x09, 0x60, 0xc7, | ||
382 | 0x12, 0xf6, 0x7b, 0x3c, 0x8f, 0xa7, 0x20, 0xbc, 0xe4, 0xb1, | ||
383 | 0xef, 0xeb, 0xa4, 0x93, 0xc5, 0x06, 0xca, 0x9a, 0x27, 0x9d, | ||
384 | 0x87, 0xf3, 0xde, 0xca, 0xe5, 0xe7, 0xf6, 0x1c, 0x01, 0x65, | ||
385 | 0x5b, 0xfb, 0x19, 0x79, 0x6e, 0x08, 0x26, 0xc5, 0xc8, 0x28, | ||
386 | 0x0e, 0xb6, 0x3b, 0x07, 0x08, 0xc1, 0x02, 0x82, 0x01, 0x01, | ||
387 | 0x00, 0xe8, 0x1c, 0x73, 0xa6, 0xb8, 0xe0, 0x0e, 0x6d, 0x8d, | ||
388 | 0x1b, 0xb9, 0x53, 0xed, 0x58, 0x94, 0xe6, 0x1d, 0x60, 0x14, | ||
389 | 0x5c, 0x76, 0x43, 0xc4, 0x58, 0x19, 0xc4, 0x24, 0xe8, 0xbc, | ||
390 | 0x1b, 0x3b, 0x0b, 0x13, 0x24, 0x45, 0x54, 0x0e, 0xcc, 0x37, | ||
391 | 0xf0, 0xe0, 0x63, 0x7d, 0xc3, 0xf7, 0xfb, 0x81, 0x74, 0x81, | ||
392 | 0xc4, 0x0f, 0x1a, 0x21, 0x48, 0xaf, 0xce, 0xc1, 0xc4, 0x94, | ||
393 | 0x18, 0x06, 0x44, 0x8d, 0xd3, 0xd2, 0x22, 0x2d, 0x2d, 0x3e, | ||
394 | 0x5a, 0x31, 0xdc, 0x95, 0x8e, 0xf4, 0x41, 0xfc, 0x58, 0xc9, | ||
395 | 0x40, 0x92, 0x17, 0x5f, 0xe3, 0xda, 0xac, 0x9e, 0x3f, 0x1c, | ||
396 | 0x2a, 0x6b, 0x58, 0x5f, 0x48, 0x78, 0x20, 0xb1, 0xaf, 0x24, | ||
397 | 0x9b, 0x3c, 0x20, 0x8b, 0x93, 0x25, 0x9e, 0xe6, 0x6b, 0xbc, | ||
398 | 0x13, 0x42, 0x14, 0x6c, 0x36, 0x31, 0xff, 0x7a, 0xd1, 0xc1, | ||
399 | 0x1a, 0x26, 0x14, 0x7f, 0xa9, 0x76, 0xa7, 0x0c, 0xf8, 0xcc, | ||
400 | 0xed, 0x07, 0x6a, 0xd2, 0xdf, 0x62, 0xee, 0x0a, 0x7c, 0x84, | ||
401 | 0xcb, 0x49, 0x90, 0xb2, 0x03, 0x0d, 0xa2, 0x82, 0x06, 0x77, | ||
402 | 0xf1, 0xcd, 0x67, 0xf2, 0x47, 0x21, 0x02, 0x3f, 0x43, 0x21, | ||
403 | 0xf0, 0x46, 0x30, 0x62, 0x51, 0x72, 0xb1, 0xe7, 0x48, 0xc6, | ||
404 | 0x67, 0x12, 0xcd, 0x9e, 0xd6, 0x15, 0xe5, 0x21, 0xed, 0xfa, | ||
405 | 0x8f, 0x30, 0xa6, 0x41, 0xfe, 0xb6, 0xfa, 0x8f, 0x34, 0x14, | ||
406 | 0x19, 0xe8, 0x11, 0xf7, 0xa5, 0x77, 0x3e, 0xb7, 0xf9, 0x39, | ||
407 | 0x07, 0x8c, 0x67, 0x2a, 0xab, 0x7b, 0x08, 0xf8, 0xb0, 0x06, | ||
408 | 0xa8, 0xea, 0x2f, 0x8f, 0xfa, 0xcc, 0xcc, 0x40, 0xce, 0xf3, | ||
409 | 0x70, 0x4f, 0x3f, 0x7f, 0xe2, 0x0c, 0xea, 0x76, 0x4a, 0x35, | ||
410 | 0x4e, 0x47, 0xad, 0x2b, 0xa7, 0x97, 0x5d, 0x74, 0x43, 0x97, | ||
411 | 0x90, 0xd2, 0xfb, 0xd9, 0xf9, 0x96, 0x01, 0x33, 0x05, 0xed, | ||
412 | 0x7b, 0x03, 0x05, 0xad, 0xf8, 0x49, 0x03, 0x02, 0x82, 0x01, | ||
413 | 0x01, 0x00, 0xd4, 0x40, 0x17, 0x66, 0x10, 0x92, 0x95, 0xc8, | ||
414 | 0xec, 0x62, 0xa9, 0x7a, 0xcb, 0x93, 0x8e, 0xe6, 0x53, 0xd4, | ||
415 | 0x80, 0x48, 0x27, 0x4b, 0x41, 0xce, 0x61, 0xdf, 0xbf, 0x94, | ||
416 | 0xa4, 0x3d, 0x71, 0x03, 0x0b, 0xed, 0x25, 0x71, 0x98, 0xa4, | ||
417 | 0xd6, 0xd5, 0x4a, 0x57, 0xf5, 0x6c, 0x1b, 0xda, 0x21, 0x7d, | ||
418 | 0x35, 0x45, 0xb3, 0xf3, 0x6a, 0xd9, 0xd3, 0x43, 0xe8, 0x5c, | ||
419 | 0x54, 0x1c, 0x83, 0x1b, 0xb4, 0x5f, 0xf2, 0x97, 0x24, 0x2e, | ||
420 | 0xdc, 0x40, 0xde, 0x92, 0x23, 0x59, 0x8e, 0xbc, 0xd2, 0xa1, | ||
421 | 0xf2, 0xe0, 0x4c, 0xdd, 0x0b, 0xd1, 0xe7, 0xae, 0x65, 0xbc, | ||
422 | 0xb5, 0xf5, 0x5b, 0x98, 0xe9, 0xd7, 0xc2, 0xb7, 0x0e, 0x55, | ||
423 | 0x71, 0x0e, 0x3c, 0x0a, 0x24, 0x6b, 0xa6, 0xe6, 0x14, 0x61, | ||
424 | 0x11, 0xfd, 0x33, 0x42, 0x99, 0x2b, 0x84, 0x77, 0x74, 0x92, | ||
425 | 0x91, 0xf5, 0x79, 0x79, 0xcf, 0xad, 0x8e, 0x04, 0xef, 0x80, | ||
426 | 0x1e, 0x57, 0xf4, 0x14, 0xf5, 0x35, 0x09, 0x74, 0xb2, 0x13, | ||
427 | 0x71, 0x58, 0x6b, 0xea, 0x32, 0x5d, 0xf3, 0xd3, 0x76, 0x48, | ||
428 | 0x39, 0x10, 0x23, 0x84, 0x9d, 0xbe, 0x92, 0x77, 0x4a, 0xed, | ||
429 | 0x70, 0x3e, 0x1a, 0xa2, 0x6c, 0xb3, 0x81, 0x00, 0xc3, 0xc9, | ||
430 | 0xe4, 0x52, 0xc8, 0x24, 0x88, 0x0c, 0x41, 0xad, 0x87, 0x5a, | ||
431 | 0xea, 0xa3, 0x7a, 0x85, 0x1c, 0x5e, 0x31, 0x7f, 0xc3, 0x35, | ||
432 | 0xc6, 0xfa, 0x10, 0xc8, 0x75, 0x10, 0xc4, 0x96, 0x99, 0xe7, | ||
433 | 0xfe, 0x01, 0xb4, 0x74, 0xdb, 0xb4, 0x11, 0xc3, 0xc8, 0x8c, | ||
434 | 0xf6, 0xf7, 0x3b, 0x66, 0x50, 0xfc, 0xdb, 0xeb, 0xca, 0x47, | ||
435 | 0x85, 0x89, 0xe1, 0x65, 0xd9, 0x62, 0x34, 0x3c, 0x70, 0xd8, | ||
436 | 0x2e, 0xb4, 0x2f, 0x65, 0x3c, 0x4a, 0xa6, 0x2a, 0xe7, 0xc7, | ||
437 | 0xd8, 0x41, 0x8f, 0x8a, 0x43, 0xbf, 0x42, 0xf2, 0x4d, 0xbc, | ||
438 | 0xfc, 0x9e, 0x27, 0x95, 0xfb, 0x75, 0xff, 0xab, 0x02, 0x82, | ||
439 | 0x01, 0x00, 0x41, 0x2f, 0x44, 0x57, 0x6d, 0x12, 0x17, 0x5b, | ||
440 | 0x32, 0xc6, 0xb7, 0x6c, 0x57, 0x7a, 0x8a, 0x0e, 0x79, 0xef, | ||
441 | 0x72, 0xa8, 0x68, 0xda, 0x2d, 0x38, 0xe4, 0xbb, 0x8d, 0xf6, | ||
442 | 0x02, 0x65, 0xcf, 0x56, 0x13, 0xe1, 0x1a, 0xcb, 0x39, 0x80, | ||
443 | 0xa6, 0xb1, 0x32, 0x03, 0x1e, 0xdd, 0xbb, 0x35, 0xd9, 0xac, | ||
444 | 0x43, 0x89, 0x31, 0x08, 0x90, 0x92, 0x5e, 0x35, 0x3d, 0x7b, | ||
445 | 0x9c, 0x6f, 0x86, 0xcb, 0x17, 0xdd, 0x85, 0xe4, 0xed, 0x35, | ||
446 | 0x08, 0x8e, 0xc1, 0xf4, 0x05, 0xd8, 0x68, 0xc6, 0x63, 0x3c, | ||
447 | 0xf7, 0xff, 0xf7, 0x47, 0x33, 0x39, 0xc5, 0x3e, 0xb7, 0x0e, | ||
448 | 0x58, 0x35, 0x9d, 0x81, 0xea, 0xf8, 0x6a, 0x2c, 0x1c, 0x5a, | ||
449 | 0x68, 0x78, 0x64, 0x11, 0x6b, 0xc1, 0x3e, 0x4e, 0x7a, 0xbd, | ||
450 | 0x84, 0xcb, 0x0f, 0xc2, 0xb6, 0x85, 0x1d, 0xd3, 0x76, 0xc5, | ||
451 | 0x93, 0x6a, 0x69, 0x89, 0x56, 0x34, 0xdc, 0x4a, 0x9b, 0xbc, | ||
452 | 0xff, 0xa8, 0x0d, 0x6e, 0x35, 0x9c, 0x60, 0xa7, 0x23, 0x30, | ||
453 | 0xc7, 0x06, 0x64, 0x39, 0x8b, 0x94, 0x89, 0xee, 0xba, 0x7f, | ||
454 | 0x60, 0x8d, 0xfa, 0xb6, 0x97, 0x76, 0xdc, 0x51, 0x4a, 0x3c, | ||
455 | 0xeb, 0x3a, 0x14, 0x2c, 0x20, 0x60, 0x69, 0x4a, 0x86, 0xfe, | ||
456 | 0x8c, 0x21, 0x84, 0x49, 0x54, 0xb3, 0x20, 0xe1, 0x01, 0x7f, | ||
457 | 0x58, 0xdf, 0x7f, 0xb5, 0x21, 0x51, 0x8c, 0x47, 0x9f, 0x91, | ||
458 | 0xeb, 0x97, 0x3e, 0xf2, 0x54, 0xcf, 0x16, 0x46, 0xf9, 0xd9, | ||
459 | 0xb6, 0xe7, 0x64, 0xc9, 0xd0, 0x54, 0xea, 0x2f, 0xa1, 0xcf, | ||
460 | 0xa5, 0x7f, 0x28, 0x8d, 0x84, 0xec, 0xd5, 0x39, 0x03, 0x76, | ||
461 | 0x5b, 0x2d, 0x8e, 0x43, 0xf2, 0x01, 0x24, 0xc9, 0x6f, 0xc0, | ||
462 | 0xf5, 0x69, 0x6f, 0x7d, 0xb5, 0x85, 0xd2, 0x5f, 0x7f, 0x78, | ||
463 | 0x40, 0x07, 0x7f, 0x09, 0x15, 0xb5, 0x1f, 0x28, 0x65, 0x10, | ||
464 | 0xe4, 0x19, 0xa8, 0xc6, 0x9e, 0x8d, 0xdc, 0xcb, 0x02, 0x82, | ||
465 | 0x01, 0x00, 0x13, 0x01, 0xee, 0x56, 0x80, 0x93, 0x70, 0x00, | ||
466 | 0x7f, 0x52, 0xd2, 0x94, 0xa1, 0x98, 0x84, 0x4a, 0x92, 0x25, | ||
467 | 0x4c, 0x9b, 0xa9, 0x91, 0x2e, 0xc2, 0x79, 0xb7, 0x5c, 0xe3, | ||
468 | 0xc5, 0xd5, 0x8e, 0xc2, 0x54, 0x16, 0x17, 0xad, 0x55, 0x9b, | ||
469 | 0x25, 0x76, 0x12, 0x63, 0x50, 0x22, 0x2f, 0x58, 0x58, 0x79, | ||
470 | 0x6b, 0x04, 0xe3, 0xf9, 0x9f, 0x8f, 0x04, 0x41, 0x67, 0x94, | ||
471 | 0xa5, 0x1f, 0xac, 0x8a, 0x15, 0x9c, 0x26, 0x10, 0x6c, 0xf8, | ||
472 | 0x19, 0x57, 0x61, 0xd7, 0x3a, 0x7d, 0x31, 0xb0, 0x2d, 0x38, | ||
473 | 0xbd, 0x94, 0x62, 0xad, 0xc4, 0xfa, 0x36, 0x42, 0x42, 0xf0, | ||
474 | 0x24, 0x67, 0x65, 0x9d, 0x8b, 0x0b, 0x7c, 0x6f, 0x82, 0x44, | ||
475 | 0x1a, 0x8c, 0xc8, 0xc9, 0xab, 0xbb, 0x4c, 0x45, 0xfc, 0x7b, | ||
476 | 0x38, 0xee, 0x30, 0xe1, 0xfc, 0xef, 0x8d, 0xbc, 0x58, 0xdf, | ||
477 | 0x2b, 0x5d, 0x0d, 0x54, 0xe0, 0x49, 0x4d, 0x97, 0x99, 0x8f, | ||
478 | 0x22, 0xa8, 0x83, 0xbe, 0x40, 0xbb, 0x50, 0x2e, 0x78, 0x28, | ||
479 | 0x0f, 0x95, 0x78, 0x8c, 0x8f, 0x98, 0x24, 0x56, 0xc2, 0x97, | ||
480 | 0xf3, 0x2c, 0x43, 0xd2, 0x03, 0x82, 0x66, 0x81, 0x72, 0x5f, | ||
481 | 0x53, 0x16, 0xec, 0xb1, 0xb1, 0x04, 0x5e, 0x40, 0x20, 0x48, | ||
482 | 0x7b, 0x3f, 0x02, 0x97, 0x6a, 0xeb, 0x96, 0x12, 0x21, 0x35, | ||
483 | 0xfe, 0x1f, 0x47, 0xc0, 0x95, 0xea, 0xc5, 0x8a, 0x08, 0x84, | ||
484 | 0x4f, 0x5e, 0x63, 0x94, 0x60, 0x0f, 0x71, 0x5b, 0x7f, 0x4a, | ||
485 | 0xec, 0x4f, 0x60, 0xc6, 0xba, 0x4a, 0x24, 0xf1, 0x20, 0x8b, | ||
486 | 0xa7, 0x2e, 0x3a, 0xce, 0x8d, 0xe0, 0x27, 0x1d, 0xb5, 0x8e, | ||
487 | 0xb4, 0x21, 0xc5, 0xe2, 0xa6, 0x16, 0x0a, 0x51, 0x83, 0x55, | ||
488 | 0x88, 0xd1, 0x30, 0x11, 0x63, 0xd5, 0xd7, 0x8d, 0xae, 0x16, | ||
489 | 0x12, 0x82, 0xc4, 0x85, 0x00, 0x4e, 0x27, 0x83, 0xa5, 0x7c, | ||
490 | 0x90, 0x2e, 0xe5, 0xa2, 0xa3, 0xd3, 0x4c, 0x63, 0x02, 0x82, | ||
491 | 0x01, 0x01, 0x00, 0x86, 0x08, 0x98, 0x98, 0xa5, 0x00, 0x05, | ||
492 | 0x39, 0x77, 0xd9, 0x66, 0xb3, 0xcf, 0xca, 0xa0, 0x71, 0xb3, | ||
493 | 0x50, 0xce, 0x3d, 0xb1, 0x93, 0x95, 0x35, 0xc4, 0xd4, 0x2e, | ||
494 | 0x90, 0xdf, 0x0f, 0xfc, 0x60, 0xc1, 0x94, 0x68, 0x61, 0x43, | ||
495 | 0xca, 0x9a, 0x23, 0x4a, 0x1e, 0x45, 0x72, 0x99, 0xb5, 0x1e, | ||
496 | 0x61, 0x8d, 0x77, 0x0f, 0xa0, 0xbb, 0xd7, 0x77, 0xb4, 0x2a, | ||
497 | 0x15, 0x11, 0x88, 0x2d, 0xb3, 0x56, 0x61, 0x5e, 0x6a, 0xed, | ||
498 | 0xa4, 0x46, 0x4a, 0x3f, 0x50, 0x11, 0xd6, 0xba, 0xb6, 0xd7, | ||
499 | 0x95, 0x65, 0x53, 0xc3, 0xa1, 0x8f, 0xe0, 0xa3, 0xf5, 0x1c, | ||
500 | 0xfd, 0xaf, 0x6e, 0x43, 0xd7, 0x17, 0xa7, 0xd3, 0x81, 0x1b, | ||
501 | 0xa4, 0xdf, 0xe0, 0x97, 0x8a, 0x46, 0x03, 0xd3, 0x46, 0x0e, | ||
502 | 0x83, 0x48, 0x4e, 0xd2, 0x02, 0xcb, 0xc0, 0xad, 0x79, 0x95, | ||
503 | 0x8c, 0x96, 0xba, 0x40, 0x34, 0x11, 0x71, 0x5e, 0xe9, 0x11, | ||
504 | 0xf9, 0xc5, 0x4a, 0x5e, 0x91, 0x9d, 0xf5, 0x92, 0x4f, 0xeb, | ||
505 | 0xc6, 0x70, 0x02, 0x2d, 0x3d, 0x04, 0xaa, 0xe9, 0x3a, 0x8e, | ||
506 | 0xd5, 0xa8, 0xad, 0xf7, 0xce, 0x0d, 0x16, 0xb2, 0xec, 0x0a, | ||
507 | 0x9c, 0xf5, 0x94, 0x39, 0xb9, 0x8a, 0xfc, 0x1e, 0xf9, 0xcc, | ||
508 | 0xf2, 0x5f, 0x21, 0x31, 0x74, 0x72, 0x6b, 0x64, 0xae, 0x35, | ||
509 | 0x61, 0x8d, 0x0d, 0xcb, 0xe7, 0xda, 0x39, 0xca, 0xf3, 0x21, | ||
510 | 0x66, 0x0b, 0x95, 0xd7, 0x0a, 0x7c, 0xca, 0xa1, 0xa9, 0x5a, | ||
511 | 0xe8, 0xac, 0xe0, 0x71, 0x54, 0xaf, 0x28, 0xcf, 0xd5, 0x70, | ||
512 | 0x89, 0xe0, 0xf3, 0x9e, 0x43, 0x6c, 0x8d, 0x7b, 0x99, 0x01, | ||
513 | 0x68, 0x4d, 0xa1, 0x45, 0x46, 0x0c, 0x43, 0xbc, 0xcc, 0x2c, | ||
514 | 0xdd, 0xc5, 0x46, 0xc8, 0x4e, 0x0e, 0xbe, 0xed, 0xb9, 0x26, | ||
515 | 0xab, 0x2e, 0xdb, 0xeb, 0x8f, 0xff, 0xdb, 0xb0, 0xc6, 0x55, | ||
516 | 0xaf, 0xf8, 0x2a, 0x91, 0x9d, 0x50, 0x44, 0x21, 0x17, | ||
517 | }; | ||
diff --git a/src/usr.bin/openssl/timeouts.h b/src/usr.bin/openssl/timeouts.h new file mode 100644 index 0000000000..dd2f85028d --- /dev/null +++ b/src/usr.bin/openssl/timeouts.h | |||
@@ -0,0 +1,67 @@ | |||
1 | /* $OpenBSD: timeouts.h,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
2 | /* | ||
3 | * DTLS implementation written by Nagendra Modadugu | ||
4 | * (nagendra@cs.stanford.edu) for the OpenSSL project 2005. | ||
5 | */ | ||
6 | /* ==================================================================== | ||
7 | * Copyright (c) 1999-2005 The OpenSSL Project. All rights reserved. | ||
8 | * | ||
9 | * Redistribution and use in source and binary forms, with or without | ||
10 | * modification, are permitted provided that the following conditions | ||
11 | * are met: | ||
12 | * | ||
13 | * 1. Redistributions of source code must retain the above copyright | ||
14 | * notice, this list of conditions and the following disclaimer. | ||
15 | * | ||
16 | * 2. Redistributions in binary form must reproduce the above copyright | ||
17 | * notice, this list of conditions and the following disclaimer in | ||
18 | * the documentation and/or other materials provided with the | ||
19 | * distribution. | ||
20 | * | ||
21 | * 3. All advertising materials mentioning features or use of this | ||
22 | * software must display the following acknowledgment: | ||
23 | * "This product includes software developed by the OpenSSL Project | ||
24 | * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" | ||
25 | * | ||
26 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
27 | * endorse or promote products derived from this software without | ||
28 | * prior written permission. For written permission, please contact | ||
29 | * openssl-core@OpenSSL.org. | ||
30 | * | ||
31 | * 5. Products derived from this software may not be called "OpenSSL" | ||
32 | * nor may "OpenSSL" appear in their names without prior written | ||
33 | * permission of the OpenSSL Project. | ||
34 | * | ||
35 | * 6. Redistributions of any form whatsoever must retain the following | ||
36 | * acknowledgment: | ||
37 | * "This product includes software developed by the OpenSSL Project | ||
38 | * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" | ||
39 | * | ||
40 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
41 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
42 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
43 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
44 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
45 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
46 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
47 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
48 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
49 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
50 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
51 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
52 | * ==================================================================== | ||
53 | * | ||
54 | * This product includes cryptographic software written by Eric Young | ||
55 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
56 | * Hudson (tjh@cryptsoft.com). | ||
57 | * | ||
58 | */ | ||
59 | |||
60 | #ifndef INCLUDED_TIMEOUTS_H | ||
61 | #define INCLUDED_TIMEOUTS_H | ||
62 | |||
63 | /* numbers in us */ | ||
64 | #define DGRAM_RCV_TIMEOUT 250000 | ||
65 | #define DGRAM_SND_TIMEOUT 250000 | ||
66 | |||
67 | #endif /* ! INCLUDED_TIMEOUTS_H */ | ||
diff --git a/src/usr.bin/openssl/ts.c b/src/usr.bin/openssl/ts.c new file mode 100644 index 0000000000..fab79b9cee --- /dev/null +++ b/src/usr.bin/openssl/ts.c | |||
@@ -0,0 +1,1102 @@ | |||
1 | /* $OpenBSD: ts.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
2 | /* Written by Zoltan Glozik (zglozik@stones.com) for the OpenSSL | ||
3 | * project 2002. | ||
4 | */ | ||
5 | /* ==================================================================== | ||
6 | * Copyright (c) 2001 The OpenSSL Project. All rights reserved. | ||
7 | * | ||
8 | * Redistribution and use in source and binary forms, with or without | ||
9 | * modification, are permitted provided that the following conditions | ||
10 | * are met: | ||
11 | * | ||
12 | * 1. Redistributions of source code must retain the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer. | ||
14 | * | ||
15 | * 2. Redistributions in binary form must reproduce the above copyright | ||
16 | * notice, this list of conditions and the following disclaimer in | ||
17 | * the documentation and/or other materials provided with the | ||
18 | * distribution. | ||
19 | * | ||
20 | * 3. All advertising materials mentioning features or use of this | ||
21 | * software must display the following acknowledgment: | ||
22 | * "This product includes software developed by the OpenSSL Project | ||
23 | * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" | ||
24 | * | ||
25 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
26 | * endorse or promote products derived from this software without | ||
27 | * prior written permission. For written permission, please contact | ||
28 | * licensing@OpenSSL.org. | ||
29 | * | ||
30 | * 5. Products derived from this software may not be called "OpenSSL" | ||
31 | * nor may "OpenSSL" appear in their names without prior written | ||
32 | * permission of the OpenSSL Project. | ||
33 | * | ||
34 | * 6. Redistributions of any form whatsoever must retain the following | ||
35 | * acknowledgment: | ||
36 | * "This product includes software developed by the OpenSSL Project | ||
37 | * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" | ||
38 | * | ||
39 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
40 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
41 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
42 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
43 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
44 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
45 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
46 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
47 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
48 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
49 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
50 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
51 | * ==================================================================== | ||
52 | * | ||
53 | * This product includes cryptographic software written by Eric Young | ||
54 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
55 | * Hudson (tjh@cryptsoft.com). | ||
56 | * | ||
57 | */ | ||
58 | |||
59 | #include <stdio.h> | ||
60 | #include <stdlib.h> | ||
61 | #include <string.h> | ||
62 | |||
63 | #include "apps.h" | ||
64 | |||
65 | #include <openssl/bio.h> | ||
66 | #include <openssl/bn.h> | ||
67 | #include <openssl/err.h> | ||
68 | #include <openssl/pem.h> | ||
69 | #include <openssl/rand.h> | ||
70 | #include <openssl/ts.h> | ||
71 | |||
72 | /* Length of the nonce of the request in bits (must be a multiple of 8). */ | ||
73 | #define NONCE_LENGTH 64 | ||
74 | |||
75 | /* Macro definitions for the configuration file. */ | ||
76 | #define ENV_OID_FILE "oid_file" | ||
77 | |||
78 | /* Local function declarations. */ | ||
79 | |||
80 | static ASN1_OBJECT *txt2obj(const char *oid); | ||
81 | static CONF *load_config_file(const char *configfile); | ||
82 | |||
83 | /* Query related functions. */ | ||
84 | static int query_command(const char *data, char *digest, | ||
85 | const EVP_MD * md, const char *policy, int no_nonce, | ||
86 | int cert, const char *in, const char *out, int text); | ||
87 | static BIO *BIO_open_with_default(const char *file, const char *mode, | ||
88 | FILE * default_fp); | ||
89 | static TS_REQ *create_query(BIO * data_bio, char *digest, const EVP_MD * md, | ||
90 | const char *policy, int no_nonce, int cert); | ||
91 | static int create_digest(BIO * input, char *digest, | ||
92 | const EVP_MD * md, unsigned char **md_value); | ||
93 | static ASN1_INTEGER *create_nonce(int bits); | ||
94 | |||
95 | /* Reply related functions. */ | ||
96 | static int reply_command(CONF * conf, char *section, char *engine, | ||
97 | char *queryfile, char *passin, char *inkey, | ||
98 | char *signer, char *chain, const char *policy, | ||
99 | char *in, int token_in, char *out, int token_out, | ||
100 | int text); | ||
101 | static TS_RESP *read_PKCS7(BIO * in_bio); | ||
102 | static TS_RESP *create_response(CONF * conf, const char *section, char *engine, | ||
103 | char *queryfile, char *passin, char *inkey, | ||
104 | char *signer, char *chain, const char *policy); | ||
105 | static ASN1_INTEGER *serial_cb(TS_RESP_CTX * ctx, void *data); | ||
106 | static ASN1_INTEGER *next_serial(const char *serialfile); | ||
107 | static int save_ts_serial(const char *serialfile, ASN1_INTEGER * serial); | ||
108 | |||
109 | /* Verify related functions. */ | ||
110 | static int verify_command(char *data, char *digest, char *queryfile, | ||
111 | char *in, int token_in, | ||
112 | char *ca_path, char *ca_file, char *untrusted); | ||
113 | static TS_VERIFY_CTX *create_verify_ctx(char *data, char *digest, | ||
114 | char *queryfile, | ||
115 | char *ca_path, char *ca_file, | ||
116 | char *untrusted); | ||
117 | static X509_STORE *create_cert_store(char *ca_path, char *ca_file); | ||
118 | static int verify_cb(int ok, X509_STORE_CTX * ctx); | ||
119 | |||
120 | /* Main function definition. */ | ||
121 | int ts_main(int, char **); | ||
122 | |||
123 | int | ||
124 | ts_main(int argc, char **argv) | ||
125 | { | ||
126 | int ret = 1; | ||
127 | char *configfile = NULL; | ||
128 | char *section = NULL; | ||
129 | CONF *conf = NULL; | ||
130 | enum mode { | ||
131 | CMD_NONE, CMD_QUERY, CMD_REPLY, CMD_VERIFY | ||
132 | } mode = CMD_NONE; | ||
133 | char *data = NULL; | ||
134 | char *digest = NULL; | ||
135 | const EVP_MD *md = NULL; | ||
136 | char *policy = NULL; | ||
137 | int no_nonce = 0; | ||
138 | int cert = 0; | ||
139 | char *in = NULL; | ||
140 | char *out = NULL; | ||
141 | int text = 0; | ||
142 | char *queryfile = NULL; | ||
143 | char *passin = NULL; /* Password source. */ | ||
144 | char *password = NULL; /* Password itself. */ | ||
145 | char *inkey = NULL; | ||
146 | char *signer = NULL; | ||
147 | char *chain = NULL; | ||
148 | char *ca_path = NULL; | ||
149 | char *ca_file = NULL; | ||
150 | char *untrusted = NULL; | ||
151 | char *engine = NULL; | ||
152 | /* Input is ContentInfo instead of TimeStampResp. */ | ||
153 | int token_in = 0; | ||
154 | /* Output is ContentInfo instead of TimeStampResp. */ | ||
155 | int token_out = 0; | ||
156 | |||
157 | ERR_load_crypto_strings(); | ||
158 | |||
159 | for (argc--, argv++; argc > 0; argc--, argv++) { | ||
160 | if (strcmp(*argv, "-config") == 0) { | ||
161 | if (argc-- < 1) | ||
162 | goto usage; | ||
163 | configfile = *++argv; | ||
164 | } else if (strcmp(*argv, "-section") == 0) { | ||
165 | if (argc-- < 1) | ||
166 | goto usage; | ||
167 | section = *++argv; | ||
168 | } else if (strcmp(*argv, "-query") == 0) { | ||
169 | if (mode != CMD_NONE) | ||
170 | goto usage; | ||
171 | mode = CMD_QUERY; | ||
172 | } else if (strcmp(*argv, "-data") == 0) { | ||
173 | if (argc-- < 1) | ||
174 | goto usage; | ||
175 | data = *++argv; | ||
176 | } else if (strcmp(*argv, "-digest") == 0) { | ||
177 | if (argc-- < 1) | ||
178 | goto usage; | ||
179 | digest = *++argv; | ||
180 | } else if (strcmp(*argv, "-policy") == 0) { | ||
181 | if (argc-- < 1) | ||
182 | goto usage; | ||
183 | policy = *++argv; | ||
184 | } else if (strcmp(*argv, "-no_nonce") == 0) { | ||
185 | no_nonce = 1; | ||
186 | } else if (strcmp(*argv, "-cert") == 0) { | ||
187 | cert = 1; | ||
188 | } else if (strcmp(*argv, "-in") == 0) { | ||
189 | if (argc-- < 1) | ||
190 | goto usage; | ||
191 | in = *++argv; | ||
192 | } else if (strcmp(*argv, "-token_in") == 0) { | ||
193 | token_in = 1; | ||
194 | } else if (strcmp(*argv, "-out") == 0) { | ||
195 | if (argc-- < 1) | ||
196 | goto usage; | ||
197 | out = *++argv; | ||
198 | } else if (strcmp(*argv, "-token_out") == 0) { | ||
199 | token_out = 1; | ||
200 | } else if (strcmp(*argv, "-text") == 0) { | ||
201 | text = 1; | ||
202 | } else if (strcmp(*argv, "-reply") == 0) { | ||
203 | if (mode != CMD_NONE) | ||
204 | goto usage; | ||
205 | mode = CMD_REPLY; | ||
206 | } else if (strcmp(*argv, "-queryfile") == 0) { | ||
207 | if (argc-- < 1) | ||
208 | goto usage; | ||
209 | queryfile = *++argv; | ||
210 | } else if (strcmp(*argv, "-passin") == 0) { | ||
211 | if (argc-- < 1) | ||
212 | goto usage; | ||
213 | passin = *++argv; | ||
214 | } else if (strcmp(*argv, "-inkey") == 0) { | ||
215 | if (argc-- < 1) | ||
216 | goto usage; | ||
217 | inkey = *++argv; | ||
218 | } else if (strcmp(*argv, "-signer") == 0) { | ||
219 | if (argc-- < 1) | ||
220 | goto usage; | ||
221 | signer = *++argv; | ||
222 | } else if (strcmp(*argv, "-chain") == 0) { | ||
223 | if (argc-- < 1) | ||
224 | goto usage; | ||
225 | chain = *++argv; | ||
226 | } else if (strcmp(*argv, "-verify") == 0) { | ||
227 | if (mode != CMD_NONE) | ||
228 | goto usage; | ||
229 | mode = CMD_VERIFY; | ||
230 | } else if (strcmp(*argv, "-CApath") == 0) { | ||
231 | if (argc-- < 1) | ||
232 | goto usage; | ||
233 | ca_path = *++argv; | ||
234 | } else if (strcmp(*argv, "-CAfile") == 0) { | ||
235 | if (argc-- < 1) | ||
236 | goto usage; | ||
237 | ca_file = *++argv; | ||
238 | } else if (strcmp(*argv, "-untrusted") == 0) { | ||
239 | if (argc-- < 1) | ||
240 | goto usage; | ||
241 | untrusted = *++argv; | ||
242 | } else if (strcmp(*argv, "-engine") == 0) { | ||
243 | if (argc-- < 1) | ||
244 | goto usage; | ||
245 | engine = *++argv; | ||
246 | } else if ((md = EVP_get_digestbyname(*argv + 1)) != NULL) { | ||
247 | /* empty. */ | ||
248 | } else | ||
249 | goto usage; | ||
250 | } | ||
251 | |||
252 | /* Get the password if required. */ | ||
253 | if (mode == CMD_REPLY && passin && | ||
254 | !app_passwd(bio_err, passin, NULL, &password, NULL)) { | ||
255 | BIO_printf(bio_err, "Error getting password.\n"); | ||
256 | goto cleanup; | ||
257 | } | ||
258 | /* | ||
259 | * Check consistency of parameters and execute the appropriate | ||
260 | * function. | ||
261 | */ | ||
262 | switch (mode) { | ||
263 | case CMD_NONE: | ||
264 | goto usage; | ||
265 | case CMD_QUERY: | ||
266 | /* | ||
267 | * Data file and message imprint cannot be specified at the | ||
268 | * same time. | ||
269 | */ | ||
270 | ret = data != NULL && digest != NULL; | ||
271 | if (ret) | ||
272 | goto usage; | ||
273 | /* Load the config file for possible policy OIDs. */ | ||
274 | conf = load_config_file(configfile); | ||
275 | ret = !query_command(data, digest, md, policy, no_nonce, cert, | ||
276 | in, out, text); | ||
277 | break; | ||
278 | case CMD_REPLY: | ||
279 | conf = load_config_file(configfile); | ||
280 | if (in == NULL) { | ||
281 | ret = !(queryfile != NULL && conf != NULL && !token_in); | ||
282 | if (ret) | ||
283 | goto usage; | ||
284 | } else { | ||
285 | /* 'in' and 'queryfile' are exclusive. */ | ||
286 | ret = !(queryfile == NULL); | ||
287 | if (ret) | ||
288 | goto usage; | ||
289 | } | ||
290 | |||
291 | ret = !reply_command(conf, section, engine, queryfile, | ||
292 | password, inkey, signer, chain, policy, | ||
293 | in, token_in, out, token_out, text); | ||
294 | break; | ||
295 | case CMD_VERIFY: | ||
296 | ret = !(((queryfile && !data && !digest) || | ||
297 | (!queryfile && data && !digest) || | ||
298 | (!queryfile && !data && digest)) && in != NULL); | ||
299 | if (ret) | ||
300 | goto usage; | ||
301 | |||
302 | ret = !verify_command(data, digest, queryfile, in, token_in, | ||
303 | ca_path, ca_file, untrusted); | ||
304 | } | ||
305 | |||
306 | goto cleanup; | ||
307 | |||
308 | usage: | ||
309 | BIO_printf(bio_err, "usage:\n" | ||
310 | "ts -query [-config configfile] " | ||
311 | "[-data file_to_hash] [-digest digest_bytes]" | ||
312 | "[-md2|-md4|-md5|-sha|-sha1|-mdc2|-ripemd160] " | ||
313 | "[-policy object_id] [-no_nonce] [-cert] " | ||
314 | "[-in request.tsq] [-out request.tsq] [-text]\n"); | ||
315 | BIO_printf(bio_err, "or\n" | ||
316 | "ts -reply [-config configfile] [-section tsa_section] " | ||
317 | "[-queryfile request.tsq] [-passin password] " | ||
318 | "[-signer tsa_cert.pem] [-inkey private_key.pem] " | ||
319 | "[-chain certs_file.pem] [-policy object_id] " | ||
320 | "[-in response.tsr] [-token_in] " | ||
321 | "[-out response.tsr] [-token_out] [-text] [-engine id]\n"); | ||
322 | BIO_printf(bio_err, "or\n" | ||
323 | "ts -verify [-data file_to_hash] [-digest digest_bytes] " | ||
324 | "[-queryfile request.tsq] " | ||
325 | "-in response.tsr [-token_in] " | ||
326 | "-CApath ca_path -CAfile ca_file.pem " | ||
327 | "-untrusted cert_file.pem\n"); | ||
328 | |||
329 | cleanup: | ||
330 | /* Clean up. */ | ||
331 | NCONF_free(conf); | ||
332 | free(password); | ||
333 | OBJ_cleanup(); | ||
334 | |||
335 | return (ret); | ||
336 | } | ||
337 | |||
338 | /* | ||
339 | * Configuration file-related function definitions. | ||
340 | */ | ||
341 | |||
342 | static ASN1_OBJECT * | ||
343 | txt2obj(const char *oid) | ||
344 | { | ||
345 | ASN1_OBJECT *oid_obj = NULL; | ||
346 | |||
347 | if (!(oid_obj = OBJ_txt2obj(oid, 0))) | ||
348 | BIO_printf(bio_err, "cannot convert %s to OID\n", oid); | ||
349 | |||
350 | return oid_obj; | ||
351 | } | ||
352 | |||
353 | static CONF * | ||
354 | load_config_file(const char *configfile) | ||
355 | { | ||
356 | CONF *conf = NULL; | ||
357 | long errorline = -1; | ||
358 | |||
359 | if (!configfile) | ||
360 | configfile = getenv("OPENSSL_CONF"); | ||
361 | if (!configfile) | ||
362 | configfile = getenv("SSLEAY_CONF"); | ||
363 | |||
364 | if (configfile && | ||
365 | (!(conf = NCONF_new(NULL)) || | ||
366 | NCONF_load(conf, configfile, &errorline) <= 0)) { | ||
367 | if (errorline <= 0) | ||
368 | BIO_printf(bio_err, "error loading the config file " | ||
369 | "'%s'\n", configfile); | ||
370 | else | ||
371 | BIO_printf(bio_err, "error on line %ld of config file " | ||
372 | "'%s'\n", errorline, configfile); | ||
373 | } | ||
374 | if (conf != NULL) { | ||
375 | const char *p; | ||
376 | |||
377 | BIO_printf(bio_err, "Using configuration from %s\n", | ||
378 | configfile); | ||
379 | p = NCONF_get_string(conf, NULL, ENV_OID_FILE); | ||
380 | if (p != NULL) { | ||
381 | BIO *oid_bio = BIO_new_file(p, "r"); | ||
382 | if (!oid_bio) | ||
383 | ERR_print_errors(bio_err); | ||
384 | else { | ||
385 | OBJ_create_objects(oid_bio); | ||
386 | BIO_free_all(oid_bio); | ||
387 | } | ||
388 | } else | ||
389 | ERR_clear_error(); | ||
390 | if (!add_oid_section(bio_err, conf)) | ||
391 | ERR_print_errors(bio_err); | ||
392 | } | ||
393 | return conf; | ||
394 | } | ||
395 | |||
396 | /* | ||
397 | * Query-related method definitions. | ||
398 | */ | ||
399 | |||
400 | static int | ||
401 | query_command(const char *data, char *digest, const EVP_MD * md, | ||
402 | const char *policy, int no_nonce, int cert, const char *in, | ||
403 | const char *out, int text) | ||
404 | { | ||
405 | int ret = 0; | ||
406 | TS_REQ *query = NULL; | ||
407 | BIO *in_bio = NULL; | ||
408 | BIO *data_bio = NULL; | ||
409 | BIO *out_bio = NULL; | ||
410 | |||
411 | /* Build query object either from file or from scratch. */ | ||
412 | if (in != NULL) { | ||
413 | if ((in_bio = BIO_new_file(in, "rb")) == NULL) | ||
414 | goto end; | ||
415 | query = d2i_TS_REQ_bio(in_bio, NULL); | ||
416 | } else { | ||
417 | /* Open the file if no explicit digest bytes were specified. */ | ||
418 | if (!digest && | ||
419 | !(data_bio = BIO_open_with_default(data, "rb", stdin))) | ||
420 | goto end; | ||
421 | /* Creating the query object. */ | ||
422 | query = create_query(data_bio, digest, md, | ||
423 | policy, no_nonce, cert); | ||
424 | /* Saving the random number generator state. */ | ||
425 | } | ||
426 | if (query == NULL) | ||
427 | goto end; | ||
428 | |||
429 | /* Write query either in ASN.1 or in text format. */ | ||
430 | if ((out_bio = BIO_open_with_default(out, "wb", stdout)) == NULL) | ||
431 | goto end; | ||
432 | if (text) { | ||
433 | /* Text output. */ | ||
434 | if (!TS_REQ_print_bio(out_bio, query)) | ||
435 | goto end; | ||
436 | } else { | ||
437 | /* ASN.1 output. */ | ||
438 | if (!i2d_TS_REQ_bio(out_bio, query)) | ||
439 | goto end; | ||
440 | } | ||
441 | |||
442 | ret = 1; | ||
443 | |||
444 | end: | ||
445 | ERR_print_errors(bio_err); | ||
446 | |||
447 | /* Clean up. */ | ||
448 | BIO_free_all(in_bio); | ||
449 | BIO_free_all(data_bio); | ||
450 | BIO_free_all(out_bio); | ||
451 | TS_REQ_free(query); | ||
452 | |||
453 | return ret; | ||
454 | } | ||
455 | |||
456 | static BIO * | ||
457 | BIO_open_with_default(const char *file, const char *mode, FILE * default_fp) | ||
458 | { | ||
459 | return file == NULL ? BIO_new_fp(default_fp, BIO_NOCLOSE) : | ||
460 | BIO_new_file(file, mode); | ||
461 | } | ||
462 | |||
463 | static TS_REQ * | ||
464 | create_query(BIO * data_bio, char *digest, const EVP_MD * md, | ||
465 | const char *policy, int no_nonce, int cert) | ||
466 | { | ||
467 | int ret = 0; | ||
468 | TS_REQ *ts_req = NULL; | ||
469 | int len; | ||
470 | TS_MSG_IMPRINT *msg_imprint = NULL; | ||
471 | X509_ALGOR *algo = NULL; | ||
472 | unsigned char *data = NULL; | ||
473 | ASN1_OBJECT *policy_obj = NULL; | ||
474 | ASN1_INTEGER *nonce_asn1 = NULL; | ||
475 | |||
476 | /* Setting default message digest. */ | ||
477 | if (!md && !(md = EVP_get_digestbyname("sha1"))) | ||
478 | goto err; | ||
479 | |||
480 | /* Creating request object. */ | ||
481 | if (!(ts_req = TS_REQ_new())) | ||
482 | goto err; | ||
483 | |||
484 | /* Setting version. */ | ||
485 | if (!TS_REQ_set_version(ts_req, 1)) | ||
486 | goto err; | ||
487 | |||
488 | /* Creating and adding MSG_IMPRINT object. */ | ||
489 | if (!(msg_imprint = TS_MSG_IMPRINT_new())) | ||
490 | goto err; | ||
491 | |||
492 | /* Adding algorithm. */ | ||
493 | if (!(algo = X509_ALGOR_new())) | ||
494 | goto err; | ||
495 | if (!(algo->algorithm = OBJ_nid2obj(EVP_MD_type(md)))) | ||
496 | goto err; | ||
497 | if (!(algo->parameter = ASN1_TYPE_new())) | ||
498 | goto err; | ||
499 | algo->parameter->type = V_ASN1_NULL; | ||
500 | if (!TS_MSG_IMPRINT_set_algo(msg_imprint, algo)) | ||
501 | goto err; | ||
502 | |||
503 | /* Adding message digest. */ | ||
504 | if ((len = create_digest(data_bio, digest, md, &data)) == 0) | ||
505 | goto err; | ||
506 | if (!TS_MSG_IMPRINT_set_msg(msg_imprint, data, len)) | ||
507 | goto err; | ||
508 | |||
509 | if (!TS_REQ_set_msg_imprint(ts_req, msg_imprint)) | ||
510 | goto err; | ||
511 | |||
512 | /* Setting policy if requested. */ | ||
513 | if (policy && !(policy_obj = txt2obj(policy))) | ||
514 | goto err; | ||
515 | if (policy_obj && !TS_REQ_set_policy_id(ts_req, policy_obj)) | ||
516 | goto err; | ||
517 | |||
518 | /* Setting nonce if requested. */ | ||
519 | if (!no_nonce && !(nonce_asn1 = create_nonce(NONCE_LENGTH))) | ||
520 | goto err; | ||
521 | if (nonce_asn1 && !TS_REQ_set_nonce(ts_req, nonce_asn1)) | ||
522 | goto err; | ||
523 | |||
524 | /* Setting certificate request flag if requested. */ | ||
525 | if (!TS_REQ_set_cert_req(ts_req, cert)) | ||
526 | goto err; | ||
527 | |||
528 | ret = 1; | ||
529 | |||
530 | err: | ||
531 | if (!ret) { | ||
532 | TS_REQ_free(ts_req); | ||
533 | ts_req = NULL; | ||
534 | BIO_printf(bio_err, "could not create query\n"); | ||
535 | } | ||
536 | TS_MSG_IMPRINT_free(msg_imprint); | ||
537 | X509_ALGOR_free(algo); | ||
538 | free(data); | ||
539 | ASN1_OBJECT_free(policy_obj); | ||
540 | ASN1_INTEGER_free(nonce_asn1); | ||
541 | |||
542 | return ts_req; | ||
543 | } | ||
544 | |||
545 | static int | ||
546 | create_digest(BIO * input, char *digest, const EVP_MD * md, | ||
547 | unsigned char **md_value) | ||
548 | { | ||
549 | int md_value_len; | ||
550 | |||
551 | md_value_len = EVP_MD_size(md); | ||
552 | if (md_value_len < 0) | ||
553 | goto err; | ||
554 | if (input) { | ||
555 | /* Digest must be computed from an input file. */ | ||
556 | EVP_MD_CTX md_ctx; | ||
557 | unsigned char buffer[4096]; | ||
558 | int length; | ||
559 | |||
560 | *md_value = malloc(md_value_len); | ||
561 | if (*md_value == 0) | ||
562 | goto err; | ||
563 | |||
564 | EVP_DigestInit(&md_ctx, md); | ||
565 | while ((length = BIO_read(input, buffer, sizeof(buffer))) > 0) { | ||
566 | EVP_DigestUpdate(&md_ctx, buffer, length); | ||
567 | } | ||
568 | EVP_DigestFinal(&md_ctx, *md_value, NULL); | ||
569 | } else { | ||
570 | /* Digest bytes are specified with digest. */ | ||
571 | long digest_len; | ||
572 | *md_value = string_to_hex(digest, &digest_len); | ||
573 | if (!*md_value || md_value_len != digest_len) { | ||
574 | free(*md_value); | ||
575 | *md_value = NULL; | ||
576 | BIO_printf(bio_err, "bad digest, %d bytes " | ||
577 | "must be specified\n", md_value_len); | ||
578 | goto err; | ||
579 | } | ||
580 | } | ||
581 | |||
582 | return md_value_len; | ||
583 | err: | ||
584 | return 0; | ||
585 | } | ||
586 | |||
587 | static ASN1_INTEGER * | ||
588 | create_nonce(int bits) | ||
589 | { | ||
590 | unsigned char buf[20]; | ||
591 | ASN1_INTEGER *nonce = NULL; | ||
592 | int len = (bits - 1) / 8 + 1; | ||
593 | int i; | ||
594 | |||
595 | /* Generating random byte sequence. */ | ||
596 | if (len > (int) sizeof(buf)) | ||
597 | goto err; | ||
598 | if (RAND_bytes(buf, len) <= 0) | ||
599 | goto err; | ||
600 | |||
601 | /* Find the first non-zero byte and creating ASN1_INTEGER object. */ | ||
602 | for (i = 0; i < len && !buf[i]; ++i) | ||
603 | ; | ||
604 | if (!(nonce = ASN1_INTEGER_new())) | ||
605 | goto err; | ||
606 | free(nonce->data); | ||
607 | /* Allocate at least one byte. */ | ||
608 | nonce->length = len - i; | ||
609 | if (!(nonce->data = malloc(nonce->length + 1))) | ||
610 | goto err; | ||
611 | memcpy(nonce->data, buf + i, nonce->length); | ||
612 | |||
613 | return nonce; | ||
614 | |||
615 | err: | ||
616 | BIO_printf(bio_err, "could not create nonce\n"); | ||
617 | ASN1_INTEGER_free(nonce); | ||
618 | return NULL; | ||
619 | } | ||
620 | /* | ||
621 | * Reply-related method definitions. | ||
622 | */ | ||
623 | |||
624 | static int | ||
625 | reply_command(CONF * conf, char *section, char *engine, char *queryfile, | ||
626 | char *passin, char *inkey, char *signer, char *chain, const char *policy, | ||
627 | char *in, int token_in, char *out, int token_out, int text) | ||
628 | { | ||
629 | int ret = 0; | ||
630 | TS_RESP *response = NULL; | ||
631 | BIO *in_bio = NULL; | ||
632 | BIO *query_bio = NULL; | ||
633 | BIO *inkey_bio = NULL; | ||
634 | BIO *signer_bio = NULL; | ||
635 | BIO *out_bio = NULL; | ||
636 | |||
637 | /* Build response object either from response or query. */ | ||
638 | if (in != NULL) { | ||
639 | if ((in_bio = BIO_new_file(in, "rb")) == NULL) | ||
640 | goto end; | ||
641 | if (token_in) { | ||
642 | /* | ||
643 | * We have a ContentInfo (PKCS7) object, add | ||
644 | * 'granted' status info around it. | ||
645 | */ | ||
646 | response = read_PKCS7(in_bio); | ||
647 | } else { | ||
648 | /* We have a ready-made TS_RESP object. */ | ||
649 | response = d2i_TS_RESP_bio(in_bio, NULL); | ||
650 | } | ||
651 | } else { | ||
652 | response = create_response(conf, section, engine, queryfile, | ||
653 | passin, inkey, signer, chain, | ||
654 | policy); | ||
655 | if (response) | ||
656 | BIO_printf(bio_err, "Response has been generated.\n"); | ||
657 | else | ||
658 | BIO_printf(bio_err, "Response is not generated.\n"); | ||
659 | } | ||
660 | if (response == NULL) | ||
661 | goto end; | ||
662 | |||
663 | /* Write response either in ASN.1 or text format. */ | ||
664 | if ((out_bio = BIO_open_with_default(out, "wb", stdout)) == NULL) | ||
665 | goto end; | ||
666 | if (text) { | ||
667 | /* Text output. */ | ||
668 | if (token_out) { | ||
669 | TS_TST_INFO *tst_info = TS_RESP_get_tst_info(response); | ||
670 | if (!TS_TST_INFO_print_bio(out_bio, tst_info)) | ||
671 | goto end; | ||
672 | } else { | ||
673 | if (!TS_RESP_print_bio(out_bio, response)) | ||
674 | goto end; | ||
675 | } | ||
676 | } else { | ||
677 | /* ASN.1 DER output. */ | ||
678 | if (token_out) { | ||
679 | PKCS7 *token = TS_RESP_get_token(response); | ||
680 | if (!i2d_PKCS7_bio(out_bio, token)) | ||
681 | goto end; | ||
682 | } else { | ||
683 | if (!i2d_TS_RESP_bio(out_bio, response)) | ||
684 | goto end; | ||
685 | } | ||
686 | } | ||
687 | |||
688 | ret = 1; | ||
689 | |||
690 | end: | ||
691 | ERR_print_errors(bio_err); | ||
692 | |||
693 | /* Clean up. */ | ||
694 | BIO_free_all(in_bio); | ||
695 | BIO_free_all(query_bio); | ||
696 | BIO_free_all(inkey_bio); | ||
697 | BIO_free_all(signer_bio); | ||
698 | BIO_free_all(out_bio); | ||
699 | TS_RESP_free(response); | ||
700 | |||
701 | return ret; | ||
702 | } | ||
703 | |||
704 | /* Reads a PKCS7 token and adds default 'granted' status info to it. */ | ||
705 | static TS_RESP * | ||
706 | read_PKCS7(BIO * in_bio) | ||
707 | { | ||
708 | int ret = 0; | ||
709 | PKCS7 *token = NULL; | ||
710 | TS_TST_INFO *tst_info = NULL; | ||
711 | TS_RESP *resp = NULL; | ||
712 | TS_STATUS_INFO *si = NULL; | ||
713 | |||
714 | /* Read PKCS7 object and extract the signed time stamp info. */ | ||
715 | if (!(token = d2i_PKCS7_bio(in_bio, NULL))) | ||
716 | goto end; | ||
717 | if (!(tst_info = PKCS7_to_TS_TST_INFO(token))) | ||
718 | goto end; | ||
719 | |||
720 | /* Creating response object. */ | ||
721 | if (!(resp = TS_RESP_new())) | ||
722 | goto end; | ||
723 | |||
724 | /* Create granted status info. */ | ||
725 | if (!(si = TS_STATUS_INFO_new())) | ||
726 | goto end; | ||
727 | if (!(ASN1_INTEGER_set(si->status, TS_STATUS_GRANTED))) | ||
728 | goto end; | ||
729 | if (!TS_RESP_set_status_info(resp, si)) | ||
730 | goto end; | ||
731 | |||
732 | /* Setting encapsulated token. */ | ||
733 | TS_RESP_set_tst_info(resp, token, tst_info); | ||
734 | token = NULL; /* Ownership is lost. */ | ||
735 | tst_info = NULL; /* Ownership is lost. */ | ||
736 | |||
737 | ret = 1; | ||
738 | end: | ||
739 | PKCS7_free(token); | ||
740 | TS_TST_INFO_free(tst_info); | ||
741 | if (!ret) { | ||
742 | TS_RESP_free(resp); | ||
743 | resp = NULL; | ||
744 | } | ||
745 | TS_STATUS_INFO_free(si); | ||
746 | return resp; | ||
747 | } | ||
748 | |||
749 | static TS_RESP * | ||
750 | create_response(CONF * conf, const char *section, char *engine, | ||
751 | char *queryfile, char *passin, char *inkey, | ||
752 | char *signer, char *chain, const char *policy) | ||
753 | { | ||
754 | int ret = 0; | ||
755 | TS_RESP *response = NULL; | ||
756 | BIO *query_bio = NULL; | ||
757 | TS_RESP_CTX *resp_ctx = NULL; | ||
758 | |||
759 | if (!(query_bio = BIO_new_file(queryfile, "rb"))) | ||
760 | goto end; | ||
761 | |||
762 | /* Getting TSA configuration section. */ | ||
763 | if (!(section = TS_CONF_get_tsa_section(conf, section))) | ||
764 | goto end; | ||
765 | |||
766 | /* Setting up response generation context. */ | ||
767 | if (!(resp_ctx = TS_RESP_CTX_new())) | ||
768 | goto end; | ||
769 | |||
770 | /* Setting serial number provider callback. */ | ||
771 | if (!TS_CONF_set_serial(conf, section, serial_cb, resp_ctx)) | ||
772 | goto end; | ||
773 | #ifndef OPENSSL_NO_ENGINE | ||
774 | /* Setting default OpenSSL engine. */ | ||
775 | if (!TS_CONF_set_crypto_device(conf, section, engine)) | ||
776 | goto end; | ||
777 | #endif | ||
778 | |||
779 | /* Setting TSA signer certificate. */ | ||
780 | if (!TS_CONF_set_signer_cert(conf, section, signer, resp_ctx)) | ||
781 | goto end; | ||
782 | |||
783 | /* Setting TSA signer certificate chain. */ | ||
784 | if (!TS_CONF_set_certs(conf, section, chain, resp_ctx)) | ||
785 | goto end; | ||
786 | |||
787 | /* Setting TSA signer private key. */ | ||
788 | if (!TS_CONF_set_signer_key(conf, section, inkey, passin, resp_ctx)) | ||
789 | goto end; | ||
790 | |||
791 | /* Setting default policy OID. */ | ||
792 | if (!TS_CONF_set_def_policy(conf, section, policy, resp_ctx)) | ||
793 | goto end; | ||
794 | |||
795 | /* Setting acceptable policy OIDs. */ | ||
796 | if (!TS_CONF_set_policies(conf, section, resp_ctx)) | ||
797 | goto end; | ||
798 | |||
799 | /* Setting the acceptable one-way hash algorithms. */ | ||
800 | if (!TS_CONF_set_digests(conf, section, resp_ctx)) | ||
801 | goto end; | ||
802 | |||
803 | /* Setting guaranteed time stamp accuracy. */ | ||
804 | if (!TS_CONF_set_accuracy(conf, section, resp_ctx)) | ||
805 | goto end; | ||
806 | |||
807 | /* Setting the precision of the time. */ | ||
808 | if (!TS_CONF_set_clock_precision_digits(conf, section, resp_ctx)) | ||
809 | goto end; | ||
810 | |||
811 | /* Setting the ordering flaf if requested. */ | ||
812 | if (!TS_CONF_set_ordering(conf, section, resp_ctx)) | ||
813 | goto end; | ||
814 | |||
815 | /* Setting the TSA name required flag if requested. */ | ||
816 | if (!TS_CONF_set_tsa_name(conf, section, resp_ctx)) | ||
817 | goto end; | ||
818 | |||
819 | /* Setting the ESS cert id chain flag if requested. */ | ||
820 | if (!TS_CONF_set_ess_cert_id_chain(conf, section, resp_ctx)) | ||
821 | goto end; | ||
822 | |||
823 | /* Creating the response. */ | ||
824 | if (!(response = TS_RESP_create_response(resp_ctx, query_bio))) | ||
825 | goto end; | ||
826 | |||
827 | ret = 1; | ||
828 | end: | ||
829 | if (!ret) { | ||
830 | TS_RESP_free(response); | ||
831 | response = NULL; | ||
832 | } | ||
833 | TS_RESP_CTX_free(resp_ctx); | ||
834 | BIO_free_all(query_bio); | ||
835 | |||
836 | return response; | ||
837 | } | ||
838 | |||
839 | static ASN1_INTEGER * | ||
840 | serial_cb(TS_RESP_CTX * ctx, void *data) | ||
841 | { | ||
842 | const char *serial_file = (const char *) data; | ||
843 | ASN1_INTEGER *serial = next_serial(serial_file); | ||
844 | |||
845 | if (!serial) { | ||
846 | TS_RESP_CTX_set_status_info(ctx, TS_STATUS_REJECTION, | ||
847 | "Error during serial number " | ||
848 | "generation."); | ||
849 | TS_RESP_CTX_add_failure_info(ctx, | ||
850 | TS_INFO_ADD_INFO_NOT_AVAILABLE); | ||
851 | } else | ||
852 | save_ts_serial(serial_file, serial); | ||
853 | |||
854 | return serial; | ||
855 | } | ||
856 | |||
857 | static ASN1_INTEGER * | ||
858 | next_serial(const char *serialfile) | ||
859 | { | ||
860 | int ret = 0; | ||
861 | BIO *in = NULL; | ||
862 | ASN1_INTEGER *serial = NULL; | ||
863 | BIGNUM *bn = NULL; | ||
864 | |||
865 | if (!(serial = ASN1_INTEGER_new())) | ||
866 | goto err; | ||
867 | |||
868 | if (!(in = BIO_new_file(serialfile, "r"))) { | ||
869 | ERR_clear_error(); | ||
870 | BIO_printf(bio_err, "Warning: could not open file %s for " | ||
871 | "reading, using serial number: 1\n", serialfile); | ||
872 | if (!ASN1_INTEGER_set(serial, 1)) | ||
873 | goto err; | ||
874 | } else { | ||
875 | char buf[1024]; | ||
876 | if (!a2i_ASN1_INTEGER(in, serial, buf, sizeof(buf))) { | ||
877 | BIO_printf(bio_err, "unable to load number from %s\n", | ||
878 | serialfile); | ||
879 | goto err; | ||
880 | } | ||
881 | if (!(bn = ASN1_INTEGER_to_BN(serial, NULL))) | ||
882 | goto err; | ||
883 | ASN1_INTEGER_free(serial); | ||
884 | serial = NULL; | ||
885 | if (!BN_add_word(bn, 1)) | ||
886 | goto err; | ||
887 | if (!(serial = BN_to_ASN1_INTEGER(bn, NULL))) | ||
888 | goto err; | ||
889 | } | ||
890 | ret = 1; | ||
891 | err: | ||
892 | if (!ret) { | ||
893 | ASN1_INTEGER_free(serial); | ||
894 | serial = NULL; | ||
895 | } | ||
896 | BIO_free_all(in); | ||
897 | BN_free(bn); | ||
898 | return serial; | ||
899 | } | ||
900 | |||
901 | static int | ||
902 | save_ts_serial(const char *serialfile, ASN1_INTEGER * serial) | ||
903 | { | ||
904 | int ret = 0; | ||
905 | BIO *out = NULL; | ||
906 | |||
907 | if (!(out = BIO_new_file(serialfile, "w"))) | ||
908 | goto err; | ||
909 | if (i2a_ASN1_INTEGER(out, serial) <= 0) | ||
910 | goto err; | ||
911 | if (BIO_puts(out, "\n") <= 0) | ||
912 | goto err; | ||
913 | ret = 1; | ||
914 | err: | ||
915 | if (!ret) | ||
916 | BIO_printf(bio_err, "could not save serial number to %s\n", | ||
917 | serialfile); | ||
918 | BIO_free_all(out); | ||
919 | return ret; | ||
920 | } | ||
921 | |||
922 | /* | ||
923 | * Verify-related method definitions. | ||
924 | */ | ||
925 | |||
926 | static int | ||
927 | verify_command(char *data, char *digest, char *queryfile, char *in, | ||
928 | int token_in, char *ca_path, char *ca_file, char *untrusted) | ||
929 | { | ||
930 | BIO *in_bio = NULL; | ||
931 | PKCS7 *token = NULL; | ||
932 | TS_RESP *response = NULL; | ||
933 | TS_VERIFY_CTX *verify_ctx = NULL; | ||
934 | int ret = 0; | ||
935 | |||
936 | /* Decode the token (PKCS7) or response (TS_RESP) files. */ | ||
937 | if (!(in_bio = BIO_new_file(in, "rb"))) | ||
938 | goto end; | ||
939 | if (token_in) { | ||
940 | if (!(token = d2i_PKCS7_bio(in_bio, NULL))) | ||
941 | goto end; | ||
942 | } else { | ||
943 | if (!(response = d2i_TS_RESP_bio(in_bio, NULL))) | ||
944 | goto end; | ||
945 | } | ||
946 | |||
947 | if (!(verify_ctx = create_verify_ctx(data, digest, queryfile, | ||
948 | ca_path, ca_file, untrusted))) | ||
949 | goto end; | ||
950 | |||
951 | /* Checking the token or response against the request. */ | ||
952 | ret = token_in ? | ||
953 | TS_RESP_verify_token(verify_ctx, token) : | ||
954 | TS_RESP_verify_response(verify_ctx, response); | ||
955 | |||
956 | end: | ||
957 | printf("Verification: "); | ||
958 | if (ret) | ||
959 | printf("OK\n"); | ||
960 | else { | ||
961 | printf("FAILED\n"); | ||
962 | /* Print errors, if there are any. */ | ||
963 | ERR_print_errors(bio_err); | ||
964 | } | ||
965 | |||
966 | /* Clean up. */ | ||
967 | BIO_free_all(in_bio); | ||
968 | PKCS7_free(token); | ||
969 | TS_RESP_free(response); | ||
970 | TS_VERIFY_CTX_free(verify_ctx); | ||
971 | return ret; | ||
972 | } | ||
973 | |||
974 | static TS_VERIFY_CTX * | ||
975 | create_verify_ctx(char *data, char *digest, char *queryfile, char *ca_path, | ||
976 | char *ca_file, char *untrusted) | ||
977 | { | ||
978 | TS_VERIFY_CTX *ctx = NULL; | ||
979 | BIO *input = NULL; | ||
980 | TS_REQ *request = NULL; | ||
981 | int ret = 0; | ||
982 | |||
983 | if (data != NULL || digest != NULL) { | ||
984 | if (!(ctx = TS_VERIFY_CTX_new())) | ||
985 | goto err; | ||
986 | ctx->flags = TS_VFY_VERSION | TS_VFY_SIGNER; | ||
987 | if (data != NULL) { | ||
988 | ctx->flags |= TS_VFY_DATA; | ||
989 | if (!(ctx->data = BIO_new_file(data, "rb"))) | ||
990 | goto err; | ||
991 | } else if (digest != NULL) { | ||
992 | long imprint_len; | ||
993 | ctx->flags |= TS_VFY_IMPRINT; | ||
994 | if (!(ctx->imprint = string_to_hex(digest, | ||
995 | &imprint_len))) { | ||
996 | BIO_printf(bio_err, "invalid digest string\n"); | ||
997 | goto err; | ||
998 | } | ||
999 | ctx->imprint_len = imprint_len; | ||
1000 | } | ||
1001 | } else if (queryfile != NULL) { | ||
1002 | /* | ||
1003 | * The request has just to be read, decoded and converted to | ||
1004 | * a verify context object. | ||
1005 | */ | ||
1006 | if (!(input = BIO_new_file(queryfile, "rb"))) | ||
1007 | goto err; | ||
1008 | if (!(request = d2i_TS_REQ_bio(input, NULL))) | ||
1009 | goto err; | ||
1010 | if (!(ctx = TS_REQ_to_TS_VERIFY_CTX(request, NULL))) | ||
1011 | goto err; | ||
1012 | } else | ||
1013 | return NULL; | ||
1014 | |||
1015 | /* Add the signature verification flag and arguments. */ | ||
1016 | ctx->flags |= TS_VFY_SIGNATURE; | ||
1017 | |||
1018 | /* Initialising the X509_STORE object. */ | ||
1019 | if (!(ctx->store = create_cert_store(ca_path, ca_file))) | ||
1020 | goto err; | ||
1021 | |||
1022 | /* Loading untrusted certificates. */ | ||
1023 | if (untrusted && !(ctx->certs = TS_CONF_load_certs(untrusted))) | ||
1024 | goto err; | ||
1025 | |||
1026 | ret = 1; | ||
1027 | err: | ||
1028 | if (!ret) { | ||
1029 | TS_VERIFY_CTX_free(ctx); | ||
1030 | ctx = NULL; | ||
1031 | } | ||
1032 | BIO_free_all(input); | ||
1033 | TS_REQ_free(request); | ||
1034 | return ctx; | ||
1035 | } | ||
1036 | |||
1037 | static X509_STORE * | ||
1038 | create_cert_store(char *ca_path, char *ca_file) | ||
1039 | { | ||
1040 | X509_STORE *cert_ctx = NULL; | ||
1041 | X509_LOOKUP *lookup = NULL; | ||
1042 | int i; | ||
1043 | |||
1044 | /* Creating the X509_STORE object. */ | ||
1045 | cert_ctx = X509_STORE_new(); | ||
1046 | |||
1047 | /* Setting the callback for certificate chain verification. */ | ||
1048 | X509_STORE_set_verify_cb(cert_ctx, verify_cb); | ||
1049 | |||
1050 | /* Adding a trusted certificate directory source. */ | ||
1051 | if (ca_path) { | ||
1052 | lookup = X509_STORE_add_lookup(cert_ctx, | ||
1053 | X509_LOOKUP_hash_dir()); | ||
1054 | if (lookup == NULL) { | ||
1055 | BIO_printf(bio_err, "memory allocation failure\n"); | ||
1056 | goto err; | ||
1057 | } | ||
1058 | i = X509_LOOKUP_add_dir(lookup, ca_path, X509_FILETYPE_PEM); | ||
1059 | if (!i) { | ||
1060 | BIO_printf(bio_err, "Error loading directory %s\n", | ||
1061 | ca_path); | ||
1062 | goto err; | ||
1063 | } | ||
1064 | } | ||
1065 | /* Adding a trusted certificate file source. */ | ||
1066 | if (ca_file) { | ||
1067 | lookup = X509_STORE_add_lookup(cert_ctx, X509_LOOKUP_file()); | ||
1068 | if (lookup == NULL) { | ||
1069 | BIO_printf(bio_err, "memory allocation failure\n"); | ||
1070 | goto err; | ||
1071 | } | ||
1072 | i = X509_LOOKUP_load_file(lookup, ca_file, X509_FILETYPE_PEM); | ||
1073 | if (!i) { | ||
1074 | BIO_printf(bio_err, "Error loading file %s\n", ca_file); | ||
1075 | goto err; | ||
1076 | } | ||
1077 | } | ||
1078 | return cert_ctx; | ||
1079 | err: | ||
1080 | X509_STORE_free(cert_ctx); | ||
1081 | return NULL; | ||
1082 | } | ||
1083 | |||
1084 | static int | ||
1085 | verify_cb(int ok, X509_STORE_CTX * ctx) | ||
1086 | { | ||
1087 | /* | ||
1088 | char buf[256]; | ||
1089 | |||
1090 | if (!ok) | ||
1091 | { | ||
1092 | X509_NAME_oneline(X509_get_subject_name(ctx->current_cert), | ||
1093 | buf, sizeof(buf)); | ||
1094 | printf("%s\n", buf); | ||
1095 | printf("error %d at %d depth lookup: %s\n", | ||
1096 | ctx->error, ctx->error_depth, | ||
1097 | X509_verify_cert_error_string(ctx->error)); | ||
1098 | } | ||
1099 | */ | ||
1100 | |||
1101 | return ok; | ||
1102 | } | ||
diff --git a/src/usr.bin/openssl/verify.c b/src/usr.bin/openssl/verify.c new file mode 100644 index 0000000000..057c467372 --- /dev/null +++ b/src/usr.bin/openssl/verify.c | |||
@@ -0,0 +1,339 @@ | |||
1 | /* $OpenBSD: verify.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
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 | |||
63 | #include "apps.h" | ||
64 | |||
65 | #include <openssl/bio.h> | ||
66 | #include <openssl/err.h> | ||
67 | #include <openssl/pem.h> | ||
68 | #include <openssl/x509.h> | ||
69 | #include <openssl/x509v3.h> | ||
70 | |||
71 | static int cb(int ok, X509_STORE_CTX * ctx); | ||
72 | static int check(X509_STORE * ctx, char *file, STACK_OF(X509) * uchain, | ||
73 | STACK_OF(X509) * tchain, STACK_OF(X509_CRL) * crls, ENGINE * e); | ||
74 | static int v_verbose = 0, vflags = 0; | ||
75 | |||
76 | int verify_main(int, char **); | ||
77 | |||
78 | int | ||
79 | verify_main(int argc, char **argv) | ||
80 | { | ||
81 | ENGINE *e = NULL; | ||
82 | int i, ret = 1, badarg = 0; | ||
83 | char *CApath = NULL, *CAfile = NULL; | ||
84 | char *untfile = NULL, *trustfile = NULL, *crlfile = NULL; | ||
85 | STACK_OF(X509) * untrusted = NULL, *trusted = NULL; | ||
86 | STACK_OF(X509_CRL) * crls = NULL; | ||
87 | X509_STORE *cert_ctx = NULL; | ||
88 | X509_LOOKUP *lookup = NULL; | ||
89 | X509_VERIFY_PARAM *vpm = NULL; | ||
90 | #ifndef OPENSSL_NO_ENGINE | ||
91 | char *engine = NULL; | ||
92 | #endif | ||
93 | |||
94 | cert_ctx = X509_STORE_new(); | ||
95 | if (cert_ctx == NULL) | ||
96 | goto end; | ||
97 | X509_STORE_set_verify_cb(cert_ctx, cb); | ||
98 | |||
99 | ERR_load_crypto_strings(); | ||
100 | |||
101 | argc--; | ||
102 | argv++; | ||
103 | for (;;) { | ||
104 | if (argc >= 1) { | ||
105 | if (strcmp(*argv, "-CApath") == 0) { | ||
106 | if (argc-- < 1) | ||
107 | goto end; | ||
108 | CApath = *(++argv); | ||
109 | } else if (strcmp(*argv, "-CAfile") == 0) { | ||
110 | if (argc-- < 1) | ||
111 | goto end; | ||
112 | CAfile = *(++argv); | ||
113 | } else if (args_verify(&argv, &argc, &badarg, bio_err, | ||
114 | &vpm)) { | ||
115 | if (badarg) | ||
116 | goto end; | ||
117 | continue; | ||
118 | } else if (strcmp(*argv, "-untrusted") == 0) { | ||
119 | if (argc-- < 1) | ||
120 | goto end; | ||
121 | untfile = *(++argv); | ||
122 | } else if (strcmp(*argv, "-trusted") == 0) { | ||
123 | if (argc-- < 1) | ||
124 | goto end; | ||
125 | trustfile = *(++argv); | ||
126 | } else if (strcmp(*argv, "-CRLfile") == 0) { | ||
127 | if (argc-- < 1) | ||
128 | goto end; | ||
129 | crlfile = *(++argv); | ||
130 | } | ||
131 | #ifndef OPENSSL_NO_ENGINE | ||
132 | else if (strcmp(*argv, "-engine") == 0) { | ||
133 | if (--argc < 1) | ||
134 | goto end; | ||
135 | engine = *(++argv); | ||
136 | } | ||
137 | #endif | ||
138 | else if (strcmp(*argv, "-help") == 0) | ||
139 | goto end; | ||
140 | else if (strcmp(*argv, "-verbose") == 0) | ||
141 | v_verbose = 1; | ||
142 | else if (argv[0][0] == '-') | ||
143 | goto end; | ||
144 | else | ||
145 | break; | ||
146 | argc--; | ||
147 | argv++; | ||
148 | } else | ||
149 | break; | ||
150 | } | ||
151 | |||
152 | #ifndef OPENSSL_NO_ENGINE | ||
153 | e = setup_engine(bio_err, engine, 0); | ||
154 | #endif | ||
155 | |||
156 | if (vpm) | ||
157 | X509_STORE_set1_param(cert_ctx, vpm); | ||
158 | |||
159 | lookup = X509_STORE_add_lookup(cert_ctx, X509_LOOKUP_file()); | ||
160 | if (lookup == NULL) | ||
161 | abort(); | ||
162 | if (CAfile) { | ||
163 | i = X509_LOOKUP_load_file(lookup, CAfile, X509_FILETYPE_PEM); | ||
164 | if (!i) { | ||
165 | BIO_printf(bio_err, "Error loading file %s\n", CAfile); | ||
166 | ERR_print_errors(bio_err); | ||
167 | goto end; | ||
168 | } | ||
169 | } else | ||
170 | X509_LOOKUP_load_file(lookup, NULL, X509_FILETYPE_DEFAULT); | ||
171 | |||
172 | lookup = X509_STORE_add_lookup(cert_ctx, X509_LOOKUP_hash_dir()); | ||
173 | if (lookup == NULL) | ||
174 | abort(); | ||
175 | if (CApath) { | ||
176 | i = X509_LOOKUP_add_dir(lookup, CApath, X509_FILETYPE_PEM); | ||
177 | if (!i) { | ||
178 | BIO_printf(bio_err, "Error loading directory %s\n", CApath); | ||
179 | ERR_print_errors(bio_err); | ||
180 | goto end; | ||
181 | } | ||
182 | } else | ||
183 | X509_LOOKUP_add_dir(lookup, NULL, X509_FILETYPE_DEFAULT); | ||
184 | |||
185 | ERR_clear_error(); | ||
186 | |||
187 | if (untfile) { | ||
188 | untrusted = load_certs(bio_err, untfile, FORMAT_PEM, | ||
189 | NULL, e, "untrusted certificates"); | ||
190 | if (!untrusted) | ||
191 | goto end; | ||
192 | } | ||
193 | if (trustfile) { | ||
194 | trusted = load_certs(bio_err, trustfile, FORMAT_PEM, | ||
195 | NULL, e, "trusted certificates"); | ||
196 | if (!trusted) | ||
197 | goto end; | ||
198 | } | ||
199 | if (crlfile) { | ||
200 | crls = load_crls(bio_err, crlfile, FORMAT_PEM, | ||
201 | NULL, e, "other CRLs"); | ||
202 | if (!crls) | ||
203 | goto end; | ||
204 | } | ||
205 | ret = 0; | ||
206 | if (argc < 1) { | ||
207 | if (1 != check(cert_ctx, NULL, untrusted, trusted, crls, e)) | ||
208 | ret = -1; | ||
209 | } else { | ||
210 | for (i = 0; i < argc; i++) | ||
211 | if (1 != check(cert_ctx, argv[i], untrusted, trusted, | ||
212 | crls, e)) | ||
213 | ret = -1; | ||
214 | } | ||
215 | |||
216 | end: | ||
217 | if (ret == 1) { | ||
218 | BIO_printf(bio_err, "usage: verify [-verbose] [-CApath path] [-CAfile file] [-purpose purpose] [-crl_check]"); | ||
219 | BIO_printf(bio_err, " [-attime timestamp]"); | ||
220 | #ifndef OPENSSL_NO_ENGINE | ||
221 | BIO_printf(bio_err, " [-engine e]"); | ||
222 | #endif | ||
223 | BIO_printf(bio_err, " cert1 cert2 ...\n"); | ||
224 | |||
225 | BIO_printf(bio_err, "recognized usages:\n"); | ||
226 | for (i = 0; i < X509_PURPOSE_get_count(); i++) { | ||
227 | X509_PURPOSE *ptmp; | ||
228 | ptmp = X509_PURPOSE_get0(i); | ||
229 | BIO_printf(bio_err, "\t%-10s\t%s\n", | ||
230 | X509_PURPOSE_get0_sname(ptmp), | ||
231 | X509_PURPOSE_get0_name(ptmp)); | ||
232 | } | ||
233 | } | ||
234 | if (vpm) | ||
235 | X509_VERIFY_PARAM_free(vpm); | ||
236 | if (cert_ctx != NULL) | ||
237 | X509_STORE_free(cert_ctx); | ||
238 | sk_X509_pop_free(untrusted, X509_free); | ||
239 | sk_X509_pop_free(trusted, X509_free); | ||
240 | sk_X509_CRL_pop_free(crls, X509_CRL_free); | ||
241 | |||
242 | return (ret < 0 ? 2 : ret); | ||
243 | } | ||
244 | |||
245 | static int | ||
246 | check(X509_STORE * ctx, char *file, STACK_OF(X509) * uchain, | ||
247 | STACK_OF(X509) * tchain, STACK_OF(X509_CRL) * crls, ENGINE * e) | ||
248 | { | ||
249 | X509 *x = NULL; | ||
250 | int i = 0, ret = 0; | ||
251 | X509_STORE_CTX *csc; | ||
252 | |||
253 | x = load_cert(bio_err, file, FORMAT_PEM, NULL, e, "certificate file"); | ||
254 | if (x == NULL) | ||
255 | goto end; | ||
256 | fprintf(stdout, "%s: ", (file == NULL) ? "stdin" : file); | ||
257 | |||
258 | csc = X509_STORE_CTX_new(); | ||
259 | if (csc == NULL) { | ||
260 | ERR_print_errors(bio_err); | ||
261 | goto end; | ||
262 | } | ||
263 | X509_STORE_set_flags(ctx, vflags); | ||
264 | if (!X509_STORE_CTX_init(csc, ctx, x, uchain)) { | ||
265 | ERR_print_errors(bio_err); | ||
266 | goto end; | ||
267 | } | ||
268 | if (tchain) | ||
269 | X509_STORE_CTX_trusted_stack(csc, tchain); | ||
270 | if (crls) | ||
271 | X509_STORE_CTX_set0_crls(csc, crls); | ||
272 | i = X509_verify_cert(csc); | ||
273 | X509_STORE_CTX_free(csc); | ||
274 | |||
275 | ret = 0; | ||
276 | |||
277 | end: | ||
278 | if (i > 0) { | ||
279 | fprintf(stdout, "OK\n"); | ||
280 | ret = 1; | ||
281 | } else | ||
282 | ERR_print_errors(bio_err); | ||
283 | if (x != NULL) | ||
284 | X509_free(x); | ||
285 | |||
286 | return (ret); | ||
287 | } | ||
288 | |||
289 | static int | ||
290 | cb(int ok, X509_STORE_CTX * ctx) | ||
291 | { | ||
292 | int cert_error = X509_STORE_CTX_get_error(ctx); | ||
293 | X509 *current_cert = X509_STORE_CTX_get_current_cert(ctx); | ||
294 | |||
295 | if (!ok) { | ||
296 | if (current_cert) { | ||
297 | X509_NAME_print_ex_fp(stdout, | ||
298 | X509_get_subject_name(current_cert), | ||
299 | 0, XN_FLAG_ONELINE); | ||
300 | printf("\n"); | ||
301 | } | ||
302 | printf("%serror %d at %d depth lookup:%s\n", | ||
303 | X509_STORE_CTX_get0_parent_ctx(ctx) ? "[CRL path]" : "", | ||
304 | cert_error, | ||
305 | X509_STORE_CTX_get_error_depth(ctx), | ||
306 | X509_verify_cert_error_string(cert_error)); | ||
307 | switch (cert_error) { | ||
308 | case X509_V_ERR_NO_EXPLICIT_POLICY: | ||
309 | policies_print(NULL, ctx); | ||
310 | case X509_V_ERR_CERT_HAS_EXPIRED: | ||
311 | |||
312 | /* | ||
313 | * since we are just checking the certificates, it is | ||
314 | * ok if they are self signed. But we should still | ||
315 | * warn the user. | ||
316 | */ | ||
317 | |||
318 | case X509_V_ERR_DEPTH_ZERO_SELF_SIGNED_CERT: | ||
319 | /* Continue after extension errors too */ | ||
320 | case X509_V_ERR_INVALID_CA: | ||
321 | case X509_V_ERR_INVALID_NON_CA: | ||
322 | case X509_V_ERR_PATH_LENGTH_EXCEEDED: | ||
323 | case X509_V_ERR_INVALID_PURPOSE: | ||
324 | case X509_V_ERR_CRL_HAS_EXPIRED: | ||
325 | case X509_V_ERR_CRL_NOT_YET_VALID: | ||
326 | case X509_V_ERR_UNHANDLED_CRITICAL_EXTENSION: | ||
327 | ok = 1; | ||
328 | |||
329 | } | ||
330 | |||
331 | return ok; | ||
332 | |||
333 | } | ||
334 | if (cert_error == X509_V_OK && ok == 2) | ||
335 | policies_print(NULL, ctx); | ||
336 | if (!v_verbose) | ||
337 | ERR_clear_error(); | ||
338 | return (ok); | ||
339 | } | ||
diff --git a/src/usr.bin/openssl/version.c b/src/usr.bin/openssl/version.c new file mode 100644 index 0000000000..afad0c3e11 --- /dev/null +++ b/src/usr.bin/openssl/version.c | |||
@@ -0,0 +1,208 @@ | |||
1 | /* $OpenBSD: version.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
2 | /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) | ||
3 | * All rights reserved. | ||
4 | * | ||
5 | * This package is an SSL implementation written | ||
6 | * by Eric Young (eay@cryptsoft.com). | ||
7 | * The implementation was written so as to conform with Netscapes SSL. | ||
8 | * | ||
9 | * This library is free for commercial and non-commercial use as long as | ||
10 | * the following conditions are aheared to. The following conditions | ||
11 | * apply to all code found in this distribution, be it the RC4, RSA, | ||
12 | * lhash, DES, etc., code; not just the SSL code. The SSL documentation | ||
13 | * included with this distribution is covered by the same copyright terms | ||
14 | * except that the holder is Tim Hudson (tjh@cryptsoft.com). | ||
15 | * | ||
16 | * Copyright remains Eric Young's, and as such any Copyright notices in | ||
17 | * the code are not to be removed. | ||
18 | * If this package is used in a product, Eric Young should be given attribution | ||
19 | * as the author of the parts of the library used. | ||
20 | * This can be in the form of a textual message at program startup or | ||
21 | * in documentation (online or textual) provided with the package. | ||
22 | * | ||
23 | * Redistribution and use in source and binary forms, with or without | ||
24 | * modification, are permitted provided that the following conditions | ||
25 | * are met: | ||
26 | * 1. Redistributions of source code must retain the copyright | ||
27 | * notice, this list of conditions and the following disclaimer. | ||
28 | * 2. Redistributions in binary form must reproduce the above copyright | ||
29 | * notice, this list of conditions and the following disclaimer in the | ||
30 | * documentation and/or other materials provided with the distribution. | ||
31 | * 3. All advertising materials mentioning features or use of this software | ||
32 | * must display the following acknowledgement: | ||
33 | * "This product includes cryptographic software written by | ||
34 | * Eric Young (eay@cryptsoft.com)" | ||
35 | * The word 'cryptographic' can be left out if the rouines from the library | ||
36 | * being used are not cryptographic related :-). | ||
37 | * 4. If you include any Windows specific code (or a derivative thereof) from | ||
38 | * the apps directory (application code) you must include an acknowledgement: | ||
39 | * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" | ||
40 | * | ||
41 | * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND | ||
42 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
43 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
44 | * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE | ||
45 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
46 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
47 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
48 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
49 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
50 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
51 | * SUCH DAMAGE. | ||
52 | * | ||
53 | * The licence and distribution terms for any publically available version or | ||
54 | * derivative of this code cannot be changed. i.e. this code cannot simply be | ||
55 | * copied and put under another distribution licence | ||
56 | * [including the GNU Public Licence.] | ||
57 | */ | ||
58 | /* ==================================================================== | ||
59 | * Copyright (c) 1998-2001 The OpenSSL Project. All rights reserved. | ||
60 | * | ||
61 | * Redistribution and use in source and binary forms, with or without | ||
62 | * modification, are permitted provided that the following conditions | ||
63 | * are met: | ||
64 | * | ||
65 | * 1. Redistributions of source code must retain the above copyright | ||
66 | * notice, this list of conditions and the following disclaimer. | ||
67 | * | ||
68 | * 2. Redistributions in binary form must reproduce the above copyright | ||
69 | * notice, this list of conditions and the following disclaimer in | ||
70 | * the documentation and/or other materials provided with the | ||
71 | * distribution. | ||
72 | * | ||
73 | * 3. All advertising materials mentioning features or use of this | ||
74 | * software must display the following acknowledgment: | ||
75 | * "This product includes software developed by the OpenSSL Project | ||
76 | * for use in the OpenSSL Toolkit. (http://www.openssl.org/)" | ||
77 | * | ||
78 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
79 | * endorse or promote products derived from this software without | ||
80 | * prior written permission. For written permission, please contact | ||
81 | * openssl-core@openssl.org. | ||
82 | * | ||
83 | * 5. Products derived from this software may not be called "OpenSSL" | ||
84 | * nor may "OpenSSL" appear in their names without prior written | ||
85 | * permission of the OpenSSL Project. | ||
86 | * | ||
87 | * 6. Redistributions of any form whatsoever must retain the following | ||
88 | * acknowledgment: | ||
89 | * "This product includes software developed by the OpenSSL Project | ||
90 | * for use in the OpenSSL Toolkit (http://www.openssl.org/)" | ||
91 | * | ||
92 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
93 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
94 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
95 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
96 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
97 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
98 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
99 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
100 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
101 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
102 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
103 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
104 | * ==================================================================== | ||
105 | * | ||
106 | * This product includes cryptographic software written by Eric Young | ||
107 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
108 | * Hudson (tjh@cryptsoft.com). | ||
109 | * | ||
110 | */ | ||
111 | |||
112 | #include <stdio.h> | ||
113 | #include <stdlib.h> | ||
114 | #include <string.h> | ||
115 | |||
116 | #include "apps.h" | ||
117 | |||
118 | #include <openssl/bn.h> | ||
119 | #include <openssl/crypto.h> | ||
120 | #include <openssl/evp.h> | ||
121 | |||
122 | #ifndef OPENSSL_NO_BF | ||
123 | #include <openssl/blowfish.h> | ||
124 | #endif | ||
125 | |||
126 | #ifndef OPENSSL_NO_DES | ||
127 | #include <openssl/des.h> | ||
128 | #endif | ||
129 | |||
130 | #ifndef OPENSSL_NO_IDEA | ||
131 | #include <openssl/idea.h> | ||
132 | #endif | ||
133 | |||
134 | #ifndef OPENSSL_NO_RC4 | ||
135 | #include <openssl/rc4.h> | ||
136 | #endif | ||
137 | |||
138 | int version_main(int, char **); | ||
139 | |||
140 | int | ||
141 | version_main(int argc, char **argv) | ||
142 | { | ||
143 | int i, ret = 0; | ||
144 | int cflags = 0, version = 0, date = 0, options = 0, platform = 0, | ||
145 | dir = 0; | ||
146 | |||
147 | if (argc == 1) | ||
148 | version = 1; | ||
149 | for (i = 1; i < argc; i++) { | ||
150 | if (strcmp(argv[i], "-v") == 0) | ||
151 | version = 1; | ||
152 | else if (strcmp(argv[i], "-b") == 0) | ||
153 | date = 1; | ||
154 | else if (strcmp(argv[i], "-f") == 0) | ||
155 | cflags = 1; | ||
156 | else if (strcmp(argv[i], "-o") == 0) | ||
157 | options = 1; | ||
158 | else if (strcmp(argv[i], "-p") == 0) | ||
159 | platform = 1; | ||
160 | else if (strcmp(argv[i], "-d") == 0) | ||
161 | dir = 1; | ||
162 | else if (strcmp(argv[i], "-a") == 0) | ||
163 | date = version = cflags = options = platform = dir = 1; | ||
164 | else { | ||
165 | BIO_printf(bio_err, "usage:version -[avbofpd]\n"); | ||
166 | ret = 1; | ||
167 | goto end; | ||
168 | } | ||
169 | } | ||
170 | |||
171 | if (version) { | ||
172 | if (SSLeay() == SSLEAY_VERSION_NUMBER) { | ||
173 | printf("%s\n", SSLeay_version(SSLEAY_VERSION)); | ||
174 | } else { | ||
175 | printf("%s (Library: %s)\n", | ||
176 | OPENSSL_VERSION_TEXT, | ||
177 | SSLeay_version(SSLEAY_VERSION)); | ||
178 | } | ||
179 | } | ||
180 | if (date) | ||
181 | printf("%s\n", SSLeay_version(SSLEAY_BUILT_ON)); | ||
182 | if (platform) | ||
183 | printf("%s\n", SSLeay_version(SSLEAY_PLATFORM)); | ||
184 | if (options) { | ||
185 | printf("options: "); | ||
186 | printf("%s ", BN_options()); | ||
187 | #ifndef OPENSSL_NO_RC4 | ||
188 | printf("%s ", RC4_options()); | ||
189 | #endif | ||
190 | #ifndef OPENSSL_NO_DES | ||
191 | printf("%s ", DES_options()); | ||
192 | #endif | ||
193 | #ifndef OPENSSL_NO_IDEA | ||
194 | printf("%s ", idea_options()); | ||
195 | #endif | ||
196 | #ifndef OPENSSL_NO_BF | ||
197 | printf("%s ", BF_options()); | ||
198 | #endif | ||
199 | printf("\n"); | ||
200 | } | ||
201 | if (cflags) | ||
202 | printf("%s\n", SSLeay_version(SSLEAY_CFLAGS)); | ||
203 | if (dir) | ||
204 | printf("%s\n", SSLeay_version(SSLEAY_DIR)); | ||
205 | end: | ||
206 | |||
207 | return (ret); | ||
208 | } | ||
diff --git a/src/usr.bin/openssl/x509.c b/src/usr.bin/openssl/x509.c new file mode 100644 index 0000000000..afbccc00d6 --- /dev/null +++ b/src/usr.bin/openssl/x509.c | |||
@@ -0,0 +1,1160 @@ | |||
1 | /* $OpenBSD: x509.c,v 1.1 2014/08/26 17:47:25 jsing Exp $ */ | ||
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 <assert.h> | ||
60 | #include <stdio.h> | ||
61 | #include <stdlib.h> | ||
62 | #include <limits.h> | ||
63 | #include <string.h> | ||
64 | |||
65 | #include "apps.h" | ||
66 | |||
67 | #include <openssl/asn1.h> | ||
68 | #include <openssl/bio.h> | ||
69 | #include <openssl/bn.h> | ||
70 | #include <openssl/err.h> | ||
71 | #include <openssl/evp.h> | ||
72 | #include <openssl/objects.h> | ||
73 | #include <openssl/pem.h> | ||
74 | #include <openssl/x509.h> | ||
75 | #include <openssl/x509v3.h> | ||
76 | |||
77 | #include <openssl/dsa.h> | ||
78 | |||
79 | #include <openssl/rsa.h> | ||
80 | |||
81 | #define POSTFIX ".srl" | ||
82 | #define DEF_DAYS 30 | ||
83 | |||
84 | static const char *x509_usage[] = { | ||
85 | "usage: x509 args\n", | ||
86 | " -inform arg - input format - default PEM (one of DER, NET or PEM)\n", | ||
87 | " -outform arg - output format - default PEM (one of DER, NET or PEM)\n", | ||
88 | " -keyform arg - private key format - default PEM\n", | ||
89 | " -CAform arg - CA format - default PEM\n", | ||
90 | " -CAkeyform arg - CA key format - default PEM\n", | ||
91 | " -in arg - input file - default stdin\n", | ||
92 | " -out arg - output file - default stdout\n", | ||
93 | " -passin arg - private key password source\n", | ||
94 | " -serial - print serial number value\n", | ||
95 | " -subject_hash - print subject hash value\n", | ||
96 | #ifndef OPENSSL_NO_MD5 | ||
97 | " -subject_hash_old - print old-style (MD5) subject hash value\n", | ||
98 | #endif | ||
99 | " -issuer_hash - print issuer hash value\n", | ||
100 | #ifndef OPENSSL_NO_MD5 | ||
101 | " -issuer_hash_old - print old-style (MD5) issuer hash value\n", | ||
102 | #endif | ||
103 | " -hash - synonym for -subject_hash\n", | ||
104 | " -subject - print subject DN\n", | ||
105 | " -issuer - print issuer DN\n", | ||
106 | " -email - print email address(es)\n", | ||
107 | " -startdate - notBefore field\n", | ||
108 | " -enddate - notAfter field\n", | ||
109 | " -purpose - print out certificate purposes\n", | ||
110 | " -dates - both Before and After dates\n", | ||
111 | " -modulus - print the RSA key modulus\n", | ||
112 | " -pubkey - output the public key\n", | ||
113 | " -fingerprint - print the certificate fingerprint\n", | ||
114 | " -alias - output certificate alias\n", | ||
115 | " -noout - no certificate output\n", | ||
116 | " -ocspid - print OCSP hash values for the subject name and public key\n", | ||
117 | " -ocsp_uri - print OCSP Responder URL(s)\n", | ||
118 | " -trustout - output a \"trusted\" certificate\n", | ||
119 | " -clrtrust - clear all trusted purposes\n", | ||
120 | " -clrreject - clear all rejected purposes\n", | ||
121 | " -addtrust arg - trust certificate for a given purpose\n", | ||
122 | " -addreject arg - reject certificate for a given purpose\n", | ||
123 | " -setalias arg - set certificate alias\n", | ||
124 | " -days arg - How long till expiry of a signed certificate - def 30 days\n", | ||
125 | " -checkend arg - check whether the cert expires in the next arg seconds\n", | ||
126 | " exit 1 if so, 0 if not\n", | ||
127 | " -signkey arg - self sign cert with arg\n", | ||
128 | " -x509toreq - output a certification request object\n", | ||
129 | " -req - input is a certificate request, sign and output.\n", | ||
130 | " -CA arg - set the CA certificate, must be PEM format.\n", | ||
131 | " -CAkey arg - set the CA key, must be PEM format\n", | ||
132 | " missing, it is assumed to be in the CA file.\n", | ||
133 | " -CAcreateserial - create serial number file if it does not exist\n", | ||
134 | " -CAserial arg - serial file\n", | ||
135 | " -set_serial - serial number to use\n", | ||
136 | " -text - print the certificate in text form\n", | ||
137 | " -C - print out C code forms\n", | ||
138 | " -md2/-md5/-sha1/-mdc2 - digest to use\n", | ||
139 | " -extfile - configuration file with X509V3 extensions to add\n", | ||
140 | " -extensions - section from config file with X509V3 extensions to add\n", | ||
141 | " -clrext - delete extensions before signing and input certificate\n", | ||
142 | " -nameopt arg - various certificate name options\n", | ||
143 | #ifndef OPENSSL_NO_ENGINE | ||
144 | " -engine e - use engine e, possibly a hardware device.\n", | ||
145 | #endif | ||
146 | " -certopt arg - various certificate text options\n", | ||
147 | NULL | ||
148 | }; | ||
149 | |||
150 | static int callb(int ok, X509_STORE_CTX *ctx); | ||
151 | static int sign(X509 *x, EVP_PKEY *pkey, int days, int clrext, | ||
152 | const EVP_MD *digest, CONF *conf, char *section); | ||
153 | static int x509_certify(X509_STORE *ctx, char *CAfile, const EVP_MD *digest, | ||
154 | X509 *x, X509 *xca, EVP_PKEY *pkey, STACK_OF(OPENSSL_STRING) *sigopts, | ||
155 | char *serial, int create, int days, int clrext, CONF *conf, char *section, | ||
156 | ASN1_INTEGER *sno); | ||
157 | static int purpose_print(BIO *bio, X509 *cert, X509_PURPOSE *pt); | ||
158 | static int reqfile = 0; | ||
159 | |||
160 | int x509_main(int, char **); | ||
161 | |||
162 | int | ||
163 | x509_main(int argc, char **argv) | ||
164 | { | ||
165 | ENGINE *e = NULL; | ||
166 | int ret = 1; | ||
167 | X509_REQ *req = NULL; | ||
168 | X509 *x = NULL, *xca = NULL; | ||
169 | ASN1_OBJECT *objtmp; | ||
170 | STACK_OF(OPENSSL_STRING) *sigopts = NULL; | ||
171 | EVP_PKEY *Upkey = NULL, *CApkey = NULL; | ||
172 | ASN1_INTEGER *sno = NULL; | ||
173 | int i, num, badops = 0; | ||
174 | BIO *out = NULL; | ||
175 | BIO *STDout = NULL; | ||
176 | STACK_OF(ASN1_OBJECT) *trust = NULL, *reject = NULL; | ||
177 | int informat, outformat, keyformat, CAformat, CAkeyformat; | ||
178 | char *infile = NULL, *outfile = NULL, *keyfile = NULL, *CAfile = NULL; | ||
179 | char *CAkeyfile = NULL, *CAserial = NULL; | ||
180 | char *alias = NULL; | ||
181 | int text = 0, serial = 0, subject = 0, issuer = 0, startdate = 0, | ||
182 | enddate = 0; | ||
183 | int next_serial = 0; | ||
184 | int subject_hash = 0, issuer_hash = 0, ocspid = 0; | ||
185 | #ifndef OPENSSL_NO_MD5 | ||
186 | int subject_hash_old = 0, issuer_hash_old = 0; | ||
187 | #endif | ||
188 | int noout = 0, sign_flag = 0, CA_flag = 0, CA_createserial = 0, | ||
189 | email = 0; | ||
190 | int ocsp_uri = 0; | ||
191 | int trustout = 0, clrtrust = 0, clrreject = 0, aliasout = 0, clrext = 0; | ||
192 | int C = 0; | ||
193 | int x509req = 0, days = DEF_DAYS, modulus = 0, pubkey = 0; | ||
194 | int pprint = 0; | ||
195 | const char **pp; | ||
196 | X509_STORE *ctx = NULL; | ||
197 | X509_REQ *rq = NULL; | ||
198 | int fingerprint = 0; | ||
199 | char buf[256]; | ||
200 | const EVP_MD *md_alg, *digest = NULL; | ||
201 | CONF *extconf = NULL; | ||
202 | char *extsect = NULL, *extfile = NULL, *passin = NULL, *passargin = NULL; | ||
203 | int checkend = 0, checkoffset = 0; | ||
204 | unsigned long nmflag = 0, certflag = 0; | ||
205 | #ifndef OPENSSL_NO_ENGINE | ||
206 | char *engine = NULL; | ||
207 | #endif | ||
208 | const char *errstr = NULL; | ||
209 | |||
210 | reqfile = 0; | ||
211 | |||
212 | STDout = BIO_new_fp(stdout, BIO_NOCLOSE); | ||
213 | |||
214 | informat = FORMAT_PEM; | ||
215 | outformat = FORMAT_PEM; | ||
216 | keyformat = FORMAT_PEM; | ||
217 | CAformat = FORMAT_PEM; | ||
218 | CAkeyformat = FORMAT_PEM; | ||
219 | |||
220 | ctx = X509_STORE_new(); | ||
221 | if (ctx == NULL) | ||
222 | goto end; | ||
223 | X509_STORE_set_verify_cb(ctx, callb); | ||
224 | |||
225 | argc--; | ||
226 | argv++; | ||
227 | num = 0; | ||
228 | while (argc >= 1) { | ||
229 | if (strcmp(*argv, "-inform") == 0) { | ||
230 | if (--argc < 1) | ||
231 | goto bad; | ||
232 | informat = str2fmt(*(++argv)); | ||
233 | } else if (strcmp(*argv, "-outform") == 0) { | ||
234 | if (--argc < 1) | ||
235 | goto bad; | ||
236 | outformat = str2fmt(*(++argv)); | ||
237 | } else if (strcmp(*argv, "-keyform") == 0) { | ||
238 | if (--argc < 1) | ||
239 | goto bad; | ||
240 | keyformat = str2fmt(*(++argv)); | ||
241 | } else if (strcmp(*argv, "-req") == 0) { | ||
242 | reqfile = 1; | ||
243 | } else if (strcmp(*argv, "-CAform") == 0) { | ||
244 | if (--argc < 1) | ||
245 | goto bad; | ||
246 | CAformat = str2fmt(*(++argv)); | ||
247 | } else if (strcmp(*argv, "-CAkeyform") == 0) { | ||
248 | if (--argc < 1) | ||
249 | goto bad; | ||
250 | CAkeyformat = str2fmt(*(++argv)); | ||
251 | } else if (strcmp(*argv, "-sigopt") == 0) { | ||
252 | if (--argc < 1) | ||
253 | goto bad; | ||
254 | if (!sigopts) | ||
255 | sigopts = sk_OPENSSL_STRING_new_null(); | ||
256 | if (!sigopts || !sk_OPENSSL_STRING_push(sigopts, *(++argv))) | ||
257 | goto bad; | ||
258 | } else if (strcmp(*argv, "-days") == 0) { | ||
259 | if (--argc < 1) | ||
260 | goto bad; | ||
261 | days = strtonum(*(++argv), 1, INT_MAX, &errstr); | ||
262 | if (errstr) { | ||
263 | BIO_printf(bio_err, "bad number of days: %s\n", errstr); | ||
264 | goto bad; | ||
265 | } | ||
266 | } else if (strcmp(*argv, "-passin") == 0) { | ||
267 | if (--argc < 1) | ||
268 | goto bad; | ||
269 | passargin = *(++argv); | ||
270 | } else if (strcmp(*argv, "-extfile") == 0) { | ||
271 | if (--argc < 1) | ||
272 | goto bad; | ||
273 | extfile = *(++argv); | ||
274 | } else if (strcmp(*argv, "-extensions") == 0) { | ||
275 | if (--argc < 1) | ||
276 | goto bad; | ||
277 | extsect = *(++argv); | ||
278 | } else if (strcmp(*argv, "-in") == 0) { | ||
279 | if (--argc < 1) | ||
280 | goto bad; | ||
281 | infile = *(++argv); | ||
282 | } else if (strcmp(*argv, "-out") == 0) { | ||
283 | if (--argc < 1) | ||
284 | goto bad; | ||
285 | outfile = *(++argv); | ||
286 | } else if (strcmp(*argv, "-signkey") == 0) { | ||
287 | if (--argc < 1) | ||
288 | goto bad; | ||
289 | keyfile = *(++argv); | ||
290 | sign_flag = ++num; | ||
291 | } else if (strcmp(*argv, "-CA") == 0) { | ||
292 | if (--argc < 1) | ||
293 | goto bad; | ||
294 | CAfile = *(++argv); | ||
295 | CA_flag = ++num; | ||
296 | } else if (strcmp(*argv, "-CAkey") == 0) { | ||
297 | if (--argc < 1) | ||
298 | goto bad; | ||
299 | CAkeyfile = *(++argv); | ||
300 | } else if (strcmp(*argv, "-CAserial") == 0) { | ||
301 | if (--argc < 1) | ||
302 | goto bad; | ||
303 | CAserial = *(++argv); | ||
304 | } else if (strcmp(*argv, "-set_serial") == 0) { | ||
305 | if (--argc < 1) | ||
306 | goto bad; | ||
307 | if (!(sno = s2i_ASN1_INTEGER(NULL, *(++argv)))) | ||
308 | goto bad; | ||
309 | } else if (strcmp(*argv, "-addtrust") == 0) { | ||
310 | if (--argc < 1) | ||
311 | goto bad; | ||
312 | if (!(objtmp = OBJ_txt2obj(*(++argv), 0))) { | ||
313 | BIO_printf(bio_err, | ||
314 | "Invalid trust object value %s\n", *argv); | ||
315 | goto bad; | ||
316 | } | ||
317 | if (!trust) | ||
318 | trust = sk_ASN1_OBJECT_new_null(); | ||
319 | sk_ASN1_OBJECT_push(trust, objtmp); | ||
320 | trustout = 1; | ||
321 | } else if (strcmp(*argv, "-addreject") == 0) { | ||
322 | if (--argc < 1) | ||
323 | goto bad; | ||
324 | if (!(objtmp = OBJ_txt2obj(*(++argv), 0))) { | ||
325 | BIO_printf(bio_err, | ||
326 | "Invalid reject object value %s\n", *argv); | ||
327 | goto bad; | ||
328 | } | ||
329 | if (!reject) | ||
330 | reject = sk_ASN1_OBJECT_new_null(); | ||
331 | sk_ASN1_OBJECT_push(reject, objtmp); | ||
332 | trustout = 1; | ||
333 | } else if (strcmp(*argv, "-setalias") == 0) { | ||
334 | if (--argc < 1) | ||
335 | goto bad; | ||
336 | alias = *(++argv); | ||
337 | trustout = 1; | ||
338 | } else if (strcmp(*argv, "-certopt") == 0) { | ||
339 | if (--argc < 1) | ||
340 | goto bad; | ||
341 | if (!set_cert_ex(&certflag, *(++argv))) | ||
342 | goto bad; | ||
343 | } else if (strcmp(*argv, "-nameopt") == 0) { | ||
344 | if (--argc < 1) | ||
345 | goto bad; | ||
346 | if (!set_name_ex(&nmflag, *(++argv))) | ||
347 | goto bad; | ||
348 | } | ||
349 | #ifndef OPENSSL_NO_ENGINE | ||
350 | else if (strcmp(*argv, "-engine") == 0) { | ||
351 | if (--argc < 1) | ||
352 | goto bad; | ||
353 | engine = *(++argv); | ||
354 | } | ||
355 | #endif | ||
356 | else if (strcmp(*argv, "-C") == 0) | ||
357 | C = ++num; | ||
358 | else if (strcmp(*argv, "-email") == 0) | ||
359 | email = ++num; | ||
360 | else if (strcmp(*argv, "-ocsp_uri") == 0) | ||
361 | ocsp_uri = ++num; | ||
362 | else if (strcmp(*argv, "-serial") == 0) | ||
363 | serial = ++num; | ||
364 | else if (strcmp(*argv, "-next_serial") == 0) | ||
365 | next_serial = ++num; | ||
366 | else if (strcmp(*argv, "-modulus") == 0) | ||
367 | modulus = ++num; | ||
368 | else if (strcmp(*argv, "-pubkey") == 0) | ||
369 | pubkey = ++num; | ||
370 | else if (strcmp(*argv, "-x509toreq") == 0) | ||
371 | x509req = ++num; | ||
372 | else if (strcmp(*argv, "-text") == 0) | ||
373 | text = ++num; | ||
374 | else if (strcmp(*argv, "-hash") == 0 || | ||
375 | strcmp(*argv, "-subject_hash") == 0) | ||
376 | subject_hash = ++num; | ||
377 | #ifndef OPENSSL_NO_MD5 | ||
378 | else if (strcmp(*argv, "-subject_hash_old") == 0) | ||
379 | subject_hash_old = ++num; | ||
380 | #endif | ||
381 | else if (strcmp(*argv, "-issuer_hash") == 0) | ||
382 | issuer_hash = ++num; | ||
383 | #ifndef OPENSSL_NO_MD5 | ||
384 | else if (strcmp(*argv, "-issuer_hash_old") == 0) | ||
385 | issuer_hash_old = ++num; | ||
386 | #endif | ||
387 | else if (strcmp(*argv, "-subject") == 0) | ||
388 | subject = ++num; | ||
389 | else if (strcmp(*argv, "-issuer") == 0) | ||
390 | issuer = ++num; | ||
391 | else if (strcmp(*argv, "-fingerprint") == 0) | ||
392 | fingerprint = ++num; | ||
393 | else if (strcmp(*argv, "-dates") == 0) { | ||
394 | startdate = ++num; | ||
395 | enddate = ++num; | ||
396 | } else if (strcmp(*argv, "-purpose") == 0) | ||
397 | pprint = ++num; | ||
398 | else if (strcmp(*argv, "-startdate") == 0) | ||
399 | startdate = ++num; | ||
400 | else if (strcmp(*argv, "-enddate") == 0) | ||
401 | enddate = ++num; | ||
402 | else if (strcmp(*argv, "-checkend") == 0) { | ||
403 | if (--argc < 1) | ||
404 | goto bad; | ||
405 | checkoffset = strtonum(*(++argv), 0, INT_MAX, &errstr); | ||
406 | if (errstr) { | ||
407 | BIO_printf(bio_err, "checkend unusable: %s\n", errstr); | ||
408 | goto bad; | ||
409 | } | ||
410 | checkend = 1; | ||
411 | } else if (strcmp(*argv, "-noout") == 0) | ||
412 | noout = ++num; | ||
413 | else if (strcmp(*argv, "-trustout") == 0) | ||
414 | trustout = 1; | ||
415 | else if (strcmp(*argv, "-clrtrust") == 0) | ||
416 | clrtrust = ++num; | ||
417 | else if (strcmp(*argv, "-clrreject") == 0) | ||
418 | clrreject = ++num; | ||
419 | else if (strcmp(*argv, "-alias") == 0) | ||
420 | aliasout = ++num; | ||
421 | else if (strcmp(*argv, "-CAcreateserial") == 0) | ||
422 | CA_createserial = ++num; | ||
423 | else if (strcmp(*argv, "-clrext") == 0) | ||
424 | clrext = 1; | ||
425 | else if (strcmp(*argv, "-ocspid") == 0) | ||
426 | ocspid = ++num; | ||
427 | else if ((md_alg = EVP_get_digestbyname(*argv + 1))) { | ||
428 | /* ok */ | ||
429 | digest = md_alg; | ||
430 | } else { | ||
431 | BIO_printf(bio_err, "unknown option %s\n", *argv); | ||
432 | badops = 1; | ||
433 | break; | ||
434 | } | ||
435 | argc--; | ||
436 | argv++; | ||
437 | } | ||
438 | |||
439 | if (badops) { | ||
440 | bad: | ||
441 | for (pp = x509_usage; (*pp != NULL); pp++) | ||
442 | BIO_printf(bio_err, "%s", *pp); | ||
443 | goto end; | ||
444 | } | ||
445 | #ifndef OPENSSL_NO_ENGINE | ||
446 | e = setup_engine(bio_err, engine, 0); | ||
447 | #endif | ||
448 | |||
449 | ERR_load_crypto_strings(); | ||
450 | |||
451 | if (!app_passwd(bio_err, passargin, NULL, &passin, NULL)) { | ||
452 | BIO_printf(bio_err, "Error getting password\n"); | ||
453 | goto end; | ||
454 | } | ||
455 | if (!X509_STORE_set_default_paths(ctx)) { | ||
456 | ERR_print_errors(bio_err); | ||
457 | goto end; | ||
458 | } | ||
459 | if ((CAkeyfile == NULL) && (CA_flag) && (CAformat == FORMAT_PEM)) { | ||
460 | CAkeyfile = CAfile; | ||
461 | } else if ((CA_flag) && (CAkeyfile == NULL)) { | ||
462 | BIO_printf(bio_err, | ||
463 | "need to specify a CAkey if using the CA command\n"); | ||
464 | goto end; | ||
465 | } | ||
466 | if (extfile) { | ||
467 | long errorline = -1; | ||
468 | X509V3_CTX ctx2; | ||
469 | extconf = NCONF_new(NULL); | ||
470 | if (!NCONF_load(extconf, extfile, &errorline)) { | ||
471 | if (errorline <= 0) | ||
472 | BIO_printf(bio_err, | ||
473 | "error loading the config file '%s'\n", | ||
474 | extfile); | ||
475 | else | ||
476 | BIO_printf(bio_err, | ||
477 | "error on line %ld of config file '%s'\n", | ||
478 | errorline, extfile); | ||
479 | goto end; | ||
480 | } | ||
481 | if (!extsect) { | ||
482 | extsect = NCONF_get_string(extconf, "default", | ||
483 | "extensions"); | ||
484 | if (!extsect) { | ||
485 | ERR_clear_error(); | ||
486 | extsect = "default"; | ||
487 | } | ||
488 | } | ||
489 | X509V3_set_ctx_test(&ctx2); | ||
490 | X509V3_set_nconf(&ctx2, extconf); | ||
491 | if (!X509V3_EXT_add_nconf(extconf, &ctx2, extsect, NULL)) { | ||
492 | BIO_printf(bio_err, | ||
493 | "Error Loading extension section %s\n", | ||
494 | extsect); | ||
495 | ERR_print_errors(bio_err); | ||
496 | goto end; | ||
497 | } | ||
498 | } | ||
499 | if (reqfile) { | ||
500 | EVP_PKEY *pkey; | ||
501 | BIO *in; | ||
502 | |||
503 | if (!sign_flag && !CA_flag) { | ||
504 | BIO_printf(bio_err, "We need a private key to sign with\n"); | ||
505 | goto end; | ||
506 | } | ||
507 | in = BIO_new(BIO_s_file()); | ||
508 | if (in == NULL) { | ||
509 | ERR_print_errors(bio_err); | ||
510 | goto end; | ||
511 | } | ||
512 | if (infile == NULL) | ||
513 | BIO_set_fp(in, stdin, BIO_NOCLOSE | BIO_FP_TEXT); | ||
514 | else { | ||
515 | if (BIO_read_filename(in, infile) <= 0) { | ||
516 | perror(infile); | ||
517 | BIO_free(in); | ||
518 | goto end; | ||
519 | } | ||
520 | } | ||
521 | req = PEM_read_bio_X509_REQ(in, NULL, NULL, NULL); | ||
522 | BIO_free(in); | ||
523 | |||
524 | if (req == NULL) { | ||
525 | ERR_print_errors(bio_err); | ||
526 | goto end; | ||
527 | } | ||
528 | if ((req->req_info == NULL) || | ||
529 | (req->req_info->pubkey == NULL) || | ||
530 | (req->req_info->pubkey->public_key == NULL) || | ||
531 | (req->req_info->pubkey->public_key->data == NULL)) { | ||
532 | BIO_printf(bio_err, "The certificate request appears to corrupted\n"); | ||
533 | BIO_printf(bio_err, "It does not contain a public key\n"); | ||
534 | goto end; | ||
535 | } | ||
536 | if ((pkey = X509_REQ_get_pubkey(req)) == NULL) { | ||
537 | BIO_printf(bio_err, "error unpacking public key\n"); | ||
538 | goto end; | ||
539 | } | ||
540 | i = X509_REQ_verify(req, pkey); | ||
541 | EVP_PKEY_free(pkey); | ||
542 | if (i < 0) { | ||
543 | BIO_printf(bio_err, "Signature verification error\n"); | ||
544 | ERR_print_errors(bio_err); | ||
545 | goto end; | ||
546 | } | ||
547 | if (i == 0) { | ||
548 | BIO_printf(bio_err, "Signature did not match the certificate request\n"); | ||
549 | goto end; | ||
550 | } else | ||
551 | BIO_printf(bio_err, "Signature ok\n"); | ||
552 | |||
553 | print_name(bio_err, "subject=", X509_REQ_get_subject_name(req), nmflag); | ||
554 | |||
555 | if ((x = X509_new()) == NULL) | ||
556 | goto end; | ||
557 | |||
558 | if (sno == NULL) { | ||
559 | sno = ASN1_INTEGER_new(); | ||
560 | if (!sno || !rand_serial(NULL, sno)) | ||
561 | goto end; | ||
562 | if (!X509_set_serialNumber(x, sno)) | ||
563 | goto end; | ||
564 | ASN1_INTEGER_free(sno); | ||
565 | sno = NULL; | ||
566 | } else if (!X509_set_serialNumber(x, sno)) | ||
567 | goto end; | ||
568 | |||
569 | if (!X509_set_issuer_name(x, req->req_info->subject)) | ||
570 | goto end; | ||
571 | if (!X509_set_subject_name(x, req->req_info->subject)) | ||
572 | goto end; | ||
573 | |||
574 | X509_gmtime_adj(X509_get_notBefore(x), 0); | ||
575 | X509_time_adj_ex(X509_get_notAfter(x), days, 0, NULL); | ||
576 | |||
577 | pkey = X509_REQ_get_pubkey(req); | ||
578 | X509_set_pubkey(x, pkey); | ||
579 | EVP_PKEY_free(pkey); | ||
580 | } else | ||
581 | x = load_cert(bio_err, infile, informat, NULL, e, "Certificate"); | ||
582 | |||
583 | if (x == NULL) | ||
584 | goto end; | ||
585 | if (CA_flag) { | ||
586 | xca = load_cert(bio_err, CAfile, CAformat, NULL, e, "CA Certificate"); | ||
587 | if (xca == NULL) | ||
588 | goto end; | ||
589 | } | ||
590 | if (!noout || text || next_serial) { | ||
591 | OBJ_create("2.99999.3", | ||
592 | "SET.ex3", "SET x509v3 extension 3"); | ||
593 | |||
594 | out = BIO_new(BIO_s_file()); | ||
595 | if (out == NULL) { | ||
596 | ERR_print_errors(bio_err); | ||
597 | goto end; | ||
598 | } | ||
599 | if (outfile == NULL) { | ||
600 | BIO_set_fp(out, stdout, BIO_NOCLOSE); | ||
601 | } else { | ||
602 | if (BIO_write_filename(out, outfile) <= 0) { | ||
603 | perror(outfile); | ||
604 | goto end; | ||
605 | } | ||
606 | } | ||
607 | } | ||
608 | if (alias) | ||
609 | X509_alias_set1(x, (unsigned char *) alias, -1); | ||
610 | |||
611 | if (clrtrust) | ||
612 | X509_trust_clear(x); | ||
613 | if (clrreject) | ||
614 | X509_reject_clear(x); | ||
615 | |||
616 | if (trust) { | ||
617 | for (i = 0; i < sk_ASN1_OBJECT_num(trust); i++) { | ||
618 | objtmp = sk_ASN1_OBJECT_value(trust, i); | ||
619 | X509_add1_trust_object(x, objtmp); | ||
620 | } | ||
621 | } | ||
622 | if (reject) { | ||
623 | for (i = 0; i < sk_ASN1_OBJECT_num(reject); i++) { | ||
624 | objtmp = sk_ASN1_OBJECT_value(reject, i); | ||
625 | X509_add1_reject_object(x, objtmp); | ||
626 | } | ||
627 | } | ||
628 | if (num) { | ||
629 | for (i = 1; i <= num; i++) { | ||
630 | if (issuer == i) { | ||
631 | print_name(STDout, "issuer= ", | ||
632 | X509_get_issuer_name(x), nmflag); | ||
633 | } else if (subject == i) { | ||
634 | print_name(STDout, "subject= ", | ||
635 | X509_get_subject_name(x), nmflag); | ||
636 | } else if (serial == i) { | ||
637 | BIO_printf(STDout, "serial="); | ||
638 | i2a_ASN1_INTEGER(STDout, | ||
639 | X509_get_serialNumber(x)); | ||
640 | BIO_printf(STDout, "\n"); | ||
641 | } else if (next_serial == i) { | ||
642 | BIGNUM *bnser; | ||
643 | ASN1_INTEGER *ser; | ||
644 | ser = X509_get_serialNumber(x); | ||
645 | bnser = ASN1_INTEGER_to_BN(ser, NULL); | ||
646 | if (!bnser) | ||
647 | goto end; | ||
648 | if (!BN_add_word(bnser, 1)) | ||
649 | goto end; | ||
650 | ser = BN_to_ASN1_INTEGER(bnser, NULL); | ||
651 | if (!ser) | ||
652 | goto end; | ||
653 | BN_free(bnser); | ||
654 | i2a_ASN1_INTEGER(out, ser); | ||
655 | ASN1_INTEGER_free(ser); | ||
656 | BIO_puts(out, "\n"); | ||
657 | } else if ((email == i) || (ocsp_uri == i)) { | ||
658 | int j; | ||
659 | STACK_OF(OPENSSL_STRING) *emlst; | ||
660 | if (email == i) | ||
661 | emlst = X509_get1_email(x); | ||
662 | else | ||
663 | emlst = X509_get1_ocsp(x); | ||
664 | for (j = 0; j < sk_OPENSSL_STRING_num(emlst); j++) | ||
665 | BIO_printf(STDout, "%s\n", | ||
666 | sk_OPENSSL_STRING_value(emlst, j)); | ||
667 | X509_email_free(emlst); | ||
668 | } else if (aliasout == i) { | ||
669 | unsigned char *alstr; | ||
670 | alstr = X509_alias_get0(x, NULL); | ||
671 | if (alstr) | ||
672 | BIO_printf(STDout, "%s\n", alstr); | ||
673 | else | ||
674 | BIO_puts(STDout, "<No Alias>\n"); | ||
675 | } else if (subject_hash == i) { | ||
676 | BIO_printf(STDout, "%08lx\n", X509_subject_name_hash(x)); | ||
677 | } | ||
678 | #ifndef OPENSSL_NO_MD5 | ||
679 | else if (subject_hash_old == i) { | ||
680 | BIO_printf(STDout, "%08lx\n", X509_subject_name_hash_old(x)); | ||
681 | } | ||
682 | #endif | ||
683 | else if (issuer_hash == i) { | ||
684 | BIO_printf(STDout, "%08lx\n", X509_issuer_name_hash(x)); | ||
685 | } | ||
686 | #ifndef OPENSSL_NO_MD5 | ||
687 | else if (issuer_hash_old == i) { | ||
688 | BIO_printf(STDout, "%08lx\n", X509_issuer_name_hash_old(x)); | ||
689 | } | ||
690 | #endif | ||
691 | else if (pprint == i) { | ||
692 | X509_PURPOSE *ptmp; | ||
693 | int j; | ||
694 | BIO_printf(STDout, "Certificate purposes:\n"); | ||
695 | for (j = 0; j < X509_PURPOSE_get_count(); j++) { | ||
696 | ptmp = X509_PURPOSE_get0(j); | ||
697 | purpose_print(STDout, x, ptmp); | ||
698 | } | ||
699 | } else if (modulus == i) { | ||
700 | EVP_PKEY *pkey; | ||
701 | |||
702 | pkey = X509_get_pubkey(x); | ||
703 | if (pkey == NULL) { | ||
704 | BIO_printf(bio_err, "Modulus=unavailable\n"); | ||
705 | ERR_print_errors(bio_err); | ||
706 | goto end; | ||
707 | } | ||
708 | BIO_printf(STDout, "Modulus="); | ||
709 | if (pkey->type == EVP_PKEY_RSA) | ||
710 | BN_print(STDout, pkey->pkey.rsa->n); | ||
711 | else | ||
712 | if (pkey->type == EVP_PKEY_DSA) | ||
713 | BN_print(STDout, pkey->pkey.dsa->pub_key); | ||
714 | else | ||
715 | BIO_printf(STDout, "Wrong Algorithm type"); | ||
716 | BIO_printf(STDout, "\n"); | ||
717 | EVP_PKEY_free(pkey); | ||
718 | } else if (pubkey == i) { | ||
719 | EVP_PKEY *pkey; | ||
720 | |||
721 | pkey = X509_get_pubkey(x); | ||
722 | if (pkey == NULL) { | ||
723 | BIO_printf(bio_err, "Error getting public key\n"); | ||
724 | ERR_print_errors(bio_err); | ||
725 | goto end; | ||
726 | } | ||
727 | PEM_write_bio_PUBKEY(STDout, pkey); | ||
728 | EVP_PKEY_free(pkey); | ||
729 | } else if (C == i) { | ||
730 | unsigned char *d; | ||
731 | char *m; | ||
732 | int y, z; | ||
733 | |||
734 | X509_NAME_oneline(X509_get_subject_name(x), | ||
735 | buf, sizeof buf); | ||
736 | BIO_printf(STDout, "/* subject:%s */\n", buf); | ||
737 | m = X509_NAME_oneline( | ||
738 | X509_get_issuer_name(x), buf, | ||
739 | sizeof buf); | ||
740 | BIO_printf(STDout, "/* issuer :%s */\n", buf); | ||
741 | |||
742 | z = i2d_X509(x, NULL); | ||
743 | m = malloc(z); | ||
744 | |||
745 | d = (unsigned char *) m; | ||
746 | z = i2d_X509_NAME(X509_get_subject_name(x), &d); | ||
747 | BIO_printf(STDout, "unsigned char XXX_subject_name[%d]={\n", z); | ||
748 | d = (unsigned char *) m; | ||
749 | for (y = 0; y < z; y++) { | ||
750 | BIO_printf(STDout, "0x%02X,", d[y]); | ||
751 | if ((y & 0x0f) == 0x0f) | ||
752 | BIO_printf(STDout, "\n"); | ||
753 | } | ||
754 | if (y % 16 != 0) | ||
755 | BIO_printf(STDout, "\n"); | ||
756 | BIO_printf(STDout, "};\n"); | ||
757 | |||
758 | z = i2d_X509_PUBKEY(X509_get_X509_PUBKEY(x), &d); | ||
759 | BIO_printf(STDout, "unsigned char XXX_public_key[%d]={\n", z); | ||
760 | d = (unsigned char *) m; | ||
761 | for (y = 0; y < z; y++) { | ||
762 | BIO_printf(STDout, "0x%02X,", d[y]); | ||
763 | if ((y & 0x0f) == 0x0f) | ||
764 | BIO_printf(STDout, "\n"); | ||
765 | } | ||
766 | if (y % 16 != 0) | ||
767 | BIO_printf(STDout, "\n"); | ||
768 | BIO_printf(STDout, "};\n"); | ||
769 | |||
770 | z = i2d_X509(x, &d); | ||
771 | BIO_printf(STDout, "unsigned char XXX_certificate[%d]={\n", z); | ||
772 | d = (unsigned char *) m; | ||
773 | for (y = 0; y < z; y++) { | ||
774 | BIO_printf(STDout, "0x%02X,", d[y]); | ||
775 | if ((y & 0x0f) == 0x0f) | ||
776 | BIO_printf(STDout, "\n"); | ||
777 | } | ||
778 | if (y % 16 != 0) | ||
779 | BIO_printf(STDout, "\n"); | ||
780 | BIO_printf(STDout, "};\n"); | ||
781 | |||
782 | free(m); | ||
783 | } else if (text == i) { | ||
784 | X509_print_ex(STDout, x, nmflag, certflag); | ||
785 | } else if (startdate == i) { | ||
786 | BIO_puts(STDout, "notBefore="); | ||
787 | ASN1_TIME_print(STDout, X509_get_notBefore(x)); | ||
788 | BIO_puts(STDout, "\n"); | ||
789 | } else if (enddate == i) { | ||
790 | BIO_puts(STDout, "notAfter="); | ||
791 | ASN1_TIME_print(STDout, X509_get_notAfter(x)); | ||
792 | BIO_puts(STDout, "\n"); | ||
793 | } else if (fingerprint == i) { | ||
794 | int j; | ||
795 | unsigned int n; | ||
796 | unsigned char md[EVP_MAX_MD_SIZE]; | ||
797 | const EVP_MD *fdig = digest; | ||
798 | |||
799 | if (!fdig) | ||
800 | fdig = EVP_sha1(); | ||
801 | |||
802 | if (!X509_digest(x, fdig, md, &n)) { | ||
803 | BIO_printf(bio_err, "out of memory\n"); | ||
804 | goto end; | ||
805 | } | ||
806 | BIO_printf(STDout, "%s Fingerprint=", | ||
807 | OBJ_nid2sn(EVP_MD_type(fdig))); | ||
808 | for (j = 0; j < (int) n; j++) { | ||
809 | BIO_printf(STDout, "%02X%c", md[j], | ||
810 | (j + 1 == (int)n) ? '\n' : ':'); | ||
811 | } | ||
812 | } | ||
813 | /* should be in the library */ | ||
814 | else if ((sign_flag == i) && (x509req == 0)) { | ||
815 | BIO_printf(bio_err, "Getting Private key\n"); | ||
816 | if (Upkey == NULL) { | ||
817 | Upkey = load_key(bio_err, | ||
818 | keyfile, keyformat, 0, | ||
819 | passin, e, "Private key"); | ||
820 | if (Upkey == NULL) | ||
821 | goto end; | ||
822 | } | ||
823 | if (!sign(x, Upkey, days, clrext, digest, | ||
824 | extconf, extsect)) | ||
825 | goto end; | ||
826 | } else if (CA_flag == i) { | ||
827 | BIO_printf(bio_err, "Getting CA Private Key\n"); | ||
828 | if (CAkeyfile != NULL) { | ||
829 | CApkey = load_key(bio_err, | ||
830 | CAkeyfile, CAkeyformat, | ||
831 | 0, passin, e, | ||
832 | "CA Private Key"); | ||
833 | if (CApkey == NULL) | ||
834 | goto end; | ||
835 | } | ||
836 | if (!x509_certify(ctx, CAfile, digest, x, xca, | ||
837 | CApkey, sigopts, | ||
838 | CAserial, CA_createserial, days, clrext, | ||
839 | extconf, extsect, sno)) | ||
840 | goto end; | ||
841 | } else if (x509req == i) { | ||
842 | EVP_PKEY *pk; | ||
843 | |||
844 | BIO_printf(bio_err, "Getting request Private Key\n"); | ||
845 | if (keyfile == NULL) { | ||
846 | BIO_printf(bio_err, "no request key file specified\n"); | ||
847 | goto end; | ||
848 | } else { | ||
849 | pk = load_key(bio_err, | ||
850 | keyfile, keyformat, 0, | ||
851 | passin, e, "request key"); | ||
852 | if (pk == NULL) | ||
853 | goto end; | ||
854 | } | ||
855 | |||
856 | BIO_printf(bio_err, "Generating certificate request\n"); | ||
857 | |||
858 | rq = X509_to_X509_REQ(x, pk, digest); | ||
859 | EVP_PKEY_free(pk); | ||
860 | if (rq == NULL) { | ||
861 | ERR_print_errors(bio_err); | ||
862 | goto end; | ||
863 | } | ||
864 | if (!noout) { | ||
865 | X509_REQ_print(out, rq); | ||
866 | PEM_write_bio_X509_REQ(out, rq); | ||
867 | } | ||
868 | noout = 1; | ||
869 | } else if (ocspid == i) { | ||
870 | X509_ocspid_print(out, x); | ||
871 | } | ||
872 | } | ||
873 | } | ||
874 | if (checkend) { | ||
875 | time_t tcheck = time(NULL) + checkoffset; | ||
876 | |||
877 | if (X509_cmp_time(X509_get_notAfter(x), &tcheck) < 0) { | ||
878 | BIO_printf(out, "Certificate will expire\n"); | ||
879 | ret = 1; | ||
880 | } else { | ||
881 | BIO_printf(out, "Certificate will not expire\n"); | ||
882 | ret = 0; | ||
883 | } | ||
884 | goto end; | ||
885 | } | ||
886 | if (noout) { | ||
887 | ret = 0; | ||
888 | goto end; | ||
889 | } | ||
890 | if (outformat == FORMAT_ASN1) | ||
891 | i = i2d_X509_bio(out, x); | ||
892 | else if (outformat == FORMAT_PEM) { | ||
893 | if (trustout) | ||
894 | i = PEM_write_bio_X509_AUX(out, x); | ||
895 | else | ||
896 | i = PEM_write_bio_X509(out, x); | ||
897 | } else if (outformat == FORMAT_NETSCAPE) { | ||
898 | NETSCAPE_X509 nx; | ||
899 | ASN1_OCTET_STRING hdr; | ||
900 | |||
901 | hdr.data = (unsigned char *) NETSCAPE_CERT_HDR; | ||
902 | hdr.length = strlen(NETSCAPE_CERT_HDR); | ||
903 | nx.header = &hdr; | ||
904 | nx.cert = x; | ||
905 | |||
906 | i = ASN1_item_i2d_bio(ASN1_ITEM_rptr(NETSCAPE_X509), out, &nx); | ||
907 | } else { | ||
908 | BIO_printf(bio_err, "bad output format specified for outfile\n"); | ||
909 | goto end; | ||
910 | } | ||
911 | if (!i) { | ||
912 | BIO_printf(bio_err, "unable to write certificate\n"); | ||
913 | ERR_print_errors(bio_err); | ||
914 | goto end; | ||
915 | } | ||
916 | ret = 0; | ||
917 | |||
918 | end: | ||
919 | OBJ_cleanup(); | ||
920 | NCONF_free(extconf); | ||
921 | BIO_free_all(out); | ||
922 | BIO_free_all(STDout); | ||
923 | X509_STORE_free(ctx); | ||
924 | X509_REQ_free(req); | ||
925 | X509_free(x); | ||
926 | X509_free(xca); | ||
927 | EVP_PKEY_free(Upkey); | ||
928 | EVP_PKEY_free(CApkey); | ||
929 | if (sigopts) | ||
930 | sk_OPENSSL_STRING_free(sigopts); | ||
931 | X509_REQ_free(rq); | ||
932 | ASN1_INTEGER_free(sno); | ||
933 | sk_ASN1_OBJECT_pop_free(trust, ASN1_OBJECT_free); | ||
934 | sk_ASN1_OBJECT_pop_free(reject, ASN1_OBJECT_free); | ||
935 | free(passin); | ||
936 | |||
937 | return (ret); | ||
938 | } | ||
939 | |||
940 | static ASN1_INTEGER * | ||
941 | x509_load_serial(char *CAfile, char *serialfile, int create) | ||
942 | { | ||
943 | char *buf = NULL, *p; | ||
944 | ASN1_INTEGER *bs = NULL; | ||
945 | BIGNUM *serial = NULL; | ||
946 | size_t len; | ||
947 | |||
948 | len = ((serialfile == NULL) ? (strlen(CAfile) + strlen(POSTFIX) + 1) : | ||
949 | (strlen(serialfile))) + 1; | ||
950 | buf = malloc(len); | ||
951 | if (buf == NULL) { | ||
952 | BIO_printf(bio_err, "out of mem\n"); | ||
953 | goto end; | ||
954 | } | ||
955 | if (serialfile == NULL) { | ||
956 | strlcpy(buf, CAfile, len); | ||
957 | for (p = buf; *p; p++) | ||
958 | if (*p == '.') { | ||
959 | *p = '\0'; | ||
960 | break; | ||
961 | } | ||
962 | strlcat(buf, POSTFIX, len); | ||
963 | } else | ||
964 | strlcpy(buf, serialfile, len); | ||
965 | |||
966 | serial = load_serial(buf, create, NULL); | ||
967 | if (serial == NULL) | ||
968 | goto end; | ||
969 | |||
970 | if (!BN_add_word(serial, 1)) { | ||
971 | BIO_printf(bio_err, "add_word failure\n"); | ||
972 | goto end; | ||
973 | } | ||
974 | if (!save_serial(buf, NULL, serial, &bs)) | ||
975 | goto end; | ||
976 | |||
977 | end: | ||
978 | free(buf); | ||
979 | BN_free(serial); | ||
980 | |||
981 | return bs; | ||
982 | } | ||
983 | |||
984 | static int | ||
985 | x509_certify(X509_STORE *ctx, char *CAfile, const EVP_MD *digest, X509 *x, | ||
986 | X509 *xca, EVP_PKEY *pkey, STACK_OF(OPENSSL_STRING) *sigopts, | ||
987 | char *serialfile, int create, int days, int clrext, CONF *conf, | ||
988 | char *section, ASN1_INTEGER *sno) | ||
989 | { | ||
990 | int ret = 0; | ||
991 | ASN1_INTEGER *bs = NULL; | ||
992 | X509_STORE_CTX xsc; | ||
993 | EVP_PKEY *upkey; | ||
994 | |||
995 | upkey = X509_get_pubkey(xca); | ||
996 | EVP_PKEY_copy_parameters(upkey, pkey); | ||
997 | EVP_PKEY_free(upkey); | ||
998 | |||
999 | if (!X509_STORE_CTX_init(&xsc, ctx, x, NULL)) { | ||
1000 | BIO_printf(bio_err, "Error initialising X509 store\n"); | ||
1001 | goto end; | ||
1002 | } | ||
1003 | if (sno) | ||
1004 | bs = sno; | ||
1005 | else if (!(bs = x509_load_serial(CAfile, serialfile, create))) | ||
1006 | goto end; | ||
1007 | |||
1008 | /* if (!X509_STORE_add_cert(ctx,x)) goto end;*/ | ||
1009 | |||
1010 | /* | ||
1011 | * NOTE: this certificate can/should be self signed, unless it was a | ||
1012 | * certificate request in which case it is not. | ||
1013 | */ | ||
1014 | X509_STORE_CTX_set_cert(&xsc, x); | ||
1015 | X509_STORE_CTX_set_flags(&xsc, X509_V_FLAG_CHECK_SS_SIGNATURE); | ||
1016 | if (!reqfile && X509_verify_cert(&xsc) <= 0) | ||
1017 | goto end; | ||
1018 | |||
1019 | if (!X509_check_private_key(xca, pkey)) { | ||
1020 | BIO_printf(bio_err, "CA certificate and CA private key do not match\n"); | ||
1021 | goto end; | ||
1022 | } | ||
1023 | if (!X509_set_issuer_name(x, X509_get_subject_name(xca))) | ||
1024 | goto end; | ||
1025 | if (!X509_set_serialNumber(x, bs)) | ||
1026 | goto end; | ||
1027 | |||
1028 | if (X509_gmtime_adj(X509_get_notBefore(x), 0L) == NULL) | ||
1029 | goto end; | ||
1030 | |||
1031 | /* hardwired expired */ | ||
1032 | if (X509_time_adj_ex(X509_get_notAfter(x), days, 0, NULL) == NULL) | ||
1033 | goto end; | ||
1034 | |||
1035 | if (clrext) { | ||
1036 | while (X509_get_ext_count(x) > 0) | ||
1037 | X509_delete_ext(x, 0); | ||
1038 | } | ||
1039 | if (conf) { | ||
1040 | X509V3_CTX ctx2; | ||
1041 | X509_set_version(x, 2); /* version 3 certificate */ | ||
1042 | X509V3_set_ctx(&ctx2, xca, x, NULL, NULL, 0); | ||
1043 | X509V3_set_nconf(&ctx2, conf); | ||
1044 | if (!X509V3_EXT_add_nconf(conf, &ctx2, section, x)) | ||
1045 | goto end; | ||
1046 | } | ||
1047 | if (!do_X509_sign(bio_err, x, pkey, digest, sigopts)) | ||
1048 | goto end; | ||
1049 | ret = 1; | ||
1050 | end: | ||
1051 | X509_STORE_CTX_cleanup(&xsc); | ||
1052 | if (!ret) | ||
1053 | ERR_print_errors(bio_err); | ||
1054 | if (!sno) | ||
1055 | ASN1_INTEGER_free(bs); | ||
1056 | return ret; | ||
1057 | } | ||
1058 | |||
1059 | static int | ||
1060 | callb(int ok, X509_STORE_CTX *ctx) | ||
1061 | { | ||
1062 | int err; | ||
1063 | X509 *err_cert; | ||
1064 | |||
1065 | /* | ||
1066 | * it is ok to use a self signed certificate This case will catch | ||
1067 | * both the initial ok == 0 and the final ok == 1 calls to this | ||
1068 | * function | ||
1069 | */ | ||
1070 | err = X509_STORE_CTX_get_error(ctx); | ||
1071 | if (err == X509_V_ERR_DEPTH_ZERO_SELF_SIGNED_CERT) | ||
1072 | return 1; | ||
1073 | |||
1074 | /* | ||
1075 | * BAD we should have gotten an error. Normally if everything worked | ||
1076 | * X509_STORE_CTX_get_error(ctx) will still be set to | ||
1077 | * DEPTH_ZERO_SELF_.... | ||
1078 | */ | ||
1079 | if (ok) { | ||
1080 | BIO_printf(bio_err, "error with certificate to be certified - should be self signed\n"); | ||
1081 | return 0; | ||
1082 | } else { | ||
1083 | err_cert = X509_STORE_CTX_get_current_cert(ctx); | ||
1084 | print_name(bio_err, NULL, X509_get_subject_name(err_cert), 0); | ||
1085 | BIO_printf(bio_err, "error with certificate - error %d at depth %d\n%s\n", | ||
1086 | err, X509_STORE_CTX_get_error_depth(ctx), | ||
1087 | X509_verify_cert_error_string(err)); | ||
1088 | return 1; | ||
1089 | } | ||
1090 | } | ||
1091 | |||
1092 | /* self sign */ | ||
1093 | static int | ||
1094 | sign(X509 *x, EVP_PKEY *pkey, int days, int clrext, const EVP_MD *digest, | ||
1095 | CONF *conf, char *section) | ||
1096 | { | ||
1097 | |||
1098 | EVP_PKEY *pktmp; | ||
1099 | |||
1100 | pktmp = X509_get_pubkey(x); | ||
1101 | EVP_PKEY_copy_parameters(pktmp, pkey); | ||
1102 | EVP_PKEY_save_parameters(pktmp, 1); | ||
1103 | EVP_PKEY_free(pktmp); | ||
1104 | |||
1105 | if (!X509_set_issuer_name(x, X509_get_subject_name(x))) | ||
1106 | goto err; | ||
1107 | if (X509_gmtime_adj(X509_get_notBefore(x), 0) == NULL) | ||
1108 | goto err; | ||
1109 | |||
1110 | /* Lets just make it 12:00am GMT, Jan 1 1970 */ | ||
1111 | /* memcpy(x->cert_info->validity->notBefore,"700101120000Z",13); */ | ||
1112 | /* 28 days to be certified */ | ||
1113 | |||
1114 | if (X509_gmtime_adj(X509_get_notAfter(x), | ||
1115 | (long) 60 * 60 * 24 * days) == NULL) | ||
1116 | goto err; | ||
1117 | |||
1118 | if (!X509_set_pubkey(x, pkey)) | ||
1119 | goto err; | ||
1120 | if (clrext) { | ||
1121 | while (X509_get_ext_count(x) > 0) | ||
1122 | X509_delete_ext(x, 0); | ||
1123 | } | ||
1124 | if (conf) { | ||
1125 | X509V3_CTX ctx; | ||
1126 | X509_set_version(x, 2); /* version 3 certificate */ | ||
1127 | X509V3_set_ctx(&ctx, x, x, NULL, NULL, 0); | ||
1128 | X509V3_set_nconf(&ctx, conf); | ||
1129 | if (!X509V3_EXT_add_nconf(conf, &ctx, section, x)) | ||
1130 | goto err; | ||
1131 | } | ||
1132 | if (!X509_sign(x, pkey, digest)) | ||
1133 | goto err; | ||
1134 | return 1; | ||
1135 | |||
1136 | err: | ||
1137 | ERR_print_errors(bio_err); | ||
1138 | return 0; | ||
1139 | } | ||
1140 | |||
1141 | static int | ||
1142 | purpose_print(BIO *bio, X509 *cert, X509_PURPOSE *pt) | ||
1143 | { | ||
1144 | int id, i, idret; | ||
1145 | char *pname; | ||
1146 | |||
1147 | id = X509_PURPOSE_get_id(pt); | ||
1148 | pname = X509_PURPOSE_get0_name(pt); | ||
1149 | for (i = 0; i < 2; i++) { | ||
1150 | idret = X509_check_purpose(cert, id, i); | ||
1151 | BIO_printf(bio, "%s%s : ", pname, i ? " CA" : ""); | ||
1152 | if (idret == 1) | ||
1153 | BIO_printf(bio, "Yes\n"); | ||
1154 | else if (idret == 0) | ||
1155 | BIO_printf(bio, "No\n"); | ||
1156 | else | ||
1157 | BIO_printf(bio, "Yes (WARNING code=%d)\n", idret); | ||
1158 | } | ||
1159 | return 1; | ||
1160 | } | ||