Удаление без восстановления

← →
Destroyer © (2005-12-10 01:21) [0]

Нужно удалалять файлы и папки так, чтобы их невозможно было восстановить. Например как это делает shredder из комплекта антивируса McAfee. По идее надо удалить фаил или папку и перезаписать на его место что-нибудь еще и желательно несколько раз. Как это сделать? Или это еще как-то делается?

← →
jack128 © (2005-12-10 01:29) [1]

Открыть файл, записать по всей его длине мусор(можно несколько раз). После этого удалить.

← →
Германн © (2005-12-10 01:43) [2]

> По идее надо удалить фаил или папку и перезаписать на его
> место что-нибудь еще

Если действительно "по идее", то как jack128 © (10.12.05 01:29) [1]
То бишь "утром деньги, вечером стулья. Но деньги вперед!"

← →
Джо © (2005-12-10 02:55) [3]

Кажется, к [1] jack128 © имеет смысл добавить то, что перед окончательным удалением, файлу лучше дать другое имя, т.е., переименовать. Таким образом нельзя будет увидеть даже истинные имена удаленных файлов.

← →
Destroyer © (2005-12-11 02:04) [4]

Спасибо, буду пробовать.

← →
TUser © (2005-12-11 11:29) [5]

1. Создать объект FileSystem. Там есть метод DeleteFile с соотв. параметром - поместить ли в корзину или насовсем.
2. И вот это
If pFrom is set to a file name, deleting the file with FO_DELETE will not move it to the Recycle Bin, even if the FOF_ALLOWUNDO flag is set. You must use a full path.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/structures/shfileopstr uct.asp

← →
Destroyer © (2005-12-11 20:26) [6]

А причем тут корзина? Я спрашивал про восстановление разными методами и программами уже после удаления из корзины.

← →
Destroyer © (2005-12-13 23:48) [7]

Такая проблема. Если удалять фаил размером 10 мб, то это ооочень долго. Подскажите плз, как ускорить процесс. Делаю так:
procedure Shredder(delfile:string);
var
f: file of Byte;
i:integer;
rubbish:Byte;
begin
assignfile(f,delfile);
reset(f);
rubbish:=$EB;
for i:=1 to FileSize(f) do
begin
write(f,rubbish);
end;
closefile(f);

← →
ANB © (2005-12-14 00:11) [8]

> Destroyer © (13.12.05 23:48) [7]

Так конечно, долго.
1. Используй прямые функции доступа (через хендл)
2. Пиши кусками побольше.

← →
Destroyer © (2005-12-14 00:29) [9]

А на АПИ не быстрее выйдет?
Пытаюсь так но неполучается. Не пишет в фаил + ошибка при закрытиии хэндла.
var
buf :Byte;
numOfBytesToWrite :dword;
bytesWritten :dword;
filehandle :integer;
begin
buf:=$eb;
numOfBytesToWrite:=sizeof(buf);

CreateFile("c:\test\1.txt",GENERIC_WRITE,FILE_SHARE_WRITE,nil,OPEN_EXISTING,FILE_FLAG_WRITE_THROUGH,filehandle);
showmessage(inttostr(filehandle));
WriteFile(filehandle,buf,numOfBytesToWrite,bytesWritten,nil);
showmessage(inttostr(bytesWritten));
closehandle(filehandle);
end;

В чем тут проблема?

← →
ANB © (2005-12-14 01:14) [10]

> Destroyer © (14.12.05 00:29) [9]

FileOpen - просто обертка над АПИ функциями. Скорость практически та же, а ошибок меньше. Тебе она хендл то вернула ?

← →
Джо © (2005-12-14 02:01) [11]

Да не пиши ты по байту, что за безобразие?

← →
Destroyer © (2005-12-15 00:31) [12]

Хорошо, подскажите как писать по десяткам байт плз. Ведь переменная rubbish типа Byte, какой тип можно взять, чтобы писать больше? dword всего 4 байта, а как больше?

← →
Джо © (2005-12-15 00:53) [13]

type TRubbish = array [0..4096] of Byte; var Rubbish: TRubbish; AFile: File; ... BlockWrite (AFile, Rubbish[0], SizeOf(Rubbish)); ....

Или используй TFileStream;

← →
Destroyer © (2005-12-17 14:55) [14]

Теперь проблема в том, чтобы правильно полностью записать открытый фаил мусором. Делаю так:
type TRubbish = array [0..4096] of Byte; // TRubbish = array of Byte; var f: file; i:integer; Rubbish:TRubbish; begin {$I-} assignfile(f,delfile); reset(f); //setlength(Rubbish,FileSize(f)); { for i:=1 to SizeOf(Rubbish) do begin Rubbish[i]:=$EB; end; } for i:=1 to FileSize(f) do begin BlockWrite (f, Rubbish[0], SizeOf(Rubbish)); end; closefile(f); {$I+} end;
Тут так:
1)Надо как можно быстрее записать весь фаил. Если писать блоками, например по 4 кб, то в конце все-таки блок несовпадет - ошибка.
2)Еще: если неставить {I-} и {I+}, то при записи блока ЛЮБОГО размера (даже много меньше самого размера файла) выскакивает ошибка доступа 1784. А если ставить, то всё проходит без ошибок, но в фаил ничего не пишется.
Если писать сразу весь фаил одним блоком, предварительно задав размер динамическому массиву, то если фаил 100 мб, никакой оперативной памяти нехватит.
Помогите плз решить эти проблемы.

← →
palva © (2005-12-17 23:32) [15]

> Если писать блоками, например по 4 кб, то в конце все-таки блок несовпадет - ошибка.
А почему ошибка? Файл должен увеличить свой размер. А потом можно анализировать длину и писать последний блок нужного размера (третий параметр BlockWrite)

← →
Zeqfreed © (2005-12-18 00:03) [16]

Destroyer © (17.12.05 14:55) [14]

function FillFileWithTwos(const FileName : String; UpdateProgress : TUpdateProgressCallback) : Boolean; function _UpdateProgress(const BytesWritten : Int64) : Boolean; begin if Assigned(UpdateProgress) then Result := UpdateProgress(BytesWritten) else Result := true; end; var buf : array[1..4096] of Byte; fs : TFileStream; written : Int64; begin Result := false; FillChar(buf, SizeOf(buf), $02); fs := TFileStream.Create(FileName, fmOpenWrite); try written := 0; if (fs.Size >= SizeOf(buf)) then repeat written := written + fs.Write(buf, SizeOf(buf)); until (fs.Size - written < SizeOf(buf)) or not _UpdateProgress(written); if (fs.Size - written > 0) then written := written + fs.Write(buf, fs.Size - written); Result := _UpdateProgress(written) and (written = fs.Size); finally fs.Free(); end; end;

Посмотри, может найдешь что-нибудь интересное для себя :)
Вроде, код с задачей справляется ;)

← →
Zeqfreed © (2005-12-18 00:11) [17]

Zeqfreed © (18.12.05 0:03) [16]
Наверное, лучше так будет организовать:

function FillFileWithTwos(const FileName : String; UpdateProgress : TUpdateProgressCallback) : Boolean; var buf : array[1..4096] of Byte; fs : TFileStream; written : Int64; goon : Boolean; begin Result := false; FillChar(buf, SizeOf(buf), $65); fs := TFileStream.Create(FileName, fmOpenWrite); try written := 0; if (fs.Size >= SizeOf(buf)) then repeat written := written + fs.Write(buf, SizeOf(buf)); if Assigned(UpdateProgress) then goon := UpdateProgress(written) else goon := true; if not goon then Exit; until (fs.Size - written < SizeOf(buf)); if (fs.Size - written > 0) then written := written + fs.Write(buf, fs.Size - written); if Assigned(UpdateProgress) then goon := UpdateProgress(written) else goon := true; Result := goon and (written = fs.Size); finally fs.Free(); end; end;

А то предыдущий код не совсем корректно себя повел бы в некоторых ситуациях :)

← →
Destroyer © (2005-12-18 00:16) [18]

Спасибо. Буду пробовать.

← →
Destroyer © (2005-12-18 00:48) [19]

Здорово, работает, спасибо. Но пробовал без UpdateProgress, т.к. не смог найти нужный модуль. Где его взять? И, если можно, синтаксис вызова этой функции с UpdateProgress.
Заранее спасибо.

> [19] Destroyer © (18.12.05 00:48)

Объяви процедуру такого образца:
type
TUpdateProgressCallback = procedure (Written: Integer);

procedure MyProgressProc (Written: Integer);
begin
....
end;
Ее адрес и передавай в FillFileWithTwos.

> Destroyer © (18.12.05 00:48) [19]
>
> Здорово, работает, спасибо. Но пробовал без UpdateProgress,
> т.к. не смог найти нужный модуль. Где его взять? И, если
> можно, синтаксис вызова этой функции с UpdateProgress.
> Заранее спасибо.
> <Цитата>
> Джо © (18.12.05 01:02) [20]
>
>
> > [19] Destroyer © (18.12.05 00:48)
>
> Объяви процедуру такого образца:
> type
> TUpdateProgressCallback = procedure (Written: Integer);
>
>
> procedure MyProgressProc (Written: Integer);
> begin
> ....
> end;
> Ее адрес и передавай в FillFileWithTwos.

И как в Голливудских фильмах будем наблюдать "ползущую" строку "данные" передаются, уничтожаются и т.д. и т.п.

> [21] Германн © (18.12.05 03:41)

Честно говоря, не понял. Видимо, я много выпил сегодня.
Кстати, что эта ветка делает в WinAPI? ;0)

Destroyer © (18.12.05 0:48) [19]
Нужно сделать почти, как написал Джо в [20] ;)
Только UpdateProgress должна быть функцией, возращающей true если операцию следует продолжить и false, если её необходимо прервать.

← →
FRAEROK (2006-02-06 02:43) [25]

Мне тоже заказали разработать такую программу и вней должно быть реализовано удление файлов без востановления ..писал я скажу вам около 3 недель ну вообще все программу просто там надобыло и чтоб блокировал Altctrl del а это под ХР не так просто оказываеться и чтоб убивало запущенные программы короче много всего.
И вот что я посматрел на ваши методы и знаете что?они небудут работать под NTFS под FAT32 отлично будут пахать а вот с НТФС проблемка я сам долго мучался

> FRAEROK (06.02.06 02:43) [25]
>
> Мне тоже заказали разработать такую программу и вней должно
> быть реализовано удление файлов без востановления ..писал
> я скажу вам около 3 недель ну вообще все программу просто
> там надобыло и чтоб блокировал Altctrl del а это под ХР
> не так просто оказываеться и чтоб убивало запущенные программы
> короче много всего.
> И вот что я посматрел на ваши методы и знаете что?они небудут
> работать под NTFS под FAT32 отлично будут пахать а вот с
> НТФС проблемка я сам долго мучался

:))))

проблема решена? :)

FRAEROK (06.02.06 2:43) [25]
и чтоб блокировал Altctrl del а это под ХР не так просто оказываеться
проще ... чем говорят .. пример есть в кладовке

Удаление без восстановления Найти похожие ветки