Прямая перезапись данных на жестком диске. Помогите реализовать.

[raiderrr]

Доброго времени всем.
Суть программы: необходимо ПЕРЕЗАПИСАТЬ данные на жестком диске определенным набором символов (еденицами, нулями, случайные). Нужно реализовать данную процедуру для отдельного файла и для логического диска или физического.

Для работы с файлом есть такое предложение

var
f:TFileStream;
filename:string;
n:int64;
buffer:array [1..1024] of byte;

begin
randomize;
if Opendialog1.Execute then filename:=Opendialog1.FileName;
if fileexists(filename)=true then f:=TFileStream.Create(filename,fmOpenReadWrite)
else f:=TFileStream.Create(filename,fmCreate);

f.Position:=0;
 while f.Position<>f.Size do
  begin
  n:=f.Position;
  f.ReadBuffer(buffer,1);
  f.Position:=n;
  buffer[1]:=random(256); //псевдослучайные числа
  f.WriteBuffer(buffer,1);
 end;
end;

Остается вопрос как затереть полностью раздел диска или весь диск включая неразмеченные области и mft ?

Есть статья http://citforum.ru/programming/delphi/disk_editor/
Возможно, можно её использовать.

Буду рад любому совету, спасибо!)

[Аватар]

Читать и писать по-байтно плохое решение

стереть данные на диске - diskpart

[raiderrr]

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

[Аватар]

diskpart может стирать обнулением данных

Есть другие решения помимо побайтовой записи?

Конечно, блочное чтение-запись

[raiderrr]

diskpart может стирать обнулением данных
Конечно, блочное чтение-запись

Спасибо, пойду изучать!)