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

ВЫЕЗД ИЗ УКРАИНЫ • ОФОРМЛЕНИЕ ДОКУМЕНТОВ • БРОНИРОВАНИЕ • ПОМОЩЬ С ТЦК

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

НОВЫЕ ТОРГОВАЯ НОВОСТИ

Скрыть

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

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

« Первая

126

Последняя »

Опции темы

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

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

#251

02.12.2007, 19:03

C!klodoL

Постоянный

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

Сообщений: 335

С нами: 9965892

Репутация: 677

попробуй передавать Refer

#252

02.12.2007, 19:52

Пыхпых Инъекцыч

Новичок

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

Сообщений: 3

С нами: 9944077

Репутация: 4

Спасибо, камрад - я что-то совсем реферы из виду упустил. Щас пашет )

#253

04.12.2007, 15:10

Kaimi

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

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

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

С нами: 9851426

Репутация: 1676

Есть например сайт site.com
Я посылаю post запрос на сайт, сайт в ответ выдает кукисы и страницу.
Как используя кукисы выданные сайтом сделать запрос к внутренней странице?

#254

04.12.2007, 15:24

groundhog

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

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

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

С нами: 9999746

Репутация: 1318

А что тебе мешает передать хидер Cookie на внутреннюю страницу?

#255

04.12.2007, 15:29

Kaimi

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

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

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

С нами: 9851426

Репутация: 1676

А можно пример?

#256

04.12.2007, 15:31

C!klodoL

Постоянный

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

Сообщений: 335

С нами: 9965892

Репутация: 677

тут наверно вопрос в том как словить кукисы,
use LWP::UserAgent;

use HTTP::Cookies;

my $useragent = LWP::UserAgent->new;

my $cookies = HTTP::Cookies->new;

$useragent->cookie_jar($cookies);

my $request = $useragent->post('http://site/login.php',

{username => $username,

password => $password,
})->as_string;

и далее $useragent->post, $useragent->get любые запросы с куками

#257

04.12.2007, 17:07

Kaimi

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

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

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

С нами: 9851426

Репутация: 1676

И ещё, помогите с регуляркой чтобы выдрать хэш из такого:

Код:

  <form method="post" id="iRespect" name="iRespect" action="test.php">
  <table class="editor" style="margin-left:0px" border="0" cellspacing="0">
  <input type="hidden" id="subm" name="subm" value="124ced269d3aeddf3472d9f18a3eedc6" />
  <input type="hidden" id="act" name="act" value="change_resp" />

#258

04.12.2007, 17:12

C!klodoL

Постоянный

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

Сообщений: 335

С нами: 9965892

Репутация: 677

my ($xew) = $html =~ /value="([a-z0-9]{32})"/;

#259

04.12.2007, 17:16

Kaimi

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

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

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

С нами: 9851426

Репутация: 1676

Спасибо

#260

04.12.2007, 19:29

~~demonoid~~

Banned

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

Сообщений: 113

С нами: 10172441

Репутация: 495

Цитата:

Сообщение от Kaimi

И ещё, помогите с регуляркой чтобы

+ поиск всех вхождений образца!.

Код:

#!perl 
use strict;
use warnings;

my $res = '  <form method="post" id="iRespect" name="iRespect" action="test.php">
  <table class="editor" style="margin-left:0px" border="0" cellspacing="0">
  <input type="hidden" id="subm" name="subm" value="124ced269d3aeddf3472d9f18a3eedc6" />
  <input type="hidden" id="subm" name="subm" value="e153ad7d20bb170d22a15589c72d984d" /> 
  <input type="hidden" id="subm" name="subm" value="8ac5925741f72d5d4acca9b740218198" /> 
  <input type="hidden" id="act" name="act" value="change_resp" />';
  
my @hash = $res=~/value="([a-f0-9]{32})"/g;
while ( <@hash>)
{ 
    print $_,"\n";
}

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

« Первая

126

Последняя »

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

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[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	Уязвимости CMS / форумов	26	15.02.2005 22:57

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

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