Применение функции ASCII ко ВСЕМУ тексту - VB

Узнай цену своей работы

Формулировка задачи:

Добрый вечер! Пишу программу для шифровки текста методом Вернама, одной из составляющих кода является перевод букв введенного ключа в код по таблице ASCII. Код для перевода следующий:
К сожалению, он переводит только первую букву, а не весь текст, не могу понять почему, возможно кто-то здесь сумеет мне помочь) Заранее спасибо!

Решение задачи: «Применение функции ASCII ко ВСЕМУ тексту»

textual
Листинг программы
Option Explicit
Dim a As String
Dim b As String
Dim c As String
Dim d As String
Dim f As String
Dim h As String
Dim lentext As Long
Dim lenkey As Long
Dim I As Long
Private Sub Command1_Click()
a = Text1.Text
'исходный текст
b = Text2.Text
'ключ
lentext = Len(a)
lenkey = Len(b)
For I = 1 To lentext
d = Chr(Asc(Mid$(a, I, 1)) Xor Asc(Mid$(b, ((I - 1) Mod lenkey) + 1, 1)))
If I > 1 Then f = f & ""
f = f & d
Next I
Text3.Text = f
End Sub
Private Sub Command2_Click()
b = Text2.Text 'ключ
c = Text3.Text 'исходный текст
lentext = Len(c)
lenkey = Len(b)
For I = 1 To lentext
a = Chr(Asc(Mid$(c, I, 1)) Xor Asc(Mid$(b, ((I - 1) Mod lenkey) + 1, 1)))
If I > 1 Then h = h & ""
h = h & a
Next I
Text4.Text = h
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.917 из 5
Похожие ответы