OS DOS!!! Отследить изменения FAT таблици Опции

[USA]

Всем привет!!
Если у когото есть на PC раздел ДОС и утилита DISKEDIT.
Подскажите  как выполнить следующее???:
Отследить изменения  в оглавлении каталога и таблице FAT при создании, удалении и восстановлении файлов?????

Оформление результатов:
Отчет с подробным описанием динамики изменений в системной области диска при манипуляциях с файлами (создание, удаление и пр.).

Если кто то делал данную работу или кто знает каким еще способом  можно сделать этот анализ, подскажите пожалуйста!!!!!! :'(

[SKVOZNJAK]

Дома посмотрю. А у тебя какой дос: PC DOS 7 или MS DOS 6.22 ? Если у тебя нет дос раздела, то можно обойтись и стартовой дискетой с досом, на ней всё и испробовать. Фат 16 или 12, разница, в принципе небольшая. Дискедит, это из комплекта восьмой нортон утилиты. Из неё можно выдернуть любую утилиту, только для некоторых придётся копировать и библиотеку nlib200.rtl

[USA]

у меня доса нет..
Фат 16-ти  разрядный.

[SKVOZNJAK]

А веник наверно 95 или 98? Если так, то нужно записать на комп нортон командер и отредактировать файл AUTOEXEC.BAT и у тебя появится почти нормальный дос, и веник никуда не пропадёт. В строке PATH ПРОПИШИ путь к каталогу нортона, примерно так PATH C:NC  И где-то в конце файла команду запустить нортон NC.EXE  А если, ты не можешь сделать стартовую дискету, могу скинуть образ.

[trminator]

Проще уж держать Ctrl при загрузке компа, выпадешь в загрузочное меню, где можно выбрать Command Prompt Only. Если win9x, разумеется

[USA]

ребят , хорошо сделаю как советуете. Вот только ссылку на нортон подскажите?

[trminator]

Нортон или Волков Коммандер можно поискать на всяких "Реаниматорах" и прочих "Супер-пуперзагрузочных" дисках. Может, у тебя уже есть.

[USA]

Пока что ни чего с места не сдвинулось..
Вчера дома, освободил один том, как раз под это дело.. Сконвертировал его с FAT32 в FAT.  нашел какой-то  старый нортон в котором к сожалению DiskEdita не оказалось..
Как это будет хоть выглядеть? Не разу не отслеживал изменения ФАТ таблиц, только лишь читал...

[USA]

И еще вот мне посоветовали сделать так:
Перехватываешь int 13h(как это рерывание  перехватить какой обработчик вставить и как его вставить?) и включаешь его по каскадной(о этой схеме впервые слышу?) схеме вместе со своим обработчиком. После этого можешь протоколировать любые обращения к диску.

[P@sh@]

Так тебе драйвер диска нужен :o, или просто посмотреть результаты после собственного обращения к диску???

у меня где-то валялась старая прога, которая рисовала в граф. режиме карту диска - т.е. квадратики кластеров типа как в дефрагментаторах - могу завтра принести

int 13h перехватывать не надо, это программное прерывание - служба БИОСа для низкоуровневой работы с дисками - т.е. как библиотека функций, его надо вызывать с параметрами (сейчас не скажу какими).

в принципе можно и перехватить, только ДОС возможно без помощи БИОСа с дисками работает (точно не знаю)

[USA]

Мне необходимо отследить изменение таблици FAT при обращении к диску.
Создание каталога, копирование , удаление в нем файлов и перемещение..
***********
P@sh@   - если не трудно принеси эту программулину..
вот ящик a_kent2001@mail.ru
И краткое описание как с этой прогой работать?
Заранее благодарен!!

[P@sh@]

как с ней работать ? как хочешь, так и работай, программа-то на паскале, я уж исходник, так и быть, принесу.
А что значит отследить изменения в FAT? ты же представляешь себе, что там меняется? будешь что ли вести лог с перечислением измененных кластеров?
между прочим для FATа что файлы, что каталоги - все едино, а перемещение файлов в пределах диска вообще не должно никак влиять на его FAT

[SKVOZNJAK]

Что-то меняться в фате обязательно должно, иначе на диске ничего меняться не будет Лучше эксперементировать с новой дискетой, там объёмы меньше и старых следов пока ещё нет.
http://soft-lavka.narod.ru/nc.zip Прикольный сайт, жалко медленный.

[USA]

P@sh@-- уже бы давно принес блин... Я бы голову не ломал с этим заданием..
Бывалый правильно говорит, что тренироваться с новой дискетой надо.  

Вод само задание:
·      Задание
Отследить изменения  в оглавлении каталога и таблице FAT при создании, удалении и восстановлении файлов

·      Пояснения по выполнению работы
Исследовать системную область диска (можно воспользоваться программой DISKEDIT из пакета Утилит Нортона). Разобраться с процессами создания и удаления файлов.
·      Оформление результатов
Отчет с подробным описанием динамики изменений в системной области диска при манипуляциях с файлами (создание, удаление и пр.).

ВСЕм ! не ходите вокруг да около, ну подскажите  как  мне сделать эту работу.. :o

Потом и за следующую браться можно!! ;D

[USA]

УРАААА !! нашел DISKEDIT который работает под WIN2000
Пытаюсь разобраться что теперь с этим мясом делать..
Подскажите дискета должна быть новой и не отформатированной?

[P@sh@]

эта прога рисует карту диска в формате FAT16, ну и попутно некоторую инфу выдает

... (Показать/Скрыть)

uses Crt,Graph;
type Sector=array[0..511] of byte;
     CBlockType=record
       Sector:longint;
       Number:word;
       BufPtr:pointer;
     end;
     BPBRec=record
       BootRecPtr:array[1..3] of byte;
       OEMIDstr  :array[1..8] of char;
       BytePerSec:word;
       SecPerClus:byte;
       ReservSecs:word;
       FATcopies :byte;
       RootItems :word;
       TotalSec16:word;
       Descriptor:byte;
       FATsectors:word;
       SecPerTrak:word;
       Heads     :word;
       HideSector:longint;
       TotalSec32:longint;
       DiskNumber:word;
       Signature :byte;
       SerialNum :longint;
       VolumeLabel:array[1..11] of char;
       SystemIDstr:array[1..8] of char;
     end;
var  BootSector,FATsector:Sector;
     BPB:^BPBRec;
     LastResult,FirstDataSector,Clusters:word;
     dr:char;

procedure ReadDisk32(Drive:byte; CB:pointer);
assembler;
asm
  push ds
  lds  bx,CB
  mov  al,Drive
  mov  cx,-1
  int  25h
  add  sp,2
  pop  ds
  mov  LastResult,ax
  xor  ax,ax
  jc   @e
  mov  LastResult,ax
@e:
end;
procedure ReadSectors(Drive:byte; S:longint; N:word; Buf:pointer);
var CB:CBlockType;
begin
  with CB do begin
    Sector:=S;
    Number:=N;
    BufPtr:=Buf;
  end;
  ReadDisk32(Drive,@CB);
end;
procedure Block(x,y,ny:integer; c:byte);
begin
{  SetFillStyle(1,8+c); bar(x,y,x+2,y+ny-2);}
  SetColor©; line(x+1,y,x+1,y+ny-1); line(x,y+ny-1,x+1,y+ny-1);
  SetColor(8+c); line(x,y,x,y+ny-2);
end;
var d,i,n,s,ny:word;
    x,y:integer;
    c:byte; x4:boolean;
begin
  write('Диск: '); readln(dr); dr:=upcase(dr);
  ReadSectors(ord(dr)-65,0,1,@BootSector);
  writeln(LastResult);
  writeln('Загрузочный сектор диска ',dr,': (блок параметров BIOS)');
  writeln; BPB:=@BootSector;
  with BPB^ do begin
    FirstDataSector:=ReservSecs+FATsectors*FATcopies+RootItems div 16;
    Clusters:=2+(TotalSec32-FirstDataSector) div SecPerClus;
    writeln('                OEM ID: ',OEMIDstr);
    writeln('        Байт в секторе: ',BytePerSec);
    writeln('   Секторов в кластере: ',SecPerClus);
    writeln('    Резервных секторов: ',ReservSecs);
    writeln('      Кол-во копий FAT: ',FATcopies);
    writeln('    Элементов на корню: ',RootItems);
    writeln('    Секторов(до 65535): ',TotalSec16);
    writeln('      Дескриптор диска: ',Descriptor);
    writeln('       Секторов на FAT: ',FATsectors);
    writeln('   Секторов на дорожку: ',SecPerTrak);
    writeln('        Кол-во головок: ',Heads);
    writeln('      Скрытых секторов: ',HideSector);
    writeln('        Всего секторов: ',TotalSec32);
    writeln('Физический номер диска: ',DiskNumber);
    writeln('  Сигнатура загрузчика: ',Signature);
    writeln('        Серийный номер: ',SerialNum);
    writeln('            Метка том : ',VolumeLabel);
    writeln('             System ID: ',SystemIDstr);
    writeln('  Первый сектор данных: ',FirstDataSector);
    writeln('       Всего кластеров: ',Clusters);
    s:=ReservSecs;
  end;
  writeln('Нажмите любую клавишу для вывода карты диска');
  readkey;
  x:=VGA; y:=2;
  InitGraph(x,y,'c:programpascalbgi');
  Block(0,456,8,7); OutTextXY(8,456,'-Free cluster');
  Block(0,472,8,3); OutTextXY(8,472,'-Used cluster');
  Block(160,456,8,1); OutTextXY(168,456,'-Last (or only)');
  Block(160,472,8,6); OutTextXY(168,472,'-FAT ID');
  Block(320,456,8,4); OutTextXY(328,456,'-Bad cluster');
  ny:=456 div (Clusters div 320+1);
  i:=0; x:=i*2; y:=0; n:=i*2;
  ReadSectors(ord(dr)-65,s,1,@FATsector);
  while i<=Clusters do begin
    d:=FATsector[n]+FATsector[n+1]*256;
    case d of
    $0000: c:=7;
    $FFF7: c:=4;
    $FFF8: c:=6;
    $FFFF: c:=1;
    else c:=3;
    end;
    Block(x,y,ny,c);
    x:=x+2; if x=640 then begin x:=0; y:=y+ny; end;
    i:=i+1; n:=n+2;
    if n=BPB^.BytePerSec then begin
      n:=0; s:=s+1;
      ReadSectors(ord(dr)-65,s,1,@FATsector);
    end;
  end;
  readkey;
  CloseGraph;
end.

изменения в FAT-таблице появятся при создании (в том числе копировании), увеличении размера и удалении файла. При перемещении на самом деле файл никуда не двигается, просто его заголовок переносится из одного каталога в другой. Каталог для FATа - тот же файл, только с атрибутом "каталог", который содержит в качестве данных заголовки файлов. Правда есть еще корневой каталог - он занимает фиксированное положение сразу за FAT-таблицей и не регистрируется в ней. При удалении файла/каталога первая буква его имени затирается кодом 01, а первый его кластер в FAT-таблице объявляется свободным (механизм удаления еще надо уточнить, я точно не помню)

[P@sh@]

Это редактор диска, переделанный из выше приведенной проги:

... (Показать/Скрыть)

uses Crt;
type Sector=array[0..511] of byte;
    CBlockType=record
      Sector:longint;
      Number:word;
      BufPtr:pointer;
    end;
    BPBRec=record
      BootRecPtr:array[1..3] of byte;
      OEMIDstr  :array[1..8] of char;
      BytePerSec:word;
      SecPerClus:byte;
      ReservSecs:word;
      FATcopies :byte;
      RootItems :word;
      TotalSec16:word;
      Descriptor:byte;
      FATsectors:word;
      SecPerTrak:word;
      Heads     :word;
      HideSector:longint;
      TotalSec32:longint;
      DiskNumber:word;
      Signature :byte;
      SerialNum :longint;
      VolumeLabel:array[1..11] of char;
      SystemIDstr:array[1..8] of char;
    end;
var  BootSector,sec:Sector;
    BPB:pointer;
    LastResult,DataOrg,Clusters:word;
    dr:char;

function Hex(x:byte):word; assembler;
asm
  mov al,x;     mov ah,al;
  shr ah,4;     and al,0Fh;
  add ax,3030h; cmp al,39h;
  jna @1;       add al,7;
@1:cmp ah,39h;   jna @2;
  add ah,7;
@2:
end;
procedure ReadDisk32(Drive:byte; CB:pointer);
assembler;
asm
 push ds
 lds  bx,CB
 mov  al,Drive
 mov  cx,-1
 int  25h
 add  sp,2
 pop  ds
 mov  LastResult,ax
 xor  ax,ax
 jc   @e
 mov  LastResult,ax
@e:
end;
procedure ReadSectors(Drive:byte; S:longint; N:word; Buf:pointer);
var CB:CBlockType;
begin
 with CB do begin
   Sector:=S;
   Number:=N;
   BufPtr:=Buf;
 end;
 ReadDisk32(Drive,@CB);
end;
var i,j,y:byte;
   r:word;
   n:longint;
   k:char; ext:boolean;
   s:string[80];
   m:array[0..159] of byte;
begin
 textbackground(0); textcolor(7); clrscr;
 write('Диск: '); readln(dr); dr:=upcase(dr);
 ReadSectors(ord(dr)-65,0,1,@BootSector);
 writeln(LastResult);
 writeln('Загрузочный сектор диска ',dr,': (блок параметров BIOS)');
 writeln; BPB:=@BootSector;
 with BPBRec(BPB^) do begin
   DataOrg:=ReservSecs+FATsectors*FATcopies+RootItems div 16;
   if secperclus=0 then clusters:=0 else
   Clusters:=2+(TotalSec32-DataOrg) div SecPerClus;
   writeln('                OEM ID: ',OEMIDstr);
   writeln('        Байт в секторе: ',BytePerSec);
   writeln('   Секторов в кластере: ',SecPerClus);
   writeln('    Резервных секторов: ',ReservSecs);
   writeln('      Кол-во копий FAT: ',FATcopies);
   writeln('    Элементов на корню: ',RootItems);
   writeln('    Секторов(до 65535): ',TotalSec16);
   writeln('      Дескриптор диска: ',Descriptor);
   writeln('       Секторов на FAT: ',FATsectors);
   writeln('   Секторов на дорожку: ',SecPerTrak);
   writeln('        Кол-во головок: ',Heads);
   writeln('      Скрытых секторов: ',HideSector);
   writeln('        Всего секторов: ',TotalSec32);
   writeln('Физический номер диска: ',DiskNumber);
   writeln('  Сигнатура загрузчика: ',Signature);
   writeln('        Серийный номер: ',SerialNum);
   writeln('            Метка тома: ',VolumeLabel);
   writeln('             System ID: ',SystemIDstr);
   writeln('  Первый сектор данных: ',DataOrg);
   writeln('       Всего кластеров: ',Clusters);
   r:=ReservSecs;
 end;
 writeln('Нажмите любую клавишу');
 readkey; n:=0; y:=0; clrscr; writeln('Диск ',dr);
 ReadSectors(ord(dr)-65,n,1,@sec);
repeat
 gotoxy(1,2); ClrEol;
 write('Текущий сектор: ',n);
 if n>=DataOrg then
   write(' (кластер: ',2+(n-DataOrg) div BPBRec(BPB^).SecPerClus,')');
 gotoxy(1,25); write('F1-Информация  F5-Сектор');
 for i:=y to y+19 do begin
   s:='0'+chr(Hi(Hex(i)))+chr(Lo(Hex(i)))+'0   ';
   for j:=0 to 15 do begin
     s:=s+chr(Hi(Hex(sec[i*16+j])))+chr(Lo(Hex(sec[i*16+j])));
     if (j=3) or (j=7) or (j=11) then s:=s+' - '
     else s:=s+' ';
   end; s:=s+'   ';
   for j:=0 to 15 do s:=s+chr(sec[i*16+j]);
   for j:=0 to 79 do begin
     if j<5 then
       mem[$B800:(3+i-y)*160+j*2+1]:=$3F else
     if j<64 then
       mem[$B800:(3+i-y)*160+j*2+1]:=$07 else
       mem[$B800:(3+i-y)*160+j*2+1]:=$1E;
     mem[$B800:(3+i-y)*160+j*2]:=ord(s[j+1]);
   end;
 end;
 k:=readkey; ext:=false;
 if k=#0 then begin
   ext:=true; k:=readkey;
 end;
 if (k='2') or (ext and (k=#80)) then
   if y<12 then inc(y);
 if (k='8') or (ext and (k=#72)) then
   if y>0 then dec(y);
 if (k='4') or (ext and (k=#75)) then
   if n>0 then begin
     dec(n);
     ReadSectors(ord(dr)-65,n,1,@sec);
   end;
 if (k='6') or (ext and (k=#77)) then
   if n<BPBRec(BPB^).TotalSec32 then begin
     inc(n);
     ReadSectors(ord(dr)-65,n,1,@sec);
   end;
 if ext and (k=#59) then begin
   textbackground(2); textcolor(15);
   gotoxy(25,10);
   writeln('                              ');
   gotoxy(25,11);
   with BPBRec(BPB^) do
   writeln('  Сектор  FAT (',FATcopies,'-х):',r:3,'-',(r+FATsectors*FATcopies-1):3,'   ');
   gotoxy(25,12);
   with BPBRec(BPB^) do
   writeln('  Корневой каталог: ',
     (ReservSecs+FATsectors*FATcopies):3,'-',(DataOrg-1):3,'   ');
   gotoxy(25,13);
   with BPBRec(BPB^) do
   writeln('  Первый кластер (№2): ',DataOrg:3,'    ');
   gotoxy(25,14);
   writeln('                              ');
   textbackground(0); textcolor(7);
   if readkey=#0 then readkey;
 end;
 if ext and (k=#63) then begin
   repeat
     gotoxy(1,2); ClrEol;
     write('Введите номер сектор  (0-',BPBRec(BPB^).TotalSec32,'): ');
     readln(n);
   until (n>=0) and (n<=BPBRec(BPB^).TotalSec32);
   ReadSectors(ord(dr)-65,n,1,@sec);
 end;
until k=#27;
 textbackground(0); textcolor(7); clrscr;
end.

[USA]

Работа выполнена, господа!!
Могу предоставить результат, если кому надо?

Всем спасибо за поддержку!!

[Altair]

>>> Могу предоставить результат, если кому надо
Надо!

[Dark]

И где же результат??