VPF::выполнить js код из perl скрипта - Форум программистов

burakov

Дата 15.3.2012, 15:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Добрый день.

возможно ли из перл скрипта каким то образом выполнить js код.?
Вот такой вот код на странице - в нем закодирован прокси сервер.

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

Огромное спасибо.

Код


var Varfc0ff9b8a4ended='0';
var Vard3bfc1bd94ended='4';
var Varc18c661401ended='5';
var Varbe62ee40eaended='8';
var Varac11ebd0e6ended='1';
var Vara396813050ended='.';
var Var980b2971ddended='6';
var Var8fd9775692ended='1';
var Var6e092441c8ended='1';
var Var69161a1e59ended='4';
var Var5295934caaended='1';
var Var45bdc3cfb2ended='.';
var Var3fd62028f6ended=':';
var Var360c7cc410ended='1';
var Var18fce7b9cfended='8';
var Var10ed4dfbfeended='2';
var Var09807d3119ended='7';
var Var04d2c4b496ended='.';

document.write(Var10ed4dfbfeended+Vard3bfc1bd94ended+Var04d2c4b496ended+Var5295934caaended+Varfc0ff9b8a4ended+Var980b2971ddended+Vara396813050ended+Varac11ebd0e6ended+Varc18c661401ended+Var09807d3119ended+Var45bdc3cfb2ended+Var6e092441c8ended+Var69161a1e59ended+Var3fd62028f6ended+Varbe62ee40eaended+Var360c7cc410ended+Var8fd9775692ended+Var18fce7b9cfended);

--------------------

Нотный архив http://libnote.ru скачать ноты бесплатно

burakov

Дата 15.3.2012, 16:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Сумел отпарсить js код и как бы перековертировать его в пеловый код.

подучился перловый код

Код


$Varfc0ff9b8a4ended='0';$Vard3bfc1bd94ended='4';$Varc18c661401ended='5';$Varbe62ee40eaended='8';$Varac11ebd0e6ended='1';$Vara396813050ended='.';$Var980b2971ddended='6';$Var8fd9775692ended='1';$Var6e092441c8ended='1';$Var69161a1e59ended='4';$Var5295934caaended='1';$Var45bdc3cfb2ended='.';$Var3fd62028f6ended=':';$Var360c7cc410ended='1';$Var18fce7b9cfended='8';$Var10ed4dfbfeended='2';$Var09807d3119ended='7';$Var04d2c4b496ended='.';$Var=$Var10ed4dfbfeended.$Vard3bfc1bd94ended.$Var04d2c4b496ended.$Var5295934caaended.$Varfc0ff9b8a4ended.$Var980b2971ddended.$Vara396813050ended.$Varac11ebd0e6ended.$Varc18c661401ended.$Var09807d3119ended.$Var45bdc3cfb2ended.$Var6e092441c8ended.$Var69161a1e59ended.$Var3fd62028f6ended.$Varbe62ee40eaended.$Var360c7cc410ended.$Var8fd9775692ended.$Var18fce7b9cfended;print $Var;

но как его выполнить из того же скрипта, где и осуществлялся разбор?

--------------------

Нотный архив http://libnote.ru скачать ноты бесплатно

ginnie

Дата 15.3.2012, 16:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

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

burakov, мне кажется, что в данном случае проще сделать через хэш, где ключами будут имена переменных. А по поводу выполнения смотрите eval.

Это сообщение отредактировал(а) ginnie - 15.3.2012, 16:23

--------------------

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

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