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 richedit控件中插入图片bmp(bmp,文件),gif(文件)

Delphi dbgrid上设置选择项

Delphi 播放背景音乐

Delphi 获取国外格式日期时间

Delphi isthisleapyear 判断闰年

Delphi 搜索指定目录下的文件

Delphi tparallel并行性能测试

Delphi 网站后台扫描例子

Delphi 自我复制源码

Delphi 取文件目录下所有文件名和文件目录名

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

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