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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вход в админку ucoz, автоматизация входа 
:(
    Опции темы
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   Вверх
Страницы: (4) Все 1 2 [3] 4 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

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

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

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

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

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


 




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


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

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