Защита от несанкционированного доступа

Появившиеся в начале 80-ых персональные ЭВМ (ПЭВМ или ПК) прочно
вошли во все сферы человеческой деятельности. Вместе с ними у эксплуатирующих
ПЭВМ организаций и ведомств возникли и многочисленные проблемы. Одна из них —
защита информации. Согласно статистическим данным более 80% компаний и агентств
несут финансовые убытки из-за нарушения безопасности данных. Проблема защиты
информации представляет собой совокупность тесно связанных проблем в областях
права, организации управления, разработки технических средств, программирования
и математики. Одна из центральных задач проектирования систем защиты состоит в
рациональном распределении имеющихся ресурсов. Характерная особенность
использования ПЭВМ в нашей стране заключатся в том, что доступ к ним имеют
многие пользователи. В связи с таким "многопользовательским" режимом работы
возникает целый набор взаимосвязанных вопросов по защите информации, хранящейся
в ПЭВМ. При создании и использовании ПЭВМ возникает целый ряд взаимосвязанных
теоретических и практических проблем. В коммерческих и военных областях одной из
основных является проблема защиты информации. Так можно выделить следующие
объективные причины, определяющие важность проблемы защиты
информации: широкое применение ПЭВМ в самых различных сферах
человеческой деятельности; совершенствование способов доступа пользователей к ресурсам
ПЭВМ; Усложнение методов и средств организации машинной обработки
информации приводят к тому, что информация становится все более уязвимой. Этому
способствуют такие факторы, как постоянно возрастающие объемы обрабатываемых
данных, накопление и хранение данных в ограниченных местах, постоянное
расширение круга пользователей, имеющих доступ как к ресурсам ПЭВМ, так и к
программам и данным, хранящихся в них, усложнение режимов эксплуатации
вычислительных систем и т. п. [6] Защита информации в процессе
ее сбора, хранения и обработки принимает исключительно важное значение. Под
принято принимать совокупность мероприятий, методов и
средств, обеспечивающих решение следующих задач: исключение несанкционированного доступа к защищаемым
программам и данным; исключение несанкционированного использования
хранящихся в ПЭВМ программ (т. е. защита программ от
копирования). Использование ПЭВМ в военной, коммерческой и других
областях человеческой деятельности порождает ряд специфических проблем, которые
необходимо решить для защиты обрабатываемой и хранящейся в ПЭВМ информации.
Одной из них является классификация возможных каналов утечки информации. Под
подразумевается способ, позволяющий нарушителю
получить доступ к обрабатываемой и хранящейся в ПЭВМ информации
[7]. Классификацию возможных каналов утечки информации исходя из типа
средства, являющегося основным при получении информации по возможному каналу
утечки. Следовательно, можно выделить три типа средств: человек, аппаратура,
программа. Применительно к ПЭВМ группу каналов, в которых основным средством
является человек, составляют следующие основные возможные каналы
утечки: чтение информации с экрана
посторонним лицом (во время отображения информации на экране законным
пользователем или при отсутствии законного пользователя на рабочем
месте); В группе каналов, в которых основным средством является
аппаратура, можно выделить следующие основные каналы утечки
: обеспечивающих доступ к информации; использование
специальных технических средств для перехвата электромагнитных излучений
технических средств ПЭВМ. В группе каналов, в которых основным
средством является программа, можно выделить следующие основные каналы утечки
: расшифровка программой зашифрованной
информации; В данной работе нас интересует последняя группа поэтому
система защиты данных от несанкционированного доступа должна обеспечивать
выполнение следующих функций: идентификация ресурсов, т. е. присвоение
ресурсам идентификаторов — уникальных признаков, по которым в дальнейшем система
производит аутентификацию; аутентификация защищаемых ресурсов, т. е.
установление их подлинности на основе сравнения с эталонными
идентификаторами; разграничение доступа пользователей по операциям
над ресурсами (программы, данные), защищаемыми с помощью программных
средств; установка системы защиты на ПЭВМ
, Во время создания системы защиты
можно выделить следующие основные принципы, которых следует придерживаться при
проектировании: Простота механизма защиты. Этот принцип общеизвестен но не
всегда глубоко осознается. Действительно, некоторые ошибки, не выявленные в ходе
проектирования и эксплуатации, позволяют обнаружить неучтенные пути доступа.
Необходимо тщательное тестирование программного или аппаратного средства защиты,
однако на практике такая проверка возможна только для простых и компактных
схем. Отсутствие доступа. В механизме защиты в нормальных условиях доступ
должен отсутствовать, и для работы системы защиты необходимы условия, при
которых доступ становится возможным. Кроме того, считается, что запрет доступа
при отсутствии особых указаний обеспечивает высокую степень надежности механизма
защиты. Механизм защиты можно не засекречивать, т. е. не имеет смысла
засекречивать детали реализации систем защиты, предназначенной для широкого
пользования. Исходя из этого, требуется разработать систему
защиты от несанкционированного доступа, которая должна обеспечивать
выполнение шифрование выбранных
файлов; реакция на несанкционированный доступ. Т. к. программа работает с файлами (шифрование,
установка защит), то входными данными являются файлы различного типа для
шифрования и EXE- и COM-файлы для установки пароля и проверки по ключевой
дискете. В качестве постоянной информации
используются таблицы перестановок и константы генератора псевдослучайных чисел
при шифровании файлов (подробнее см. Описание программы. Криптография). 2. Вычислительная система Программа "Защита данных от НСД" разрабатывалась под управлением
операционной системы MS-DOS 6.22. Предполагается, что программа будет работать
без сбоев с MS-DOS и PC-DOS версий не ниже 5.0. Операционная система (ОС)
является неотъемлемой частью ПЭВМ. ОС обеспечивает управление всеми аппаратными
компонентами и поддержку работы программ пользователя, предоставляя ему
возможность общего управления машиной. возможность подключения пользователем дополнительных
драйверов внешних устройств; развитый командный
язык; Важнейшей особенностью MS DOS является
модульность, что позволяет при необходимости расширения функций системы
модифицировать отдельные ее модули. DOS состоит из следующих основных
модулей: модуль расширения базовой системы
ввода/вывода(___BIO.COM); утилиты
DOS. Достоинством DOS является то, что любая программа может играть
роль сервисной, поскольку для ее запуска достаточно указать лишь имя файла, в
котором она содержится. Следовательно, с точки зрения пользователя такие
программы не отличаются от встроенных команд DOS. Программа может воспринимать
параметры, задаваемые в командной строке. Храниться она может в любом каталоге
на любом диске. Указанное свойство делает ДОС открытой для расширения.
Неизменное ядро системы составляют лишь BIOS и три основных моду- ля: BIO.COM,
DOS.COM и COMMAND.COM Общий объем оперативной памяти, занимаемой этими модулями,
составляет до 60 Кбайт. Программа работает на компьютерах клона IBM, начиная с процессора
Intel 80-286. Требуемый объем оперативной памяти — минимум 1,5 Mb. Минимальные
требования к видеоаппаратуре — карта VGA и 256 Kb видеопамяти. Программа "Защита данных от
несанкционированного доступа" разработана в среде Borland Pascal 7.0 (Borland
International , 1992). Пакет Borland Pascal 7.0 учитывает новейшие
достижения в программировании и практике создания программ и включает в себя три
режима работы: Пакет Borland Pascal включает в себя как язык
программирования — одно из расширений языка Паскаль для ПЭВМ клонов IBM, так и
среду, предназначенную для написания, отладки и запуска программ. Язык
характеризуется расширенными возможностями по сравнению со стандартом, хорошо
развитой библиотекой модулей, позволяющих использовать возможности операционной
системы, создавать оверлейные структуры, организовывать ввод-вывод, формировать
графические изображения и т. д. Среда программирования позволяет создавать
тексты программ, компилировать их, находить ошибки и оперативно их исправлять,
компоновать программы из отдельных частей, включая стандартные модули,
отлаживать и выполнять отлаженную программу. Пакет предоставляет пользователю
также большой объем справочной информации. Версия 7.0 также, как и предыдущая,
позволяет применять объектно-ориентированное программирование, обладает
встроенным ассемблером, имеет инструментальное средство создания интерактивных
программ — Turbo Vision, но появился ряд характерных
особенностей: ряд дополнительных расширений языка, таких, как
использование открытых массивов, параметров-констант, типизированного адресного
оператора @ и т. д.; усовершенствованные программы
Turbo Vision [2]. При написании программы также использовался
интегрированный пакет Turbo Vision 2.0. При создании прикладной программы
программист большие усилия затрачивает на организацию ввода-вывода информации,
т. е. на формирование интерфейса. Они соизмеримы с усилиями, затрачиваемыми на
программирование основного алгоритма программы, по которому решается конкретная
задача. Работа, связанная с организацией ввода-вывода, повторяется от программы
к программе, требует выполнения однотипных операций, отвлекает внимание
программиста от выполнения основной задачи. Прекрасным средством упрощения
работы по организации ввода-вывода, его унификации с учетом требований к
интерфейсу программ является разработанный фирмой Borland International пакет
Turbo Vision 2.0, представляющий объектно-ориентированную библиотеку средств
формирования пользовательского интерфейса. Кстати, интерфейс самого Borland
Pascal 7.0 (и Turbo Pascal 7.0 тоже) построен на стандартных объектах Turbo
Vision 2.0. Согласно этому рисунку программу можно представить как
совокупность двух частей: часть программы, обеспечивающая решение основной
программы, и часть, обеспечивающая организацию ввода-вывода с внешних устройств
(на внешние устройства), — так называемый интерфейс программы. В основную часть
(из основной части) информация может передаваться двумя способами —
непосредственная передача информации (например, программа формирует какие-то
данные и размещает их в конкретном файле на магнитном диске) и передача
информации с помощью организации диалога (например, после формирования тех же
данных происходит уточнение, в какой конкретно файл следует поместить
сформированную информацию). Способ, основанный на организации диалога, является
более универсальным и именно для организации диалога предназначен в первую
очередь пакет Turbo Vision. В программах, работающих в текстовом режиме,
диалог обычно организуется с помощью трех средств: меню, диалоговых окон и строк
состояния [3]. Также при создании программы использовался ассемблер — машинно-
ориентированный язык. На ассемблере написаны основные подпрограммы, где
требуется высокое быстродействие и минимальный размер программного кода. Оболочка программы (написана с
использованием Turbo Vision 2.0). Защита программ с помощью ключевой
дискеты (TASM 3.0). Модуль инсталляции будет устанавливать программу на
винчестер в определенный каталог, а также осуществлять привязку программы к
уникальным идентификаторам BIOS. При создании
интерактивного пользовательского интерфейса (оболочки программы) использовались
стандартные объекты пакета Turbo Vision. Горизонтальное
двухуровневое меню, строка состояния, рабочее поле, диалоговые окна,
информационные сообщения и сообщения об ошибках, поддержка "мыши" — вот
некоторые атрибуты оболочки. Зашифрованием данных
называется процесс преобразования открытых данных в зашифрованные с помощью
шифра, а расшифрованием данных — процесс преобразования закрытых данных в
открытые с помощью шифра. Дешифрованием будем называть процесс преобразования
закрытых данных в открытые при неизвестном ключе и, возможно, неизвестном
алгоритме. Криптографическая защита — это защита данных с помощью
криптографического преобразования, под которым понимается преобразование данных
шифрованием. Уравнение зашифрования — соотношение, описывающее процесс
образования зашифрованных данных из открытых данных в результате преобразований,
заданных алгоритмом криптографического преобразования. Уравнение расшифрования
— соотношение, описывающее процесс образования открытых данных из зашифрованных
данных в результате преобразований, заданных алгоритмом криптографического
преобразования. Под шифром понимается совокупность обратимых преобразований
множества открытых данных на множество зашифрованных данных, заданных алгоритмом
криптографического преобразования. Криптостойкостью называется характеристика
шифра, определяющая его стойкость к дешифрованию. Обычно эта характеристика
определяется периодом времени, необходимым для дешифрования [6]. Принцип
зашифрования заключается в генерации гаммы шифра с помощью датчика
псевдослучайных чисел (ПСЧ) и наложением полученной гаммы на открытые данные с
Процесс расшифрования данных сводится к повторной генерации гаммы
шифра при известном ключе и наложению такой гаммы на зашифрованные данные.
Полученный зашифрованный текст является достаточно трудным для раскрытия в том
случае, когда гамма шифра не содержит повторяющихся битовых последовательностей.
По сути дела гамма шифра должна изменяться случайным образом для каждого
шифруемого слова. Фактически если период гаммы превышает длину всего
зашифрованного текста и неизвестна никакая часть исходного текста, то шифр можно
раскрыть только прямым Чтобы получить линейные
последовательности элементов гаммы, используются датчики ПСЧ. К настоящему
времени на основе теории групп разработано несколько типов таких датчиков. —
наиболее доступный и эффективный. Для этого класса генераторов ПСЧ можно сделать
математически строгое заключение о том, какими свойствами обладают выходные
сигналы этих генераторов с точки зрения периодичности и случайности. , описываемые соотношением T(0) — исходная величина, выбранная в качестве
порождающего числа. Этот датчик ПСЧ генерирует псевдослучайные числа с
определенным периодом повторения, зависящим от выбранных значений A и C.
Значение М обычно устанавливается равным 2 , где b — длина слова ЭВМ
в битах. Датчик имеет максимальный период М до того, как генерируемая
последовательность чисел начнет повторяться. Линейный конгруэнтный датчик ПСЧ
имеет максимальную длину М тогда и только тогда, когда A mod 4 = 1 и С —
нечетное. В своей программе я положил А = 5, С = 27, Т(0) — пароль, вводимый
пользователем. F(i) = T(i) xor D(i) (2) Также при разработке алгоритма шифрования
использовался алгоритм американского федерального стандарта на шифрование данных
— При зашифровании входные
данные шифруются по формуле (2), далее обрабатываются блоками по 64 слова
. Эта обработка заключается в следующем: :4 слова переставляются в
соответствии с таблицей, изображенной на Как видно из данной таблицы, слово
40 входной последовательности становится 1-ым, слово 8 — 2-ым и т. д. Процесс
расшифрования данных является инверсным относительно процесса зашифрования. Т.
е. данные сначала переставляются в соответствии с таблицей, изображенной на
, а затем преобразуются по формуле (2). Как легко видеть, данная
перестановка является обратной по отношению к начальной. При
написании программы использовались следующие стандартные библиотеки Borland
Pascal 7.0 и Turbo Vision 2.0: Модуль Objects. Модуль Objects содержит
основные определения объектов Turbo Vision, включая базовый объект иерархии
Turbo Vision TObject, а также все невидимые элементы Turbo Vision: потоки,
коллекции и ресурсы. Модуль App. Модуль App (предоставлен в исходных кодах)
обеспечивает элементы оболочки Turbo Vision. 4 очень мощных объектных типа
определены в App, включая объекты TApplication и TProgram, которые служат в
качестве программ Turbo Vision и объект панели экрана, который управляет
большинством элементов в оконных программах. Модуль Views. Модуль Views
содержит основные компоненты видимых элементов и полезные компоненты более
сложных групп, таких как рамки окон и полосы скроллинга. Более сложные видимые
элементы находятся в модулях Dialogs и TextView. Модуль Dialogs. Модуль
Dialogs определяет большинство элементов наиболее часто используемых при
создании диалоговых окон. Этот модуль включает сами диалоговые окна (которые
являются специализированными окнами) и различные элементы управления, такие как
кнопки, метки, зависимые и независимые кнопки, строки ввода и списки
истории. Модуль Menus. Модуль Menus обеспечивает все объекты и процедуры для
системы меню Turbo Vision, включая выпадающие меню и активные элементы строки
статуса. Модуль Drivers. Модуль Drivers содержит все специализированные
драйверы Turbo Vision, включая драйверы мышки и клавиатуры, поддержку экрана и
систему обработки ошибок с монитором событий для программ, управляемых
событиями. Модуль Memory. Модуль Memory содержит процедуры монитора памяти
Turbo Vision, которые обеспечивают функции управления кучей. Модуль CRT.
Модуль CRT содержит константы, переменные и подпрограммы, предназначенные для
работы с консолью. В отличие от стандартного ввода-вывода, когда он
осуществляется через операционную систему, подпрограммы этого модуля работают с
BIOS и непосредственно с видеопамятью. Модуль DOS. Модуль DOS позволяет
использовать возможности операционной системы MS-DOS, не предусмотренные в
стандарте языка Паскаль, и содержит типы, константы, переменные и для реализации
этих дополнительных возможностей. Кроме вышеперечисленных стандартных модулей
был разработан модуль SetConf, в котором находится функция привязки программы к
BIOS компьютера, т. е. защита от копирования. При запуске программы в первую
очередь проверяется целостность системы; т. е. наличие всех файлов системы,
соответствуют ли их имена и размеры таблице. Далее происходит инициализация:
проверяются параметры BIOS. Если какой либо файл системы был изменен или
параметры BIOS не соответствуют установленным в программе, система работать не
будет. Для входа в систему необходимо ввести пароль. Эти проверки осуществляются
в конструкторе Init объекта TMyApp. Этот же объект инициализирует меню
(TMyApp.InitMenu), строку состояния (TMyApp.InitStatusLine), рабочее поле
(TMyApp.InitDeskTop), устанавливает специальную цветовую палитру
(TMyApp.GetPalette). Обработка событий (нажатие клавиш клавиатуры, работа с
"мышью") осуществляется в методе HandleEvent объекта TMyApp. При выборе какого-
либо пункта меню управление передается соответствующему объекту или вызывается
нужная подпрограмма. Shifr (процедура). Зашифрование файлов любого типа. Сначала
получаем пароль от пользователя, затем создаем файл зашифрованных данных
(*.M&A). Исходный файл считывается блоками по 64 рис. 2 DeShifr (процедура). Расшифрование
файлов, зашифрованных процедурой Shifr. Block
(процедура). Защита винчестера от записи. Passwords (процедура).
Изменение пароля входа в программу. Сначала запрашивает старый пароль, затем два
раза новый. TOptions ( объект, потомок объекта TDialog). Выводит
диалоговое окно изменения настроек шифрования файлов: удалять или не удалять
исходный файл, высвечивать или не высвечивать индикатор процесса
шифрования. защита исполняемых файлов с помощью ключевой
дискеты; Установка системы происходит с
ключевой дискеты программой , которая проверяет не была ли
установлена система ранее; если нет, то создает на винчестере каталог Sub Rosa.exe, Block, KeyDisk, Plus,
Passw, Setup.res, System.res
сначала проверяется наличие всех файлов системы. Если хотя бы один файл изменен
или удален, то В верхней части экрана находится полоска меню,
состоящая из следующих пунктов: — "Выход в DOS"
(временный выход в DOS); — "Установить пароль" (защита EXE- и COM-файлов
паролем); — "Добавить проверку по ключу"
(защита EXE- и COM-файлов с помощью ключевой дискеты); — "Расшифровать
файл данных" (расшифрование выбранного файла); — "Пароли" (изменение пароля входа в
систему); Во всех случаях , кроме
блокировки винчестера, сначала необходимо выбрать файл для работы. Для установки
защиты паролем или по ключевой дискете выбирается EXE- или COM-файл, для
шифрования — файл любого типа. В заключении проведем
анализ некоторых систем защиты от копирования. Следует отметить, что этот анализ
не является исчерпывающим, так как эти системы постоянно развиваются, а также не
всегда можно получить исчерпывающее описание алгоритмов — разработчики не
стремятся раскрывать принципы их построения. RANK — пакет защиты от НСД. Этот
пакет реализует функцию контроля доступа к EXE- и COM-файлам. Следует отметить,
что анализ разграничения доступа к программам ставит под серьезное сомнение
возможность реализации такой функции без дополнительных мероприятий. LATCH —
комплекс программ защиты ПЭВМ от НСД. Этот комплекс обеспечивает безопасность
данных , хранящихся на винчестере. При несанкционированном доступе происходит
"зависание" ПЭВМ или не обнаруживается НЖМД. Тезис о невозможности обнаружения
НЖМД вызывает серьезные сомнения: например, для контроллеров SCSI не требуется
определение типа НЖМД в памяти CMOS, так как параметры винчестера могут быть
считаны с помощью команды контроллера. App, Dialogs, Drivers, Menus, MsgBox,
Objects, {Стандартные модули} {Переменная
файла ресурсов, TV} {Переменные
паролей} {Переменные опций} {Декодировать файл} {Запретить доступ к винчестеру} cmPasswords = 1009; SetPass =
'passw.com'; ObjType: 2000; {Установка опций криптографии} {Объект для работы с текстом} function GetPalette:
PPalette; virtual; PMyFDialog = ^TMyFDialog; PMyFileDialog = ^TMyFileDialog;
InputName: string; AOptions: Word; HistoryId: Byte); function GetPalette:
PPalette; virtual; constructor Init(AOptions: Word;
HistoryId: Word); {Установка основного фона
программы} constructor Init(var Bounds: TRect;
AText: TTitleStr); procedure InitBackground;
virtual; constructor Init; {инициализация} {обработка событий} {инициализация рабочего
поля} procedure FileOpen(WildCard: PathStr); const
Msg: string; Params: pointer; Commands:
array[0..3] of Word = (cmYes, cmNo, cmOK, cmCancel); I, X : integer; Dialog:= New(PDialog, Init(R,
Titles[AOptions and $3])); FormatStr(S, Msg,
Params^); if AOptions and ($0100 shl I) <> 0 then if
AOptions and ($0100 shl I) <> 0 then
Control^.MoveTo(X, Size.Y - 3);
MyMessageBoxRect:= DeskTop^.ExecView(Dialog) {
Русифицированная функция формирования сообщения Params: Pointer; AOptions:
Word): Word; end; if
Length(CurDir) > 3 then {Процедура инициализации окна работы с
файлами} if ExecuteDialog(New(PMyFileDialog,
Init( {открыть файл,
потом...} {*----------============= К Р И П Т О Г Р А Ф И Я
================----------
*} procedure Shifr(InputFileName:
string); {псевдослучайных чисел, далее -
ПСЧ} Password, Password1 : string; I, J, K, tmp : byte; {переменные данных о
процессе} {массивы
перестановок} if length(FName) > 3 then
InputBox('П А Р О Л Ь', ' Введите пароль:', Password,
255);
if (Password = Password1) and (length(Password)<>0) then begin while not EOF(TempFile)
do read(TempFile, tmp); Position :=
0; if InputFileName[i] = '.' then
assign(OutF, OutputFileName); if InputFileName[length(InputFileName) - i] = '.'
then 1: Exten :=
copy(FName, length(FName)-2, i) + chr(0) + chr(0); for i := 1 to 3 do begin
If EOF(InpF) then MasByte[i] := 0 else Read(InpF, MasByte[i]); for i:= 1 to 64 do if
NowPos > 100 then NowPos := 100; {Шифровать
с помощью ПСЧ} for i:=1 to 8 do 2: MasEnd[8*(j-1)+i] := Mas[09-j]; 6: MasEnd[8*(j-1)+i] := Mas[25-j]; for i:= 1 to
64 do Write(OutF, MasEnd[i]); OutputFileName, nil,
mfInformation+mfOkButton); else MyMessageBox('Файл '+ InputFileName
+ ' не существует!', mfError+mfOkButton); procedure DeShifr(InputFileName:
String); Password, OutputFileName : string;
Position : LongInt; T : array [0..64] of
word; (copy(InputFileName, length(InputFileName)-2, 3) = 'M&A') then InputBox('П А Р О Л Ь', 'Введите пароль еще
раз:', Password1, 255); FindFirst(InputFileName, AnyFile,
DirInfo); for i:= 1 to 3 do if InputFileName[i] = '.' then
Assign(OutF, OutputFileName);
begin for j:=1 to 8 do 3: Mas[8*(i-
1)+j]:=MasByte[70-8*j]; 7: Mas[8*(i-
1)+j]:=MasByte[69-8*j]; if k < length(Password) then inc(k) else k := 1; If NowPos > 100 then NowPos := 100;
T[i] := (A * T[i-1] + C) mod M; for i := 1 to 64 do Write(OutF,
MasEnd[i]);
MyMessageBox('Файл '+ InputFileName + ' расшифрован в ' + Close(OutF); else
MyMessageBox(' Ошибка ввода пароля!!!', nil, Butt : TRadioButtons; R.Assign(10,
8, 20, 10); Insert(New(PButton,
Init(R, '~Н~ека', cmCancel, bfNormal))); Q:=New(PRadioButtons, Init(R,
Insert(New(PLabel, Init(R, 'Индикатор:', Q1))); NewSItem('~Н~е
высвечивать', nil)))); Ps, Ps1: string; InputBox('П А Р О Л Ь',
'Введите пароль:', Ps, 255); MyMessageBox('
Неверный пароль!!!', nil, mfError+mfOkButton); InputBox('И З М Е Н
Е Н И Е П А Р О Л Я', if (Ps = Ps1) and
(Ps <> '') then tmp :=
chr(ord(Ps[i]) xor 27); else MyMessageBox(' Ошибка ввода пароля!!!', nil,
mfError+mfOkButton); case DOSError
of 3: MyMessageBox(' Ошибка DOS № ' + St + '"Неверный код доступа к файлу"', St + '"Неверный код системного обработчика
файла"', nil, mfError + mfOkButton); 11: MyMessageBox(' Ошибка DOS № ' + St + '"Нет свободных обработчиков для файлов"', S :
array [1..4] of string = ('c:\sub_rosa\plus.', 'c:\sub_rosa\passw.', Inden: array [1..4, 1..3] of byte = ((ord('ы'), 26 ,
ord('Р')), I, Tmp : byte; assign(F[k, 1], S[k]); reset(F[k, 1], 1); BlockRead(F[k, 1], tmp, 1, NumRead);
BlockWrite(F[k, 2], M, Size[k]-3, NumWritten); { S: array [1..4] of
string = 'c:\sub_rosa\passw.com', Assign(F[k], S[k]); {*----------=========== Д О П И С А Т Ь К Ф А Й Л У
==========----------
*} procedure Plus(WhatDo: string); begin if (copy(FName, length(FName)-2, 3) = 'EXE') or for i:= length(fname) downto 1 do
for i := 1 to length(CmdLine) do
if MainDir[i] in ['A'..'Z'] then If WhatDo =
KeyDisk then MakeComFile(4); Exec( MainDir + 'plus.com ', CmdLine + ' ' + MainDir +
WhatDo); If WhatDo = KeyDisk then DelComFile(4); with regs do nil, mfInformation + mfOkButton); 2 :
MyMessageBox(' Критическая ошибка устройства.', end; else MyMessageBox(' Файл не
выбран!!! ', {***************************************************
*************************} {**************************************************************************
**} {Проверка наличи программы в
памяти} jne End_ MakeComFile(3);
GetIntVec($09, Int09_Save); regs.ah := $4D; nil, mfError + mfOkButton); 2 : MyMessageBox('
Критическая ошибка устройства.', nil, mfInformation + mfOkButton); {
TSR } CMyCluster =
#64#65#66#67#68#69#70#71#72#73#74#75#76#77#78#79#80#81#82+ R : TRect;
TDialog.Init(R, 'Изменить катлог'); DirInput := New(PInputLine, Init(R, 68)); Insert(ScrollBar); R.Assign(2, 5, 19, 6);
R.Assign(35, 6, 45, 8); Inc(R.A.Y,3); Inc(R.B.Y,3); Inc(R.A.Y,3); Inc(R.B.Y,3); if AOptions and cdNoLoadDir =
0 then SetUpDialog; if DirList
<> nil then if (Length(CurDir) > 3) and
(CurDir[Length(CurDir)] = '\') then DirInput^.Data^ := CurDir; P: PathStr; if (Length(P) > 3) and (P[Length(P)] = '\')
then MyMessageBox(' Неправильный каталог!', {Инициализировать рабочее поле} Text := AText; procedure
TMyBackground.Draw; WriteLine(0, 0, Size.X, Size.Y,
DrawBuffer); Background := New(PMyBackground, Init(R,
'___')); {Синяя палитра}
#83#84#85#86#87#88#89#90#91#92#93#94#95; constructor TAboutBox.Init; Options :=
Options or ofCentered; R.Assign(11, 2, 19, 3);
Insert(New(pStaticText, Init(R, 'Система защиты данных от НСД'))); R.Assign(10, 6, 29, 7); Insert(New(pStaticText, Init(R,
'Егановым Максимом'))); Insert(New(pStaticText, Init(R,
'Юзефовичем Артемом'))); {Работа
программы начинается здесь...} DirInfo3,
DirInfo4, DirInfo5: SearchRec; MyRes.Init(New(PBufStream,
Init('Setup.res', stOpen, 1024)));
RegisterType(RMenuBar); FindFirst('passw',
AnyFile, DirInfo1); FindFirst('setup.res', AnyFile,
DirInfo4); (DirInfo2.Size = 617) and (DirInfo3.Size = 2118) and Reset(FilePass); Close(FilePass); ReturnVal := ExecuteDialog(New(PAboutBox,
Init), nil); for i:=
1 to length(Pas) do Pas[i] :=chr(ord(Pas[i]) xor 27); writeln('Несанкционированный доступ!'); {Завершение работы} D:= New(PMyChDirDialog, Init(cdNormal, 101)); inherited HandleEvent(Event); ExecuteDialog(New(PAboutBox, Init), nil);
cmKeyDisk : Plus(KeyDisk);
ExecuteDialog(New(POptions, Init), @OptFile);
{Получить меню из файла ресурсов по ключу "Config" - функция получения} Write(' Нелегальная копия!!!'); R: TRect; {Инициализировать
строку состояния} StatusLine:=
New(pStatusLine, Init(R, NewStatusKey('~F3~ Файл', kbF3, cmOpen, NewStatusKey('~F10~ Меню', kbF10, cmMenu, {Изменить основную палитру} P: Array [apColor..apMonochrome] of
string[Length(CAppColor)] = P[apColor, 51] :=
#$11; {2F} {Изменить палитру окна выбора
файлов} CMyCluster =
#64#65#66#67#68#69#70#71#72#73#74#75#76#77#78#79#80#81#82+
const ATitle, InputName: string; { Создание окна диалога
} WildCard:= AWildCard; FileName:= New(PFileInputLine, Init(R,
79)); Insert(New(PLabel, Init(R, InputName, FileName))); { Линейка
скроллинга и список файлов } R.Assign(3, 6, 34, 14); Insert(New(PLabel, Init(R, 'Файлы',
FileList))); Insert(New(PButton,
Init( if AOptions and fdOkButton <> 0 then if AOptions and fdReplaceButton <> 0 then end; R, 'Удал.',cmFileClear,
bfNormal))); { Информационная панель с
параметрами файла } { Загрузка каталога } Directory:= NewStr(GetCurDir); WriteLn('Система защиты данных от НСД. Версия 1.0
beta.'+ MyApp.Done;