开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 外挂编程 > 查看源码
Crypton.pm.svn-base
资源名称：openkore-2.0.7.zip　[点击查看]
上传用户：market2
上传日期：2018-11-18
资源大小：18786k
文件大小：9k
源码类别：

外挂编程

开发平台：

Windows_Unix

Crypton.pm.svn-base：源码内容
  1. #  OpenKore - Crypton encryption algorithm implementation.
  2. #
  3. #  Copyright (c) 2005 OpenKore Development Team
  4. #
  5. #  This software is open source, licensed under the GNU General Public
  6. #  License, version 2.
  7. #  Basically, this means that you're allowed to modify and distribute
  8. #  this software. However, if you distribute modified versions, you MUST
  9. #  also distribute the source code.
  10. #  See http://www.gnu.org/licenses/gpl.html for the full license.
  11. #########################################################################
  12. ##
  13. # MODULE DESCRIPTION: Crypton encryption algorithm implementation.
  14. #
  15. # This is a Perl implementation of the Crypton encryption algorithm.
  16. # The original C implementation is copyrighted by Dr Brian Gladman.
  17. # The implementation was ported to Perl by "Harry".
  18. # Algorithm information can be found here:
  19. # http://cnscenter.future.co.kr/main/research/crypton.html
  20. package Utils::Crypton;
  22. use strict;
  24. our (@s_box, @s_tab);
  25. our $table_generated;
  27. sub new {
  28. my ($class, $key, $key_len) = @_;
  30. my %h;
  31. my %self;
  33. if (!$table_generated) {
  34. generate_table();
  35. $table_generated = 1;
  36. }
  38. $self{e_key} = [];
  39. set_key($key, $key_len, $self{e_key});
  40. return bless %self, $class;
  41. }
  43. sub encrypt {
  44. my ($self, $block) = @_;
  45. my (@b0, @b1);
  47. @b1 = unpack("V4", $block);
  49. $b0[0] = $b1[0] ^ $self->{e_key}[0];
  50. $b0[1] = $b1[1] ^ $self->{e_key}[1];
  51. $b0[2] = $b1[2] ^ $self->{e_key}[2];
  52. $b0[3] = $b1[3] ^ $self->{e_key}[3];
  54. f0_rnd($self->{e_key},  4 ,@b0, @b1);
  55. f1_rnd($self->{e_key},  8 ,@b0, @b1);
  56. f0_rnd($self->{e_key}, 12 ,@b0, @b1);
  57. f1_rnd($self->{e_key}, 16 ,@b0, @b1);
  58. f0_rnd($self->{e_key}, 20 ,@b0, @b1);
  59. f1_rnd($self->{e_key}, 24 ,@b0, @b1);
  60. f0_rnd($self->{e_key}, 28 ,@b0, @b1);
  61. f1_rnd($self->{e_key}, 32 ,@b0, @b1);
  62. f0_rnd($self->{e_key}, 36 ,@b0, @b1);
  63. f1_rnd($self->{e_key}, 40 ,@b0, @b1);
  64. f0_rnd($self->{e_key}, 44 ,@b0, @b1);
  66. $b0[0] = gamma_tau(@b1, 0, 1, 0) ^ $self->{e_key}[48]; 
  67. $b0[1] = gamma_tau(@b1, 1, 0, 1) ^ $self->{e_key}[49];
  68. $b0[2] = gamma_tau(@b1, 2, 1, 0) ^ $self->{e_key}[50]; 
  69. $b0[3] = gamma_tau(@b1, 3, 0, 1) ^ $self->{e_key}[51];
  71. return pack("V4", @b0);
  72. }
  74. ################################################################################
  76. sub byte {
  77. my ($data, $byte) = @_;
  79. $data = ($data >>  (8 * $byte)) if ($byte > 0 || $byte < 4);
  80. return $data & 0xff;
  81. }
  83. sub gamma_tau {
  84. my ($r_b, $m, $p, $q) = @_;
  86. return     $s_box[$p][byte($r_b->[0], $m)]
  87. | ($s_box[$q][byte($r_b->[1], $m)] <<  8)
  88. | ($s_box[$p][byte($r_b->[2], $m)] << 16)
  89. | ($s_box[$q][byte($r_b->[3], $m)] << 24);
  90. }
  92. sub rotl {
  93. my ($x, $bit) = @_;
  95. $x = ($x << $bit) | ($x >> (32 - $bit)) if ($bit > 0 && $bit < 32);
  96. return $x;
  97. }
  99. sub pi {
  100. my ($r_b, $pos_b, $n0, $n1, $n2, $n3) = @_;
  101. my @ma = (0x3fcff3fc, 0xfc3fcff3, 0xf3fc3fcf, 0xcff3fc3f);
  103. return    ($$r_b[$pos_b + 0] & $ma[$n0])
  104. ^ ($$r_b[$pos_b + 1] & $ma[$n1])
  105. ^ ($$r_b[$pos_b + 2] & $ma[$n2])
  106. ^ ($$r_b[$pos_b + 3] & $ma[$n3]);
  107. }
  109. sub phi_n {
  110. my ($x, $n0, $n1, $n2, $n3) = @_;
  111. my @mb = (0xcffccffc, 0xf33ff33f, 0xfccffccf, 0x3ff33ff3);
  113. return    (     $x      & $mb[$n0])
  114. ^ (rotl($x,  8) & $mb[$n1])
  115. ^ (rotl($x, 16) & $mb[$n2])
  116. ^ (rotl($x, 24) & $mb[$n3]);
  117. }
  119. sub generate_table {
  120. my ($i, $xl, $xr, $yl, $yr);
  121. my @p_box = (
  122. [ 15,  9,  6,  8,  9,  9,  4, 12,  6,  2,  6, 10,  1,  3,  5, 15 ],
  123. [ 10, 15,  4,  7,  5,  2, 14,  6,  9,  3, 12,  8, 13,  1, 11,  0 ],
  124. [  0,  4,  8,  4,  2, 15,  8, 13,  1,  1, 15,  7,  2, 11, 14, 15 ]
  125. );
  127. for ($i = 0; $i < 256; $i++) {
  128. $xl = ($i >> 4) & 0x0f;
  129. $xr = $i & 0x0f;
  131. $yr = $xr ^ $p_box[1][$xl ^ $p_box[0][$xr]];
  132. $yl = $xl ^ $p_box[0][$xr] ^ $p_box[2][$yr];
  134. $yr |= ($yl << 4);
  136. $s_box[0][ $i] = $yr;
  137. $s_box[1][$yr] =  $i;
  139. $xr = $yr * 0x01010101;
  140. $xl =  $i * 0x01010101;
  142. $s_tab[0][ $i] = $xr & 0x3fcff3fc;
  143. $s_tab[1][$yr] = $xl & 0xfc3fcff3;
  144. $s_tab[2][ $i] = $xr & 0xf3fc3fcf;
  145. $s_tab[3][$yr] = $xl & 0xcff3fc3f;
  146. }
  147. }
  149. sub h0_block {
  150. my ($r_e_key, $n, $r0, $r1, $rc) = @_;
  152. $r_e_key->[4 * $n +  8] =  rotl($r_e_key->[4 * $n + 0], $r0);
  153. $r_e_key->[4 * $n +  9] = $rc ^ $r_e_key->[4 * $n + 1];
  154. $r_e_key->[4 * $n + 10] =  rotl($r_e_key->[4 * $n + 2], $r1);
  155. $r_e_key->[4 * $n + 11] = $rc ^ $r_e_key->[4 * $n + 3];
  156. }
  158. sub h1_block {
  159. my ($r_e_key, $n, $r0, $r1, $rc) = @_;
  161. $r_e_key->[4 * $n +  8] = $rc ^ $r_e_key->[4 * $n + 0];
  162. $r_e_key->[4 * $n +  9] =  rotl($r_e_key->[4 * $n + 1], $r0);
  163. $r_e_key->[4 * $n + 10] = $rc ^ $r_e_key->[4 * $n + 2];
  164. $r_e_key->[4 * $n + 11] =  rotl($r_e_key->[4 * $n + 3], $r1);
  165. }
  167. sub set_key {
  168. my ($in_key, $key_len, $r_e_key) = @_;
  169. my @kp = (0xbb67ae85, 0x3c6ef372, 0xa54ff53a, 0x510e527f);
  170. my @kq = (0x9b05688c, 0x1f83d9ab, 0x5be0cd19, 0xcbbb9d5d);
  171. my ($i, $t0, $t1, @tmp, @key);
  172. @key = unpack("V*", $in_key);
  174. $r_e_key->[2] = 0;
  175. $r_e_key->[3] = 0;
  176. $r_e_key->[6] = 0;
  177. $r_e_key->[7] = 0;
  179. $i = int (($key_len + 63) / 64);
  180. if ($i == 4) {
  181. $r_e_key->[3] = $key[6];
  182. $r_e_key->[7] = $key[7];
  183. $r_e_key->[2] = $key[4];
  184. $r_e_key->[6] = $key[5];
  185. $r_e_key->[0] = $key[0];
  186. $r_e_key->[4] = $key[1];
  187. $r_e_key->[1] = $key[2];
  188. $r_e_key->[5] = $key[3];
  190. } elsif ($i == 3) {
  191. $r_e_key->[2] = $key[4];
  192. $r_e_key->[6] = $key[5];
  193. $r_e_key->[0] = $key[0];
  194. $r_e_key->[4] = $key[1];
  195. $r_e_key->[1] = $key[2];
  196. $r_e_key->[5] = $key[3];
  198. } elsif ($i == 2) {
  199. $r_e_key->[0] = $key[0];
  200. $r_e_key->[4] = $key[1];
  201. $r_e_key->[1] = $key[2];
  202. $r_e_key->[5] = $key[3];
  203. }
  205. $tmp[0] = pi($r_e_key, 0, 0, 1, 2, 3) ^ $kp[0];
  206. $tmp[1] = pi($r_e_key, 0, 1, 2, 3, 0) ^ $kp[1];
  207. $tmp[2] = pi($r_e_key, 0, 2, 3, 0, 1) ^ $kp[2];
  208. $tmp[3] = pi($r_e_key, 0, 3, 0, 1, 2) ^ $kp[3];
  210. $r_e_key->[0] = gamma_tau(@tmp, 0, 0, 1); 
  211. $r_e_key->[1] = gamma_tau(@tmp, 1, 1, 0);
  212. $r_e_key->[2] = gamma_tau(@tmp, 2, 0, 1); 
  213. $r_e_key->[3] = gamma_tau(@tmp, 3, 1, 0);
  215. $tmp[0] = pi($r_e_key, 4, 1, 2, 3, 0) ^ $kq[0]; 
  216. $tmp[1] = pi($r_e_key, 4, 2, 3, 0, 1) ^ $kq[1];
  217. $tmp[2] = pi($r_e_key, 4, 3, 0, 1, 2) ^ $kq[2]; 
  218. $tmp[3] = pi($r_e_key, 4, 0, 1, 2, 3) ^ $kq[3];
  220. $r_e_key->[4] = gamma_tau(@tmp, 0, 1, 0); 
  221. $r_e_key->[5] = gamma_tau(@tmp, 1, 0, 1);
  222. $r_e_key->[6] = gamma_tau(@tmp, 2, 1, 0); 
  223. $r_e_key->[7] = gamma_tau(@tmp, 3, 0, 1);
  225. $t0 = $r_e_key->[0] ^ $r_e_key->[1] ^ $r_e_key->[2] ^ $r_e_key->[3];
  226. $t1 = $r_e_key->[4] ^ $r_e_key->[5] ^ $r_e_key->[6] ^ $r_e_key->[7];
  228. $r_e_key->[0] ^= $t1;
  229. $r_e_key->[1] ^= $t1;
  230. $r_e_key->[2] ^= $t1;
  231. $r_e_key->[3] ^= $t1;
  232. $r_e_key->[4] ^= $t0;
  233. $r_e_key->[5] ^= $t0;
  234. $r_e_key->[6] ^= $t0;
  235. $r_e_key->[7] ^= $t0;
  237. h0_block($r_e_key,  0,  8, 16, 0x01010101);
  238. h1_block($r_e_key,  1, 16, 24, 0x01010101);
  240. h1_block($r_e_key,  2, 24,  8, 0x02020202);
  241. h0_block($r_e_key,  3,  8, 16, 0x02020202);
  243. h0_block($r_e_key,  4, 16, 24, 0x04040404);
  244. h1_block($r_e_key,  5, 24,  8, 0x04040404);
  246. h1_block($r_e_key,  6,  8, 16, 0x08080808);
  247. h0_block($r_e_key,  7, 16, 24, 0x08080808);
  249. h0_block($r_e_key,  8, 24,  8, 0x10101010);
  250. h1_block($r_e_key,  9,  8, 16, 0x10101010);
  252. h1_block($r_e_key, 10, 16, 24, 0x20202020);
  254. $r_e_key->[48] = phi_n($r_e_key->[48], 3, 0, 1, 2);
  255. $r_e_key->[49] = phi_n($r_e_key->[49], 2, 3, 0, 1);
  256. $r_e_key->[50] = phi_n($r_e_key->[50], 1, 2, 3, 0);
  257. $r_e_key->[51] = phi_n($r_e_key->[51], 0, 1, 2, 3);
  258. }
  260. sub f0_rnd {
  261. my ($r_kp, $pos_kp, $r_b0, $r_b1) = @_;
  263. $r_b1->[0] = $s_tab[0][byte($r_b0->[0], 0)]
  264.    ^ $s_tab[1][byte($r_b0->[1], 0)]
  265.    ^ $s_tab[2][byte($r_b0->[2], 0)]
  266.    ^ $s_tab[3][byte($r_b0->[3], 0)]
  267.    ^ $r_kp->[$pos_kp + 0];
  269. $r_b1->[1] = $s_tab[1][byte($r_b0->[0], 1)]
  270.    ^ $s_tab[2][byte($r_b0->[1], 1)]
  271.    ^ $s_tab[3][byte($r_b0->[2], 1)]
  272.    ^ $s_tab[0][byte($r_b0->[3], 1)]
  273.    ^ $r_kp->[$pos_kp + 1];
  275. $r_b1->[2] = $s_tab[2][byte($r_b0->[0], 2)]
  276.    ^ $s_tab[3][byte($r_b0->[1], 2)]
  277.    ^ $s_tab[0][byte($r_b0->[2], 2)]
  278.    ^ $s_tab[1][byte($r_b0->[3], 2)]
  279.    ^ $r_kp->[$pos_kp + 2];
  281. $r_b1->[3] = $s_tab[3][byte($r_b0->[0], 3)]
  282.    ^ $s_tab[0][byte($r_b0->[1], 3)]
  283.    ^ $s_tab[1][byte($r_b0->[2], 3)]
  284.    ^ $s_tab[2][byte($r_b0->[3], 3)]
  285.    ^ $r_kp->[$pos_kp + 3];
  286. }
  288. sub f1_rnd {
  289. my ($r_kp, $pos_kp, $r_b0, $r_b1) = @_;
  291. $r_b0->[0] = $s_tab[1][byte($r_b1->[0], 0)]
  292.    ^ $s_tab[2][byte($r_b1->[1], 0)]
  293.    ^ $s_tab[3][byte($r_b1->[2], 0)]
  294.    ^ $s_tab[0][byte($r_b1->[3], 0)]
  295.    ^ $r_kp->[$pos_kp + 0];
  297. $r_b0->[1] = $s_tab[2][byte($r_b1->[0], 1)]
  298.    ^ $s_tab[3][byte($r_b1->[1], 1)]
  299.    ^ $s_tab[0][byte($r_b1->[2], 1)]
  300.    ^ $s_tab[1][byte($r_b1->[3], 1)]
  301.    ^ $r_kp->[$pos_kp + 1];
  303. $r_b0->[2] = $s_tab[3][byte($r_b1->[0], 2)]
  304.    ^ $s_tab[0][byte($r_b1->[1], 2)]
  305.    ^ $s_tab[1][byte($r_b1->[2], 2)]
  306.    ^ $s_tab[2][byte($r_b1->[3], 2)]
  307.    ^ $r_kp->[$pos_kp + 2];
  309. $r_b0->[3] = $s_tab[0][byte($r_b1->[0], 3)]
  310.    ^ $s_tab[1][byte($r_b1->[1], 3)]
  311.    ^ $s_tab[2][byte($r_b1->[2], 3)]
  312.    ^ $s_tab[3][byte($r_b1->[3], 3)]
  313.    ^ $r_kp->[$pos_kp + 3];
  315. }
  317. 1;