频道分类

delphi 异或加解密

作者:admin 来源: 日期:2021/5/7 22:40:32 人气: 标签:

 function Int_encrypt(s:string; lkey : Integer):string;
begin
  //大于5位乘87209会有问题,改成乘以13可以支持8位
  //Result := IntToStr(StrToInt(s) xor (lkey * 4356));
  if lkey > 9999 then
    Result := IntToStr(StrToInt(s) xor (lkey * 13))
  else
    Result := IntToStr(StrToInt(s) xor (lkey * 4356));
end;
 
 
function Int_decrypt(s:string; lkey : Integer):string;
begin
  if lkey > 9999 then
    Result := IntToStr(StrToInt(s) xor (lkey * 13))
  else
    Result := IntToStr(StrToInt(s) xor (lkey * 4356));
end;
 
————————————————

原文链接:https://blog.csdn.net/y281252548/article/details/116126655