Код

' idea only! Private Sub Command1_Click() Text1.Text = "" Text1.Locked = False Text1.PasswordChar = " " ' delaem zapret na pokaz kursora (kak v Unix) ' tolko nado podumat': kak eto sdelat'? End Sub Private Sub Form_Load() Dim i As Integer Text1.Locked = True For i = 0 To 49 ' naprimer ili do konza TextBox'a Text1.Text = Text1.Text & " " Next i End Sub Private Function PassChar() '...algoritm compressii Do ' ne pokazivaem nikakih soobshenii o pravilnosti '... ' horosho bi bez: if .... else .... end if Loop While PassChar <> RealPassChar ' pri sleduyshem zapuske programmi ne pristaem k usery s voprosami ' "Vvedi parol" End Function ' otdelnaya funczia pishet v texstoviy fail zashifrovanniy parol ' naprimer "Password" -> #^!$#!@^&^%JADSD ' kolichestvo vvedennih simvolov nikoga (!!!) ne ravno chisly shifr-simvolov - ' eto osobennost' shifrovania - kakoi smisl v tupoi podstanovke odnih simvolov drugimi?

P.S. Извиняйте за транслит - русский язык нафиг пропал из VB. Переставлял 10 раз, не помогло. ОС сносить жалко, если кто сталкивался, скажите, как исправить.
Добавлено @ 12:29

Цитата(Akina @ 27.7.2005, 11:57)

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

Ну может он не такой тупой как пробка? Можно в хелпе написать или в ToolTipText "Пароль никак не будет отображен (*) и т.п. Смело вводи пароль, юзер!"

Voldemar2004
Зачем изобретать сокрытие курсора, когда можно обойтись без текстбокса, принимая пароль непосредственно в CommandButton.KeyPress?

Цитата(cardinal @ 27.7.2005, 01:13)

А что защита своих программ это неактульно?

Актуально конечно, интересно, спору нет. Я о другом.
Мало отличающиеся друг от друга варианты развития и реализации идеи Akinaвстречаются практически на каждом сайте по VB, последние лет 5. Вот несколько адресов навскидку, найденных поисковиком:
http://rtfm.vn.ua/prog/js/vbsovet.htmlhttp://forum.sources.ru/index.php?showtopic=49854
http://www.vbnet.ru/subscribe/showsubscribe.asp?id=134
Идея конечно интересная, но смысл прятать пароль в окне ввода, которое проживет всего несколько секунд, стандартное свойство текстбокса passwordchar=* прекрасно справляется со своей задачей - прячет то что ввел юзер от случайного взгляда, защиту от кого развивают
Akina и Voldemar2004? От террориста который оттолкнет юзера, только что введшего свой пароль, но не успевшего нажать "ОК", что бы тот не дай бог не открыл скрытое под звездочками с помощью Passwiew? Но тот может догадаться нажать "ОК" или "спросить" у самого юзера
Имхо, если уж забивать голову этой идеей, то было бы полезнее разработать алгоритм защиты от клавиатурных шпионов во время печатанья пароля юзером.

Цитата(bom @ 27.7.2005, 17:05)

алгоритм защиты от клавиатурных шпионов

Элементарно - контроль запущенных процессов.

Цитата(Akina @ 28.7.2005, 13:58)

Элементарно - контроль запущенных процессов.

А как узнать какой процесс нехороший?, т.е. - клавиатурный шпион?

Voldemar2004
Достаточно знать, какой лишний. Или у какого изменились параметры.