IDEA數據加密算法實現

IDEA數據加密算法介紹之續篇,代碼實現:
http://blog.csdn.net/CXXSoft/archive/2006/08/23/1109279.aspx

5、 源碼:

王朝网络
//*******************************************************************************

王朝网络
* IDEA數據加密算法1.0版本

王朝网络
* 開發作者: 成曉旭

王朝网络
* 項目簡述: IDEA數據加密算法1.0版本

王朝网络
* 啓動時間: 2000年05月08日

王朝网络
* 完成時間: 2000年01月14日 20:09:00 <1個晚上>

王朝网络
*

王朝网络
* 開發環境: Windows98

王朝网络
* 開發工具: Borland Delphi5

王朝网络
*

王朝网络
* 文件名稱: IDEA.pas

王朝网络
* 簡 介: IDEA數據加密算法1.0版本

王朝网络
*

王朝网络
* 備注: 任何人使用此文件時,請保留此段自述文件,謝謝!

王朝网络
*

王朝网络
******************************************************************************/

王朝网络
unit IDEA;

王朝网络

王朝网络
interface

王朝网络

王朝网络
uses

王朝网络
Windows, Messages, SysUtils, Classes,Dialogs;

王朝网络
function BinToHex(strBin:string):string;

王朝网络
function HexToTen(strHex:string):int64;

王朝网络
function LeftMove(S:string;P:integer):String;

王朝网络
function ModAdd(intAdd1,intAdd2:int64):int64;

王朝网络
function ModMul(intMul1,intMul2:int64;intFlag:integer):int64;

王朝网络
function ModXor(intXor1,intXor2:int64):int64;

王朝网络
procedure CreatePassword(strPassword:string;VAR arrPassword:array of int64;VAR arrOpenPassword:array of int64); //産生加密子密鑰函數

王朝网络
procedure GetOpenPassword(intSource:int64;VAR intResult:int64;Flag:integer); //求取解密子密鑰函數

王朝网络
procedure CreateKeyTable(); //産生加、解密子密鑰之間的對應關系表

王朝网络
procedure Riddle(arrPassword:array of int64;arrRiddleKey:array of int64;VAR arrOpenPassword:array of int64);StdCall;export; //IDEA數據解密函數

王朝网络
procedure CreateOpenPassword(VAR arrOpenPassKey:array of int64); //産生解密子密鑰函數

王朝网络
procedure CreateKey(VAR arrKey:array of int64;VAR arrOpenKey:array of int64;VAR strOutKey:string);StdCall;export; //産生加密密鑰函數

王朝网络

王朝网络

王朝网络
implementation

王朝网络

王朝网络
Const strNum:array[1..16] of string[4]=('0000','0001','0010','0011','0100','0101','0110','0111','1000','1001','1010','1011','1100','1101','1110','1111');

王朝网络
Const chrHex:array[1..16] of char=('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');

王朝网络
var

王朝网络
g_arr_Ten_Password:array[1..52] of int64;

王朝网络
g_arr_Flag:array[1..52] of integer;

王朝网络
g_arr_Table:array[1..52] of integer;

王朝网络
王朝网络
...{--------------------------------------------------------------------}

王朝网络

王朝网络
procedure CreateKey(VAR arrKey:array of int64;VAR arrOpenKey:array of int64;VAR strOutKey:string);StdCall;export;

王朝网络
var

王朝网络
intKey,intLoop1,intLoop2,intLoop3:integer;

王朝网络
hexKey,ch,strTemp:string;

王朝网络
strKey:string[128];

王朝网络
begin

王朝网络
strKey:='';

王朝网络
Randomize;

王朝网络
for intLoop1:=1 to 8 do

王朝网络
begin

王朝网络
intKey:=Random(65536);

王朝网络
hexKey:=IntToHex(intKey,4);

王朝网络
strTemp:='';

王朝网络
for intLoop2:=1 to 4 do

王朝网络
begin

王朝网络
ch:=Copy(hexKey,intLoop2,1);

王朝网络
for intLoop3:=1 to 16 do

王朝网络
begin

王朝网络
if ch = chrHex[intLoop3] then

王朝网络
begin

王朝网络
ch:= strNum[intLoop3];

王朝网络

break;

王朝网络
end;

王朝网络
end;

王朝网络
strTemp:=strTemp+ch;

王朝网络
end;

王朝网络
strKey:=strKey+strTemp;

王朝网络
end;

王朝网络
strOutKey:=strKey;

王朝网络
CreatePassword(strKey,arrKey,arrOpenKey); //調用産生加密子密鑰過程

王朝网络
end;

王朝网络
王朝网络
...{--------------------------------------------------------------------}

王朝网络

王朝网络
function BinToHex(strBin:string):string;

王朝网络
var

王朝网络
intLoop1,intLoop2:integer;

王朝网络
strTemp,strResult:string;

王朝网络
begin

王朝网络
intLoop1:=1;

王朝网络
strResult:='';

王朝网络
if Length(strBin) <> 16 then ShowMessage('二進制數據長度有錯!');

王朝网络
while (intLoop1<=16) do

王朝网络
begin

王朝网络
strTemp:=Copy(strBin,intLoop1,4);

王朝网络
for intLoop2:=1 to 16 do

王朝网络
if strTemp=strNum[intLoop2] then

王朝网络
begin

王朝网络
strTemp:=chrHex[intLoop2];

王朝网络

break;

王朝网络
end;

王朝网络
strResult:=strResult+strTemp;

王朝网络
intLoop1:=intLoop1 + 4;

王朝网络
end;

王朝网络
BinToHex:=strResult;

王朝网络
end;

王朝网络
王朝网络
...{--------------------------------------------------------------------}

王朝网络

王朝网络
function HexToTen(strHex:string):int64; //十六進制轉十進制

王朝网络
var

王朝网络
intLoop1,intLoop2,intTemp:integer;

王朝网络
intResult:int64;

王朝网络
strTemp:string;

王朝网络
begin

王朝网络
intResult:=0;

王朝网络
intTemp:=0;

王朝网络
if Length(strHex) <> 4 then ShowMessage('十六進制數據長度有錯!');

王朝网络
for intLoop1:=1 to 4 do

王朝网络
begin

王朝网络
Case intLoop1 of

王朝网络
1:intTemp:=4096;

王朝网络
2:intTemp:=256;

王朝网络
3:intTemp:=16;

王朝网络
4:intTemp:=1

王朝网络
end;

王朝网络
strTemp:=Copy(strHex,intLoop1,1);

王朝网络
for intLoop2:=1 to 16 do

王朝网络
if UpperCase(strTemp) = chrHex[intLoop2] then

王朝网络
begin

王朝网络
intResult:=intResult+(Int64(intLoop2) - 1)*Int64(intTemp);

王朝网络

break;

王朝网络
end;

王朝网络
end;

王朝网络
HexToTen:=intResult;

王朝网络
end;

王朝网络
王朝网络
...{--------------------------------------------------------------------}

王朝网络

王朝网络
function LeftMove(S:string;P:integer):String;

王朝网络
var

王朝网络
int_Len,i:integer;

王朝网络
str_Result,str_Num:string;

王朝网络
begin

王朝网络
int_Len:=length(s);

王朝网络
str_Num:=S;

王朝网络
str_Result:='';

王朝网络
if int_Len <= P then

王朝网络
str_Result :=S

王朝网络
else

王朝网络
begin

王朝网络
for i:=P+1 to int_Len do

王朝网络
str_Result:=str_Result+copy(str_Num,i,1);

王朝网络
str_Result:=str_Result+copy(str_Num,1,p);

王朝网络
end;

王朝网络
LeftMove:=Trim(str_Result);

王朝网络
end;

王朝网络
王朝网络
...{--------------------------------------------------------------------}

王朝网络

王朝网络
function ModAdd(intAdd1,intAdd2:int64):int64;

王朝网络
begin

王朝网络
ModAdd:=(intAdd1 + intAdd2) mod 65536; //模65536求和

王朝网络
end;

王朝网络

王朝网络
function ModMul(intMul1,intMul2:int64;intFlag:integer):int64;

王朝网络
var intTemp:int64;

王朝网络
begin

王朝网络
intTemp:=(intMul1 * intMul2) mod 65537;

王朝网络
if intFlag = 0 then

王朝网络
begin

王朝网络
if intMul1 = 0 then intTemp:=65537 - intMul2;

王朝网络
if intMul2 = 0 then intTemp:=65537 - intMul1;

王朝网络
if intTemp = 65536 then intTemp:=0;

王朝网络
if intTemp = 65537 then intTemp:=1;

王朝网络
end

王朝网络
else

王朝网络
begin

王朝网络
if intMul1 = 0 then intTemp:=65537 - intMul2;

王朝网络
if intMul2 = 0 then intTemp:=65537 - intMul1;

王朝网络
if intTemp = 0 then intTemp:=65536;

王朝网络
if intTemp = 65537 then intTemp:=1;

王朝网络
if intTemp = 65536 then intTemp:=0;

王朝网络
end;

王朝网络
ModMul:=intTemp;

王朝网络
end;

王朝网络

王朝网络
function ModXor(intXor1,intXor2:int64):int64;

王朝网络
begin

王朝网络
ModXor:= intXor1 xor intXor2;

王朝网络
end;

王朝网络
王朝网络
...{--------------------------------------------------------------------}

王朝网络

王朝网络
procedure CreatePassword(strPassword:string;VAR arrPassword:array of int64;VAR arrOpenPassword:array of int64);

王朝网络
var

王朝网络
strKey:string;

王朝网络
strTemp:array[1..52] of string[4];

王朝网络
intStart,intCount:integer;

王朝网络
begin

王朝网络
strKey:=strPassword; //

王朝网络
intCount:=1;

王朝网络
intStart:=1;

王朝网络
王朝网络
...{--------------------産生52個16bit的加密子密鑰部分-------------------}

王朝网络
while (intCount<=52) do

王朝网络
begin

王朝网络
strTemp[intCount]:=BinToHex(Copy(strKey,intStart,16));

王朝网络
intStart:=intStart+16;

王朝网络
intCount:=intCount+1;

王朝网络
if ((intCount mod 8) = 1) then

王朝网络
begin

王朝网络
strKey:=LeftMove(strKey,25);

王朝网络
intStart:=1;

王朝网络
end;

王朝网络
end;

王朝网络
intCount:=1;

王朝网络
while (intCount<=52) do

王朝网络
begin

王朝网络
arrPassword[intCount-1]:=HexToTen(strTemp[intCount]);

王朝网络
g_arr_Ten_Password[intCount]:=arrPassword[intCount-1];

王朝网络
intCount:=intCount+1;

王朝网络
end;

王朝网络
CreateOpenPassword(arrOpenPassword);

王朝网络
王朝网络
...{--------------------産生52個16bit的加密子密鑰部分-------------------}

王朝网络
end;

王朝网络
王朝网络
...{--------------------------------------------------------------------}

王朝网络

王朝网络
procedure GetOpenPassword(intSource:int64;VAR intResult:int64;Flag:integer);

王朝网络
var

王朝网络
int_Source,int_Result,int_Mod_Value:int64;

王朝网络
int_Loop:integer;

王朝网络
begin

王朝网络
int_Source:=intSource;

王朝网络
王朝网络
...{--------------------求取每個加密子密鑰相應的解密子密鑰部分-------------------}

王朝网络
Case Flag of

王朝网络
0: intResult:=int_Source;

王朝网络
1: intResult:=65536-int_Source;

王朝网络
2:

王朝网络
begin

王朝网络
if int_Source=0 then

王朝网络
intResult:=int_Source

王朝网络
else

王朝网络
for int_Loop:=1 to 65536 do

王朝网络
begin

王朝网络
int_Result:=Int64(int_Loop)*65537+1;

王朝网络
int_Mod_Value:=int_Result mod int_Source;

王朝网络
if int_Mod_Value = 0 then

王朝网络
begin

王朝网络
int_Result:=int_Result div int_Source;

王朝网络
intResult:=int_Result;

王朝网络

break;

王朝网络
end;

王朝网络
end;

王朝网络
end;

王朝网络
end;

王朝网络
王朝网络
...{--------------------求取每個加密子密鑰相應的解密子密鑰部分-------------------}

王朝网络
end;

王朝网络
王朝网络
...{--------------------------------------------------------------------}

王朝网络

王朝网络
procedure CreateKeyTable();

王朝网络
var

王朝网络
int_Count_CreatePassword,int_Count_OpenPassword,int_ExChange:integer;

王朝网络
begin

王朝网络
王朝网络
...{----------------求取在産生解密子密鑰時所用的參數標志對應表部分-------------}

王朝网络
for int_Count_CreatePassword:=52 downto 1 do

王朝网络
Case int_Count_CreatePassword mod 6 of

王朝网络
0,5:begin g_arr_Flag[int_Count_CreatePassword]:=0; end;

王朝网络
2,3:begin g_arr_Flag[int_Count_CreatePassword]:=1; end;

王朝网络
1,4:begin g_arr_Flag[int_Count_CreatePassword]:=2; end;

王朝网络
end;

王朝网络
王朝网络
...{----------------求取在産生解密子密鑰時所用的參數標志對應表部分-------------}

王朝网络

王朝网络
王朝网络
...{----------------求取每個加密子密鑰與相應解密子密鑰間的對應關系映射表部分-------------}

王朝网络
int_Count_CreatePassword:=52;

王朝网络
int_Count_OpenPassword:=1;

王朝网络
while (int_Count_CreatePassword>=1) do

王朝网络
begin

王朝网络
Case int_Count_CreatePassword mod 6 of

王朝网络
1,2,3,4:

王朝网络
begin

王朝网络
g_arr_Table[int_Count_OpenPassword]:=int_Count_CreatePassword-3;

王朝网络
g_arr_Table[int_Count_OpenPassword+1]:=int_Count_CreatePassword-1;

王朝网络
g_arr_Table[int_Count_OpenPassword+2]:=int_Count_CreatePassword-2;

王朝网络
g_arr_Table[int_Count_OpenPassword+3]:=int_Count_CreatePassword;

王朝网络
if (int_Count_CreatePassword >=48) or (int_Count_CreatePassword <=4 ) then //首輪和末輪處理不需交換,故要再換回來

王朝网络
begin

王朝网络
int_ExChange:=g_arr_Table[int_Count_OpenPassword+1];

王朝网络
g_arr_Table[int_Count_OpenPassword+1]:=g_arr_Table[int_Count_OpenPassword+2];

王朝网络
g_arr_Table[int_Count_OpenPassword+2]:=int_ExChange;

王朝网络
end;

王朝网络
int_Count_CreatePassword:=int_Count_CreatePassword-4;

王朝网络
int_Count_OpenPassword:=int_Count_OpenPassword+4;

王朝网络
end;

王朝网络
0,5:

王朝网络
begin

王朝网络
g_arr_Table[int_Count_OpenPassword]:=int_Count_CreatePassword-1;

王朝网络
g_arr_Table[int_Count_OpenPassword+1]:=int_Count_CreatePassword;

王朝网络
int_Count_CreatePassword:=int_Count_CreatePassword-2;

王朝网络
int_Count_OpenPassword:=int_Count_OpenPassword+2;

王朝网络
end;

王朝网络
end;

王朝网络
end;

王朝网络
王朝网络
...{----------------求取每個加密子密鑰與相應解密子密鑰間的對應關系映射表部分-------------}

王朝网络
end;

王朝网络
王朝网络
...{--------------------------------------------------------------------}

王朝网络

王朝网络

王朝网络
procedure CreateOpenPassword(VAR arrOpenPassKey:array of int64);

王朝网络
var

王朝网络
int_Loop:integer;

王朝网络
arrTemp:array[1..52] of int64;

王朝网络
begin

王朝网络
王朝网络
...{-------------通過調用産生加、解密子密鑰對應關系函數産生對應關系表部分------------------}

王朝网络
CreateKeyTable;

王朝网络
王朝网络
...{-------------通過調用求解解密子密鑰函數産生解密子密鑰部分------------------}

王朝网络
for int_Loop:=1 to 52 do

王朝网络
begin

王朝网络
GetOpenPassword(g_arr_Ten_Password[int_Loop],arrTemp[g_arr_Table[int_Loop]],g_arr_Flag[int_Loop]);

王朝网络
end;

王朝网络
for int_Loop:=1 to 52 do

王朝网络
arrOpenPassKey[int_Loop-1]:=arrTemp[int_Loop];

王朝网络
王朝网络
...{-------------通過調用求解解密子密鑰函數産生解密子密鑰部分------------------}

王朝网络
end;

王朝网络
王朝网络
...{--------------------------------------------------------------------}

王朝网络

王朝网络

王朝网络
procedure Riddle(arrPassword:array of int64;arrRiddleKey:array of int64;VAR arrOpenPassword:array of int64);

王朝网络
var

王朝网络
Count,i:integer;

王朝网络
V1,V2,V3,V4,V5,V6,V7,V8,V9,V10,V11,V12,V13,V14,C1,C2,C3,C4,ExChange:int64;

王朝网络
P:array[1..4] of int64;

王朝网络
begin

王朝网络
王朝网络
...{------------------------數據 "解密" 算法實現部分------------------}

王朝网络
for i:=Low(arrPassword) to High(arrPassword) do

王朝网络
P[i+1]:=arrPassword[i];

王朝网络
Count:=0;

王朝网络
while (Count<48) do

王朝网络
begin

王朝网络
V1:= ModMul(P[1],arrRiddleKey[Count],1); //相乘 1

王朝网络
Inc(Count);

王朝网络
V2:= ModAdd(P[2],arrRiddleKey[Count]); //相加 2

王朝网络
Inc(Count);

王朝网络
V3:= ModAdd(P[3],arrRiddleKey[Count]); //相加 3

王朝网络
Inc(Count);

王朝网络
V4:= ModMul(P[4],arrRiddleKey[Count],1); //相乘 4

王朝网络
Inc(Count);

王朝网络
V5:= ModXor(V1,V3); //異或 5

王朝网络
V6:= ModXor(V2,V4); //異或 6

王朝网络
V7:= ModMul(V5,arrRiddleKey[Count],1); //相乘 7

王朝网络
Inc(Count);

王朝网络
V8:= ModAdd(V6,V7); //相加 8

王朝网络
V9:= ModMul(V8,arrRiddleKey[Count],1); //相乘 9

王朝网络
Inc(Count);

王朝网络
V10:=ModAdd(V7,V9); //相加 10

王朝网络
V11:=ModXor(V1,V9); //異或 11

王朝网络
V12:=ModXor(V2,V10); //異或 12

王朝网络
V13:=ModXor(V3,V9); //異或 13

王朝网络
V14:=ModXor(V4,V10); //異或 14

王朝网络
P[1]:=V11;

王朝网络
P[2]:=V13; //注意:交換中間兩個輸出結果

王朝网络
P[3]:=V12; //注意:交換中間兩個輸出結果

王朝网络
P[4]:=V14;

王朝网络
end; //結束8輪計算

王朝网络
ExChange:=P[2];

王朝网络
P[2]:=P[3];

王朝网络
P[3]:=ExChange; //因爲最後一輪無需轉換,所以必須把P[2],P[3]再次轉換回來

王朝网络
C1:= ModMul(P[1],arrRiddleKey[48],1); //相乘 1

王朝网络
C2:= ModAdd(P[2],arrRiddleKey[49]); //相加 2

王朝网络
C3:= ModAdd(P[3],arrRiddleKey[50]); //相加 3

王朝网络
C4:= ModMul(P[4],arrRiddleKey[51],1); //相乘 4

王朝网络
王朝网络
...{------------------------數據 "解密" 算法實現部分------------------}

王朝网络
arrOpenPassword[Low(arrOpenPassword)]:=C1;

王朝网络
arrOpenPassword[Low(arrOpenPassword)+1]:=C2;

王朝网络
arrOpenPassword[Low(arrOpenPassword)+2]:=C3;

王朝网络
arrOpenPassword[Low(arrOpenPassword)+3]:=C4;

王朝网络
//數據解密成功!

王朝网络
end;

王朝网络
王朝网络
...{--------------------------------------------------------------------}

王朝网络

王朝网络
end.

王朝网络

IBM的MARS加密算法實現(3)
作者:吳真2.1密鑰的生成MARS算法支持128~448位變長密鑰,定義一個臨時容器ULONG32 T用于存放用戶輸入的密鑰,T[0,1…n] = K[0,1…n]T = n ;T[n+1,…14] = 0 ;其中n是用戶輸入密鑰的長度(4字節爲單位)....查看完整版>>IBM的MARS加密算法實現(3)
 
IBM的MARS加密算法實現(2)
作者:吳真二、算法原理...查看完整版>>IBM的MARS加密算法實現(2)
 
IBM的MARS加密算法實現(1)
作者:吳真一、背景知識...查看完整版>>IBM的MARS加密算法實現(1)
 
IBM的MARS加密算法實現(5)
IBM的MARS加密算法實現(5)
作者:吳真2.2.2第二步密碼核把輸入的128位數據分成四塊D,D,D,D ,其中D作爲源數據(Source),剩下的3個作爲目標數據該步驟中有一個稱爲E-Fun(見下一節)的操作,把Source和對應兩個子密鑰(從第5個子密鑰開始遞增,本輪的輸...查看完整版>>IBM的MARS加密算法實現(5)
 
IBM的MARS加密算法實現(4)
IBM的MARS加密算法實現(4)
作者:吳真2.2明文加密2.2.1 第一步前向混合  輸入的128位明文分成四塊D,D,D,D,選取生成的40個密鑰的前四個分別與上述四塊數據進行加操作D += K;D += K;D += K;D += K;結果作爲第一輪操作的輸入數據.第一輪:  輸...查看完整版>>IBM的MARS加密算法實現(4)
 
IBM的MARS加密算法實現(7)
IBM的MARS加密算法實現(7)
作者:吳真2.3 密文解密用于密文解密的40個子密鑰的生成和明文加密時的40個子密鑰的生成方法相同.2.3.1 第一步前向混合輸入的128位密文分成四塊D,D,D,D,選取生成的40個密鑰的最後四個分別與上述四塊數據進行加操作,D...查看完整版>>IBM的MARS加密算法實現(7)
 
IBM的MARS加密算法實現(6)
IBM的MARS加密算法實現(6)
作者:吳真2.2.4 第三步後向混合把輸入的128位數據分成四塊D,D,D,D第一輪:輸入的四塊數據D,D,D,D,其中D作爲源數據(Source),剩下的3個作爲目標數據,把32位的源數據D分成8位的四塊b0,b1,b2,b3b0和b2作爲數組下標從S1中...查看完整版>>IBM的MARS加密算法實現(6)
 
IBM的MARS加密算法實現(8)
IBM的MARS加密算法實現(8)
作者:吳真2.3.2第二步密碼核  把輸入的128位數據循環左移32位後分成四塊D,D,D,D,其中D作爲源數據(Source),剩下的3個作爲目標數據, 把Source循環右移13位的結果返回給Source,  把Source和對應兩個子密鑰(從第34個...查看完整版>>IBM的MARS加密算法實現(8)
 
IBM的MARS加密算法實現(下)
IBM的MARS加密算法實現(下) 作者: 2.3 密文解密 用于密文解密的40個子密鑰的生成和明文加密時的40個子密鑰的生成方法相同. 2.3.1 第一步前向混合 輸入的1...查看完整版>>IBM的MARS加密算法實現(下)
 
 
回到王朝網路移動版首頁