delphi 加密（置换）

最新推荐文章于 2021-06-12 18:44:52 发布

原创最新推荐文章于 2021-06-12 18:44:52 发布 · 671 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #加密 #string #integer #function

本文介绍了一种简单的字符串加密和解密算法实现方法，并提供了一个用于清理文件列表中指定文件的具体示例。

//function Encrypt(s:string):string;
//function Decrypt(s:string):string;
{const
P='abcdefghijklmnopqrstuvwxyz0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
M='hjklqwerasdfgtyuiopzxcvbnm4368019257QWFRTYUIOPZXCVBNMASDFGHJKL'; }
{function Encrypt(s:string):string;
var
i,j:integer;
str:string;
begin
Result:='';
for i:=0 to Length(s)-1 do
begin
    str:=Copy(s,i+1,1);
    j:=Pos(str,P);
    if (j>0) then
    str:=Copy(M,j,1);
    Result:=Result+str;
end;
end;

function Decrypt(s:string):string;
var
i,j:integer;
str:string;
begin
Result:='';
for i:=0 to Length(s)-1 do
begin
    str:=Copy(s,i+1,1);
    j:=Pos(str,M);
    if (j>0) then
    str:=Copy(P,j,1);
    Result:=Result+str;
end;
end; }
{procedure DelPic;
var
I_Del:Integer;
begin
For I_Del:=0 to ListBox2.Items.Count-1 do
    begin
      if FileExists(ListBox2.Items.Strings[I_Del]) then
        begin
          DeleteFile(ListBox2.Items.Strings[I_Del]);
        end;
    end;
end; }