本文整理自网络，侵删。
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
相关阅读 >>
Delphi在设计时设置tstringgrid控件各列的列宽
Delphi listview 导出excel txt vcf 单元
更多相关阅读请进入《Delphi》频道 >>
