Initial IBM OpenAFS 1.0 tree
[openafs.git] / src / des / test / testit.c
1 /*
2  * Copyright 1988 by the Massachusetts Institute of Technology.
3  *
4  * For copying and distribution information, please see the file
5  * <mit-cpyright.h>.
6  *
7  * exit returns  0 ==> success
8  *              -1 ==> error
9  */
10
11 #ifndef lint
12 static char rcsid_testit_c[] =
13 #endif  lint
14
15 #include <mit-cpyright.h>
16 #include <stdio.h>
17 #include <errno.h>
18 #include <des.h>
19 #include <afs/param.h>
20
21 #define MIN_ARGC        0       /* min # args, not incl flags */
22 #define MAX_ARGC        2       /* max # args, not incl flags */
23
24 /* MIN_ARGC == MAX_ARGC ==> required # args */
25
26 extern char *errmsg();
27 extern int des_string_to_key();
28 extern int des_key_sched();
29 extern int des_ecb_encrypt();
30 extern int des_cbc_encrypt();
31 extern int des_pcbc_encrypt();
32
33 #include "../../permit_xprt.h"
34
35 char *progname;
36 int sflag;
37 int vflag;
38 int tflag;
39 int nflag = 1000;
40 int cflag;
41 int des_debug ;
42 des_key_schedule KS;
43 unsigned char cipher_text[64];
44 unsigned char clear_text[64] = "Now is the time for all " ;
45 unsigned char clear_text2[64] = "7654321 Now is the time for ";
46 unsigned char clear_text3[64] = {2,0,0,0, 1,0,0,0};
47 unsigned char *input;
48
49 /* 0x0123456789abcdef */
50 des_cblock default_key = { 0x01,0x23,0x45,0x67,0x89,0xab,0xcd,0xef };
51 des_cblock s_key;
52 des_cblock default_ivec = { 0x12,0x34,0x56,0x78,0x90,0xab,0xcd,0xef };
53 unsigned char *ivec;
54 des_cblock zero_key = {1};
55 int i,j;
56
57 main(argc,argv)
58     int argc;
59     char *argv[];
60 {
61     /*  Local Declarations */
62
63     long in_length;
64
65     progname=argv[0];               /* salt away invoking program */
66
67     /* Assume a long is four bytes */
68     if (sizeof(long) != 4) {
69         fprintf(stdout,"\nERROR,  size of long is %d",sizeof(long));
70         exit(-1);
71     }
72
73     while (--argc > 0 && (*++argv)[0] == '-')
74         for (i=1; argv[0][i] != '\0'; i++) {
75             switch (argv[0][i]) {
76
77                 /* debug flag */
78             case 'd':
79                 des_debug=1;
80                 continue;
81
82                 /* verbose flag */
83             case 'v':
84                 vflag = 1;
85                 continue;
86
87                 /* cbc flag */
88             case 'c':
89                 cflag=1;
90                 continue;
91
92                 /* string to key only flag */
93             case 's':
94                 sflag = 1;
95                 continue;
96
97                 /* test flag - use known key and cleartext */
98             case 't':
99                 tflag=1;
100                 continue;
101
102                 /* iteration count */
103             case 'n':
104                 sscanf(&argv[0][i+1],"%d",&nflag);
105                 argv[0][i+1] = '\0'; /* force it to stop */
106                 break;
107
108             default:
109                 printf("%s: illegal flag \"%c\" ",
110                        progname,argv[0][i]);
111                 exit(1);
112             }
113         };
114
115     if (argc < MIN_ARGC || argc >MAX_ARGC) {
116         printf("Usage: xxx [-xxx]  xxx xxx\n");
117         exit(1);
118     }
119
120     /* argv[0] now points to first non-option arg, if any */
121
122     if (tflag) {
123         /* use known input and key */
124         des_key_sched(default_key,KS);
125         input = clear_text;
126         ivec = (unsigned char *) default_ivec;
127     }
128     else {
129         /*des_string_to_key(argv[0],s_key); */
130         des_string_to_key("test",s_key);
131         if (vflag) {
132             input = (unsigned char *) s_key;
133             fprintf(stdout,"\nstring = %s, key = ",argv[0]);
134             for (i = 0; i<=7 ; i++) fprintf(stdout,"%02x ",*input++);
135         }
136         des_string_to_key("test",s_key);
137         if (vflag) {
138             input = (unsigned char *) s_key;
139             fprintf(stdout,"\nstring = %s, key = ",argv[0]);
140             for (i = 0; i<=7 ; i++) fprintf(stdout,"%02x ",*input++);
141         }
142         des_key_sched(s_key,KS);
143         input = (unsigned char *) argv[1];
144         ivec = (unsigned char *)  argv[2];
145     }
146
147
148     if (cflag) {
149         fprintf(stdout,"\nclear %s\n",input);
150         in_length = strlen(input);
151         des_cbc_encrypt(input,cipher_text,(long) in_length,KS,ivec,1);
152         fprintf(stdout,
153                 "\n\nencrypted ciphertext = (low to high bytes)");
154         for (i = 0; i <= 7; i++) {
155             fprintf(stdout,"\n");
156             for (j = 0; j <= 7; j++)
157                 fprintf(stdout,"%02x ",cipher_text[i*8+j]);
158         }
159         des_cbc_encrypt(cipher_text, clear_text,
160                     (long) in_length, KS, ivec, 0);
161         fprintf(stdout,"\n\ndecrypted clear_text = %s",clear_text);
162
163         fprintf(stdout,"\nclear %s\n",input);
164         input = clear_text2;
165         des_cbc_cksum(input,cipher_text,(long) strlen(input),KS,ivec,1);
166         fprintf(stdout,
167                 "\n\nencrypted cksum = (low to high bytes)\n");
168         for (j = 0; j <= 7; j++)
169             fprintf(stdout,"%02x ",cipher_text[j]);
170
171         /* test out random number generator */
172         for (i = 0; i <= 7; i++) {
173             des_random_key(cipher_text);
174             des_key_sched(cipher_text,KS);
175             fprintf(stdout,
176                     "\n\nrandom key = (low to high bytes)\n");
177             for (j = 0; j<=7; j++)
178                 fprintf(stdout,"%02x ",cipher_text[j]);
179         }
180     }
181     else {
182         if (vflag)
183             fprintf(stdout,"\nclear %s\n",input);
184         do_encrypt(input,cipher_text);
185         do_decrypt(clear_text,cipher_text);
186     }
187 }
188
189 flip(array)
190     char *array;
191 {
192     register old,new,i,j;
193     /* flips the bit order within each byte from 0 lsb to 0 msb */
194     for (i = 0; i <= 7; i++) {
195         old = *array;
196         new = 0;
197         for (j = 0; j <= 7; j++) {
198             if (old & 01) new = new | 01;
199             if (j < 7) {
200                 old = old >> 1;
201                 new = new << 1;
202             }
203         }
204         *array = new;
205         array++;
206     }
207 }
208
209 do_encrypt(in,out)
210     char    *in;
211     char    *out;
212 {
213     for (i = 1; i <= nflag; i++) {
214         des_ecb_encrypt(in,out,KS,1);
215         if (vflag) {
216             fprintf(stdout,"\nclear %s\n",in);
217             for (j = 0; j <= 7; j++)
218                 fprintf(stdout,"%02 X ",in[j] & 0xff);
219             fprintf(stdout,"\tcipher ");
220             for (j = 0; j<=7; j++)
221                 fprintf(stdout,"%02X ",out[j] & 0xff);
222         }
223     }
224 }
225
226 do_decrypt(in,out)
227     char    *out;
228     char    *in;
229     /* try to invert it */
230 {
231     for (i = 1; i <= nflag; i++) {
232         des_ecb_encrypt(out,in,KS,0);
233         if (vflag) {
234             fprintf(stdout,"\nclear %s\n",in);
235             for (j = 0; j <= 7; j++)
236                 fprintf(stdout,"%02X ",in[j] & 0xff);
237             fprintf(stdout,"\tcipher ");
238             for (j = 0; j<=7; j++)
239                 fprintf(stdout,"%02X ",out[j] & 0xff);
240         }
241     }
242 }