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)