异或加密解密代码

最新推荐文章于 2022-05-13 09:11:03 发布

weixin_30825581

最新推荐文章于 2022-05-13 09:11:03 发布

阅读量339

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/xiaomangnan/p/8961937.html

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[i]) 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;