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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вход в админку ucoz, автоматизация входа 
:(
    Опции темы
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   Вверх
Страницы: (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.0575 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


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

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