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

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

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

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

		Юргинский Технологический институт





Факультет – Экономики и менеджмента 

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





		Кафедра – Информационных систем

			 









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

         



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













Исполнитель:

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

			       





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

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

                                 	       



 	



























Юрга –2009

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

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

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

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

Ход работы:

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





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





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

	

	



		

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











































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

 Шифрование методом квадрата Полибия

	

	Задание: индивидуальное задание для шифровки и дешифровки.

	

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

	

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

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

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

	

	Ход работы

	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. Проверили работу макросов.

	

Эффективность применения экономических информационных систем для управления экономических объектами зависит от широты охвата и интегрированности на основе функций управления.



эЖЖГЩЕАРЙУМЕЫ ЪБАДГЙГЙАЮ ЭЩУЙУДАХГМЩАЯ АЙЖУБДВНАУЙЙКЯ МАМЕГД ЛСЮ ФЪБВРСГЙАЮ ЭЩУЙУДАХГМЩАЯ УЗЧГЩЕВДА ОВРАМАЕ УЕ ИАБУЕК УЯРВЕВ А АЙЕГЬБАБУРВЙЙУМЕА ЙВ УМЙУРГ ЖФЙЩНАШ ФЪБВРСГЙАЮ.



(Шифрованный текст)



	Создаем макрос для ЭЦП

	

	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



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



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

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









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

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

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



Фрагменты программ



При нажатии на кнопку «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 – Зашифрованный текст для резидента

	

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



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