[Perl] Новичкам: задаем вопросы

Есть страница, получаю содержимое в переменную, в ней есть инфа например
<a href="text1" >
<a href="text2" >

Как занести вытащить text1, text2...textN из страницы, регуляркой вытащить одно значение я могу, а как все вытащить?

 

модификатор g

 

есть скрипт на perl, но он закодирован байткодом. подскажите какой прогой можно его раскодировать? или дайте ссылку на нужный материал

 

Kaimi, а while(){} не работает уже?)

 

upx -d script.pl ?)))

 

это вопрос или ссылка на материал? , если можно с комментариями

 

Что значит - закодирован байт-кодом? Код типа

Code:

#!/usr/bin/perl
$str = pack ("H*", "7072696e7420225465737420537472696e675c6e223b");
eval $str;
exit 0;

Если так, то вместо eval вставить print. Вот и вся расшифровка "байткода"

 

2 Kaimi

Code:

#!perl -w 
use strict;
my $res='<a href="text1" >
         <a href="text2" >
         <a href="text3" >';        
my @parse = $res=~/href="(\w+)" >/g;
foreach my $text ( @parse ) 
{     
      print $text."\n";
}

2 vitek10

Code:

есть скрипт на perl, но он закодирован байткодом. подскажите какой прогой можно его раскодировать? или дайте ссылку на нужный материал

сударь покажи сие творение народу.

 

нет проблем. вот один файл полностью

если кто сможет вскрыть, скину весь скрипт (буржуи продают за 500 зеленых)

P.S. необходимо обойти авторизацию

 

Это не байт код )
Скрипт обфускацирован

Code:

require "wws_lib.dat"; 

Для включения пакета в программу используется функция require()
wws_lib.dat непредаставлен.

Code:

$PERL_SOURCE_PROTECTOR=chr(117)......chr(41).chr(4 1).chr(41).chr(59);eval($PERL_SOURCE_PROTECTOR);

оч.просто текст выполняется через eval

Code:

print chr(117)......chr(41).chr(4 1).chr(41).chr(59);

получим

Code:

undef $/;$a=<DATA>;$/="\n";$a=~s/\n//g; eval(pack('C*',split('\D',$a)));

Code:

undef $/;$a=<DATA>;$/="\n";$a=~s/\n//g; print (pack('C*',split('\D',$a)));
__DATA__
.........
l48l48l48l49l108l108l108l49l48l48l41l41l41l125

получим следующие

Code:

eval(l0l0000111100010001l00l0($WEBWAPSTUDIO_COM));sub l0l0000111100010001l00l0{my($l0001l0001lll100)=@_;$l0001l0001lll100=~s/\+/1l/gm;$l0001l0001lll100=~s/\-/2l/gm;$l0001l0001lll100=~s/\*/3l/gm;$l0001l0001lll100=~s/\(/4l/gm;$l0001l0001lll100=~s/\)/5l/gm;$l0001l0001lll100=~s/\//6l/gm;$l0001l0001lll100=~s/\=/7l/gm;return(pack('C*',split('l',$l0001l0001lll100)))}

и т.д. нету времени довести до ума , помогать надо в меру , дальше сам , нечего сложного базовые знание в помощь
# Encoded By the WWS Perl Protector - http://www.webwapstudio.com/PerlProtector.html

 

В переменной $PERL_SOURCE_PROTECTOR вот такое

Code:

undef $/;
$a=<DATA>;
$/="\n";
$a=~s/\n//g; 
eval(pack('C*',split('\D',$a)));

Заменив eval на print, расшифруем DATA

Code:

eval(l0l0000111100010001l00l0($WEBWAPSTUDIO_COM));
sub l0l0000111100010001l00l0{
  my($l0001l0001lll100)=@_;
  $l0001l0001lll100=~s/\+/1l/gm;
  $l0001l0001lll100=~s/\-/2l/gm;
  $l0001l0001lll100=~s/\*/3l/gm;
  $l0001l0001lll100=~s/\(/4l/gm;
  $l0001l0001lll100=~s/\)/5l/gm;
  $l0001l0001lll100=~s/\//6l/gm;
  $l0001l0001lll100=~s/\=/7l/gm;
  return(pack('C*',split('l',$l0001l0001lll100)))
}

Остальное зависит от переменной $WEBWAPSTUDIO_COM, которая, видимо, хранится в wws_lib.dat
ЗЫ. demonoid опередил))

 

ясно, всем спасибо. просто этого файлика не было. видимо он лежит на том сервере, откуда продают скрипт, и он постоянно должен быть в коннекте. а без него все бесполезно

 

всем привет,у меня вопрос,скрипт записует в тхт файл строчки,но не больше 3,добабляю еще старые стирает и все равно три строки,незнаю почему помогите

 

ну три строчки потому что такая прога видимо а по поводу "все равно три строчки) так это ты при создании дескриптора файла указал перезаписывать его а не дописывать в конец файла.

 

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

 

ой я не в ту тему

 

Вопрос по mod_perl

Есть такая штука...

Файо index.pl

Code:

... 
получили параметр $mod 
Если он пустой, то mod=vasya 
require ".../$mod.pl"; 
... 
print @data; 
...

Каждый модуль ($mod.pl) заполняет @data своими данными


Короче под mod_perl @data всегда от модуля Vasya... Как такую конструкцию сделать правильно?

 

Вопрос... Можно ли декомпилировать код, защищенный ByteLoader 0.06?

 

Ребята не подскажите пожайлуста функцию для поиска ключа массива по значению.

В пхп я знаю есть функция
array_search("значение", $массив);

в перле есть функция поиска позиции символа в строке
index("hello","e") ;
но для массива она не подходит

искал в поисковиках та и не нашел не перебирать же загоняя в цикл каждое значение ключа это займет очень много вермя так как массив очень большой у меня получился

и ещё если можно посоветуйте пожайлуста сайт где описываются все функции в перле. заранее спасибо

 

перебирай весь =\