Защита данных от несанкционированного доступа
блицей, изображенной на рис. 2. Полученную последовательность
записываем в файл с расширением *.M&A и т. д.
2. DeShifr (процедура). Расшифрование файлов, зашифрованных процедурой
Shifr.
3. Plus (процедура). Установка защиты паролем или по ключевой дискете
на программы.
4. Block (процедура). Защита винчестера от записи.
5. Passwords (процедура). Изменение пароля входа в программу. Сначала
запрашивает старый пароль, затем два раза новый.
6. TOptions ( объект, потомок объекта TDialog). Выводит диалоговое окно
изменения
КП 46.41010.301 ПЗ
настроек шифрования файлов: удалять или не удалять исходный файл,
высвечивать или не высвечивать индикатор процесса шифрования.
7. CheckExec (процедура). Обрабатывает ошибки DOS.
5. Описание применения программы
Программа предназначена для защиты данных от несанкционированного
доступа; в ней реализованы следующие функции:
. шифрование файлов;
. защита паролем исполняемых файлов;
. защита исполняемых файлов с помощью ключевой дискеты;
. отслеживание и реакция на ошибки;
. изменение паролей;
. привязка к BIOS.
Установка системы происходит с ключевой дискеты программой
INSTALL.EXE, которая проверяет не была ли установлена система ранее; если
нет, то создает на винчестере каталог C:SUB ROSA и копирует в него файлы
системы (Sub Rosa.exe, Block, KeyDisk, Plus, Passw, Setup.res,
System.res).
При запуске программы Sub Rosa.exe сначала проверяется наличие всех
файлов системы. Если хотя бы один файл изменен или удален, то система
работать не будет. Для работы с программой необходимо ввести пароль.
В верхней части экрана находится полоска меню, состоящая из следующих
пунктов:
1. “Файлы”:
— “Выбрать” (выбор файла для работы);
— “Сменить каталог” (смена текущего каталога);
— “Выход в DOS” (временный выход в DOS);
— “Завершение” (завершение работы с программой);
2. “Защита”:
— “Установить пароль” (защита EXE- и COM-файлов паролем);
— “Блокировать винчестер” (запрет записи любых данных на винчестер);
КП 46.41010.301 ПЗ
3. “Ключевая дискета”:
— “Добавить проверку по ключу” (защита EXE- и COM-файлов с помощью
ключевой дискеты);
4. “Криптография”:
— “Зашифровать файл данных” (зашифрование выбранного файла);
— “Расшифровать файл данных” (расшифрование выбранного файла);
5. “Настройки”:
— “Криптография” (изменение настроек криптографии);
— “Пароли” (изменение пароля входа в систему);
6. “О Программе” (информация о программе).
Во всех случаях , кроме блокировки винчестера, сначала необходимо
выбрать файл для работы. Для установки защиты паролем или по ключевой
дискете выбирается EXE- или COM-файл, для шифрования — файл любого типа.
6. Заключение
В заключении проведем анализ некоторых систем защиты от копирования.
Следует отметить, что этот анализ не является исчерпывающим, так как эти
системы постоянно развиваются, а также не всегда можно получить
исчерпывающее описание алгоритмов — разработчики не стремятся раскрывать
принципы их построения.
RANK — пакет защиты от НСД. Этот пакет реализует функцию контроля
доступа к EXE- и COM-файлам. Следует отметить, что анализ разграничения
доступа к программам ставит под серьезное сомнение возможность реализации
такой функции без дополнительных мероприятий.
LATCH — комплекс программ защиты ПЭВМ от НСД. Этот комплекс
обеспечивает безопасность данных , хранящихся на винчестере. При
несанкционированном доступе происходит “зависание” ПЭВМ или не
обнаруживается НЖМД.
Тезис о невозможности обнаружения НЖМД вызывает серьезные сомнения:
например, для контроллеров SCSI не требуется определение типа НЖМД в
памяти CMOS, так как параметры винчестера могут быть считаны с помощью
команды контроллера.
Приложение 1
Листинг программы
{**************************************************************************
**}
{**************************************************************************
**}
{**
**}
{** КП "ЗАЩИТА ДАННЫХ ОТ НСД"
**}
{** Выполнили учащиеся гр.46491 ЕГАНОВ МАКСИМ и ЮЗЕФОВИЧ АРТЕМ
**}
{** 1996
**}
{**
**}
{**************************************************************************
**}
{**************************************************************************
**}
{$M 10240, 0,20480} {Распределение памяти}
Program Sub_Rosa;
Uses
App, Dialogs, Drivers, Menus, MsgBox, Objects,
Validate, Views, Memory, StdDlg, Editors, {Модули Turbo Vision, далее -
TV}
CRT, DOS, {Стандартные модули}
SetConf; {Модуль функции привязки к BIOS}
Var
MyRes : TResourceFile; {Переменная файла ресурсов, TV}
FName, MainDir, DName: string; {Переменные работы с файлами и
каталогами}
MainPass, Pass : string; {Переменные паролей}
Pos : string[3];
FilePass : file of char; {Переменная файла паролей}
OptFile, OptInd : word; {Переменные опций}
Int09_Save : pointer; {Переменная адреса 09h прерывания}
Const {Константы кодов команд, TV}
cmAboutBox = 700; {Окно "О Программе"}
cmCode = 1001; {Кодировать файл}
cmDeCode = 1002; {Декодировать файл}
cmSetPass = 1005; {Установить пароль на вход в систему}
cmLockDisk = 1006; {Запретить доступ к винчестеру}
cmOptions = 1007; {Опции криптографии}
cmKeyDisk = 1008; {Ключевая дискета}
cmPasswords = 1009; {Пароль на исполняемый файл}
cmChangePass= 1010; {Сменить пароль на вход в систему}
SetPass = 'passw.com';
KeyDisk = 'keydisk.com';
RMenuBar: TStreamRec = ( {Запись для работы с потоком, TV}
ObjType: 2000;
VmtLink: Ofs(TypeOf(TMenuBar)^);
Load: @TMenuBar.Load;
Store: @TMenuBar.Store);
Type
{Установка опций криптографии}
POptions = ^TOptions;
TOptions = object(TDialog)
constructor Init;
end;
{Объект для работы с текстом}
PMyStaticText = ^TMyStaticText;
TMyStaticText = object(TStaticText)
function GetPalette: PPalette; virtual; {Переопределение палитры}
end;
{Объекты для работы с файлами и каталогами}
PMyFDialog = ^TMyFDialog;
TMyFDialog = object(TFileDialog)
function GetPalette: PPalette; virtual;
end;
PMyFileDialog = ^TMyFileDialog;
TMyFileDialog = object(TMyFDialog)
constructor Init(AWildCard: tWildStr; const ATitle,
InputName: string; AOptions: Word; HistoryId: Byte);
end;
PDirDialog = ^TDirDialog;
TDirDialog = object(TChDirDialog)
function GetPalette: PPalette; virtual;
end;
PMyChDirDialog = ^TMyChDirDialog;
TMyChDirDialog = object(TDirDialog)
constructor Init(AOptions: Word; HistoryId: Word);
procedure SetUpDialog;
function Valid(Command: Word): Boolean; virtual;
end;
{Установка основного фона программы}
PMyBackground = ^TMyBackground;
TMyBackground = object(TBackground)
Text: TTitleStr;
constructor Init(var Bounds: TRect; AText: TTitleStr);
procedure Draw; virtual;
end;
PMyDesktop = ^TMyDesktop;
TMyDesktop = object(TDesktop)
procedure InitBackground; virtual;
end;
{Объект "О Программе"}
PAboutBox = ^TAboutBox;
TAboutBox = object(TDialog)
constructor Init;
end;
{Основной объект}
PMyApp = ^TMyApp;
TMyApp = object(TApplication)
constructor Init; {инициализация}
destructor Done; virtual; {завершение работы}
procedure HandleEvent(var Event: TEvent); virtual; {обработка
событий}
procedure InitMenuBar; virtual; {инициализация меню}
procedure InitDeskTop; virtual; {инициализация рабочего поля}
procedure InitStatusLine; virtual; {инициализация строки состояния}
procedure FileOpen(WildCard: PathStr); {окно для работы с файлами}
function GetPalette: PPalette; virtual; {изменение стандартной
палитры}
end;
{ Русифицированная функция формирования сообщения }
function MyMessageBoxRect(var R: TRect;
const Msg: string; Params: pointer;
AOptions: word): word;
const
ButtonName: array[0..3] of string[6] = ('Ага', 'Нека', 'Ага', 'Нека');
Commands: array[0..3] of Word = (cmYes, cmNo, cmOK, cmCancel);
Titles: array[0..3] of string[11] =
('Предупреждение', 'Ошибка', 'Информация', 'Подтверждение');
var
I, X : integer;
Dialog : PDialog;
Control: PView;
S : string;
begin
Dialog:= New(PDialog, Init(R, Titles[AOptions and $3]));
with Dialog^ do
begin
Options:= Options or ofCentered;
R.Assign(3, 2, Size.X - 2, Size.Y - 3);
FormatStr(S, Msg, Params^);
Insert(New(PStaticText, Init(R, S)));
X:= -2;
R.Assign(0, 0, 10, 2);
for I:= 0 to 3 do
if AOptions and ($0100 shl I) <> 0 then
Inc(X, R.B.X - R.
| |  скачать работу |
Защита данных от несанкционированного доступа |
