| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Защита программы паролем [D1, D2, D3, D4, D5, D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]
TerminalHead © (2005-08-08 06:44:00)Мне надо сделать чтобы в ходе работы программы появлялось окно с вводом пароля, и если его не введешь то некоторые функции программы небыли доступны. Мне не нужна какая-нибудь навороченная защита, просто поле для ввода пароля, и чтобы пароль скрывался звездочками. Я знаю что такую защиту можно взломать с помощью блокнота :), но это не важно. Я это делаю так:
var
right_pass: string;
request: string;
begin
right_pass:='pass';
request:=InputBox('enter','password','');
if request <> '' then begin check:=0;
if request <> right_pass then check:=0;
end else begin
Application.Terminate
end;
if request = 'pass' then check:=8765;
В принципе меня это устраивает, кроме того что пароль не скрывается звездочками.
Как мне реализовать скрытие вводимого пароля звездочками ?
evvcom (2005-08-08 08:14:00) [1]
> Я знаю что такую защиту можно взломать с помощью блокнота
> :),
Ну, эт ты загнул. Такие защиты вскрываются усилием мысли и воли. :)
Думкин (2005-08-08 07:42:00) [2]есть Password dialog
и есть TEdit.PasswordChar
| |
