efbe9fa3c99d3212b2cf9eb9efd601f3e560b3fd
[openssl.git] / crypto / evp / evp_test.c
1 /* Written by Ben Laurie, 2001 */
2 /*
3  * Copyright (c) 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 #include <stdio.h>
51 #include <string.h>
52 #include <openssl/evp.h>
53 #include <openssl/engine.h>
54
55 static void hexdump(FILE *f,const char *title,const unsigned char *s,int l)
56     {
57     int n=0;
58
59     fprintf(f,"%s",title);
60     for( ; n < l ; ++n)
61         {
62         if((n%16) == 0)
63             fprintf(f,"\n%04x",n);
64         fprintf(f," %02x",s[n]);
65         }
66     fprintf(f,"\n");
67     }
68
69 static int convert(unsigned char *s)
70     {
71     unsigned char *d;
72
73     for(d=s ; *s ; s+=2,++d)
74         {
75         int n;
76
77         if(!s[1])
78             {
79             fprintf(stderr,"Odd number of hex digits!");
80             exit(4);
81             }
82         sscanf((char *)s,"%2x",&n);
83         *d=(unsigned char)n;
84         }
85     return s-d;
86     }
87
88 static unsigned char *ustrsep(char **p,const char *sep)
89     { return (unsigned char *)strsep((char **)p,sep); }
90
91 static void test1(const EVP_CIPHER *c,const unsigned char *key,int kn,
92                   const unsigned char *iv,int in,
93                   const unsigned char *plaintext,int pn,
94                   const unsigned char *ciphertext,int cn)
95     {
96     EVP_CIPHER_CTX ctx;
97     unsigned char out[4096];
98     int outl,outl2;
99
100     printf("Testing cipher %s\n",EVP_CIPHER_name(c));
101     hexdump(stdout,"Key",key,kn);
102     if(in)
103         hexdump(stdout,"IV",iv,in);
104     hexdump(stdout,"Plaintext",plaintext,pn);
105     hexdump(stdout,"Ciphertext",ciphertext,cn);
106     
107     
108     if(kn != c->key_len)
109         {
110         fprintf(stderr,"Key length doesn't match, got %d expected %d\n",kn,
111                 c->key_len);
112         exit(5);
113         }
114
115     if(!EVP_EncryptInit(&ctx,c,key,iv))
116         {
117         fprintf(stderr,"EncryptInit failed\n");
118         exit(10);
119         }
120     EVP_CIPHER_CTX_set_padding(&ctx,0);
121
122     if(!EVP_EncryptUpdate(&ctx,out,&outl,plaintext,pn))
123         {
124         fprintf(stderr,"Encrypt failed\n");
125         exit(6);
126         }
127     if(!EVP_EncryptFinal(&ctx,out+outl,&outl2))
128         {
129         fprintf(stderr,"EncryptFinal failed\n");
130         exit(7);
131         }
132
133     if(outl+outl2 != cn)
134         {
135         fprintf(stderr,"Ciphertext length mismatch got %d expected %d\n",
136                 outl+outl2,cn);
137         exit(8);
138         }
139
140     if(memcmp(out,ciphertext,cn))
141         {
142         fprintf(stderr,"Ciphertext mismatch\n");
143         hexdump(stderr,"Got",out,cn);
144         hexdump(stderr,"Expected",ciphertext,cn);
145         exit(9);
146         }
147
148     if(!EVP_DecryptInit(&ctx,c,key,iv))
149         {
150         fprintf(stderr,"DecryptInit failed\n");
151         exit(10);
152         }
153     EVP_CIPHER_CTX_set_padding(&ctx,0);
154
155     if(!EVP_DecryptUpdate(&ctx,out,&outl,ciphertext,pn))
156         {
157         fprintf(stderr,"Decrypt failed\n");
158         exit(6);
159         }
160     if(!EVP_DecryptFinal(&ctx,out+outl,&outl2))
161         {
162         fprintf(stderr,"DecryptFinal failed\n");
163         exit(7);
164         }
165
166     if(outl+outl2 != cn)
167         {
168         fprintf(stderr,"Plaintext length mismatch got %d expected %d\n",
169                 outl+outl2,cn);
170         exit(8);
171         }
172
173     if(memcmp(out,plaintext,cn))
174         {
175         fprintf(stderr,"Plaintext mismatch\n");
176         hexdump(stderr,"Got",out,cn);
177         hexdump(stderr,"Expected",plaintext,cn);
178         exit(9);
179         }
180
181     printf("\n");
182     }
183
184 int main(int argc,char **argv)
185     {
186     const char *szTestFile;
187     FILE *f;
188
189     if(argc != 2)
190         {
191         fprintf(stderr,"%s <test file>\n",argv[0]);
192         exit(1);
193         }
194
195     szTestFile=argv[1];
196
197     f=fopen(szTestFile,"r");
198     if(!f)
199         {
200         perror(szTestFile);
201         exit(2);
202         }
203
204     OpenSSL_add_all_ciphers();
205     ENGINE_load_builtin_engines();
206
207     for( ; ; )
208         {
209         char line[4096];
210         char *p;
211         char *cipher;
212         unsigned char *iv,*key,*plaintext,*ciphertext;
213         const EVP_CIPHER *c;
214         int kn,in,pn,cn;
215         ENGINE *e;
216
217         if(!fgets((char *)line,sizeof line,f))
218             break;
219         if(line[0] == '#' || line[0] == '\n')
220             continue;
221         p=line;
222         cipher=strsep(&p,":");  
223         key=ustrsep(&p,":");
224         iv=ustrsep(&p,":");
225         plaintext=ustrsep(&p,":");
226         ciphertext=ustrsep(&p,"\n");
227
228         c=EVP_get_cipherbyname(cipher);
229         if(!c)
230             {
231             fprintf(stderr,"Can't find cipher %s!\n",cipher);
232             exit(3);
233             }
234
235         kn=convert(key);
236         in=convert(iv);
237         pn=convert(plaintext);
238         cn=convert(ciphertext);
239
240         test1(c,key,kn,iv,in,plaintext,pn,ciphertext,cn);
241
242         for(e=ENGINE_get_first() ; e ; e=ENGINE_get_next(e))
243             {
244             c=ENGINE_get_cipher_by_name(e,cipher);
245             if(!c)
246                 continue;
247             printf("Testing engine %s\n",ENGINE_get_name(e));
248
249             test1(c,key,kn,iv,in,plaintext,pn,ciphertext,cn);
250             }
251         }
252
253
254     return 0;
255     }