Защищаем свою программу паролем

[ben95]

для тагочтоб защитить свою прогу паролем я опишу простой пример!
создоём новое преложение на форму ставим 1-label 1-Edit 1-Button
очищаем лабел и едит! меняем текст на кнопке кна что угодно(пуск,войти.активировать,и т.д) делаем двойной клик по бутон открывается исходник программы
и мы видим

procedure TForm1.Button1Click(Sender: TObject);
begin
...
end;

end.

теперь удаляем ...... и пишем это

if Edit1.Text='123' then \\вместо 123 пишим свой пароль
 Label1.caption:='вы ввели верный пароль'
 else
label1.caption:='неверный пароль'

так самое главное мы сделали
теперь дароботки в Edit1 в обект менеджере
в поле passwordchar заместо '#0' пишим '*' всё !!! наша прога готова

[Карась]

Пахнет нобелевской премией по программированию....

для тагочтоб защитить свою прогу паролем я опишу простой пример!

Он действительно очень простой.

Напиши чтонибудь посложнее, чтоб действительно с такой защитой пришлось повозится..

[ben95]

ты пойми я тока учю дельфий и решил выложить пример из книги (а ты вообще название раздела читал?)(если да то сам понимаеш (студентам(новичка)))

[ben95]

ты пойми я тока учю дельфий и решил выложить пример из книги (а ты вообще название раздела читал?)(если да то сам понимаеш (студентам(новичка)))

[Карась]

Это хорошо, читать книжк это правильно Спрашивай в этой веточке, если что непонятно...

Вопро на засыпку( хорошо ли ты читал книгу ):
В Delphi после практически каждой строки надо ставить ( ; ).
Почем после строки

Label1.caption:='вы ввели верный пароль'

не стоит этот знак?

[ben95]

нету в книге тока после
label1.caption:='неверный пароль' ;

[Marsik]

А я на своей ерундовой проге сделал так что нужно ввести имя и пароль.И причем пароль вводится такого типа: имя лох.Типа если имя ввести Вася,пароль соответственно Вася лох. .И если они вводят мое имя(Марсель,Марса,Марсик и т.д.),то выходит сообщение нецензурного содержания и виндовоз перезагружается. А ведь можно вместо имени взять id компа,а пароль например вычитание всех цифр id.

[Карась]

Сообщение от ben95

нету в книге тока после
label1.caption:='неверный пароль' ;

Неверный ответ.. Ты уже проходил ветвление If Then Else?

Правильный ответ: Перед Else не ставится запятая вообще. Таков синтаксис.

Кстати есть такое понятие как "читабельность кода".
Прочитай вот это http://www.rsdn.ru/article/philosophy/whyyourcode.xml
Это не намёк что твой код ...... Но там правильно написанно вообще для всех.

Вообщем в любых на мой взгляд книжках должны быть сноски "Хороший стиль программирования" или чтото подобное как в книге
"Дейтел Х., Дейтел П - Как программировать на C++"..

Например если твой код немного переформатировать, то станет более читабельным и в большой программе это скажется уж поверь.

IF Edit1.Text = '123' THEN 
     Label1.caption := 'вы ввели верный пароль'  
 ELSE  
     Label1.caption := 'неверный пароль';
END;

[Alter]

Не всегда надо ставить";". В конце кода можно и не ставить. Вот это вы проверяли? Нормально работает

procedure TForm1.Button1Click(Sender: TObject);   
begin
 IF Edit1.Text = '123' THEN 
     Label1.caption := 'вы ввели верный пароль'  
 ELSE  
     Label1.caption := 'неверный пароль'   
END;

[Vedrus]

Ну вы бы хоть через XOR значение пароля пропустили, а то вообще тупо через F3 пароль разгадать можно.

ЗЫ. Господин карась, не умничайте, Вы не слишком далеко от ben95 ушли. Кстати ";" перед else в некоторых случаях ставится.