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

Защита программ VB

 
 

Принцип защиты будет прост - наеб...а(кто не понял, скажу по русски(хотя и там было по русски), я имел введу обман. Да, да, принцип защиты будет обман). Мы не будем пользоваться свойствами PasswordChar, а в Текстовое поле будем посылать свои звездочки. На форму кинь 2 текстовых поля(В Text1 будет все засекречено звездочками, а в Text2 без них(и свойство Text у них = "")). Код:

Private Sub Text1_KeyPress(KeyAscii As Integer) 'Если в Text1(т.е. должен курсор в нем мигать) нажата клавиша клавы то:
Text2.Text = Text2.Text + Chr(KeyAscii) 'Text2.text = Text2.Text + Нажатая клавиша(с помощью KeyAscii ловим нажатую клавишу, а с функцией Chr переводим ее из Ascii в обычную кодировку)
If KeyAscii = 8 Then 'Если юзер нажимает на BackSpace то:
KeyAscii = 8 ' Посылаем код нажатой клавиши BackSpace(т.е. стирается один символ из текстового поля)
Else ' Если юзер не нажал BackSpace, а нажал на другую клавишу то:
Text1.Text = Text1.Text + "*" 'К Текстовому полю 1 прибавляем звездочку(и теперь нас не одна хак программа не возмет(т.к. под звездочкой нет не каких символов))
KeyAscii = 0 'И не куда не посылаем сигнал нажатой клавиши(это чтоб в текстовом поле после звездочки не писались введенные в него(в текстовое поле(ты что забыл?)) символы)
End If
End Sub

Есть вопросы? Спроси на нашем форуме!!
Гость [07.05.2011 22:22]

у тебя там в одном слове буква "к" пропушена.

Нурали [10.01.2012 08:15]

Как написат антивирус?

алексей [28.02.2012 21:13]

у билгейца спроси

Игорь [23.04.2012 14:15]

Круто. Хороший метод



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




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