Загрузка...
Учебная работа. Лабораторная работа: Отчет по циклу лабораторных работ
Государственное образовательное учреждение высшего проф образования
«ТОМСКИЙ ПОЛИТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ»
Юргинский Технологический институт
Факультет – экономики и менеджмента
Направление (специальность) – Прикладная информатика (в экономике)
Кафедра – Информационных систем
отчет по циклу лабораторных работ
по дисциплине Информационная сохранность
Исполнитель:
Студент гр.З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 – Зашифрованный текст для резидента
Опосля того, как сообщение было получено Резидентом , оно было расшифровано.
в итоге лабораторной работы была установлена программка, сделаны два ключа — открытый и закрытый. Были приобретены познания по шифровки и дешифровки сообщений при помощи ключей.
]]>