IDEA数据加密算法介绍之续篇，代码实现：http://blog.csdn.net/CXXSoft/archive/2006/08/23/110927" />
注册 登录
> 编程技术

IDEA数据加密算法实现

系统 1957 0
<iframe align="top" marginwidth="0" marginheight="0" src="http://www.zealware.com/csdnblog01.html" frameborder="0" width="728" scrolling="no" height="90"></iframe>

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
* 开发工具:BorlandDelphi5
*
* 文件名称:IDEA.pas
* 简介:IDEA数据加密算法1.0版本
*
* 备注:任何人使用此文件时,请保留此段自述文件,谢谢 !
*
******************************************************************************/
unitIDEA;

interface

uses
Windows,Messages,SysUtils,Classes,Dialogs;
functionBinToHex(strBin:string):string;
functionHexToTen(strHex:string):int64;
functionLeftMove(S:string;P:integer):String;
functionModAdd(intAdd1,intAdd2:int64):int64;
functionModMul(intMul1,intMul2:int64;intFlag:integer):int64;
functionModXor(intXor1,intXor2:int64):int64;
procedureCreatePassword(strPassword:string;VARarrPassword:arrayofint64;VARarrOpenPassword:arrayofint64); // 产生加密子密钥函数
procedureGetOpenPassword(intSource:int64;VARintResult:int64;Flag:integer); // 求取解密子密钥函数
procedureCreateKeyTable(); // 产生加、解密子密钥之间的对应关系表
procedureRiddle(arrPassword:arrayofint64;arrRiddleKey:arrayofint64;VARarrOpenPassword:arrayofint64);StdCall;export; // IDEA数据解密函数
procedureCreateOpenPassword(VARarrOpenPassKey:arrayofint64); // 产生解密子密钥函数
procedureCreateKey(VARarrKey:arrayofint64;VARarrOpenKey:arrayofint64;VARstrOutKey:string);StdCall;export; // 产生加密密钥函数


implementation

ConststrNum:array[ 1 .. 16 ]ofstring[ 4 ] = ( ' 0000 ' , ' 0001 ' , ' 0010 ' , ' 0011 ' , ' 0100 ' , ' 0101 ' , ' 0110 ' , ' 0111 ' , ' 1000 ' , ' 1001 ' , ' 1010 ' , ' 1011 ' , ' 1100 ' , ' 1101 ' , ' 1110 ' , ' 1111 ' );
ConstchrHex: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 ]ofint64;
g_arr_Flag:array[ 1 .. 52 ]ofinteger;
g_arr_Table:array[ 1 .. 52 ]ofinteger;
... { -------------------------------------------------------------------- }

procedureCreateKey(VARarrKey:arrayofint64;VARarrOpenKey:arrayofint64;VARstrOutKey: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;
... { -------------------------------------------------------------------- }

functionBinToHex(strBin:string):string;
var
intLoop1,intLoop2:integer;
strTemp,strResult:string;
begin
intLoop1: = 1 ;
strResult: = '' ;
if Length(strBin) 16 thenShowMessage( ' 二进制数据长度有错! ' );
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;
... { -------------------------------------------------------------------- }

functionHexToTen(strHex:string):int64; // 十六进制转十进制
var
intLoop1,intLoop2,intTemp:integer;
intResult:int64;
strTemp:string;
begin
intResult: = 0 ;
intTemp: = 0 ;
if Length(strHex) 4 thenShowMessage( ' 十六进制数据长度有错! ' );
for intLoop1: = 1 to 4 do
begin
CaseintLoop1of
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;
... { -------------------------------------------------------------------- }

functionLeftMove(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 Pthen
str_Result: = S
else
begin
for i: = P + 1 toint_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;
... { -------------------------------------------------------------------- }

functionModAdd(intAdd1,intAdd2:int64):int64;
begin
ModAdd: = (intAdd1 + intAdd2)mod 65536 ; // 模65536求和
end;

functionModMul(intMul1,intMul2:int64;intFlag:integer):int64;
varintTemp:int64;
begin
intTemp: = (intMul1 * intMul2)mod 65537 ;
if intFlag = 0 then
begin
if intMul1 = 0 thenintTemp: = 65537 - intMul2;
if intMul2 = 0 thenintTemp: = 65537 - intMul1;
if intTemp = 65536 thenintTemp: = 0 ;
if intTemp = 65537 thenintTemp: = 1 ;
end
else
begin
if intMul1 = 0 thenintTemp: = 65537 - intMul2;
if intMul2 = 0 thenintTemp: = 65537 - intMul1;
if intTemp = 0 thenintTemp: = 65536 ;
if intTemp = 65537 thenintTemp: = 1 ;
if intTemp = 65536 thenintTemp: = 0 ;
end;
ModMul: = intTemp;
end;

functionModXor(intXor1,intXor2:int64):int64;
begin
ModXor: = intXor1xorintXor2;
end;
... { -------------------------------------------------------------------- }

procedureCreatePassword(strPassword:string;VARarrPassword:arrayofint64;VARarrOpenPassword:arrayofint64);
var
strKey:string;
strTemp:array[ 1 .. 52 ]ofstring[ 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 ((intCountmod 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;
... { -------------------------------------------------------------------- }

procedureGetOpenPassword(intSource:int64;VARintResult:int64;Flag:integer);
var
int_Source,int_Result,int_Mod_Value:int64;
int_Loop:integer;
begin
int_Source: = intSource;
... { -------------------- 求取每个加密子密钥相应的解密子密钥部分 ------------------- }
CaseFlagof
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_Resultmodint_Source;
if int_Mod_Value = 0 then
begin
int_Result: = int_Resultdivint_Source;
intResult: = int_Result;
break ;
en
分享到：
| 经典面试问题：12小球问题算法(源码)
评论
发表评论

您还没有登录,请您登录后再发表评论

happmaoo
  • 浏览: 1292487 次
  • 性别: Icon_minigender_1
  • 来自: 杭州
最新评论

IDEA数据加密算法实现


更多文章、技术交流、商务合作、联系博主

微信扫码或搜索：z360901061

微信扫一扫加我为好友

QQ号联系： 360901061

您的支持是博主写作最大的动力，如果您喜欢我的文章，感觉我的文章对您有帮助，请用微信扫描下面二维码支持博主2元、5元、10元、20元等您想捐的金额吧，狠狠点击下面给点支持吧，站长非常感激您！手机微信长按不能支付解决办法：请将微信支付二维码保存到相册，切换到微信，然后点击微信右上角扫一扫功能，选择支付二维码完成支付。

【本文对您有帮助就好】元

您的支持是博主写作最大的动力，如果您喜欢我的文章，感觉我的文章对您有帮助，请用微信扫描上面二维码支持博主2元、5元、10元、自定义金额等您想捐的金额吧，站长会非常 感谢您的哦！！！

发表我的评论
最新评论 总共0条评论