ANTICHAT Forum
HOME FORUMS MEMBERS RECENT POSTS LOG IN  
НОВЫЕ ТОРГОВАЯ НОВОСТИ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > PHP
Перезагрузить страницу [Perl] Новичкам: задаем вопросы
   
Ответ
Страница 26 из 155 « Первая < 16 22 23 24 25 26 27 28 29 30 3676126 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #1  
Старый 02.12.2007, 16:41
Fak1r
Познающий
Регистрация: 03.06.2007
Сообщений: 31
С нами: 9967915

Репутация: 3
По умолчанию
Есть такой сайт getfirelink.net отправляет файлы на почту. Так вот на этом сайте за ежедневное посещение сайта бесплатно добавляется 5Мб.
Собсна ниже приведен скрипт который при запуске должен заходить на сайт и ароходить авторизацию, но чет не работает, помогите пожалуйста исправить скрипт.

Код:
#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Cookies;

$url   = "http://getfirelink.net/";
$login  = "";
$password = "";
$xpl = LWP::UserAgent->new() or die;
$cookie_jar = HTTP::Cookies->new();
$xpl->cookie_jar( $cookie_jar );
$res = $xpl->post($url.'index.php',
 [
 "user"   => "$login",
 "password"   => "$password",
 ]);
 $cookie_jar->extract_cookies($res);
 $xpl->get($url.'cabinet/files/index.php');
𝕏 Twitter Reddit Telegram Копировать ссылку
 
Ответить с цитированием

  #2  
Старый 02.12.2007, 17:26
demonoid
Banned
Регистрация: 12.01.2007
Сообщений: 113
С нами: 10172441

Репутация: 495
По умолчанию
Код:
#!perl
use warnings;
use strict;
use LWP::UserAgent;
my ( $ua,$id,$pwd ) = ( LWP::UserAgent->new,"demonoid","JIAPOJIb" );
my $res = $ua->post( "http://getfirelink.net/index.php?user=".$id."&passwd=".$pwd."&submit_login=%D0%92%D0%BE%D0%B9%D1%82%D0%B8" );
# тут проверку сделай удалась авторизация или нет  
# ...$res->as_string;
Последний раз редактировалось demonoid; 02.12.2007 в 17:32..
 
Ответить с цитированием

  #3  
Старый 02.12.2007, 17:53
Fak1r
Познающий
Регистрация: 03.06.2007
Сообщений: 31
С нами: 9967915

Репутация: 3
По умолчанию
А можно довести скрипт до ума, а то я практически ни чего не понимаю в перле
 
Ответить с цитированием

HTTP::Cookies - логин в админку вордпресса
  #4  
Старый 02.12.2007, 18:55
Пыхпых Инъекцыч
Новичок
Регистрация: 20.06.2007
Сообщений: 3
С нами: 9944077

Репутация: 4
По умолчанию HTTP::Cookies - логин в админку вордпресса
Камрады! Не могу одолеть wordpress движок, перл начал изучать недавно.
Вот у меня написан скрипт логина в юзерскую админку вордпресса - всё работает.
PHP код:
#usr/bin/perl
  
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Cookies;

#-- USER AGENT
my $user_agent = LWP::UserAgent->new;
$user_agent->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.8.1.7) Gecko/20070914 Firefox/2.0.0.7');
$user_agent->cookie_jar( {} );
$user_agent->timeout(7);

$user_agent->default_headers->push_header(
    'Accept-Charset' => 'iso-8859-1,*,utf-8'
    );
$user_agent->default_headers->push_header(
    'Accept' => 'text/xml,application/xml, application/xhtml+xml, text/html, text/plain, image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, image/png, */*'
    );
$user_agent->default_headers->push_header(
    'Accept-Language' => 'en-US'
    );

#-- BLOG DATA
my $url = "http://localhost/tst2/wp2/";
my $usr = "user1";
my $pwd = "qazwsx";

#-- LOGIN
my $req = HTTP::Request->new( POST => $url . 'wp-login.php' );
$req->content_type('application/x-www-form-urlencoded');
$req->content( sprintf('log=%s&pwd=%s&wp-submit=Login »&redirect_to=wp-admin/',$usr,$pwd) );
my $res = $user_agent->request( $req );

#-- USER WP-ADMIN
$req = HTTP::Request->new( GET => $url . 'wp-admin');
$req->content_type('application/x-www-form-urlencoded');
$res = $user_agent->request( $req );
print $res->as_string; 
Далее, я бы хотел немного переделать скрипт.
В лисе с помощью расширения EDIT COOKIES я продляю срок действия вордпрессовских кукисов, в результате чего в мозилловском файле cookies.txt появляется следующая запись:
PHP код:
localhost    FALSE    /tst2/wp2/    FALSE    1227897800    wordpresspass_c7e1d058c6b9ded5cfeaa99ec2ae0c85    ef4ddf645aa223c0b2b1356fbb4fd90a
localhost    FALSE    /tst2/wp2/    FALSE    1227897800    wordpressuser_c7e1d058c6b9ded5cfeaa99ec2ae0c85    user1 
Теперь, в следующий раз в браузере можно сразу попасть в админку вордпресса.
А вот скриптом не получается, редериктит на wp-login.php:
PHP код:
#usr/bin/perl
  
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Cookies;

#-- USER AGENT
my $user_agent = LWP::UserAgent->new;
my $cookie_jar = HTTP::Cookies::Netscape->new( file=> 'firefox_cookies.txt', );

$user_agent->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.8.1.7) Gecko/20070914 Firefox/2.0.0.7');
$user_agent->cookie_jar( $cookie_jar );

$user_agent->timeout(7);
$user_agent->default_headers->push_header(
    'Accept-Charset' => 'iso-8859-1,*,utf-8'
    );
$user_agent->default_headers->push_header(
    'Accept' => 'text/xml,application/xml, application/xhtml+xml, text/html, text/plain, image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, image/png, */*'
    );
$user_agent->default_headers->push_header(
    'Accept-Language' => 'en-US'
    );

#-- BLOG DATA
my $url = "http://localhost/tst2/wp2/";

#-- USER WP-ADMIN
my $req = HTTP::Request->new( GET => $url . 'wp-admin');
$req->content_type('application/x-www-form-urlencoded');
my $res = $user_agent->request( $req );
print $res->as_string; 
Где вкралась ошибка?
Попробовал тоже самое с гуглом - подставил кукисы англоязычного профайла, чтоб редериктело сразу на англоязычную версию, а не на локальную - с гуглом работает.
 
Ответить с цитированием

  #5  
Старый 02.12.2007, 19:03
C!klodoL
Постоянный
Регистрация: 05.06.2007
Сообщений: 335
С нами: 9965892

Репутация: 677
По умолчанию
попробуй передавать Refer
 
Ответить с цитированием

  #6  
Старый 02.12.2007, 19:52
Пыхпых Инъекцыч
Новичок
Регистрация: 20.06.2007
Сообщений: 3
С нами: 9944077

Репутация: 4
По умолчанию
Спасибо, камрад - я что-то совсем реферы из виду упустил. Щас пашет )
 
Ответить с цитированием

  #7  
Старый 04.12.2007, 15:10
Kaimi
Познавший АНТИЧАТ
Регистрация: 23.08.2007
Сообщений: 1,237
С нами: 9851426

Репутация: 1676


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

  #8  
Старый 04.12.2007, 15:24
groundhog
Познавший АНТИЧАТ
Регистрация: 12.05.2007
Сообщений: 1,235
С нами: 9999746

Репутация: 1318


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

  #9  
Старый 04.12.2007, 15:29
Kaimi
Познавший АНТИЧАТ
Регистрация: 23.08.2007
Сообщений: 1,237
С нами: 9851426

Репутация: 1676


По умолчанию
А можно пример?
 
Ответить с цитированием

  #10  
Старый 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 любые запросы с куками
 
Ответить с цитированием
Ответ
Страница 26 из 155 « Первая < 16 22 23 24 25 26 27 28 29 30 3676126 > Последняя »



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[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



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


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




ANTICHAT ™ © 2001- Antichat Kft.