1 db6608bd 2003-11-23 devnull #include "os.h"
2 db6608bd 2003-11-23 devnull #include <libsec.h>
5 db6608bd 2003-11-23 devnull * integrated sbox & p perm
7 db6608bd 2003-11-23 devnull static u32int spbox[] = {
9 db6608bd 2003-11-23 devnull 0x00808200,0x00000000,0x00008000,0x00808202,0x00808002,0x00008202,0x00000002,0x00008000,
10 db6608bd 2003-11-23 devnull 0x00000200,0x00808200,0x00808202,0x00000200,0x00800202,0x00808002,0x00800000,0x00000002,
11 db6608bd 2003-11-23 devnull 0x00000202,0x00800200,0x00800200,0x00008200,0x00008200,0x00808000,0x00808000,0x00800202,
12 db6608bd 2003-11-23 devnull 0x00008002,0x00800002,0x00800002,0x00008002,0x00000000,0x00000202,0x00008202,0x00800000,
13 db6608bd 2003-11-23 devnull 0x00008000,0x00808202,0x00000002,0x00808000,0x00808200,0x00800000,0x00800000,0x00000200,
14 db6608bd 2003-11-23 devnull 0x00808002,0x00008000,0x00008200,0x00800002,0x00000200,0x00000002,0x00800202,0x00008202,
15 db6608bd 2003-11-23 devnull 0x00808202,0x00008002,0x00808000,0x00800202,0x00800002,0x00000202,0x00008202,0x00808200,
16 db6608bd 2003-11-23 devnull 0x00000202,0x00800200,0x00800200,0x00000000,0x00008002,0x00008200,0x00000000,0x00808002,
18 db6608bd 2003-11-23 devnull 0x40084010,0x40004000,0x00004000,0x00084010,0x00080000,0x00000010,0x40080010,0x40004010,
19 db6608bd 2003-11-23 devnull 0x40000010,0x40084010,0x40084000,0x40000000,0x40004000,0x00080000,0x00000010,0x40080010,
20 db6608bd 2003-11-23 devnull 0x00084000,0x00080010,0x40004010,0x00000000,0x40000000,0x00004000,0x00084010,0x40080000,
21 db6608bd 2003-11-23 devnull 0x00080010,0x40000010,0x00000000,0x00084000,0x00004010,0x40084000,0x40080000,0x00004010,
22 db6608bd 2003-11-23 devnull 0x00000000,0x00084010,0x40080010,0x00080000,0x40004010,0x40080000,0x40084000,0x00004000,
23 db6608bd 2003-11-23 devnull 0x40080000,0x40004000,0x00000010,0x40084010,0x00084010,0x00000010,0x00004000,0x40000000,
24 db6608bd 2003-11-23 devnull 0x00004010,0x40084000,0x00080000,0x40000010,0x00080010,0x40004010,0x40000010,0x00080010,
25 db6608bd 2003-11-23 devnull 0x00084000,0x00000000,0x40004000,0x00004010,0x40000000,0x40080010,0x40084010,0x00084000,
27 db6608bd 2003-11-23 devnull 0x00000104,0x04010100,0x00000000,0x04010004,0x04000100,0x00000000,0x00010104,0x04000100,
28 db6608bd 2003-11-23 devnull 0x00010004,0x04000004,0x04000004,0x00010000,0x04010104,0x00010004,0x04010000,0x00000104,
29 db6608bd 2003-11-23 devnull 0x04000000,0x00000004,0x04010100,0x00000100,0x00010100,0x04010000,0x04010004,0x00010104,
30 db6608bd 2003-11-23 devnull 0x04000104,0x00010100,0x00010000,0x04000104,0x00000004,0x04010104,0x00000100,0x04000000,
31 db6608bd 2003-11-23 devnull 0x04010100,0x04000000,0x00010004,0x00000104,0x00010000,0x04010100,0x04000100,0x00000000,
32 db6608bd 2003-11-23 devnull 0x00000100,0x00010004,0x04010104,0x04000100,0x04000004,0x00000100,0x00000000,0x04010004,
33 db6608bd 2003-11-23 devnull 0x04000104,0x00010000,0x04000000,0x04010104,0x00000004,0x00010104,0x00010100,0x04000004,
34 db6608bd 2003-11-23 devnull 0x04010000,0x04000104,0x00000104,0x04010000,0x00010104,0x00000004,0x04010004,0x00010100,
36 db6608bd 2003-11-23 devnull 0x80401000,0x80001040,0x80001040,0x00000040,0x00401040,0x80400040,0x80400000,0x80001000,
37 db6608bd 2003-11-23 devnull 0x00000000,0x00401000,0x00401000,0x80401040,0x80000040,0x00000000,0x00400040,0x80400000,
38 db6608bd 2003-11-23 devnull 0x80000000,0x00001000,0x00400000,0x80401000,0x00000040,0x00400000,0x80001000,0x00001040,
39 db6608bd 2003-11-23 devnull 0x80400040,0x80000000,0x00001040,0x00400040,0x00001000,0x00401040,0x80401040,0x80000040,
40 db6608bd 2003-11-23 devnull 0x00400040,0x80400000,0x00401000,0x80401040,0x80000040,0x00000000,0x00000000,0x00401000,
41 db6608bd 2003-11-23 devnull 0x00001040,0x00400040,0x80400040,0x80000000,0x80401000,0x80001040,0x80001040,0x00000040,
42 db6608bd 2003-11-23 devnull 0x80401040,0x80000040,0x80000000,0x00001000,0x80400000,0x80001000,0x00401040,0x80400040,
43 db6608bd 2003-11-23 devnull 0x80001000,0x00001040,0x00400000,0x80401000,0x00000040,0x00400000,0x00001000,0x00401040,
45 db6608bd 2003-11-23 devnull 0x00000080,0x01040080,0x01040000,0x21000080,0x00040000,0x00000080,0x20000000,0x01040000,
46 db6608bd 2003-11-23 devnull 0x20040080,0x00040000,0x01000080,0x20040080,0x21000080,0x21040000,0x00040080,0x20000000,
47 db6608bd 2003-11-23 devnull 0x01000000,0x20040000,0x20040000,0x00000000,0x20000080,0x21040080,0x21040080,0x01000080,
48 db6608bd 2003-11-23 devnull 0x21040000,0x20000080,0x00000000,0x21000000,0x01040080,0x01000000,0x21000000,0x00040080,
49 db6608bd 2003-11-23 devnull 0x00040000,0x21000080,0x00000080,0x01000000,0x20000000,0x01040000,0x21000080,0x20040080,
50 db6608bd 2003-11-23 devnull 0x01000080,0x20000000,0x21040000,0x01040080,0x20040080,0x00000080,0x01000000,0x21040000,
51 db6608bd 2003-11-23 devnull 0x21040080,0x00040080,0x21000000,0x21040080,0x01040000,0x00000000,0x20040000,0x21000000,
52 db6608bd 2003-11-23 devnull 0x00040080,0x01000080,0x20000080,0x00040000,0x00000000,0x20040000,0x01040080,0x20000080,
54 db6608bd 2003-11-23 devnull 0x10000008,0x10200000,0x00002000,0x10202008,0x10200000,0x00000008,0x10202008,0x00200000,
55 db6608bd 2003-11-23 devnull 0x10002000,0x00202008,0x00200000,0x10000008,0x00200008,0x10002000,0x10000000,0x00002008,
56 db6608bd 2003-11-23 devnull 0x00000000,0x00200008,0x10002008,0x00002000,0x00202000,0x10002008,0x00000008,0x10200008,
57 db6608bd 2003-11-23 devnull 0x10200008,0x00000000,0x00202008,0x10202000,0x00002008,0x00202000,0x10202000,0x10000000,
58 db6608bd 2003-11-23 devnull 0x10002000,0x00000008,0x10200008,0x00202000,0x10202008,0x00200000,0x00002008,0x10000008,
59 db6608bd 2003-11-23 devnull 0x00200000,0x10002000,0x10000000,0x00002008,0x10000008,0x10202008,0x00202000,0x10200000,
60 db6608bd 2003-11-23 devnull 0x00202008,0x10202000,0x00000000,0x10200008,0x00000008,0x00002000,0x10200000,0x00202008,
61 db6608bd 2003-11-23 devnull 0x00002000,0x00200008,0x10002008,0x00000000,0x10202000,0x10000000,0x00200008,0x10002008,
63 db6608bd 2003-11-23 devnull 0x00100000,0x02100001,0x02000401,0x00000000,0x00000400,0x02000401,0x00100401,0x02100400,
64 db6608bd 2003-11-23 devnull 0x02100401,0x00100000,0x00000000,0x02000001,0x00000001,0x02000000,0x02100001,0x00000401,
65 db6608bd 2003-11-23 devnull 0x02000400,0x00100401,0x00100001,0x02000400,0x02000001,0x02100000,0x02100400,0x00100001,
66 db6608bd 2003-11-23 devnull 0x02100000,0x00000400,0x00000401,0x02100401,0x00100400,0x00000001,0x02000000,0x00100400,
67 db6608bd 2003-11-23 devnull 0x02000000,0x00100400,0x00100000,0x02000401,0x02000401,0x02100001,0x02100001,0x00000001,
68 db6608bd 2003-11-23 devnull 0x00100001,0x02000000,0x02000400,0x00100000,0x02100400,0x00000401,0x00100401,0x02100400,
69 db6608bd 2003-11-23 devnull 0x00000401,0x02000001,0x02100401,0x02100000,0x00100400,0x00000000,0x00000001,0x02100401,
70 db6608bd 2003-11-23 devnull 0x00000000,0x00100401,0x02100000,0x00000400,0x02000001,0x02000400,0x00000400,0x00100001,
72 db6608bd 2003-11-23 devnull 0x08000820,0x00000800,0x00020000,0x08020820,0x08000000,0x08000820,0x00000020,0x08000000,
73 db6608bd 2003-11-23 devnull 0x00020020,0x08020000,0x08020820,0x00020800,0x08020800,0x00020820,0x00000800,0x00000020,
74 db6608bd 2003-11-23 devnull 0x08020000,0x08000020,0x08000800,0x00000820,0x00020800,0x00020020,0x08020020,0x08020800,
75 db6608bd 2003-11-23 devnull 0x00000820,0x00000000,0x00000000,0x08020020,0x08000020,0x08000800,0x00020820,0x00020000,
76 db6608bd 2003-11-23 devnull 0x00020820,0x00020000,0x08020800,0x00000800,0x00000020,0x08020020,0x00000800,0x00020820,
77 db6608bd 2003-11-23 devnull 0x08000800,0x00000020,0x08000020,0x08020000,0x08020020,0x08000000,0x00020000,0x08000820,
78 db6608bd 2003-11-23 devnull 0x00000000,0x08020820,0x00020020,0x08000020,0x08020000,0x08000800,0x08000820,0x00000000,
79 db6608bd 2003-11-23 devnull 0x08020820,0x00020800,0x00020800,0x00000820,0x00000820,0x00020020,0x08000000,0x08020800,
83 db6608bd 2003-11-23 devnull * for manual index calculation
84 db6608bd 2003-11-23 devnull * #define fetch(box, i, sh) (*((u32int*)((uchar*)spbox + (box << 8) + ((i >> (sh)) & 0xfc))))
86 db6608bd 2003-11-23 devnull #define fetch(box, i, sh) ((spbox+(box << 6))[((i >> (sh + 2)) & 0x3f)])
89 db6608bd 2003-11-23 devnull * DES electronic codebook encryption of one block
92 db6608bd 2003-11-23 devnull block_cipher(ulong key[32], uchar text[8], int decrypting)
94 db6608bd 2003-11-23 devnull u32int right, left, v0, v1;
95 db6608bd 2003-11-23 devnull int i, keystep;
98 db6608bd 2003-11-23 devnull * initial permutation
100 db6608bd 2003-11-23 devnull v0 = text[0] | ((u32int)text[2]<<8) | ((u32int)text[4]<<16) | ((u32int)text[6]<<24);
101 db6608bd 2003-11-23 devnull left = text[1] | ((u32int)text[3]<<8) | ((u32int)text[5]<<16) | ((u32int)text[7]<<24);
102 db6608bd 2003-11-23 devnull right = (left & 0xaaaaaaaa) | ((v0 >> 1) & 0x55555555);
103 db6608bd 2003-11-23 devnull left = ((left << 1) & 0xaaaaaaaa) | (v0 & 0x55555555);
104 db6608bd 2003-11-23 devnull left = ((left << 6) & 0x33003300)
105 db6608bd 2003-11-23 devnull | (left & 0xcc33cc33)
106 db6608bd 2003-11-23 devnull | ((left >> 6) & 0x00cc00cc);
107 db6608bd 2003-11-23 devnull left = ((left << 12) & 0x0f0f0000)
108 db6608bd 2003-11-23 devnull | (left & 0xf0f00f0f)
109 db6608bd 2003-11-23 devnull | ((left >> 12) & 0x0000f0f0);
110 db6608bd 2003-11-23 devnull right = ((right << 6) & 0x33003300)
111 db6608bd 2003-11-23 devnull | (right & 0xcc33cc33)
112 db6608bd 2003-11-23 devnull | ((right >> 6) & 0x00cc00cc);
113 db6608bd 2003-11-23 devnull right = ((right << 12) & 0x0f0f0000)
114 db6608bd 2003-11-23 devnull | (right & 0xf0f00f0f)
115 db6608bd 2003-11-23 devnull | ((right >> 12) & 0x0000f0f0);
117 db6608bd 2003-11-23 devnull if (decrypting) {
118 db6608bd 2003-11-23 devnull keystep = -2;
119 db6608bd 2003-11-23 devnull key = key + 32 - 2;
121 db6608bd 2003-11-23 devnull keystep = 2;
122 db6608bd 2003-11-23 devnull for (i = 0; i < 8; i++) {
123 db6608bd 2003-11-23 devnull v0 = key[0];
124 db6608bd 2003-11-23 devnull v0 ^= (right >> 1) | (right << 31);
125 db6608bd 2003-11-23 devnull left ^= fetch(0, v0, 24)
126 db6608bd 2003-11-23 devnull ^ fetch(2, v0, 16)
127 db6608bd 2003-11-23 devnull ^ fetch(4, v0, 8)
128 db6608bd 2003-11-23 devnull ^ fetch(6, v0, 0);
129 db6608bd 2003-11-23 devnull v1 = key[1];
130 db6608bd 2003-11-23 devnull v1 ^= (right << 3) | (right >> 29);
131 db6608bd 2003-11-23 devnull left ^= fetch(1, v1, 24)
132 db6608bd 2003-11-23 devnull ^ fetch(3, v1, 16)
133 db6608bd 2003-11-23 devnull ^ fetch(5, v1, 8)
134 db6608bd 2003-11-23 devnull ^ fetch(7, v1, 0);
135 db6608bd 2003-11-23 devnull key += keystep;
137 db6608bd 2003-11-23 devnull v0 = key[0];
138 db6608bd 2003-11-23 devnull v0 ^= (left >> 1) | (left << 31);
139 db6608bd 2003-11-23 devnull right ^= fetch(0, v0, 24)
140 db6608bd 2003-11-23 devnull ^ fetch(2, v0, 16)
141 db6608bd 2003-11-23 devnull ^ fetch(4, v0, 8)
142 db6608bd 2003-11-23 devnull ^ fetch(6, v0, 0);
143 db6608bd 2003-11-23 devnull v1 = key[1];
144 db6608bd 2003-11-23 devnull v1 ^= (left << 3) | (left >> 29);
145 db6608bd 2003-11-23 devnull right ^= fetch(1, v1, 24)
146 db6608bd 2003-11-23 devnull ^ fetch(3, v1, 16)
147 db6608bd 2003-11-23 devnull ^ fetch(5, v1, 8)
148 db6608bd 2003-11-23 devnull ^ fetch(7, v1, 0);
149 db6608bd 2003-11-23 devnull key += keystep;
153 db6608bd 2003-11-23 devnull * final permutation, inverse initial permutation
155 db6608bd 2003-11-23 devnull v0 = ((left << 1) & 0xaaaaaaaa) | (right & 0x55555555);
156 db6608bd 2003-11-23 devnull v1 = (left & 0xaaaaaaaa) | ((right >> 1) & 0x55555555);
157 db6608bd 2003-11-23 devnull v1 = ((v1 << 6) & 0x33003300)
158 db6608bd 2003-11-23 devnull | (v1 & 0xcc33cc33)
159 db6608bd 2003-11-23 devnull | ((v1 >> 6) & 0x00cc00cc);
160 db6608bd 2003-11-23 devnull v1 = ((v1 << 12) & 0x0f0f0000)
161 db6608bd 2003-11-23 devnull | (v1 & 0xf0f00f0f)
162 db6608bd 2003-11-23 devnull | ((v1 >> 12) & 0x0000f0f0);
163 db6608bd 2003-11-23 devnull v0 = ((v0 << 6) & 0x33003300)
164 db6608bd 2003-11-23 devnull | (v0 & 0xcc33cc33)
165 db6608bd 2003-11-23 devnull | ((v0 >> 6) & 0x00cc00cc);
166 db6608bd 2003-11-23 devnull v0 = ((v0 << 12) & 0x0f0f0000)
167 db6608bd 2003-11-23 devnull | (v0 & 0xf0f00f0f)
168 db6608bd 2003-11-23 devnull | ((v0 >> 12) & 0x0000f0f0);
169 db6608bd 2003-11-23 devnull text[0] = v0;
170 db6608bd 2003-11-23 devnull text[2] = v0 >> 8;
171 db6608bd 2003-11-23 devnull text[4] = v0 >> 16;
172 db6608bd 2003-11-23 devnull text[6] = v0 >> 24;
173 db6608bd 2003-11-23 devnull text[1] = v1;
174 db6608bd 2003-11-23 devnull text[3] = v1 >> 8;
175 db6608bd 2003-11-23 devnull text[5] = v1 >> 16;
176 db6608bd 2003-11-23 devnull text[7] = v1 >> 24;
180 db6608bd 2003-11-23 devnull * triple DES electronic codebook encryption of one block
183 db6608bd 2003-11-23 devnull triple_block_cipher(ulong expanded_key[3][32], uchar text[8], int ende)
185 db6608bd 2003-11-23 devnull ulong *key;
186 db6608bd 2003-11-23 devnull u32int right, left, v0, v1;
187 db6608bd 2003-11-23 devnull int i, j, keystep;
190 db6608bd 2003-11-23 devnull * initial permutation
192 db6608bd 2003-11-23 devnull v0 = text[0] | ((u32int)text[2]<<8) | ((u32int)text[4]<<16) | ((u32int)text[6]<<24);
193 db6608bd 2003-11-23 devnull left = text[1] | ((u32int)text[3]<<8) | ((u32int)text[5]<<16) | ((u32int)text[7]<<24);
194 db6608bd 2003-11-23 devnull right = (left & 0xaaaaaaaa) | ((v0 >> 1) & 0x55555555);
195 db6608bd 2003-11-23 devnull left = ((left << 1) & 0xaaaaaaaa) | (v0 & 0x55555555);
196 db6608bd 2003-11-23 devnull left = ((left << 6) & 0x33003300)
197 db6608bd 2003-11-23 devnull | (left & 0xcc33cc33)
198 db6608bd 2003-11-23 devnull | ((left >> 6) & 0x00cc00cc);
199 db6608bd 2003-11-23 devnull left = ((left << 12) & 0x0f0f0000)
200 db6608bd 2003-11-23 devnull | (left & 0xf0f00f0f)
201 db6608bd 2003-11-23 devnull | ((left >> 12) & 0x0000f0f0);
202 db6608bd 2003-11-23 devnull right = ((right << 6) & 0x33003300)
203 db6608bd 2003-11-23 devnull | (right & 0xcc33cc33)
204 db6608bd 2003-11-23 devnull | ((right >> 6) & 0x00cc00cc);
205 db6608bd 2003-11-23 devnull right = ((right << 12) & 0x0f0f0000)
206 db6608bd 2003-11-23 devnull | (right & 0xf0f00f0f)
207 db6608bd 2003-11-23 devnull | ((right >> 12) & 0x0000f0f0);
209 db6608bd 2003-11-23 devnull for(j = 0; j < 3; j++){
210 db6608bd 2003-11-23 devnull if((ende & 1) == DES3D) {
211 db6608bd 2003-11-23 devnull key = &expanded_key[2-j][32-2];
212 db6608bd 2003-11-23 devnull keystep = -2;
213 db6608bd 2003-11-23 devnull } else {
214 db6608bd 2003-11-23 devnull key = &expanded_key[j][0];
215 db6608bd 2003-11-23 devnull keystep = 2;
217 db6608bd 2003-11-23 devnull ende >>= 1;
218 db6608bd 2003-11-23 devnull for (i = 0; i < 8; i++) {
219 db6608bd 2003-11-23 devnull v0 = key[0];
220 db6608bd 2003-11-23 devnull v0 ^= (right >> 1) | (right << 31);
221 db6608bd 2003-11-23 devnull left ^= fetch(0, v0, 24)
222 db6608bd 2003-11-23 devnull ^ fetch(2, v0, 16)
223 db6608bd 2003-11-23 devnull ^ fetch(4, v0, 8)
224 db6608bd 2003-11-23 devnull ^ fetch(6, v0, 0);
225 db6608bd 2003-11-23 devnull v1 = key[1];
226 db6608bd 2003-11-23 devnull v1 ^= (right << 3) | (right >> 29);
227 db6608bd 2003-11-23 devnull left ^= fetch(1, v1, 24)
228 db6608bd 2003-11-23 devnull ^ fetch(3, v1, 16)
229 db6608bd 2003-11-23 devnull ^ fetch(5, v1, 8)
230 db6608bd 2003-11-23 devnull ^ fetch(7, v1, 0);
231 db6608bd 2003-11-23 devnull key += keystep;
233 db6608bd 2003-11-23 devnull v0 = key[0];
234 db6608bd 2003-11-23 devnull v0 ^= (left >> 1) | (left << 31);
235 db6608bd 2003-11-23 devnull right ^= fetch(0, v0, 24)
236 db6608bd 2003-11-23 devnull ^ fetch(2, v0, 16)
237 db6608bd 2003-11-23 devnull ^ fetch(4, v0, 8)
238 db6608bd 2003-11-23 devnull ^ fetch(6, v0, 0);
239 db6608bd 2003-11-23 devnull v1 = key[1];
240 db6608bd 2003-11-23 devnull v1 ^= (left << 3) | (left >> 29);
241 db6608bd 2003-11-23 devnull right ^= fetch(1, v1, 24)
242 db6608bd 2003-11-23 devnull ^ fetch(3, v1, 16)
243 db6608bd 2003-11-23 devnull ^ fetch(5, v1, 8)
244 db6608bd 2003-11-23 devnull ^ fetch(7, v1, 0);
245 db6608bd 2003-11-23 devnull key += keystep;
248 db6608bd 2003-11-23 devnull v0 = left;
249 db6608bd 2003-11-23 devnull left = right;
250 db6608bd 2003-11-23 devnull right = v0;
254 db6608bd 2003-11-23 devnull * final permutation, inverse initial permutation
255 db6608bd 2003-11-23 devnull * left and right are swapped here
257 db6608bd 2003-11-23 devnull v0 = ((right << 1) & 0xaaaaaaaa) | (left & 0x55555555);
258 db6608bd 2003-11-23 devnull v1 = (right & 0xaaaaaaaa) | ((left >> 1) & 0x55555555);
259 db6608bd 2003-11-23 devnull v1 = ((v1 << 6) & 0x33003300)
260 db6608bd 2003-11-23 devnull | (v1 & 0xcc33cc33)
261 db6608bd 2003-11-23 devnull | ((v1 >> 6) & 0x00cc00cc);
262 db6608bd 2003-11-23 devnull v1 = ((v1 << 12) & 0x0f0f0000)
263 db6608bd 2003-11-23 devnull | (v1 & 0xf0f00f0f)
264 db6608bd 2003-11-23 devnull | ((v1 >> 12) & 0x0000f0f0);
265 db6608bd 2003-11-23 devnull v0 = ((v0 << 6) & 0x33003300)
266 db6608bd 2003-11-23 devnull | (v0 & 0xcc33cc33)
267 db6608bd 2003-11-23 devnull | ((v0 >> 6) & 0x00cc00cc);
268 db6608bd 2003-11-23 devnull v0 = ((v0 << 12) & 0x0f0f0000)
269 db6608bd 2003-11-23 devnull | (v0 & 0xf0f00f0f)
270 db6608bd 2003-11-23 devnull | ((v0 >> 12) & 0x0000f0f0);
271 db6608bd 2003-11-23 devnull text[0] = v0;
272 db6608bd 2003-11-23 devnull text[2] = v0 >> 8;
273 db6608bd 2003-11-23 devnull text[4] = v0 >> 16;
274 db6608bd 2003-11-23 devnull text[6] = v0 >> 24;
275 db6608bd 2003-11-23 devnull text[1] = v1;
276 db6608bd 2003-11-23 devnull text[3] = v1 >> 8;
277 db6608bd 2003-11-23 devnull text[5] = v1 >> 16;
278 db6608bd 2003-11-23 devnull text[7] = v1 >> 24;
282 db6608bd 2003-11-23 devnull * key compression permutation, 4 bits at a time
284 db6608bd 2003-11-23 devnull static u32int comptab[] = {
286 db6608bd 2003-11-23 devnull 0x000000,0x010000,0x000008,0x010008,0x000080,0x010080,0x000088,0x010088,
287 db6608bd 2003-11-23 devnull 0x000000,0x010000,0x000008,0x010008,0x000080,0x010080,0x000088,0x010088,
289 db6608bd 2003-11-23 devnull 0x000000,0x100000,0x000800,0x100800,0x000000,0x100000,0x000800,0x100800,
290 db6608bd 2003-11-23 devnull 0x002000,0x102000,0x002800,0x102800,0x002000,0x102000,0x002800,0x102800,
292 db6608bd 2003-11-23 devnull 0x000000,0x000004,0x000400,0x000404,0x000000,0x000004,0x000400,0x000404,
293 db6608bd 2003-11-23 devnull 0x400000,0x400004,0x400400,0x400404,0x400000,0x400004,0x400400,0x400404,
295 db6608bd 2003-11-23 devnull 0x000000,0x000020,0x008000,0x008020,0x800000,0x800020,0x808000,0x808020,
296 db6608bd 2003-11-23 devnull 0x000002,0x000022,0x008002,0x008022,0x800002,0x800022,0x808002,0x808022,
298 db6608bd 2003-11-23 devnull 0x000000,0x000200,0x200000,0x200200,0x001000,0x001200,0x201000,0x201200,
299 db6608bd 2003-11-23 devnull 0x000000,0x000200,0x200000,0x200200,0x001000,0x001200,0x201000,0x201200,
301 db6608bd 2003-11-23 devnull 0x000000,0x000040,0x000010,0x000050,0x004000,0x004040,0x004010,0x004050,
302 db6608bd 2003-11-23 devnull 0x040000,0x040040,0x040010,0x040050,0x044000,0x044040,0x044010,0x044050,
304 db6608bd 2003-11-23 devnull 0x000000,0x000100,0x020000,0x020100,0x000001,0x000101,0x020001,0x020101,
305 db6608bd 2003-11-23 devnull 0x080000,0x080100,0x0a0000,0x0a0100,0x080001,0x080101,0x0a0001,0x0a0101,
307 db6608bd 2003-11-23 devnull 0x000000,0x000100,0x040000,0x040100,0x000000,0x000100,0x040000,0x040100,
308 db6608bd 2003-11-23 devnull 0x000040,0x000140,0x040040,0x040140,0x000040,0x000140,0x040040,0x040140,
310 db6608bd 2003-11-23 devnull 0x000000,0x400000,0x008000,0x408000,0x000008,0x400008,0x008008,0x408008,
311 db6608bd 2003-11-23 devnull 0x000400,0x400400,0x008400,0x408400,0x000408,0x400408,0x008408,0x408408,
313 db6608bd 2003-11-23 devnull 0x000000,0x001000,0x080000,0x081000,0x000020,0x001020,0x080020,0x081020,
314 db6608bd 2003-11-23 devnull 0x004000,0x005000,0x084000,0x085000,0x004020,0x005020,0x084020,0x085020,
316 db6608bd 2003-11-23 devnull 0x000000,0x000800,0x000000,0x000800,0x000010,0x000810,0x000010,0x000810,
317 db6608bd 2003-11-23 devnull 0x800000,0x800800,0x800000,0x800800,0x800010,0x800810,0x800010,0x800810,
319 db6608bd 2003-11-23 devnull 0x000000,0x010000,0x000200,0x010200,0x000000,0x010000,0x000200,0x010200,
320 db6608bd 2003-11-23 devnull 0x100000,0x110000,0x100200,0x110200,0x100000,0x110000,0x100200,0x110200,
322 db6608bd 2003-11-23 devnull 0x000000,0x000004,0x000000,0x000004,0x000080,0x000084,0x000080,0x000084,
323 db6608bd 2003-11-23 devnull 0x002000,0x002004,0x002000,0x002004,0x002080,0x002084,0x002080,0x002084,
325 db6608bd 2003-11-23 devnull 0x000000,0x000001,0x200000,0x200001,0x020000,0x020001,0x220000,0x220001,
326 db6608bd 2003-11-23 devnull 0x000002,0x000003,0x200002,0x200003,0x020002,0x020003,0x220002,0x220003,
329 db6608bd 2003-11-23 devnull static int keysh[] =
331 db6608bd 2003-11-23 devnull 1, 1, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 1,
334 db6608bd 2003-11-23 devnull static void
335 db6608bd 2003-11-23 devnull keycompperm(u32int left, u32int right, ulong *ek)
337 db6608bd 2003-11-23 devnull u32int v0, v1;
340 db6608bd 2003-11-23 devnull for(i = 0; i < 16; i++){
341 db6608bd 2003-11-23 devnull left = (left << keysh[i]) | (left >> (28 - keysh[i]));
342 db6608bd 2003-11-23 devnull left &= 0xfffffff0;
343 db6608bd 2003-11-23 devnull right = (right << keysh[i]) | (right >> (28 - keysh[i]));
344 db6608bd 2003-11-23 devnull right &= 0xfffffff0;
345 db6608bd 2003-11-23 devnull v0 = comptab[6 * (1 << 4) + ((left >> (32-4)) & 0xf)]
346 db6608bd 2003-11-23 devnull | comptab[5 * (1 << 4) + ((left >> (32-8)) & 0xf)]
347 db6608bd 2003-11-23 devnull | comptab[4 * (1 << 4) + ((left >> (32-12)) & 0xf)]
348 db6608bd 2003-11-23 devnull | comptab[3 * (1 << 4) + ((left >> (32-16)) & 0xf)]
349 db6608bd 2003-11-23 devnull | comptab[2 * (1 << 4) + ((left >> (32-20)) & 0xf)]
350 db6608bd 2003-11-23 devnull | comptab[1 * (1 << 4) + ((left >> (32-24)) & 0xf)]
351 db6608bd 2003-11-23 devnull | comptab[0 * (1 << 4) + ((left >> (32-28)) & 0xf)];
352 db6608bd 2003-11-23 devnull v1 = comptab[13 * (1 << 4) + ((right >> (32-4)) & 0xf)]
353 db6608bd 2003-11-23 devnull | comptab[12 * (1 << 4) + ((right >> (32-8)) & 0xf)]
354 db6608bd 2003-11-23 devnull | comptab[11 * (1 << 4) + ((right >> (32-12)) & 0xf)]
355 db6608bd 2003-11-23 devnull | comptab[10 * (1 << 4) + ((right >> (32-16)) & 0xf)]
356 db6608bd 2003-11-23 devnull | comptab[9 * (1 << 4) + ((right >> (32-20)) & 0xf)]
357 db6608bd 2003-11-23 devnull | comptab[8 * (1 << 4) + ((right >> (32-24)) & 0xf)]
358 db6608bd 2003-11-23 devnull | comptab[7 * (1 << 4) + ((right >> (32-28)) & 0xf)];
359 db6608bd 2003-11-23 devnull ek[0] = (((v0 >> (24-6)) & 0x3f) << 26)
360 db6608bd 2003-11-23 devnull | (((v0 >> (24-18)) & 0x3f) << 18)
361 db6608bd 2003-11-23 devnull | (((v1 >> (24-6)) & 0x3f) << 10)
362 db6608bd 2003-11-23 devnull | (((v1 >> (24-18)) & 0x3f) << 2);
363 db6608bd 2003-11-23 devnull ek[1] = (((v0 >> (24-12)) & 0x3f) << 26)
364 db6608bd 2003-11-23 devnull | (((v0 >> (24-24)) & 0x3f) << 18)
365 db6608bd 2003-11-23 devnull | (((v1 >> (24-12)) & 0x3f) << 10)
366 db6608bd 2003-11-23 devnull | (((v1 >> (24-24)) & 0x3f) << 2);
367 db6608bd 2003-11-23 devnull ek += 2;
372 db6608bd 2003-11-23 devnull des_key_setup(uchar key[8], ulong *ek)
374 db6608bd 2003-11-23 devnull u32int left, right, v0, v1;
376 db6608bd 2003-11-23 devnull v0 = key[0] | ((u32int)key[2] << 8) | ((u32int)key[4] << 16) | ((u32int)key[6] << 24);
377 db6608bd 2003-11-23 devnull v1 = key[1] | ((u32int)key[3] << 8) | ((u32int)key[5] << 16) | ((u32int)key[7] << 24);
378 db6608bd 2003-11-23 devnull left = ((v0 >> 1) & 0x40404040)
379 db6608bd 2003-11-23 devnull | ((v0 >> 2) & 0x10101010)
380 db6608bd 2003-11-23 devnull | ((v0 >> 3) & 0x04040404)
381 db6608bd 2003-11-23 devnull | ((v0 >> 4) & 0x01010101)
382 db6608bd 2003-11-23 devnull | ((v1 >> 0) & 0x80808080)
383 db6608bd 2003-11-23 devnull | ((v1 >> 1) & 0x20202020)
384 db6608bd 2003-11-23 devnull | ((v1 >> 2) & 0x08080808)
385 db6608bd 2003-11-23 devnull | ((v1 >> 3) & 0x02020202);
386 db6608bd 2003-11-23 devnull right = ((v0 >> 1) & 0x04040404)
387 db6608bd 2003-11-23 devnull | ((v0 << 2) & 0x10101010)
388 db6608bd 2003-11-23 devnull | ((v0 << 5) & 0x40404040)
389 db6608bd 2003-11-23 devnull | ((v1 << 0) & 0x08080808)
390 db6608bd 2003-11-23 devnull | ((v1 << 3) & 0x20202020)
391 db6608bd 2003-11-23 devnull | ((v1 << 6) & 0x80808080);
392 db6608bd 2003-11-23 devnull left = ((left << 6) & 0x33003300)
393 db6608bd 2003-11-23 devnull | (left & 0xcc33cc33)
394 db6608bd 2003-11-23 devnull | ((left >> 6) & 0x00cc00cc);
395 db6608bd 2003-11-23 devnull v0 = ((left << 12) & 0x0f0f0000)
396 db6608bd 2003-11-23 devnull | (left & 0xf0f00f0f)
397 db6608bd 2003-11-23 devnull | ((left >> 12) & 0x0000f0f0);
398 db6608bd 2003-11-23 devnull right = ((right << 6) & 0x33003300)
399 db6608bd 2003-11-23 devnull | (right & 0xcc33cc33)
400 db6608bd 2003-11-23 devnull | ((right >> 6) & 0x00cc00cc);
401 db6608bd 2003-11-23 devnull v1 = ((right << 12) & 0x0f0f0000)
402 db6608bd 2003-11-23 devnull | (right & 0xf0f00f0f)
403 db6608bd 2003-11-23 devnull | ((right >> 12) & 0x0000f0f0);
404 db6608bd 2003-11-23 devnull left = v0 & 0xfffffff0;
405 db6608bd 2003-11-23 devnull right = (v1 & 0xffffff00) | ((v0 << 4) & 0xf0);
407 db6608bd 2003-11-23 devnull keycompperm(left, right, ek);
410 db6608bd 2003-11-23 devnull static uchar parity[128] =
412 fa325e9b 2020-01-10 cross 0x01, 0x02, 0x04, 0x07, 0x08, 0x0b, 0x0d, 0x0e,
413 fa325e9b 2020-01-10 cross 0x10, 0x13, 0x15, 0x16, 0x19, 0x1a, 0x1c, 0x1f,
414 fa325e9b 2020-01-10 cross 0x20, 0x23, 0x25, 0x26, 0x29, 0x2a, 0x2c, 0x2f,
415 fa325e9b 2020-01-10 cross 0x31, 0x32, 0x34, 0x37, 0x38, 0x3b, 0x3d, 0x3e,
416 fa325e9b 2020-01-10 cross 0x40, 0x43, 0x45, 0x46, 0x49, 0x4a, 0x4c, 0x4f,
417 fa325e9b 2020-01-10 cross 0x51, 0x52, 0x54, 0x57, 0x58, 0x5b, 0x5d, 0x5e,
418 fa325e9b 2020-01-10 cross 0x61, 0x62, 0x64, 0x67, 0x68, 0x6b, 0x6d, 0x6e,
419 fa325e9b 2020-01-10 cross 0x70, 0x73, 0x75, 0x76, 0x79, 0x7a, 0x7c, 0x7f,
420 fa325e9b 2020-01-10 cross 0x80, 0x83, 0x85, 0x86, 0x89, 0x8a, 0x8c, 0x8f,
421 fa325e9b 2020-01-10 cross 0x91, 0x92, 0x94, 0x97, 0x98, 0x9b, 0x9d, 0x9e,
422 fa325e9b 2020-01-10 cross 0xa1, 0xa2, 0xa4, 0xa7, 0xa8, 0xab, 0xad, 0xae,
423 fa325e9b 2020-01-10 cross 0xb0, 0xb3, 0xb5, 0xb6, 0xb9, 0xba, 0xbc, 0xbf,
424 fa325e9b 2020-01-10 cross 0xc1, 0xc2, 0xc4, 0xc7, 0xc8, 0xcb, 0xcd, 0xce,
425 fa325e9b 2020-01-10 cross 0xd0, 0xd3, 0xd5, 0xd6, 0xd9, 0xda, 0xdc, 0xdf,
426 fa325e9b 2020-01-10 cross 0xe0, 0xe3, 0xe5, 0xe6, 0xe9, 0xea, 0xec, 0xef,
427 db6608bd 2003-11-23 devnull 0xf1, 0xf2, 0xf4, 0xf7, 0xf8, 0xfb, 0xfd, 0xfe,
431 db6608bd 2003-11-23 devnull * convert a 7 byte key to an 8 byte one
434 db6608bd 2003-11-23 devnull des56to64(uchar *k56, uchar *k64)
436 db6608bd 2003-11-23 devnull u32int hi, lo;
438 db6608bd 2003-11-23 devnull hi = ((u32int)k56[0]<<24)|((u32int)k56[1]<<16)|((u32int)k56[2]<<8)|k56[3];
439 db6608bd 2003-11-23 devnull lo = ((u32int)k56[4]<<24)|((u32int)k56[5]<<16)|((u32int)k56[6]<<8);
441 db6608bd 2003-11-23 devnull k64[0] = parity[(hi>>25)&0x7f];
442 db6608bd 2003-11-23 devnull k64[1] = parity[(hi>>18)&0x7f];
443 db6608bd 2003-11-23 devnull k64[2] = parity[(hi>>11)&0x7f];
444 db6608bd 2003-11-23 devnull k64[3] = parity[(hi>>4)&0x7f];
445 db6608bd 2003-11-23 devnull k64[4] = parity[((hi<<3)|(lo>>29))&0x7f];
446 db6608bd 2003-11-23 devnull k64[5] = parity[(lo>>22)&0x7f];
447 db6608bd 2003-11-23 devnull k64[6] = parity[(lo>>15)&0x7f];
448 db6608bd 2003-11-23 devnull k64[7] = parity[(lo>>8)&0x7f];
452 db6608bd 2003-11-23 devnull * convert an 8 byte key to a 7 byte one
455 db6608bd 2003-11-23 devnull des64to56(uchar *k64, uchar *k56)
457 db6608bd 2003-11-23 devnull u32int hi, lo;
459 db6608bd 2003-11-23 devnull hi = (((u32int)k64[0]&0xfe)<<24)|(((u32int)k64[1]&0xfe)<<17)|(((u32int)k64[2]&0xfe)<<10)
460 db6608bd 2003-11-23 devnull |((k64[3]&0xfe)<<3)|(k64[4]>>4);
461 db6608bd 2003-11-23 devnull lo = (((u32int)k64[4]&0xfe)<<28)|(((u32int)k64[5]&0xfe)<<21)|(((u32int)k64[6]&0xfe)<<14)
462 db6608bd 2003-11-23 devnull |(((u32int)k64[7]&0xfe)<<7);
464 db6608bd 2003-11-23 devnull k56[0] = hi>>24;
465 db6608bd 2003-11-23 devnull k56[1] = hi>>16;
466 db6608bd 2003-11-23 devnull k56[2] = hi>>8;
467 db6608bd 2003-11-23 devnull k56[3] = hi>>0;
468 db6608bd 2003-11-23 devnull k56[4] = lo>>24;
469 db6608bd 2003-11-23 devnull k56[5] = lo>>16;
470 db6608bd 2003-11-23 devnull k56[6] = lo>>8;
474 db6608bd 2003-11-23 devnull key_setup(uchar key[7], ulong *ek)
476 db6608bd 2003-11-23 devnull uchar k64[8];
478 db6608bd 2003-11-23 devnull des56to64(key, k64);
479 fa325e9b 2020-01-10 cross des_key_setup(k64, ek);
