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

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

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


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


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


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


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


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


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


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


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


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


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


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


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


Юрга –2009


Отчет по лабораторной работы №1:
Антивирусное ПО

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


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


Ход работы:


1. Запускаем антивирусную программу: Пуск > Программы > SymantecClientSecurity> SymantecAntiVirus.



2. Выбираем на панели инструментов Scan > CustomScan> 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. Взять индивидуальной задание и добиться правильности его выполнения. Результаты представить в виде графиков в отчете


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


При нажатии на кнопку «KeyGen»:


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

Цель работы

: научиться работать с программой PGPDesktop 9.5.


Задание:


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


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


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


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


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


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


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


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


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


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


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


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


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


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


- перезагружен компьютер.


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



Рисунок 1 – Ключ


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



Рисунок 2 – Идентификационные данные ключа


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


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



Рисунок 3 – Зашифрованное сообщение от респондента


После применения своего ключа, был получен текст:



Рисунок 4 – Расшифрованное сообщение от респондента


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



Рисунок 5 – Попытка расшифровки сообщения чужим ключом


Следовательно, можно сделать вывод о том, что зашифровать сообщение ключом резидента можно, а расшифровать – нет.


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



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



Рисунок 7 – Зашифрованный текст для резидента


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


Вывод:

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

Сохранить в соц. сетях:
Обсуждение:
comments powered by Disqus

Название реферата: Отчет по циклу лабораторных работ

Слов:1666
Символов:14092
Размер:27.52 Кб.