Как запаролить вход в программу

← →
Starcom (2005-05-24 13:12) [0]

Как мне без всяких ухищерений зделать окно входа в прогу с применением ввода пароля?

С уважением Starcom! ;-[

← →
easy © (2005-05-24 13:19) [1]

program Project1; uses Forms,dialogs, Unit1 in "Unit1.pas" {Form1}; {$R *.res} begin if inputbox("Пароль", "Введите пароль","")<>"mypass" then exit; Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.

← →
BasiL_666_ © (2005-05-24 13:28) [2]

самый простой споб известный мне это запрос пароля при инциализаци приложения (взято с DelphiWorld):
program Initialize; uses Forms, Dialogs, Controls, MainFrm in "MainFrm.pas" {MainForm}; {$R *.RES} var Password: string; begin if InputQuery("Password", "Enter your password", PassWord) then if Password = "D5DG" then begin // Other initialization routines can go here. Application.CreateForm(TMainForm, MainForm); Application.Run; end else MessageDlg("Incorrect Password, terminating program", mtError, [mbok], 0); end.

← →
KSergey © (2005-05-24 13:33) [3]

В обработчике FormCreate главной фотмы примерно такое:

var isPassOk: Boolean; .... isPassOk := FLASE; with TPassForm.Create(nil) do // форма ввода пароля try if ShowModal = mrOk then if ...тут как-то проверяем правильность пароля... then isPassOk := TRUE; if NOT isPassOk then // если пароль не указан или ошибочный begin Application.ShowMainForm := FALSE; // имя свойства уточнить Application.Terminate; end; finally Free; end;

Не офигительно, конечно, подработать бы надо (пример кривости: при возникновении Exception при работе с формой пароля приложение таки запустится)
но идея, думаю, понятна.

← →
Anatoly Podgoretsky © (2005-05-24 14:00) [4]

Без ухищрений не получится, код писать надо.

← →
BFG9k © (2005-05-24 14:39) [5]

2 KSergey :

> if ...тут как-то проверяем правильность пароля... then
> isPassOk := TRUE;

Ну что ж вы так ...
isPassOk :=...тут как-то проверяем правильность пароля...

:)

← →
ALL (2005-05-24 17:45) [6]

А можно в принwипе и так: При запуске в программы на первой
форме расположен Edit и Button.По клику кнопки можно сделать так
if edit1.text="твой пароль" then form2.showModal;

← →
Defunct © (2005-05-24 19:43) [7]

> ALL (24.05.05 17:45) [6]

Ну.. это уже с "ухищерениями" получится.

← →
Starcom (2005-05-24 22:40) [8]

Well!

Попробовал всё, дас ист гут! Но мне подручнее Basil_666

Всем Огромное Спасибо! Ценю когда коротко и локанично!

С Уважением Starcom! :-)

← →
Flame (2005-05-24 23:15) [9]

вот токо можно открыть exeшник при помощи wordpad и там этот пароль будет написан!!!!!

← →
raidan © (2005-05-24 23:24) [10]

>Flame (24.05.05 23:15) [9]
Это вы типа шутите?

← →
скрепка (2005-05-24 23:38) [11]

> raidan © (24.05.05 23:24) [10]
> >Flame (24.05.05 23:15) [9]
> Это вы типа шутите?

Это вы типа шутите?

ЗЫ ХИХИХИ! ОЧЕНЬ СМЕШНО

← →
Gorger (2005-05-25 00:01) [12]

Пароль можно сохранять в реестре, тогда в екзешнике никто его не найдет

Gorger (25.05.05 00:01) [12]

Ломать сложнее, да и мусор в реестре, кому нужна такая программа?

Gorger (25.05.05 00:01) [12]

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

> BFG9k © (24.05.05 14:39) [5]
> 2 KSergey :
>
> > if ...тут как-то проверяем правильность пароля...
> then
> > isPassOk := TRUE;
>
> Ну что ж вы так ...
>
> isPassOk :=...тут как-то проверяем правильность пароля...

Ну вообще-то предполагалось, что там может быть не просто буквально этот IF, это как иллюстрация. ;)

Все едино слабым местом во всех примерах будет if NOT isPassOk then и т.п. ;)

Как запаролить вход в программу Найти похожие ветки