<iframe align="top" marginwidth="0" marginheight="0" src="http://www.zealware.com/csdnblog01.html" frameborder="0" width="728" scrolling="no" height="90"></iframe>
//
*******************************************************************************
*
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
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
分享到：
發表評論
happmaoo
- 瀏覽: 1292487 次
-
性別:
- 來自: 杭州
-
最新評論
-
netkongjian
： 不錯的軟件知識，感謝分享！
軟件加密方式 -
norce
： 效果不錯~
JS實現圖片幻燈片效果 -
zxbear
： 鏈接已失效
《jQuery基礎教程：第2版》PDF -
架構師
： 在技術領域方面Java還是世界上最好的，而且有很多第三方控件的 ...
專訪：Ruby能否成為第二個Java -
freddie
： 如何拖動表格邊框調整行高和列寬？
可編輯的表格(JavaScript)
更多文章、技術交流、商務合作、聯系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
評論