- 08, Jun 2014
- #1
Всем привет.
Это пример авторизации в программе (Delphi).
Защита не очень, а так кол не сложный.
Кто не разобрался код:
login:='Тут ваш логин для авторизации в программе';
pass:='Пароль для авторизации в программе';
procedure TForm1.sButton1Click(Sender: TObject);
var login,pass:string; //добавляем переменные
begin
login:='HG22144fF'; //наш логин
Pass:='SFYjtt3'; //наш пароль
if (sedit1.text=login) and (sedit2.text=pass) then //тут мы делаем проверку , совпадает ли наш текст с 1 едит с //логином и текст со 2 едит с паролем
begin //
Showmessage('Авторизовались'); //если да то появляется окошко Showmessage('Авторизовались');
end
Else //либо
begin
Showmessage('Вы ввели не правильный логин или пароль'); //появляется другое окошко =)
end;
end;
никакой защиты , я тут не вижу , тут только процес "авторизации", весь код прокомментировал , на форму добавляем 2 edit и 1 buttonМожно для фейков делать
procedure TForm1.sButton1Click(Sender: TObject);
var login,pass:string; //добавляем переменные
begin
login:='HG22144fF'; //наш логин
Pass:='SFYjtt3'; //наш пароль
if (sedit1.text=login) and (sedit2.text=pass) then //тут мы делаем проверку , совпадает ли наш текст с 1 едита с //логином и текст со 2 едита с паролем
begin //
Showmessage('Авторизовались'); //если да то появляется окошко Showmessage('Авторизовались');
end
Else //либо
begin
Showmessage('Вы ввели не правильный логин или пароль'); //появляется другое окошко =)
end;
end;
![[Александр Ткаченко] Владимир Даль](/assets/images/icons/forum2.png){kind=icon}
![[Блокнот Желаний] 5 ключей ресурсного состояния женщины (2020)](/assets/images/icons/forum0.png){kind=icon}
![[яновский Алекс] Секреты Эффективного Управления [2014]](/assets/images/icons/forum4.png){kind=icon}
![[конспект Алгоритмы] Валерий Малышев - Групповой Коучинг По Теннису (2014)](/assets/images/icons/forum1.png){kind=icon}
