1/*
2 * Copyright 1995-2016 The OpenSSL Project Authors. All Rights Reserved.
3 *
4 * Licensed under the Apache License 2.0 (the "License"). You may not use
5 * this file except in compliance with the License. You can obtain a copy
6 * in the file LICENSE in the source distribution or at
7 * https://www.openssl.org/source/license.html
8 */
9
10#include "des_local.h"
11
12/* RSA's DESX */
13
14void DES_xcbc_encrypt(const unsigned char *in, unsigned char *out,
15 long length, DES_key_schedule *schedule,
16 DES_cblock *ivec, const_DES_cblock *inw,
17 const_DES_cblock *outw, int enc)
18{
19 register DES_LONG tin0, tin1;
20 register DES_LONG tout0, tout1, xor0, xor1;
21 register DES_LONG inW0, inW1, outW0, outW1;
22 register const unsigned char *in2;
23 register long l = length;
24 DES_LONG tin[2];
25 unsigned char *iv;
26
27 in2 = &(*inw)[0];
28 c2l(in2, inW0);
29 c2l(in2, inW1);
30 in2 = &(*outw)[0];
31 c2l(in2, outW0);
32 c2l(in2, outW1);
33
34 iv = &(*ivec)[0];
35
36 if (enc) {
37 c2l(iv, tout0);
38 c2l(iv, tout1);
39 for (l -= 8; l >= 0; l -= 8) {
40 c2l(in, tin0);
41 c2l(in, tin1);
42 tin0 ^= tout0 ^ inW0;
43 tin[0] = tin0;
44 tin1 ^= tout1 ^ inW1;
45 tin[1] = tin1;
46 DES_encrypt1(tin, schedule, DES_ENCRYPT);
47 tout0 = tin[0] ^ outW0;
48 l2c(tout0, out);
49 tout1 = tin[1] ^ outW1;
50 l2c(tout1, out);
51 }
52 if (l != -8) {
53 c2ln(in, tin0, tin1, l + 8);
54 tin0 ^= tout0 ^ inW0;
55 tin[0] = tin0;
56 tin1 ^= tout1 ^ inW1;
57 tin[1] = tin1;
58 DES_encrypt1(tin, schedule, DES_ENCRYPT);
59 tout0 = tin[0] ^ outW0;
60 l2c(tout0, out);
61 tout1 = tin[1] ^ outW1;
62 l2c(tout1, out);
63 }
64 iv = &(*ivec)[0];
65 l2c(tout0, iv);
66 l2c(tout1, iv);
67 } else {
68 c2l(iv, xor0);
69 c2l(iv, xor1);
70 for (l -= 8; l > 0; l -= 8) {
71 c2l(in, tin0);
72 tin[0] = tin0 ^ outW0;
73 c2l(in, tin1);
74 tin[1] = tin1 ^ outW1;
75 DES_encrypt1(tin, schedule, DES_DECRYPT);
76 tout0 = tin[0] ^ xor0 ^ inW0;
77 tout1 = tin[1] ^ xor1 ^ inW1;
78 l2c(tout0, out);
79 l2c(tout1, out);
80 xor0 = tin0;
81 xor1 = tin1;
82 }
83 if (l != -8) {
84 c2l(in, tin0);
85 tin[0] = tin0 ^ outW0;
86 c2l(in, tin1);
87 tin[1] = tin1 ^ outW1;
88 DES_encrypt1(tin, schedule, DES_DECRYPT);
89 tout0 = tin[0] ^ xor0 ^ inW0;
90 tout1 = tin[1] ^ xor1 ^ inW1;
91 l2cn(tout0, tout1, out, l + 8);
92 xor0 = tin0;
93 xor1 = tin1;
94 }
95
96 iv = &(*ivec)[0];
97 l2c(xor0, iv);
98 l2c(xor1, iv);
99 }
100 tin0 = tin1 = tout0 = tout1 = xor0 = xor1 = 0;
101 inW0 = inW1 = outW0 = outW1 = 0;
102 tin[0] = tin[1] = 0;
103}
104