1. Вступ
Тепер комп'ютери відіграють у житті людини все більшу та більш роль. Раніше, коли ще не було комп'ютерів, чи вони були мало розповсюдженні, все робилося вручну. Коли комп'ютери одержали широке розповсюдження, комп'ютер став допомагати людині, бо він може багато операцій робити набагато швидше, ніж людина.

Але в наш час комп'ютер використовується і як ігровий автомат, на якому можна грати в різні ігри. Тому програма, яка б дозволяла контролювати ті програми, які запускаються на комп'ютері, була б дуже корисною.

2. Постановка задачі
Розробити програму “Контроль програм, які запускались на даному комп'ютері" на мові програмування ASM-86.

Програма розміщується резидентно в пам'ятi, тож не заважатиме pоботi iнших пpогpам, з якими може працювати користувач.

3. Обґрунтування вибору методів розв'язку задачі
Отже, необхідно написати програму, яка здійснює контроль програм, що запускалися на комп'ютері. При виборі алгоритму програми у мене не виникло варіантів. Тут все дуже просто. В int 21h є функція 4BH, яка запускає другі програми. Перепризначаємо цю функцію, та в процесі роботи цієї функції виділяємо ім'я, час та дату запуску програми, та записуємо цю інформацію до файлу. Також перевіряємо ім'я на присутність у стоповому файлі, і виходимо з функції, якщо ім'я присутнє в списку.

4. Алгоритм програми
Алгоритм головної програми:

Перевірка на присутність програми в пам'яті.

Присутня, перехід на перевірку параметрів.

Не присутня, встановлення нового обробника переривання 21h, залишення резидента в пам'яті.

Перевірка параметрів на символи /r, /?, /s, /d.

Якщо є символи /r, то вигрузка резидента з пам'яті (звільнення пам'яті, відновлення старого обробника переривання 21h).

Якщо є символи /?, то вивід допомоги.

Якщо є символи /s, то інвертування прапорцю зупинки (чи буде перевіряться ім'я на присутність в стоповому файлі).

Якщо є символи /d, то вилучаємо файл, в якому записується інформація про програми, які запускаються на комп'ютері.

Закінчити програму.

Алгоритм обробника переривання 21h:

Перевірка на функцію перевірки на присутність.

Перевірка на функцію 4Bh.

Якщо потрібно, перевірка на те, чи потрібно запускати дану програму.

Аналізується та записується інформація про дану програму в файл.

Виклик старого обробника переривання 21h.

Вихід з обробника.

5. Реалізація програми
Програма написана на мові ASM-86 з використанням команд процесора 86/286. Вона складається з головної програми, яка перевіряє параметри, які задані в командному рядку, та функції-обробника переривання 21h, який й контролює програми, які запускалися.

Перевага написаної мною програми-резидента в тому, що вона залишається постійно в пам'яті, завдяки чому користувач не помічає контролю.

Програма компілюється Turbo Assembler, зв'язується за допомогою TLINK.

6. Системні вимоги
IBM сумісний комп'ютер із мікропроцесором Intel 80086 або старшим.

Операційна система - ДОС

Пам'ять - 640 К і вище

7. Інструкція для користувача
Для запуску резидентної програми, яка здійснює контроль програм, які запускалися на комп'ютері, потрібно в командному рядку набрати kontrol.com та натиснути Enter. Також в командному рядку можна задавати параметри:

“/R" - вигрузити програму з пам'яті.

“/? ” - виводе допомогу.

“/D" - вилучення файлу зберігання програм, що запускалися.

“/S" - Інвертування стопового прапору.

Програма запам'ятовує імена, дату та час запуску всіх програм, які запускалися на комп'ютері, в файлі, який знаходиться в кореневому каталозі диску С з ім'ям history. asm. Також програма дозволяє задавати імена тих файлів, які не потрібно давати запускати. Ці імена задаються в файлі stop. asm в кореневому каталозі диску С.

8. Висновки
Отже, на мові ASM-86 створено програму, яка виконує контроль програм, що запускалися на комп'ютері.

Використана література
1) “Програмування на мові Асемблера ЕС ЕВМ" З.С. Брич, В.I. Воющ Москва 1989 р. ст. 166

2) “Програмування на сучасних мовах програмування. ” Москва 1990 р. ст. 206

3) “Основи мови” Асемблер” В.I. Криволап. Москва 1997р. ст.309

4) “Ассемблер для початкiвцiв” М.П. Шукiн. Київ 1980р. ст.155

5) “Турбо Асемблер” Л.В. Захаров. Харків 1995 р ст.178

6) “Макро Асемблер” К.С. Кропiйко, О.Д. Богатирова. Київ - “Наука” 1991 р.

7) Електронний довідник BOOK.

Додаток
Лістинг програми
jumps;

locals;

Leng EQU 0080h; Смещение байтов с длиной строки параметр.

Parametr EQU 0081h; Смещение параметров

model tiny; Модель памяти TINY - крошечная.

code; Начало сегмента кода.

org 100h; Установка точки входа.

start:; Метка с которой начинается программа

jmp init; Переход на установки.

old dw 0,0; Указатели на старые вектора прерываний.

string db 100 dup (0); Имя запускаемой программы

string1 db 100 dup (0); Имя запускаемой программы

comp db 0; флаг сравнения

err1 db 0; флаг ошибки

str1 db 0; буфер файла

stop1 db 0; проверять ли сравнение

lf db 13,10; сиволы перехода на новую строчку

nam db 'c: \history. asm',0; Имя файла, в котором будем сохранять

nam1 db 'c: \stop. asm',0; Имя файла, с запрещенными программами

len dw 0; длина строки с именем программы

OutFile dw 0; Номер канала файла

OutFile1 dw 0; Номер канала файла

tim db 25 dup (' '); Время и дата

new21 proc

; - ---------------------------------------------------------------------------¬

; ¦New21 - Процедура обработки 21h прерывания ¦

; L----------------------------------------------------------------------------

cmp ax,9090h; проверяем, если AX<>9090h

jnz q1; то переходим на продолжение обработки

mov ax,12h; иначе возвращаем AX=12h

iret; Выходим из прерывания

q1:

cmp ah,4bh; проверяем, если AH=4bh

je @@1; то переходим на продолжение обработки

jmp exit; иначе переходим на выход

@@1:

push ax bx cx dx ds si DI ES; сохраняем все используемые регистры в стеке

push dx; - ¬заносим в регистр SI сегмент, в котором

pop si; - содержится имя запускаемой программы

mov bx,0; обнуляем регистр BX

m1:

mov al,ds: [si+bx] ; =¬

mov cs: string [bx],al; ¦ копируем имя программы в переменную

inc bx; ¦ string

cmp al,0; =-

jnz m1

mov cs: len,bx; сохраняем длину строки

cmp cs: stop1,0; проверяем флаг проверки

jne noprov; надо проверять

call prov; если надо, то на проверку

noprov:; иначе не проверять

lea dx,cs: nam; адрес выходного файла

push cs

pop ds

call createFile; процедура создания файла

mov ah,40h; функция записи в файл

mov bx,cs: outfile; номер файла

mov cx,cs: len; длина буфера

lea dx,cs: string; адрес буфера

pushf

call dword ptr cs: old; вызываем функцию записи в файл

mov ah,02h; функция чтения текущего времени

int 1ah; прерывание работы с часами реального времени

mov ah,ch; - ¬

mov al,ch; ¦

and ah,11110000b; ¦выделяем цифры часов

and al,1111b; ¦

shr ah,4; ¦

add ah,48; ¦

add al,48; - -

mov tim [2],ah; - ¬сохраняем часы

mov tim [3],al; - -

mov tim [4],': '; ставим двоеточие

mov ah,cl; - ¬

mov al,cl; ¦

and ah,11110000b; ¦выделяем цифры минут

and al,1111b; ¦

shr ah,4; ¦

add ah,48; ¦

add al,48; - -

mov tim [5],ah; - ¬сохраняем минуты

mov tim [6],al; - -

mov tim [7],': '; ставим двоеточие

mov ah,dh; - ¬

mov al,dh; ¦

and ah,11110000b; ¦выделяем цифры секунд

and al,1111b; ¦

shr ah,4; ¦

add ah,48; ¦

add al,48; - -

mov tim [8],ah; - ¬сохраняем секунды

mov tim [9],al; - -

mov ah,04h; функция чтения текущей даты

int 1ah; прерывание работы с часами реального времени

mov ah,dl; - ¬

mov al,dl; ¦

and ah,11110000b; ¦выделяем цифры дня

and al,1111b; ¦

shr ah,4; ¦

add ah,48; ¦

add al,48; - -

mov tim [12],ah; - ¬сохраняем день

mov tim [13],al; - -

mov tim [14],': ';

mov ah,dh; - ¬

mov al,dh; ¦

and ah,11110000b; ¦выделяем цифры месяца

and al,1111b; ¦

shr ah,4; ¦

add ah,48; ¦

add al,48; - -

mov tim [15],ah; - ¬сохраняем месяц

mov tim [16],al; - -

mov tim [17],': '; ставим двоеточие

mov ah,ch; - ¬

mov al,ch; ¦

and ah,11110000b; ¦выделяем цифры века

and al,1111b; ¦

shr ah,4; ¦

add ah,48; ¦

add al,48; - -

mov tim [18],ah; - ¬сохраняем век

mov tim [19],al; - -

mov ah,cl; - ¬

mov al,cl; ¦

and ah,11110000b; ¦выделяем цифры года

and al,1111b; ¦

shr ah,4; ¦

add ah,48; ¦

add al,48; - -

mov tim [20],ah; - ¬сохраняем год

mov tim [21],al; - -

mov ah,40h; Функция вывода в файл

mov bx,cs: outfile; номер файла

mov cx,25; количество выводимых символов=25 (время и дата)

lea dx,cs: tim; адрес выводимой строки

pushf; сохраняем регистр флагов в стеке

call dword ptr cs: old; вызываем старый обработчик прерывания

mov ah,40h; =¬

mov bx,cs: outfile; ¦

mov cx,2; ¦ переход в файле на следующую строку

lea dx,cs: lf; ¦

pushf; ¦

call dword ptr cs: old; =-

mov ah,3eh; Функция закрытия файла

mov bx,cs: outfile; номер файла

pushf; сохраняем регистр флагов в стеке

call dword ptr cs: old; вызываем старый обработчик прерывания

lea di,cs: string; =¬

push cs; ¦

pop es; ¦ обнуляем строку

mov cx,100; ¦

mov al,0; ¦

rep stosb; =-

pop ES DI si ds dx cx bx ax; восстанавливаем регистры из стека

cmp cs: stop1,0; надо ли проверять

jne exit; если ненадо то на старый обработчик

cmp cs: comp,1; иначе проверяем на совпадение

je exxit; если совпадает то на eexit

exit:

jmp dword ptr cs: old; переходим на старый обработчик

exxit:

iret; выход из обработчика

new21 endp; конец обработчика прерывания

CreateFile Proc

; - ---------------------------------------------------------------------------¬

; ¦CreateFile - процедура создания выходного файла, перед этим проверяется есть¦

; ¦ли он уже на диске. Если есть, то он открывается и позиционируется на конец¦

; ¦Вход DS: DX=имя файла ¦

; ¦Выход cf=0 операция прошла успешно ¦ ¦

; L----------------------------------------------------------------------------

mov al,1; Разрешаем только запись

mov ah,3dh; Функция DOS открытия файла

pushf

call dword ptr cs: old; вызываем старый обработчик прерывания

jc @@1; Проверка на существование:

mov cs: outfile,ax; =¬

mov ah,42h; ¦

mov bx,cs: outfile; ¦

mov cx,0; ¦позиционируется на конец

mov dx,0; ¦

mov al,2; ¦

pushf; ¦

call dword ptr cs: old; ¦

ret; =-

@@1:

lea dx,cs: nam; =¬

xor cx,cx; ¦

mov cx,110b; ¦

mov ah,3ch; ¦Если файла нет с таким именем, то он

pushf; ¦

call dword ptr cs: old; ¦создаётся

mov cs: outfile,ax; ¦

ret; =-

CreateFile endp

Prov proc

; - --------------------------------------------------------------------¬

; ¦Prov - процедура проверки имени программы которая запускается и имен¦

; ¦программ, которые берутся из файла stop. asm. ¦

; ¦Вход нет ¦

; ¦Выход comp=1 имена совпали ¦ ¦

; L---------------------------------------------------------------------

push ds es di si; сохраняем все используемые регистры в стеке

mov cs: comp,0; обнуляем флаг сравнения

mov cs: err1,0; обнуляем флаг ошибки

mov ah,3dh; Функция DOS открытия файла

lea dx,cs: nam1; адрес имени файла с запрещаемыми программами

push cs

pop ds

mov al,0; открытие файла на чтение

pushf

call dword ptr cs: old; вызываем старый обработчик прерывания

jnc @@9; Проверка на существование: если не существует, то

pop si di es ds; восстанавливаем регистры из стека

ret; выходим из процедуры

@@9:; иначе

mov cs: outfile1,ax; сохраняем номер файла

@@12:

lea di,cs: string1; адрес строки

@@11:

mov ah,3fh; Функция чтения из файла

mov bx,cs: outfile1; номер файла, который читаем

mov cx,1; количество читаемых символов

lea dx,cs: str1; адрес буфера

push cs;

pop ds;

pushf;

call dword ptr cs: old; вызываем старый обработчик прерывания

cmp ax,-1; проверка на ошибку

je error1;

cmp ax,0; проверка на количество прочитанных байт

je error1;

jmp noerror;

error1:; ошибка

mov cs: err1,1; устанавливаем флаг ошибки

jmp error;

noerror:; нет ошибки

cmp cs: str1,13; проверка на код перехода на новую строку

je @@21; если равно, то на @@21

mov al,cs: str1; записываем в al символ

cmp al,'a'; если меньше, чем 'a', то

jb @@q1; на @@q1

cmp al,'z'; если больше, чем 'z', то

ja @@q1; на @@q1

sub al,32; иначе вычитаем разницу между больш. и маленькими

@@q1:;

mov cs: [di],al; сохраняем символ в строке

inc di; увеличение текущей позиции

jmp @@11; переход к следующему символу

@@21:;

mov ah,3fh; Функция чтения из файла

mov bx,cs: outfile1; номер файла, который читаем

mov cx,1; количество читаемых символов

lea dx,cs: str1; адрес буфера

push cs;

pop ds;

pushf;

call dword ptr cs: old; вызываем старый обработчик прерывания

error:;

lea di,cs: string; адрес имени загружаемой программы

push cs;

pop es;

lea si,cs: string1; адрес имени программы, прочитанной из файла

push cs;

pop ds;

mov al,0; загружаем в al символ с кодом 0

mov cx,100; количество символов, в которых ищем

cld; направление поиска вперед

repne scasb; ищем символ с кодом 0

std; направление поиска назад

dec di; уменьшаем адрес поиска на 1

mov cx,13; длина имени и расширения программы

mov al,'\'; загружаем в al символ '\'

repne scasb; ищем символ '\'

cld; направление поиска вперед

inc di; увеличиваем адрес сравнения на 2

inc di;

mov cx,13; длина сравниваемых строк

repe cmpsb; сравниваем строки

je @@ex; если равно, то на @@ex

; mov cs: comp,0;

jmp @@ex1; иначе на @@ex1

@@ex:;

mov cs: comp,1; устанавливаем флаг равенства

@@ex1:;

mov cx,100; кол. байт

mov al,0;

lea di,cs: string1; адрес строки

push cs;

pop es;

rep stosb; обнуляем

cmp cs: comp,0; проверяем флаг сравнения

jne @@31; если не равен то на @@31

cmp cs: err1,1; проверяем флаг ошибки

je @@31; если равен то на @@31

jmp @@12; переход на начало сравнения

@@31:;

mov ah,3eh; Функция закрытия файла

mov bx,cs: outfile1; номер файла, который закрываем

pushf;

call dword ptr cs: old; Вызываем старый обработчик прерывания

pop si di es ds; восстанавливаем регистры из стека

ret

prov endp; конец процедуры сравнения

; - ---------------------------INIT----------------------------------------

init:; Установки.

mov ah,9h; функция вывода строки

mov dx,offset text; адрес сообщения о программе

int 21h; выводим сообщение

mov ax,9090h; наша функция проверки, есть лди в памяти

int 21h; вызываем нашу функцию проверки

cmp ax,12h; AX=12?

jz exi; если да, то на проверку парвметров

mov ah,35h; функция чтения адреса прерывания

mov al,21h; номер прерывания

int 21h; вызываем функцию чтения адреса прерывания

mov old,bx; сохраняем в переменной сегмент исмещение

mov old+2,es; обработчика прерывания

mov ah,25h; функция замены прерывания

mov al,21h; номер прерывания

mov dx,offset new21; адрес нового обработчика

int 21h; вызываем функцию замены прерывания

lea dx,cs: nam; адрес выходного файла

push cs

pop ds

call createFile; процедура создания файла

mov ah,40h; =¬

mov bx,cs: outfile; ¦

mov cx,2; ¦ переход в файле на следующую строку

lea dx,cs: lf; ¦

pushf; ¦

call dword ptr cs: old; =-

mov ah,3eh; Функция закрытия файла

mov bx,cs: outfile; номер файла

pushf; сохраняем регистр флагов в стеке

call dword ptr cs: old; вызываем старый обработчик прерывания

mov dx,offset init; адрес конца обработчика

int 27h; Выйти и остаться резидентом.

; Проверка параметров

exi:

push cs

pop ds

xor ch,ch; обнуляем CH

mov cl, [ds: Leng] ; CX=длина параметров

inc cx; добавить символ возврата каретки

mov si,Parametr; поместить адрес параметров в SI

; пропустить начальный пробелы и табуляцию

@@100:

call Separators; проверка на пробелы

jne @@20; переход если пробелов и табул. нет

inc si; иначе пропустить этот символ

loop @@100; переход пока не закончена обработка

@@20:

cmp cx,0; CX=0?

jne @@30; если нет, то есть параметры

jmp noparam; нет параметров

@@30:

mov ah,ds: [si] ; в AH заносим символы строки параметров

cmp ah,'/'; сравниваем AH с символом '/'

je param; если равно то следующий символ

cmp ah,'-'; сравниваем AH с символом '-'

je param; если равно то следующий символ

cmp ah,'r'; сравниваем AH с символом 'r'

je release; если равно то на выгрузку резидента

cmp ah,'R'; сравниваем AH с символом 'R'

je release; если равно то на выгрузку резидента

cmp ah,'d'; сравниваем AH с символом 'd'

je delete; если равно то на удаление файла

cmp ah,'D'; сравниваем AH с символом 'D'

je delete; если равно то на удаление файла

cmp ah,'s'; сравниваем AH с символом 's'

je stoped; если равно то на инвертирование флага stop1

cmp ah,'S'; сравниваем AH с символом 'S'

je stoped; если равно то на инвертирование флага stop1

cmp ah,'? '; сравниваем AH с символом '? '

je help; если равно то на выдачу помощи

cmp ah,'h'; сравниваем AH с символом 'h'

je help; если равно то на выдачу помощи

cmp ah,'H'; сравниваем AH с символом 'H'

je help; если равно то на выдачу помощи

param: inc si

mov ah,ds: [si] ; берем следующий символ

cmp ah,'d'; сравниваем AH с символом 'd'

je delete; если равно то на удаление файла

cmp ah,'D'; сравниваем AH с символом 'D'

je delete; если равно то на удаление файла

cmp ah,'s'; сравниваем AH с символом 's'

je stoped; если равно то на инвертирование флага stop1

cmp ah,'S'; сравниваем AH с символом 'S'

je stoped; если равно то на инвертирование флага stop1

cmp ah,'? '; сравниваем AH с символом '? '

je help; если равно то на выдачу помощи

cmp ah,'h'; сравниваем AH с символом 'h'

je help; если равно то на выдачу помощи

cmp ah,'H'; сравниваем AH с символом 'H'

je help; если равно то на выдачу помощи

cmp ah,'r'; сравниваем AH с символом 'r'

je release; если равно то на выгрузку резидента

cmp ah,'R'; сравниваем AH с символом 'R'

jne noparam; если не равно то на noparam

release:

mov ah,09h; функция вывода строки

lea dx,mes2; адрес сообщения о выгрузке

int 21h; выводим сообщение

mov ah,35h; функция чтения адреса прерывания

mov al,21h; номер прерывания

int 21h; вызываем функцию чтения адреса прерывания

push es

mov ah,25h; функция замены прерывания

mov al,21h; номер прерывания 21h

mov dx,es: old; адрес старого обработчика

mov ds,es: old+2

int 21h; вызываем функцию замены прерывания

pop ds

mov ah,49h; функция освобождения паияти

int 21h; освобождаем паиять

jmp ex_init; переход на выход

delete:

mov ah,9; функция вывода строки

mov dx,offset cs: mes3; адрес сообщения о удалении

int 21h; выводим сообщение

mov ah,41h; функция удаления файла

mov dx,offset cs: nam; адрес удаляемого файла

int 21h; удаляем файл

jmp noparam

stoped:

mov ah,35h; функция чтения адреса прерывания

mov al,21h; номер прерывания

int 21h; вызываем функцию чтения адреса прерывания

mov ah,9; функция вывода строки

not es: stop1; инвертируем флаг проверки

stoped2: cmp es: stop1,0; сравниваем флаг проверки с 0

jne stoped1; если не равно то на stoped1

mov dx,offset cs: mes4; адрес сообщения о наличии проверки

int 21h; выводим сообщение

jmp noparam

stoped1: mov dx,offset cs: mes5; адрес сообщения о не наличии проверки

int 21h; выводим сообщение

jmp noparam

help: mov ah,9; функция вывода строки

mov dx,offset helpt; адрес сообщения помощи

int 21h; выводим сообщение

mov ah,35h; функция чтения адреса прерывания

mov al,21h; номер прерывания

int 21h; вызываем функцию чтения адреса прерывания

mov ah,9; функция вывода строки

jmp stoped2

noparam:

lea dx,cs: mes1; адрес сообщения о наличии резидента в памяти

mov ah,9; функция вывода строки

int 21h; выводим сообщение

ex_init:

mov ah,4ch; функция выхода из программы

mov al,0; возвращает код ошибки 0

int 21h; выход из программы

Separators Proc

; - ---------------------------------------------------------------------------¬

; ¦Separators - процедура проверки на пробелы ¦

; ¦ВЫХОД: ¦

; ¦zf=1: символ является пробелом, табуляцией или возвратом каретки ¦

; ¦zf=0: символ не является разделителем ¦

; L----------------------------------------------------------------------------

mov al,ds: [si] ; взять символ из ds: si

cmp al,020h; символ пробел?

je @@10; Если да то переход

cmp al,009h; символ табуляция?

je @@10; Если да то переход

cmp al,00dh; символ возврата каретки?

@@10:

ret

Separators EndP

db 'Сохранение названий всех программ, которые запускались на компьютере',13,10,'$'

Helpt db 'Syntax: History [/r|/R|-r|-R|r|R] [/d|/D|-d|-D|d|D] [/? |/h|/H|-? |-h|-H|? |h|H] ',13,10

db ' /r - released History from memory',13,10

db ' /d - delete files History',13,10

db ' /s - invert stop flag ',13,10

db ' /? - HELP',13,10,'$'

mes1 db 13,10,' Program alredy in memory $'

mes2 db 13,10,' Program released in memory $'

mes3 db 13,10,' delete files History $'

mes4 db 13,10,' stoped files $'

mes5 db 13,10,' not stoped files $'

end start; Конец программы, точка входа