Затирка файлов

[SunKnight]

Подскажите как можно затереть файлы без возможности востановления?

[Albenous]

Как вариант:

   assignfile(f,'file.txt');
   rewrite(f);
   closefile(f);

А затем просто удалить файл (через Делфи, кончно). Точно никто не восстановит. Хотя это не совсем то, что хотел автор, но тоже действенно

[Air]

Тоже самое делает

DeleteFile('c:\123.exe')

Хотя и то и это можно обойти, но не всегда.

[Jeni]

Сообщение от SunKnight

Подскажите как можно затереть файлы без возможности востановления?

Без возможности восстановления информации из файла или сам факт его недавнего наличия? Если первое, то перед удалением файла, записать туда "мусор", т.е. случайную информацию. Например так:

var
  F: file of Byte;
  I, L: Integer;
  X: Byte;
begin
  AssignFile(F, '1.txt');
  Reset(F);
  L := FileSize(F);

  for I := 1 to L do
    begin
      X := Random(256);
      Write(F, X);
    end;

  CloseFile(F);
  DeleteFile('1.txt');
end;

Можно это же сделать с помощью потоков или файлов отображаемых в память.

[BOBAH13]

Интересно через пару часов что еще оригинальней придумают ?
Удивительно столько стараний переписать все байты а потом удалить файл ))) чем не нравитяс даже первый вариант, не говоря о возможных ошибках системы Кто запрещает SetEndOfFile юзать ?

[Jeni]

Сообщение от BOBAH13

чем не нравитяс даже первый вариант

Так человек вроде бы хотел, чтобы невозможно было восстановить информацию. А для этого не подойдет просто удаление (пусть даже с изменением размера).

[rpy3uH]

Сообщение от Jeni

Без возможности восстановления информации из файла или сам факт его недавнего наличия? Если первое, то перед удалением файла, записать туда "мусор", т.е. случайную информацию. Например так:

....
  for I := 1 to L do
    begin
      X := Random(256);
      Write(F, X);
    end;
....

это наверно лучший вариант, но довольно таки медлительный! он будет работать гораздо быстрее если написать так

var
  x:Integer;
....
  for I := 1 to L do
    begin
      X := Random(10000000);//можно поставть 2^32-1
      Write(F, X);
    end;
....

, но можно просто заполнить файл нулями. например так:

buf:=VirtualAlloc(...,<размер файла>,..,...);
WriteFile(FileHAndle,buf^,<размер файла>,...,...);
DeleteFile(....);

это наверно самый быстрый вариант решения этой задачи

[Jeni]

Сообщение от rpy3uH

это наверно лучший вариант, но довольно таки медлительный!

Да я знаю, что тут оптимизацией и не пахнет. Просто хотел написать человеку такой код, чтобы он и в обычном Паскале работал. И чтобы он понял его, вот и старался сделать попроще. Надеюсь, помогло.

[zetrix]

Albenous, Air - восстановлю файл без особых проблем.
В остальных случаях - 100% узнаю, что такой файл был, но вот содержимое уже не восстановить.
Если всё это происходит в 9х винде, то можно напрямую править FAT (если сумеете найти свой файл). В NT - нет.

[SunKnight]

Этот вопрос возник у меня после прочтения стать из журнала "Хакер".
http://www.xakep.ru/magazine/xa/101/034/1.asp
ВСЕМ СПАСИБО!

//не хочу пост оставлять. За ссылку большое спасибо. zetrix