如何彻底删除文件? (200分)

icic_icic · 2004-02-27

比如我要删除文件 d:/abc.doc 一般想到是用API函数 DeleteFile(FileName

char) 所以在我的程序里写的是  DeleteFile(Pchar('d:/abc.doc')); 但是删除成功后，有个朋友说，我可以恢复你删除的那个文件。于是他使用 了一个叫EasyRecovery的软件，成功地让abc.doc重新出现在硬盘上。大家不妨 也来试一试这个软件，下载地址: http://schttp.skycn.net/down/fo-erp6.zip 我想让别人无法恢复删除的文件，有什么办法能够彻底地删除呢?

weiwei81123 · 2004-02-27

先写入全0再删除,这样恢复了也没用

JamesBond_L · 2004-02-27

是啊，原理就是就打開你要刪除的文件，然後向裡面亂寫一些東西，再刪除。

icic_icic · 2004-02-27

我的想法是让他连文件也找不到。

东兰梦舞 · 2004-02-27

你可以这样，打开文件，写满#0，关闭文件，将文件名改为一个随机数，然后删除…… 我让你恢复，我让你恢复……[

]

JamesBond_L · 2004-02-27

不知道能否先改名再刪除呢？改成一個很不規範名稱，再刪除看看？試過沒有？

icic_icic · 2004-02-27

还是能找到文件呀？[^]

vmao · 2004-02-27

这个和程序无关！deletefile就已经删除了！ EasyRecovery也不是是所有的删除文件都可以恢复，要求原来放文件的磁道没有被新的文件覆盖才能还原回来，这和操作系统有关系！所以你可以不理会这个！有本事你让它还原你的数据库记录试试！ 可以想象一下，为什么我们删文件比 copy文件快呢？因为删文件只要改FAT32的头目录中对应的地址去掉就可以了！而不需要实际去写原来文件的每一个bit!

icic_icic · 2004-02-27

那我删除掉文件后，必须要写入东东，才能彻底让人找不到我的文件？

XWHope · 2004-02-27

不仅仅是写入 而是要覆盖你以前文件所使用的区域 这样才不可恢复

gf101xt · 2004-02-27

参考FileWiper……有源码的！

icic_icic · 2004-02-27

刚刚在阿榕软件网找到一个软件:文件粉碎机 http://61.155.234.70/arongsoft/soft/332.htm 注册码 Name: Team TSZ s/n: 42I2Z4Z444HPHF4 下载地址 http://sd-http.skycn.net/down/fpsetup.exe 介绍里面说:文件粉碎机采用的技术不是普通软件普遍采用的“数据填充”来彻底删除数据，而是采用自己的删除引擎。 现在知道了，“数据填充”是一种切实可行的办法，但是这个软件却不是这采用的这种方式。 所以我怀疑，用来删除文件或目录，Win32API里还有其它的函数，谁有一点印象吗？

ETimeFly · 2004-02-27

但你无法保证写入的内容刚好覆盖到删除的文件以前所在的磁盘扇区。 查查看汇编能否实现写指定的磁盘扇区！

hardware007 · 2004-02-27

用个空文件覆盖再删除

icic_icic · 2004-02-27

找到了FileWiper的主页,在这个页面 http://www.ancort.ru/English/download.htm 可惜没有源码，是个俄国人写的软件

艾伦希亚 · 2004-02-28

procedure WipeFile(FileName: string); var   buffer: array[0..4095] of Byte;   max,n: LongInt;   i: integer;   fs: TFileStream;   procedure RandomizeBuffer;   var     i: integer;     begin       for i:=Low(buffer) to High(buffer) do         buffer:=Random(256);     end; begin   fs:=TFileStream.Create(FileName,fmOpenReadWrite or fmShareExclusive);   try     for i:=1 to 3 do     begin       RandomizeBuffer;       max:=fs.Size;       fs.Position:=0;       while max=0 do       begin         if max=sizeof(buffer) then           n:=sizeof(buffer)         else           n:=max;         fs.Write(buffer,n);         max:=max-n;       end;       FlushFileBuffers(fs.Handle);     end;   finally     fs.Free;   end;   Deletefile(FileName); end;

yeszhang · 2004-02-27

FlushFileBuffer??

icic_icic · 2004-02-27

在改正了一些小错误后，艾伦希亚的程序我已经试过了，比如d:/123.txt， 用这段程序删除后，再使用EasyRecovery可以100%的还原。

jeff86 · 2004-02-27

to :icic_icic &艾伦希亚 FlushFileBuffer  在那個單元里unit

icic_icic · 2004-02-27

不是FlushFileBuffer而是FlushFileBuffers; 还有中间一处fx也改成了fs 下面是我改好的程序，已经实现了将文件内容清空的功能，但是还是能用EasyRecovery恢复出文件名来。 unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     Edit1: TEdit;     procedure Button1Click(Sender: TObject);     procedure WipeFile(FileName: string);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin    wipefile(edit1.Text); end; procedure TForm1.WipeFile(FileName: string); var    max,n: LongInt;    i: integer;    fs: TFileStream;    buffer: array[0..4095] of char; begin    for i:=Low(buffer) to High(buffer) do buffer:=#0;    fs:=TFileStream.Create(FileName,fmOpenReadWrite or fmShareExclusive);    try      n:=4096;        max:=fs.Size;      fs.Position:=0;      while max>0 do      begin        if max<n then n:=max;        fs.Write(buffer,n);        max:=max-n;      end;      FlushFileBuffers(fs.Handle);    finally      fs.Free;    end;    Deletefile(FileName); end; end.

如何彻底删除文件? (200分)

icic_icic

Unregistered / Unconfirmed

weiwei81123

Unregistered / Unconfirmed

JamesBond_L

Unregistered / Unconfirmed

icic_icic

Unregistered / Unconfirmed

东兰梦舞

Unregistered / Unconfirmed

JamesBond_L

Unregistered / Unconfirmed

icic_icic

Unregistered / Unconfirmed

vmao

Unregistered / Unconfirmed

icic_icic

Unregistered / Unconfirmed

XWHope

Unregistered / Unconfirmed

gf101xt

Unregistered / Unconfirmed

icic_icic

Unregistered / Unconfirmed

ETimeFly

Unregistered / Unconfirmed

hardware007

Unregistered / Unconfirmed

icic_icic

Unregistered / Unconfirmed

艾伦希亚

Unregistered / Unconfirmed

yeszhang

Unregistered / Unconfirmed

icic_icic

Unregistered / Unconfirmed

jeff86

Unregistered / Unconfirmed

icic_icic

Unregistered / Unconfirmed

Similar threads