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

Цель: научиться эксплуатировать антивирусные программы, имеющиеся в составе компьютерного класса.
Использованные материалы и технические средства: 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, с помощью встроенных макросов, другие системы программирования не использовались. Шифровка обеспечивает безопасность передаваемого документа от злоумышленников.

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать полную версию