des.c 23 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798
  1. //#include "..\SourceFile\Main.h"
  2. #include ".\des.h"
  3. #define EN0 0 /* MODE == encrypt */
  4. #define DE1 1 /* MODE == decrypt */
  5. void scrunch(uint8 *, uint32 *);
  6. void unscrun(uint32 *, uint8 *);
  7. void desfunc(uint32 *, uint32 *);
  8. //uint32 KnL[32] = { 0L };
  9. //uint32 KnR[32] = { 0L };
  10. //uint32 Kn3[32] = { 0L };
  11. uint16 const bytebit[8] = {
  12. 0200, 0100, 040, 020, 010, 04, 02, 01 };
  13. uint32 const bigbyte[24] = {
  14. 0x800000L, 0x400000L, 0x200000L, 0x100000L,
  15. 0x80000L, 0x40000L, 0x20000L, 0x10000L,
  16. 0x8000L, 0x4000L, 0x2000L, 0x1000L,
  17. 0x800L, 0x400L, 0x200L, 0x100L,
  18. 0x80L, 0x40L, 0x20L, 0x10L,
  19. 0x8L, 0x4L, 0x2L, 0x1L };
  20. /* Use the key schedule specified in the Standard (ANSI X3.92-1981). */
  21. uint8 const pc1[56] = {
  22. 56, 48, 40, 32, 24, 16, 8, 0, 57, 49, 41, 33, 25, 17,
  23. 9, 1, 58, 50, 42, 34, 26, 18, 10, 2, 59, 51, 43, 35,
  24. 62, 54, 46, 38, 30, 22, 14, 6, 61, 53, 45, 37, 29, 21,
  25. 13, 5, 60, 52, 44, 36, 28, 20, 12, 4, 27, 19, 11, 3 };
  26. uint8 const totrot[16] = {
  27. 1,2,4,6,8,10,12,14,15,17,19,21,23,25,27,28 };
  28. uint8 const pc2[48] = {
  29. 13, 16, 10, 23, 0, 4, 2, 27, 14, 5, 20, 9,
  30. 22, 18, 11, 3, 25, 7, 15, 6, 26, 19, 12, 1,
  31. 40, 51, 30, 36, 46, 54, 29, 39, 50, 44, 32, 47,
  32. 43, 48, 38, 55, 33, 52, 45, 41, 49, 35, 28, 31 };
  33. //===============================
  34. //S Box
  35. //{/*{{{*/
  36. uint32 const SP1[64] = {
  37. 0x01010400L, 0x00000000L, 0x00010000L, 0x01010404L,
  38. 0x01010004L, 0x00010404L, 0x00000004L, 0x00010000L,
  39. 0x00000400L, 0x01010400L, 0x01010404L, 0x00000400L,
  40. 0x01000404L, 0x01010004L, 0x01000000L, 0x00000004L,
  41. 0x00000404L, 0x01000400L, 0x01000400L, 0x00010400L,
  42. 0x00010400L, 0x01010000L, 0x01010000L, 0x01000404L,
  43. 0x00010004L, 0x01000004L, 0x01000004L, 0x00010004L,
  44. 0x00000000L, 0x00000404L, 0x00010404L, 0x01000000L,
  45. 0x00010000L, 0x01010404L, 0x00000004L, 0x01010000L,
  46. 0x01010400L, 0x01000000L, 0x01000000L, 0x00000400L,
  47. 0x01010004L, 0x00010000L, 0x00010400L, 0x01000004L,
  48. 0x00000400L, 0x00000004L, 0x01000404L, 0x00010404L,
  49. 0x01010404L, 0x00010004L, 0x01010000L, 0x01000404L,
  50. 0x01000004L, 0x00000404L, 0x00010404L, 0x01010400L,
  51. 0x00000404L, 0x01000400L, 0x01000400L, 0x00000000L,
  52. 0x00010004L, 0x00010400L, 0x00000000L, 0x01010004L };
  53. uint32 const SP2[64] = {
  54. 0x80108020L, 0x80008000L, 0x00008000L, 0x00108020L,
  55. 0x00100000L, 0x00000020L, 0x80100020L, 0x80008020L,
  56. 0x80000020L, 0x80108020L, 0x80108000L, 0x80000000L,
  57. 0x80008000L, 0x00100000L, 0x00000020L, 0x80100020L,
  58. 0x00108000L, 0x00100020L, 0x80008020L, 0x00000000L,
  59. 0x80000000L, 0x00008000L, 0x00108020L, 0x80100000L,
  60. 0x00100020L, 0x80000020L, 0x00000000L, 0x00108000L,
  61. 0x00008020L, 0x80108000L, 0x80100000L, 0x00008020L,
  62. 0x00000000L, 0x00108020L, 0x80100020L, 0x00100000L,
  63. 0x80008020L, 0x80100000L, 0x80108000L, 0x00008000L,
  64. 0x80100000L, 0x80008000L, 0x00000020L, 0x80108020L,
  65. 0x00108020L, 0x00000020L, 0x00008000L, 0x80000000L,
  66. 0x00008020L, 0x80108000L, 0x00100000L, 0x80000020L,
  67. 0x00100020L, 0x80008020L, 0x80000020L, 0x00100020L,
  68. 0x00108000L, 0x00000000L, 0x80008000L, 0x00008020L,
  69. 0x80000000L, 0x80100020L, 0x80108020L, 0x00108000L };
  70. uint32 const SP3[64] = {
  71. 0x00000208L, 0x08020200L, 0x00000000L, 0x08020008L,
  72. 0x08000200L, 0x00000000L, 0x00020208L, 0x08000200L,
  73. 0x00020008L, 0x08000008L, 0x08000008L, 0x00020000L,
  74. 0x08020208L, 0x00020008L, 0x08020000L, 0x00000208L,
  75. 0x08000000L, 0x00000008L, 0x08020200L, 0x00000200L,
  76. 0x00020200L, 0x08020000L, 0x08020008L, 0x00020208L,
  77. 0x08000208L, 0x00020200L, 0x00020000L, 0x08000208L,
  78. 0x00000008L, 0x08020208L, 0x00000200L, 0x08000000L,
  79. 0x08020200L, 0x08000000L, 0x00020008L, 0x00000208L,
  80. 0x00020000L, 0x08020200L, 0x08000200L, 0x00000000L,
  81. 0x00000200L, 0x00020008L, 0x08020208L, 0x08000200L,
  82. 0x08000008L, 0x00000200L, 0x00000000L, 0x08020008L,
  83. 0x08000208L, 0x00020000L, 0x08000000L, 0x08020208L,
  84. 0x00000008L, 0x00020208L, 0x00020200L, 0x08000008L,
  85. 0x08020000L, 0x08000208L, 0x00000208L, 0x08020000L,
  86. 0x00020208L, 0x00000008L, 0x08020008L, 0x00020200L };
  87. uint32 const SP4[64] = {
  88. 0x00802001L, 0x00002081L, 0x00002081L, 0x00000080L,
  89. 0x00802080L, 0x00800081L, 0x00800001L, 0x00002001L,
  90. 0x00000000L, 0x00802000L, 0x00802000L, 0x00802081L,
  91. 0x00000081L, 0x00000000L, 0x00800080L, 0x00800001L,
  92. 0x00000001L, 0x00002000L, 0x00800000L, 0x00802001L,
  93. 0x00000080L, 0x00800000L, 0x00002001L, 0x00002080L,
  94. 0x00800081L, 0x00000001L, 0x00002080L, 0x00800080L,
  95. 0x00002000L, 0x00802080L, 0x00802081L, 0x00000081L,
  96. 0x00800080L, 0x00800001L, 0x00802000L, 0x00802081L,
  97. 0x00000081L, 0x00000000L, 0x00000000L, 0x00802000L,
  98. 0x00002080L, 0x00800080L, 0x00800081L, 0x00000001L,
  99. 0x00802001L, 0x00002081L, 0x00002081L, 0x00000080L,
  100. 0x00802081L, 0x00000081L, 0x00000001L, 0x00002000L,
  101. 0x00800001L, 0x00002001L, 0x00802080L, 0x00800081L,
  102. 0x00002001L, 0x00002080L, 0x00800000L, 0x00802001L,
  103. 0x00000080L, 0x00800000L, 0x00002000L, 0x00802080L };
  104. uint32 const SP5[64] = {
  105. 0x00000100L, 0x02080100L, 0x02080000L, 0x42000100L,
  106. 0x00080000L, 0x00000100L, 0x40000000L, 0x02080000L,
  107. 0x40080100L, 0x00080000L, 0x02000100L, 0x40080100L,
  108. 0x42000100L, 0x42080000L, 0x00080100L, 0x40000000L,
  109. 0x02000000L, 0x40080000L, 0x40080000L, 0x00000000L,
  110. 0x40000100L, 0x42080100L, 0x42080100L, 0x02000100L,
  111. 0x42080000L, 0x40000100L, 0x00000000L, 0x42000000L,
  112. 0x02080100L, 0x02000000L, 0x42000000L, 0x00080100L,
  113. 0x00080000L, 0x42000100L, 0x00000100L, 0x02000000L,
  114. 0x40000000L, 0x02080000L, 0x42000100L, 0x40080100L,
  115. 0x02000100L, 0x40000000L, 0x42080000L, 0x02080100L,
  116. 0x40080100L, 0x00000100L, 0x02000000L, 0x42080000L,
  117. 0x42080100L, 0x00080100L, 0x42000000L, 0x42080100L,
  118. 0x02080000L, 0x00000000L, 0x40080000L, 0x42000000L,
  119. 0x00080100L, 0x02000100L, 0x40000100L, 0x00080000L,
  120. 0x00000000L, 0x40080000L, 0x02080100L, 0x40000100L };
  121. uint32 const SP6[64] = {
  122. 0x20000010L, 0x20400000L, 0x00004000L, 0x20404010L,
  123. 0x20400000L, 0x00000010L, 0x20404010L, 0x00400000L,
  124. 0x20004000L, 0x00404010L, 0x00400000L, 0x20000010L,
  125. 0x00400010L, 0x20004000L, 0x20000000L, 0x00004010L,
  126. 0x00000000L, 0x00400010L, 0x20004010L, 0x00004000L,
  127. 0x00404000L, 0x20004010L, 0x00000010L, 0x20400010L,
  128. 0x20400010L, 0x00000000L, 0x00404010L, 0x20404000L,
  129. 0x00004010L, 0x00404000L, 0x20404000L, 0x20000000L,
  130. 0x20004000L, 0x00000010L, 0x20400010L, 0x00404000L,
  131. 0x20404010L, 0x00400000L, 0x00004010L, 0x20000010L,
  132. 0x00400000L, 0x20004000L, 0x20000000L, 0x00004010L,
  133. 0x20000010L, 0x20404010L, 0x00404000L, 0x20400000L,
  134. 0x00404010L, 0x20404000L, 0x00000000L, 0x20400010L,
  135. 0x00000010L, 0x00004000L, 0x20400000L, 0x00404010L,
  136. 0x00004000L, 0x00400010L, 0x20004010L, 0x00000000L,
  137. 0x20404000L, 0x20000000L, 0x00400010L, 0x20004010L };
  138. uint32 const SP7[64] = {
  139. 0x00200000L, 0x04200002L, 0x04000802L, 0x00000000L,
  140. 0x00000800L, 0x04000802L, 0x00200802L, 0x04200800L,
  141. 0x04200802L, 0x00200000L, 0x00000000L, 0x04000002L,
  142. 0x00000002L, 0x04000000L, 0x04200002L, 0x00000802L,
  143. 0x04000800L, 0x00200802L, 0x00200002L, 0x04000800L,
  144. 0x04000002L, 0x04200000L, 0x04200800L, 0x00200002L,
  145. 0x04200000L, 0x00000800L, 0x00000802L, 0x04200802L,
  146. 0x00200800L, 0x00000002L, 0x04000000L, 0x00200800L,
  147. 0x04000000L, 0x00200800L, 0x00200000L, 0x04000802L,
  148. 0x04000802L, 0x04200002L, 0x04200002L, 0x00000002L,
  149. 0x00200002L, 0x04000000L, 0x04000800L, 0x00200000L,
  150. 0x04200800L, 0x00000802L, 0x00200802L, 0x04200800L,
  151. 0x00000802L, 0x04000002L, 0x04200802L, 0x04200000L,
  152. 0x00200800L, 0x00000000L, 0x00000002L, 0x04200802L,
  153. 0x00000000L, 0x00200802L, 0x04200000L, 0x00000800L,
  154. 0x04000002L, 0x04000800L, 0x00000800L, 0x00200002L };
  155. uint32 const SP8[64] = {
  156. 0x10001040L, 0x00001000L, 0x00040000L, 0x10041040L,
  157. 0x10000000L, 0x10001040L, 0x00000040L, 0x10000000L,
  158. 0x00040040L, 0x10040000L, 0x10041040L, 0x00041000L,
  159. 0x10041000L, 0x00041040L, 0x00001000L, 0x00000040L,
  160. 0x10040000L, 0x10000040L, 0x10001000L, 0x00001040L,
  161. 0x00041000L, 0x00040040L, 0x10040040L, 0x10041000L,
  162. 0x00001040L, 0x00000000L, 0x00000000L, 0x10040040L,
  163. 0x10000040L, 0x10001000L, 0x00041040L, 0x00040000L,
  164. 0x00041040L, 0x00040000L, 0x10041000L, 0x00001000L,
  165. 0x00000040L, 0x10040040L, 0x00001000L, 0x00041040L,
  166. 0x10001000L, 0x00000040L, 0x10000040L, 0x10040000L,
  167. 0x10040040L, 0x10000000L, 0x00040000L, 0x10001040L,
  168. 0x00000000L, 0x10041040L, 0x00040040L, 0x10000040L,
  169. 0x10040000L, 0x10001000L, 0x10001040L, 0x00000000L,
  170. 0x10041040L, 0x00041000L, 0x00041000L, 0x00001040L,
  171. 0x00001040L, 0x00040040L, 0x10000000L, 0x10041000L };
  172. ///}/*}}}*/
  173. //===============================
  174. void MyMemCopy(uint8 * _aimMem,uint8 * _surMem,uint32 _len)
  175. {/*{{{*/
  176. uint32 i;
  177. for(i=0;i<_len;i++)
  178. _aimMem[i]=_surMem[i];
  179. }/*}}}*/
  180. void MyMemSet(uint8 * _mem,uint32 _val,uint32 _len)
  181. {/*{{{*/
  182. uint32 i;
  183. for(i=0;i<_len;i++)
  184. _mem[i]=_val;
  185. }/*}}}*/
  186. void cookey(uint32 * raw1,uint32 * _knBuff)
  187. {/*{{{*/
  188. uint32 * cook, * raw0;
  189. //uint32 dough[32];
  190. int i;
  191. cook = _knBuff;
  192. for (i = 0; i < 16; i++, raw1++)
  193. {
  194. raw0 = raw1++;
  195. *cook = (*raw0 & 0x00fc0000L) << 6;
  196. *cook |= (*raw0 & 0x00000fc0L) << 10;
  197. *cook |= (*raw1 & 0x00fc0000L) >> 10;
  198. *cook++ |= (*raw1 & 0x00000fc0L) >> 6;
  199. *cook = (*raw0 & 0x0003f000L) << 12;
  200. *cook |= (*raw0 & 0x0000003fL) << 16;
  201. *cook |= (*raw1 & 0x0003f000L) >> 4;
  202. *cook++ |= (*raw1 & 0x0000003fL);
  203. }
  204. //MyMemCopy((uint8 *)_knBuff,(uint8 *)dough, 32 * 4);
  205. return;
  206. }/*}}}*/
  207. void deskey(uint8 * key,uint32 * _knBuff,uint8 edf)
  208. {/*{{{*/
  209. uint8 i, j, l, m, n;
  210. uint8 pc1m[56], pcr[56];
  211. uint32 kn[32];
  212. for (j = 0; j < 56; j++)
  213. {
  214. l = pc1[j];
  215. m = l & 07;
  216. pc1m[j] = (key[l >> 3] & bytebit[m]) ? 1 : 0;
  217. }
  218. for (i = 0; i < 16; i++)
  219. {
  220. if (edf == DE1)
  221. m = (15 - i) << 1;
  222. else
  223. m = i << 1;
  224. n = m + 1;
  225. kn[m] = kn[n] = 0L;
  226. for (j = 0; j < 28; j++)
  227. {
  228. l = j + totrot[i];
  229. if (l < 28)
  230. pcr[j] = pc1m[l];
  231. else
  232. pcr[j] = pc1m[l - 28];
  233. }
  234. for (j = 28; j < 56; j++)
  235. {
  236. l = j + totrot[i];
  237. if (l < 56)
  238. pcr[j] = pc1m[l];
  239. else
  240. pcr[j] = pc1m[l - 28];
  241. }
  242. for (j = 0; j < 24; j++)
  243. {
  244. if (pcr[pc2[j]])
  245. kn[m] |= bigbyte[j];
  246. if (pcr[pc2[j + 24]])
  247. kn[n] |= bigbyte[j];
  248. }
  249. }
  250. cookey(kn,_knBuff);
  251. return;
  252. }/*}}}*/
  253. void des(uint8 * inblock, uint8 * outblock,uint32 * _knBuff)
  254. {/*{{{*/
  255. uint32 work[2];
  256. scrunch(inblock, work);
  257. desfunc(work, _knBuff);
  258. unscrun(work, outblock);
  259. return;
  260. }/*}}}*/
  261. void scrunch(uint8 * outof, uint32 * into)
  262. {/*{{{*/
  263. uint8 * p = (uint8 *)into;
  264. p[0] = outof[3];
  265. p[1] = outof[2];
  266. p[2] = outof[1];
  267. p[3] = outof[0];
  268. p += 4;
  269. outof += 4;
  270. p[0] = outof[3];
  271. p[1] = outof[2];
  272. p[2] = outof[1];
  273. p[3] = outof[0];
  274. }/*}}}*/
  275. void unscrun(uint32 * outof, uint8 * into)
  276. {/*{{{*/
  277. uint8 * p = (uint8 *)outof;
  278. into[0] = p[3];
  279. into[1] = p[2];
  280. into[2] = p[1];
  281. into[3] = p[0];
  282. into += 4;
  283. p += 4;
  284. into[0] = p[3];
  285. into[1] = p[2];
  286. into[2] = p[1];
  287. into[3] = p[0];
  288. }/*}}}*/
  289. void desfunc(uint32 * block, uint32 * keys)
  290. {/*{{{*/
  291. uint32 fval, work, right, leftt;
  292. int round;
  293. leftt = block[0];
  294. right = block[1];
  295. work = ((leftt >> 4) ^ right) & 0x0f0f0f0fL;
  296. right ^= work;
  297. leftt ^= (work << 4);
  298. work = ((leftt >> 16) ^ right) & 0x0000ffffL;
  299. right ^= work;
  300. leftt ^= (work << 16);
  301. work = ((right >> 2) ^ leftt) & 0x33333333L;
  302. leftt ^= work;
  303. right ^= (work << 2);
  304. work = ((right >> 8) ^ leftt) & 0x00ff00ffL;
  305. leftt ^= work;
  306. right ^= (work << 8);
  307. right = ((right << 1) | ((right >> 31) & 1L)) & 0xffffffffL;
  308. work = (leftt ^ right) & 0xaaaaaaaaL;
  309. leftt ^= work;
  310. right ^= work;
  311. leftt = ((leftt << 1) | ((leftt >> 31) & 1L)) & 0xffffffffL;
  312. for (round = 0; round < 8; round++)
  313. {
  314. work = (right << 28) | (right >> 4);
  315. work ^= *keys++;
  316. fval = SP7[(int)(work & 0x3fL)];
  317. fval |= SP5[(int)((work >> 8) & 0x3fL)];
  318. fval |= SP3[(int)((work >> 16) & 0x3fL)];
  319. fval |= SP1[(int)((work >> 24) & 0x3fL)];
  320. work = right ^ *keys++;
  321. fval |= SP8[(int)(work & 0x3fL)];
  322. fval |= SP6[(int)((work >> 8) & 0x3fL)];
  323. fval |= SP4[(int)((work >> 16) & 0x3fL)];
  324. fval |= SP2[(int)((work >> 24) & 0x3fL)];
  325. leftt ^= fval;
  326. work = (leftt << 28) | (leftt >> 4);
  327. work ^= *keys++;
  328. fval = SP7[(int)(work & 0x3fL)];
  329. fval |= SP5[(int)((work >> 8) & 0x3fL)];
  330. fval |= SP3[(int)((work >> 16) & 0x3fL)];
  331. fval |= SP1[(int)((work >> 24) & 0x3fL)];
  332. work = leftt ^ *keys++;
  333. fval |= SP8[(int)(work & 0x3fL)];
  334. fval |= SP6[(int)((work >> 8) & 0x3fL)];
  335. fval |= SP4[(int)((work >> 16) & 0x3fL)];
  336. fval |= SP2[(int)((work >> 24) & 0x3fL)];
  337. right ^= fval;
  338. }
  339. right = (right << 31) | (right >> 1);
  340. work = (leftt ^ right) & 0xaaaaaaaaL;
  341. leftt ^= work;
  342. right ^= work;
  343. leftt = (leftt << 31) | (leftt >> 1);
  344. work = ((leftt >> 8) ^ right) & 0x00ff00ffL;
  345. right ^= work;
  346. leftt ^= (work << 8);
  347. work = ((leftt >> 2) ^ right) & 0x33333333L;
  348. right ^= work;
  349. leftt ^= (work << 2);
  350. work = ((right >> 16) ^ leftt) & 0x0000ffffL;
  351. leftt ^= work;
  352. right ^= (work << 16);
  353. work = ((right >> 4) ^ leftt) & 0x0f0f0f0fL;
  354. leftt ^= work;
  355. right ^= (work << 4);
  356. *block++ = right;
  357. *block = leftt;
  358. return;
  359. }/*}}}*/
  360. void des2key(uint8 * hexkey,uint32 * _knBuff, uint8 mode) /* stomps on Kn3 too */
  361. {/*{{{*/
  362. uint8 revmod;
  363. revmod = (mode == EN0) ? DE1 : EN0;
  364. deskey(hexkey,_knBuff,mode);
  365. MyMemCopy((uint8 *)(&_knBuff[64]), (uint8 *)_knBuff, 32 * 4); // Kn3 = KnL
  366. deskey(&hexkey[8],&_knBuff[32],revmod);
  367. return;
  368. }/*}}}*/
  369. void des3key(uint8 * hexkey, uint32 * _knBuff,uint8 mode) /* stomps on Kn3 too */
  370. {/*{{{*/
  371. uint8 revmod;
  372. revmod = (mode == EN0) ? DE1 : EN0;
  373. deskey(hexkey,_knBuff,mode);
  374. deskey(&hexkey[8],&_knBuff[32],revmod);
  375. deskey(&hexkey[16],&_knBuff[64],mode);
  376. return;
  377. }/*}}}*/
  378. void Ddes(uint8 * from, uint8 * into,uint32 * _knBuff)
  379. {/*{{{*/
  380. uint32 work[2];
  381. scrunch(from, work);
  382. desfunc(work, _knBuff);
  383. desfunc(work, _knBuff+32);
  384. desfunc(work, _knBuff+64);
  385. unscrun(work, into);
  386. return;
  387. }/*}}}*/
  388. void D2des(uint8 * from, uint8 * into,uint32 * _knBuff)
  389. {/*{{{*/
  390. uint32 * right, * l1, swap;
  391. uint32 leftt[2], bufR[2];
  392. right = bufR;
  393. l1 = &leftt[1];
  394. scrunch(from, leftt);
  395. scrunch(&from[8], right);
  396. desfunc(leftt, _knBuff);
  397. desfunc(right, _knBuff);
  398. swap = *l1;
  399. *l1 = *right;
  400. *right = swap;
  401. desfunc(leftt, _knBuff+32);
  402. desfunc(right, _knBuff+32);
  403. swap = *l1;
  404. *l1 = *right;
  405. *right = swap;
  406. desfunc(leftt, _knBuff+64);
  407. desfunc(right, _knBuff+64);
  408. unscrun(leftt, into);
  409. unscrun(right, &into[8]);
  410. return;
  411. }/*}}}*/
  412. void D3des(uint8 * from, uint8 * into,uint32 * _knBuff) /* amateur theatrics */
  413. {/*{{{*/
  414. uint32 swap, leftt[2], middl[2], right[2];
  415. scrunch(from, leftt);
  416. scrunch(&from[8], middl);
  417. scrunch(&from[16], right);
  418. desfunc(leftt, _knBuff);
  419. desfunc(middl, _knBuff);
  420. desfunc(right, _knBuff);
  421. swap = leftt[1];
  422. leftt[1] = middl[0];
  423. middl[0] = swap;
  424. swap = middl[1];
  425. middl[1] = right[0];
  426. right[0] = swap;
  427. desfunc(leftt, _knBuff+32);
  428. desfunc(middl, _knBuff+32);
  429. desfunc(right, _knBuff+32);
  430. swap = leftt[1];
  431. leftt[1] = middl[0];
  432. middl[0] = swap;
  433. swap = middl[1];
  434. middl[1] = right[0];
  435. right[0] = swap;
  436. desfunc(leftt, _knBuff+64);
  437. desfunc(middl, _knBuff+64);
  438. desfunc(right, _knBuff+64);
  439. unscrun(leftt, into);
  440. unscrun(middl, &into[8]);
  441. unscrun(right, &into[16]);
  442. return;
  443. }/*}}}*/
  444. #if 0
  445. void DesOperate(uint8 * _inData,uint8 * _outData,uint8 * _key,uint32 _mode)
  446. {/*{{{*/
  447. uint8 des_key[8];
  448. uint8 plain[8];
  449. uint8 encipher[8];
  450. uint32 knBuff[32];
  451. //MyMemSet(des_key, 0, sizeof(des_key));
  452. //MyMemSet(plain, 0, 8);
  453. MyMemSet(encipher, 0, 8);
  454. MyMemCopy(plain, _inData, 8);
  455. //MyMemCopy(encipher, _outData, 8);
  456. MyMemCopy(des_key, _key, 8);
  457. deskey(des_key,knBuff,_mode);
  458. des(plain, encipher,knBuff);
  459. MyMemCopy(_outData, encipher, 8);
  460. }/*}}}*/
  461. uint32 DesEncrypt(uint8 * _inData,uint8 * _outData,uint8 * _key,uint32 _len)
  462. {/*{{{*/
  463. uint32 loops;
  464. uint32 offset;
  465. if((_len&0x07)!=0x00)
  466. return False;
  467. loops=(_len>>3);
  468. offset=0;
  469. do{
  470. DesOperate(_inData+offset,_outData+offset,_key,EN0);
  471. loops--;
  472. offset+=8;
  473. }while(loops>0);
  474. return True;
  475. }/*}}}*/
  476. uint32 DesDecrypt(uint8 * _inData,uint8 * _outData,uint8 * _key,uint32 _len)
  477. {/*{{{*/
  478. uint32 loops;
  479. uint32 offset;
  480. if((_len&0x07)!=0x00)
  481. return False;
  482. loops=(_len>>3);
  483. offset=0;
  484. do{
  485. DesOperate(_inData+offset,_outData+offset,_key,DE1);
  486. loops--;
  487. offset+=8;
  488. }while(loops>0);
  489. return True;
  490. }/*}}}*/
  491. #else
  492. uint32 DesOperate(uint8 * _inData,uint8 * _outData,uint8 * _key, uint32 _len,uint32 _mode)
  493. {/*{{{*/
  494. uint32 loops;
  495. uint32 offset;
  496. uint8 des_key[8];
  497. uint8 plain[8];
  498. uint8 encipher[8];
  499. uint32 knBuff[32];
  500. if((_len&0x07)!=0x00)
  501. return False;
  502. loops=(_len>>3);
  503. offset=0;
  504. MyMemCopy(des_key, _key, 8);
  505. deskey(des_key,knBuff,_mode);
  506. do{
  507. //MyMemSet(_outData+offset, 0, 8);
  508. MyMemSet(encipher, 0, 8);
  509. MyMemCopy(plain, _inData+offset, 8);
  510. des(plain, encipher,knBuff);
  511. MyMemCopy(_outData+offset,encipher, 8);
  512. //TripleDesOperate(_inData+offset,_outData+offset,_key,EN0);
  513. loops--;
  514. offset+=8;
  515. }while(loops>0);
  516. return True;
  517. }/*}}}*/
  518. #endif
  519. #if 0
  520. void TripleDesOperate(uint8 * _inData,uint8 * _outData,uint8 * _key,uint32 _mode)
  521. {/*{{{*/
  522. uint8 des_key[16];
  523. uint8 plain[8];
  524. uint8 encipher[8];
  525. uint32 knBuff[32*3];
  526. //MyMemSet(des_key, 0, sizeof(des_key));
  527. //MyMemSet(plain, 0, 8);
  528. MyMemSet(encipher, 0, 8);
  529. MyMemCopy(plain, _inData, 8);
  530. //MyMemCopy(encipher, _outData, 8);
  531. MyMemCopy(des_key, _key, 16);
  532. des2key(des_key,knBuff,_mode);
  533. Ddes(plain, encipher,knBuff);
  534. MyMemCopy(_outData, encipher, 8);
  535. }/*}}}*/
  536. uint32 TripleDesEncrypt(uint8 * _inData,uint8 * _outData,uint8 * _key, uint32 _len)
  537. {/*{{{*/
  538. uint32 loops;
  539. uint32 offset;
  540. if((_len&0x07)!=0x00)
  541. return False;
  542. loops=(_len>>3);
  543. offset=0;
  544. do{
  545. TripleDesOperate(_inData+offset,_outData+offset,_key,EN0);
  546. loops--;
  547. offset+=8;
  548. }while(loops>0);
  549. return True;
  550. }/*}}}*/
  551. uint32 TripleDesDecrypt(uint8 * _inData,uint8 * _outData, uint8 * _key, uint32 _len)
  552. {/*{{{*/
  553. uint32 loops;
  554. uint32 offset;
  555. if((_len&0x07)!=0x00)
  556. return False;
  557. loops=(_len>>3);
  558. offset=0;
  559. do{
  560. TripleDesOperate(_inData+offset,_outData+offset,_key,DE1);
  561. loops--;
  562. offset+=8;
  563. }while(loops>0);
  564. return True;
  565. }/*}}}*/
  566. #else
  567. uint32 TripleDesOperate(uint8 * _inData,uint8 * _outData,uint8 * _key, uint32 _len,uint32 _mode)
  568. {/*{{{*/
  569. uint32 loops;
  570. uint32 offset;
  571. uint8 des_key[16];
  572. uint8 plain[8];
  573. uint8 encipher[8];
  574. uint32 knBuff[32*3];
  575. if((_len&0x07)!=0x00)
  576. return False;
  577. loops=(_len>>3);
  578. offset=0;
  579. MyMemCopy(des_key, _key, 16);
  580. des2key(des_key,knBuff,_mode);
  581. do{
  582. //MyMemSet(_outData+offset, 0, 8);
  583. MyMemSet(encipher, 0, 8);
  584. MyMemCopy(plain, _inData+offset, 8);
  585. Ddes(plain,encipher,knBuff);
  586. MyMemCopy(_outData+offset,encipher, 8);
  587. //TripleDesOperate(_inData+offset,_outData+offset,_key,EN0);
  588. loops--;
  589. offset+=8;
  590. }while(loops>0);
  591. return True;
  592. }/*}}}*/
  593. #endif
  594. #if 0
  595. void TripleDesOperate3Key(uint8 * _inData,uint8 * _outData,uint8 * _key,uint32 _mode)
  596. {/*{{{*/
  597. uint8 des_key[24];
  598. uint8 plain[8];
  599. uint8 encipher[8];
  600. uint32 knBuff[32*3];
  601. //MyMemSet(des_key, 0, sizeof(des_key));
  602. //MyMemSet(plain, 0, 10);
  603. MyMemSet(encipher, 0, 8);
  604. MyMemCopy(plain, _inData, 8);
  605. //MyMemCopy(encipher, _outData, 8);
  606. MyMemCopy(des_key, _key, 24);
  607. des3key(des_key,knBuff,_mode);
  608. Ddes(plain, encipher,knBuff);
  609. MyMemCopy(_outData, encipher, 8);
  610. }/*}}}*/
  611. uint32 TripleDesEncrypt3Key(uint8 * _inData,uint8 * _outData,uint8 * _key, uint32 _len)
  612. {/*{{{*/
  613. uint32 loops;
  614. uint32 offset;
  615. if((_len&0x07)!=0x00)
  616. return False;
  617. loops=(_len>>3);
  618. offset=0;
  619. do{
  620. TripleDesOperate3Key(_inData+offset,_outData+offset,_key,EN0);
  621. loops--;
  622. offset+=8;
  623. }while(loops>0);
  624. return True;
  625. }/*}}}*/
  626. uint32 TripleDesDecrypt3Key(uint8 * _inData,uint8 * _outData, uint8 * _key, uint32 _len)
  627. {/*{{{*/
  628. uint32 loops;
  629. uint32 offset;
  630. if((_len&0x07)!=0x00)
  631. return False;
  632. loops=(_len>>3);
  633. offset=0;
  634. do{
  635. TripleDesOperate3Key(_inData+offset,_outData+offset,_key,DE1);
  636. loops--;
  637. offset+=8;
  638. }while(loops>0);
  639. return True;
  640. }/*}}}*/
  641. #else
  642. uint32 TripleDesOperate3Key(uint8 * _inData,uint8 * _outData,uint8 * _key, uint32 _len,uint32 _mode)
  643. {/*{{{*/
  644. uint32 loops;
  645. uint32 offset;
  646. uint8 des_key[24];
  647. uint8 plain[8];
  648. uint8 encipher[8];
  649. uint32 knBuff[32*3];
  650. if((_len&0x07)!=0x00)
  651. return False;
  652. loops=(_len>>3);
  653. offset=0;
  654. MyMemCopy(des_key, _key, 24);
  655. des3key(des_key,knBuff,_mode);
  656. do{
  657. //MyMemSet(_outData+offset, 0, 8);
  658. MyMemSet(encipher, 0, 8);
  659. MyMemCopy(plain, _inData+offset, 8);
  660. Ddes(plain,encipher,knBuff);
  661. MyMemCopy(_outData+offset,encipher, 8);
  662. //TripleDesOperate(_inData+offset,_outData+offset,_key,EN0);
  663. loops--;
  664. offset+=8;
  665. }while(loops>0);
  666. return True;
  667. }/*}}}*/
  668. #endif
  669. uint32 DesEncryptFunc(uint8 * _inData,uint8 *_outData,uint8 * _key,uint32 _len,uint32 _keyLen)
  670. {/*{{{*/
  671. if(_keyLen==E_DKL_DES)
  672. return DesOperate(_inData,_outData,_key,_len,EN0);
  673. //return DesEncrypt(_inData,_outData,_key,_len);
  674. else if(_keyLen==E_DKL_TRIPLE16)
  675. return TripleDesOperate(_inData,_outData,_key,_len,EN0);
  676. //return TripleDesEncrypt(_inData,_outData,_key,_len);
  677. else if(_keyLen==E_DKL_TRIPLE24)
  678. return TripleDesOperate3Key(_inData,_outData,_key,_len,EN0);
  679. //return TripleDesEncrypt3Key(_inData,_outData,_key,_len);
  680. else
  681. return False;
  682. }/*}}}*/
  683. uint32 DesDecryptFunc(uint8 * _inData,uint8 *_outData,uint8 * _key,uint32 _len,uint32 _keyLen)
  684. {/*{{{*/
  685. if(_keyLen==E_DKL_DES)
  686. return DesOperate(_inData,_outData,_key,_len,DE1);
  687. //return DesDecrypt(_inData,_outData,_key,_len);
  688. else if(_keyLen==E_DKL_TRIPLE16)
  689. return TripleDesOperate(_inData,_outData,_key,_len,DE1);
  690. //return TripleDesDecrypt(_inData,_outData,_key,_len,DE1);
  691. else if(_keyLen==E_DKL_TRIPLE24)
  692. return TripleDesOperate3Key(_inData,_outData,_key,_len,DE1);
  693. //return TripleDesDecrypt3Key(_inData,_outData,_key,_len);
  694. else
  695. return False;
  696. }/*}}}*/