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

vicarus

Дата 17.3.2013, 14:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 3.3.2013

Репутация: нет
Всего: нет

Необходимо записать напрямую на физический диск случайные данные. Диск может не иметь файловой системы.
Пробую таким образом:

Код


    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Мбайт/сек.
Как можно повысить эту скорость? Или же подскажите, как иначе можно программно затереть данные с диска без ФС

Illusion Dolphin

Дата 17.3.2013, 16:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 4
Всего: 63

Randomize должен вызываться лишь РАЗ в начале алгоритма.

А какой размер буфера BUF_SIZE ?

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

vicarus

Дата 17.3.2013, 16:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 3.3.2013

Репутация: нет
Всего: нет

Размер буфера 65536. Если меньше - скорость падает, если увеличить - никакого эффекта

vicarus

Дата 17.3.2013, 17:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 3.3.2013

Репутация: нет
Всего: нет

Подправил код.

Код


    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Мбайт/сек. Еще возможно что-то сделать для ускорения процесса?

Illusion Dolphin

Дата 17.3.2013, 17:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 4
Всего: 63

Да, ещё советуют писать асинхронно и использовать FILE_FLAG_NO_BUFFERING. Вот тут описано подробно:
http://stackoverflow.com/questions/2025694...speed-file-copy

--------------------

northener

Дата 19.3.2013, 02:22 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: нет
Всего: 20

Цитата(vicarus @ 17.3.2013, 14:29

)

Необходимо записать напрямую на физический диск случайные данные. Диск может не иметь файловой системы.

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

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

Illusion Dolphin

Дата 19.3.2013, 13:07 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 4
Всего: 63

Цитата

Тогда причём тут функция 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.

--------------------

northener

Дата 20.3.2013, 02:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: нет
Всего: 20

Цитата(Illusion Dolphin @ 19.3.2013, 13:07

)

Так уж сложилось, что функция "Создать файл" умеет не только создавать файлы

Вот это 2 в 1 меня и смущает smile

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »