Private Sub CommandButton1_Click()
Dim mess, res As String
Dim i, m, k As Integer
mess = TextBox2.Text ‘Вводит исходный текст’
res = ""
For i = 1 To Len(mess) Step 1
m = Asc(Mid(mess, i, 1)) ‘ Возвращает код ASCII i-го символа исходного текста’
If 65 <= m < 90 Then
k = Asc(Mid(mess, i, 1))
res = res + Chr(m + 13) ‘Формирует зашифрованный текст’
End If
Next i
TextBox3.Text = res ‘Выводит зашифрованный текст’
End Sub
Private Sub CommandButton2_Click()
Dim mess, res As String
Dim j, m, k As Integer
mess = TextBox3.Text
res = ""
For i = 1 To Len(mess) Step 1
m = Asc(Mid(mess, i, 1))
If 65 <= m < 90 Then
k = Asc(Mid(mess, i, 1))
res = res + Chr(m - 13) ‘Формирует расшифрованный текст’
End If
Next i
TextBox4.Text = res ‘Выводит расшифрованный(исходный) текст’
End Sub
Private Sub CommandButton3_Click()
Hide
End Sub
То,что есть. Здесь проходит шифрование "пополам", а если ввести любое слово, некоторые буквы не шифрует..