本文整理自网络，侵删。
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 利用createservice写与桌面交互的win32服务
Delphi twebbrowser get html source after ajax load
Delphi windows 编程[4] - 学习窗体生成的过程四
Delphi xe system.netencoding 字符串base64编码解码
Delphi通过spcomm com口发短信包括pud编码解码
更多相关阅读请进入《Delphi》频道 >>
