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.
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
IDEA数据加密算法介绍之续篇,代码实现:
[url=http://blog.csdn.net/CXXSoft/archive/2006/08/23/1109279.aspx]http://blog.csdn.net/CXXSoft/archive/2006/08/23/1109279.aspx[/url]
5、 源码:
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803746442.png[/img]//*******************************************************************************
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803746474.png[/img] * IDEA数据加密算法1.0版本
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803746505.png[/img] * 开发作者: 成晓旭
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803746536.png[/img] * 项目简述: IDEA数据加密算法1.0版本
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803746567.png[/img] * 启动时间: 2000年05月08日
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803746583.png[/img] * 完成时间: 2000年01月14日 20:09:00 <1个晚上>
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803746614.png[/img] *
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803746646.png[/img] * 开发环境: Windows98
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803746677.png[/img] * 开发工具: Borland Delphi5
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803746692.png[/img] *
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803746724.png[/img] * 文件名称: IDEA.pas
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803746755.png[/img] * 简 介: IDEA数据加密算法1.0版本
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803746786.png[/img] *
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803746817.png[/img] * 备注: 任何人使用此文件时,请保留此段自述文件,谢谢!
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803746849.png[/img] *
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803746864.png[/img] ******************************************************************************/
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803746896.png[/img]unit IDEA;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803746927.png[/img]
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803746958.png[/img]interface
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803746989.png[/img]
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747021.png[/img]uses
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747052.png[/img] Windows, Messages, SysUtils, Classes,Dialogs;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747067.png[/img] function BinToHex(strBin:string):string;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747099.png[/img] function HexToTen(strHex:string):int64;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747130.png[/img] function LeftMove(S:string;P:integer):String;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747161.png[/img] function ModAdd(intAdd1,intAdd2:int64):int64;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747192.png[/img] function ModMul(intMul1,intMul2:int64;intFlag:integer):int64;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747208.png[/img] function ModXor(intXor1,intXor2:int64):int64;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747239.png[/img] procedure CreatePassword(strPassword:string;VAR arrPassword:array of int64;VAR arrOpenPassword:array of int64); //产生加密子密钥函数
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747271.png[/img] procedure GetOpenPassword(intSource:int64;VAR intResult:int64;Flag:integer); //求取解密子密钥函数
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747302.png[/img] procedure CreateKeyTable(); //产生加、解密子密钥之间的对应关系表
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747333.png[/img] procedure Riddle(arrPassword:array of int64;arrRiddleKey:array of int64;VAR arrOpenPassword:array of int64);StdCall;export; //IDEA数据解密函数
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747364.png[/img] procedure CreateOpenPassword(VAR arrOpenPassKey:array of int64); //产生解密子密钥函数
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747380.png[/img] procedure CreateKey(VAR arrKey:array of int64;VAR arrOpenKey:array of int64;VAR strOutKey:string);StdCall;export; //产生加密密钥函数
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747411.png[/img]
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747442.png[/img]
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747474.png[/img]implementation
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747505.png[/img]
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747521.png[/img]Const strNum:array[1..16] of string[4]=('0000','0001','0010','0011','0100','0101','0110','0111','1000','1001','1010','1011','1100','1101','1110','1111');
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747552.png[/img]Const chrHex:array[1..16] of char=('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747583.png[/img]var
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747614.png[/img] g_arr_Ten_Password:array[1..52] of int64;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747646.png[/img] g_arr_Flag:array[1..52] of integer;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747661.png[/img] g_arr_Table:array[1..52] of integer;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747692.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747724.png[/img]...{--------------------------------------------------------------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747755.png[/img]
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747786.png[/img]procedure CreateKey(VAR arrKey:array of int64;VAR arrOpenKey:array of int64;VAR strOutKey:string);StdCall;export;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747802.png[/img]var
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747833.png[/img]intKey,intLoop1,intLoop2,intLoop3:integer;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747864.png[/img]hexKey,ch,strTemp:string;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747896.png[/img]strKey:string[128];
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747911.png[/img]begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747942.png[/img]strKey:='';
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803747974.png[/img]Randomize;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748005.png[/img]for intLoop1:=1 to 8 do
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748036.png[/img] begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748052.png[/img] intKey:=Random(65536);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748114.png[/img] hexKey:=IntToHex(intKey,4);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748146.png[/img] strTemp:='';
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748177.png[/img] for intLoop2:=1 to 4 do
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748208.png[/img] begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748224.png[/img] ch:=Copy(hexKey,intLoop2,1);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748255.png[/img] for intLoop3:=1 to 16 do
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748286.png[/img] begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748317.png[/img] if ch = chrHex[intLoop3] then
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748333.png[/img] begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748364.png[/img] ch:= strNum[intLoop3];
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748396.png[/img]
break;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748427.png[/img] end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748458.png[/img] end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748489.png[/img] strTemp:=strTemp+ch;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748521.png[/img] end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748536.png[/img] strKey:=strKey+strTemp;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748599.png[/img] end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748646.png[/img]strOutKey:=strKey;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748661.png[/img]CreatePassword(strKey,arrKey,arrOpenKey); //调用产生加密子密钥过程
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748692.png[/img]end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748724.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748755.png[/img]...{--------------------------------------------------------------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748771.png[/img]
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748802.png[/img]function BinToHex(strBin:string):string;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748833.png[/img]var
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748864.png[/img]intLoop1,intLoop2:integer;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748880.png[/img]strTemp,strResult:string;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748911.png[/img]begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748942.png[/img]intLoop1:=1;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803748974.png[/img]strResult:='';
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749005.png[/img]if Length(strBin) <> 16 then ShowMessage('二进制数据长度有错!');
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749036.png[/img]while (intLoop1<=16) do
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749067.png[/img] begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749083.png[/img] strTemp:=Copy(strBin,intLoop1,4);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749114.png[/img] for intLoop2:=1 to 16 do
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749146.png[/img] if strTemp=strNum[intLoop2] then
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749177.png[/img] begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749192.png[/img] strTemp:=chrHex[intLoop2];
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749224.png[/img]
break;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749255.png[/img] end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749302.png[/img] strResult:=strResult+strTemp;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749333.png[/img] intLoop1:=intLoop1 + 4;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749364.png[/img] end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749380.png[/img]BinToHex:=strResult;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749411.png[/img]end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749442.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749489.png[/img]...{--------------------------------------------------------------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749505.png[/img]
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749536.png[/img]function HexToTen(strHex:string):int64; //十六进制转十进制
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749567.png[/img]var
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749614.png[/img]intLoop1,intLoop2,intTemp:integer;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749646.png[/img]intResult:int64;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749677.png[/img]strTemp:string;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749692.png[/img]begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749724.png[/img]intResult:=0;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749755.png[/img]intTemp:=0;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749802.png[/img]if Length(strHex) <> 4 then ShowMessage('十六进制数据长度有错!');
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749833.png[/img]for intLoop1:=1 to 4 do
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749864.png[/img] begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749880.png[/img] Case intLoop1 of
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749911.png[/img] 1:intTemp:=4096;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749942.png[/img] 2:intTemp:=256;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803749974.png[/img] 3:intTemp:=16;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750005.png[/img] 4:intTemp:=1
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750036.png[/img] end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750130.png[/img] strTemp:=Copy(strHex,intLoop1,1);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750161.png[/img] for intLoop2:=1 to 16 do
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750192.png[/img] if UpperCase(strTemp) = chrHex[intLoop2] then
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750224.png[/img] begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750255.png[/img] intResult:=intResult+(Int64(intLoop2) - 1)*Int64(intTemp);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750286.png[/img]
break;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750317.png[/img] end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750349.png[/img] end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750364.png[/img]HexToTen:=intResult;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750427.png[/img]end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750442.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750474.png[/img]...{--------------------------------------------------------------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750521.png[/img]
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750567.png[/img]function LeftMove(S:string;P:integer):String;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750583.png[/img]var
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750614.png[/img]int_Len,i:integer;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750677.png[/img]str_Result,str_Num:string;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750692.png[/img]begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750724.png[/img]int_Len:=length(s);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750755.png[/img]str_Num:=S;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750786.png[/img]str_Result:='';
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750817.png[/img]if int_Len <= P then
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750833.png[/img] str_Result :=S
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750864.png[/img]else
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750896.png[/img]begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750927.png[/img] for i:=P+1 to int_Len do
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803750974.png[/img] str_Result:=str_Result+copy(str_Num,i,1);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751005.png[/img] str_Result:=str_Result+copy(str_Num,1,p);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751036.png[/img]end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751067.png[/img]LeftMove:=Trim(str_Result);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751099.png[/img]end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751130.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751161.png[/img]...{--------------------------------------------------------------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751192.png[/img]
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751208.png[/img]function ModAdd(intAdd1,intAdd2:int64):int64;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751239.png[/img]begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751271.png[/img]ModAdd:=(intAdd1 + intAdd2) mod 65536; //模65536求和
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751302.png[/img]end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751364.png[/img]
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751396.png[/img]function ModMul(intMul1,intMul2:int64;intFlag:integer):int64;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751427.png[/img]var intTemp:int64;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751442.png[/img]begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751474.png[/img]intTemp:=(intMul1 * intMul2) mod 65537;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751505.png[/img]if intFlag = 0 then
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751536.png[/img] begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751567.png[/img] if intMul1 = 0 then intTemp:=65537 - intMul2;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751583.png[/img] if intMul2 = 0 then intTemp:=65537 - intMul1;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751614.png[/img] if intTemp = 65536 then intTemp:=0;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751646.png[/img] if intTemp = 65537 then intTemp:=1;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751677.png[/img] end
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751692.png[/img]else
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751724.png[/img] begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751755.png[/img] if intMul1 = 0 then intTemp:=65537 - intMul2;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751786.png[/img] if intMul2 = 0 then intTemp:=65537 - intMul1;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751817.png[/img] if intTemp = 0 then intTemp:=65536;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751833.png[/img] if intTemp = 65537 then intTemp:=1;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751864.png[/img] if intTemp = 65536 then intTemp:=0;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751896.png[/img] end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751927.png[/img]ModMul:=intTemp;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751942.png[/img]end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803751974.png[/img]
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752005.png[/img]function ModXor(intXor1,intXor2:int64):int64;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752036.png[/img]begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752067.png[/img]ModXor:= intXor1 xor intXor2;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752083.png[/img]end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752114.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752146.png[/img]...{--------------------------------------------------------------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752177.png[/img]
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752192.png[/img]procedure CreatePassword(strPassword:string;VAR arrPassword:array of int64;VAR arrOpenPassword:array of int64);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752224.png[/img]var
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752255.png[/img]strKey:string;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752286.png[/img]strTemp:array[1..52] of string[4];
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752317.png[/img]intStart,intCount:integer;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752333.png[/img]begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752364.png[/img]strKey:=strPassword; //
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752396.png[/img]intCount:=1;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752427.png[/img]intStart:=1;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752458.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752474.png[/img]...{--------------------产生52个16bit的加密子密钥部分-------------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752505.png[/img]while (intCount<=52) do
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752536.png[/img] begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752567.png[/img] strTemp[intCount]:=BinToHex(Copy(strKey,intStart,16));
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752583.png[/img] intStart:=intStart+16;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752614.png[/img] intCount:=intCount+1;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752646.png[/img] if ((intCount mod 8) = 1) then
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752677.png[/img] begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752708.png[/img] strKey:=LeftMove(strKey,25);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752724.png[/img] intStart:=1;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752755.png[/img] end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752786.png[/img] end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752817.png[/img]intCount:=1;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752833.png[/img]while (intCount<=52) do
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752864.png[/img] begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752896.png[/img] arrPassword[intCount-1]:=HexToTen(strTemp[intCount]);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752927.png[/img] g_arr_Ten_Password[intCount]:=arrPassword[intCount-1];
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752958.png[/img] intCount:=intCount+1;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803752989.png[/img] end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753021.png[/img]CreateOpenPassword(arrOpenPassword);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753036.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753067.png[/img]...{--------------------产生52个16bit的加密子密钥部分-------------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753099.png[/img]end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753130.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753146.png[/img]...{--------------------------------------------------------------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753192.png[/img]
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753224.png[/img]procedure GetOpenPassword(intSource:int64;VAR intResult:int64;Flag:integer);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753239.png[/img]var
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753271.png[/img]int_Source,int_Result,int_Mod_Value:int64;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753302.png[/img]int_Loop:integer;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753333.png[/img]begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753349.png[/img]int_Source:=intSource;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753380.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753411.png[/img]...{--------------------求取每个加密子密钥相应的解密子密钥部分-------------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753442.png[/img]Case Flag of
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753474.png[/img] 0: intResult:=int_Source;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753489.png[/img] 1: intResult:=65536-int_Source;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753521.png[/img] 2:
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753552.png[/img] begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753583.png[/img] if int_Source=0 then
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753599.png[/img] intResult:=int_Source
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753646.png[/img] else
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753677.png[/img] for int_Loop:=1 to 65536 do
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753708.png[/img] begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753739.png[/img] int_Result:=Int64(int_Loop)*65537+1;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753771.png[/img] int_Mod_Value:=int_Result mod int_Source;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753802.png[/img] if int_Mod_Value = 0 then
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753833.png[/img] begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753864.png[/img] int_Result:=int_Result div int_Source;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753880.png[/img] intResult:=int_Result;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753911.png[/img]
break;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753942.png[/img] end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753974.png[/img] end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803753989.png[/img] end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754021.png[/img]end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754052.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754083.png[/img]...{--------------------求取每个加密子密钥相应的解密子密钥部分-------------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754099.png[/img]end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754130.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754161.png[/img]...{--------------------------------------------------------------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754192.png[/img]
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754271.png[/img]procedure CreateKeyTable();
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754302.png[/img]var
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754333.png[/img]int_Count_CreatePassword,int_Count_OpenPassword,int_ExChange:integer;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754349.png[/img]begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754380.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754411.png[/img]...{----------------求取在产生解密子密钥时所用的参数标志对应表部分-------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754442.png[/img]for int_Count_CreatePassword:=52 downto 1 do
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754458.png[/img] Case int_Count_CreatePassword mod 6 of
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754489.png[/img] 0,5:begin g_arr_Flag[int_Count_CreatePassword]:=0; end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754521.png[/img] 2,3:begin g_arr_Flag[int_Count_CreatePassword]:=1; end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754552.png[/img] 1,4:begin g_arr_Flag[int_Count_CreatePassword]:=2; end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754583.png[/img] end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754599.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754630.png[/img]...{----------------求取在产生解密子密钥时所用的参数标志对应表部分-------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754661.png[/img]
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754692.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754724.png[/img]...{----------------求取每个加密子密钥与相应解密子密钥间的对应关系映射表部分-------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754755.png[/img]int_Count_CreatePassword:=52;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754771.png[/img]int_Count_OpenPassword:=1;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754802.png[/img]while (int_Count_CreatePassword>=1) do
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754880.png[/img]begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754896.png[/img] Case int_Count_CreatePassword mod 6 of
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754927.png[/img] 1,2,3,4:
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754958.png[/img] begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803754989.png[/img] g_arr_Table[int_Count_OpenPassword]:=int_Count_CreatePassword-3;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755021.png[/img] g_arr_Table[int_Count_OpenPassword+1]:=int_Count_CreatePassword-1;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755036.png[/img] g_arr_Table[int_Count_OpenPassword+2]:=int_Count_CreatePassword-2;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755067.png[/img] g_arr_Table[int_Count_OpenPassword+3]:=int_Count_CreatePassword;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755114.png[/img] if (int_Count_CreatePassword >=48) or (int_Count_CreatePassword <=4 ) then //首轮和末轮处理不需交换,故要再换回来
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755130.png[/img] begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755161.png[/img] int_ExChange:=g_arr_Table[int_Count_OpenPassword+1];
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755192.png[/img] g_arr_Table[int_Count_OpenPassword+1]:=g_arr_Table[int_Count_OpenPassword+2];
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755224.png[/img] g_arr_Table[int_Count_OpenPassword+2]:=int_ExChange;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755239.png[/img] end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755271.png[/img] int_Count_CreatePassword:=int_Count_CreatePassword-4;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755302.png[/img] int_Count_OpenPassword:=int_Count_OpenPassword+4;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755349.png[/img] end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755380.png[/img] 0,5:
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755411.png[/img] begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755442.png[/img] g_arr_Table[int_Count_OpenPassword]:=int_Count_CreatePassword-1;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755458.png[/img] g_arr_Table[int_Count_OpenPassword+1]:=int_Count_CreatePassword;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755489.png[/img] int_Count_CreatePassword:=int_Count_CreatePassword-2;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755521.png[/img] int_Count_OpenPassword:=int_Count_OpenPassword+2;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755552.png[/img] end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755583.png[/img] end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755599.png[/img]end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755630.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755661.png[/img]...{----------------求取每个加密子密钥与相应解密子密钥间的对应关系映射表部分-------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755692.png[/img]end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755724.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755739.png[/img]...{--------------------------------------------------------------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755771.png[/img]
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755802.png[/img]
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755833.png[/img]procedure CreateOpenPassword(VAR arrOpenPassKey:array of int64);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755849.png[/img]var
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755880.png[/img]int_Loop:integer;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755911.png[/img]arrTemp:array[1..52] of int64;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755942.png[/img]begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755974.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803755989.png[/img]...{-------------通过调用产生加、解密子密钥对应关系函数产生对应关系表部分------------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803756021.png[/img]CreateKeyTable;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803756052.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803756083.png[/img]...{-------------通过调用求解解密子密钥函数产生解密子密钥部分------------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803756114.png[/img]for int_Loop:=1 to 52 do
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803756755.png[/img] begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757099.png[/img] GetOpenPassword(g_arr_Ten_Password[int_Loop],arrTemp[g_arr_Table[int_Loop]],g_arr_Flag[int_Loop]);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757130.png[/img] end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757161.png[/img]for int_Loop:=1 to 52 do
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757208.png[/img] arrOpenPassKey[int_Loop-1]:=arrTemp[int_Loop];
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757239.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757271.png[/img]...{-------------通过调用求解解密子密钥函数产生解密子密钥部分------------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757302.png[/img]end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757333.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757349.png[/img]...{--------------------------------------------------------------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757380.png[/img]
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757411.png[/img]
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757442.png[/img]procedure Riddle(arrPassword:array of int64;arrRiddleKey:array of int64;VAR arrOpenPassword:array of int64);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757458.png[/img]var
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757489.png[/img]Count,i:integer;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757521.png[/img]V1,V2,V3,V4,V5,V6,V7,V8,V9,V10,V11,V12,V13,V14,C1,C2,C3,C4,ExChange:int64;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757552.png[/img]P:array[1..4] of int64;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757583.png[/img]begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757599.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757630.png[/img]...{------------------------数据 "解密" 算法实现部分------------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757661.png[/img]for i:=Low(arrPassword) to High(arrPassword) do
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757692.png[/img] P[i+1]:=arrPassword[i];
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757724.png[/img]Count:=0;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757739.png[/img]while (Count<48) do
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757771.png[/img]begin
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757802.png[/img] V1:= ModMul(P[1],arrRiddleKey[Count],1); //相乘 1
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757833.png[/img] Inc(Count);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757849.png[/img] V2:= ModAdd(P[2],arrRiddleKey[Count]); //相加 2
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757880.png[/img] Inc(Count);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757911.png[/img] V3:= ModAdd(P[3],arrRiddleKey[Count]); //相加 3
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757942.png[/img] Inc(Count);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803757958.png[/img] V4:= ModMul(P[4],arrRiddleKey[Count],1); //相乘 4
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758005.png[/img] Inc(Count);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758036.png[/img] V5:= ModXor(V1,V3); //异或 5
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758067.png[/img] V6:= ModXor(V2,V4); //异或 6
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758099.png[/img] V7:= ModMul(V5,arrRiddleKey[Count],1); //相乘 7
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758130.png[/img] Inc(Count);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758146.png[/img] V8:= ModAdd(V6,V7); //相加 8
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758177.png[/img] V9:= ModMul(V8,arrRiddleKey[Count],1); //相乘 9
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758208.png[/img] Inc(Count);
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758239.png[/img] V10:=ModAdd(V7,V9); //相加 10
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758255.png[/img] V11:=ModXor(V1,V9); //异或 11
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758286.png[/img] V12:=ModXor(V2,V10); //异或 12
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758317.png[/img] V13:=ModXor(V3,V9); //异或 13
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758349.png[/img] V14:=ModXor(V4,V10); //异或 14
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758380.png[/img] P[1]:=V11;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758396.png[/img] P[2]:=V13; //注意:交换中间两个输出结果
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758442.png[/img] P[3]:=V12; //注意:交换中间两个输出结果
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758474.png[/img] P[4]:=V14;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758521.png[/img]end; //结束8轮计算
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758552.png[/img]ExChange:=P[2];
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758583.png[/img]P[2]:=P[3];
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758614.png[/img]P[3]:=ExChange; //因为最后一轮无需转换,所以必须把P[2],P[3]再次转换回来
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758646.png[/img]C1:= ModMul(P[1],arrRiddleKey[48],1); //相乘 1
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758677.png[/img]C2:= ModAdd(P[2],arrRiddleKey[49]); //相加 2
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758708.png[/img]C3:= ModAdd(P[3],arrRiddleKey[50]); //相加 3
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758724.png[/img]C4:= ModMul(P[4],arrRiddleKey[51],1); //相乘 4
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758755.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758786.png[/img]...{------------------------数据 "解密" 算法实现部分------------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758817.png[/img]arrOpenPassword[Low(arrOpenPassword)]:=C1;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758833.png[/img]arrOpenPassword[Low(arrOpenPassword)+1]:=C2;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758864.png[/img]arrOpenPassword[Low(arrOpenPassword)+2]:=C3;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758896.png[/img]arrOpenPassword[Low(arrOpenPassword)+3]:=C4;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758927.png[/img]//数据解密成功!
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758942.png[/img]end;
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803758974.png[/img][img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803759005.png[/img]...{--------------------------------------------------------------------}
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803759036.png[/img]
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803759067.png[/img]end.
[img]http://images.wangchao.net.cn/images/upload/images/lsdn/1189803759083.png[/img]