УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > PHP
[Perl] Новичкам: задаем вопросы

Страница 31 из 156

« Первая

131

Последняя »

Опции темы

Поиск в этой теме

Опции просмотра

#301

30.01.2008, 01:52

Kaimi

Reservists Of Antichat - Level 6

Регистрация: 23.08.2007

Сообщений: 1,237

Провел на форуме:
18127311

Репутация: 1676

Отправить сообщение для Kaimi с помощью ICQ

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

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

#302

30.01.2008, 01:56

~~FooBar~~

Banned

Регистрация: 28.01.2008

Сообщений: 18

Провел на форуме:
233275

Репутация: 14

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

#303

30.01.2008, 11:53

vitek10

Новичок

Регистрация: 21.06.2007

Сообщений: 21

Провел на форуме:
282803

Репутация: 11

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

#304

30.01.2008, 12:04

Spyder

Members of Antichat - Level 5

Регистрация: 09.10.2006

Сообщений: 1,698

Провел на форуме:
9098076

Репутация: 4303

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

__________________
God forgive me for I have sinned
It’s been six months since my last confession
There is nowhere that I can run to
My soul I place in your hands

#305

30.01.2008, 12:31

krypt3r

Познавший АНТИЧАТ

Регистрация: 27.04.2007

Сообщений: 1,044

Провел на форуме:
3660186

Репутация: 905

Цитата:

upx -d script.pl ?)))

#306

30.01.2008, 14:02

vitek10

Новичок

Регистрация: 21.06.2007

Сообщений: 21

Провел на форуме:
282803

Репутация: 11

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

#307

30.01.2008, 14:35

krypt3r

Познавший АНТИЧАТ

Регистрация: 27.04.2007

Сообщений: 1,044

Провел на форуме:
3660186

Репутация: 905

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

Код:

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

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

#308

30.01.2008, 14:42

~~demonoid~~

Banned

Регистрация: 12.01.2007

Сообщений: 113

Провел на форуме:
4094601

Репутация: 495

2 Kaimi

Код:

#!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

Код:

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

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

Последний раз редактировалось demonoid; 30.01.2008 в 14:45..

#309

30.01.2008, 14:56

vitek10

Новичок

Регистрация: 21.06.2007

Сообщений: 21

Провел на форуме:
282803

Репутация: 11

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

Цитата:

#!/usr/bin/perl -w
###########################################
#
# Script coded by Plamen Marinov
# Web Wap Studio
# http://www.webwapstudio.com
# Email - studio.com
#
###########################################
use CGI;

require "wws_lib.dat";
# Encoded By the WWS Perl Protector - http://www.webwapstudio.com/PerlProtector.html
$PERL_SOURCE_PROTECTOR=chr(117).chr(110).chr(100). chr(101).chr(102).chr(32).chr(36).chr(47).chr(59). chr(36).chr(97).chr(61).chr(60).chr(68).chr(65).ch r(84).chr(65).chr(62).chr(59).chr(36).chr(47).chr( 61).chr(34).chr(92).chr(110).chr(34).chr(59).chr(3 6).chr(97).chr(61).chr(126).chr(115).chr(47).chr(9 2).chr(110).chr(47).chr(47).chr(103).chr(59).chr(3 2).chr(101).chr(118).chr(97).chr(108).chr(40).chr( 112).chr(97).chr(99).chr(107).chr(40).chr(39).chr( 67).chr(42).chr(39).chr(44).chr(115).chr(112).chr( 108).chr(105).chr(116).chr(40).chr(39).chr(92).chr (68).chr(39).chr(44).chr(36).chr(97).chr(41).chr(4 1).chr(41).chr(59);eval($PERL_SOURCE_PROTECTOR);
__DATA__
101l118l97l108l40l108l48l108l48l48l48l48l49l49l49l 49l48l48l48l49l48l48l48l49l108l48l48l108l48l40l36l 87l69l66l87l65l80l83l84l85l68l73l79l95l67l79l77l41 l41l59l115l117l98l32l108l48l108l48l48l48l48l49l49l 49l49l48l48l48l49l48l48l48l49l108l48l48l108l48l123 l109l121l40l36l108l48l48l48l49l108l48l48l48l49l108 l108l108l49l48l48l41l61l64l95l59l36l108l48l48l48l4 9l108l48l48l48l49l108l108l108l49l48l48l61l126l115l 47l92l43l47l49l108l47l103l109l59l36l108l48l48l48l4 9l108l48l48l48l49l108l108l108l49l48l48l61l126l115l 47l92l45l47l50l108l47l103l109l59l36l108l48l48l48l4 9l108l48l48l48l49l108l108l108l49l48l48l61l126l115l 47l92l42l47l51l108l47l103l109l59l36l108l48l48l48l4 9l108l48l48l48l49l108l108l108l49l48l48l61l126l115l 47l92l40l47l52l108l47l103l109l59l36l108l48l48l48l4 9l108l48l48l48l49l108l108l108l49l48l48l61l126l115l 47l92l41l47l53l108l47l103l109l59l36l108l48l48l48l4 9l108l48l48l48l49l108l108l108l49l48l48l61l126l115l 47l92l47l47l54l108l47l103l109l59l36l108l48l48l48l4 9l108l48l48l48l49l108l108l108l49l48l48l61l126l115l 47l92l61l47l55l108l47l103l109l59l114l101l116l117l1 14l110l40l112l97l99l107l40l39l67l42l39l44l115l112l 108l105l116l40l39l108l39l44l36l108l48l48l48l49l108 l48l48l48l49l108l108l108l49l48l48l41l41l41l125

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

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

#310

30.01.2008, 15:24

~~demonoid~~

Banned

Регистрация: 12.01.2007

Сообщений: 113

Провел на форуме:
4094601

Репутация: 495

Это не байт код

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

Код:

require "wws_lib.dat";

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

Код:

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

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

Код:

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

получим

Код:

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

Код:

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

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

Код:

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

Последний раз редактировалось demonoid; 30.01.2008 в 15:34..

Страница 31 из 156

« Первая

131

Последняя »

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[c/c++] Новичкам: задаем вопросы	_Great_	С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby	5421	21.04.2026 07:37
[php] Новичкам: задаем вопросы	_Great_	PHP	16396	17.06.2010 21:19
Вопросы по Ipb 2.0	Voodoo_People	Сценарии/CMF/СMS	26	15.02.2005 22:57

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход