Пароль на Delphi

[Vlad111]

Подскажите , пожалуйста, код обработки ввода пароля при помощи функции InputBox в Delphi. Какое свойство окна используется для создания собственного пароля?

[SERG1980]

..........
var pas:string;
pas:=inputbox('Введите пароль','ввод пароля','');
if pas <>'' then
if pas<>"пароль" then .......
else ........

[fbus]

имеешь ввиду туда засунуть звездочки вместо сиволов?

[BaronTreep]

Звездочки это Edit1.PasswordChar := '*'; (Пароль крякнуть можно?...)

[__STDC__]

Если хранить правильный пароль в программе в виде строки, то любым хекс редактором его можно посмотреть =)

[MalCer]

var
  s:string;
begin
repeat
  s :=InputBox('Ввод пароля','Введите пароль','');
until
  s ='1234';
end;