Polish shell script to avoid needless complexity.
[openssl.git] / test / wp_test.c
1 /* ====================================================================
2  * Copyright (c) 2005 The OpenSSL Project.  All rights reserved.
3  * ====================================================================
4  */
5 #include <stdio.h>
6 #include <string.h>
7 #include <stdlib.h>
8
9 #include <openssl/whrlpool.h>
10 #include <openssl/crypto.h>
11
12 #if defined(OPENSSL_NO_WHIRLPOOL)
13 int main(int argc, char *argv[])
14 {
15     printf("No Whirlpool support\n");
16     return (0);
17 }
18 #else
19
20 /* ISO/IEC 10118-3 test vector set */
21 unsigned char iso_test_1[WHIRLPOOL_DIGEST_LENGTH] = {
22     0x19, 0xFA, 0x61, 0xD7, 0x55, 0x22, 0xA4, 0x66,
23     0x9B, 0x44, 0xE3, 0x9C, 0x1D, 0x2E, 0x17, 0x26,
24     0xC5, 0x30, 0x23, 0x21, 0x30, 0xD4, 0x07, 0xF8,
25     0x9A, 0xFE, 0xE0, 0x96, 0x49, 0x97, 0xF7, 0xA7,
26     0x3E, 0x83, 0xBE, 0x69, 0x8B, 0x28, 0x8F, 0xEB,
27     0xCF, 0x88, 0xE3, 0xE0, 0x3C, 0x4F, 0x07, 0x57,
28     0xEA, 0x89, 0x64, 0xE5, 0x9B, 0x63, 0xD9, 0x37,
29     0x08, 0xB1, 0x38, 0xCC, 0x42, 0xA6, 0x6E, 0xB3
30 };
31
32 unsigned char iso_test_2[WHIRLPOOL_DIGEST_LENGTH] = {
33     0x8A, 0xCA, 0x26, 0x02, 0x79, 0x2A, 0xEC, 0x6F,
34     0x11, 0xA6, 0x72, 0x06, 0x53, 0x1F, 0xB7, 0xD7,
35     0xF0, 0xDF, 0xF5, 0x94, 0x13, 0x14, 0x5E, 0x69,
36     0x73, 0xC4, 0x50, 0x01, 0xD0, 0x08, 0x7B, 0x42,
37     0xD1, 0x1B, 0xC6, 0x45, 0x41, 0x3A, 0xEF, 0xF6,
38     0x3A, 0x42, 0x39, 0x1A, 0x39, 0x14, 0x5A, 0x59,
39     0x1A, 0x92, 0x20, 0x0D, 0x56, 0x01, 0x95, 0xE5,
40     0x3B, 0x47, 0x85, 0x84, 0xFD, 0xAE, 0x23, 0x1A
41 };
42
43 unsigned char iso_test_3[WHIRLPOOL_DIGEST_LENGTH] = {
44     0x4E, 0x24, 0x48, 0xA4, 0xC6, 0xF4, 0x86, 0xBB,
45     0x16, 0xB6, 0x56, 0x2C, 0x73, 0xB4, 0x02, 0x0B,
46     0xF3, 0x04, 0x3E, 0x3A, 0x73, 0x1B, 0xCE, 0x72,
47     0x1A, 0xE1, 0xB3, 0x03, 0xD9, 0x7E, 0x6D, 0x4C,
48     0x71, 0x81, 0xEE, 0xBD, 0xB6, 0xC5, 0x7E, 0x27,
49     0x7D, 0x0E, 0x34, 0x95, 0x71, 0x14, 0xCB, 0xD6,
50     0xC7, 0x97, 0xFC, 0x9D, 0x95, 0xD8, 0xB5, 0x82,
51     0xD2, 0x25, 0x29, 0x20, 0x76, 0xD4, 0xEE, 0xF5
52 };
53
54 unsigned char iso_test_4[WHIRLPOOL_DIGEST_LENGTH] = {
55     0x37, 0x8C, 0x84, 0xA4, 0x12, 0x6E, 0x2D, 0xC6,
56     0xE5, 0x6D, 0xCC, 0x74, 0x58, 0x37, 0x7A, 0xAC,
57     0x83, 0x8D, 0x00, 0x03, 0x22, 0x30, 0xF5, 0x3C,
58     0xE1, 0xF5, 0x70, 0x0C, 0x0F, 0xFB, 0x4D, 0x3B,
59     0x84, 0x21, 0x55, 0x76, 0x59, 0xEF, 0x55, 0xC1,
60     0x06, 0xB4, 0xB5, 0x2A, 0xC5, 0xA4, 0xAA, 0xA6,
61     0x92, 0xED, 0x92, 0x00, 0x52, 0x83, 0x8F, 0x33,
62     0x62, 0xE8, 0x6D, 0xBD, 0x37, 0xA8, 0x90, 0x3E
63 };
64
65 unsigned char iso_test_5[WHIRLPOOL_DIGEST_LENGTH] = {
66     0xF1, 0xD7, 0x54, 0x66, 0x26, 0x36, 0xFF, 0xE9,
67     0x2C, 0x82, 0xEB, 0xB9, 0x21, 0x2A, 0x48, 0x4A,
68     0x8D, 0x38, 0x63, 0x1E, 0xAD, 0x42, 0x38, 0xF5,
69     0x44, 0x2E, 0xE1, 0x3B, 0x80, 0x54, 0xE4, 0x1B,
70     0x08, 0xBF, 0x2A, 0x92, 0x51, 0xC3, 0x0B, 0x6A,
71     0x0B, 0x8A, 0xAE, 0x86, 0x17, 0x7A, 0xB4, 0xA6,
72     0xF6, 0x8F, 0x67, 0x3E, 0x72, 0x07, 0x86, 0x5D,
73     0x5D, 0x98, 0x19, 0xA3, 0xDB, 0xA4, 0xEB, 0x3B
74 };
75
76 unsigned char iso_test_6[WHIRLPOOL_DIGEST_LENGTH] = {
77     0xDC, 0x37, 0xE0, 0x08, 0xCF, 0x9E, 0xE6, 0x9B,
78     0xF1, 0x1F, 0x00, 0xED, 0x9A, 0xBA, 0x26, 0x90,
79     0x1D, 0xD7, 0xC2, 0x8C, 0xDE, 0xC0, 0x66, 0xCC,
80     0x6A, 0xF4, 0x2E, 0x40, 0xF8, 0x2F, 0x3A, 0x1E,
81     0x08, 0xEB, 0xA2, 0x66, 0x29, 0x12, 0x9D, 0x8F,
82     0xB7, 0xCB, 0x57, 0x21, 0x1B, 0x92, 0x81, 0xA6,
83     0x55, 0x17, 0xCC, 0x87, 0x9D, 0x7B, 0x96, 0x21,
84     0x42, 0xC6, 0x5F, 0x5A, 0x7A, 0xF0, 0x14, 0x67
85 };
86
87 unsigned char iso_test_7[WHIRLPOOL_DIGEST_LENGTH] = {
88     0x46, 0x6E, 0xF1, 0x8B, 0xAB, 0xB0, 0x15, 0x4D,
89     0x25, 0xB9, 0xD3, 0x8A, 0x64, 0x14, 0xF5, 0xC0,
90     0x87, 0x84, 0x37, 0x2B, 0xCC, 0xB2, 0x04, 0xD6,
91     0x54, 0x9C, 0x4A, 0xFA, 0xDB, 0x60, 0x14, 0x29,
92     0x4D, 0x5B, 0xD8, 0xDF, 0x2A, 0x6C, 0x44, 0xE5,
93     0x38, 0xCD, 0x04, 0x7B, 0x26, 0x81, 0xA5, 0x1A,
94     0x2C, 0x60, 0x48, 0x1E, 0x88, 0xC5, 0xA2, 0x0B,
95     0x2C, 0x2A, 0x80, 0xCF, 0x3A, 0x9A, 0x08, 0x3B
96 };
97
98 unsigned char iso_test_8[WHIRLPOOL_DIGEST_LENGTH] = {
99     0x2A, 0x98, 0x7E, 0xA4, 0x0F, 0x91, 0x70, 0x61,
100     0xF5, 0xD6, 0xF0, 0xA0, 0xE4, 0x64, 0x4F, 0x48,
101     0x8A, 0x7A, 0x5A, 0x52, 0xDE, 0xEE, 0x65, 0x62,
102     0x07, 0xC5, 0x62, 0xF9, 0x88, 0xE9, 0x5C, 0x69,
103     0x16, 0xBD, 0xC8, 0x03, 0x1B, 0xC5, 0xBE, 0x1B,
104     0x7B, 0x94, 0x76, 0x39, 0xFE, 0x05, 0x0B, 0x56,
105     0x93, 0x9B, 0xAA, 0xA0, 0xAD, 0xFF, 0x9A, 0xE6,
106     0x74, 0x5B, 0x7B, 0x18, 0x1C, 0x3B, 0xE3, 0xFD
107 };
108
109 unsigned char iso_test_9[WHIRLPOOL_DIGEST_LENGTH] = {
110     0x0C, 0x99, 0x00, 0x5B, 0xEB, 0x57, 0xEF, 0xF5,
111     0x0A, 0x7C, 0xF0, 0x05, 0x56, 0x0D, 0xDF, 0x5D,
112     0x29, 0x05, 0x7F, 0xD8, 0x6B, 0x20, 0xBF, 0xD6,
113     0x2D, 0xEC, 0xA0, 0xF1, 0xCC, 0xEA, 0x4A, 0xF5,
114     0x1F, 0xC1, 0x54, 0x90, 0xED, 0xDC, 0x47, 0xAF,
115     0x32, 0xBB, 0x2B, 0x66, 0xC3, 0x4F, 0xF9, 0xAD,
116     0x8C, 0x60, 0x08, 0xAD, 0x67, 0x7F, 0x77, 0x12,
117     0x69, 0x53, 0xB2, 0x26, 0xE4, 0xED, 0x8B, 0x01
118 };
119
120 int main(int argc, char *argv[])
121 {
122     unsigned char md[WHIRLPOOL_DIGEST_LENGTH];
123     int i;
124     WHIRLPOOL_CTX ctx;
125
126 # ifdef OPENSSL_IA32_SSE2
127     /*
128      * Alternative to this is to call OpenSSL_add_all_algorithms... The below
129      * code is retained exclusively for debugging purposes.
130      */
131     {
132         char *env;
133
134         if ((env = getenv("OPENSSL_ia32cap")))
135             OPENSSL_ia32cap = strtoul(env, NULL, 0);
136     }
137 # endif
138
139     fprintf(stdout, "Testing Whirlpool ");
140
141     WHIRLPOOL("", 0, md);
142     if (memcmp(md, iso_test_1, sizeof(iso_test_1))) {
143         fflush(stdout);
144         fprintf(stderr, "\nTEST 1 of 9 failed.\n");
145         return 1;
146     } else
147         fprintf(stdout, ".");
148     fflush(stdout);
149
150     WHIRLPOOL("a", 1, md);
151     if (memcmp(md, iso_test_2, sizeof(iso_test_2))) {
152         fflush(stdout);
153         fprintf(stderr, "\nTEST 2 of 9 failed.\n");
154         return 1;
155     } else
156         fprintf(stdout, ".");
157     fflush(stdout);
158
159     WHIRLPOOL("abc", 3, md);
160     if (memcmp(md, iso_test_3, sizeof(iso_test_3))) {
161         fflush(stdout);
162         fprintf(stderr, "\nTEST 3 of 9 failed.\n");
163         return 1;
164     } else
165         fprintf(stdout, ".");
166     fflush(stdout);
167
168     WHIRLPOOL("message digest", 14, md);
169     if (memcmp(md, iso_test_4, sizeof(iso_test_4))) {
170         fflush(stdout);
171         fprintf(stderr, "\nTEST 4 of 9 failed.\n");
172         return 1;
173     } else
174         fprintf(stdout, ".");
175     fflush(stdout);
176
177     WHIRLPOOL("abcdefghijklmnopqrstuvwxyz", 26, md);
178     if (memcmp(md, iso_test_5, sizeof(iso_test_5))) {
179         fflush(stdout);
180         fprintf(stderr, "\nTEST 5 of 9 failed.\n");
181         return 1;
182     } else
183         fprintf(stdout, ".");
184     fflush(stdout);
185
186     WHIRLPOOL("ABCDEFGHIJKLMNOPQRSTUVWXYZ"
187               "abcdefghijklmnopqrstuvwxyz" "0123456789", 62, md);
188     if (memcmp(md, iso_test_6, sizeof(iso_test_6))) {
189         fflush(stdout);
190         fprintf(stderr, "\nTEST 6 of 9 failed.\n");
191         return 1;
192     } else
193         fprintf(stdout, ".");
194     fflush(stdout);
195
196     WHIRLPOOL("1234567890" "1234567890" "1234567890" "1234567890"
197               "1234567890" "1234567890" "1234567890" "1234567890", 80, md);
198     if (memcmp(md, iso_test_7, sizeof(iso_test_7))) {
199         fflush(stdout);
200         fprintf(stderr, "\nTEST 7 of 9 failed.\n");
201         return 1;
202     } else
203         fprintf(stdout, ".");
204     fflush(stdout);
205
206     WHIRLPOOL("abcdbcdecdefdefgefghfghighijhijk", 32, md);
207     if (memcmp(md, iso_test_8, sizeof(iso_test_8))) {
208         fflush(stdout);
209         fprintf(stderr, "\nTEST 8 of 9 failed.\n");
210         return 1;
211     } else
212         fprintf(stdout, ".");
213     fflush(stdout);
214
215     WHIRLPOOL_Init(&ctx);
216     for (i = 0; i < 1000000; i += 288)
217         WHIRLPOOL_Update(&ctx, "aaaaaaaa" "aaaaaaaa" "aaaaaaaa" "aaaaaaaa"
218                          "aaaaaaaa" "aaaaaaaa" "aaaaaaaa" "aaaaaaaa"
219                          "aaaaaaaa" "aaaaaaaa" "aaaaaaaa" "aaaaaaaa"
220                          "aaaaaaaa" "aaaaaaaa" "aaaaaaaa" "aaaaaaaa"
221                          "aaaaaaaa" "aaaaaaaa" "aaaaaaaa" "aaaaaaaa"
222                          "aaaaaaaa" "aaaaaaaa" "aaaaaaaa" "aaaaaaaa"
223                          "aaaaaaaa" "aaaaaaaa" "aaaaaaaa" "aaaaaaaa"
224                          "aaaaaaaa" "aaaaaaaa" "aaaaaaaa" "aaaaaaaa"
225                          "aaaaaaaa" "aaaaaaaa" "aaaaaaaa" "aaaaaaaa",
226                          (1000000 - i) < 288 ? 1000000 - i : 288);
227     WHIRLPOOL_Final(md, &ctx);
228     if (memcmp(md, iso_test_9, sizeof(iso_test_9))) {
229         fflush(stdout);
230         fprintf(stderr, "\nTEST 9 of 9 failed.\n");
231         return 1;
232     } else
233         fprintf(stdout, ".");
234     fflush(stdout);
235
236     fprintf(stdout, " passed.\n");
237     fflush(stdout);
238
239     return 0;
240 }
241 #endif