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.c411
1 files changed, 411 insertions, 0 deletions
diff --git a/src/lib/libcrypto/des/des_enc.c b/src/lib/libcrypto/des/des_enc.c
new file mode 100644
index 0000000000..0fe4e0b2ad
--- /dev/null
+++ b/src/lib/libcrypto/des/des_enc.c
@@ -0,0 +1,411 @@
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 OPENBSD_DES_ASM
62
63void DES_encrypt1(DES_LONG *data, DES_key_schedule *ks, int enc)
64 {
65 register DES_LONG l,r,t,u;
66#ifdef DES_PTR
67 register const unsigned char *des_SP=(const unsigned char *)DES_SPtrans;
68#endif
69#ifndef DES_UNROLL
70 register int i;
71#endif
72 register DES_LONG *s;
73
74 r=data[0];
75 l=data[1];
76
77 IP(r,l);
78 /* Things have been modified so that the initial rotate is
79 * done outside the loop. This required the
80 * DES_SPtrans values in sp.h to be rotated 1 bit to the right.
81 * One perl script later and things have a 5% speed up on a sparc2.
82 * Thanks to Richard Outerbridge <71755.204@CompuServe.COM>
83 * for pointing this out. */
84 /* clear the top bits on machines with 8byte longs */
85 /* shift left by 2 */
86 r=ROTATE(r,29)&0xffffffffL;
87 l=ROTATE(l,29)&0xffffffffL;
88
89 s=ks->ks->deslong;
90 /* I don't know if it is worth the effort of loop unrolling the
91 * inner loop */
92 if (enc)
93 {
94#ifdef DES_UNROLL
95 D_ENCRYPT(l,r, 0); /* 1 */
96 D_ENCRYPT(r,l, 2); /* 2 */
97 D_ENCRYPT(l,r, 4); /* 3 */
98 D_ENCRYPT(r,l, 6); /* 4 */
99 D_ENCRYPT(l,r, 8); /* 5 */
100 D_ENCRYPT(r,l,10); /* 6 */
101 D_ENCRYPT(l,r,12); /* 7 */
102 D_ENCRYPT(r,l,14); /* 8 */
103 D_ENCRYPT(l,r,16); /* 9 */
104 D_ENCRYPT(r,l,18); /* 10 */
105 D_ENCRYPT(l,r,20); /* 11 */
106 D_ENCRYPT(r,l,22); /* 12 */
107 D_ENCRYPT(l,r,24); /* 13 */
108 D_ENCRYPT(r,l,26); /* 14 */
109 D_ENCRYPT(l,r,28); /* 15 */
110 D_ENCRYPT(r,l,30); /* 16 */
111#else
112 for (i=0; i<32; i+=8)
113 {
114 D_ENCRYPT(l,r,i+0); /* 1 */
115 D_ENCRYPT(r,l,i+2); /* 2 */
116 D_ENCRYPT(l,r,i+4); /* 3 */
117 D_ENCRYPT(r,l,i+6); /* 4 */
118 }
119#endif
120 }
121 else
122 {
123#ifdef DES_UNROLL
124 D_ENCRYPT(l,r,30); /* 16 */
125 D_ENCRYPT(r,l,28); /* 15 */
126 D_ENCRYPT(l,r,26); /* 14 */
127 D_ENCRYPT(r,l,24); /* 13 */
128 D_ENCRYPT(l,r,22); /* 12 */
129 D_ENCRYPT(r,l,20); /* 11 */
130 D_ENCRYPT(l,r,18); /* 10 */
131 D_ENCRYPT(r,l,16); /* 9 */
132 D_ENCRYPT(l,r,14); /* 8 */
133 D_ENCRYPT(r,l,12); /* 7 */
134 D_ENCRYPT(l,r,10); /* 6 */
135 D_ENCRYPT(r,l, 8); /* 5 */
136 D_ENCRYPT(l,r, 6); /* 4 */
137 D_ENCRYPT(r,l, 4); /* 3 */
138 D_ENCRYPT(l,r, 2); /* 2 */
139 D_ENCRYPT(r,l, 0); /* 1 */
140#else
141 for (i=30; i>0; i-=8)
142 {
143 D_ENCRYPT(l,r,i-0); /* 16 */
144 D_ENCRYPT(r,l,i-2); /* 15 */
145 D_ENCRYPT(l,r,i-4); /* 14 */
146 D_ENCRYPT(r,l,i-6); /* 13 */
147 }
148#endif
149 }
150
151 /* rotate and clear the top bits on machines with 8byte longs */
152 l=ROTATE(l,3)&0xffffffffL;
153 r=ROTATE(r,3)&0xffffffffL;
154
155 FP(r,l);
156 data[0]=l;
157 data[1]=r;
158 l=r=t=u=0;
159 }
160
161void DES_encrypt2(DES_LONG *data, DES_key_schedule *ks, int enc)
162 {
163 register DES_LONG l,r,t,u;
164#ifdef DES_PTR
165 register const unsigned char *des_SP=(const unsigned char *)DES_SPtrans;
166#endif
167#ifndef DES_UNROLL
168 register int i;
169#endif
170 register DES_LONG *s;
171
172 r=data[0];
173 l=data[1];
174
175 /* Things have been modified so that the initial rotate is
176 * done outside the loop. This required the
177 * DES_SPtrans values in sp.h to be rotated 1 bit to the right.
178 * One perl script later and things have a 5% speed up on a sparc2.
179 * Thanks to Richard Outerbridge <71755.204@CompuServe.COM>
180 * for pointing this out. */
181 /* clear the top bits on machines with 8byte longs */
182 r=ROTATE(r,29)&0xffffffffL;
183 l=ROTATE(l,29)&0xffffffffL;
184
185 s=ks->ks->deslong;
186 /* I don't know if it is worth the effort of loop unrolling the
187 * inner loop */
188 if (enc)
189 {
190#ifdef DES_UNROLL
191 D_ENCRYPT(l,r, 0); /* 1 */
192 D_ENCRYPT(r,l, 2); /* 2 */
193 D_ENCRYPT(l,r, 4); /* 3 */
194 D_ENCRYPT(r,l, 6); /* 4 */
195 D_ENCRYPT(l,r, 8); /* 5 */
196 D_ENCRYPT(r,l,10); /* 6 */
197 D_ENCRYPT(l,r,12); /* 7 */
198 D_ENCRYPT(r,l,14); /* 8 */
199 D_ENCRYPT(l,r,16); /* 9 */
200 D_ENCRYPT(r,l,18); /* 10 */
201 D_ENCRYPT(l,r,20); /* 11 */
202 D_ENCRYPT(r,l,22); /* 12 */
203 D_ENCRYPT(l,r,24); /* 13 */
204 D_ENCRYPT(r,l,26); /* 14 */
205 D_ENCRYPT(l,r,28); /* 15 */
206 D_ENCRYPT(r,l,30); /* 16 */
207#else
208 for (i=0; i<32; i+=8)
209 {
210 D_ENCRYPT(l,r,i+0); /* 1 */
211 D_ENCRYPT(r,l,i+2); /* 2 */
212 D_ENCRYPT(l,r,i+4); /* 3 */
213 D_ENCRYPT(r,l,i+6); /* 4 */
214 }
215#endif
216 }
217 else
218 {
219#ifdef DES_UNROLL
220 D_ENCRYPT(l,r,30); /* 16 */
221 D_ENCRYPT(r,l,28); /* 15 */
222 D_ENCRYPT(l,r,26); /* 14 */
223 D_ENCRYPT(r,l,24); /* 13 */
224 D_ENCRYPT(l,r,22); /* 12 */
225 D_ENCRYPT(r,l,20); /* 11 */
226 D_ENCRYPT(l,r,18); /* 10 */
227 D_ENCRYPT(r,l,16); /* 9 */
228 D_ENCRYPT(l,r,14); /* 8 */
229 D_ENCRYPT(r,l,12); /* 7 */
230 D_ENCRYPT(l,r,10); /* 6 */
231 D_ENCRYPT(r,l, 8); /* 5 */
232 D_ENCRYPT(l,r, 6); /* 4 */
233 D_ENCRYPT(r,l, 4); /* 3 */
234 D_ENCRYPT(l,r, 2); /* 2 */
235 D_ENCRYPT(r,l, 0); /* 1 */
236#else
237 for (i=30; i>0; i-=8)
238 {
239 D_ENCRYPT(l,r,i-0); /* 16 */
240 D_ENCRYPT(r,l,i-2); /* 15 */
241 D_ENCRYPT(l,r,i-4); /* 14 */
242 D_ENCRYPT(r,l,i-6); /* 13 */
243 }
244#endif
245 }
246 /* rotate and clear the top bits on machines with 8byte longs */
247 data[0]=ROTATE(l,3)&0xffffffffL;
248 data[1]=ROTATE(r,3)&0xffffffffL;
249 l=r=t=u=0;
250 }
251
252#endif /* OPENBSD_DES_ASM */
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#ifndef DES_DEFAULT_OPTIONS
295
296#undef CBC_ENC_C__DONT_UPDATE_IV
297#include "ncbc_enc.c" /* DES_ncbc_encrypt */
298
299void DES_ede3_cbc_encrypt(const unsigned char *input, unsigned char *output,
300 long length, DES_key_schedule *ks1,
301 DES_key_schedule *ks2, DES_key_schedule *ks3,
302 DES_cblock *ivec, int enc)
303 {
304 register DES_LONG tin0,tin1;
305 register DES_LONG tout0,tout1,xor0,xor1;
306 register const unsigned char *in;
307 unsigned char *out;
308 register long l=length;
309 DES_LONG tin[2];
310 unsigned char *iv;
311
312 in=input;
313 out=output;
314 iv = &(*ivec)[0];
315
316 if (enc)
317 {
318 c2l(iv,tout0);
319 c2l(iv,tout1);
320 for (l-=8; l>=0; l-=8)
321 {
322 c2l(in,tin0);
323 c2l(in,tin1);
324 tin0^=tout0;
325 tin1^=tout1;
326
327 tin[0]=tin0;
328 tin[1]=tin1;
329 DES_encrypt3((DES_LONG *)tin,ks1,ks2,ks3);
330 tout0=tin[0];
331 tout1=tin[1];
332
333 l2c(tout0,out);
334 l2c(tout1,out);
335 }
336 if (l != -8)
337 {
338 c2ln(in,tin0,tin1,l+8);
339 tin0^=tout0;
340 tin1^=tout1;
341
342 tin[0]=tin0;
343 tin[1]=tin1;
344 DES_encrypt3((DES_LONG *)tin,ks1,ks2,ks3);
345 tout0=tin[0];
346 tout1=tin[1];
347
348 l2c(tout0,out);
349 l2c(tout1,out);
350 }
351 iv = &(*ivec)[0];
352 l2c(tout0,iv);
353 l2c(tout1,iv);
354 }
355 else
356 {
357 register DES_LONG t0,t1;
358
359 c2l(iv,xor0);
360 c2l(iv,xor1);
361 for (l-=8; l>=0; l-=8)
362 {
363 c2l(in,tin0);
364 c2l(in,tin1);
365
366 t0=tin0;
367 t1=tin1;
368
369 tin[0]=tin0;
370 tin[1]=tin1;
371 DES_decrypt3((DES_LONG *)tin,ks1,ks2,ks3);
372 tout0=tin[0];
373 tout1=tin[1];
374
375 tout0^=xor0;
376 tout1^=xor1;
377 l2c(tout0,out);
378 l2c(tout1,out);
379 xor0=t0;
380 xor1=t1;
381 }
382 if (l != -8)
383 {
384 c2l(in,tin0);
385 c2l(in,tin1);
386
387 t0=tin0;
388 t1=tin1;
389
390 tin[0]=tin0;
391 tin[1]=tin1;
392 DES_decrypt3((DES_LONG *)tin,ks1,ks2,ks3);
393 tout0=tin[0];
394 tout1=tin[1];
395
396 tout0^=xor0;
397 tout1^=xor1;
398 l2cn(tout0,tout1,out,l+8);
399 xor0=t0;
400 xor1=t1;
401 }
402
403 iv = &(*ivec)[0];
404 l2c(xor0,iv);
405 l2c(xor1,iv);
406 }
407 tin0=tin1=tout0=tout1=xor0=xor1=0;
408 tin[0]=tin[1]=0;
409 }
410
411#endif /* DES_DEFAULT_OPTIONS */
generated by cgit v1.2.3-55-g6feb (git 2.39.1) at 2025-10-31 16:30:36 +0000