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

undef %saw;
@out = grep(!$saw{$_}++, @in);

текс...опять я вообщем такая ситуация,я с помощью пост запроса логинюсь на сайте,и потом пытаюсь получить страницу которую можно просматривать только авторизированым пользователям(с помощью гет) но мне выдается страница входа.Как поправить?

#! /usr/bin/perl

use strict;
use warnings;
use LWP;
#use LWP::Simple;


################################################Lo gin on site#
my $login='xxx@gmail.com';
my $pass='xxx';

my $url='http://www.xxx.com/?action=login';
my $browser=LWP::UserAgent->new;


my $response=$browser->post($url,
[ 'screenname'=>$login,
'password'=>$pass,
'submit.x'=>'51',
'submit.y'=>'2',
'continue_url='=>'',
]
);

my $sendurl='http://www.xxx.com/?setselected=10423501&setlocation=messages&setarea =new_message&savelast=1';

my @xx=get $sendurl;
open(XX,'>1.htm');
print XX @xx;

2$p01nt
Использовать куки наверно
Что-то вроде такого должно выйти

#! /usr/bin/perl

use strict;
use warnings;
use LWP;
use HTTP::Cookies;
#use LWP::Simple;


################################################Lo gin on site#
my $login='xxx@gmail.com';
my $pass='xxx';

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


my $url='http://www.xxx.com/?action=login';
my $browser=LWP::UserAgent->new;
$browser->cookie_jar($cookie_jar);

my $response=$browser->post($url,
[ 'screenname'=>$login,
'password'=>$pass,
'submit.x'=>'51',
'submit.y'=>'2',
'continue_url='=>'',
]
);

$cookie_jar->extract_cookies($response);
my $sendurl='http://www.xxx.com/?setselected=10423501&setlocation=messages&setarea =new_message&savelast=1';

my @xx=get $sendurl;
open(XX,'>1.htm');
print XX @xx;

не катит что то

вот так вот надо:

$cookie_jr->extract_cookies($response);
my $sendurl='http://www.xxx.com/?setlocation=online&setarea=online';
$response = $browser->get($sendurl);
$response=$response->as_string;
open(XX,'>1.htm');
print XX $response;

оффтоп... ребят кто может помочь со скриптом который спамит по социалке - плиз кинте номер аси в пм..

вот кусок кода из скрипта,суть такова что скрипт выдергивает данные и пихает их в файл,соответственно чтоб файл нормально читался в Винде необходимо сделать конверт формата из никсов под вынь
собственно делаю
$content= ~s/\n/\r\n/;
на выходе получаю пустой файл (
пробовал s и m и ~m
Что не так?
можно тупо в консоле прописать perl -pi -e 's/\n/\r\n/;' *.txt но это не удобно

да херней маетесь зачем ему выдирать куки -экстрактом файлы приплетать конвертить
делается проще

use HTTP::Cookies;
my $ua = LWP::UserAgent->new;
my $cookies = HTTP::Cookies->new;
$ua->cookie_jar($cookies); # туда где таймауты и тд просписываешь

и автоматом во всех его запросах будут идти принятые ранее кукисы

#! /usr/bin/perl

use strict;
use warnings;
use LWP;
use HTTP::Cookies;
use LWP::Simple;


################################################Lo gin on site#
my $login='xxxx@gmail.com';
my $pass='xxxx';

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


my $url='http://www.xxxx.com/?action=login';
my $browser=LWP::UserAgent->new;
$browser->cookie_jar($cookie_jar);

my $response=$browser->post($url,
[ 'screenname'=>$login,
'password'=>$pass,
'submit.x'=>'51',
'submit.y'=>'2',
'continue_url='=>'',
]
);

$cookie_jar->extract_cookies($response);
my $sendurl='http://www.xxxxx.com/?setselected=11058794&setlocation=messages&setarea =new_message&savelast=1';
$browser->cookie_jar($cookie_jar);
$response = $browser->get($sendurl);
$response=$response->as_string;
open(XX,'>1.htm');
print XX $response;

$cookie_jar->extract_cookies($response);

my $surl='http://www.xxxxxx.com/?action=send_message';
$response=$browser->post($surl,
[ 'submission%5Bmsg_id%5D'=>'',
'submission%5Bmessage%5D'=>'how',
'x'=>'13',
'y'=>'6',
]
);

помогите плиз переделать что бы отправляло мессагу всетаки !!!!

не нужно этого делать. там все автоматически

все равно сообщение не отсылается