| Вопрос: Помогите народ!!! | Добавлено: 11.07.05 22:05 |
Автор вопроса:  dimailer
|
|
Я создал 2 RichTextBox (RichTextBox1 и RichTextBox2) и кнопку Button1; Как сделать так чтобы нажав Button1, текст набранный в RichTextBox1 был перенесен в RichTextBox2 НО ЗАКОДИРОВАННО!!!; Например й=1*, ц=2*,у=3*, !а! йц=1*2* и йу=1*3* йуц=1*3*2* ++НО НЕ ПЕРЕБИРАТЬ ЖЕ ВСЕ ВАРИАНТЫ!!!; |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Genetik ICQ: 3212009 Вопросов: 5 Ответов: 33 |
Профиль | | #1 | Добавлено: 11.07.05 22:33 |
|
Если надо именно 1*2*3* и т.д. то мне кроме как перебора ни чего в голову не лезет.
Я например раньше делал так: Каждая буква переводиться в соответствующую ей цифру Аски кодировки (изв, если не так её назвал). Потом ета цифра мутирует по определенной формуле (например "цифра"*Х+("цифра"*rnd(x))). Но так как формула будет меняться то тебе прийдется например через запитую после мутированной цифры записывать число rnd(x). Потом при обратной рассшифровке все ето дело в обратном порядке расчитываеш, просто вместо rnd(x) подставляеш конкретно число записанное после запятой. ЗЫ Если честно ето все какоето извращение но его можно еще более сильно извратить, например приминив XOR, AND, OR и т.д. |
||
|
Номер ответа: 2 Автор ответа: dimailerВопросов: 9 Ответов: 27 |
Профиль | | #2 | Добавлено: 11.07.05 23:35 |
|
Genetik cпасибо, но ты меня не так понял!!!
Я хочи сделать прог. которая будет "кодировать" текст т.е засекречивать!!! 1*2*3, * - в данном случае не знак умн., а просто знак его запр. заменить ^ !!! |
||
|
Номер ответа: 3 Автор ответа:  dimailerВопросов: 9 Ответов: 27 |
Профиль | | #3 | Добавлено: 11.07.05 23:36 |
|
Genetik cпасибо, но ты меня не так понял!!!
Я хочи сделать прог. которая будет "кодировать" текст т.е засекречивать!!! 1*2*3, * - в данном случае не знак умн., а просто знак его запр. заменить ^ !!! |
||
|
Номер ответа: 4 Автор ответа:  Artyom Разработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #4 | Добавлено: 12.07.05 01:23 |
|
ИМХО, тут все очень просто делается регулярными выражениями, как в одну
сторону, так и в обратную. |
||
|
Номер ответа: 5 Автор ответа: AASoft Вопросов: 86 Ответов: 920 |
Профиль | | #5 | Добавлено: 12.07.05 02:21 |
|
a che slozhnogo? samyh prostoj sposob, delaesh` dva String massiva, tipa
Dim aLetters(0 to 255) as String
Dim aEncoded(0 to 255) as string dalee zapolnyaesh` aLetters bukvami po poryadku(ot 0 do 255, ponyatno vse tut) potom zapolnyaesh aEncoded kakto tak: Dim iCnt as Integer for iCnt = 0 to 255 aencoded(icnt) = icnt & "*" next icnt a potom prohodim po kazhdoj bukve v RTB pervom, takogo tipa: berem aEncoded(ASC(BUKVA)) i dobavlyaem vo vtoroj RTB...che za problema? a esli nado sohranit` formating i kartinki itd, to...nu, sohrani pervyj RTB v fajl, proloadi fajl vo vto RTB i tozhe samoj chto ya uzhe opisal...VB shas netu, poprobovat` ne mogu, no dolzhno *v teorii* rabotat` 
|
||
Страница: 1 |