[Delphi] Запрос пароля. - Форум Cheat-Master.ru
  • Страница 1 из 1
  • 1
Модератор форума: Alowir, Sanoxxx  
Форум » Программирование » Delphi Программирование » [Delphi] Запрос пароля.
[Delphi] Запрос пароля.
Mewex Дата: Пятница, 17.02.2017, 15:43 | Сообщение # 1
STEAM SELLER
Сообщений: 475
Статус: Offline
может кому пригодится.
В этой теме можно научиться запрашивать пароль при входе в программу.

делаем две формы

кидаем на первую форму edit и button

в кнопке создаём событие на onclick

пишем код:

Код
if edit1.text = 'пароль' then begin
application.messagebox('верный пароль', 'йоу', mb_ok + mb_iconinformation);
form2.show;
form1.hide;
end else
application.messagebox('неверный пароль', 'йоу', mb_ok + mb_iconstop);


как видим, это простейший пример запроса пароля, но его проще простого вскрыть.

Добавлено (16.02.2017, 11:54)
---------------------------------------------
Ап

Добавлено (17.02.2017, 15:43)
---------------------------------------------
Ап

Faren Дата: Понедельник, 27.02.2017, 23:23 | Сообщение # 2
Новичок
Сообщений: 16
Статус: Offline
 Код не очень, проще при запуске сделать вызов формы 2 а не скрывать главную форму
Mewex Дата: Понедельник, 03.04.2017, 19:37 | Сообщение # 3
STEAM SELLER
Сообщений: 475
Статус: Offline
 Ап

Добавлено (28.03.2017, 12:52)
---------------------------------------------
Ап

Добавлено (30.03.2017, 10:42)
---------------------------------------------
Ап

Добавлено (03.04.2017, 19:37)
---------------------------------------------
Ап

Ch0c0Cube Дата: Среда, 05.04.2017, 08:04 | Сообщение # 4
Admin
Сообщений: 2486
Статус: Offline
 ф

Сообщение отредактировал Ch0c0Cube - Среда, 05.04.2017, 08:09
Mewex Дата: Понедельник, 10.04.2017, 21:57 | Сообщение # 5
STEAM SELLER
Сообщений: 475
Статус: Offline
 Ап

Добавлено (10.04.2017, 21:57)
---------------------------------------------
Ап

ChesterHelium Дата: Понедельник, 01.05.2017, 00:39 | Сообщение # 6
Боец
Сообщений: 212
Статус: Offline
 можно проще

создать 3 формы

на первой форме разместить кнопку, на кнопку оформить переход на вторую форму:
Код
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
end;


на второй форме разместить кнопку "Войти" и 2 едита для логина и пароля соответственно
в варе прописать переменные login и pass как string
при вводе неправильного пароля прописать диалоговое окно

Код
procedure TForm6.Button1Click(Sender: TObject);
begin
login:='123';
pass:='123';
if (Edit1.Text=login) and (Edit2.Text=pass) then Form3.Show else MessageDlg('Вы ввели неправильный логин или пароль!',mtError, mbOKCancel, 0);
end;


пс: чтобы пароль был звездочками - в инспекторе, в PasswordChar убрать лишнее и поставить звездочку

Это более понятней)


Сидим в VK с разных профилей в одном браузере
Бесплатно отправляем смс-сообщения
Обход подписи в 255 символов на SAMP-RP
Способ накрутки личных сообщений в ВК
Халявные дедики
[DELPHI] - Выключение компьютера по Button'у
[DELPHI] - Запрос логина и пароля на форме
Делаем убийственные .BAT файлы
Скрипт для e-mail рассылки до 100к в сутки
Обход авторизации на бесплатных точках WiFi
Флэшка - убийца для быстрого сноса винды
Расширение для Google Chrome - Бесконечный набор сообщения (Бесконечный карандаш)
Заливаем фотографии / смотрим истории в instagram с компьютера
Получаем письма с Америки, Канады, Аляски и т.д. с оф. нашивками пожарных

Форум » Программирование » Delphi Программирование » [Delphi] Запрос пароля.
  • Страница 1 из 1
  • 1
Поиск:
Статистика Форума
Последнии темы
Курилка
Sendersex.com игра эроти...
Отели для путешествий по...
✅✅✅ПРОДАЖА ВИРТОВ SAMP/C...
ПРОДАЮ/СКУПАЮ НА ВСЕХ ТО...
Аренда манипулятора в Ми...
STERN | EAC SPOOFER...
Бесконечное слово
как достать id человека ...
Миллион окон в "SAM...
Лучший PBN seo сервис и ...
Is APK Mirror Safe to Us...
Читаемые темы
Курилка [10000]
[0.3z][RUS] S0beit mo... [9991]
Поиск CLEO скриптов &... [9977]
Флудильная [9936]
Курилка [9688]
RakBot - Качай аккаун... [9653]
Курилка [9614]
Общение читеров [CM] [9523]
S0beit - pr9n project... [9501]
Часто задаваемые вопр... [8268]
ПОКУПАЮ/ПРОДАЮ ♚SAMP♚... [6360]
[0.3.7][RUS] Sobeit m... [6249]
[FREE] AntiAFK_R 3.4.... [6220]
Лучшие пользователи
Admin [39113]
GеNius [7210]
[CM]Russel [5557]
kenlo763 [4952]
[CM]AGRESSOR [4639]
Snake_Firm [4452]
Сэс [4416]
Artem_Buero [4223]
[CM]Durman [3204]
[CM]Рафаэль [3080]
iMaddy [2855]
sky_Woker [2854]
getrekt [2745]
Новые пользователи
Vlados_ggg63727 [16:48]
acelloud [14:19]
selmasb8 [02:54]
Milana77gger [09:50]
Romka2038 [03:46]
Vovik111 [21:24]
pabgciti10 [21:05]
Kosmos117 [11:13]
mne3godika [11:00]
boychenkokiryusha [22:02]
MaksBolgaf [20:33]
bobbybrown [12:47]
jfjfhgfhhffh [11:26]