Форум: "Прочее";
Текущий архив: 2006.03.19;
Скачать: [xml.tar.bz2];
Вниз
Редактор физических секторов диска... Найти похожие ветки
← →
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 вся ветка
Форум: "Прочее";
Текущий архив: 2006.03.19;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.013 c
