Форум АНТИЧАТ - Чекер рамблер

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

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

- - Чекер рамблер (https://forum.antichat.xyz/showthread.php?t=198077)

Чекер рамблер

Хочу создать чекер пока без наворотов.

Может кто-нибудь рассказать про словесный алгоритм чекера, или есть у кого-то сорцы.

Смотри,пишим функцию авторизации,далее циклом далее гуд записываем в мемо

а по коду есть что-либо?

Цитата:

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

Хочу создать чекер пока без наворотов.

Цитата:

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

а по коду есть что-либо?

как бы разные это вещи. В чем проблема с нуля написать? Там сложного нет ничего.

Скачай analyzer
_http://www.ieinspector.com/httpanalyzer/download.html

Посмотри что и куда отправляется, когда авторизуешься.

Ты ЯП скажи,на delphi есть

авторизация на дефли в принципе так может выглядеть:

Код:

var StrPage, ssylka:string;

    Data:TstringList;

begin

 idhttp1.HandleRedirects:=true;

 StrPage:=idhttp1.Get('http://odnoklassniki.ru/');

 ssylka:=Pars('<form action="',StrPage,'"');

 Data:=TstringList.Create;

 Data.Add('st.posted=set');

 Data.Add('st.email='+Edit1.Text);

 Data.Add('st.password='+Edit2.Text);

 Data.Add('button_go=Войти');

 StrPage:=idhttp1.Post(ssylka, Data);

 if Pos('Logoff', StrPage)<>0 then

  Label3.Caption:='Ага'

 else Label3.Caption:='Неа';

 Data.Free;



function TForm1.Pars(T_, ForS, _T: string): string;

var

  a, b: integer;

begin

  Result := '';

  if (T_ = '') or (ForS = '') or (_T = '') then

    Exit;

  a := Pos(T_, ForS);

  if a = 0 then

    Exit

  else

    a := a + Length(T_);

  ForS := Copy(ForS, a, Length(ForS) - a + 1);

  b := Pos(_T, ForS);

  if b > 0 then

    Result := Copy(ForS, 1, b - 1);

end;

end;

Цитата:

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

авторизация на дефли в принципе так может выглядеть:

Код:

var StrPage, ssylka:string;

    Data:TstringList;

begin

 idhttp1.HandleRedirects:=true;

 StrPage:=idhttp1.Get('http://odnoklassniki.ru/');

 ssylka:=Pars('<form action="',StrPage,'"');

 Data:=TstringList.Create;

 Data.Add('st.posted=set');

 Data.Add('st.email='+Edit1.Text);

 Data.Add('st.password='+Edit2.Text);

 Data.Add('button_go=Войти');

 StrPage:=idhttp1.Post(ssylka, Data);

 if Pos('Logoff', StrPage)<>0 then

  Label3.Caption:='Ага'

 else Label3.Caption:='Неа';

 Data.Free;



function TForm1.Pars(T_, ForS, _T: string): string;

var

  a, b: integer;

begin

  Result := '';

  if (T_ = '') or (ForS = '') or (_T = '') then

    Exit;

  a := Pos(T_, ForS);

  if a = 0 then

    Exit

  else

    a := a + Length(T_);

  ForS := Copy(ForS, a, Length(ForS) - a + 1);

  b := Pos(_T, ForS);

  if b > 0 then

    Result := Copy(ForS, 1, b - 1);

end;

end;

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

ZdezBilYa, твой код популярен, его в каждой второй теме про авторизацию пишут ;)

Простой алгоритм чеккера можно найти в анналах интеренета...
Вот краткая суть:
1)заходим на страницу главную
2) Вводим правельные данные и мониторим куда нас перенаправляет или какой ответ от сервера
3) Вводим неправельные данные и смотрим куда перенаправляет или какой ответ от сервера
4) Сравниваем и исчим различия - а точнее характерные данные для правельного запроса и для неправельного(в плане прошел чек удачно или нет)
5) Пишем прогу/скрипт

ЗЫ: какой язык программирования ?

Дельфи

Если авторизация прошла успешно то нас отправляют сюда http://mail.rambler.ru/mail/startpage

Если нет то сюда http://id.rambler.ru/script/auth.cgi?mode=login