delphi简单的字符串加密解密函数

本文整理自网络，侵删。

 function Encode(Str:String):String;
var//加密
TmpChr:AnsiChar;
i,Len:integer;
begin
Result:=Str;
Len:=Length(Result);
TmpChr:=Result[1];
for i:=1 to Len-1 do
Result[i]:=Result[i+1];
Result[Len]:=TmpChr;
end;

function Decode(Str:String):String;
var//解密
TmpChr:AnsiChar;
i,Len:integer;
begin
Result:=Str;
Len:=Length(Result);
TmpChr:=Result[Len];
for i:=Len DownTo 2 do
Result[i]:=Result[i-1];
Result[1]:=TmpChr;
end;

 

相关阅读 >>

Delphi 得到ip地址最后一个点后面的值

Delphi access 数据库压缩

Delphi研究之驱动开发篇（一）--实现原理

Delphi fmx使用 timage 显示动画图片

Delphi 比较图片是否相同

Delphi webbrowser通过遍历id查找元素是否存在

Delphi stream对象

Delphi 用拼音首字符检索汉字的源代码

Delphi 安卓app在线升级

Delphi case of

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi简单的字符串加密解密函数