Показать сообщение отдельно

  #402  
Старый 13.04.2008, 12:44
$p01nt
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
С нами: 9591697

Репутация: 96
По умолчанию

помогите авторизироваться на mate1.com (хочу попробовать написать чекер акков)


use LWP 5.64;
use LWP::Simple;
$browser = LWP::UserAgent->new;
open (FFF,">>xui.htm");
$url='http://mate1.com/index.php';
$content= get $url;
$content=~/(sid=\w{1,})/g;;

$sid=$1;
$sid=~s/sid=//;
print $sid;
$mail="*********";
$posturl="http://www.mate1.com/profiles/login?sid=$sid";
print $posturl;
$response = $browser->post( $posturl,
[
sid=>$sid,
email_address => $mail,
password => "********",

],
);
$url_home='http://www.mate1.com/profiles/home';
$cnt2=get $url_home;
print FFF $cnt2;
 
Ответить с цитированием