1 /* Written by Ben Laurie, 2001 */
3 * Copyright (c) 2001 The OpenSSL Project. All rights reserved.
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
9 * 1. Redistributions of source code must retain the above copyright
10 * notice, this list of conditions and the following disclaimer.
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
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/)"
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.
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.
31 * 6. Redistributions of any form whatsoever must retain the following
33 * "This product includes software developed by the OpenSSL Project
34 * for use in the OpenSSL Toolkit (http://www.openssl.org/)"
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.
55 #include <openssl/opensslconf.h>
56 #include <openssl/evp.h>
57 #ifndef OPENSSL_NO_ENGINE
58 # include <openssl/engine.h>
60 #include <openssl/err.h>
61 #include <openssl/conf.h>
63 static void hexdump(FILE *f, const char *title, const unsigned char *s, int l)
67 fprintf(f, "%s", title);
70 fprintf(f, "\n%04x", n);
71 fprintf(f, " %02x", s[n]);
76 static int convert(unsigned char *s)
80 for (d = s; *s; s += 2, ++d) {
84 fprintf(stderr, "Odd number of hex digits!");
87 sscanf((char *)s, "%2x", &n);
88 *d = (unsigned char)n;
93 static char *sstrsep(char **string, const char *delim)
96 char *token = *string;
101 memset(isdelim, 0, 256);
105 isdelim[(unsigned char)(*delim)] = 1;
109 while (!isdelim[(unsigned char)(**string)]) {
121 static unsigned char *ustrsep(char **p, const char *sep)
123 return (unsigned char *)sstrsep(p, sep);
126 static int test1_exit(int ec)
129 return (0); /* To keep some compilers quiet */
132 /* Test copying of contexts */
133 static void test_ctx_replace(EVP_CIPHER_CTX **pctx)
135 /* Make copy of context and replace original */
136 EVP_CIPHER_CTX *ctx_copy;
137 ctx_copy = EVP_CIPHER_CTX_new();
138 EVP_CIPHER_CTX_copy(ctx_copy, *pctx);
139 EVP_CIPHER_CTX_free(*pctx);
143 static void test1(const EVP_CIPHER *c, const unsigned char *key, int kn,
144 const unsigned char *iv, int in,
145 const unsigned char *plaintext, int pn,
146 const unsigned char *ciphertext, int cn,
147 const unsigned char *aad, int an,
148 const unsigned char *tag, int tn, int encdec)
150 EVP_CIPHER_CTX *ctx = NULL;
151 unsigned char out[4096];
152 int outl, outl2, mode;
154 printf("Testing cipher %s%s\n", EVP_CIPHER_name(c),
156 1 ? "(encrypt)" : (encdec ==
157 0 ? "(decrypt)" : "(encrypt/decrypt)")));
158 hexdump(stdout, "Key", key, kn);
160 hexdump(stdout, "IV", iv, in);
161 hexdump(stdout, "Plaintext", plaintext, pn);
162 hexdump(stdout, "Ciphertext", ciphertext, cn);
164 hexdump(stdout, "AAD", aad, an);
166 hexdump(stdout, "Tag", tag, tn);
167 mode = EVP_CIPHER_mode(c);
168 if (kn != EVP_CIPHER_key_length(c)) {
169 fprintf(stderr, "Key length doesn't match, got %d expected %lu\n", kn,
170 (unsigned long)EVP_CIPHER_key_length(c));
173 ctx = EVP_CIPHER_CTX_new();
174 EVP_CIPHER_CTX_set_flags(ctx, EVP_CIPHER_CTX_FLAG_WRAP_ALLOW);
176 if ((mode == EVP_CIPH_GCM_MODE) || (mode == EVP_CIPH_OCB_MODE)) {
177 if (!EVP_EncryptInit_ex(ctx, c, NULL, NULL, NULL)) {
178 fprintf(stderr, "EncryptInit failed\n");
179 ERR_print_errors_fp(stderr);
182 if (!EVP_CIPHER_CTX_ctrl(ctx, EVP_CTRL_AEAD_SET_IVLEN, in, NULL)) {
183 fprintf(stderr, "IV length set failed\n");
184 ERR_print_errors_fp(stderr);
187 if ((mode == EVP_CIPH_OCB_MODE) &&
188 !EVP_CIPHER_CTX_ctrl(ctx, EVP_CTRL_AEAD_SET_TAG, tn, NULL)) {
189 fprintf(stderr, "Tag length set failed\n");
190 ERR_print_errors_fp(stderr);
193 if (!EVP_EncryptInit_ex(ctx, NULL, NULL, key, iv)) {
194 fprintf(stderr, "Key/IV set failed\n");
195 ERR_print_errors_fp(stderr);
198 if (an && !EVP_EncryptUpdate(ctx, NULL, &outl, aad, an)) {
199 fprintf(stderr, "AAD set failed\n");
200 ERR_print_errors_fp(stderr);
203 } else if (mode == EVP_CIPH_CCM_MODE) {
204 if (!EVP_EncryptInit_ex(ctx, c, NULL, NULL, NULL)) {
205 fprintf(stderr, "EncryptInit failed\n");
206 ERR_print_errors_fp(stderr);
209 if (!EVP_CIPHER_CTX_ctrl(ctx, EVP_CTRL_SET_IVLEN, in, NULL)) {
210 fprintf(stderr, "IV length set failed\n");
211 ERR_print_errors_fp(stderr);
214 if (!EVP_CIPHER_CTX_ctrl(ctx, EVP_CTRL_SET_TAG, tn, NULL)) {
215 fprintf(stderr, "Tag length set failed\n");
216 ERR_print_errors_fp(stderr);
219 if (!EVP_EncryptInit_ex(ctx, NULL, NULL, key, iv)) {
220 fprintf(stderr, "Key/IV set failed\n");
221 ERR_print_errors_fp(stderr);
224 if (!EVP_EncryptUpdate(ctx, NULL, &outl, NULL, pn)) {
225 fprintf(stderr, "Plaintext length set failed\n");
226 ERR_print_errors_fp(stderr);
229 if (an && !EVP_EncryptUpdate(ctx, NULL, &outl, aad, an)) {
230 fprintf(stderr, "AAD set failed\n");
231 ERR_print_errors_fp(stderr);
234 } else if (mode == EVP_CIPH_WRAP_MODE) {
235 if (!EVP_EncryptInit_ex(ctx, c, NULL, key, in ? iv : NULL)) {
236 fprintf(stderr, "EncryptInit failed\n");
237 ERR_print_errors_fp(stderr);
240 } else if (!EVP_EncryptInit_ex(ctx, c, NULL, key, iv)) {
241 fprintf(stderr, "EncryptInit failed\n");
242 ERR_print_errors_fp(stderr);
245 EVP_CIPHER_CTX_set_padding(ctx, 0);
247 test_ctx_replace(&ctx);
249 if (!EVP_EncryptUpdate(ctx, out, &outl, plaintext, pn)) {
250 fprintf(stderr, "Encrypt failed\n");
251 ERR_print_errors_fp(stderr);
254 if (!EVP_EncryptFinal_ex(ctx, out + outl, &outl2)) {
255 fprintf(stderr, "EncryptFinal failed\n");
256 ERR_print_errors_fp(stderr);
260 if (outl + outl2 != cn) {
261 fprintf(stderr, "Ciphertext length mismatch got %d expected %d\n",
266 if (memcmp(out, ciphertext, cn)) {
267 fprintf(stderr, "Ciphertext mismatch\n");
268 hexdump(stderr, "Got", out, cn);
269 hexdump(stderr, "Expected", ciphertext, cn);
272 if ((mode == EVP_CIPH_GCM_MODE) || (mode == EVP_CIPH_OCB_MODE)
273 || (mode == EVP_CIPH_CCM_MODE)) {
274 unsigned char rtag[16];
276 if (!EVP_CIPHER_CTX_ctrl(ctx, EVP_CTRL_AEAD_GET_TAG, tn, rtag)) {
277 fprintf(stderr, "Get tag failed\n");
278 ERR_print_errors_fp(stderr);
281 if (memcmp(rtag, tag, tn)) {
282 fprintf(stderr, "Tag mismatch\n");
283 hexdump(stderr, "Got", rtag, tn);
284 hexdump(stderr, "Expected", tag, tn);
291 if ((mode == EVP_CIPH_GCM_MODE) || (mode == EVP_CIPH_OCB_MODE)) {
292 if (!EVP_DecryptInit_ex(ctx, c, NULL, NULL, NULL)) {
293 fprintf(stderr, "DecryptInit failed\n");
294 ERR_print_errors_fp(stderr);
297 if (!EVP_CIPHER_CTX_ctrl(ctx, EVP_CTRL_AEAD_SET_IVLEN, in, NULL)) {
298 fprintf(stderr, "IV length set failed\n");
299 ERR_print_errors_fp(stderr);
302 if ((mode == EVP_CIPH_OCB_MODE) &&
303 !EVP_CIPHER_CTX_ctrl(ctx, EVP_CTRL_AEAD_SET_TAG, tn, NULL)) {
304 fprintf(stderr, "Tag length set failed\n");
305 ERR_print_errors_fp(stderr);
308 if (!EVP_DecryptInit_ex(ctx, NULL, NULL, key, iv)) {
309 fprintf(stderr, "Key/IV set failed\n");
310 ERR_print_errors_fp(stderr);
313 if (!EVP_CIPHER_CTX_ctrl
314 (ctx, EVP_CTRL_AEAD_SET_TAG, tn, (void *)tag)) {
315 fprintf(stderr, "Set tag failed\n");
316 ERR_print_errors_fp(stderr);
319 if (an && !EVP_DecryptUpdate(ctx, NULL, &outl, aad, an)) {
320 fprintf(stderr, "AAD set failed\n");
321 ERR_print_errors_fp(stderr);
324 } else if (mode == EVP_CIPH_CCM_MODE) {
325 if (!EVP_DecryptInit_ex(ctx, c, NULL, NULL, NULL)) {
326 fprintf(stderr, "DecryptInit failed\n");
327 ERR_print_errors_fp(stderr);
330 if (!EVP_CIPHER_CTX_ctrl(ctx, EVP_CTRL_AEAD_SET_IVLEN, in, NULL)) {
331 fprintf(stderr, "IV length set failed\n");
332 ERR_print_errors_fp(stderr);
335 if (!EVP_CIPHER_CTX_ctrl
336 (ctx, EVP_CTRL_AEAD_SET_TAG, tn, (void *)tag)) {
337 fprintf(stderr, "Tag length set failed\n");
338 ERR_print_errors_fp(stderr);
341 if (!EVP_DecryptInit_ex(ctx, NULL, NULL, key, iv)) {
342 fprintf(stderr, "Key/Nonce set failed\n");
343 ERR_print_errors_fp(stderr);
346 if (!EVP_DecryptUpdate(ctx, NULL, &outl, NULL, pn)) {
347 fprintf(stderr, "Plaintext length set failed\n");
348 ERR_print_errors_fp(stderr);
351 if (an && !EVP_EncryptUpdate(ctx, NULL, &outl, aad, an)) {
352 fprintf(stderr, "AAD set failed\n");
353 ERR_print_errors_fp(stderr);
356 } else if (mode == EVP_CIPH_WRAP_MODE) {
357 if (!EVP_DecryptInit_ex(ctx, c, NULL, key, in ? iv : NULL)) {
358 fprintf(stderr, "EncryptInit failed\n");
359 ERR_print_errors_fp(stderr);
362 } else if (!EVP_DecryptInit_ex(ctx, c, NULL, key, iv)) {
363 fprintf(stderr, "DecryptInit failed\n");
364 ERR_print_errors_fp(stderr);
367 EVP_CIPHER_CTX_set_padding(ctx, 0);
369 test_ctx_replace(&ctx);
371 if (!EVP_DecryptUpdate(ctx, out, &outl, ciphertext, cn)) {
372 fprintf(stderr, "Decrypt failed\n");
373 ERR_print_errors_fp(stderr);
376 if (mode != EVP_CIPH_CCM_MODE
377 && !EVP_DecryptFinal_ex(ctx, out + outl, &outl2)) {
378 fprintf(stderr, "DecryptFinal failed\n");
379 ERR_print_errors_fp(stderr);
383 if (outl + outl2 != pn) {
384 fprintf(stderr, "Plaintext length mismatch got %d expected %d\n",
389 if (memcmp(out, plaintext, pn)) {
390 fprintf(stderr, "Plaintext mismatch\n");
391 hexdump(stderr, "Got", out, pn);
392 hexdump(stderr, "Expected", plaintext, pn);
397 EVP_CIPHER_CTX_free(ctx);
402 static int test_cipher(const char *cipher, const unsigned char *key, int kn,
403 const unsigned char *iv, int in,
404 const unsigned char *plaintext, int pn,
405 const unsigned char *ciphertext, int cn,
406 const unsigned char *aad, int an,
407 const unsigned char *tag, int tn, int encdec)
411 #ifdef OPENSSL_NO_OCB
412 if (strstr(cipher, "ocb") != NULL)
415 c = EVP_get_cipherbyname(cipher);
419 test1(c, key, kn, iv, in, plaintext, pn, ciphertext, cn, aad, an, tag, tn,
425 static int test_digest(const char *digest,
426 const unsigned char *plaintext, int pn,
427 const unsigned char *ciphertext, unsigned int cn)
431 unsigned char md[EVP_MAX_MD_SIZE];
434 d = EVP_get_digestbyname(digest);
438 printf("Testing digest %s\n", EVP_MD_name(d));
439 hexdump(stdout, "Plaintext", plaintext, pn);
440 hexdump(stdout, "Digest", ciphertext, cn);
442 EVP_MD_CTX_init(&ctx);
443 if (!EVP_DigestInit_ex(&ctx, d, NULL)) {
444 fprintf(stderr, "DigestInit failed\n");
445 ERR_print_errors_fp(stderr);
448 if (!EVP_DigestUpdate(&ctx, plaintext, pn)) {
449 fprintf(stderr, "DigestUpdate failed\n");
450 ERR_print_errors_fp(stderr);
453 if (!EVP_DigestFinal_ex(&ctx, md, &mdn)) {
454 fprintf(stderr, "DigestFinal failed\n");
455 ERR_print_errors_fp(stderr);
458 EVP_MD_CTX_cleanup(&ctx);
461 fprintf(stderr, "Digest length mismatch, got %d expected %d\n", mdn,
466 if (memcmp(md, ciphertext, cn)) {
467 fprintf(stderr, "Digest mismatch\n");
468 hexdump(stderr, "Got", md, cn);
469 hexdump(stderr, "Expected", ciphertext, cn);
475 EVP_MD_CTX_cleanup(&ctx);
480 int main(int argc, char **argv)
482 const char *szTestFile;
486 fprintf(stderr, "%s <test file>\n", argv[0]);
489 CRYPTO_malloc_debug_init();
490 CRYPTO_set_mem_debug_options(V_CRYPTO_MDEBUG_ALL);
491 CRYPTO_mem_ctrl(CRYPTO_MEM_CHECK_ON);
493 szTestFile = argv[1];
495 f = fopen(szTestFile, "r");
500 ERR_load_crypto_strings();
501 /* Load up the software EVP_CIPHER and EVP_MD definitions */
502 OpenSSL_add_all_ciphers();
503 OpenSSL_add_all_digests();
504 #ifndef OPENSSL_NO_ENGINE
505 /* Load all compiled-in ENGINEs */
506 ENGINE_load_builtin_engines();
511 #ifndef OPENSSL_NO_ENGINE
513 * Register all available ENGINE implementations of ciphers and digests.
514 * This could perhaps be changed to "ENGINE_register_all_complete()"?
516 ENGINE_register_all_ciphers();
517 ENGINE_register_all_digests();
519 * If we add command-line options, this statement should be switchable.
520 * It'll prevent ENGINEs being ENGINE_init()ialised for cipher/digest use
521 * if they weren't already initialised.
523 /* ENGINE_set_cipher_flags(ENGINE_CIPHER_FLAG_NOINIT); */
530 unsigned char *iv, *key, *plaintext, *ciphertext, *aad, *tag;
536 if (!fgets((char *)line, sizeof line, f))
538 if (line[0] == '#' || line[0] == '\n')
541 cipher = sstrsep(&p, ":");
542 key = ustrsep(&p, ":");
543 iv = ustrsep(&p, ":");
544 plaintext = ustrsep(&p, ":");
545 ciphertext = ustrsep(&p, ":");
552 aad = ustrsep(&p, ":");
553 tag = ustrsep(&p, ":");
563 encdec = atoi(sstrsep(&p, "\n"));
568 pn = convert(plaintext);
569 cn = convert(ciphertext);
576 (cipher, key, kn, iv, in, plaintext, pn, ciphertext, cn, aad, an,
578 && !test_digest(cipher, plaintext, pn, ciphertext, cn)) {
579 #ifdef OPENSSL_NO_AES
580 if (strstr(cipher, "AES") == cipher) {
581 fprintf(stdout, "Cipher disabled, skipping %s\n", cipher);
585 #ifdef OPENSSL_NO_DES
586 if (strstr(cipher, "DES") == cipher) {
587 fprintf(stdout, "Cipher disabled, skipping %s\n", cipher);
591 #ifdef OPENSSL_NO_RC4
592 if (strstr(cipher, "RC4") == cipher) {
593 fprintf(stdout, "Cipher disabled, skipping %s\n", cipher);
597 #ifdef OPENSSL_NO_CAMELLIA
598 if (strstr(cipher, "CAMELLIA") == cipher) {
599 fprintf(stdout, "Cipher disabled, skipping %s\n", cipher);
603 #ifdef OPENSSL_NO_SEED
604 if (strstr(cipher, "SEED") == cipher) {
605 fprintf(stdout, "Cipher disabled, skipping %s\n", cipher);
609 fprintf(stderr, "Can't find %s\n", cipher);
615 #ifndef OPENSSL_NO_ENGINE
619 CRYPTO_cleanup_all_ex_data();
620 ERR_remove_thread_state(NULL);
622 CRYPTO_mem_leaks_fp(stderr);