Забить диск случайными данными

 
0
 
Delphi, Kylix & Pascal
ava
vicarus | 17.03.2013, 15:29
Необходимо записать напрямую на физический диск случайные данные. Диск может не иметь файловой системы.
Пробую таким образом:


    hDevice := CreateFile(PAnsiChar(device), GENERIC_READ or GENERIC_WRITE, // device = '\\.\PHYSICALDRIVEn'
      FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
    if (hDevice = 0) or (GetLastError() <> 0) then
    begin
      ShowMessage(SysErrorMessage(GetLastError()));
      Exit;
    end;

    successfullWrite := True;
    while successfullWrite do
    begin
      Application.ProcessMessages;

      SetLength(byteArray, BUF_SIZE);
      i := 0;
      while i < BUF_SIZE do
      begin
        Randomize;
        byteArray[i] := Random(255);
        Inc(i);
      end;

      successfullWrite := WriteFile(hDevice, byteArray[0], BUF_SIZE, writtenBytes, nil);
    
      end;
    end;

    CloseHandle(hDevice);


Но скорость записи, как бы я не менял размер буфера, не поднимается выше 1Мбайт/сек.
Как можно повысить эту скорость? Или же подскажите, как иначе можно программно затереть данные с диска без ФС
Kommentare (7)
ava
Illusion Dolphin | 17.03.2013, 16:15 #
Randomize должен вызываться лишь РАЗ в начале алгоритма.

А какой размер буфера BUF_SIZE ?
ava
vicarus | 17.03.2013, 16:25 #
Размер буфера 65536. Если меньше - скорость падает, если увеличить - никакого эффекта
ava
vicarus | 17.03.2013, 17:05 #
Подправил код.

    hDevice := CreateFile(PAnsiChar(device), GENERIC_READ or GENERIC_WRITE, // device = '\\.\PHYSICALDRIVEn'
      FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
    if (hDevice = 0) or (GetLastError() <> 0) then
    begin
      ShowMessage(SysErrorMessage(GetLastError()));
      Exit;
    end;

    Randomize;
    SetLength(byteArray, BUF_SIZE);
    i := 0
    while i < BUF_SIZE do
    begin
      byteArray[i] := Random(255);
      Inc(i);
    end;

    successfullWrite := True;
    while successfullWrite do
    begin
      Application.ProcessMessages;
      successfullWrite := WriteFile(hDevice, byteArray[0], BUF_SIZE, writtenBytes, nil);
    end;
    CloseHandle(hDevice);


Теперь при буфере в 1Мбайт скорость составляет около 20Мбайт/сек. Еще возможно что-то сделать для ускорения процесса?
ava
Illusion Dolphin | 17.03.2013, 17:17 #
Да, ещё советуют писать асинхронно и использовать FILE_FLAG_NO_BUFFERING. Вот тут описано подробно:
http://stackoverflow.com/questions/2025694...speed-file-copy
ava
northener | 19.03.2013, 02:22 #
Цитата (vicarus @  17.3.2013,  14:29 findReferencedText)
Необходимо записать напрямую на физический диск случайные данные. Диск может не иметь файловой системы.

Тогда причём тут функция CreateFile?
ava
Illusion Dolphin | 19.03.2013, 13:07 #
Цитата


Тогда причём тут функция CreateFile? 


Так уж сложилось, что функция "Создать файл" умеет не только создавать файлы smile 
http://msdn.microsoft.com/en-us/library/wi...v=vs.85%29.aspx

Цитата


Creates or opens a file or I/O device. The most commonly used I/O devices are as follows: file, file stream, directory, physical disk, volume, console buffer, tape drive, communications resource, mailslot, and pipe.

ava
northener | 20.03.2013, 02:23 #
Цитата (Illusion Dolphin @  19.3.2013,  13:07 findReferencedText)
Так уж сложилось, что функция "Создать файл" умеет не только создавать файлы 

Вот это 2 в 1 меня и смущает smile
Registrieren Sie sich oder melden Sie sich an, um schreiben zu können.
Unternehmen des Tages
Вы также можете добавить свою фирму в каталог IT-фирм, и публиковать статьи, новости, вакансии и другую информацию от имени фирмы.
Подробнее
Mitwirkende
Ähnliche
advanced
Absenden