郑州潮生活:高分寻求DOS下文件加密系统。
来源:百度文库 编辑:神马品牌网 时间:2024/08/29 02:40:51
好的可追加分!急啊!各位大哥帮帮忙啊!
源代码
procedure TForm1.Button1Click(Sender: TObject);
var
f:TextFile;
begin
assignfile(f,#255#255); //建立一个文件名为空的文件,在dos下看不见这个文件
rewrite(f);
write(f,'http://www.goomoo.net');
closefile(f);
end;
改一下文件类型(后缀名)就解开了。
如:
1).--DOS:
ren a.txt a.dat
2).--DELPHI:
procedure TForm1.Button1Click(Sender: TObject);
var
f:TextFile;
begin
assignfile(f,#255#255); //建立一个文件名为空的文件,在dos下看不见这个文件
rewrite(f);
write(f,'a.dat');
closefile(f);
end;
我想只能是通过一些特殊的方法来实现的
attrib xx.xxx -h
只是一般的隐藏,用dir /a就可以看到
大家应该都用过一种软件,可以把文件隐藏起来,只有有密码才能看到,没有密码就看不到,不知道是什么样的原理