Авторизация в программе Delphi by Bc0p

Всем привет. Это пример авторизации в программе (Delphi). Защита не очень, а так кол не сложный. Кто не разобрался код: login:='Тут ваш логин для авторизации в программе'; pass:='Пароль для авторизации в программе';

никакой защиты , я тут не вижу , тут только процес "авторизации", весь код прокомментировал , на форму добавляем 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;

Normiq:

никакой защиты , я тут не вижу , тут только процес "авторизации", весь код прокомментировал , на форму добавляем 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;

Можно для фейков делать