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