Форум АНТИЧАТ - Подскажите Статьи (Delphi Спам)

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Подскажите Статьи (Delphi Спам) (https://forum.antichat.xyz/showthread.php?t=181460)

le-mon

24.02.2010 00:58

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

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

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

RedFern.89

24.02.2010 01:04

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

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

le-mon

24.02.2010 01:07

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

RedFern.89

24.02.2010 01:13

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

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

24.02.2010 01:16

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

Fliplab

24.02.2010 01:18

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

RedFern.89

24.02.2010 01:21

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

Fliplab

24.02.2010 01:21

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

Fliplab

24.02.2010 01:22

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

RedFern.89

24.02.2010 01:24

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

Fliplab

24.02.2010 01:25

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

Chrome~

24.02.2010 02:22

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

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

Цитата:

Сообщение от Fliplab

Многим удобнее читать с книжки, чем с монитора.

RDL_Rider

24.02.2010 02:27

Цитата:

Сообщение от Fliplab

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

RedFern.89

24.02.2010 02:31

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

Fliplab

24.02.2010 02:53

Цитата:

Сообщение от RDL_Rider

в книгах приват не пишут.

RDL_Rider

24.02.2010 14:36

Цитата:

Сообщение от Fliplab

в книгах приват не пишут.

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

Цитата:

Сообщение от RDL_Rider

толкового чувака

т.е. прошаренного знакомого

RedFern.89

24.02.2010 16:40

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

Arabika

24.02.2010 17:43

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

RedFern.89

24.02.2010 18:12

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

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

le-mon

24.02.2010 19:23

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

Chrome~

24.02.2010 20:46

Люди, вы набиваете себе посты, разводя флуд. Перечитайте тему, им поймете о чем я.

Цитата:

Сообщение от le-mon

Дальше нужно сниффать пакеты, которые браузер отсылает серверу при отправке сообщения.

RedFern.89

25.02.2010 00:20

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

Код:

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

27.02.2010 02:08

Цитата:

Сообщение от le-mon

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

RDL_Rider

27.02.2010 02:29

Цитата:

Сообщение от Arabika

Да хоть для космического спутника :D главное делать с умом.

le-mon

28.02.2010 18:14

Пытаюсь отправить сообщения на 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

28.02.2010 23:10

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

le-mon

28.02.2010 23:22

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

RedFern.89

28.02.2010 23:26

я по сниферу смотрел (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

28.02.2010 23:44

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

RedFern.89

28.02.2010 23:47

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

le-mon

01.03.2010 10:46

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

M_script_

01.03.2010 11:45

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

GhostOnline

01.03.2010 20:43

Цитата:

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

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

RedFern.89

01.03.2010 21:10

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

GhostOnline

01.03.2010 21:30

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

RedFern.89

01.03.2010 22:39

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

Время: 12:24