Модераторы: Snowy, Poseidon, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вход в админку ucoz, автоматизация входа 
:(
    Опции темы
ozzii
Дата 31.8.2009, 07:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

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

одноименный сабжу вопрос: нужно автоматизировать индексацию сайта в поисковиках, для этого нужно автоматизировать вход в админ-панель ucoz, желательно с помощью indy а не webbrowser. как сделать это?
PM MAIL   Вверх
niteo
  Дата 31.8.2009, 07:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 129
Регистрация: 23.11.2006
Где: Брянск

Репутация: 1
Всего: 1
А в чем у тебя возникает трудность?
Как я понял ты хочешь чтобы ее тебе написали? smile
--------------------
Мне чужого лишнего не нада.Ешь ананасы, рябчиков жуй,день твой последний приходит, буржуй...
PM MAIL   Вверх
ozzii
Дата 31.8.2009, 07:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет
Цитата(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 - также безуспешно. 
проблем с заполнением полей логин-пароль нет.

Это сообщение отредактировал(а) ozzii - 31.8.2009, 07:56
PM MAIL   Вверх
niteo
Дата 31.8.2009, 08:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 129
Регистрация: 23.11.2006
Где: Брянск

Репутация: 1
Всего: 1
Пробуй что то вроде этого
Код

  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 - также безуспешно. 
проблем с заполнением полей логин-пароль нет.


А с чем проблема?
--------------------
Мне чужого лишнего не нада.Ешь ананасы, рябчиков жуй,день твой последний приходит, буржуй...
PM MAIL   Вверх
ozzii
Дата 31.8.2009, 08:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет
Цитата(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 перешел
PM MAIL   Вверх
Magister Y0da
Дата 31.8.2009, 08:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зелёненький
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 30.11.2004

Репутация: нет
Всего: 2
покажи код формы входа
--------------------
PM MAIL ICQ   Вверх
niteo
Дата 31.8.2009, 08:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 129
Регистрация: 23.11.2006
Где: Брянск

Репутация: 1
Всего: 1
Цитата(ozzii @  31.8.2009,  08:29 Найти цитируемый пост)

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


Что не работает???? Говорит ошибку? если да, то какую????
--------------------
Мне чужого лишнего не нада.Ешь ананасы, рябчиков жуй,день твой последний приходит, буржуй...
PM MAIL   Вверх
ozzii
Дата 31.8.2009, 13:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

код входа с помощью 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ю страницу сайта, а в админку не заходит (
PM MAIL   Вверх
Magister Y0da
Дата 31.8.2009, 14:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зелёненький
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 30.11.2004

Репутация: нет
Всего: 2
я имел виду HTML
--------------------
PM MAIL ICQ   Вверх
ozzii
Дата 31.8.2009, 18:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

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

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


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

Это сообщение отредактировал(а) ozzii - 31.8.2009, 19:02
PM MAIL   Вверх
mr_smit
Дата 31.8.2009, 19:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4
Вот что шлет браузер при авторизации на твоём сайте:

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 

Присоединённый файл ( Кол-во скачиваний: 11 )
Присоединённый файл  UCOZ.rar 3,03 Kb
PM MAIL   Вверх
Magister Y0da
Дата 31.8.2009, 20:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зелёненький
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 30.11.2004

Репутация: нет
Всего: 2
mr_smit, а это что за окно перехвата?
--------------------
PM MAIL ICQ   Вверх
mr_smit
Дата 31.8.2009, 21:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4
Дополнение Tamper Data для Mozilla.
PM MAIL   Вверх
ozzii
Дата 31.8.2009, 22:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

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


это не идентификатор, это походу скрипт java который генерирует случайное поле и значение. как получить эти значения если они каждый раз другие?
PM MAIL   Вверх
ozzii
Дата 1.9.2009, 09:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет
народ, так что, нет надежды вход автоматизировать? (
PM MAIL   Вверх
Magister Y0da
Дата 2.9.2009, 09:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зелёненький
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 30.11.2004

Репутация: нет
Всего: 2
с помощью регулярных выражений можно....
--------------------
PM MAIL ICQ   Вверх
ozzii
Дата 2.9.2009, 18:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

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

ну это я как понял ставить webbrowser и содержимое парсить? с нормальными инди компонентами не выйдет?
PM MAIL   Вверх
Magister Y0da
Дата 2.9.2009, 18:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зелёненький
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 30.11.2004

Репутация: нет
Всего: 2
нет, ты не правильно понял... Регулярные Выражения
просто получаешь страницу и потом её парсишь, никаких webbrowser'ов не надо
--------------------
PM MAIL ICQ   Вверх
ozzii
Дата 2.9.2009, 21:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет
да я знаю, что такое регулярные выражения, что конкретно парсить-то если скрипт выдает рандомное значение. как его получить конкретно из html?

Это сообщение отредактировал(а) ozzii - 2.9.2009, 21:46
PM MAIL   Вверх
mr_smit
Дата 2.9.2009, 22:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4
ozzii, ты прав. Каждый раз новое. Я что то на это не обратил внимание. У тебя в коде страницы есть 
Код

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


Просто из кода страницы их выдерни с помощью Pos() и PosEx(). Если не знаешь как, завтра напишу. Сейчас спать очень хочу, не охота.
PM MAIL   Вверх
Magister Y0da
Дата 2.9.2009, 22:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зелёненький
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 30.11.2004

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

Это сообщение отредактировал(а) Magister Y0da - 2.9.2009, 22:33
--------------------
PM MAIL ICQ   Вверх
niteo
Дата 3.9.2009, 06:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 129
Регистрация: 23.11.2006
Где: Брянск

Репутация: 1
Всего: 1
А в чем проблема, загрузи страницу со скриптами, парсишь ее, потом отправляешь данные.
--------------------
Мне чужого лишнего не нада.Ешь ананасы, рябчиков жуй,день твой последний приходит, буржуй...
PM MAIL   Вверх
ozzii
Дата 3.9.2009, 09:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет
Цитата(mr_smit @  2.9.2009,  22:08 Найти цитируемый пост)
, завтра напишу



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


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

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


Это сообщение отредактировал(а) ozzii - 3.9.2009, 09:53
PM MAIL   Вверх
mr_smit
Дата 3.9.2009, 10:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4
Цитата(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=
PM MAIL   Вверх
Magister Y0da
Дата 3.9.2009, 15:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зелёненький
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 30.11.2004

Репутация: нет
Всего: 2
Цитата(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 не нужный
--------------------
PM MAIL ICQ   Вверх
mr_smit
Дата 3.9.2009, 18:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4
Прошу прощения, не до конца разобрался. Всё не так просто. Момент.... почти сделал.

Это сообщение отредактировал(а) mr_smit - 3.9.2009, 19:56
PM MAIL   Вверх
mr_smit
Дата 3.9.2009, 21:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4
В 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;


Это сообщение отредактировал(а) mr_smit - 3.9.2009, 21:17

Присоединённый файл ( Кол-во скачиваний: 8 )
Присоединённый файл  UCOZ.rar 3,29 Kb
PM MAIL   Вверх
ozzii
Дата 3.9.2009, 21:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет
вот спасибон, плюс с меня, пошел тестить
PM MAIL   Вверх
ozzii
Дата 4.9.2009, 15:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет
mr_smit, 
не работает, при запросе get вот что показывает

user posted image

Это сообщение отредактировал(а) ozzii - 4.9.2009, 15:47
PM MAIL   Вверх
mr_smit
Дата 4.9.2009, 20:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4
у меня при таком коде ошибку выдает:
Код

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 

Это сообщение отредактировал(а) mr_smit - 4.9.2009, 20:21
PM MAIL   Вверх
Keeper89
Дата 4.9.2009, 20:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 6
Всего: 58
Где-то это уже было - некоторые сервера не разрешают подобный доступ.


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
ozzii
Дата 4.9.2009, 21:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

вобщем народ, я смотрю что использования Тwebbrowser не избежать, а за код все равно спасибо, хоть он и не работает в данном случае ))
PM MAIL   Вверх
mr_smit
Дата 4.9.2009, 22:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4
Я долго с разбором кода мучался (не зря когда то HTML и Javascript-ом увлекался).

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

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

Это сообщение отредактировал(а) mr_smit - 4.9.2009, 22:36
PM MAIL   Вверх
ozzii
Дата 5.9.2009, 08:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

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

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


это ошибку доступа 403 решает? в смысле другую, более старую версию инди поставить и все?
PM MAIL   Вверх
mr_smit
Дата 5.9.2009, 09:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4
ozzii, какую нафиг старую, ты читал вообще что там написано??? Наоборот новую.
PM MAIL   Вверх
ozzii
Дата 5.9.2009, 10:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

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


у меня стоит CodeGear Rad Studio Delphi и с ним Indy 10, какую еще новую поставить? 
кроме того я в той теме ни слова про ошибку 403 так и не увидел.
PM MAIL   Вверх
mr_smit
Дата 5.9.2009, 17:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4
Странно, с гуглом это работает:


Код

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)
PM MAIL   Вверх
mr_smit
Дата 6.9.2009, 19:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4
ozzii, как успехи?
PM MAIL   Вверх
ozzii
Дата 6.9.2009, 21:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет
с инди ничего не выходит, ошибка вышеописаная 403.
пришлось пересесть на тяжеловесный webbrowser и с помощью 
Код

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

получать результат скрипта.
ну а дальнейшее - дело техники smile))
PM MAIL   Вверх
mr_smit
Дата 7.9.2009, 20:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4
Ну получил ты значение _y7M и что дальше?
PM MAIL   Вверх
ozzii
Дата 7.9.2009, 21:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет
deleted

Это сообщение отредактировал(а) ozzii - 8.9.2009, 00:23
PM MAIL   Вверх
ozzii
Дата 8.9.2009, 00:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

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

код
Код

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;


возвращает главную сайта, но опять не входит. вроде правильно все делаю.....
PM MAIL   Вверх
mr_smit
Дата 8.9.2009, 06:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4
Я уже приводил тебе код для входа при известных параметрах. См. выше. Будет ли твой способ работать (TIdMultiPartFormDataStream) не уверен.

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

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

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

Это сообщение отредактировал(а) mr_smit - 8.9.2009, 06:37
PM MAIL   Вверх
ozzii
Дата 8.9.2009, 08:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет
mr_smit, 

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


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

Это сообщение отредактировал(а) ozzii - 8.9.2009, 08:59
PM MAIL   Вверх
ozzii
Дата 8.9.2009, 09:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет
хотелось бы еще услышать мнение Magister Y0da и niteo, что-то они в обсуждении перестали участвовать...
PM MAIL   Вверх
niteo
Дата 8.9.2009, 12:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 129
Регистрация: 23.11.2006
Где: Брянск

Репутация: 1
Всего: 1
Используй Wininet, и будет тебе счастье smile
Вот тебе в помощь
http://www.rsdn.ru/?article/?inet/wininet.xml

Это сообщение отредактировал(а) niteo - 8.9.2009, 12:50
--------------------
Мне чужого лишнего не нада.Ешь ананасы, рябчиков жуй,день твой последний приходит, буржуй...
PM MAIL   Вверх
ozzii
Дата 8.9.2009, 18:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет
а нельзя будущее счастье конкретизировать до кода применительно к укоз?  smile 

или хотя бы сказать почему здесь код не работает...


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

Это сообщение отредактировал(а) ozzii - 8.9.2009, 18:18
PM MAIL   Вверх
mr_smit
Дата 8.9.2009, 18:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4
Цитата(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
PM MAIL   Вверх
mr_smit
  Дата 8.9.2009, 18:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4
Чего то я не понял что тут скачивать то надо???  http://www.indyproject.org
PM MAIL   Вверх
ozzii
Дата 9.9.2009, 10:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет
Цитата(mr_smit @  8.9.2009,  18:22 Найти цитируемый пост)
Проблема в этом пресловутом запросе:

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


В методе Post 


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

Это сообщение отредактировал(а) ozzii - 9.9.2009, 10:34
PM MAIL   Вверх
mr_smit
Дата 9.9.2009, 19:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4
Нет, в смысле что сайт на этот запрос неправильно отвечает и Indy вызывает своё исключение.
PM MAIL   Вверх
ozzii
Дата 11.9.2009, 07:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.7.2009

Репутация: нет
Всего: нет
mr_smit, надежда есть?
PM MAIL   Вверх
mr_smit
Дата 11.9.2009, 17:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4
ozzii, конечно есть!!! Я всё что нужно сделал. Функцию тебе написал. Я не знаю почему idHTTP1.Get не проходит.

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


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 5.4.2009

Репутация: нет
Всего: нет
Знаю Рабочий способ авторизации в админке Ucoz через Indy10.
Пример  проги  под C++ Builder 6 могу выслать на мыло. (На Дельфи думаю переделать не состоит труда)
Кому нужно пишите.
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.2093 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.