Geum.ru

Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

write(f_out, tab,tab,tab,tab, ; R_, RefStr) end

else write(f_out, ,R_, RefStr);

k := succ(k)

end;

CharPos:= succ(CharPos)

end;

if reftype <> N then writeln(f_out);

end;

end;

writeln(f_out);

end;

 

begin

rep[none]:=NONE;

rep[B]:=BYTE;rep[W]:=WORD;rep[D]:=DWORD;

rep[N]:=NEAR;rep[F]:=FAR;

Current_SymbolTable_Index:= 0;

write(Enter filename: ); readln(FileName);

FileExt := false;

for CharPos:=1 to Length(FileName) do FileExt := FileName[CharPos] = .;

 

if FileExt then assign(f_in, FileName)

else assign(f_in, FileName+.DEB);

 

(* start pass 1 *)

reset(f_in);

Pass1;

Symbol_Table_Length := Current_SymbolTable_Index;

Current_SymbolTable_Index := 0;

Writeln;

Writeln(Symbol_Table_Length, symbols);

(* Sort symboltable *)

 

SortInputIndex := 0;

SortOutputIndex := 0;

Writeln(Sorting symboltable ...);

SortStatus := TurboSort(SizeOf(TableEntry));

if SortStatus <> 0 then writeln(Error , SortStatus:2, during sorting);

 

if FileExt then begin

CharPos:= 1;

while FileName[CharPos] <> . do CharPos:= succ(CharPos);

FileName := copy(FileName, 1, pred(CharPos));

end;

assign(f_out, FileName+.DBO);

rewrite(f_out);

Writeln(Writing cross-reference);

CrossRefList;

 

(* start pass 2 *)

reset(f_in);

Pass2;

close(f_out);

close(f_in)

end.

 

-------------------- end --------------

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Литература.

 

  1. Питер Абель АССЕМБЛЕР И ПРОГРАММИРОВАНИЕ ДЛЯ IBM PC. Технологический институт Британская Колумбия.

 

2. В.И.Юров Assembler (практикум и пособие). Изд. Питер.

Москва.2002.

 

3. А.А. Абдукодиров IBM PC АССЕМБЛЕРИДА ПРОГРАММАЛАШ

АСОСЛАРИ Университет 1998.

 

4. Р.Браун. Справочник по прерываниям IBM PC Москва,

издательство "Мир", 1994.

 

5. Р.Джордейн Справочник программиста персональных компьютеров

типа IBM PC, XT и AT. Москва, "Фин. и статистика" 1992.

 

  1. И.В.Юров Справочная система по языку ассемблера IBM PC. СПВУРЭ ПВО. 2000.

 

 

  1. Интернет сайты:

 

www.ilf.net

home1.gte.net/rdhaar/hotbox/

www.agate.net/~krees/

www.cdc.net/~x/

www.chibacity.com/chiba/

www.conexis.es/~amasso/

www.virewall.narod.ru/vir.html

www.etu.net.ru

www.ruler.h1.ru/asm/abel/

www.google.com/search/asm

www.hangup.da.ru/

www.home.pages.at/rolik/

www.bib.ru