求解加密（编码）方法。(200分)

  • 主题发起人 主题发起人 greenwon
  • 开始时间 开始时间
G

greenwon

Unregistered / Unconfirmed
GUEST, unregistred user!
请先看原字符和加密后的列表：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
原字符：A B C D E F G H I J K L M N O P Q R S T U V W X Y
加密后：F3 F0 F1 F6 F7 F4 F5 FA FB F8 F9 FE FF FC FD E3 E3 E0 E1 E6 E7 E4 E5 EA EB
以上是单个字符时。
当多个字符时又不同了
例如：AAAAAAAAAAAAAA MAMAMAMAMAMAMA
则成：F348EB14D22CC506FC48 FF48E714DE2CC906FF48
。汉字加密后是四位数：如‘王’加密后：7FFC

我的发现：
　　虽然同一个字符，但在不同位置加密后也不同。
　　第1－8位与第9－16位是重复的
 
去书店吧![:)]
 
你是想破解上面的加密方法还是想自己要作一个加密方法???
破解的话我觉得不太可能，至少要花很多时间，自己作的话，就有很多方法了。
最简单的就是用Not.
 
网上有各种加解密算法的源代码，你可以到www.torry.ru看看，在Security分类里。
老实说，除非你数学理论非常好，否则一般不要自己构造加密算法，否则，一旦
泄漏源代码就可能玩完了。
 
反汇编之
 
100分求内存流加密方法>>不用太复杂!!
谢谢瓦尔德纳泽
 
http://www.cityinthesky.co.uk/cryptography.html

DCPcrypt is an open source library of cryptographic components
(encryption and hash algorithms) for Borland Delphi 4, 5, 6, C++ Builder (3?),
4, 5, 6 and Kylix 1, 2 for Linux. Although the library itself is open source,
some of the algorithms within the package require licensing from the
respective patent holders.

The idea behind DCPcrypt is that it should be possible to "drop in" any
algorithm implementation to replace another with minimum or no code changes.
To aid in this goal all cryptographic components are descended from one of
several base classes, TDCP_cipher for encryption algorithms and TDCP_hash
for message digest algorithms.
==========
download:
DCPcrypt v2 Beta 2 :
http://www.cityinthesky.co.uk/cgi-bin/schlabo/dl.pl?dcpcrypt2
DCPcrypt v1.31 :
http://www.cityinthesky.co.uk/cgi-bin/schlabo/dl.pl?dcpcrypt

上面有各种著名的加解密和Hash算法源代码，里面有demo.
文件不到，还不到200k，你可以留下email, 我发给你。
 
我这里倒是有一个自己简单包装的Cast128加密算法，需要的话我可以发给你
 
这个问题与Object Pascal无关，建议转移到“数据结构”分类。

这种玩意儿也能加密？！您没有发现P和Q的“加密”结果均为 E3 吗？这样加密，如何解
密？给你一个E3，你怎么知道到底应该是P还是Q？


我根据你给出的数据进行了分析，由第一组数据可以发现——这个所谓的加密算法只不过
是最基本的XOR加密算法，你将原始数据的ASCII码和$B2进行异或运算即可得到密文（P对应
的密文应该为E2）。将密文再次与$B2进行异或运算即可得到明文。
根据第二组数据，可以判定该算法使用的是固定的XOR加密，密钥就是 明文 xor 密文 的
结果，即: $4141414141... xor $F348EB14D2... = $B209AA5593...
代入第二组进行检验： $4D414D414D... xor $B209AA5593... = $FF48E714DE...
——完全吻合。

Done!
 
creation-zy:
多谢您的回答，能不能详细的讲多一点？
 
const
XorKey:array[0..7] of Byte=($B2,$09,$AA,$55,$93,$6D,$84,$47);
function Enc(Str:String):String;
var
i,j:Integer;
begin
Result:='';
j:=0;
for i:=1 to Length(Str) do
begin
Result:=Result+IntToHex(Byte(Str) xor XorKey[j],2);
j:=(j+1) mod 8;
end;
end;
function Dec(Str:String):String;
var
i,j:Integer;
begin
Result:='';
j:=0;
for i:=1 to Length(Str) div 2 do
begin
Result:=Result+Char(StrToInt('$'+Copy(Str,i*2-1,2)) xor XorKey[j]);
j:=(j+1) mod 8;
end;
end;
procedure TForm1.Button1Click(Sender: TObject)
//加密
begin
Edit2.Text:=Enc(Edit1.Text);
end;
procedure TForm1.Button2Click(Sender: TObject)
//解密
begin
Edit3.Text:=Dec(Edit2.Text);
end;

还满意吗？
 
用下面这个吧，
1、它很简单（指用起来）
2、我一直用它（不是大宝）
function EnCrypt(aStr: string
aKey: string = 'paradox'): string;//加密
function DeCrypt(aStr: string
aKey: string = 'paradox'): string;//解密

unit DESUnit;

interface
uses
SysUtils;

function EnCrypt(aStr: string
aKey: string = 'paradox'): string;
function DeCrypt(aStr: string
aKey: string = 'paradox'): string;

implementation

type
TByte32 = array[1..32] of Byte;
TSData = array[0..63] of Byte;
TBlock = array[0..7] of Byte;


const
SA1: TSData =
(1, 0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1,
0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1);
SA2: TSData =
(1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 0, 1, 1, 0,
0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 1);
SA3: TSData =
(1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0,
1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1);
SA4: TSData =
(0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1,
1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1);
SA5: TSData =
(0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0,
0, 0, 0, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0);
SA6: TSData =
(1, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1,
1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1);
SA7: TSData =
(0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0,
0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1);
SA8: TSData =
(1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0,
0, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1);
SB1: TSData =
(1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 1, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0,
1, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1);
SB2: TSData =
(1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1,
0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0);
SB3: TSData =
(0, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 0, 1, 0,
1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1);
SB4: TSData =
(1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0,
0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1);
SB5: TSData =
(0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 1, 0, 1, 0, 0, 0, 0, 1,
1, 0, 0, 0, 0, 1, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0);
SB6: TSData =
(1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0,
0, 1, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1);
SB7: TSData =
(1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1, 0, 1,
0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 0, 1);
SB8: TSData =
(1, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0,
1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0);
SC1: TSData =
(1, 0, 0, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0,
0, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1, 1, 1, 0, 1, 0);
SC2: TSData =
(1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0,
0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0);
SC3: TSData =
(1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 0, 1, 1, 0,
0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 1, 0, 1, 0);
SC4: TSData =
(1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0,
1, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1);
SC5: TSData =
(1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 1,
0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1);
SC6: TSData =
(0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0,
0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 0, 0, 0);
SC7: TSData =
(0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1,
0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0);
SC8: TSData =
(0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1,
1, 1, 0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1);
SD1: TSData =
(0, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0,
0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1);
SD2: TSData =
(1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 1,
0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1);
SD3: TSData =
(0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 1,
1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0);
SD4: TSData =
(1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1,
0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0);
SD5: TSData =
(0, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 0, 0,
0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 1);
SD6: TSData =
(0, 1, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0,
1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1);
SD7: TSData =
(0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0,
1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0);
SD8: TSData =
(1, 0, 0, 0, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0,
1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1);

Sc: array[1..16, 1..48] of Byte =
((15, 18, 12, 25, 2, 6, 4, 1, 16, 7, 22, 11, 24, 20, 13, 5, 27, 9, 17, 8, 28, 21, 14, 3,
42, 53, 32, 38, 48, 56, 31, 41, 52, 46, 34, 49, 45, 50, 40, 29, 35, 54, 47, 43, 51, 37, 30, 33),
(16, 19, 13, 26, 3, 7, 5, 2, 17, 8, 23, 12, 25, 21, 14, 6, 28, 10, 18, 9, 1, 22, 15, 4,
43, 54, 33, 39, 49, 29, 32, 42, 53, 47, 35, 50, 46, 51, 41, 30, 36, 55, 48, 44, 52, 38, 31, 34),
(18, 21, 15, 28, 5, 9, 7, 4, 19, 10, 25, 14, 27, 23, 16, 8, 2, 12, 20, 11, 3, 24, 17, 6,
45, 56, 35, 41, 51, 31, 34, 44, 55, 49, 37, 52, 48, 53, 43, 32, 38, 29, 50, 46, 54, 40, 33, 36),
(20, 23, 17, 2, 7, 11, 9, 6, 21, 12, 27, 16, 1, 25, 18, 10, 4, 14, 22, 13, 5, 26, 19, 8,
47, 30, 37, 43, 53, 33, 36, 46, 29, 51, 39, 54, 50, 55, 45, 34, 40, 31, 52, 48, 56, 42, 35, 38),
(22, 25, 19, 4, 9, 13, 11, 8, 23, 14, 1, 18, 3, 27, 20, 12, 6, 16, 24, 15, 7, 28, 21, 10,
49, 32, 39, 45, 55, 35, 38, 48, 31, 53, 41, 56, 52, 29, 47, 36, 42, 33, 54, 50, 30, 44, 37, 40),
(24, 27, 21, 6, 11, 15, 13, 10, 25, 16, 3, 20, 5, 1, 22, 14, 8, 18, 26, 17, 9, 2, 23, 12,
51, 34, 41, 47, 29, 37, 40, 50, 33, 55, 43, 30, 54, 31, 49, 38, 44, 35, 56, 52, 32, 46, 39, 42),
(26, 1, 23, 8, 13, 17, 15, 12, 27, 18, 5, 22, 7, 3, 24, 16, 10, 20, 28, 19, 11, 4, 25, 14,
53, 36, 43, 49, 31, 39, 42, 52, 35, 29, 45, 32, 56, 33, 51, 40, 46, 37, 30, 54, 34, 48, 41, 44),
(28, 3, 25, 10, 15, 19, 17, 14, 1, 20, 7, 24, 9, 5, 26, 18, 12, 22, 2, 21, 13, 6, 27, 16,
55, 38, 45, 51, 33, 41, 44, 54, 37, 31, 47, 34, 30, 35, 53, 42, 48, 39, 32, 56, 36, 50, 43, 46),
(1, 4, 26, 11, 16, 20, 18, 15, 2, 21, 8, 25, 10, 6, 27, 19, 13, 23, 3, 22, 14, 7, 28, 17,
56, 39, 46, 52, 34, 42, 45, 55, 38, 32, 48, 35, 31, 36, 54, 43, 49, 40, 33, 29, 37, 51, 44, 47),
(3, 6, 28, 13, 18, 22, 20, 17, 4, 23, 10, 27, 12, 8, 1, 21, 15, 25, 5, 24, 16, 9, 2, 19,
30, 41, 48, 54, 36, 44, 47, 29, 40, 34, 50, 37, 33, 38, 56, 45, 51, 42, 35, 31, 39, 53, 46, 49),
(5, 8, 2, 15, 20, 24, 22, 19, 6, 25, 12, 1, 14, 10, 3, 23, 17, 27, 7, 26, 18, 11, 4, 21,
32, 43, 50, 56, 38, 46, 49, 31, 42, 36, 52, 39, 35, 40, 30, 47, 53, 44, 37, 33, 41, 55, 48, 51),
(7, 10, 4, 17, 22, 26, 24, 21, 8, 27, 14, 3, 16, 12, 5, 25, 19, 1, 9, 28, 20, 13, 6, 23,
34, 45, 52, 30, 40, 48, 51, 33, 44, 38, 54, 41, 37, 42, 32, 49, 55, 46, 39, 35, 43, 29, 50, 53),
(9, 12, 6, 19, 24, 28, 26, 23, 10, 1, 16, 5, 18, 14, 7, 27, 21, 3, 11, 2, 22, 15, 8, 25,
36, 47, 54, 32, 42, 50, 53, 35, 46, 40, 56, 43, 39, 44, 34, 51, 29, 48, 41, 37, 45, 31, 52, 55),
(11, 14, 8, 21, 26, 2, 28, 25, 12, 3, 18, 7, 20, 16, 9, 1, 23, 5, 13, 4, 24, 17, 10, 27,
38, 49, 56, 34, 44, 52, 55, 37, 48, 42, 30, 45, 41, 46, 36, 53, 31, 50, 43, 39, 47, 33, 54, 29),
(13, 16, 10, 23, 28, 4, 2, 27, 14, 5, 20, 9, 22, 18, 11, 3, 25, 7, 15, 6, 26, 19, 12, 1,
40, 51, 30, 36, 46, 54, 29, 39, 50, 44, 32, 47, 43, 48, 38, 55, 33, 52, 45, 41, 49, 35, 56, 31),
(14, 17, 11, 24, 1, 5, 3, 28, 15, 6, 21, 10, 23, 19, 12, 4, 26, 8, 16, 7, 27, 20, 13, 2,
41, 52, 31, 37, 47, 55, 30, 40, 51, 45, 33, 48, 44, 49, 39, 56, 34, 53, 46, 42, 50, 36, 29, 32));

var
G: array[1..16, 1..48] of Byte;
L, R, F: TByte32;
C: array[1..56] of Byte;

procedure DES_Init(Key: TBlock
FCode: Boolean);
var
n, h: Byte;
begin
C[1] := Ord(Key[7] and 128 > 0)
C[29] := Ord(Key[7] and 2 > 0);
C[2] := Ord(Key[6] and 128 > 0)
C[30] := Ord(Key[6] and 2 > 0);
C[3] := Ord(Key[5] and 128 > 0)
C[31] := Ord(Key[5] and 2 > 0);
C[4] := Ord(Key[4] and 128 > 0)
C[32] := Ord(Key[4] and 2 > 0);
C[5] := Ord(Key[3] and 128 > 0)
C[33] := Ord(Key[3] and 2 > 0);
C[6] := Ord(Key[2] and 128 > 0)
C[34] := Ord(Key[2] and 2 > 0);
C[7] := Ord(Key[1] and 128 > 0)
C[35] := Ord(Key[1] and 2 > 0);
C[8] := Ord(Key[0] and 128 > 0)
C[36] := Ord(Key[0] and 2 > 0);

C[9] := Ord(Key[7] and 64 > 0)
C[37] := Ord(Key[7] and 4 > 0);
C[10] := Ord(Key[6] and 64 > 0)
C[38] := Ord(Key[6] and 4 > 0);
C[11] := Ord(Key[5] and 64 > 0)
C[39] := Ord(Key[5] and 4 > 0);
C[12] := Ord(Key[4] and 64 > 0)
C[40] := Ord(Key[4] and 4 > 0);
C[13] := Ord(Key[3] and 64 > 0)
C[41] := Ord(Key[3] and 4 > 0);
C[14] := Ord(Key[2] and 64 > 0)
C[42] := Ord(Key[2] and 4 > 0);
C[15] := Ord(Key[1] and 64 > 0)
C[43] := Ord(Key[1] and 4 > 0);
C[16] := Ord(Key[0] and 64 > 0)
C[44] := Ord(Key[0] and 4 > 0);

C[17] := Ord(Key[7] and 32 > 0)
C[45] := Ord(Key[7] and 8 > 0);
C[18] := Ord(Key[6] and 32 > 0)
C[46] := Ord(Key[6] and 8 > 0);
C[19] := Ord(Key[5] and 32 > 0)
C[47] := Ord(Key[5] and 8 > 0);
C[20] := Ord(Key[4] and 32 > 0)
C[48] := Ord(Key[4] and 8 > 0);
C[21] := Ord(Key[3] and 32 > 0)
C[49] := Ord(Key[3] and 8 > 0);
C[22] := Ord(Key[2] and 32 > 0)
C[50] := Ord(Key[2] and 8 > 0);
C[23] := Ord(Key[1] and 32 > 0)
C[51] := Ord(Key[1] and 8 > 0);
C[24] := Ord(Key[0] and 32 > 0)
C[52] := Ord(Key[0] and 8 > 0);

C[25] := Ord(Key[7] and 16 > 0)
C[53] := Ord(Key[3] and 16 > 0);
C[26] := Ord(Key[6] and 16 > 0)
C[54] := Ord(Key[2] and 16 > 0);
C[27] := Ord(Key[5] and 16 > 0)
C[55] := Ord(Key[1] and 16 > 0);
C[28] := Ord(Key[4] and 16 > 0)
C[56] := Ord(Key[0] and 16 > 0);

if FCode then
begin
for n := 1 to 16 do
begin
for h := 1 to 48 do
begin
G[n, h] := C[Sc[n, h]];
end;
end;
end
else
begin
for n := 1 to 16 do
begin
for h := 1 to 48 do
begin
G[17 - n, h] := C[Sc[n, h]];
end;
end;
end;
end;

procedure DES_Code(Input: TBlock
var Output: TBlock);
var
n: Byte;
z: Word;
begin
L[1] := Ord(Input[7] and 64 > 0)
R[1] := Ord(Input[7] and 128 > 0);
L[2] := Ord(Input[6] and 64 > 0)
R[2] := Ord(Input[6] and 128 > 0);
L[3] := Ord(Input[5] and 64 > 0)
R[3] := Ord(Input[5] and 128 > 0);
L[4] := Ord(Input[4] and 64 > 0)
R[4] := Ord(Input[4] and 128 > 0);
L[5] := Ord(Input[3] and 64 > 0)
R[5] := Ord(Input[3] and 128 > 0);
L[6] := Ord(Input[2] and 64 > 0)
R[6] := Ord(Input[2] and 128 > 0);
L[7] := Ord(Input[1] and 64 > 0)
R[7] := Ord(Input[1] and 128 > 0);
L[8] := Ord(Input[0] and 64 > 0)
R[8] := Ord(Input[0] and 128 > 0);
L[9] := Ord(Input[7] and 16 > 0)
R[9] := Ord(Input[7] and 32 > 0);
L[10] := Ord(Input[6] and 16 > 0)
R[10] := Ord(Input[6] and 32 > 0);
L[11] := Ord(Input[5] and 16 > 0)
R[11] := Ord(Input[5] and 32 > 0);
L[12] := Ord(Input[4] and 16 > 0)
R[12] := Ord(Input[4] and 32 > 0);
L[13] := Ord(Input[3] and 16 > 0)
R[13] := Ord(Input[3] and 32 > 0);
L[14] := Ord(Input[2] and 16 > 0)
R[14] := Ord(Input[2] and 32 > 0);
L[15] := Ord(Input[1] and 16 > 0)
R[15] := Ord(Input[1] and 32 > 0);
L[16] := Ord(Input[0] and 16 > 0)
R[16] := Ord(Input[0] and 32 > 0);
L[17] := Ord(Input[7] and 4 > 0)
R[17] := Ord(Input[7] and 8 > 0);
L[18] := Ord(Input[6] and 4 > 0)
R[18] := Ord(Input[6] and 8 > 0);
L[19] := Ord(Input[5] and 4 > 0)
R[19] := Ord(Input[5] and 8 > 0);
L[20] := Ord(Input[4] and 4 > 0)
R[20] := Ord(Input[4] and 8 > 0);
L[21] := Ord(Input[3] and 4 > 0)
R[21] := Ord(Input[3] and 8 > 0);
L[22] := Ord(Input[2] and 4 > 0)
R[22] := Ord(Input[2] and 8 > 0);
L[23] := Ord(Input[1] and 4 > 0)
R[23] := Ord(Input[1] and 8 > 0);
L[24] := Ord(Input[0] and 4 > 0)
R[24] := Ord(Input[0] and 8 > 0);
L[25] := Input[7] and 1
R[25] := Ord(Input[7] and 2 > 0);
L[26] := Input[6] and 1
R[26] := Ord(Input[6] and 2 > 0);
L[27] := Input[5] and 1
R[27] := Ord(Input[5] and 2 > 0);
L[28] := Input[4] and 1
R[28] := Ord(Input[4] and 2 > 0);
L[29] := Input[3] and 1
R[29] := Ord(Input[3] and 2 > 0);
L[30] := Input[2] and 1
R[30] := Ord(Input[2] and 2 > 0);
L[31] := Input[1] and 1
R[31] := Ord(Input[1] and 2 > 0);
L[32] := Input[0] and 1
R[32] := Ord(Input[0] and 2 > 0);

for n := 1 to 16 do
begin
z := ((R[32] xor G[n, 1]) shl 5) or ((R[5] xor G[n, 6]) shl 4)
or ((R[ 1] xor G[n, 2]) shl 3) or ((R[2] xor G[n, 3]) shl 2)
or ((R[ 3] xor G[n, 4]) shl 1) or ( R[4] xor G[n, 5]);
F[ 9] := L[ 9] xor SA1[z];
F[17] := L[17] xor SB1[z];
F[23] := L[23] xor SC1[z];
F[31] := L[31] xor SD1[z];

z := ((R[4] xor G[n, 7]) shl 5) or ((R[9] xor G[n, 12]) shl 4)
or ((R[5] xor G[n, 8]) shl 3) or ((R[6] xor G[n, 9]) shl 2)
or ((R[7] xor G[n, 10]) shl 1) or ( R[8] xor G[n, 11]);
F[13] := L[13] xor SA2[z];
F[28] := L[28] xor SB2[z];
F[ 2] := L[ 2] xor SC2[z];
F[18] := L[18] xor SD2[z];

z := ((R[ 8] xor G[n, 13]) shl 5) or ((R[13] xor G[n, 18]) shl 4)
or ((R[ 9] xor G[n, 14]) shl 3) or ((R[10] xor G[n, 15]) shl 2)
or ((R[11] xor G[n, 16]) shl 1) or ( R[12] xor G[n, 17]);
F[24] := L[24] xor SA3[z];
F[16] := L[16] xor SB3[z];
F[30] := L[30] xor SC3[z];
F[ 6] := L[ 6] xor SD3[z];

z := ((R[12] xor G[n, 19]) shl 5) or ((R[17] xor G[n, 24]) shl 4)
or ((R[13] xor G[n, 20]) shl 3) or ((R[14] xor G[n, 21]) shl 2)
or ((R[15] xor G[n, 22]) shl 1) or ( R[16] xor G[n, 23]);
F[26] := L[26] xor SA4[z];
F[20] := L[20] xor SB4[z];
F[10] := L[10] xor SC4[z];
F[ 1] := L[ 1] xor SD4[z];

z := ((R[16] xor G[n, 25]) shl 5) or ((R[21] xor G[n, 30]) shl 4)
or ((R[17] xor G[n, 26]) shl 3) or ((R[18] xor G[n, 27]) shl 2)
or ((R[19] xor G[n, 28]) shl 1) or ( R[20] xor G[n, 29]);
F[ 8] := L[ 8] xor SA5[z];
F[14] := L[14] xor SB5[z];
F[25] := L[25] xor SC5[z];
F[ 3] := L[ 3] xor SD5[z];

z := ((R[20] xor G[n, 31]) shl 5) or ((R[25] xor G[n, 36]) shl 4)
or ((R[21] xor G[n, 32]) shl 3) or ((R[22] xor G[n, 33]) shl 2)
or ((R[23] xor G[n, 34]) shl 1) or ( R[24] xor G[n, 35]);
F[ 4] := L[ 4] xor SA6[z];
F[29] := L[29] xor SB6[z];
F[11] := L[11] xor SC6[z];
F[19] := L[19] xor SD6[z];

z := ((R[24] xor G[n, 37]) shl 5) or ((R[29] xor G[n, 42]) shl 4)
or ((R[25] xor G[n, 38]) shl 3) or ((R[26] xor G[n, 39]) shl 2)
or ((R[27] xor G[n, 40]) shl 1) or ( R[28] xor G[n, 41]);
F[32] := L[32] xor SA7[z];
F[12] := L[12] xor SB7[z];
F[22] := L[22] xor SC7[z];
F[ 7] := L[ 7] xor SD7[z];

z := ((R[28] xor G[n, 43]) shl 5) or ((R[ 1] xor G[n, 48]) shl 4)
or ((R[29] xor G[n, 44]) shl 3) or ((R[30] xor G[n, 45]) shl 2)
or ((R[31] xor G[n, 46]) shl 1) or ( R[32] xor G[n, 47]);
F[ 5] := L[ 5] xor SA8[z];
F[27] := L[27] xor SB8[z];
F[15] := L[15] xor SC8[z];
F[21] := L[21] xor SD8[z];

L := R;
R := F;
end;

Output[0] := (L[8] shl 7) or (R[8] shl 6) or (L[16] shl 5) or (R[16] shl 4)
or (L[24] shl 3) or (R[24] shl 2) or (L[32] shl 1) or R[32];
Output[1] := (L[7] shl 7) or (R[7] shl 6) or (L[15] shl 5) or (R[15] shl 4)
or (L[23] shl 3) or (R[23] shl 2) or (L[31] shl 1) or R[31];
Output[2] := (L[6] shl 7) or (R[6] shl 6) or (L[14] shl 5) or (R[14] shl 4)
or (L[22] shl 3) or (R[22] shl 2) or (L[30] shl 1) or R[30];
Output[3] := (L[5] shl 7) or (R[5] shl 6) or (L[13] shl 5) or (R[13] shl 4)
or (L[21] shl 3) or (R[21] shl 2) or (L[29] shl 1) or R[29];
Output[4] := (L[4] shl 7) or (R[4] shl 6) or (L[12] shl 5) or (R[12] shl 4)
or (L[20] shl 3) or (R[20] shl 2) or (L[28] shl 1) or R[28];
Output[5] := (L[3] shl 7) or (R[3] shl 6) or (L[11] shl 5) or (R[11] shl 4)
or (L[19] shl 3) or (R[19] shl 2) or (L[27] shl 1) or R[27];
Output[6] := (L[2] shl 7) or (R[2] shl 6) or (L[10] shl 5) or (R[10] shl 4)
or (L[18] shl 3) or (R[18] shl 2) or (L[26] shl 1) or R[26];
Output[7] := (L[1] shl 7) or (R[1] shl 6) or (L[9] shl 5) or (R[9] shl 4)
or (L[17] shl 3) or (R[17] shl 2) or (L[25] shl 1) or R[25];
end;

function StrToKey(aKey: string): TBlock;
var
Key : TBlock;
I : Integer;
begin
FillChar(Key, SizeOf(TBlock), 0);
for I := 1 to Length(aKey) do
begin
Key[I mod SizeOf(TBlock)] := Key[I mod SizeOf(TBlock)] + Ord(aKey);
end;

result := Key;
end;

function EnCrypt(aStr: string
aKey: string = 'paradox'): string;
var
ReadBuf : TBlock;
WriteBuf: TBlock;
Key : TBlock;
Count : Integer;
Offset : Integer;

I : Integer;
S : string;
begin
result := '';

Key := StrToKey(aKey);
Des_Init(Key, True);

Offset := 1;
Count := Length(aStr);
repeat
S := Copy(aStr, Offset, 8);
FillChar(ReadBuf, 8, 0);
Move(S[1], ReadBuf, Length(S));
Des_Code(ReadBuf, WriteBuf);

for I := 0 to 7 do
begin
result := result + IntToHex(WriteBuf, 2);
end;

Offset := Offset + 8;
until Offset > ((Count+7) div 8) * 8;
end;

function DeCrypt(aStr: string
aKey: string = 'paradox'): string;
var
ReadBuf,
WriteBuf : TBlock;
Key : TBlock;
Offset : Integer;
Count : Integer;
I : Integer;
S : string;
begin
try
Key := StrToKey(aKey);
Des_Init(Key, False);

S := '';
I := 1;
repeat
S := S + Chr(StrToInt('$'+Copy(aStr, I, 2)));
Inc(I, 2);
until I > Length(aStr);

Offset := 1;
Count := Length(S);
while Offset < ((Count+7) div 8 * 8) do
begin
FillChar(ReadBuf, 8, 0);
Move(S[Offset], ReadBuf, 8);
Des_Code(ReadBuf, WriteBuf);

for I := 0 to 7 do
begin
result := result + Chr(WriteBuf);
end;

Offset := Offset + 8;
end;

result := StrPas(PChar(result));
except
result := '';
end;
end;

end.
 
多谢creation-zy的回答案，多谢大家的参与。
 
您必须登录或注册才可回复。

Similar threads

D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
2K
DelphiTeacher的专栏
D
D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
1K
DelphiTeacher的专栏
D
c5soft
RC6加密解密算法（MD5）
回复
1
查看
1K
seling
seling
I
编写定制的文件流实现文件读写加密
回复
0
查看
822
import
I
I
Delphi中预编译指令的使用方法
回复
0
查看
718
import
I
后退
顶部