2 Unix SMB/Netbios implementation.
4 a implementation of DES designed for use in the SMB authentication protocol
5 Copyright (C) Andrew Tridgell 1997
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
23 /* NOTE: This code makes no attempt to be fast! In fact, it is a very
24 slow DES implementation */
26 static int perm1[56] = {57, 49, 41, 33, 25, 17, 9,
27 1, 58, 50, 42, 34, 26, 18,
28 10, 2, 59, 51, 43, 35, 27,
29 19, 11, 3, 60, 52, 44, 36,
30 63, 55, 47, 39, 31, 23, 15,
31 7, 62, 54, 46, 38, 30, 22,
32 14, 6, 61, 53, 45, 37, 29,
33 21, 13, 5, 28, 20, 12, 4};
35 static int perm2[48] = {14, 17, 11, 24, 1, 5,
39 41, 52, 31, 37, 47, 55,
40 30, 40, 51, 45, 33, 48,
41 44, 49, 39, 56, 34, 53,
42 46, 42, 50, 36, 29, 32};
44 static int perm3[64] = {58, 50, 42, 34, 26, 18, 10, 2,
45 60, 52, 44, 36, 28, 20, 12, 4,
46 62, 54, 46, 38, 30, 22, 14, 6,
47 64, 56, 48, 40, 32, 24, 16, 8,
48 57, 49, 41, 33, 25, 17, 9, 1,
49 59, 51, 43, 35, 27, 19, 11, 3,
50 61, 53, 45, 37, 29, 21, 13, 5,
51 63, 55, 47, 39, 31, 23, 15, 7};
53 static int perm4[48] = { 32, 1, 2, 3, 4, 5,
56 12, 13, 14, 15, 16, 17,
57 16, 17, 18, 19, 20, 21,
58 20, 21, 22, 23, 24, 25,
59 24, 25, 26, 27, 28, 29,
60 28, 29, 30, 31, 32, 1};
62 static int perm5[32] = { 16, 7, 20, 21,
72 static int perm6[64] ={ 40, 8, 48, 16, 56, 24, 64, 32,
73 39, 7, 47, 15, 55, 23, 63, 31,
74 38, 6, 46, 14, 54, 22, 62, 30,
75 37, 5, 45, 13, 53, 21, 61, 29,
76 36, 4, 44, 12, 52, 20, 60, 28,
77 35, 3, 43, 11, 51, 19, 59, 27,
78 34, 2, 42, 10, 50, 18, 58, 26,
79 33, 1, 41, 9, 49, 17, 57, 25};
82 static int sc[16] = {1, 1, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 1};
84 static int sbox[8][4][16] = {
85 {{14, 4, 13, 1, 2, 15, 11, 8, 3, 10, 6, 12, 5, 9, 0, 7},
86 {0, 15, 7, 4, 14, 2, 13, 1, 10, 6, 12, 11, 9, 5, 3, 8},
87 {4, 1, 14, 8, 13, 6, 2, 11, 15, 12, 9, 7, 3, 10, 5, 0},
88 {15, 12, 8, 2, 4, 9, 1, 7, 5, 11, 3, 14, 10, 0, 6, 1}},
90 {{15, 1, 8, 14, 6, 11, 3, 4, 9, 7, 2, 13, 12, 0, 5, 10},
91 {3, 13, 4, 7, 15, 2, 8, 14, 12, 0, 1, 10, 6, 9, 11, 5},
92 {0, 14, 7, 11, 10, 4, 13, 1, 5, 8, 12, 6, 9, 3, 2, 15},
93 {13, 8, 10, 1, 3, 15, 4, 2, 11, 6, 7, 12, 0, 5, 14, 9}},
95 {{10, 0, 9, 14, 6, 3, 15, 5, 1, 13, 12, 7, 11, 4, 2, 8},
96 {13, 7, 0, 9, 3, 4, 6, 10, 2, 8, 5, 14, 12, 11, 15, 1},
97 {13, 6, 4, 9, 8, 15, 3, 0, 11, 1, 2, 12, 5, 10, 14, 7},
98 {1, 10, 13, 0, 6, 9, 8, 7, 4, 15, 14, 3, 11, 5, 2, 12}},
100 {{7, 13, 14, 3, 0, 6, 9, 10, 1, 2, 8, 5, 11, 12, 4, 15},
101 {13, 8, 11, 5, 6, 15, 0, 3, 4, 7, 2, 12, 1, 10, 14, 9},
102 {10, 6, 9, 0, 12, 11, 7, 13, 15, 1, 3, 14, 5, 2, 8, 4},
103 {3, 15, 0, 6, 10, 1, 13, 8, 9, 4, 5, 11, 12, 7, 2, 14}},
105 {{2, 12, 4, 1, 7, 10, 11, 6, 8, 5, 3, 15, 13, 0, 14, 9},
106 {14, 11, 2, 12, 4, 7, 13, 1, 5, 0, 15, 10, 3, 9, 8, 6},
107 {4, 2, 1, 11, 10, 13, 7, 8, 15, 9, 12, 5, 6, 3, 0, 14},
108 {11, 8, 12, 7, 1, 14, 2, 13, 6, 15, 0, 9, 10, 4, 5, 3}},
110 {{12, 1, 10, 15, 9, 2, 6, 8, 0, 13, 3, 4, 14, 7, 5, 11},
111 {10, 15, 4, 2, 7, 12, 9, 5, 6, 1, 13, 14, 0, 11, 3, 8},
112 {9, 14, 15, 5, 2, 8, 12, 3, 7, 0, 4, 10, 1, 13, 11, 6},
113 {4, 3, 2, 12, 9, 5, 15, 10, 11, 14, 1, 7, 6, 0, 8, 13}},
115 {{4, 11, 2, 14, 15, 0, 8, 13, 3, 12, 9, 7, 5, 10, 6, 1},
116 {13, 0, 11, 7, 4, 9, 1, 10, 14, 3, 5, 12, 2, 15, 8, 6},
117 {1, 4, 11, 13, 12, 3, 7, 14, 10, 15, 6, 8, 0, 5, 9, 2},
118 {6, 11, 13, 8, 1, 4, 10, 7, 9, 5, 0, 15, 14, 2, 3, 12}},
120 {{13, 2, 8, 4, 6, 15, 11, 1, 10, 9, 3, 14, 5, 0, 12, 7},
121 {1, 15, 13, 8, 10, 3, 7, 4, 12, 5, 6, 11, 0, 14, 9, 2},
122 {7, 11, 4, 1, 9, 12, 14, 2, 0, 6, 10, 13, 15, 3, 5, 8},
123 {2, 1, 14, 7, 4, 10, 8, 13, 15, 12, 9, 0, 3, 5, 6, 11}}};
126 static void permute(char *out, char *in, int *p, int n)
133 static void lshift(char *d, int count, int n)
138 out[i] = d[(i+count)%n];
143 static void concat(char *out, char *in1, char *in2, int l1, int l2)
151 static void xor(char *out, char *in1, char *in2, int n)
155 out[i] = in1[i] ^ in2[i];
158 static void dodes(char *out, char *in, char *key)
170 permute(pk1, key, perm1, 56);
178 lshift(c, sc[i], 28);
179 lshift(d, sc[i], 28);
181 concat(cd, c, d, 28, 28);
182 permute(ki[i], cd, perm2, 48);
185 permute(pd1, in, perm3, 64);
200 permute(er, r, perm4, 48);
202 xor(erk, er, ki[i], 48);
206 b[j][k] = erk[j*6 + k];
210 m = (b[j][0]<<1) | b[j][5];
212 n = (b[j][1]<<3) | (b[j][2]<<2) | (b[j][3]<<1) | b[j][4];
215 b[j][k] = (sbox[j][m][n] & (1<<(3-k)))?1:0;
221 permute(pcb, cb, perm5, 32);
232 concat(rl, r, l, 32, 32);
233 permute(out, rl, perm6, 64);
236 static void str_to_key(unsigned char *str,unsigned char *key)
241 key[1] = ((str[0]&0x01)<<6) | (str[1]>>2);
242 key[2] = ((str[1]&0x03)<<5) | (str[2]>>3);
243 key[3] = ((str[2]&0x07)<<4) | (str[3]>>4);
244 key[4] = ((str[3]&0x0F)<<3) | (str[4]>>5);
245 key[5] = ((str[4]&0x1F)<<2) | (str[5]>>6);
246 key[6] = ((str[5]&0x3F)<<1) | (str[6]>>7);
247 key[7] = str[6]&0x7F;
249 key[i] = (key[i]<<1);
254 /* this is the entry point to the DES routine. The key is 56 bits (no parity) */
255 void smbdes(unsigned char *out, unsigned char *in, unsigned char *key)
261 unsigned char key2[8];
263 str_to_key(key, key2);
266 inb[i] = (in[i/8] & (1<<(7-(i%8)))) ? 1 : 0;
267 keyb[i] = (key2[i/8] & (1<<(7-(i%8)))) ? 1 : 0;
274 count += keyb[i*8 + j];
281 dodes(outb, inb, keyb);
285 out[i/8] |= (1<<(7-(i%8)));
287 out[i/8] &= ~(1<<(7-(i%8)));