| Вопрос: Я нович. в VB.NET | Добавлено: 13.07.05 23:41 |
Автор вопроса:  dimailer
|
|
Я создал 2 RichTextBox (RichTextBox1 и RichTextBox2) и кнопку Button1;
Как сделать так чтобы нажав Button1, текст набранный в RichTextBox1 был перенесен в RichTextBox2 НО ЗАКОДИРОВАННО!!!; Например й=1№, ц=2№,у=3№, !а! йц=1№2№ и йу=1№3№ йуц=1№3№2№ ++НО НЕ ПЕРЕБИРАТЬ ЖЕ ВСЕ ВАРИАНТЫ ( все знаки клавы и все возможные варианты )!!!; Хочу сделать прогу для себя и друзей, чтобы прога шифровала текст!!! Помогите народ, мне помогали НО У МЕНЯ НОВИЧКА НЕВЫШЛО!!! |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Artyom Разработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #1 | Добавлено: 14.07.05 00:04 |
|
С моей стороны с иинимальными усилиями это делает ся регулярными выражениями (не гарантирую, что это будет максимально быстро - можно будет провести бенчмарк, но только не здесь, тк тут к бенчмаркам относятся очень скептически).
Регулярное выражение будет таким: . И все. Используешь вариант с CallBack процедурой и в ней получаешь код символа (функция ASC), и возвращаешь его, добавив "№". Только вопрос: Зачем извращаться? Этот далеко продвинутый алгоритм шифрования ломается за 5 минут. Советую посмотреть на пространство имен System.Cryptography (на этом сайте была статья Павла Сурменка про шифрование) и сделать все как надо. |
||
|
Номер ответа: 2 Автор ответа:  dimailer Вопросов: 9 Ответов: 27 |
Профиль | | #2 | Добавлено: 14.07.05 23:06 |
|
Brand помоги!!!
Я не знаю финкцию ASC!!! Я посмотрел в справочнике но ничего не понял!!! Пожалийста напишите пример!!! |
||
|
Номер ответа: 3 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #3 | Добавлено: 15.07.05 00:26 |
|
Извини, загружен на ~99.9%, времени свободного нету, помочь из-за этого мало чем могу, тем более пример писать.
Вот, даже CyRax'у на его провокационную фразу не отвечаю, хотя очень хочется. Функция Asc возвращает код символа, например: Asc("Q" 
вернет код символа "Q". Вот с ней тебе и надо работать. Как вариант - приводить символ с типу Char, у него тоже есть функции для определения кода символа, но будь с ним осторожен - символ-то юникодовский. |
||
|
Номер ответа: 4 Автор ответа: dimailerВопросов: 9 Ответов: 27 |
Профиль | | #4 | Добавлено: 15.07.05 21:04 |
|
Извини Brand я незнаю что такое Char.
Я начал изучать VB 1,5 года назад. Можно попробовать написать так: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  im a As String
RichTextBox1.Text = a Asc 
End Sub Но у меня ничего не выходит. Ха вспомнил анегдот: -Это курица? -Нет, это "естца"! |
||
|
Номер ответа: 5 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #5 | Добавлено: 15.07.05 23:08 |
|
Решил написать пример и сразу в голову пришел другой метод.
Преобразуешь строку в массив Byte(), и его загоняешь в новую строку: Dim Str As String = "Hello World"
Dim Result As String = "" Dim Bytes() As Byte = System.Text.Encoding.GetEncoding(1251).GetBytes(Str) For Each Bt As Byte In Bytes Result += Bt.ToString + "#" Next |
||
Страница: 1 |