本文整理自网络，侵删。
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
相关阅读 >>
android : assets与res/raw资源目录的区别
Delphi 创建新的messagebox窗口前，先关掉之前已经创建好的
Delphi winapi: getdesktopwindow - 返回桌面窗口的句柄
更多相关阅读请进入《Delphi》频道 >>
