2 * Copyright 1988 by the Massachusetts Institute of Technology.
4 * For copying and distribution information, please see the file
7 * Program to test the correctness of the DES library
10 * exit returns 0 ==> success
14 #include <mit-cpyright.h>
18 #include <afsconfig.h>
19 #include <afs/param.h>
25 extern char *errmsg();
26 extern void des_string_to_key();
27 extern int des_key_sched();
28 extern int des_ecb_encrypt();
29 extern int des_cbc_encrypt();
39 unsigned char cipher_text[64];
40 unsigned char clear_text[64] = "Now is the time for all ";
41 unsigned char clear_text2[64] = "7654321 Now is the time for ";
42 unsigned char clear_text3[64] = { 2, 0, 0, 0, 1, 0, 0, 0 };
43 unsigned char output[64];
44 unsigned char zero_text[8] = { 0x0, 0, 0, 0, 0, 0, 0, 0 };
45 unsigned char msb_text[8] = { 0x0, 0, 0, 0, 0, 0, 0, 0x40 }; /* to ANSI MSB */
48 /* 0x0123456789abcdef */
49 unsigned char default_key[8] = {
50 0x01, 0x23, 0x45, 0x67, 0x89, 0xab, 0xcd, 0xef
52 unsigned char key2[8] = { 0x08, 0x19, 0x2a, 0x3b, 0x4c, 0x5d, 0x6e, 0x7f };
53 unsigned char key3[8] = { 0x80, 1, 1, 1, 1, 1, 1, 1 };
55 unsigned char default_ivec[8] = {
56 0x12, 0x34, 0x56, 0x78, 0x90, 0xab, 0xcd, 0xef
59 unsigned char zero_key[8] = { 1, 1, 1, 1, 1, 1, 1, 1 }; /* just parity bits */
64 * plaintext = 0, key = 0, cipher = 0x8ca64de9c1b123a7 (or is it a 1?)
71 /* Local Declarations */
74 progname = argv[0]; /* salt away invoking program */
76 while (--argc > 0 && (*++argv)[0] == '-')
77 for (i = 1; argv[0][i] != '\0'; i++) {
94 printf("%s: illegal flag \"%c\" ", progname, argv[0][i]);
100 fprintf(stderr, "Usage: %s [-dmz]\n", progname);
104 /* use known input and key */
106 /* ECB zero text zero key */
109 des_key_sched(zero_key, KS);
110 printf("plaintext = key = 0, cipher = 0x8ca64de9c1b123a7\n");
111 do_encrypt(input, cipher_text);
112 printf("\tcipher = (low to high bytes)\n\t\t");
113 for (j = 0; j <= 7; j++)
114 printf("%02x ", cipher_text[j]);
116 do_decrypt(output, cipher_text);
122 des_key_sched(key3, KS);
123 printf("plaintext = 0x00 00 00 00 00 00 00 40, ");
124 printf("key = 0, cipher = 0x??\n");
125 do_encrypt(input, cipher_text);
126 printf("\tcipher = (low to high bytes)\n\t\t");
127 for (j = 0; j <= 7; j++) {
128 printf("%02x ", cipher_text[j]);
131 do_decrypt(output, cipher_text);
135 /* ECB mode Davies and Price */
138 des_key_sched(key2, KS);
139 printf("Examples per FIPS publication 81, keys ivs and cipher\n");
140 printf("in hex. These are the correct answers, see below for\n");
141 printf("the actual answers.\n\n");
142 printf("Examples per Davies and Price.\n\n");
143 printf("EXAMPLE ECB\tkey = 08192a3b4c5d6e7f\n");
144 printf("\tclear = 0\n");
145 printf("\tcipher = 25 dd ac 3e 96 17 64 67\n");
146 printf("ACTUAL ECB\n");
147 printf("\tclear \"%s\"\n", input);
148 do_encrypt(input, cipher_text);
149 printf("\tcipher = (low to high bytes)\n\t\t");
150 for (j = 0; j <= 7; j++)
151 printf("%02x ", cipher_text[j]);
153 do_decrypt(output, cipher_text);
158 des_key_sched(default_key, KS);
161 printf("EXAMPLE ECB\tkey = 0123456789abcdef\n");
162 printf("\tclear = \"Now is the time for all \"\n");
163 printf("\tcipher = 3f a4 0e 8a 98 4d 48 15 ...\n");
164 printf("ACTUAL ECB\n\tclear \"%s\"", input);
165 do_encrypt(input, cipher_text);
166 printf("\n\tcipher = (low to high bytes)\n\t\t");
167 for (j = 0; j <= 7; j++) {
168 printf("%02x ", cipher_text[j]);
171 do_decrypt(output, cipher_text);
175 printf("EXAMPLE CBC\tkey = 0123456789abcdef");
176 printf("\tiv = 1234567890abcdef\n");
177 printf("\tclear = \"Now is the time for all \"\n");
178 printf("\tcipher =\te5 c7 cd de 87 2b f2 7c\n");
179 printf("\t\t\t43 e9 34 00 8c 38 9c 0f\n");
180 printf("\t\t\t68 37 88 49 9a 7c 05 f6\n");
182 printf("ACTUAL CBC\n\tclear \"%s\"\n", input);
183 in_length = strlen(input);
184 des_cbc_encrypt(input, cipher_text, (afs_int32) in_length, KS, ivec, 1);
185 printf("\tciphertext = (low to high bytes)\n");
186 for (i = 0; i <= 7; i++) {
188 for (j = 0; j <= 7; j++) {
189 printf("%02x ", cipher_text[i * 8 + j]);
193 des_cbc_encrypt(cipher_text, clear_text, (afs_int32) in_length, KS, ivec,
195 printf("\tdecrypted clear_text = \"%s\"\n", clear_text);
197 printf("EXAMPLE CBC checksum");
198 printf("\tkey = 0123456789abcdef\tiv = 1234567890abcdef\n");
199 printf("\tclear =\t\t\"7654321 Now is the time for \"\n");
200 printf("\tchecksum\t58 d2 e7 7e 86 06 27 33, ");
201 printf("or some part thereof\n");
203 des_cbc_cksum(input, cipher_text, (afs_int32) strlen(input), KS, ivec, 1);
204 printf("ACTUAL CBC checksum\n");
205 printf("\t\tencrypted cksum = (low to high bytes)\n\t\t");
206 for (j = 0; j <= 7; j++)
207 printf("%02x ", cipher_text[j]);
214 register old, new, i, j;
215 /* flips the bit order within each byte from 0 lsb to 0 msb */
216 for (i = 0; i <= 7; i++) {
219 for (j = 0; j <= 7; j++) {
236 for (i = 1; i <= nflag; i++) {
237 des_ecb_encrypt(in, out, KS, 1);
239 printf("\nclear %s\n", in);
240 for (j = 0; j <= 7; j++)
241 printf("%02 X ", in[j] & 0xff);
243 for (j = 0; j <= 7; j++)
244 printf("%02X ", out[j] & 0xff);
252 /* try to invert it */
254 for (i = 1; i <= nflag; i++) {
255 des_ecb_encrypt(out, in, KS, 0);
257 printf("clear %s\n", in);
258 for (j = 0; j <= 7; j++)
259 printf("%02X ", in[j] & 0xff);
261 for (j = 0; j <= 7; j++)
262 printf("%02X ", out[j] & 0xff);