summaryrefslogtreecommitdiff
path: root/src/lib/libcrypto/des/des_enc.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib/libcrypto/des/des_enc.c')
-rw-r--r--src/lib/libcrypto/des/des_enc.c417
1 files changed, 0 insertions, 417 deletions
diff --git a/src/lib/libcrypto/des/des_enc.c b/src/lib/libcrypto/des/des_enc.c
deleted file mode 100644
index 6a49ec4a55..0000000000
--- a/src/lib/libcrypto/des/des_enc.c
+++ /dev/null
@@ -1,417 +0,0 @@
1/* crypto/des/des_enc.c */
2/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
3 * All rights reserved.
4 *
5 * This package is an SSL implementation written
6 * by Eric Young (eay@cryptsoft.com).
7 * The implementation was written so as to conform with Netscapes SSL.
8 *
9 * This library is free for commercial and non-commercial use as long as
10 * the following conditions are aheared to. The following conditions
11 * apply to all code found in this distribution, be it the RC4, RSA,
12 * lhash, DES, etc., code; not just the SSL code. The SSL documentation
13 * included with this distribution is covered by the same copyright terms
14 * except that the holder is Tim Hudson (tjh@cryptsoft.com).
15 *
16 * Copyright remains Eric Young's, and as such any Copyright notices in
17 * the code are not to be removed.
18 * If this package is used in a product, Eric Young should be given attribution
19 * as the author of the parts of the library used.
20 * This can be in the form of a textual message at program startup or
21 * in documentation (online or textual) provided with the package.
22 *
23 * Redistribution and use in source and binary forms, with or without
24 * modification, are permitted provided that the following conditions
25 * are met:
26 * 1. Redistributions of source code must retain the copyright
27 * notice, this list of conditions and the following disclaimer.
28 * 2. Redistributions in binary form must reproduce the above copyright
29 * notice, this list of conditions and the following disclaimer in the
30 * documentation and/or other materials provided with the distribution.
31 * 3. All advertising materials mentioning features or use of this software
32 * must display the following acknowledgement:
33 * "This product includes cryptographic software written by
34 * Eric Young (eay@cryptsoft.com)"
35 * The word 'cryptographic' can be left out if the rouines from the library
36 * being used are not cryptographic related :-).
37 * 4. If you include any Windows specific code (or a derivative thereof) from
38 * the apps directory (application code) you must include an acknowledgement:
39 * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
40 *
41 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
42 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
43 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
44 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
45 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
46 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
47 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
48 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
49 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
50 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
51 * SUCH DAMAGE.
52 *
53 * The licence and distribution terms for any publically available version or
54 * derivative of this code cannot be changed. i.e. this code cannot simply be
55 * copied and put under another distribution licence
56 * [including the GNU Public Licence.]
57 */
58
59#include "des_locl.h"
60
61#ifndef OPENSSL_FIPS
62#ifndef OPENBSD_DES_ASM
63
64void DES_encrypt1(DES_LONG *data, DES_key_schedule *ks, int enc)
65 {
66 register DES_LONG l,r,t,u;
67#ifdef DES_PTR
68 register const unsigned char *des_SP=(const unsigned char *)DES_SPtrans;
69#endif
70#ifndef DES_UNROLL
71 register int i;
72#endif
73 register DES_LONG *s;
74
75 r=data[0];
76 l=data[1];
77
78 IP(r,l);
79 /* Things have been modified so that the initial rotate is
80 * done outside the loop. This required the
81 * DES_SPtrans values in sp.h to be rotated 1 bit to the right.
82 * One perl script later and things have a 5% speed up on a sparc2.
83 * Thanks to Richard Outerbridge <71755.204@CompuServe.COM>
84 * for pointing this out. */
85 /* clear the top bits on machines with 8byte longs */
86 /* shift left by 2 */
87 r=ROTATE(r,29)&0xffffffffL;
88 l=ROTATE(l,29)&0xffffffffL;
89
90 s=ks->ks->deslong;
91 /* I don't know if it is worth the effort of loop unrolling the
92 * inner loop */
93 if (enc)
94 {
95#ifdef DES_UNROLL
96 D_ENCRYPT(l,r, 0); /* 1 */
97 D_ENCRYPT(r,l, 2); /* 2 */
98 D_ENCRYPT(l,r, 4); /* 3 */
99 D_ENCRYPT(r,l, 6); /* 4 */
100 D_ENCRYPT(l,r, 8); /* 5 */
101 D_ENCRYPT(r,l,10); /* 6 */
102 D_ENCRYPT(l,r,12); /* 7 */
103 D_ENCRYPT(r,l,14); /* 8 */
104 D_ENCRYPT(l,r,16); /* 9 */
105 D_ENCRYPT(r,l,18); /* 10 */
106 D_ENCRYPT(l,r,20); /* 11 */
107 D_ENCRYPT(r,l,22); /* 12 */
108 D_ENCRYPT(l,r,24); /* 13 */
109 D_ENCRYPT(r,l,26); /* 14 */
110 D_ENCRYPT(l,r,28); /* 15 */
111 D_ENCRYPT(r,l,30); /* 16 */
112#else
113 for (i=0; i<32; i+=8)
114 {
115 D_ENCRYPT(l,r,i+0); /* 1 */
116 D_ENCRYPT(r,l,i+2); /* 2 */
117 D_ENCRYPT(l,r,i+4); /* 3 */
118 D_ENCRYPT(r,l,i+6); /* 4 */
119 }
120#endif
121 }
122 else
123 {
124#ifdef DES_UNROLL
125 D_ENCRYPT(l,r,30); /* 16 */
126 D_ENCRYPT(r,l,28); /* 15 */
127 D_ENCRYPT(l,r,26); /* 14 */
128 D_ENCRYPT(r,l,24); /* 13 */
129 D_ENCRYPT(l,r,22); /* 12 */
130 D_ENCRYPT(r,l,20); /* 11 */
131 D_ENCRYPT(l,r,18); /* 10 */
132 D_ENCRYPT(r,l,16); /* 9 */
133 D_ENCRYPT(l,r,14); /* 8 */
134 D_ENCRYPT(r,l,12); /* 7 */
135 D_ENCRYPT(l,r,10); /* 6 */
136 D_ENCRYPT(r,l, 8); /* 5 */
137 D_ENCRYPT(l,r, 6); /* 4 */
138 D_ENCRYPT(r,l, 4); /* 3 */
139 D_ENCRYPT(l,r, 2); /* 2 */
140 D_ENCRYPT(r,l, 0); /* 1 */
141#else
142 for (i=30; i>0; i-=8)
143 {
144 D_ENCRYPT(l,r,i-0); /* 16 */
145 D_ENCRYPT(r,l,i-2); /* 15 */
146 D_ENCRYPT(l,r,i-4); /* 14 */
147 D_ENCRYPT(r,l,i-6); /* 13 */
148 }
149#endif
150 }
151
152 /* rotate and clear the top bits on machines with 8byte longs */
153 l=ROTATE(l,3)&0xffffffffL;
154 r=ROTATE(r,3)&0xffffffffL;
155
156 FP(r,l);
157 data[0]=l;
158 data[1]=r;
159 l=r=t=u=0;
160 }
161
162void DES_encrypt2(DES_LONG *data, DES_key_schedule *ks, int enc)
163 {
164 register DES_LONG l,r,t,u;
165#ifdef DES_PTR
166 register const unsigned char *des_SP=(const unsigned char *)DES_SPtrans;
167#endif
168#ifndef DES_UNROLL
169 register int i;
170#endif
171 register DES_LONG *s;
172
173 r=data[0];
174 l=data[1];
175
176 /* Things have been modified so that the initial rotate is
177 * done outside the loop. This required the
178 * DES_SPtrans values in sp.h to be rotated 1 bit to the right.
179 * One perl script later and things have a 5% speed up on a sparc2.
180 * Thanks to Richard Outerbridge <71755.204@CompuServe.COM>
181 * for pointing this out. */
182 /* clear the top bits on machines with 8byte longs */
183 r=ROTATE(r,29)&0xffffffffL;
184 l=ROTATE(l,29)&0xffffffffL;
185
186 s=ks->ks->deslong;
187 /* I don't know if it is worth the effort of loop unrolling the
188 * inner loop */
189 if (enc)
190 {
191#ifdef DES_UNROLL
192 D_ENCRYPT(l,r, 0); /* 1 */
193 D_ENCRYPT(r,l, 2); /* 2 */
194 D_ENCRYPT(l,r, 4); /* 3 */
195 D_ENCRYPT(r,l, 6); /* 4 */
196 D_ENCRYPT(l,r, 8); /* 5 */
197 D_ENCRYPT(r,l,10); /* 6 */
198 D_ENCRYPT(l,r,12); /* 7 */
199 D_ENCRYPT(r,l,14); /* 8 */
200 D_ENCRYPT(l,r,16); /* 9 */
201 D_ENCRYPT(r,l,18); /* 10 */
202 D_ENCRYPT(l,r,20); /* 11 */
203 D_ENCRYPT(r,l,22); /* 12 */
204 D_ENCRYPT(l,r,24); /* 13 */
205 D_ENCRYPT(r,l,26); /* 14 */
206 D_ENCRYPT(l,r,28); /* 15 */
207 D_ENCRYPT(r,l,30); /* 16 */
208#else
209 for (i=0; i<32; i+=8)
210 {
211 D_ENCRYPT(l,r,i+0); /* 1 */
212 D_ENCRYPT(r,l,i+2); /* 2 */
213 D_ENCRYPT(l,r,i+4); /* 3 */
214 D_ENCRYPT(r,l,i+6); /* 4 */
215 }
216#endif
217 }
218 else
219 {
220#ifdef DES_UNROLL
221 D_ENCRYPT(l,r,30); /* 16 */
222 D_ENCRYPT(r,l,28); /* 15 */
223 D_ENCRYPT(l,r,26); /* 14 */
224 D_ENCRYPT(r,l,24); /* 13 */
225 D_ENCRYPT(l,r,22); /* 12 */
226 D_ENCRYPT(r,l,20); /* 11 */
227 D_ENCRYPT(l,r,18); /* 10 */
228 D_ENCRYPT(r,l,16); /* 9 */
229 D_ENCRYPT(l,r,14); /* 8 */
230 D_ENCRYPT(r,l,12); /* 7 */
231 D_ENCRYPT(l,r,10); /* 6 */
232 D_ENCRYPT(r,l, 8); /* 5 */
233 D_ENCRYPT(l,r, 6); /* 4 */
234 D_ENCRYPT(r,l, 4); /* 3 */
235 D_ENCRYPT(l,r, 2); /* 2 */
236 D_ENCRYPT(r,l, 0); /* 1 */
237#else
238 for (i=30; i>0; i-=8)
239 {
240 D_ENCRYPT(l,r,i-0); /* 16 */
241 D_ENCRYPT(r,l,i-2); /* 15 */
242 D_ENCRYPT(l,r,i-4); /* 14 */
243 D_ENCRYPT(r,l,i-6); /* 13 */
244 }
245#endif
246 }
247 /* rotate and clear the top bits on machines with 8byte longs */
248 data[0]=ROTATE(l,3)&0xffffffffL;
249 data[1]=ROTATE(r,3)&0xffffffffL;
250 l=r=t=u=0;
251 }
252#endif
253
254void DES_encrypt3(DES_LONG *data, DES_key_schedule *ks1,
255 DES_key_schedule *ks2, DES_key_schedule *ks3)
256 {
257 register DES_LONG l,r;
258
259 l=data[0];
260 r=data[1];
261 IP(l,r);
262 data[0]=l;
263 data[1]=r;
264 DES_encrypt2((DES_LONG *)data,ks1,DES_ENCRYPT);
265 DES_encrypt2((DES_LONG *)data,ks2,DES_DECRYPT);
266 DES_encrypt2((DES_LONG *)data,ks3,DES_ENCRYPT);
267 l=data[0];
268 r=data[1];
269 FP(r,l);
270 data[0]=l;
271 data[1]=r;
272 }
273
274void DES_decrypt3(DES_LONG *data, DES_key_schedule *ks1,
275 DES_key_schedule *ks2, DES_key_schedule *ks3)
276 {
277 register DES_LONG l,r;
278
279 l=data[0];
280 r=data[1];
281 IP(l,r);
282 data[0]=l;
283 data[1]=r;
284 DES_encrypt2((DES_LONG *)data,ks3,DES_DECRYPT);
285 DES_encrypt2((DES_LONG *)data,ks2,DES_ENCRYPT);
286 DES_encrypt2((DES_LONG *)data,ks1,DES_DECRYPT);
287 l=data[0];
288 r=data[1];
289 FP(r,l);
290 data[0]=l;
291 data[1]=r;
292 }
293
294#endif /* ndef OPENSSL_FIPS */
295
296#ifndef DES_DEFAULT_OPTIONS
297
298#if !defined(OPENSSL_FIPS_DES_ASM)
299
300#undef CBC_ENC_C__DONT_UPDATE_IV
301#include "ncbc_enc.c" /* DES_ncbc_encrypt */
302
303void DES_ede3_cbc_encrypt(const unsigned char *input, unsigned char *output,
304 long length, DES_key_schedule *ks1,
305 DES_key_schedule *ks2, DES_key_schedule *ks3,
306 DES_cblock *ivec, int enc)
307 {
308 register DES_LONG tin0,tin1;
309 register DES_LONG tout0,tout1,xor0,xor1;
310 register const unsigned char *in;
311 unsigned char *out;
312 register long l=length;
313 DES_LONG tin[2];
314 unsigned char *iv;
315
316 in=input;
317 out=output;
318 iv = &(*ivec)[0];
319
320 if (enc)
321 {
322 c2l(iv,tout0);
323 c2l(iv,tout1);
324 for (l-=8; l>=0; l-=8)
325 {
326 c2l(in,tin0);
327 c2l(in,tin1);
328 tin0^=tout0;
329 tin1^=tout1;
330
331 tin[0]=tin0;
332 tin[1]=tin1;
333 DES_encrypt3((DES_LONG *)tin,ks1,ks2,ks3);
334 tout0=tin[0];
335 tout1=tin[1];
336
337 l2c(tout0,out);
338 l2c(tout1,out);
339 }
340 if (l != -8)
341 {
342 c2ln(in,tin0,tin1,l+8);
343 tin0^=tout0;
344 tin1^=tout1;
345
346 tin[0]=tin0;
347 tin[1]=tin1;
348 DES_encrypt3((DES_LONG *)tin,ks1,ks2,ks3);
349 tout0=tin[0];
350 tout1=tin[1];
351
352 l2c(tout0,out);
353 l2c(tout1,out);
354 }
355 iv = &(*ivec)[0];
356 l2c(tout0,iv);
357 l2c(tout1,iv);
358 }
359 else
360 {
361 register DES_LONG t0,t1;
362
363 c2l(iv,xor0);
364 c2l(iv,xor1);
365 for (l-=8; l>=0; l-=8)
366 {
367 c2l(in,tin0);
368 c2l(in,tin1);
369
370 t0=tin0;
371 t1=tin1;
372
373 tin[0]=tin0;
374 tin[1]=tin1;
375 DES_decrypt3((DES_LONG *)tin,ks1,ks2,ks3);
376 tout0=tin[0];
377 tout1=tin[1];
378
379 tout0^=xor0;
380 tout1^=xor1;
381 l2c(tout0,out);
382 l2c(tout1,out);
383 xor0=t0;
384 xor1=t1;
385 }
386 if (l != -8)
387 {
388 c2l(in,tin0);
389 c2l(in,tin1);
390
391 t0=tin0;
392 t1=tin1;
393
394 tin[0]=tin0;
395 tin[1]=tin1;
396 DES_decrypt3((DES_LONG *)tin,ks1,ks2,ks3);
397 tout0=tin[0];
398 tout1=tin[1];
399
400 tout0^=xor0;
401 tout1^=xor1;
402 l2cn(tout0,tout1,out,l+8);
403 xor0=t0;
404 xor1=t1;
405 }
406
407 iv = &(*ivec)[0];
408 l2c(xor0,iv);
409 l2c(xor1,iv);
410 }
411 tin0=tin1=tout0=tout1=xor0=xor1=0;
412 tin[0]=tin[1]=0;
413 }
414
415#endif /* !defined(OPENSSL_FIPS_DES_ASM) */
416
417#endif /* DES_DEFAULT_OPTIONS */
generated by cgit v1.2.3-55-g6feb (git 2.39.1) at 2025-03-22 15:41:55 +0000