Защита пароля в TextBox
Есть много программ, снимающих
маски с окон с паролями... Все, наверное, видели:
наводишь мышку на окно со звёздочками и в окне
программы-взломщика появляется текст пароля.
Приложения, написанные на Visual Basic не защищены от
этого... Другими словами в текстовом окне всё же
находится текст, только замаскированный. Я же
нашёл как этого избежать:
- в разделе формы General
Declarations объявите переменную, котрая будет
содержать код:
Dim pswd As String
- в свойствах текстового
поля установите в PasswordChar звёздочку "*".
Теперь кликните по текстовому полю два раза и
выберите событие Text1_KeyPress, впишите:
Private Sub Text1_KeyPress(KeyAscii As Integer)
pswd = pswd + Chr(KeyAscii)
KeyAscii = Asc("*")
End Sub
- Теперь нажатия будут
отлавливаться, а передаваться будут текстовому
полю только звёздочки! И программа-взломщик
пароль уже не достанет!!! Если кто-то хочет
сделать так, как в Linux'e, т.е. никаких звёздочек нет
вообще, то строку KeyAscii = Asc("*") надо заменить
на KeyAscii = 0 и всё!
ОБСУДИТЬ СТАТЬЮ
НА ФОРУМЕ
