本文整理自网络，侵删。
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 getprocessisadmin()判断exe是否以管理员身份启动
如何在Delphi中禁用关于“返回值...可能未定义”的警告？
Delphi 利用createservice写与桌面交互的win32服务
Delphi 以低用户权限启动一个进程.比如vista或者win7中的ie
更多相关阅读请进入《Delphi》频道 >>
