Применение функции 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д