Подскажите Статьи (Delphi Спам)

[le-mon]

Взялся за изучение Delphi, купил пару книжек, по ним изучаю основы, пока пишу по ним всякие калькуляторы :D

Посоветуйте какие нибудь статьи или направление в каком мне капать с изучением. Хочу научиться писать спам софт. Хотя бы проходить авторизацию на сайте и рассылать сообщения пользователям.

[RedFern.89]

хм.. ну я например самоучка. самоучение - лучшее учение :D

изучай протокол HTTP и работу с этим протаколом в Delphi, если ты хочешь авторизироваться на сайтах и тд

[le-mon]

RedFern.89, как раз уди по твоим стопам :) Поделись статьями пожалуйста по которым изучал протокол

[RedFern.89]

все что тебе понадобится это

1. Сниффер. Бери HTTP Analyzer (http://dl.rutracker.org/forum/dl.php?t=2167331)
2. Indy версии 7-9 (компоненты Delphi)
3. запросы POST/GET/HEAD/OPTIONS/PUT/DELETE
4. Владение парсингом. (тоесть знание функций Copy, Pos, Length, Delete, Move)
5. Прямые руки
6. Терпение))

[Fliplab]

Бери исходники использующие винсок и смотри.почитай книгу клиент-серверные приложения на дельфи.если цель действия в нете,то читай статьи по .net

[Fliplab]

Также читай про потоки Threads.Возьми исходник Darkmoon troj.Написан вполне толково и понятно.там есть и рассылка и потоки и винсок.

[RedFern.89]

кстати да) Fliblab верно сказал) качай исходники))

[Fliplab]

Также посмотри на асечке сорсы оскар флудера.использует многопоточность.почитай про использования либы винсок2.длл

[Fliplab]

Кароче,гугли сын мой,ибо в интернете нет невозможного

[RedFern.89]

а также муль гугл)

[Fliplab]

Кстате деньги на книги зря потратил:)в нете скачать можно:)вспомил сайтег для тебя Delphiworld.narod.ru. Помоему так.или королевство дельфи.

[Chrome~]

Люди, хватит флудить...

Взялся за изучение Delphi, - начинай создавать самые простые программы, и начинай с основ. Для написания качественного спам софта нужно очень много опыта. Не советую браться за это дело с самого начала.

Кстате деньги на книги зря потратил:)в нете скачать можно:)вспомил сайтег для тебя Delphiworld.narod.ru. Помоему так.или королевство дельфи.
Многим удобнее читать с книжки, чем с монитора.

[RDL_Rider]

Кстате деньги на книги зря потратил:)в нете скачать можно:)вспомил сайтег для тебя Delphiworld.narod.ru. Помоему так.или королевство дельфи.
Начинать что-то серьёзное учить по эл. книгам - себя не уважать. Лучше толкового чувака, или толстой книжни - никто и ничто не научит !

[RedFern.89]

вообще делайте как я - ищите в аське чуваков с ключевыми словами Delphi :D

[Fliplab]

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

[RDL_Rider]

в книгах приват не пишут.
млять, приват на то и приват, что его тебе нигде не напишут. Кроме, как я уже и говорил,
толкового чувака
т.е. прошаренного знакомого

[RedFern.89]

в общем людей много - мнений много. Подведи итоги - что будет удобнее для тебя: читать книги, искать сорцы, искать справки, lдоставать чуваков разных и тд))) что удобнее - то и дклай)

[Arabika]

Мм.. тема взорвала мозг, особенно этот сайтик http://delphiworld.narod.ru/_all_articles_.html, просто ппц.) Вот решали начать программировать потихоньку, да бы не особо умён в данной сфере, вопрос к знатокам. Да Delphi можно приложении для контакта написать?

[RedFern.89]

Вот есть мои парочка))) смотри


https://forum.antichat.ru/thread175598.html
https://forum.antichat.ru/thread180075.html

[le-mon]

RedFern.89, к примеру я авторизовался на сайте, для примера возьмём контакт. А куда дальше копать, что бы к примеру по диапазону сообщения разсылались ? как это примерно должно выглядеть ?

[Chrome~]

Люди, вы набиваете себе посты, разводя флуд. Перечитайте тему, им поймете о чем я.
RedFern.89, к примеру я авторизовался на сайте, для примера возьмём контакт. А куда дальше копать, что бы к примеру по диапазону сообщения разсылались ? как это примерно должно выглядеть ?
Дальше нужно сниффать пакеты, которые браузер отсылает серверу при отправке сообщения.

[RedFern.89]

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


function DecChas(chas: string): string;
var
Decchas : string;
str : string;
I : Integer;
Len : integer;
begin

str := Copy(chas, 6, 12);
Len := Length(str);

For I := 0 To Length(str) -1 do
begin
Decchas := Decchas + str[len];
Inc(len, -1);
end;

str := Copy(chas, 21, Length(chas) -5);
str := str + Copy(chas, 5, 1);

Len := Length(str);

For I := 0 To Length(str) -1 do
begin
Decchas := Decchas + str[len];
Inc(len, -1);
end;

Result := Decchas;
end;


....


function SendMessage(const ID, MsgText, MsgTitle: string): boolean;
var
ResponseText, Hash : string;
Post : TStringList;
begin

Hash := HTTP.Get('http://vkontakte.ru/mail.php?act=a_write_box&to=' + id);
Hash := Copy(Hash, Pos('decodehash', Hash) +12, Length(Hash));
Delete(Hash, Pos(#39, Hash), Length(Hash));
Post := TStringList.Create;
Post.Add('act=sent');
Post.Add('ajax=1');
Post.Add('chas=' + DecChas(hash));
Post.Add('to_id=' + id);
Post.Add('title=' + AnsiToUTF8(MsgTitle));
Post.Add('message=' + AnsiToUTF8(MsgText));
Post.Add('from_box=1');

HTTP.Request.Referer := 'http://vkontakte.ru/mail.php?act=a_write_box&to=' + id;
ResponseText := HTTP.Post('http://vkontakte.ru/mail.php', Post);

If Pos('отправлено', ResponseText) <> 0 Then Result := True else Result := False;

Post.Free;
end;


//# Отрывки кода из моего компонента

[GhostOnline]

RedFern.89, к примеру я авторизовался на сайте, для примера возьмём контакт. А куда дальше копать, что бы к примеру по диапазону сообщения разсылались ? как это примерно должно выглядеть ?

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

[RDL_Rider]

Мм.. тема взорвала мозг, особенно этот сайтик http://delphiworld.narod.ru/_all_articles_.html, просто ппц.) Вот решали начать программировать потихоньку, да бы не особо умён в данной сфере, вопрос к знатокам. Да Delphi можно приложении для контакта написать?
Да хоть для космического спутника :D главное делать с умом.

[le-mon]

Пытаюсь отправить сообщения на http://otveti.mail.ru авторизацую прохожу успешно, но вот с отправкой бредятина какая то))

как она должна выглядеть ? я пытался так:

procedure TForm5.btn2Click(Sender: TObject);
var params,responseres:tstringlist;
begin
params:=TStringList.Create;
responseres:=TStringList.Create;
params.Add('action=authaddans');
params.Add('ch=046d65b4c60aa1284e7e83ef3fc93');
params.Add('qid=36881813');
params.Add('f80325b38=1');
params.Add('Body=Это Я =)');
params.Add('source=');
responseres.Text:=http1.Post('http://otvet.mail.ru/question/36881696/',params);

end;

[RedFern.89]

да там все легко)) ищи сорцы разные, скачай сниффер и тд))

[le-mon]

RedFern.89, по сниферу делал

[RedFern.89]

я по сниферу смотрел (HTTP Analyzer v5). Там у куков точка в начале домена (.mail.ru), что непозволительно. Как я уже вижу ты юзаешь инди, значит тебе надо исправить процедуру добавления куков. В idCookieManager.pas исправь процедуру DoAdd. Вот код.

Исправление процедуры в Indy 7-9

procedure TIdCookieManager.DoAdd(ACookie: TIdCookieRFC2109; ACookieText, AHost: String);
Var
LDomain: String;
begin
ACookie.CookieText := ACookieText;

if Length(ACookie.Domain) = 0 then LDomain := AHost
else LDomain := ACookie.Domain;

ACookie.Domain := LDomain;

// если есть точка в начале домена, убираем ее
If ACookie.Domain[1] = '.' Then
ACookie.Domain := Copy(ACookie.Domain, 2, Length(ACookie.Domain));

if ACookie.IsValidCookie(AHost) then
begin
if DoOnNewCookie(ACookie) then
begin
FCookieCollection.AddCookie(ACookie);
end
else begin
ACookie.Collection := nil;
ACookie.Free;
end;
end
else begin
ACookie.Free;
end;
end;


Либо если влом это все делать и/или ты не знаешь, как, скачай Overbyte Ics.

вот ссылка:
http://www.overbyte.be

P.S. параметр ch по-любому надо декодировать. За 500р могу те готовый код на все это написать

[Spy2ex]

там не все так легко.
там еще нужно декодировать хеш на странице с вопросом.
Удачи!

[RedFern.89]

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

[le-mon]

думаю мне надо начать с более простого чем с маил ру)))

[M_script_]

Напиши для начала какой-нибудь чекер аккаунтов - авторизуешься и парсишь страницы на количество друзей и прочую инфу.

[GhostOnline]

Там у куков точка в начале домена (.mail.ru), что непозволительно. Как я уже вижу ты юзаешь инди, значит тебе надо исправить процедуру добавления куков. В idCookieManager.pas исправь процедуру DoAdd. Вот код.


Вообще-то легко решается использованием современных инди (как и много других багов)

[RedFern.89]

хм. в 10й версии такая же хрень.

[GhostOnline]

10-ая версия вообще-то тоже бывает разной.
У меня траблы такой не было, хотя я про нее и читал в инете.
Это я к тому что надо обновляться.

[RedFern.89]

мне в лом.я юзаю щас overbyte ics. Хотя признаюсь честно - там тоже багов полно