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/evp.h>
56 #ifndef OPENSSL_NO_ENGINE
57 #include <openssl/engine.h>
59 #include <openssl/err.h>
60 #include <openssl/conf.h>
62 static void hexdump(FILE *f
,const char *title
,const unsigned char *s
,int l
)
66 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
)
86 fprintf(stderr
,"Odd number of hex digits!");
89 sscanf((char *)s
,"%2x",&n
);
95 static char *sstrsep(char **string
, const char *delim
)
98 char *token
= *string
;
103 memset(isdelim
, 0, 256);
108 isdelim
[(unsigned char)(*delim
)] = 1;
112 while (!isdelim
[(unsigned char)(**string
)])
126 static unsigned char *ustrsep(char **p
,const char *sep
)
127 { return (unsigned char *)sstrsep(p
,sep
); }
129 static int test1_exit(int ec
)
132 return(0); /* To keep some compilers quiet */
135 static void test1(const EVP_CIPHER
*c
,const unsigned char *key
,int kn
,
136 const unsigned char *iv
,int in
,
137 const unsigned char *plaintext
,int pn
,
138 const unsigned char *ciphertext
,int cn
,
139 int encdec
,int multiplier
)
142 unsigned char out
[4096];
145 printf("Testing cipher %s%s\n",EVP_CIPHER_name(c
),
146 (encdec
== 1 ? "(encrypt)" : (encdec
== 0 ? "(decrypt)" : "(encrypt/decrypt)")));
147 hexdump(stdout
,"Key",key
,kn
);
149 hexdump(stdout
,"IV",iv
,in
);
150 hexdump(stdout
,"Plaintext",plaintext
,pn
);
151 hexdump(stdout
,"Ciphertext",ciphertext
,cn
);
155 fprintf(stderr
,"Key length doesn't match, got %d expected %d\n",kn
,
159 EVP_CIPHER_CTX_init(&ctx
);
162 if(!EVP_EncryptInit_ex(&ctx
,c
,NULL
,key
,iv
))
164 fprintf(stderr
,"EncryptInit failed\n");
165 ERR_print_errors_fp(stderr
);
168 EVP_CIPHER_CTX_set_padding(&ctx
,0);
170 if(!EVP_EncryptUpdate(&ctx
,out
,&outl
,plaintext
,pn
*multiplier
))
172 fprintf(stderr
,"Encrypt failed\n");
173 ERR_print_errors_fp(stderr
);
176 if(!EVP_EncryptFinal_ex(&ctx
,out
+outl
,&outl2
))
178 fprintf(stderr
,"EncryptFinal failed\n");
179 ERR_print_errors_fp(stderr
);
183 if(outl
+outl2
!= cn
*multiplier
)
185 fprintf(stderr
,"Ciphertext length mismatch got %d expected %d\n",
190 if(memcmp(out
,ciphertext
,cn
))
192 fprintf(stderr
,"Ciphertext mismatch\n");
193 hexdump(stderr
,"Got",out
,cn
);
194 hexdump(stderr
,"Expected",ciphertext
,cn
);
201 if(!EVP_DecryptInit_ex(&ctx
,c
,NULL
,key
,iv
))
203 fprintf(stderr
,"DecryptInit failed\n");
204 ERR_print_errors_fp(stderr
);
207 EVP_CIPHER_CTX_set_padding(&ctx
,0);
209 if(!EVP_DecryptUpdate(&ctx
,out
,&outl
,ciphertext
,cn
*multiplier
))
211 fprintf(stderr
,"Decrypt failed\n");
212 ERR_print_errors_fp(stderr
);
215 if(!EVP_DecryptFinal_ex(&ctx
,out
+outl
,&outl2
))
217 fprintf(stderr
,"DecryptFinal failed\n");
218 ERR_print_errors_fp(stderr
);
222 if(outl
+outl2
!= cn
*multiplier
)
224 fprintf(stderr
,"Plaintext length mismatch got %d expected %d\n",
229 if(memcmp(out
,plaintext
,cn
))
231 fprintf(stderr
,"Plaintext mismatch\n");
232 hexdump(stderr
,"Got",out
,cn
);
233 hexdump(stderr
,"Expected",plaintext
,cn
);
238 EVP_CIPHER_CTX_cleanup(&ctx
);
243 static int test_cipher(const char *cipher
,const unsigned char *key
,int kn
,
244 const unsigned char *iv
,int in
,
245 const unsigned char *plaintext
,int pn
,
246 const unsigned char *ciphertext
,int cn
,
247 int encdec
,int multiplier
)
251 c
=EVP_get_cipherbyname(cipher
);
255 test1(c
,key
,kn
,iv
,in
,plaintext
,pn
,ciphertext
,cn
,encdec
,multiplier
);
260 static int test_digest(const char *digest
,
261 const unsigned char *plaintext
,int pn
,
262 const unsigned char *ciphertext
, unsigned int cn
)
266 unsigned char md
[EVP_MAX_MD_SIZE
];
269 d
=EVP_get_digestbyname(digest
);
273 printf("Testing digest %s\n",EVP_MD_name(d
));
274 hexdump(stdout
,"Plaintext",plaintext
,pn
);
275 hexdump(stdout
,"Digest",ciphertext
,cn
);
277 EVP_MD_CTX_init(&ctx
);
278 if(!EVP_DigestInit_ex(&ctx
,d
, NULL
))
280 fprintf(stderr
,"DigestInit failed\n");
281 ERR_print_errors_fp(stderr
);
284 if(!EVP_DigestUpdate(&ctx
,plaintext
,pn
))
286 fprintf(stderr
,"DigestUpdate failed\n");
287 ERR_print_errors_fp(stderr
);
290 if(!EVP_DigestFinal_ex(&ctx
,md
,&mdn
))
292 fprintf(stderr
,"DigestFinal failed\n");
293 ERR_print_errors_fp(stderr
);
296 EVP_MD_CTX_cleanup(&ctx
);
300 fprintf(stderr
,"Digest length mismatch, got %d expected %d\n",mdn
,cn
);
304 if(memcmp(md
,ciphertext
,cn
))
306 fprintf(stderr
,"Digest mismatch\n");
307 hexdump(stderr
,"Got",md
,cn
);
308 hexdump(stderr
,"Expected",ciphertext
,cn
);
314 EVP_MD_CTX_cleanup(&ctx
);
319 int main(int argc
,char **argv
)
321 const char *szTestFile
;
326 fprintf(stderr
,"%s <test file>\n",argv
[0]);
329 CRYPTO_malloc_debug_init();
330 CRYPTO_set_mem_debug_options(V_CRYPTO_MDEBUG_ALL
);
331 CRYPTO_mem_ctrl(CRYPTO_MEM_CHECK_ON
);
335 f
=fopen(szTestFile
,"r");
342 /* Load up the software EVP_CIPHER and EVP_MD definitions */
343 OpenSSL_add_all_ciphers();
344 OpenSSL_add_all_digests();
345 #ifndef OPENSSL_NO_ENGINE
346 /* Load all compiled-in ENGINEs */
347 ENGINE_load_builtin_engines();
352 #ifndef OPENSSL_NO_ENGINE
353 /* Register all available ENGINE implementations of ciphers and digests.
354 * This could perhaps be changed to "ENGINE_register_all_complete()"? */
355 ENGINE_register_all_ciphers();
356 ENGINE_register_all_digests();
357 /* If we add command-line options, this statement should be switchable.
358 * It'll prevent ENGINEs being ENGINE_init()ialised for cipher/digest use if
359 * they weren't already initialised. */
360 /* ENGINE_set_cipher_flags(ENGINE_CIPHER_FLAG_NOINIT); */
368 unsigned char *iv
,*key
,*plaintext
,*ciphertext
;
373 if(!fgets((char *)line
,sizeof line
,f
))
375 if(line
[0] == '#' || line
[0] == '\n')
378 cipher
=sstrsep(&p
,":");
381 plaintext
=ustrsep(&p
,":");
382 ciphertext
=ustrsep(&p
,":");
387 encdec
= atoi(sstrsep(&p
,"\n"));
393 pn
=convert(plaintext
);
394 cn
=convert(ciphertext
);
396 if(strchr(cipher
,'*'))
400 multiplier
=atoi(sstrsep(&p
,"*"));
403 if(!test_cipher(cipher
,key
,kn
,iv
,in
,plaintext
,pn
,ciphertext
,cn
,encdec
,
405 && !test_digest(cipher
,plaintext
,pn
,ciphertext
,cn
))
407 fprintf(stderr
,"Can't find %s\n",cipher
);
412 #ifndef OPENSSL_NO_ENGINE
416 CRYPTO_cleanup_all_ex_data();
419 CRYPTO_mem_leaks_fp(stderr
);