Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Исходники Форум Информер Страны мира
   Резидентные Программы    >>    antigame
   
 
 Резидентный перехватчик ANTIGAME  Ярослав Мигач 17.06.1994

Резидентная программа, запрещающая переход в графический режим



14k 
 

AntiGame V 1.0 (c) 1992 Ярослав Мигач Представляю Вашему вниманию одну интересную программу. Она может быть полезна как в качестве примера резидентного перехватчика на языке Turbo Pascal, так и для практического использования в качестве средства борьбы с чересчур большими любителями игрушек на машинах коллективного пользования. ( Житья от них нет. ). Толчком для написания программ явились частые вызовы к заказчикам, которые постоянно зараждают вирусами свои машины, занося их с новыми игрушками, в результате чего страдает прикладное ПО и базы данных. Программа была использована из AUTOEXEC.BAT. AntiGame при запуске с параметром вызывает из текущего каталога программу AIDSTEST ( да простит меня Лозинский ) и тестирует диск передавая указанный параметр AIDSTESTу. Программа перехватывает INT 10 - функцию переключения видеорежимов и запрещает переключение видеорежимов старше 3, т. е. всю графику. Однако существует специальное средство временного отключения блокировки для "своих" программ. Тексты программ снабжены комментариями, так что разобратся не составит труда. Желаю успехов! Надеюсь, что приведенные материалы будут Вам полезны. Программа распространяется как FREEWARE. Вы модете использовать тексты приведенных программ как Вам заблагорассудится. ANTIGAME.ASM - модуль перехватчика INT 10 ANTIGAME.PAS - описываемая программа SCR.INC - ноты созданные программой MELODY SGP.PAS - модуль установки доступа ко всем видеорежимам через AntiGame SETGAME.PAS - программа установки доступа ко всем видеорежимам на заданное количество раз WIN.ASM - Процедуры низкоуровневого текстового оконного интерфейса фирмы Borland г. Киев 1992 тел. 441-40-81 (раб) 518-09-01 (дом) Ярослав Мигач