delphi 异或加解密

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