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;interfaceuses 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; //产生加密密钥函数implementationConst 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;varintKey,intLoop1,intLoop2,intLoop3:integer;hexKey,ch,strTemp:string;strKey:string[128];beginstrKey:='';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;varintLoop1,intLoop2:integer;strTemp,strResult:string;beginintLoop1:=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; //十六进制转十进制varintLoop1,intLoop2,intTemp:integer;intResult:int64;strTemp:string;beginintResult:=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;varint_Len,i:integer;str_Result,str_Num:string;beginint_Len:=length(s);str_Num:=S;str_Result:='';if int_Len <= P then str_Result :=Selsebegin 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;beginModAdd:=(intAdd1 + intAdd2) mod 65536; //模65536求和end;function ModMul(intMul1,intMul2:int64;intFlag:integer):int64;var intTemp:int64;beginintTemp:=(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; endelse 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;beginModXor:= intXor1 xor intXor2;end;...{--------------------------------------------------------------------}procedure CreatePassword(strPassword:string;VAR arrPassword:array of int64;VAR arrOpenPassword:array of int64);varstrKey:string;strTemp:array[1..52] of string[4];intStart,intCount:integer;beginstrKey:=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);varint_Source,int_Result,int_Mod_Value:int64;int_Loop:integer;beginint_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();varint_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) dobegin 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);varint_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);varCount,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) dobegin 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); //相乘 1C2:= ModAdd(P[2],arrRiddleKey[49]); //相加 2C3:= ModAdd(P[3],arrRiddleKey[50]); //相加 3C4:= 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.