Скачать: CL | DM;

Редактор физических секторов диска...   Найти похожие ветки 

← →
ArtemESC ©   (2006-02-22 16:25) [0]

Доброго времени суток...
  Посоветуйте сабж, таких редакторов много, но мне нужен
     с поддержкой флоппиков и с возможность "влить" туда файл...

---

← →
Джо ©   (2006-02-22 16:27) [1]

Nortod disk editor

---

← →
Джо ©   (2006-02-22 16:27) [2]

> [1] Джо ©   (22.02.06 16:27)
> Nortod

Norton, sorry.

---

← →
oldman ©   (2006-02-22 16:28) [3]

непонятна причина...
а просто скопировать файл?
вирус пишем???

---

← →
TUser ©   (2006-02-22 16:32) [4]

> с поддержкой флоппиков

rawrite, dd

---

← →
ArtemESC ©   (2006-02-22 16:34) [5]

>>Джо ©   (22.02.06 16:27) [1]
Norton... - хорошая программа, но я ленивый чтобы набивать Hexы в ручную...

>>oldman ©   (22.02.06 16:28) [3]

>>а просто скопировать файл?
Переодически, конечно, придется повторять эту операцию - отладка
       дело не легкое

>>вирус пишем???

Нет, boot...

---

← →
Джо ©   (2006-02-22 16:36) [6]

> [5] ArtemESC ©   (22.02.06 16:34)
> >>Джо ©   (22.02.06 16:27) [1]
> Norton... - хорошая программа, но я ленивый чтобы набивать
> Hexы в ручную...

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

---

← →
ArtemESC ©   (2006-02-22 16:38) [7]

>>Джо ©   (22.02.06 16:36) [6]
Скажи как...

---

← →
Джо ©   (2006-02-22 16:38) [8]

А вообще, кажется, Modular Hex Editor by Kerk тоже неплохо справляется.

---

← →
ArtemESC ©   (2006-02-22 16:41) [9]

Я вот вручную пытался что-то наскрябать... Не работает что-то оно...

program Disc;

{$APPTYPE CONSOLE}

uses
 SysUtils,
 Classes;
var
 FS    : TFileStream;
 Handle: THandle;
 FB, EB: Integer;
 arr   : array of byte;
 i     : integer;
begin
Writeln(" "Disc" - is utility to write file in sectors of a disc");
Writeln;
Writeln("          1st parameter - name of the file");
Writeln("          2nd - Disc(For example - A:)");
Writeln("          3d  - BootDisk? (y - make boot disc, n - don""t make boot)");
Writeln("Next parametrs may don""t write...");
Writeln("          4 - First byte of the file...");
Writeln("          5 - End byte of the file...");
 If ParamCount < 3 then
    Writeln("Error. {Count of param}") else
      begin
       If FileExists(ParamStr(1)) then
          begin
          try
           FS := TFileStream.Create(ParamStr(1), fmOpenReadWrite);
           Handle := FileOpen("\\.\"+ParamStr(2), fmOpenReadWrite);
           If (Handle = -1) then Writeln("Error of access to disc...")
           else begin
                 If ParamCount > 3 then
                  FB := StrToInt(ParamStr(4)) else FB := 1;
                 If ParamCount > 4 then
                  EB := StrToInt(ParamStr(4)) else EB := FS.Size;
                  SetLength(arr, EB - FB + 1);
                  FS.Position := FB - 1;
                  FS.Read(arr, EB - FB);
                  FileWrite(Handle, arr, EB - FB);
                  FileClose(Handle);
                end;
          except
            end;
          end else Writeln("Error. File was not found...");
      end;
  Readln;
end.

---

← →
ArtemESC ©   (2006-02-22 16:43) [10]

Пункт
Writeln("          3d  - BootDisk? (y - make boot disc, n - don""t make boot)");
можны вычеркнуть

---

← →
vidiv ©   (2006-02-22 16:43) [11]

> А вообще, кажется, Modular Hex Editor by Kerk тоже неплохо
> справляется.

Нехватает записи сразу в несколько секторов. Все та же моя проблема: образ биоса весит 2 кб, а это 512 секторов => 512 раз придется писать :(

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.025 c