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;

 

相关阅读 >>

wmi技术介绍和应用

Delphi idhttp 设置cookie 和访问后读取cookie 值

Delphi 简单播放mp3

Delphi deletefile 删除文件

Delphi 10.3.1 android沉浸式透明状态栏

Delphi 设置richedit的行间距

Delphi 优盘背景生成器源码

Delphi thttpclient posturl

Delphi 操作前，删除前，覆盖前，询问对话框

Delphi 获得用android应用程序触摸到的位置(坐标)的方法

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

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