Уничтожить данные без возможно восстановления

[hon]

Сообщение от Пепел Феникса

что за глупость?
чтоб перезаписать файл нулями по вашему нужен асм?
эхх я глупый то, думал достаточно АПИшных-CreateFile->SetFilePointer->WriteFile->CloseHandle.
или Паскалевские File->AssignFile->Reset->FileSize->BlockWrite->CloseFile.
или Дельфийские TFileStream(методы Create->Size->Write->Free).

А можно пример, в инете информация не та.

[Пепел Феникса]

ЯП какой интересует?(и какой метод(АПИ или библиотечный(если несколько доступно, то указать нужную))

[hon]

delphi. Желательно просто UNIT, который можно подключить в USES

[Аватар]

Оформи процедурой, имя файла параметром передавай, размер буфера увеличь, ну и обработку критических ошибок предусмотри. Если 10 раз захочется нулями забить, то 10 раз повторить, а потом удалить

procedure TForm1.Button1Click(Sender: TObject);
var xStream: TFileStream;
    xBuffer: array [1..512] of Byte;
    i,j,xCount: integer;
begin
  xStream:=TFileStream.Create('E:\AAA.dat',fmOpenReadWrite or fmShareExclusive);
  for i:=1 to 512 do xBuffer[i]:=0;
  xCount:=xStream.Size div 512;
  j:=xStream.Size mod 512;
  for i:=0 to xCount do begin
    if i<xCount then xStream.Write(xBuffer,512)
    else if j>0 then xStream.Write(xBuffer,j);
  end;
  xStream.Free;
  DeleteFile('E:\AAA.dat');
end;

[Аватар]

ADD

Попробовал так, тоже нулями отлично забивает

  xStream:=TFileStream.Create('E:\AAA.dat',fmOpenReadWrite or fmShareExclusive);
  xCount:=xStream.Size;
  xStream.Size:=0;
  xStream.Size:=xCount;
  xStream.Free;

P.S. Есть смутное подозрение, что этот способ не подойдет, поскольку часть фрагментов результирующего файла может оказаться физически на другом месте

[hon]

Аватар, спасибо. +1 (добавлю, когда поставлю другим). Но при чем тут 512 и что делает код. Пожалуйста, прокомментруйте код.

[Аватар]

Hon, 512 это размер буфера. Его можно и нужно увеличить для ускорения обнуления. А что комментировать ёлы_палы? О каждой использованной команде в help-е дофига и больше написано

[hon]

Сообщение от Аватар

Hon, 512 это размер буфера. Его можно и нужно увеличить для ускорения обнуления. А что комментировать ёлы_палы? О каждой использованной команде в help-е дофига и больше написано

Это:

  xCount:=xStream.Size div 512;
  j:=xStream.Size mod 512;

А размер буфера можно делать получается любой? Например 2000000000 ?

[Аватар]

xCount - кол-во целых блоков по 512 байт в файле
j - длина последнего блока, меньшего 512 байтов или 0, если длина последнего блока равна 512
2000000000 - ну если память компа позволяет, то можно и так повыпендриваться. А если серьёзно - смотри пост #2 от Utkin

[Пепел Феникса]

ох, а я как то и забыл про эту тему...

var FS:TFileStream;
     i:int64;
     b:array of byte;
begin
 FS:=TFileStream.Create(Filename,fmOpenReadWrite);
 i:=FS.Size;
 SetLength(b,4*1024);//размер буфера, он же макс размер записи за один прием.
 ZeroMemory(@b[0],Length(b));//заполнение буфера нулями, можно чем угодно заполнить:)
 FS.Position:=0;//не помню про позицию по умолчанию, потому так
 while i>0 do
  dec(i,FS.Write(b[0],Min(Length(b),i)));
 FS.free;

поидее так.
uses math помним