Практическая работа№10. Проект «Шифровка и дешифровка текстовых сообщений».. Инструкции по выполнению задания. Dim bytI, bytJ, bytZ(1 To 200) As Byte, strKF, strA, strB As String. End Sub

Практическая работа№10

Проект «Шифровка и дешифровка текстовых сообщений».

Цель работы: знакомство с простейшими приемами шифрования и дешифрования текстовой информации.

Инструкции по выполнению задания

Разместить на форме три текстовых поля и две кнопки. Присвоить им имена: txtSecrtext, txtCod, txtDecod, cmdCod, cmdDecod.

Сначала составим процедуру шифровки текстовых сообщений. Пусть ключевая фраза будет значением строковой переменной strKF, а секретный текст значением свойства Text текстового поля txtSecrtext.

Для кнопки cmdCod ввести программный код событийной процедуры cmdCod_Click(), реализующий шифрование текстового сообщения, введенного в текстовое поле txtSecrtext:

Dim bytI, bytJ, bytZ(1 To 200) As Byte, strKF, strA, strB As String

Private Sub cmdCod_Click()

strKF = " электронно-вычислительные машины, компьютеры (железо) позволяют находить значения функций, а ещё свойства готовых объектов"

For bytI = 1 To Len(txtSecrtext. Text)

strA = Mid$(txtSecrtext. Text, bytI, 1)

For bytJ = 1 To Len(strKF)

If Mid$(strKF, bytJ, 1) = strA Then bytZ(bytI) = bytJ: bytJ = Len(strKF) + 1

Next bytJ

txtCod. Text = txtCod. Text + Str(bytZ(bytI))

Next bytI

End Sub

Рассмотрим теперь алгоритм дешифровки. Итак, в нашем распоряжении шифровка в форме целочисленного массива bytZ, которая выведена в текстовое окно txtCod.

Для кнопки cmdDecod ввести программный код событийной процедуры cmdDecod_Click(), реализующий расшифровку текстового сообщения, и его вывод в текстовое поле txtDecod:

Private Sub cmdDecod_Click()

For bytI = 1 To Len(txtSecrtext. Text)

strB = Mid$(strKF, bytZ(bytI), 1)

txtDecod. Text = txtDecod. Text + strB

Next bytI

End Sub

Отчет по практическому занятию

Тема:

МДК: МДК. 02. 01 Разработка, внедрение и адаптация программного обеспечения отраслевой направленности.

Дата:

Цель:

Выполнил: ФИО

Группа: 23 группа

Специальность: 09. 02. 05 Прикладная информатика (по отраслям)

Преподаватель:

Вывод:

Оценка:

Разработанный проект в VB пришлите в Google Класс. Код курса: 7vx4baq