Урок 3 : Первая авторизация | Delphi | by waTS | youhack.top

Всем привет , с вами waTS и сегодня мы научимся авторизовываться в простых сайтах)
Что нам нужно?

2. Открываем анализер
3. Снифаем

Теперь копируем DATA :
Где ее взять?

Кидаем на форму :
MEmo1
Button1
2х Edit
Приступим к коду

Спойлер: КОД

var
Http:THTTPSend;
Html:TstringList;
Data:TstringStream;
begin
Http:=THTTPSend.Create; // Создаем переменную Http - с помощью его мы будем отправлять запросы
Html:=TStringList.Create; // Создаем переменную Html в ней будет храниться код HTML страници
Data:=TstringStream.Create; // Создаем переменную Data - Это все что будет отправляться в пост запросе пример : Login=asd&Password=dss
data.WriteString('page=https%3A%2F%2Fe.mail.ru%2Fmessages%2Finbox&FailPage=&Domain=mail.ru&Login='+sedit1.Text+'&Password='+sedit2.Text+'&new_auth_form=1&saveauth=1'); // Добавялем значение в пост запрос . т.е что софт будет передавать сайту под авторизацией
http.Document.LoadFromStream(data); //Прогружаем передаваемые параметры
if Http.HTTPMethod('POST','https://auth.mail.ru/cgi-bin/auth?lang=ru_RU&from=authpopup') then begin // Условие Если Запрос пройден то :
html.LoadFromStream(http.Document); // Прогружаем Html код в переменную Html :D
if Pos('Set-Cookie: Mpop=',Http.Headers.Text)<>0 then begin // Если найден такой текст в Хедерах то
sMemo1.Lines.Add('Успешно авторизовались');

end else begin
sMemo1.Lines.Add('Не верные данные');
end;

end else begin // Иначе выводим сообщение
ShowMessage('Ошибка Запроса');
end;

end;

Bloody Company 2014​

 

спасибо)

 

Самый простенький запрос. Сделай в след уроке например авторизацию на яндексе.

 

А ты сделай) http://youhack.top/showthread.php?t=598166 можешь даже под яндекс сделать)

 

Подскажите пожалуйста что в подчеркнутые места вписывать надо.

 

POST DATA

 

html.LoadFromStream(http.Document); // Прогружаем Html код в переменную Html :D


это можно было не обязательно делать потому что ты искал значение для гуда в куках.


if Pos('Set-Cookie: Mpop=',Http.Headers.Text)<>0 then begin // Если найден такой текст в Хедерах то
sMemo1.Lines.Add('Успешно авторизовались');

end else
begin
if Pos(найдем значение при не верных данныех ,Http.Headers.Text)<>0 then
begin
sMemo1.Lines.Add('Не верные данные');
end;

вот так вернее будет.

 

Конечно, спасибо ТС-у за тему, но это бред, а не тема.

Где описание 3 библиотек, необходимых для Synapse? ssleay, liberay, msvcr?
Где описание того, какую библиотеку используем?
Где собственно, ссылка на библиотеку? Арарат.кз?

Советую это добавить.

 

Гайд от самого господа Бога, криво написано, даже на библиотеку ссылку не оставил, ничего полезного для новичков, ребята, идите лучше смотреть старые гайды странника, они и то полезней это чепухи будут.

P.S AFL true coder.

 

ссылки на длл не оставил ибо забыл . причем здесь твои P.S?

 

я хоть не занимаюсь этим уже,но ты красава,почему бы тебе не начать преподавать уроки платные,я уверен желающие найдутся (многим щас в лом читать книги,все лучше наглядно)
p.s. если ты конечно и больше наешь чем методы авторизации

 

Красава, хороший урок!

 

для написания брутов не обязательно читать книги. достаточно прочесть пару гайдов, набрать исходников и начать писать свой брут.
за 2 дня научишься большему, чем тебя научат 10 глав в любой книге.