Моя программа и пароль

[artemavd]

Добрый день уважаемые программисты! Я заканчиваю работу над программой одной и хотел бы у вас вот что спросить. Я хочу, чтобы при запуске моей программы появлялось окно, куда пользователь должен ввести имя пользователя и пароль и чтобы если они правильные, то ему было разрешено работать с программой. Вообщем я хочу сделать так сказать защиту своей программы. Как мне это сделать? И еще надо, чтобы на окне где пользователь вводит данные кнопка «ОК» не была доступна, пока данные не будут введены. Когда данные будут введены, то по нажатию кнопки «ОК» будет происходить проверка данных и если они правильные, то доступ будет разрешен. Есть идеи как это сделать? Я программирую в Borland Delphi 7 Enterprise. Заранее спасибо)

[edgy]

А где вы имена пользователей и пароли будете хранить и в каком виде?

[Stilet]

Ну хранить не пароль а хеш лучше.
А по поводу ввода. Сделать форму с двумя полями. Запретить кнопку ОК, а по OnChange эдитов проверять пустые они или нет, и если оба непустые то ОК разрешить.

[SERG1980]

Можно из RXLib, там есть такой компонент

[artemavd]

/А где вы имена пользователей и пароли будете хранить и в каком виде?//
Я не знаю пока. А как лучше сделать?
/Сделать форму с двумя полями. Запретить кнопку ОК, а по OnChange эдитов проверять пустые они или нет, и если оба непустые то ОК разрешить./
А можешь если не трудно набросать пример? А то я могу ошибиться в синтаксисе. Плиз)
/Можно из RXLib, там есть такой компонент/
Можно поподробнее об этом рассказать?)

[SERG1980]

Есть библиотека сторонних компонентов. называется RXLib. Там есть компонент RxLoginDialog, который может подойти для ваших целей. У компонента есть событие AfterLogin где можно сравнивать правильность ввода и делать какието действия Внешний вид см. ниже

[Stilet]

А то я могу ошибиться в синтаксисе

Ошибешся - поправим

[Terran]

Вот, я тут быстренько написал код. Если пароль в программе не меняется, то думаю он подойдёт, а если надо менять, то надо будет данные из файла загружать. Можно для удобства хранить в .ini файле. И что бы его не нашли можно этот файл запихнуть куда нибудь в системные директории и дать ему своё расширение (К примеру .dfe ну или ещё какое нибудь) что бы не нашлось в винде программы которая может его открыть. Хотя если захотеть то можно всё открыть.

У Button'a свойство Enabled изначально должно быть равно Enabled:=False;

Var
S,P:String;
Procedure TForm2.FormShow(Sender: TObject);
Begin
S:='YYY';// К примеру
P:='123123123';
End;
Procedure TForm2.Edit1Change(Sender: TObject);
Begin
If (Edit1.Text=S) And (Edit2.Text=P) Then
Begin
Button1.Enabled:=True;
End
Else
Begin
Button1.Enabled:=False;
End;
End;
Procedure TForm2.Edit2Change(Sender: TObject);
Begin
If (Edit1.Text=S) And (Edit2.Text=P) Then
Begin
Button1.Enabled:=True;
End
Else
Begin
Button1.Enabled:=False;
End;
End;
Procedure TForm2.Button1Click(Sender: TObject);
Begin
...// Действия которые произойдут по нажатию на кнопку.
End;

From Stilet: Написал - хорошо. Некузяво оформил - плохо, а плюс на минус дает... Так что об оформлении не забываем.

[Zloy_Doomer]

Насколько я понял то недоступность кнопки будет зависить от того есть ли ХОТЬ КАКИЕТО ДАННЫЕ в поле edit1/2 а в вашем примере все происходит по такому сценарию:
Procedure TForm2.EditXChange(Sender: TObject);
если edit1/2.text = s/p то сделать кнопку доступной если нет то недоступной...

или такая задача и была поставлена и я чегото не понял???При таком коде кнопка станет доступной только если пароль и логин будут правильные...
Если нет то вот так было бы правильнее:
Procedure TForm2.Edit1Change(Sender: TObject);
Begin
if edit1.text <> '' then button1.enbled := true else button1.enabled := false;
end;

Да и нащет пароля...
Я делал нечто похожее и делал так:Сохранял пароль в определенной ветке реестра в виде ORD(символ) то есть не сам символ а его код...конечно при знании етого нехитрого алгоритма взломщику не составит труда перевести все обратно...но вначале нада знать где копать...

[beegl]

и здесь можеш почитать:
http://programmersforum.ru/showthrea...E0%F0%EE%EB%FC