Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> сграбить защищенный javascript 
:(
    Опции темы
burakov
Дата 21.6.2010, 10:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Есть задача выкачать файлы из сайта, 

Файлы защищены javascript конструкцией типа

Пример одного файла...

<a href="javascript:if(confirm('fetch_download.php?mfile=644&osCsid=14eab84a3c2f4c0af2c34d94dc973c9e  \n\nThis file was not retrieved by Teleport Pro, because it did not meet the project\'s file type specifications.  \n\nDo you want to open it from the server?'))window.location='fetch_download.php?mfile=644&osCsid=14eab84a3c2f4c0af2c34d94dc973c9e'" tppabs="fetch_download.php?mfile=644&osCsid=14eab84a3c2f4c0af2c34d94dc973c9e">файл</td></tr>    

Как можно выкачать данный файл при помощи Perl.???

Спасибо
    




--------------------
Нотный архив http://libnote.ru скачать ноты бесплатно
PM MAIL   Вверх
infarch
Дата 22.6.2010, 09:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



В конце всех процессов проихсодящих на клиенте находится http запрос. Вам надо изучить алгоритм его формирования и сделать аналогичный. Возможно вам поможет Tamper data или еще какой снифер.
PM MAIL   Вверх
burakov
Дата 22.6.2010, 10:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Спасибо.
С помощью Tamper Data вычислил, что нужно этому сайту smile

А не подскажите модуль Perl для работы с http заголовками?


--------------------
Нотный архив http://libnote.ru скачать ноты бесплатно
PM MAIL   Вверх
infarch
Дата 22.6.2010, 10:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Настолько подробно я с этим не баловался. может LWP и все с ним связанное?
PM MAIL   Вверх
chaos
Дата 22.6.2010, 11:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Серийный программист
****


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

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



Цитата(burakov @  22.6.2010,  07:46 Найти цитируемый пост)
А не подскажите модуль Perl для работы с http заголовками?

LWP::UserAgent, HTTP::Request, HTTP::Response
PM WWW   Вверх
burakov
Дата 22.6.2010, 11:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Да

единственно не совсем понятно, как это должно работать

Код


use strict; 
use warnings; 
use LWP::Simple;    

my $url = 'http://classon.ru/fetch_download.php?mfile=53&osCsid=778fff9f46f9fa5f4f473ee6efb3de2e';
my $file = 'file.pdf';

getstore ($url, $file);



Когда мне эти http заголовки менять ???

перед getstore???
Мне нужно добавить в заголовок Referer.

Или я чего не так понимаю...


--------------------
Нотный архив http://libnote.ru скачать ноты бесплатно
PM MAIL   Вверх
krypt3r
Дата 23.6.2010, 06:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Разве шла речь об LWP::Simple? LWP::UserAgent + default_headers, perldoc LWP::UserAgent
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: CGI программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к CGI программированию
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", качать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: разработка для Web | Следующая тема »


 




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


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

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