Форум: "Основная";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];
Вниз
Как запаролить вход в программу Найти похожие ветки
← →
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]Пароль можно сохранять в реестре, тогда в екзешнике никто его не найдет
← →
Defunct © (2005-05-25 00:54) [13]Gorger (25.05.05 00:01) [12]
Ломать сложнее, да и мусор в реестре, кому нужна такая программа?
← →
Eraser © (2005-05-25 00:57) [14]Gorger (25.05.05 00:01) [12]
Не в реестре, а в самой программе, но в зашифрованом виде, каким -нибудь симметричным алгоритмом.
← →
KSergey © (2005-05-25 07:56) [15]> BFG9k © (24.05.05 14:39) [5]
> 2 KSergey :
>
> > if ...тут как-то проверяем правильность пароля...
> then
> > isPassOk := TRUE;
>
> Ну что ж вы так ...
>
> isPassOk :=...тут как-то проверяем правильность пароля...
Ну вообще-то предполагалось, что там может быть не просто буквально этот IF, это как иллюстрация. ;)
Все едино слабым местом во всех примерах будет if NOT isPassOk then и т.п. ;)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.289 c
