Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Удаление файлов

Автор: Yuran 9.4.2006, 23:39

Может у кого есть исходник удаления файлов методом gutmann!

Автор: Fast 10.4.2006, 00:31

А что за метод ?
Если по обычному то
DeleteFile('C:\твой_файл.txt');

Автор: SoWa 10.4.2006, 18:48

Или функция erase.

Автор: Nickel 11.4.2006, 17:25

Метод Гутманна - алгоритм удаления данных, основанный на многократной перезаписи соответствующей области жесткого диска. Почитать можно http://en.wikipedia.org/wiki/Gutmann_method. http://www.heidi.ie/eraser/ реализующая данный метод. Доступны сишные сорцы, мб кто-нибудь сделает доброе дело да и переведёт?

Автор: Snowy 11.4.2006, 18:14

Исходный код я не нашел. Поэтому сделал по описанию:

Код

procedure ZeroFillDelete(FileName: string);
var
  fs: TFileStream;
  i:  integer;
  procedure RandomWrite;
  var b:  byte;
  begin
    repeat
      b := Random(256); fs.Write(b, 1);
    until fs.Position + 1 >= fs.Size;
  end;
  procedure WritePattern(pattern: byte);
  const patt: array[5..31] of dword = ($555555, $AAAAAA, $924924, $492492,
        $249249, 0, $111111, $222222, $333333, $444444, $555555, $666666,
        $777777, $888888, $999999, $AAAAAA, $BBBBBB, $CCCCCC, $DDDDDD,
        $EEEEEE, $FFFFFF, $924924, $492492, $249249, $6DB6DB, $B6DB6D, $DB6DB6);
  var d: dword;
  begin
    d := patt[pattern] shl 8;
    repeat fs.Write(d, 3); until fs.Position + 3 >= fs.Size;
  end;
begin
  if not FileExists(FileName) then Exit;
  for i := 1 to 35 do
  try
    fs := TFileStream.Create(FileName, fmOpenReadWrite);
    try
      if (i < 5) or (i > 31) then RandomWrite
      else WritePattern(i);
    finally
      fs.Free;
    end;
  except Exit; end;
  DeleteFile(FileName);
end;

Автор: Mechanic 22.6.2006, 23:36

Цитата(Snowy @ 11.4.2006, 18:14

)

fs := TFileStream.Create(FileName, fmOpenWrite);

Академически верно, но только у дров винта свой взгляд на это дело. smile

Выражается он словом Буферизация...

Предлагаю использовать работу с файлом через хендл, созданный с флагом FILE_FLAG_WRITE_THROUGH, предотвращающим кеширование.

Вот пример процедуры, что реально пишет в файл на диске указанное число раз:

Код


procedure WipeFile(FileName:string);
var  Fil:cardinal; FSize,Pass,Portion:integer; Buf:Pointer;
begin
  try
    //create & fill wipe buffer if needed
    if WipeBuffer = nil then
    begin
        GetMem(WipeBuffer,WipeBufferSize+2);
        asm
           push eax
           push edi
           push ecx
           mov edi,[WipeBuffer]
           mov ecx,WipeBufferSize+2
           shr ecx,1
           mov eax,$AA55;
           rep stosw
           pop ecx
           pop edi
           pop eax
        end;
        //Prevent 'Insert disk in drive' message box
        SetErrorMode(SEM_FAILCRITICALERRORS);
    end;
    //find file
    if not FileExists(FileName) then exit;
    //wipe given file with given number of passes
    for Pass := 1 to WipePasses do
    begin
        //Open file
        //Fil := FileOpen(PChar(FileName),fmOpenWrite or fmShareDenyWrite);
        Fil := CreateFile(PChar(FileName),GENERIC_WRITE,
                    FILE_SHARE_WRITE,nil,
                    OPEN_EXISTING,
                    FILE_FLAG_WRITE_THROUGH,0);
        if Fil < 0 then exit;   //INVALID_HANDLE_VALUE
        //Detect size of file
        FSize := FileSeek(Fil,0,2);
        //on beginning
        FileSeek(Fil,0,0);
        //fill with buffer
        while FSize<>0 do
        begin
           //detect size of portion
            if WipeBufferSize > FSize then
                Portion := FSize
            else
                Portion := WipeBufferSize;
            //Detect start of buffer according to Pass
            if Odd(Pass) then
                Buf := @WipeBuffer^[0] else
                Buf := @WipeBuffer^[1];
            //Actual write
            FileWrite(Fil,Buf^,Portion);
            FSize := FSize - Portion;
        end;
        //flush file {?}
        //close file
        FileClose(Fil);
    end;
    DeleteFile(PChar(FileName));
  except
    Log('-Except on wiping file');
  end;
end;

Правда тут идет метод "скользящей расчёски", вместо Гутмана, но истинные ценители стандартов могут без труда это туда прикрутить.. smile

Автор: drkot 23.6.2006, 14:35

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

Автор: Mechanic 24.6.2006, 03:22

Цитата(drkot @ 23.6.2006, 14:35

)

Код


BitMap:=TBitmap.Create;
  BitMap.Width:=16;
  BitMap.Height:=16;
  BitMap.PixelFormat:=pfDevice;
  FS:=TFileStream.Create(FileName, fmOpenWrite);
  BitMap.SaveToStream(FS);
  BitMap.Free;
  FS.Size:=FS.Position;
  FS.Free;

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

Автор: drkot 24.6.2006, 12:15

Цитата(Mechanic @ 24.6.2006, 03:22

)

первые 126 символов

Если уважаемый Mechanic более внимательно  посмотрит на представленный код надеюсь вид смайлика изменится.

Просто попробуй востановить твой файл (со счетами и паролями) удаленный при помощи этого алгоритма.

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

Моя оценка применимости:
  Как и говорил ранее защита далеко не стопроцентная, но скорость во много раз выше чем у предложенных 100% алгоритмов.
  Обеспечит надежную защиту от простых юзверей и coolхацкеров, и значительно затруднит работу проффесионалам (особенно если не знать точных параметров начального файла).
  Для спецслужб конечно не годится (Гутманна - там самое оно), а для рядового использования дома и на работе прокатит  :cool

Цитата(Mechanic @ 24.6.2006, 03:22

)

то при монохромном экране (pf1bit)

надеюсь не все так мучатся как ты smile

ЗЫЖ делай дефрагментацию после удаления и никакие алгоритмы тебе не понадобятся.

Автор: Mechanic 24.6.2006, 12:46

Цитата(drkot @ 24.6.2006, 12:15

)

Просто попробуй востановить твой файл (со счетами и паролями) удаленный при помощи этого алгоритма.

Удачно восстановлю, просто пробежав по диску. Конечно же, заголовки FS не буду брать во внимание (разве что, чтоб исключить кластеры, занятые заведомо не теми файлами).

Цитата(drkot @ 24.6.2006, 12:15

)

В большинстве случаев служебная информация (тип файла, параметры, структуры и тд) хранится в первом килобайте, а он как раз и затерт. (Попробуй востановить данные из архива, БД, графики и пр с затертым заголовком)

Цитата(Mechanic @ 24.6.2006, 03:22

)

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

И где в текстовике такой заголовок? Нет его.. smile

Не случайно привел пример именно текстового файла. Кстати, файлы баз данных типа DBASE, MDF (MS SQL), etc также часто легко восстанавливаются при утере заголовка. То же можно сказать и о многих графических форматах, где не используется сжатие (типа DIB, WMF, DXF), аудио файлы (PCM WAV), тот же HTML, XML, да много еще чего можно восстановить с малыми потерями.

Вывод - метод имеет право на жизнь, но только в указанных областях:

Цитата(drkot @ 24.6.2006, 12:15

)

Обеспечит надежную защиту от простых юзверей и coolхацкеров, и значительно затруднит работу проффесионалам (особенно если не знать точных параметров начального файла).
Для спецслужб конечно не годится (Гутманна - там самое оно), а для рядового использования дома и на работе прокатит

Домохозяйки only! smile

Добавлено @ 12:51

Цитата(drkot @ 24.6.2006, 12:15

)

Цитата(Mechanic @ 24.6.2006, 03:22 )
то при монохромном экране (pf1bit)
надеюсь не все так мучатся как ты

Это чисто теоретически, самый пиковый для алгоритма вариант, я так не мучаюсь..

Автор: drkot 24.6.2006, 13:31

Мне не хочется с тобой спорить Mechanic .

Цитата(Mechanic @ 24.6.2006, 12:46

)

Удачно восстановлю, просто пробежав по диску.

Просто слелай. Вопрос только в том, что и где ты будеш искать? Може для тебя новость что файлы редко расположены одной цепочкой.

Цитата(Mechanic @ 24.6.2006, 12:46

)

И где в текстовике такой заголовок?

Я просто понадеялся, что проффесионалы как ты нехранят секретные данные в открытых текстовых файлах (HTML, XML и прочем).

Цитата(Mechanic @ 24.6.2006, 12:46

)

о многих графических форматах

плз примеры. ИМХО БМП только (если не учитавать битность и размер поверхности) все остальные так или иначе кодируются.

Цитата(Mechanic @ 24.6.2006, 12:46

)

аудио файлы (PCM WAV)

Сначала "И много их у тебя?". У меня много только параметру уних хитрые и разные (8196Гц, 1-12каналов) могу удалить заголовочек и прислать тебе востанавливай.

Цитата(Mechanic @ 24.6.2006, 12:46

)

файлы баз данных типа DBASE, MDF (MS SQL), etc также часто легко восстанавливаются

Не так уж и легко, хотябы структуру и последовательность полей надо знать. (Прям как в песне про поезд)

Цитата(Mechanic @ 24.6.2006, 12:46

)

Домохозяйки only!

Вижу заметный прогресс в смайликах smile

. Но также налицо избыточная ирония объективных причин к которой не вижу. Если Вы недостаточно хорошо знакомы с процессом востановления винта после збоя то советую затереть нулевой сектор (практически безболезненая процедура для хранимых данных) и потренироваться в реанимации (и так регулярно раз в неделю в течение полугода). После такого количества востановленых винтов я лично начал относится к этому вопросу философски.

Сори. Если чем обидел. Но потеряные гигобайта невостановимых данных smile

, начальство smile

способствует более серьезному отношению к проблеме сохранности информации.