Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Сети > Вход в админку ucoz


Автор: ozzii 31.8.2009, 07:10

доброе время суток!

одноименный сабжу вопрос: нужно автоматизировать индексацию сайта в поисковиках, для этого нужно автоматизировать вход в админ-панель ucoz, желательно с помощью indy а не webbrowser. как сделать это?

Автор: niteo 31.8.2009, 07:24
А в чем у тебя возникает трудность?
Как я понял ты хочешь чтобы ее тебе написали? smile

Автор: ozzii 31.8.2009, 07:42
Цитата(niteo @ 31.8.2009,  07:24)
А в чем у тебя возникает трудность?
Как я понял ты хочешь чтобы ее тебе написали? smile


нет, не хочу.

а трудность в том, что у меня на данный момент есть вот такой код:

Код

var
ovElements: OleVariant;
i: Integer;
begin
ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
for i := 0 to (ovElements.Length - 1) do
if (ovElements.item(i).type = 'submit') and (ovElements.item(i).Value = 'Вход') then
ovElements.item(i).Click;
end;



но он не работает. кроме того я пытался выполнить вход с помощью idhttp - также безуспешно. 
проблем с заполнением полей логин-пароль нет.

Автор: niteo 31.8.2009, 08:22
Пробуй что то вроде этого
Код

  sl := TStringList.Create;
  sl.Add('user=aaaaaaaa');
  sl.Add('password=bbbbbbbb');
  try
     s := IdHTTP1.Post('http://MEGASAIT.ucoz.ru/panel/sub/',tL);
  finally
     sl.Free;
  end;


Добавлено через 2 минуты и 48 секунд
Цитата(ozzii @  31.8.2009,  07:42 Найти цитируемый пост)
кроме того я пытался выполнить вход с помощью idhttp - также безуспешно. 
проблем с заполнением полей логин-пароль нет.


А с чем проблема?

Автор: ozzii 31.8.2009, 08:29
Цитата(niteo @ 31.8.2009,  08:22)
Пробуй что то вроде этого
Код

  sl := TStringList.Create;
  sl.Add('user=aaaaaaaa');
  sl.Add('password=bbbbbbbb');
  try
     s := IdHTTP1.Post('http://MEGASAIT.ucoz.ru/panel/sub/',tL);
  finally
     sl.Free;
  end;



это не работает. 
именно так я и делал до того, как на olevariant перешел

Автор: Magister Y0da 31.8.2009, 08:37
покажи код формы входа

Автор: niteo 31.8.2009, 08:45
Цитата(ozzii @  31.8.2009,  08:29 Найти цитируемый пост)

это не работает. 
именно так я и делал до того, как на olevariant перешел 


Что не работает???? Говорит ошибку? если да, то какую????

Автор: ozzii 31.8.2009, 13:01

код входа с помощью idhttp:

Код

...
uses IdMultipartFormData;
...

var data: TIdMultiPartFormDataStream;
login, pass: string;
begin
login:= 'admin';
pass:= 'mypass';
  data:=TIdMultiPartFormDataStream.Create;
  data.AddFormField('user', login);
  data.AddFormField('password', pass);
// тут идут 2 скрытых поля, их походу тоже надо заполнить
  data.AddFormField('a', 'dologin');
  data.AddFormField('ss', '1');
   try
    memo1.Text := idHTTP1.Post('http://mysite.3dn.ru/admin/', data)
    finally
  data.Free;
  idhttp1.Disconnect;
    end;


нет ошибок не было, просто в мемо возвращает главнyю страницу сайта, а в админку не заходит (

Автор: Magister Y0da 31.8.2009, 14:51
я имел виду HTML

Автор: ozzii 31.8.2009, 18:57

любой укозовский сайт с приставкой /admin/
к примеру
Код

http://lost-abc.ru/admin/


или нужен конкретный сайт на укоз для теста?

Автор: mr_smit 31.8.2009, 19:34
Вот что шлет браузер при авторизации на твоём сайте:

user posted image

Надо отправлять то же самое. 

Код

procedure TForm1.Button1Click(Sender: TObject);
var lData: TStringList;
    pass:  String;
begin
  pass:='123';  // твой пароль

  lData := TStringList.Create;
  lData.Add('user=');
  lData.Add('password='+pass);
  lData.Add('submsetup.x=0');
  lData.Add('submsetup.y=0');
  lData.Add('a=dologin');
  lData.Add('ss=1');
  lData.Add('yjd1332465386=457932');
  Memo1.Text:=IdHTTP1.Post('http://lost-abc.ru/panel/sub/', lData);
  lData.Free;
end;


Кидаешь на форму IdHTTP и IdCookieManager. У IdHTTP в свойстве CookieManager выбираешь IdCookieManager1. HandleRedirects устанавливаешь в true.

Насколько я понимаю yjd1332465386 и 457932 это твой идентификатор в системе ucoz.

В Memo1 будет текст страницы после авторизации.  smile 

Автор: Magister Y0da 31.8.2009, 20:01
mr_smit, а это что за окно перехвата?

Автор: mr_smit 31.8.2009, 21:43
Дополнение Tamper Data для Mozilla.

Автор: ozzii 31.8.2009, 22:00
Цитата(mr_smit @  31.8.2009,  19:34 Найти цитируемый пост)
Насколько я понимаю yjd1332465386 и 457932 это твой идентификатор в системе ucoz.


это не идентификатор, это походу скрипт java который генерирует случайное поле и значение. как получить эти значения если они каждый раз другие?

Автор: ozzii 1.9.2009, 09:40
народ, так что, нет надежды вход автоматизировать? (

Автор: Magister Y0da 2.9.2009, 09:56
с помощью регулярных выражений можно....

Автор: ozzii 2.9.2009, 18:08
Цитата(Magister Y0da @  2.9.2009,  09:56 Найти цитируемый пост)
с помощью регулярных выражений можно....

ну это я как понял ставить webbrowser и содержимое парсить? с нормальными инди компонентами не выйдет?

Автор: Magister Y0da 2.9.2009, 18:45
нет, ты не правильно понял... http://ru.wikipedia.org/wiki/%D0%A0%D0%B5%D0%B3%D1%83%D0%BB%D1%8F%D1%80%D0%BD%D1%8B%D0%B5_%D0%B2%D1%8B%D1%80%D0%B0%D0%B6%D0%B5%D0%BD%D0%B8%D1%8F
просто получаешь страницу и потом её парсишь, никаких webbrowser'ов не надо

Автор: ozzii 2.9.2009, 21:45
да я знаю, что такое регулярные выражения, что конкретно парсить-то если скрипт выдает рандомное значение. как его получить конкретно из html?

Автор: mr_smit 2.9.2009, 22:08
ozzii, ты прав. Каждый раз новое. Я что то на это не обратил внимание. У тебя в коде страницы есть 
Код

<input name="ewh3625148008" value="897993" type="hidden">


Просто из кода страницы их выдерни с помощью Pos() и PosEx(). Если не знаешь как, завтра напишу. Сейчас спать очень хочу, не охота.

Автор: Magister Y0da 2.9.2009, 22:32
в коде формы я не заметил никаких подобных значений...
только:
user=
password=
a=dologin
ss=1
и всё, других нету, попробуй отправлять только эти значения, возможно сработает
отправлять надо на http://lost-abc.ru/panel/sub/

Автор: niteo 3.9.2009, 06:59
А в чем проблема, загрузи страницу со скриптами, парсишь ее, потом отправляешь данные.

Автор: ozzii 3.9.2009, 09:41
Цитата(mr_smit @  2.9.2009,  22:08 Найти цитируемый пост)
, завтра напишу



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


да, вот реальный сайт на укозе для теста входа:
Код

http://nwsmw.3dn.ru/admin/
пасс: trsewssuiuu

Автор: mr_smit 3.9.2009, 10:44
Цитата(Magister Y0da @ 2.9.2009,  22:32)
в коде формы я не заметил никаких подобных значений...
только:
user=
password=
a=dologin
ss=1
и всё, других нету, попробуй отправлять только эти значения, возможно сработает
отправлять надо на http://lost-abc.ru/panel/sub/

Ищи лучше

Цитата(niteo @ 3.9.2009,  06:59)

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


Я об этом и говорю

Добавлено через 8 минут и 48 секунд
ozzii, ну что значит не нахожу, вы плохо просматриваете код. Всю страницу генерирует php код и вам она уже возвращается с этими случайными кодами. Её нужно просто пропарсить и вытащить их.

Я сейчас на работе, домой приду, напишу как.

P.S. Ребят ну вы чего????? Посмотрите исходный код страницы и забейте в поиск <input name=

Автор: Magister Y0da 3.9.2009, 15:36
Цитата(mr_smit @  3.9.2009,  10:44 Найти цитируемый пост)
P.S. Ребят ну вы чего????? Посмотрите исходный код страницы и забейте в поиск <input name= 

ну по такому поиску вообще пусто)))
а вот по <input находит 6
Код

<input type="text" value="lost-abc.ucoz.ru" style="width:150px;font-weight:bold;" readonly="readonly"/>
<input type="text" name="user" value="" maxlength="50" style="width:150px;font-weight:bold;">
<input type="password" name="password" style="width:150px;" maxlength="32" size="20">
<input type="image" src="http://s35.ucoz.net/img/ma/1px.gif" style="width:1px;" name="submsetup" id="submsetup" />
<input type="hidden" id="lforma" name="a" value="dologin">
<input type="hidden" name="ss" value="1">

нету рандомных значений)))) а 1 вообще input не нужный

Автор: mr_smit 3.9.2009, 18:56
Прошу прощения, не до конца разобрался. Всё не так просто. Момент.... почти сделал.

Автор: mr_smit 3.9.2009, 21:08
В HTML коде есть javascript функция которая возвращает данные для входа. Генерирует она их из строки сформированной сервером.
Код

var _y7M='';
function _dC(s){
 var i;
 var r="";
 var l=s.length-1;
 var k=s.substr(l,1);
 for (i=0;i<l;i++) {
   c=s.charCodeAt(i)-k;
   if(c<32){
     c=127-(32-c);
     }
   r+=String.fromCharCode(c);
   }
   return r;
   }
   _y7M=_dC('>kprwv"v{rg?$jkffgp$"pcog?$kcl5863;47447$"xcnwg?$::696:$@2');


Код

<script type="text/javascript">document.write(_y7M)</script>


Функция возвращает строку: <input type="hidden" name="iaj3641925225" value="884748">

То же самое на делфи:

Код

...

for i:=1 to length(s)-1 do
  begin
  a:=Ord(s[i])-StrToInt(s[length(s)]);
  if a<32 then
    begin
    a:=127-(32-a);
    end;
  final:=final+Chr(a);
  end;

...


Т.е.

1. Забираем строчку с сайта (>kprwv"v{rg?$jkffgp$"pcog?$kcl5863;47447$"xcnwg?$::696:$@2)
2. Перекодируем её. И получаем два нужных нам поля.
3. И стандартным образом отправляем сайту.

Код

function ExtractLogData (s:string):string;
var i,a:integer;
    name,value:string;
    start,endd:integer;
begin
final:='';
for i:=1 to length(s)-1 do
  begin
  a:=Ord(s[i])-StrToInt(s[length(s)]);
  if a<32 then
    begin
    a:=127-(32-a);
    end;
  final:=final+Chr(a);
  end;
  //================================================
  start:=Pos('name=',final);
  endd:=PosEx('" value',final,start);
  name:=copy(final,start+6,endd-start-length('name="'));

  start:=Pos('value=',final);
  endd:=PosEx('">',final,start);
  value:=copy(final,start+7,endd-start-length('value="'));

Result:=name+'='+value;
end;


Код

procedure TForm1.Button1Click(Sender: TObject);
var lData: TStringList;
    start,endd:integer;
    pass:  String;
    site:  String;
    _y7M:  String; // переменная из которой получаются данные
begin
  pass:='trsewssuiuu';  // твой пароль

  site:=IdHTTP1.Get('http://nwsmw.3dn.ru/admin/');
  //site:=Memo1.Text;
  start:=Pos('_y7M=_dC(',site);
  endd:=PosEx(');</script>',site,start);
  _y7M:=copy(site,start+10,endd-start-length('_y7M=_dC(')-2);
  showmessage(_y7M);

  lData := TStringList.Create;
  lData.Add('user=');
  lData.Add('password='+pass);
  lData.Add('submsetup.x=0');
  lData.Add('submsetup.y=0');
  lData.Add('a=dologin');
  lData.Add('ss=1');
  lData.Add(ExtractLogData(_y7M));
  Memo1.Text:=IdHTTP1.Post('http://nwsmw.3dn.ru/panel/sub/', lData);
  lData.Free;
end;

Автор: ozzii 3.9.2009, 21:30
вот спасибон, плюс с меня, пошел тестить

Автор: ozzii 4.9.2009, 15:46
mr_smit, 
не работает, при запросе get вот что показывает

user posted image

Автор: mr_smit 4.9.2009, 20:13
у меня при таком коде ошибку выдает:
Код

procedure TForm1.Button1Click(Sender: TObject);
begin
idhttp1.Get('http://google.ru');
end;


user posted image

Глюк какой то. Может у меня делфи глючит. Создай у себя новый проект (а не мой открывай).

Код я тебе разжевал, 100% должно работать. Глюк Indy какой то.

P.S. А если делаю
Код

memo1.text:=idhttp1.Get('http://www.yandex.ru');


Всё работает. Ничего не понимаю. Как так???????? smile  smile  smile 

Автор: Keeper89 4.9.2009, 20:50
Где-то это уже было - некоторые сервера не разрешают подобный доступ.

Автор: ozzii 4.9.2009, 21:18

вобщем народ, я смотрю что использования Тwebbrowser не избежать, а за код все равно спасибо, хоть он и не работает в данном случае ))

Автор: mr_smit 4.9.2009, 22:19
Я долго с разбором кода мучался (не зря когда то HTML и Javascript-ом увлекался).

Так просто мы не сдадимся.  smile 
Надо немного погуглить...

Вот:
http://forum.vingrad.ru/forum/topic-216468/anchor-entry1548080/0.html

Автор: ozzii 5.9.2009, 08:45
Цитата(mr_smit @  4.9.2009,  22:19 Найти цитируемый пост)
Так просто мы не сдадимся.  smile 
Надо немного погуглить...

Вот:
http://forum.vingrad.ru/forum/topic-216468...y1548080/0.html


это ошибку доступа 403 решает? в смысле другую, более старую версию инди поставить и все?

Автор: mr_smit 5.9.2009, 09:48
ozzii, какую нафиг старую, ты читал вообще что там написано??? Наоборот новую.

Автор: ozzii 5.9.2009, 10:33
Цитата(mr_smit @  5.9.2009,  09:48 Найти цитируемый пост)
какую нафиг старую, ты читал вообще что там написано??? Наоборот новую. 


у меня стоит CodeGear Rad Studio Delphi и с ним Indy 10, какую еще новую поставить? 
кроме того я в той теме ни слова про ошибку 403 так и не увидел.

Автор: mr_smit 5.9.2009, 17:22
Странно, с гуглом это работает:


Код

try
  memo1.text:=IdHTTP1.Get('http://google.ru');
  except
  end;


А с укозом нет:

Код

try
  memo1.text:=IdHTTP1.Get('http://nwsmw.3dn.ru/admin/');
  except
  end;


Добавлено через 1 минуту и 47 секунд
У меня Delphi 7.

Тебе надо поставить последнюю версию Indy. (чего то там 10.5.0)

Автор: mr_smit 6.9.2009, 19:23
ozzii, как успехи?

Автор: ozzii 6.9.2009, 21:27
с инди ничего не выходит, ошибка вышеописаная 403.
пришлось пересесть на тяжеловесный webbrowser и с помощью 
Код

OleVariant((Webbrowser1.Document as IHtmlDocument2).parentWindow)._y7M;

получать результат скрипта.
ну а дальнейшее - дело техники smile))

Автор: mr_smit 7.9.2009, 20:08
Ну получил ты значение _y7M и что дальше?

Автор: ozzii 7.9.2009, 21:53
deleted

Автор: ozzii 8.9.2009, 00:15

не работае фигня, замучился.

код
Код

s := OleVariant((Webbrowser1.Document as IHtmlDocument2).parentWindow)._y7M;

s1 := s;
delete(s, 1, 27);
delete(s, 14, 35);
delete(s1, 1, 49);
delete(s1, 7, 2);
//s - pervaya chast6
//s1 - vtoraya chast6
  data:=TIdMultiPartFormDataStream.Create;
  data.AddFormField('user', '');
  data.AddFormField('password', passw);
  data.AddFormField('submsetup.x','0');
  data.AddFormField('submsetup.y','0');
  data.AddFormField('a', 'dologin');
  data.AddFormField('ss', '1');
  data.AddFormField(s, s1);
try
 memo1.Text := idHTTP1.Post('http://mysite.3dn.ru/admin/', data);
finally
data.Free;
end;


возвращает главную сайта, но опять не входит. вроде правильно все делаю.....

Автор: mr_smit 8.9.2009, 06:13
Я уже приводил тебе код для входа при известных параметрах. См. выше. Будет ли твой способ работать (TIdMultiPartFormDataStream) не уверен.

Посмотри что твой код возвращает в s и s1. И проверь что моя функция возвращает. Сравни. Сохрани страницу в html файл и тренируйся на нем. Чтобы _y7M не менялась.

Ты не туда отправляешь. Не надо сюда отправлять http://mysite.3dn.ru/admin.

Выше я приводил ссылку.

Автор: ozzii 8.9.2009, 08:52
mr_smit, 

я все проверял по несколько раз.
1) отправляю туда, просто на форуме я другой адрес пишу.
2) s и s1 проверял, возвращает правильно (я сравнивал инструментом HttpWatch Pro 6.1 для Firefox)
3) TIdMultiPartFormDataStream для того и сделан чтобы таким образом использовать, на радикал отправляет, проверил.


ну вот, сейчас проверил твоим способом (lData) не заходит все равно. 
у меня такой вопрос, хотя бы раз у тебя получилось зайти в админку на практике?

Автор: ozzii 8.9.2009, 09:28
хотелось бы еще услышать мнение Magister Y0da и niteo, что-то они в обсуждении перестали участвовать...

Автор: niteo 8.9.2009, 12:12
Используй Wininet, и будет тебе счастье smile
Вот тебе в помощь
http://www.rsdn.ru/?article/?inet/wininet.xml

Автор: ozzii 8.9.2009, 18:09
а нельзя будущее счастье конкретизировать до кода применительно к укоз?  smile 

или хотя бы сказать почему http://forum.vingrad.ru/index.php?showtopic=271240&view=findpost&p=1960287 код не работает...


п.с. разве indy не на API сделан?

Автор: mr_smit 8.9.2009, 18:22
Цитата(ozzii @ 8.9.2009,  08:52)
у меня такой вопрос, хотя бы раз у тебя получилось зайти в админку на практике?

Нет, т.к. у меня Indy 9 стоит. Надо бы обновить, но всё руки не доходят. Я так понимаю что это решит проблему неправильного ответа сервера что которая приводит к возникновению ошибки.
Ладно, сейчас попробую

Добавлено через 3 минуты и 8 секунд
Цитата(ozzii @ 8.9.2009,  00:15)
не работае фигня, замучился.
код

...

возвращает главную сайта, но опять не входит. вроде правильно все делаю.....

Проблема в этом пресловутом запросе:
Код

idHTTP1.Post('http://mysite.3dn.ru/admin/', data);


В методе Post

Автор: mr_smit 8.9.2009, 18:38
Чего то я не понял что тут скачивать то надо???  http://www.indyproject.org

Автор: ozzii 9.9.2009, 10:10
Цитата(mr_smit @  8.9.2009,  18:22 Найти цитируемый пост)
Проблема в этом пресловутом запросе:

    
idHTTP1.Post('http://mysite.3dn.ru/admin/', data);


В методе Post 


не понял я, а что туда GET посылать?????  smile 

Автор: mr_smit 9.9.2009, 19:11
Нет, в смысле что сайт на этот запрос неправильно отвечает и Indy вызывает своё исключение.

Автор: ozzii 11.9.2009, 07:31
mr_smit, надежда есть?

Автор: mr_smit 11.9.2009, 17:01
ozzii, конечно есть!!! Я всё что нужно сделал. Функцию тебе написал. Я не знаю почему idHTTP1.Get не проходит.

Ну поброди по инету, я не думаю что ты (я) первый столкнулся с такой проблемой. Есть др. форумы по программированию. Возможно где то уже решили проблему. Затык всего лишь в одной строчке. Поставь Delphi 7 и обнови Indy - должно заработать. Все об этом пишут. Я просто не хочу на 10-ку переходить. Мне что ли за тебя всё это делать. Твоя программа.

Автор: CBuilder 20.10.2009, 04:04
Знаю Рабочий способ авторизации в админке Ucoz через Indy10.
Пример  проги  под C++ Builder 6 могу выслать на мыло. (На Дельфи думаю переделать не состоит труда)
Кому нужно пишите.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)