Шифратор текста в цифровые значения и обратно

@Dimmm-Ka · Регистрация: 08.12.2017

Студворк — интернет-сервис помощи студентам

Здравствуйте. Необходимо сделать программу - шифратор текста. Имеется 2 текстовых поля и кнопка. Есть таблица, в которой определенным словам и словосочетаниям уже даны цифровые значения. Если во введенном тексте нет слов из таблицы, то введенные символы шифруются по одному символу согласно этой же таблицы.
Например

привет - 325
как дела - 448
...
...
а - 678
б - 789
...
я - 747
1 - 222
...

Начал делать с помощью Select Case

VB.NET
1
2
3
4
5
6
7
8
9
10
11
For x = 1 To Len(TextBox1.Text)
Select Case Mid(TextBox1.Text, x, 1)
                Case "а"
                    TextBox2.Text = TextBox2.Text + "678"
                Case "б"
                    TextBox2.Text = TextBox2.Text + "789"
                Case "в"
                    TextBox2.Text = TextBox2.Text + "777"
...
  End Select
        Next

Но записывать всю таблицу через Select Case неправильно. И при расшифровывании цифровых значений в текст трехзначные числа расшифровываются все подряд. Например "привет как дела" - 325448 расшифровывает как 325 - 254 - 544 и т.д.

@Элд Хасп · 23.02.2020, 18:18

Adwalker, сегодня не до этого - на днях посмотрю.

@Adwalker · 23.02.2020, 18:20

Элд Хасп, Буду ждать очень! СПС

@Элд Хасп · 24.02.2020, 17:26

Adwalker, ответ дал в вашей теме Как сделать Дешифратор, шифратор текста по базе шифров

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Элд Хасп Модератор 16166 / 11286 / 2892 Регистрация: 21.04.2018 Сообщений: 33,176 Записей в блоге: 2
	23.02.2020, 18:18
	Adwalker, сегодня не до этого - на днях посмотрю. 0

@Adwalker 0 / 0 / 0 Регистрация: 21.02.2020 Сообщений: 32
	23.02.2020, 18:20
	Элд Хасп, Буду ждать очень! СПС 0

@Элд Хасп Модератор 16166 / 11286 / 2892 Регистрация: 21.04.2018 Сообщений: 33,176 Записей в блоге: 2
	24.02.2020, 17:26
	Adwalker, ответ дал в вашей теме Как сделать Дешифратор, шифратор текста по базе шифров 0