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. Получить от респондента сообщение и расшифровать его.

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