Delphi编写的等长加密与解密-阿里云开发者社区

Delphi编写的等长加密与解密

2017-11-13 1400

版权

本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。

简介：

最近在看一本关于网络游戏服务端开发的书，虽然该书是个空架子，里面没有多少实际的内容（此书评价不好），但其中关于等长加密与解密的代码还是有一定的借鉴作用的。他山之石，可以攻玉。因为书中是C++的代码，所以我花了半个小时的时间将它转换成了Delphi的代码。公布出来便于有这方面需要的朋友可以借鉴使用。

{
加解密单元
作者：张超
}
unit uCrypt;

interface
uses
Windows, SysUtils;

const
C1 = 52845;
C2 = 22719;
CryptKey = 72957;

function Encrypt(Source: array of Byte; var Dest: array of Byte; Len: Cardinal): BOOL; overload;
function Decrypt(Source: array of Byte; var Dest: array of Byte; Len: Cardinal): BOOL; overload;

function Encrypt(Source: String; var Dest: string): BOOL; overload;
function Decrypt(Source: String; var Dest: string): BOOL; overload;

function Encrypt(Source: Pchar; Dest: PChar; Len: Cardinal): BOOL; overload;
function Decrypt(Source: Pchar; Dest: PChar; Len: Cardinal): BOOL; overload;

implementation

function Encrypt(Source: Pchar; Dest: PChar; Len: Cardinal): BOOL; overload;
var
i: Integer;
Key: Integer;
begin
Key:=CryptKey;

//判断数据是否正常
if (not Assigned(Source)) or (not Assigned(Dest)) or (Len <=0) then
begin
Result:=False;

Exit;
end;

//循环加密每一个字节
for i:=0 to Len - 1 do
begin
Dest[i]:=Char(Byte(Source[i]) xor (Key shr 8));
Key:=(Byte(Dest[i]) + Key) * C1 + C2;
end;

Result:=True;
end;

function Decrypt(Source: Pchar; Dest: PChar; Len: Cardinal): BOOL; overload;
var
i: Integer;
Key: Integer;
PrevBlock: Byte;
begin
Key:=CryptKey;

//判断数据是否正常
if (not Assigned(Source)) or (not Assigned(Dest)) or (Len <=0) then
begin
Result:=False;

Exit;
end;

//循环加密每一个字节
for i:=0 to Len - 1 do
begin
    PrevBlock:=Byte(Source[i]);
    Dest[i]:=Char(Byte(Source[i]) xor (Key shr 8));
    Key:=(Byte(PrevBlock) + Key) * C1 + C2;
end;

Result:=True;
end;

function Encrypt(Source: String; var Dest: string): BOOL;
begin
Result:=False;

if Length(Source) > 0 then
begin
    SetLength(Dest, Length(Source));
    Encrypt(PChar(Source), PChar(Dest), Length(Source));
    Result:=True;
end;
end;

function Decrypt(Source: String; var Dest: string): BOOL;
begin
Result:=False;

if Length(Source) > 0 then
begin
    SetLength(Dest, Length(Source));
    Decrypt(PChar(Source), PChar(Dest), Length(Source));
    Result:=True;
end;
end;

function Encrypt(Source: array of Byte; var Dest: array of Byte; Len: Cardinal): BOOL;
var
i: Integer;
Key: Integer;
begin
Key:=CryptKey;

//判断数据是否正常
if Len <= 0 then
begin
Result:=False;

Exit;
end;

//循环加密每一个字节
for i:=0 to Len - 1 do
begin
Dest[i]:=Source[i] xor (Key shr 8);
Key:=(Dest[i] + Key) * C1 + C2;
end;

Result:=True;
end;

function Decrypt(Source: array of Byte; var Dest: array of Byte; Len: Cardinal): BOOL;
var
i: Integer;
PrevBlock: Byte;
Key: Integer;
begin
Key:=CryptKey;

//判断数据是否正常
if (Len <= 0) then
begin
Result:=False;

Exit;
end;

//循环解密每一个字节
for i:=0 to Len - 1 do
begin
    PrevBlock:=Source[i];
    Dest[i]:=Source[i] xor (Key shr 8);
    Key:=(PrevBlock + Key) * C1 + C2;
end;

Result:=True;
end;

end.

代码中有相关的注释，理解起来应该问题不大。由于写得仓促，难免不足。里面如果有错误，希望大家指出。

本文转自狗窝博客51CTO博客，原文链接http://blog.51cto.com/fxh7622/337456如需转载请自行联系原作者

fxh7622

Delphi编写的等长加密与解密

热门文章

最新文章

相关电子书

相关实验场景