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

Автор работы: Пользователь скрыл имя, 22 Декабря 2010 в 20:48, курсовая работа

Описание

Появившиеся в начале 80-ых персональные ЭВМ (ПЭВМ или ПК) прочно вошли во все сферы человеческой деятельности. Вместе с ними у эксплуатирующих ПЭВМ организаций и ведомств возникли и многочисленные проблемы. Одна из них — защита информации. Согласно статистическим данным более 80% компаний и агентств несут финансовые убытки из-за нарушения безопасности данных.
Проблема защиты информации представляет собой совокупность тесно связанных проблем в областях права, организации управления, разработки технических средств, программирования и математики. Одна из центральных задач проектирования систем защиты состоит в рациональном распределении имеющихся ресурсов.

Содержание

Введение . . . . . . . . . . . 3
1. Постановка задачи . . . . . . . . . 4
1. 1. Организационно-экономическая сущность задачи . . . . 4
1. 2. Входные данные . . . . . . . . . 6
1. 3. Постоянная информация . . . . . . . . 6
1. 4. Выходная данные . . . . . . . . . 6
2. Вычислительная система . . . . . . . . 7
2. 1. Операционная система . . . . . . . . 7
2. 2. Технические средства реализации задачи . . . . . . 8
2. 3. Программные средства . . . . . . . . 8
3. Алгоритм задачи . . . . . . . . . 10
4. Описание программы . . . . . . . . . 14
5. Описание применения программы . . . . . . 16
6. Заключение . . . . . . . . . . 17
Приложение 1. Листинг программы . . . . . . . 18
Приложение 2. Листинг библиотек . . . . . . . 39
Приложение 3. Пример работы программы . . . . . . 45
Список литературы . . . . . . . . . 47

Работа состоит из  1 файл

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

— 201.50 Кб (Скачать документ)

        begin

          FindFirst(InputFileName, AnyFile, DirInfo);

          if DOSError = 0 then

            begin

          Assign(InpF, InputFileName);

          Reset(InpF);

          Position := 0;

          Exten := '';

          for i:= 1 to 3 do

            begin

              Read(InpF, Temp);

              Exten := Exten + chr(Temp);

            end;

          for i := length(InputFileName) downto 1 do

            if InputFileName[i] = '.' then

              begin

                OutputFileName := copy(InputFileName, 1, i) + Exten;

                break;

              end;

          Assign(OutF, OutputFileName);

          Rewrite(OutF);

          for i := 1 to length(Password) do TPassword[i]:=ord(Password[i]);

          k := 1;

          repeat

            begin

              for i:=1 to 64 do Read(InpF, MasByte[i]);

              for i:=1 to 8 do { начальная перестановка }

                for j:=1 to 8 do

                  case i of

                    1: Mas[8*(i-1)+j]:=MasByte[66-8*j];

                    2: Mas[8*(i-1)+j]:=MasByte[68-8*j];

                    3: Mas[8*(i-1)+j]:=MasByte[70-8*j];

                    4: Mas[8*(i-1)+j]:=MasByte[72-8*j];

                    5: Mas[8*(i-1)+j]:=MasByte[65-8*j];

                    6: Mas[8*(i-1)+j]:=MasByte[67-8*j];

                    7: Mas[8*(i-1)+j]:=MasByte[69-8*j];

                    8: Mas[8*(i-1)+j]:=MasByte[71-8*j]

                  end;

              T[0] := ord(Password[k]);

              if k < length(Password) then inc(k) else k := 1;

              for i:= 1 to 64 do

                begin

                  NowPos := 100*Position/DirInfo.Size;

                  inc(Position, 2);

                  If NowPos > 100 then NowPos := 100;

                  Str(Round(NowPos):3, Pos);

                  if OptInd = 0 then

                    begin

                      GoToXY(77, 1);

                      Write(Pos + '%');

                    end;

                  T[i] := (A * T[i-1] + C) mod M; 

                  Code:=Mas[i];

                  Code:=T[i] xor Code;

                  Mas[i] := Code;

                end;

              MasEnd := Mas;

              for i := 1 to 64 do Write(OutF, MasEnd[i]);

            end;

          until eof(InpF);

              GotoXY(77, 1);

              write('100%');

              MyMessageBox('Файл '+ InputFileName + ' расшифрован в ' +

                       OutputFileName, nil, mfInformation+mfOkButton);

          Close(InpF);

          if OptFile = 1 then Erase(InpF);

          Close(OutF);

        end

          else  MyMessageBox('Файл '+ InputFileName + ' не существует!',

                   nil, mfInformation+mfOkButton); 

        end

      else MyMessageBox('      Ошибка ввода пароля!!!', nil,

                        mfError+mfOkButton);

    end

  else MyMessageBox('          Файл не выбран!!!', nil,

                    mfError+mfOkButton);

end; 
 

{Опции криптографии}

constructor TOptions.Init;

var

  R    : TRect;

  Q, Q1: PView;

  Butt : TRadioButtons;

begin

  R.Assign(0, 0, 60, 11);

  inherited Init(R, 'Криптография');

  Options := Options or ofCentered; 

  R.Assign(10, 8, 20, 10);

  Insert(New(PButton, Init(R, '~А~га', cmOK, bfDefault))); 
 

  R.Assign(40, 8, 50, 10);

  Insert(New(PButton, Init(R, '~Н~ека', cmCancel, bfNormal))); 

  R.Assign(2, 2, 25, 3);

  Insert(New(PLabel, Init(R, 'Исходный файл:', Q))); 

  R.Assign(5, 4, 21, 6);

  Q:=New(PRadioButtons, Init(R,

    NewSItem('~Н~е удалять',

    NewSItem('~У~далять', nil))));

  Insert(Q); 

  R.Assign(27, 2, 45, 3);

  Insert(New(PLabel, Init(R, 'Индикатор:', Q1))); 

  R.Assign(30, 4, 50, 6);

  Q1:=New(PRadioButtons, Init(R,

    NewSItem('~В~ысвечивать',

    NewSItem('~Н~е высвечивать', nil))));

Insert(Q1);

end; 

{Изменение пароля на вход в систему}

procedure Passwords;

var

  Ps, Ps1: string;

  I      : byte;

  tmp    : char;

begin

  Ps := '';

  Ps1 := '';

  InputBox('П А Р О Л Ь', 'Введите пароль:', Ps, 255);

  for i:= 1 to length(Ps) do Ps[i] :=chr(ord(Ps[i]) xor 27);

  if Ps <> Pass then

    begin

      MyMessageBox('        Неверный пароль!!!', nil, mfError+mfOkButton);

      ClrScr;

      writeln('Несанкционированный доступ!');

      Halt;

    end;

  InputBox('И З М Е Н Е Н И Е   П А Р О Л Я',

     'Введите новый пароль:', Ps, 255);

  InputBox('И З М Е Н Е Н И Е   П А Р О Л Я',

     '      Повторите ввод:', Ps1, 255);

  if (Ps = Ps1) and (Ps <> '') then

    begin

      Assign(FilePass, 'system.res');

      Rewrite(FilePass);

      for i := 1 to length(PS) do

        begin

          tmp := chr(ord(Ps[i]) xor 27);

          Write(FilePass, tmp);

        end;

      Close(FilePass);

    end

  else MyMessageBox('      Ошибка ввода пароля!!!', nil, mfError+mfOkButton); 

end; 

{Обработка ошибок}

procedure CheckExec;

var

  St: string;

begin

  Str(DOSError, St);

  case DOSError of

     2: MyMessageBox('          Ошибка DOS  № ' +

          St + '         "Файл не найден"',

          nil, mfError + mfOkButton);

     3: MyMessageBox('          Ошибка DOS  № ' +

          St + '      "Путь не найден"',

          nil, mfError + mfOkButton);

     5: MyMessageBox('          Ошибка DOS  № ' +

          St + '"Неверный код доступа к файлу"',

          nil, mfError + mfOkButton);

     6: MyMessageBox('          Ошибка DOS  № ' +

          St + '"Неверный код системного обработчика файла"',

          nil, mfError + mfOkButton);

     8: MyMessageBox('          Ошибка DOS  № ' +

          St + '         "Недостаточно памяти"',

          nil, mfError + mfOkButton);

    10: MyMessageBox('          Ошибка DOS  № ' +

          St + '            "Неверная среда"',

          nil, mfError + mfOkButton);

    11: MyMessageBox('          Ошибка DOS  № ' +

          St + '       "Неправильный формат"',

          nil, mfError + mfOkButton);

    18: MyMessageBox('          Ошибка DOS № ' +

          St + '"Нет свободных обработчиков для файлов"',

          nil, mfError + mfOkButton);

  end;

end; 

procedure MakeComFile(k: byte);

const

  S    : array [1..4] of string = ('c:\sub_rosa\plus.', 'c:\sub_rosa\passw.',

                               'c:\sub_rosa\block.', 'c:\sub_rosa\keydisk.');

  Size : array [1..4] of word = (1068, 204, 617, 2118);

  Inden: array [1..4, 1..3] of byte = ((ord('ы'), 26      , ord('Р')),

                                       (ord('ы'), 39      , ord('Р')),

                                       (ord('щ'), ord('Й'), ord('*')),

                                       (ord('щ'), ord('А'), ord('*')));

var

  I, Tmp           : byte;

  F                : array [1..4, 1..2] of file ;

  M                : array [1..2200] of byte ;

NumRead, NumWritten: Word; 

begin

  assign(F[k, 1], S[k]); reset(F[k, 1], 1);

  assign(F[k, 2], S[k]+'com'); rewrite(F[k, 2], 1);

  for i := 1 to 3 do

    begin

      BlockRead(F[k, 1], tmp, 1, NumRead);

      BlockWrite(F[k, 2], Inden[k, i], 1, NumWritten);

    end;

  BlockRead(F[k, 1], M, Size[k]-3, NumRead);

Информация о работе Защита данных от несанкционированного доступа