Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: разработка для Web > выполнить js код из perl скрипта

Автор: burakov 15.3.2012, 15:24

Добрый день.

возможно ли из перл скрипта каким то образом выполнить 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);

Автор: burakov 15.3.2012, 16:13

Сумел отпарсить 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;

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

Автор: ginnie 15.3.2012, 16:23

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