Дизасемблювання TPU, TPP, TPW модулів, написаних на Паскалі

Предмет:

Програмування

Тип роботи:

Курсова робота

К-сть сторінок:

82

Мова:

Українська

Оцінка:

justify;"> if do_browser in active_options then

begin

read_file(unit_list[1]^.path,pointer(browser_buf),browser_ofs,header^.browser_size);

print_browser;

freemem(browser_buf,header^.browser_size);

end;

{$ENDIF}

if do_code in active_options then

begin

read_file(unit_list[1]^.path,pointer(code_buf),code_ofs,header^.code_size);

print_dump(code_seg);

freemem(code_buf,header^.code_size);

end;

if do_const in active_options then

begin

read_file(unit_list[1]^.path,pointer(code_buf),const_ofs,header^.const_size);

print_dump(const_seg);

freemem(code_buf,header^.const_size);

end;

if do_reloc in active_options then

begin

read_file(unit_list[1]^.path,pointer(reloc_buf),reloc_ofs,header^.reloc_size);

print_reloc(code_seg);

freemem(reloc_buf,header^.reloc_size);

end;

if do_vmt in active_options then

begin

read_file(unit_list[1]^.path,pointer(reloc_buf),const_reloc_ofs,header^.const_reloc_size);

print_reloc(const_seg);

freemem(reloc_buf,header^.const_reloc_size);

end;

ErrorStatus;

readln

end.

Test1.pas

unit test1;

{$O+,G+,N+,Y+,L+,D+}

interface

uses Dos,Printer;

type

ea1 = 0..2;

ea = (rr,tt,yy);

const

{ These constants should all be printable }

i = 1;

b = true;

s = 'This is a string';

s_1 = #3'This is a string with control chars'#13#10'X'#0'0';

f = 1.23;

c = 'A';

e = 1e3000;

pp = ptr($40,8);

bs = [0..32];

cs = [#0..#32,'A','B','D'..'Z'];

es = [rr..yy];

ce = rr;

type

type1 = array[rr..yy] of byte;

type1_1 = array[1..43] of byte;

type1_2 = array[#4..#56] of byte;

type1_3 = array[False..True] of byte;

type1_4 = array[wordbool] of byte;

type2 = record

b1 : byte;

b2 : byte;

end;

type3 = object

b1 : byte;

b2 : byte;

constructor c(a1,a2:byte);

destructor d;

procedure m;

procedure v; virtual;

procedure vd; virtual 5;

{$IFDEF DPMI}

procedure ve; virtual 7;

{$ENDIF}

private

pb1 : byte;

procedure pm;

procedure pv; virtual;

end;

type3_1 = object

b1 : byte;

b2 : byte;

constructor c;

destructor d;virtual;

end;

type4 = file of byte;

type4_1 = file;

type4_2 = file of array [0..2] of Extended;

type5 = text;

type6 = function : byte;

type6_1 = procedure(var arg1:byte;arg2:type2;var arg3);

type7 = set of byte;

type7_1 = set of 1..3;

type8 = ^byte;

type8_1 = pointer;

type9 = string;

type9_1 = string[30];

type10 = comp;

type11 = real;

type12 = 1..6;

type13 = boolean;

type14 = char;

type15 = (red, green, blue);

var

v : byte;

ab : array [0..9] of byte;

a : word absolute v;

a_1 : word absolute $40:$50;

var

testww:word;

procedure p1;inline($8a/<4/>64555/testww+1/seg0040);

procedure p2;

procedure p3;

{$IFDEF DPMI}

procedure p4;

procedure p41;

{$ENDIF}

function func(v : byte; var r : byte):Byte;

procedure proc(v : byte; var r : byte);

function fun(v : byte; var r : byte) : byte;

implementation

{$L TEST1.OBJ}

{$IFDEF DPMI}

procedure Onesd;far;external 'Test' name 'zkouska';

procedure Onessd;far;external 'Test2' name 'z3kouska';

procedure Oness;far;external 'Test3' index 1;

{$ENDIF}

procedure AA; external;

constructor type3.c; begin write('1') end;

destructor type3.d; begin write(lst,'12') end;

procedure type3.m; begin write(lst,'123') end;

procedure type3.v; begin end;

procedure type3.vd; begin end;

procedure type3.pm; begin end;

procedure type3.pv; begin end;

{$IFDEF DPMI}

procedure type3.ve; external 'name' index 5;

{$ENDIF}

constructor type3_1.c; begin end;

destructor type3_1.d; begin end;

function func;

procedure proc;

begin

end;

begin

end;

procedure proc;

var

a : word absolute v;

{sds:pathstr;}

begin

{a:= fcarry;}

a:=doserror;

{Exec('','');}

end;

{$i test1.inc}

procedure aa;external;

procedure p11;near;

begin

end;

procedure p12;interrupt;

begin

end;

procedure p2; assembler;

asm

end;

procedure p3;

procedure p12x;

begin

writeln(pos('4','4'));

end;

var datav:word;

const datac:word=0;

begin

p11;

p12x;

end;

{$IFDEF DPMI}

procedure p4;external 'name' index 4;

procedure p41;external 'name' name 'test';

procedure p44;export;begin p4;end;

{$ENDIF}

end.

Інструкція користувача

Працює програма дуже просто, після запуску, виводиться запит, який файл програма повинна опрацювати. Потрібно повністю ввести шлях до файла або 0 для завершення роботи і натиснути “Enter”. Програма знову виведе запит, в який файл виводити результати. Так само потрібно вказати повний шлях до цього файла. Якщо файла не існує програма створить його сама. Якщо він існує, то він буде переписаний – тут слід бути обережним. Після введення вихідного файлу програма опрацює вхідний файл, видасть на екран помилки і попередження, які виникли в ході роботи і, після чергового натиснення “Enter”, закриється. Результати у файлі виводу.

1. Розшифрований заголовок модуля.

2. Секція інтерфейсу, процедури, функції і їх змінні.

3. Опис файлів модуля (коли були створені, кількість рядків)

4. Точки входу в процедури і функції

5. Блоки коду.

6. Блоки констант.

7. Блоки змінних.

8. Імена використаних динамічних бібліотек.

9. Список використаних модулів.

10. Інформація броузера, використані символи.

11. Емітований код.

12. Перерозподіл даних для використаних модулів.

Література

1. В. И. Юров “АSSEMBLER, 2-е издание”. Учебник для вузов. Питер, 2005. – 637 с.

2. CuteDevil, Pegasus, “The art of disassembly”. Free online ebook. REN, 2003.

3. Ю.С.Бородич, А.Н.Вальчева, А.И.Кузьмич “Паскаль для персональных компьютеров ”.Справ. пособие Мн.:1991.—365с

4. Касперский Крис. Образ мышления – дизассемблер IDA. – М.: Солон-Р, 2001.