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

@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, ответ дал в вашей теме Как сделать Дешифратор, шифратор текста по базе шифров

Новые блоги и статьи Все статьи Все блоги /
Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .
Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .

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

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

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

Опции темы