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 xe5 android 解决ide真机调试不起问题

Delphi hex --> string

Delphi enumwindows 获取窗体句柄 进程id 窗体信息

Delphi 检测程序有没有被dll注入的代码

Delphi 检验指定字符串网址是否输入正确

Delphi获取盘符代码

Delphi 图像自动调整显示

Delphi xe7的android应用设定wifi的有效无效

Delphi 在xp/2k 下实现 win+ctrl+del 等键的屏蔽的方法

Delphi瞬间消除无用托盘图标(刷新托盘)

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

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