Реггер на nextmail.ru

[Квэнди]

Значит ajax
Разберите все xmlhttprequest-ы, которые посылает сраница и подделывайте их

[Luke]

Дело в том что подделываю. Не могли бы Вы посмотреть, что и где я нетак делаю?

[Квэнди]

Вопрос первый:
зачем TIdMultiPartFormDataStream ?

<form name="regform" action="/reg/obligatory.phtml?r1=91&i=.nextmail_ oru" method="POST" onsubmit="return validateInfo(this);">

тут такого нет

[Luke]

Переписал код, проблема не исчезла...

procedure TfMain.btnStartClick(Sender: TObject);
var
  CCode, CID, CKey: String;
  htm: string;
  i, flag: DWORD;
  req: TStringList;
  CM : TIdCookieManager;
  mem: TMemoryStream;
begin
  //Cookie manager
  CM := TidCookieManager.Create(HTTP);
  http.AllowCookies := true;
  http.CookieManager := CM;

  //First request
  req := TStringList.Create;
  http.Get('http://www.nextmail.ru');
  req.Add('name=');
  req.Add('domain=nextmail.ru');
  req.Add('x=60');
  req.Add('y=14');
  http.Request.ContentType := 'text/html';
  http.Request.Accept := 'text/html';
  mem := TMemoryStream.Create;
  log.Lines.Text := http.Post('http://nextmail.ru/reg/obligatory.phtml?r1=91&i=.', req);
  //Get capcha url
  CCode := copy(log.Lines.Text, pos('/au/code.phtml?u=', log.Lines.Text) + 17, 13);
  http.Request.ContentType := '*/*';
  http.Request.Accept := 'image/jpeg';
  //Get capcha
  http.Get('http://nextmail.ru/au/code.phtml?u=' + CCode, mem);
  mem.SaveToFile('captcha.jpeg');
  mem.Destroy;
  //Getting capcha key
  CKey := GetKey();

  http.Request.Accept := 'text/html';
  req.Add('todo=obliginfo');
  req.Add('name=klo12edsjk');
  req.Add('domain=nextmail.ru');
  req.Add('password=qwerty132');
  req.Add('pwdconf=qwerty132');
  req.Add('fullname=dfjksgfk');
  req.Add('sex=Male');
  req.Add('bday=2009-08-05');
  req.Add('regcode=' + CKey);
  req.Add('agreed=yes');
  req.Add('question=');
  req.Add('manualquest=');
  req.Add('answer=');
  req.Add('email=');
  req.Add('timezone=3');
  req.Add('antibot=6238');
  Log.lines.text := http.Post('http://nextmail.ru/reg/obligatory.phtml?r1=91&i=.nextmail_oru', req);
  log.Lines.Add(http.Request.URL);
  log.Lines.Add(http.Response.ResponseText);
  log.Lines.SaveToFile('1.html');
end;

[euroflock]

Мне бы хотелось развить эту тему, но ближе к:

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

Пишу реггер для nextmail.ru с автораспознаванием капчи.
...
//Тут распознается ключ капчи, без ошибок 100%, распознавание происходит из сохраненного файла
CKey := GetKey();

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

[Пепел Феникса]

euroflock, таких тем уже пруд-пруди

[Luke]

Парни, выручайте, скоро сниффер будет ночью сниться=)

[AquaKlaster]

Да там через idhttp врядли, пробуй через веб браузер, мы с Фениксом думали над этим вопросом но ничего так и не вышло!

[Квэнди]

Сделать можно все (при большом желании). Но: защититься от подобных реггеров проблемы никакой не составит. Собственно там один из вариантов присутствует: для регистрации необходимо выполнение некого js кода (не ajax-запросов, а именно ряда функций). Indy не поддерживает ( и, надеюсь, не будет) выполнение js кода. Подобное реализуемо в twebbrowser , так как там есть возможность принудительно выполнить абстрактный js код. Но даже если вам это удастся, ваша программа будет работать лишь n-кол-во дней. Малейшее изменение в дизайне, скриптах и ваша программа не работает. Именно по этой причине все реггеры, и подобные им системы изначально не состоятельны без прямой поддержки со стороны разработчиков и администраторов ресурса, на котором вы хотите регистрироваться. А при наличии такой поддержки все эти фокусы и выверты с idhttp и twebbrowser не нужны.