1 // lea.cpp - written and placed in the public domain by Kim Sung Hee and Jeffrey Walton
2 //           Based on "HIGHT: A 128-Bit Block Cipher for Fast Encryption on Common
3 //           Processors" by Deukjo Hong, Jung-Keun Lee, Dong-Chan Kim, Daesung Kwon,
4 //           Kwon Ho Ryu, and Dong-Geon Lee.
5 //
6 //           This implementation is based on source files found in a zip file at the
7 //           Korea Internet and Security Agency (https://www.kisa.or.kr/eng/main.jsp).
8 //           The zip files was downloaded from the Korean language area of the site so we
9 //           don't have a url or english zip filename to cite. The source filename from
10 //           the zip is KISA_HIGHT_ECB.c.
11 
12 #include "pch.h"
13 #include "config.h"
14 
15 #include "hight.h"
16 #include "misc.h"
17 
18 ANONYMOUS_NAMESPACE_BEGIN
19 
20 using CryptoPP::byte;
21 
22 const byte DELTA[128] = {
23     0x5A,0x6D,0x36,0x1B,0x0D,0x06,0x03,0x41,
24     0x60,0x30,0x18,0x4C,0x66,0x33,0x59,0x2C,
25     0x56,0x2B,0x15,0x4A,0x65,0x72,0x39,0x1C,
26     0x4E,0x67,0x73,0x79,0x3C,0x5E,0x6F,0x37,
27     0x5B,0x2D,0x16,0x0B,0x05,0x42,0x21,0x50,
28     0x28,0x54,0x2A,0x55,0x6A,0x75,0x7A,0x7D,
29     0x3E,0x5F,0x2F,0x17,0x4B,0x25,0x52,0x29,
30     0x14,0x0A,0x45,0x62,0x31,0x58,0x6C,0x76,
31     0x3B,0x1D,0x0E,0x47,0x63,0x71,0x78,0x7C,
32     0x7E,0x7F,0x3F,0x1F,0x0F,0x07,0x43,0x61,
33     0x70,0x38,0x5C,0x6E,0x77,0x7B,0x3D,0x1E,
34     0x4F,0x27,0x53,0x69,0x34,0x1A,0x4D,0x26,
35     0x13,0x49,0x24,0x12,0x09,0x04,0x02,0x01,
36     0x40,0x20,0x10,0x08,0x44,0x22,0x11,0x48,
37     0x64,0x32,0x19,0x0C,0x46,0x23,0x51,0x68,
38     0x74,0x3A,0x5D,0x2E,0x57,0x6B,0x35,0x5A
39 };
40 
41 const byte HIGHT_F0[256] = {
42     0x00,0x86,0x0D,0x8B,0x1A,0x9C,0x17,0x91,
43     0x34,0xB2,0x39,0xBF,0x2E,0xA8,0x23,0xA5,
44     0x68,0xEE,0x65,0xE3,0x72,0xF4,0x7F,0xF9,
45     0x5C,0xDA,0x51,0xD7,0x46,0xC0,0x4B,0xCD,
46     0xD0,0x56,0xDD,0x5B,0xCA,0x4C,0xC7,0x41,
47     0xE4,0x62,0xE9,0x6F,0xFE,0x78,0xF3,0x75,
48     0xB8,0x3E,0xB5,0x33,0xA2,0x24,0xAF,0x29,
49     0x8C,0x0A,0x81,0x07,0x96,0x10,0x9B,0x1D,
50     0xA1,0x27,0xAC,0x2A,0xBB,0x3D,0xB6,0x30,
51     0x95,0x13,0x98,0x1E,0x8F,0x09,0x82,0x04,
52     0xC9,0x4F,0xC4,0x42,0xD3,0x55,0xDE,0x58,
53     0xFD,0x7B,0xF0,0x76,0xE7,0x61,0xEA,0x6C,
54     0x71,0xF7,0x7C,0xFA,0x6B,0xED,0x66,0xE0,
55     0x45,0xC3,0x48,0xCE,0x5F,0xD9,0x52,0xD4,
56     0x19,0x9F,0x14,0x92,0x03,0x85,0x0E,0x88,
57     0x2D,0xAB,0x20,0xA6,0x37,0xB1,0x3A,0xBC,
58     0x43,0xC5,0x4E,0xC8,0x59,0xDF,0x54,0xD2,
59     0x77,0xF1,0x7A,0xFC,0x6D,0xEB,0x60,0xE6,
60     0x2B,0xAD,0x26,0xA0,0x31,0xB7,0x3C,0xBA,
61     0x1F,0x99,0x12,0x94,0x05,0x83,0x08,0x8E,
62     0x93,0x15,0x9E,0x18,0x89,0x0F,0x84,0x02,
63     0xA7,0x21,0xAA,0x2C,0xBD,0x3B,0xB0,0x36,
64     0xFB,0x7D,0xF6,0x70,0xE1,0x67,0xEC,0x6A,
65     0xCF,0x49,0xC2,0x44,0xD5,0x53,0xD8,0x5E,
66     0xE2,0x64,0xEF,0x69,0xF8,0x7E,0xF5,0x73,
67     0xD6,0x50,0xDB,0x5D,0xCC,0x4A,0xC1,0x47,
68     0x8A,0x0C,0x87,0x01,0x90,0x16,0x9D,0x1B,
69     0xBE,0x38,0xB3,0x35,0xA4,0x22,0xA9,0x2F,
70     0x32,0xB4,0x3F,0xB9,0x28,0xAE,0x25,0xA3,
71     0x06,0x80,0x0B,0x8D,0x1C,0x9A,0x11,0x97,
72     0x5A,0xDC,0x57,0xD1,0x40,0xC6,0x4D,0xCB,
73     0x6E,0xE8,0x63,0xE5,0x74,0xF2,0x79,0xFF
74 };
75 
76 const byte HIGHT_F1[256] = {
77     0x00,0x58,0xB0,0xE8,0x61,0x39,0xD1,0x89,
78     0xC2,0x9A,0x72,0x2A,0xA3,0xFB,0x13,0x4B,
79     0x85,0xDD,0x35,0x6D,0xE4,0xBC,0x54,0x0C,
80     0x47,0x1F,0xF7,0xAF,0x26,0x7E,0x96,0xCE,
81     0x0B,0x53,0xBB,0xE3,0x6A,0x32,0xDA,0x82,
82     0xC9,0x91,0x79,0x21,0xA8,0xF0,0x18,0x40,
83     0x8E,0xD6,0x3E,0x66,0xEF,0xB7,0x5F,0x07,
84     0x4C,0x14,0xFC,0xA4,0x2D,0x75,0x9D,0xC5,
85     0x16,0x4E,0xA6,0xFE,0x77,0x2F,0xC7,0x9F,
86     0xD4,0x8C,0x64,0x3C,0xB5,0xED,0x05,0x5D,
87     0x93,0xCB,0x23,0x7B,0xF2,0xAA,0x42,0x1A,
88     0x51,0x09,0xE1,0xB9,0x30,0x68,0x80,0xD8,
89     0x1D,0x45,0xAD,0xF5,0x7C,0x24,0xCC,0x94,
90     0xDF,0x87,0x6F,0x37,0xBE,0xE6,0x0E,0x56,
91     0x98,0xC0,0x28,0x70,0xF9,0xA1,0x49,0x11,
92     0x5A,0x02,0xEA,0xB2,0x3B,0x63,0x8B,0xD3,
93     0x2C,0x74,0x9C,0xC4,0x4D,0x15,0xFD,0xA5,
94     0xEE,0xB6,0x5E,0x06,0x8F,0xD7,0x3F,0x67,
95     0xA9,0xF1,0x19,0x41,0xC8,0x90,0x78,0x20,
96     0x6B,0x33,0xDB,0x83,0x0A,0x52,0xBA,0xE2,
97     0x27,0x7F,0x97,0xCF,0x46,0x1E,0xF6,0xAE,
98     0xE5,0xBD,0x55,0x0D,0x84,0xDC,0x34,0x6C,
99     0xA2,0xFA,0x12,0x4A,0xC3,0x9B,0x73,0x2B,
100     0x60,0x38,0xD0,0x88,0x01,0x59,0xB1,0xE9,
101     0x3A,0x62,0x8A,0xD2,0x5B,0x03,0xEB,0xB3,
102     0xF8,0xA0,0x48,0x10,0x99,0xC1,0x29,0x71,
103     0xBF,0xE7,0x0F,0x57,0xDE,0x86,0x6E,0x36,
104     0x7D,0x25,0xCD,0x95,0x1C,0x44,0xAC,0xF4,
105     0x31,0x69,0x81,0xD9,0x50,0x08,0xE0,0xB8,
106     0xF3,0xAB,0x43,0x1B,0x92,0xCA,0x22,0x7A,
107     0xB4,0xEC,0x04,0x5C,0xD5,0x8D,0x65,0x3D,
108     0x76,0x2E,0xC6,0x9E,0x17,0x4F,0xA7,0xFF
109 };
110 
111 ANONYMOUS_NAMESPACE_END
112 
NAMESPACE_BEGIN(CryptoPP)113 NAMESPACE_BEGIN(CryptoPP)
114 
115 void HIGHT::Base::UncheckedSetKey(const byte *userKey, unsigned int keyLength, const NameValuePairs &params)
116 {
117     CRYPTOPP_UNUSED(params);
118     CRYPTOPP_UNUSED(keyLength);
119 
120     for(unsigned int i=0; i<4; i++) {
121         m_rkey[i  ] = userKey[i+12];
122         m_rkey[i+4] = userKey[i   ];
123     }
124 
125     for(unsigned int i=0; i<8; i++) {
126         for(unsigned int j=0; j<8; j++) {
127             m_rkey[8+16*i+j] = static_cast<byte>(userKey[(j-i)&7] + DELTA[16*i+j]);
128         }
129 
130         for(unsigned int j=0; j<8; j++) {
131             m_rkey[8+16*i+j+8] = static_cast<byte>(userKey[((j-i)&7)+8] + DELTA[16*i+j+8]);
132         }
133     }
134 }
135 
ProcessAndXorBlock(const byte * inBlock,const byte * xorBlock,byte * outBlock) const136 void HIGHT::Enc::ProcessAndXorBlock(const byte *inBlock, const byte *xorBlock, byte *outBlock) const
137 {
138     // First Round
139     m_xx[1] = inBlock[1];
140     m_xx[3] = inBlock[3];
141     m_xx[5] = inBlock[5];
142     m_xx[7] = inBlock[7];
143 
144     m_xx[0] = (inBlock[0] + m_rkey[0]) & 0xFF;
145     m_xx[2] = (inBlock[2] ^ m_rkey[1]);
146     m_xx[4] = (inBlock[4] + m_rkey[2]) & 0xFF;
147     m_xx[6] = (inBlock[6] ^ m_rkey[3]);
148 
149     // Encryption Round
150     #define HIGHT_ENC(k, i0,i1,i2,i3,i4,i5,i6,i7) {                             \
151         m_xx[i0] = (m_xx[i0] ^ (HIGHT_F0[m_xx[i1]] + m_rkey[4*k+3])) & 0xFF;    \
152         m_xx[i2] = (m_xx[i2] + (HIGHT_F1[m_xx[i3]] ^ m_rkey[4*k+2])) & 0xFF;    \
153         m_xx[i4] = (m_xx[i4] ^ (HIGHT_F0[m_xx[i5]] + m_rkey[4*k+1])) & 0xFF;    \
154         m_xx[i6] = (m_xx[i6] + (HIGHT_F1[m_xx[i7]] ^ m_rkey[4*k+0])) & 0xFF;    \
155     }
156 
157     HIGHT_ENC( 2,  7,6,5,4,3,2,1,0);
158     HIGHT_ENC( 3,  6,5,4,3,2,1,0,7);
159     HIGHT_ENC( 4,  5,4,3,2,1,0,7,6);
160     HIGHT_ENC( 5,  4,3,2,1,0,7,6,5);
161     HIGHT_ENC( 6,  3,2,1,0,7,6,5,4);
162     HIGHT_ENC( 7,  2,1,0,7,6,5,4,3);
163     HIGHT_ENC( 8,  1,0,7,6,5,4,3,2);
164     HIGHT_ENC( 9,  0,7,6,5,4,3,2,1);
165     HIGHT_ENC(10,  7,6,5,4,3,2,1,0);
166     HIGHT_ENC(11,  6,5,4,3,2,1,0,7);
167     HIGHT_ENC(12,  5,4,3,2,1,0,7,6);
168     HIGHT_ENC(13,  4,3,2,1,0,7,6,5);
169     HIGHT_ENC(14,  3,2,1,0,7,6,5,4);
170     HIGHT_ENC(15,  2,1,0,7,6,5,4,3);
171     HIGHT_ENC(16,  1,0,7,6,5,4,3,2);
172     HIGHT_ENC(17,  0,7,6,5,4,3,2,1);
173     HIGHT_ENC(18,  7,6,5,4,3,2,1,0);
174     HIGHT_ENC(19,  6,5,4,3,2,1,0,7);
175     HIGHT_ENC(20,  5,4,3,2,1,0,7,6);
176     HIGHT_ENC(21,  4,3,2,1,0,7,6,5);
177     HIGHT_ENC(22,  3,2,1,0,7,6,5,4);
178     HIGHT_ENC(23,  2,1,0,7,6,5,4,3);
179     HIGHT_ENC(24,  1,0,7,6,5,4,3,2);
180     HIGHT_ENC(25,  0,7,6,5,4,3,2,1);
181     HIGHT_ENC(26,  7,6,5,4,3,2,1,0);
182     HIGHT_ENC(27,  6,5,4,3,2,1,0,7);
183     HIGHT_ENC(28,  5,4,3,2,1,0,7,6);
184     HIGHT_ENC(29,  4,3,2,1,0,7,6,5);
185     HIGHT_ENC(30,  3,2,1,0,7,6,5,4);
186     HIGHT_ENC(31,  2,1,0,7,6,5,4,3);
187     HIGHT_ENC(32,  1,0,7,6,5,4,3,2);
188     HIGHT_ENC(33,  0,7,6,5,4,3,2,1);
189 
190     // Final Round
191     outBlock[1] = static_cast<byte>(m_xx[2]);
192     outBlock[3] = static_cast<byte>(m_xx[4]);
193     outBlock[5] = static_cast<byte>(m_xx[6]);
194     outBlock[7] = static_cast<byte>(m_xx[0]);
195 
196     outBlock[0] = static_cast<byte>(m_xx[1] + m_rkey[4]);
197     outBlock[2] = static_cast<byte>(m_xx[3] ^ m_rkey[5]);
198     outBlock[4] = static_cast<byte>(m_xx[5] + m_rkey[6]);
199     outBlock[6] = static_cast<byte>(m_xx[7] ^ m_rkey[7]);
200 
201     if (xorBlock)
202         xorbuf(outBlock, xorBlock, 8);
203 }
204 
ProcessAndXorBlock(const byte * inBlock,const byte * xorBlock,byte * outBlock) const205 void HIGHT::Dec::ProcessAndXorBlock(const byte *inBlock, const byte *xorBlock, byte *outBlock) const
206 {
207     m_xx[2] = static_cast<byte>(inBlock[1]);
208     m_xx[4] = static_cast<byte>(inBlock[3]);
209     m_xx[6] = static_cast<byte>(inBlock[5]);
210     m_xx[0] = static_cast<byte>(inBlock[7]);
211 
212     m_xx[1] = static_cast<byte>(inBlock[0] - m_rkey[4]);
213     m_xx[3] = static_cast<byte>(inBlock[2] ^ m_rkey[5]);
214     m_xx[5] = static_cast<byte>(inBlock[4] - m_rkey[6]);
215     m_xx[7] = static_cast<byte>(inBlock[6] ^ m_rkey[7]);
216 
217     #define HIGHT_DEC(k, i0,i1,i2,i3,i4,i5,i6,i7) {                             \
218         m_xx[i1] = (m_xx[i1] - (HIGHT_F1[m_xx[i2]] ^ m_rkey[4*k+2])) & 0xFF;    \
219         m_xx[i3] = (m_xx[i3] ^ (HIGHT_F0[m_xx[i4]] + m_rkey[4*k+1])) & 0xFF;    \
220         m_xx[i5] = (m_xx[i5] - (HIGHT_F1[m_xx[i6]] ^ m_rkey[4*k+0])) & 0xFF;    \
221         m_xx[i7] = (m_xx[i7] ^ (HIGHT_F0[m_xx[i0]] + m_rkey[4*k+3])) & 0xFF;    \
222     }
223 
224     HIGHT_DEC(33,  7,6,5,4,3,2,1,0);
225     HIGHT_DEC(32,  0,7,6,5,4,3,2,1);
226     HIGHT_DEC(31,  1,0,7,6,5,4,3,2);
227     HIGHT_DEC(30,  2,1,0,7,6,5,4,3);
228     HIGHT_DEC(29,  3,2,1,0,7,6,5,4);
229     HIGHT_DEC(28,  4,3,2,1,0,7,6,5);
230     HIGHT_DEC(27,  5,4,3,2,1,0,7,6);
231     HIGHT_DEC(26,  6,5,4,3,2,1,0,7);
232     HIGHT_DEC(25,  7,6,5,4,3,2,1,0);
233     HIGHT_DEC(24,  0,7,6,5,4,3,2,1);
234     HIGHT_DEC(23,  1,0,7,6,5,4,3,2);
235     HIGHT_DEC(22,  2,1,0,7,6,5,4,3);
236     HIGHT_DEC(21,  3,2,1,0,7,6,5,4);
237     HIGHT_DEC(20,  4,3,2,1,0,7,6,5);
238     HIGHT_DEC(19,  5,4,3,2,1,0,7,6);
239     HIGHT_DEC(18,  6,5,4,3,2,1,0,7);
240     HIGHT_DEC(17,  7,6,5,4,3,2,1,0);
241     HIGHT_DEC(16,  0,7,6,5,4,3,2,1);
242     HIGHT_DEC(15,  1,0,7,6,5,4,3,2);
243     HIGHT_DEC(14,  2,1,0,7,6,5,4,3);
244     HIGHT_DEC(13,  3,2,1,0,7,6,5,4);
245     HIGHT_DEC(12,  4,3,2,1,0,7,6,5);
246     HIGHT_DEC(11,  5,4,3,2,1,0,7,6);
247     HIGHT_DEC(10,  6,5,4,3,2,1,0,7);
248     HIGHT_DEC( 9,  7,6,5,4,3,2,1,0);
249     HIGHT_DEC( 8,  0,7,6,5,4,3,2,1);
250     HIGHT_DEC( 7,  1,0,7,6,5,4,3,2);
251     HIGHT_DEC( 6,  2,1,0,7,6,5,4,3);
252     HIGHT_DEC( 5,  3,2,1,0,7,6,5,4);
253     HIGHT_DEC( 4,  4,3,2,1,0,7,6,5);
254     HIGHT_DEC( 3,  5,4,3,2,1,0,7,6);
255     HIGHT_DEC( 2,  6,5,4,3,2,1,0,7);
256 
257     outBlock[1] = static_cast<byte>(m_xx[1]);
258     outBlock[3] = static_cast<byte>(m_xx[3]);
259     outBlock[5] = static_cast<byte>(m_xx[5]);
260     outBlock[7] = static_cast<byte>(m_xx[7]);
261 
262     outBlock[0] = static_cast<byte>(m_xx[0] - m_rkey[0]);
263     outBlock[2] = static_cast<byte>(m_xx[2] ^ m_rkey[1]);
264     outBlock[4] = static_cast<byte>(m_xx[4] - m_rkey[2]);
265     outBlock[6] = static_cast<byte>(m_xx[6] ^ m_rkey[3]);
266 
267     if (xorBlock)
268         xorbuf(outBlock, xorBlock, 8);
269 }
270 
271 NAMESPACE_END
272