Федеральное агентство по образованию

Государственное образовательное учреждение высшего профессионального образования

«ТОМСКИЙ ПОЛИТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ»

Юргинский Технологический институт
Факультет – Экономики и менеджмента

            Направление (специальность) – Прикладная информатика (в экономике)
                        Кафедра – Информационных систем

                                    
Отчет по циклу лабораторных работ

        
        по дисциплине  Информационная безопасность
Исполнитель:

Студент гр.З17870-С                                                                                        В.А. Глухов

                                         
Руководитель:

Доцент кафедры Информатики                                                                 А.А. Хамухин

                                          
           
Юрга –2009

Отчет по лабораторной работы №1:

Антивирусное ПО

Цель: научиться эксплуатировать антивирусные программы, имеющиеся в составе компьютерного класса.

Использованные материалы и технические средства: Symantec AntiVirus.

Ход работы:

1. Запускаем антивирусную программу: Пуск > Программы > Symantec Client Security > Symantec AntiVirus.


2. Выбираем на панели инструментов Scan > Custom Scan > CD-дисковод(Е:) и запускаем процесс сканирования.


3. Результаты поиска: вирусов не обнаружено.

           

Вывод: вирусов не обнаружено на CD-дисководе (Е:), так как  антивирусная база устарела, она актуальна на 2005 год либо вирусов нет.
Отчет по лабораторной работы №2:

 Шифрование методом квадрата Полибия
Задание: индивидуальное задание для шифровки и дешифровки.
Цель работы: научится шифровать и дешифровать текст в WORD методом квадрата Полибия.


Порядок работы:

1.     Создать макросы

2.     Проверить работу макросов, зашифровав текст с помощью своей шифровки и передать его для дешифровки.
Ход работы

1. Создали макросы:

   - для шифровки. В итоге получили:

Public Sub М1()

Const ALU = "взрьлгцоашщсдйуъбмефжянхитчкыэпю"

Const AL = "ВЗРЬЛГЦОАШЩСДЙУЪБМЕФЖЯНХИТЧКЫЭПЮ"

Dim Sim As String, Sim1 As Variant

Dim Index As Integer

Dim Result As String

Result = ""

For Each Sim1 In Selection.Characters

Sim = Sim1

Select Case Sim

 Case "А" To "Я"

 Index = Asc(Sim) - Asc("А") + 1

 Sim = Mid(ALU, Index, 1)

 Case "а" To "я"

 Index = Asc(Sim) - Asc("а") + 1

 Sim = Mid(AL, Index, 1)

End Select

Result = Result + Sim

Next Sim1

Selection.LanguageID = wdRussian

Selection.TypeText Result

End Sub
На рисунке представлена шифровка.


   - для дешифровки. В итоге получили:

Public Sub М2()

Const ALU = "ираемтфбшныдсцзювлщоучжъйкпьгэях"

Const AL = "ИРАЕМТФБШНЫДСЦЗЮВЛЩОуЧЖЪЙКПЬГЭЯХ"

Dim Sim As String, Sim1 As Variant

Dim Index As Integer

Dim Result As String

Result = ""

For Each Sim1 In Selection.Characters

Sim = Sim1

Select Case Sim

 Case "А" To "Я"

 Index = Asc(Sim) - Asc("А") + 1

 Sim = Mid(ALU, Index, 1)

 Case "а" To "я"

 Index = Asc(Sim) - Asc("а") + 1

 Sim = Mid(AL, Index, 1)

End Select

Result = Result + Sim

Next Sim1

Selection.LanguageID = wdRussian

Selection.TypeText Result

End Sub
На рисунке представлена дешифровка

2. Проверили работу макросов.
Эффективность применения экономических информационных систем для управления экономических объектами зависит от широты охвата и интегрированности на основе функций управления.
эЖЖГЩЕАРЙУМЕЫ ЪБАДГЙГЙАЮ ЭЩУЙУДАХГМЩАЯ АЙЖУБДВНАУЙЙКЯ МАМЕГД ЛСЮ ФЪБВРСГЙАЮ ЭЩУЙУДАХГМЩАЯ УЗЧГЩЕВДА ОВРАМАЕ УЕ ИАБУЕК УЯРВЕВ А АЙЕГЬБАБУРВЙЙУМЕА ЙВ УМЙУРГ ЖФЙЩНАШ ФЪБВРСГЙАЮ.
(Шифрованный текст)
3.     Создаем макрос для ЭЦП
Public Sub ЭЦП()

'проверить ЭЦП
 Const ALU = "зждиуетбчщалгхнпфыцмршъоэякьюсйв"

 Const AL = "ЗЖДИУЕТБЧЩАЛГХНПФЫЦМРШЪОЭЯКЬЮСЙВ"

Dim Sim As String, Sym1 As Variant

Dim Index As Integer

Dim Result As Double

Result = 0

 For Each Sym1 In Selection.Characters

  Sym = Sym1

  Select Case Sym

   Case "А" To "Я"

   Index = Asc(Sym) - Asc("А") + 1

   Case "а" To "я"

   Index = Asc(Sym) - Asc("а") + 1

  End Select

Result = Result + Index

Next Sym1

MsgBox "Проверено ЭЦП: " & Result

End Sub

4. Создаем макросы  и макрос для ЭЦП. Сервис / Макрос / Макросы.



5. Выносим кнопку макроса на панель инструментов и переименовываем «Шиф. Елена», «Дешиф.Елена» и «ЭЦП.Елена»

Вид / Панель инструментов / Настройка / Команды / Макросы.



Вывод: научились шифровать и дешифровать текст в MsWord, с помощью встроенных макросов, другие системы программирования не использовались.  Шифровка обеспечивает безопасность передаваемого документа от злоумышленников.

Лабораторная работа № 3.

Потоковое блочное шифрование с симметричным ключом

Цель работы: научиться программировать потоковое блочное шифрование с симметричным ключом на примере  приложения Microsoft Excel



Порядок работы



1.     В приложении Excel подготовить лист следующего вида

(вручную заполнить только 1 столбец, все остальные должны заполняться при нажатии на кнопок):

2.     Нажать «Режим конструктора» и  щелчком по кнопке KeyGen вызвать окно для обрабатывающей программы. Ввести программу и отладить ее работу по шагам (клавиша F8)

3.     Аналогично выполнить п. 2 для кнопок «Шифровать» и   «Дешифровать»

4.     Взять индивидуальной задание и добиться правильности его выполнения. Результаты представить в виде графиков в отчете
Фрагменты программ



При нажатии на кнопку «Key Gen»:
Private Sub CommandButton1_Click()

  Dim k1(12), k2(12), k3(12) As Boolean

   For i = 1 To 12

    y = Rnd(12)

    If y > 0.5 Then k1(i) = 1

    If y < 0.5 Then k1(i) = 0

    Worksheets(3).Cells(i + 1, 2).Value = k1(i)

    Next i

    For i = 1 To 12

    x = Rnd(12)

    If x > 0.5 Then k2(i) = 1

    If x < 0.5 Then k2(i) = 0

    Worksheets(3).Cells(i + 1, 3).Value = k2(i)

   Next i

   For i = 1 To 12

    x = Rnd(12)

    If x > 0.5 Then k3(i) = 1

    If x < 0.5 Then k3(i) = 0

    Worksheets(3).Cells(i + 1, 4).Value = k2(i)

   Next i

End Sub
При нажатии на кнопку «Шифрование»:
Private Sub CommandButton2_Click()

Dim a, b, c, d, e As Boolean

Dim k1(12), k2(12), k3(12) As Boolean
  For i = 1 To 12

   w = Worksheets(3).Cells(i + 1, 2).Value

    If w = 1 Then k1(i) = True

    If w = 0 Then k1(i) = False

  Next i

  For i = 1 To 12

   w = Worksheets(3).Cells(i + 1, 3).Value

   If w = 1 Then k2(i) = True

   If w = 0 Then k2(i) = False

  Next i

  For i = 1 To 12

   w = Worksheets(3).Cells(i + 1, 4).Value

   If w = 1 Then k3(i) = True

   If w = 0 Then k3(i) = False

  Next i

            j = 1

  For i = 1 To Ls

   w = Worksheets(3).Cells(i + 1, 1).Value

   If w = 1 Then a = True

   If w = 0 Then a = False

            If j > 12 Then j = 1

   c = a Xor k1(j)

   b = c Xor k2(j)

   e = b Xor k3(j)

   If e = True Then w = 1

   If e = False Then w = 0

   Worksheets(3).Cells(i + 1, 5).Value = w

            j = j + 1

  Next i

End
При  нажатии на кнопку «Дешифрование»:
Private Sub CommandButton3_Click()

Dim a, b, c, d, e As Boolean

Dim k1(12), k2(12), k3(12) As Boolean

  For i = 1 To 12

   w = Worksheets(3).Cells(i + 1, 2).Value

    If w = 1 Then k1(i) = True

    If w = 0 Then k1(i) = False

  Next i

  For i = 1 To 12

   w = Worksheets(3).Cells(i + 1, 3).Value

   If w = 1 Then k2(i) = True

   If w = 0 Then k2(i) = False

  Next i

  For i = 1 To 12

   w = Worksheets(3).Cells(i + 1, 4).Value

   If w = 1 Then k3(i) = True

   If w = 0 Then k3(i) = False

  Next i

             j = 1

  For i = 1 To Ls

   w = Worksheets(3).Cells(i + 1, 5).Value

   If w = 1 Then e = True

   If w = 0 Then e = False

            If j > 12 Then j = 1

   b = e Xor k3(j)

   c = b Xor k2(j)

   d = c Xor k1(j)

   If d = True Then w = 1

   If d = False Then w = 0

   Worksheets(3).Cells(i + 1, 6).Value = w

            j = j + 1

  Next i

End Sub
Примеры:

Вывод: Я научилась программировать потоковое блочное шифрование с симметричным ключом на примере  приложения Microsoft Excel.

Лабораторная работа №3

Шифрование с помощью пакета
PGP

Desktop

Цель работы: научиться работать с программой PGP Desktop 9.5.

Задание:

1. Установить программу PGP Desktop 9.5.

2. Создать открытый и закрытый ключ.

3. Распространить открытый ключ своему респонденту и поменяться с ним его открытым ключом.

4.  Получить открытый ключ респондента и зашифровать им свое сообщение и послать   его для расшифровки обратно.

5. Получить от  респондента сообщение и расшифровать его.

Результат работы:

1.  Для того чтобы установить программу была проделана следующая работа:

- разархивирован инсталляционный файл;

- выбран язык (английский);

- заполнено лицензионное сообщение;

- выбрана парольная фраза (Лабораторная работа);

- заполнены анкетные данные об организации;

- установлена директория по умолчанию;

- выбраны все компоненты для установки;

- перезагружен компьютер.
2.  Был создан открытый (для общего пользования) и закрытый (индивидуальный) ключи (см. рисунок 1).


Рисунок 1 – Ключ
Получили ключ со следующими данными (см. рисунок 2):

Рисунок 2 – Идентификационные данные ключа
3. Для того чтобы получить зашифрованную информацию от Респондента, ему необходимо экспортировать свой ключ, с помощью которого она будет расшифрована.

Респондент с помощью ключа зашифровывает сообщение и посылает его Резиденту:

 


Рисунок 3 – Зашифрованное сообщение от респондента
После применения своего ключа, был получен текст:

Рисунок 4 – Расшифрованное сообщение от респондента
4. Был перехвачен текст, посланный Респондентом. При попытке его расшифровать было получено следующее сообщение:




Рисунок 5 – Попытка расшифровки сообщения чужим ключом
Следовательно, можно сделать вывод о том, что зашифровать сообщение ключом резидента можно, а расшифровать – нет.
5. Респондент с помощью посланного  ключа Резидента зашифровал ей сообщение:


Рисунок 6 – Исходный текст для резидента

Рисунок 7 – Зашифрованный текст для резидента
После того, как сообщение было получено Резидентом , оно было расшифровано.
Вывод: в результате лабораторной работы была установлена программа, созданы два ключа -  открытый и закрытый. Были приобретены знания по шифровки и дешифровки сообщений с помощью ключей.