[Delphi] Авторизация на сайте - Форум Cheat-Master.ru
  • Страница 1 из 1
  • 1
Модератор форума: Alowir, Sanoxxx  
[Delphi] Авторизация на сайте
Nikemmi Дата: Воскресенье, 22.09.2013, 20:09 | Сообщение # 1
Хороший))0
Сообщений: 475
Статус: Offline
Здрасте я бы хотел написать, как авторизоваться на сайте с помощью Delphi
Умные люди поймут для чего это нужно smile


Внешний вид программы



На форме: 3 label, 2 edit, 1 memo, IdHTTP1 с вкладки Indy Clients.

Начнем


У Memo1 в Object Inspector, ScrollBars поставьте значение ssVertical
Для корректной авторизации на сайте нужно авторизоваться под сниффером. Я использую
HTTP Analyzer v 7 (не реклама).
Я не буду писать как пользоваться этой программой, иначе модераторы, подумают, что я обучаю взлому.
(Это я так думаю )
Авторизация будет в моем случае для сайта, который вы увидите в коде. Этот сайт я тоже не рекламирую, а просто нажал на первую попавшую ссылку.

Приступим к кодингу:
Для кнопки ''авторизация"

Код
var
LoginData, Response: TStrings;
begin
   Memo1.Text := Memo1.Text + #13#10;

LoginData := TStringList.Create;
Response := TStringList.Create;
try
LoginData.Add('login_name='+Edit1.Text); // login_name это то что было во вкладке Post Data
LoginData.Add('login_password='+Edit2.Text);  // login_password это то что было во вкладке Post Data
LoginData.Add('login=submit'); login=submit это то что было во вкладке Post Data
LoginData.Add('x=0');
LoginData.Add('y=0');
Response.Text := IdHTTP1.Post('http://minecraft-mods.ru/',LoginData); // скопировали post запрос
if Pos ('logout',Response.Text)>0 then

Memo1.Text:= Memo1.Text + 'Успешная авторизация'
else
Memo1.Text:= Memo1.Text + 'Авторизация не удалась' ;

finally
LoginData.Free;
end;
   end;


Кому чего не понятно пишите
Прикрепления: 1058868.png (22.4 Kb)


Delphi программирование
[Delphi]Узнаем координаты перса
BunnyHop для Steam/Non steam


Сообщение отредактировал Nikemmi - Воскресенье, 22.09.2013, 20:10
Plesdy Дата: Среда, 16.10.2013, 20:43 | Сообщение # 2
Боец
Сообщений: 158
Статус: Offline
А не легче и круче было сделать как в брутах? Типа открывать базу логинов и паролей от сайта из текстовика OpenDialog. Чето типа
Цитата

var dir, login, password: string;
a,i: integer;
dostup: boolean;
begin
dostup:=false;
getdir(0,dir);
dir:=dir+'\pass.txt';
Memo1.Lines.LoadFromFile(dir);
a:=Memo1.Lines.Count;
for i:=0 to a-1 do
Begin
login:=copy(Memo1.Lines[i],0,pos(':',Memo1.Lines[i])-1);
password:=copy(Memo1.Lines[i],pos(':',Memo1.Lines[i])+1, length(Memo1.Lines[i]));
if (Edit1.Text=login) and (Edit2.Text=password) then
dostup:=true;
end;
if dostup then
Form2.ShowModal;
if dostup=false then
Form3.ShowModal;

Ну это что-то типо авторизации в программу, так сделал чтоб сделать аналог авторизации как на сайте, хотя там нужно ещё пороботать.


Сообщение отредактировал Plesdy - Среда, 16.10.2013, 20:48
  • Страница 1 из 1
  • 1
Поиск:
Статистика Форума