delphi 加密(置换)

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

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

 //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; }

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值