Программирование
Веб программирование

Ваша личная кодировка

 
 

Привет, сегодня я расскажу вам как изменить введенный текст так чтоб ни кто кроме вас не смог читать его.

Пример: тут написано "199221237229233"?, Здесь написано Карим. Интересно? читай дальше..

начнем, стандартная форма, добавим 2 текстбокса и кнопку.

добавим код для кнопки:

Private Sub Command1_Click()
Dim a As String, b As String ' обявим переменные тип текст
For i = 1 To Len(Text1.Text) ' откроем цикл от 1 до количество букв в текстбоксе с шагом 1,,
a = Mid(Text1.Text, i, 1)    ' в переменную а берем по одному букву
b = Asc(a) '- 3              ' переменную а переобразуем в аскикод
Text2.Text = Text2.Text & b  ' //// выводим данные в текстбос
Next                         ' закрываем цикл
End Sub

результат показан на втором текстбоксе. Думаю в таком виде можно хранить свои пароли и никто не догодается. На этом все.

Наверно вы думаете как обратно вернуть все эти циферки в текст? Хм, а это вам задача.
Удачи.


Есть вопросы? Спроси на нашем форуме!!
алексей [11.11.2011 12:29]

карим, можно было вообще без перемен
For i = 1 To Len(Text1.Text) ' откроем цикл от 1 до количество букв в текстбоксе с шагом 1,,

Text2.Text = Text2.Text & Asc(Mid(Text1.Text, i, 1)) ' //// выводим данные в текстбос
Next

Padre [11.11.2011 14:39]

По таблице ASCII-кодов
http://vbbook.ru/page/ascii-tablica-simvolov/
почему-то получается слово 199 221 237 229 233 переводиться как ЗЭНей ))
Это таблица получается не правильная?
И что делать если кодироваться будут цифры и латинские символы, в них не по 3 а по 2 символа? Как потом раскодировать? )) Может усложнить логику, и для 2-ух значных цифр 0-лик в начало добавлять?

алексей [11.11.2011 17:25]

я ща сделаю кодировку и раскодировку только для цифр , а потом постораюсь и для букв

алексей [11.11.2011 18:50]

всё раскодировку сделал

алексей [11.11.2011 22:43]

падре, а у меня получилось по моей програмке "Раскодировщик" . вот что получилось "ЗЭней!"

Карим [11.11.2011 23:37]

нет там должно получится слово Карим, если заметили я там от аскикода отбирал 3
b = Asc(a) - 3 , поэтому в каждый код нужно добавить 3 , и тогда получиться )) ааа забыл у меня там -3 в комменте стоит.

Карим [11.11.2011 23:52]

И что делать если кодироваться будут цифры и латинские символы, в них не по 3 а по 2 символа? Как потом раскодировать? ))
можно записать каждый символ аппендом в файл и раскодировать уже из файла . тогда уж и 3 символа не проблемы

Карим [11.11.2011 23:55]

Алексей если ты об этом Dim a As String, b As String то нас так учили .

алексей [12.11.2011 10:13]

карим я сделал раскодиловку полную но не могу добавить статью :(

алексей [12.11.2011 10:15]

я руские буквы и англиские буквы и цивры и символы раскодирую

алексей [12.11.2011 10:29]

карим кто и где тебя учил этому?

алексей [12.11.2011 10:30]

я вот лично самоучка

алексей [12.11.2011 11:16]

блин я не могу разместить свою стать
плиз помогите кто нибудь

алексей [12.11.2011 15:39]

карим вот статья http://vbbook.ru/stati-na-moderacii/1321091366/

алексей [12.11.2011 15:55]

карим вот статья http://vbbook.ru/stati-na-moderacii/1321091366/

Карим [12.11.2011 23:33]

===алексей [12.11.2011 09:29]
===карим кто и где тебя учил этому?

Читал мою статью про взлома агента? так вот я ету программу установил в двух кафе нашего города , после того как мои друзья узнали где сохраняется лог . пришлось изменить и вот тогда я и додумался до етого .
http://vbbook.ru/visual-basic/mail.ru-vb/

алексей [13.11.2011 12:02]

карим ты посмотрел на мой исходник кодировки и раскодировки

Максим [13.11.2011 12:14]

карим в такой кодировке 202224240232236

алексей [13.11.2011 12:17]

макс ты прав только в такой кодировке не карим а Карим . с большой буквы

алексей [13.11.2011 12:19]

а если с маленькой то 234224240232236, а у меня в проге кодируеться так 32343224324032323236

Максим [13.11.2011 12:23]

ну да Карим с большой буквы
а почему у тебя в проге кодируется по другому?

алексей [13.11.2011 12:24]

а ты посмотри исходник и код сам узнаешь ну я скоро сделаю что б было и так так кодировалось и раскодировалось

алексей [13.11.2011 12:30]

макс ну чё разобрадся??

Максим [13.11.2011 12:37]

кажется разобрался

алексей [13.11.2011 12:37]

я второй исходник выпущу пороще

Максим [13.11.2011 12:38]

я это потом в дллку пихну

алексей [13.11.2011 12:47]

макс пихай куда хочешь ;)

Максим [13.11.2011 12:54]

спс

алексей [13.11.2011 12:56]

да не за что

алексей [13.11.2011 12:58]

макс , ты как думаешь чат насйте хорошая идея??

алексей [13.11.2011 12:59]

макс , ты как думаешь чат на сайте хорошая идея??

Максим [13.11.2011 15:30]

думаю да можно нормально переписываться
и знать кто в онлайне:)

алексей [13.11.2011 15:36]

я то же так думаю . только надо что бы падре это одобоил

Максим [13.11.2011 15:40]

да без него никак

алексей [13.11.2011 15:44]

макс, а как ему сообщить по емайлу или ждать пока он эти коментарии прочтёт??

Максим [13.11.2011 15:47]

напиша на padre03@mail.ru и он должен увидеть
(наверно) ;)

алексей [13.11.2011 15:48]

ладно напишу

алексей [13.11.2011 15:56]

макс, я на писал ему

Максим [13.11.2011 16:00]

молодец теперь жди
(1000 лет) ;)

алексей [13.11.2011 16:04]

0_о ого что то многова то , а ты уверен что столько прийдёться ждать

алексей [13.11.2011 16:04]

XD ахаха

Максим [13.11.2011 16:12]

да не поменьше неверно
(222 года)

Максим [13.11.2011 17:18]

ну я сделал эту дллку перекодировает невсё
и почемуто видит не все пробелы но это хоть чтото

алексей [13.11.2011 17:25]

макс, что бы он всё раскодировал всё надо модуль дополнять

алексей [13.11.2011 17:26]

напиши мне текст где он не все пробелы видит!

Максим [13.11.2011 17:29]

вот этот текст
п р о в е р к а
пишет - п и е и
в чем проблемма?

Максим [13.11.2011 17:32]

и твоя прога также

алексей [13.11.2011 17:44]

макс это не тот иходник чё то щас кину норм прогу , потом кину супер прогу

http://depositfiles.com/files/impghol3l [13.11.2011 17:45]

вот прога норм

алексей [13.11.2011 17:49]

вот тебе код для проверки
32373243232323432243234232323732383240323623232393240323832273224
скопируй код в текст4 то есть в правом верхним углу текст4 туда и вставь код

Максим [13.11.2011 17:50]

получилось пишет ну и .

алексей [13.11.2011 17:50]

ну че скачал??

алексей [13.11.2011 17:51]

ты прогу скачал

Максим [13.11.2011 17:54]

да прога у меня еще со вчерашнего дня

http://depositfiles.com/files/impghol3l [13.11.2011 17:57]

скачай эту прогу

алексей [13.11.2011 21:22]

падре моё письмо до сих пор не прочёл и не ответил

Карим [14.11.2011 00:22]

да прочел твою статью , хорошая статья

Карим [14.11.2011 00:29]

хорошая идея на счет чата , я за.

алексей [14.11.2011 14:26]

спс карим . падре уже одобрил идею с чатом он чат сделает на выходных !! ну хотя бы постораеться

пупкин [02.11.2012 20:49]

а как обратно преобразовать напишите плз

васька [04.11.2012 22:29]

ну действительно скажите я так и не понял

Karim120 [14.02.2013 19:36]

теперь я тут ) урра!

admin1310 [15.02.2013 01:26]

С возращением) Ура Ура Ура))

tayson72 [17.02.2013 23:53]

Какой-то бардак в комментариях, урок не законченный, в чем смысл модерации? Не понимаю.

Samou4120 [18.07.2013 14:00]

Private Sub Command1Click()
Text2.Text = ""
For i = 0 To Len(Text1.Text) - 1
Text1.SetFocus
Text1.SelStart = i
Text1.SelLength = 1

Text2.Text = Text2.Text & Asc(Text1.SelText)
If Val(Asc(Text1.SelText)) < 100 Then Text2.Text = Text2.Text & " "

Next i

End Sub

Private Sub Command2
Click()
Text1.Text = ""
For i = 0 To Len(Text2.Text) - 1 Step 3
Text2.SetFocus
Text2.SelStart = i
Text2.SelLength = 3
Text1.Text = Text1.Text & Chr(Text2.SelText)

Next i
End Sub

Coolhacker770 [18.07.2013 14:23]

Samou4
таки замечу, давно вы однако не появлялись

Samou4120 [18.07.2013 19:29]

Временами появлялся, правда в ридонли.
Всё же с vb6 на vb.net не так-то быстро и легко перейти оказалось, как я думал.
Да и придумать интересный проект сложновато, всё уже написано давно ))

Samou4120 [18.07.2013 19:42]

Собственно как и сейчас -
писал шифровальщики текста сразу на vb6 и .net,
а тут уже всё обсуждено))
Правда у меня посложнй задачка - шифровальщик шифрует текст
в графическое изображение и обратно.

Coolhacker770 [18.07.2013 20:06]

Samou4
учите вы лучше графику и сеть. в .net это не так уж и сложно, а сейчас как раз очень популярно :).

alex13sh300 [18.07.2013 22:32]

Samou4, хочу заметить ваше отношение к скорости обработки.
К объектам в цикле обращаться оч неправильно.
лучше всего взять текст из объекта (ТекстБокс) и записать в переменную, потом используя функцию Mid$(Text,Start,Length)

Val(Asc(Text1.SelText)) --- тут обращение к объекту и лишние раз использование функции Val , и это всё в цикле.

Насчёт идей, вот у меня куча идей , и нет времени всё эт быстро реализовать (т.к. идей куча).
Насчёт щифровки в графику, это тупо перевод символов в 4 байта? или как?
Я шифрую переводом символы в биты и на уровне бит Шаманю

Samou4120 [19.07.2013 06:25]

И правда, alex, так намного быстрее работает.

Dim a As String, txt1 As String, txt2 As String

Private Sub Command1Click()
txt1 = Text1.Text
txt2 = ""

For i = 1 To Len(txt1)
a = Mid$(txt1, i, 1)
txt2 = txt2 & Asc(a)
If Asc(a) < 100 Then txt2 = txt2 & " "
Next i

Text2.Text = txt2
End Sub

Private Sub Command2
Click()
txt2 = Text2.Text
txt1 = ""

For i = 1 To Len(txt2) Step 3
a = Mid$(txt2, i, 3)
txt1 = txt1 & Chr(a)
Next i

Text1.Text = txt1
End Sub

alex13sh300 [20.07.2013 17:01]

ну и хорошо))
везде говориться что надо реже обращаться к объктам

Stertor370 [08.09.2013 22:19]

"a = Mid(Text1.Text, i, 1) ' в переменную а берем по одному букву"

Просто уссаться от смеха. Автор жжет.
)

SIRIUS30 [02.01.2015 17:10]

Комментаторы тоже отжигают.
Реально улыбнули. Спасибо!

Karim120 [23.03.2017 18:39]

хм, Всем привет) блин. наверно в 2011 году мне реально делать нечего было)



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.