Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
27.04.2007, 17:40
|
|
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
Провел на форуме:
1948091
Репутация:
1686
|
|
perl трабл
вообщем этот саб должен постить тему новую на веб хаке в разделе продаж -- но млина нифига невыходит -- уже запарился форум выписывает ошибку типо нету какогото файла или тема перемещена -- вообщем лаг какойто я уже реферер вписывал и ид сессии выдирал отсылал -- нифига не создает топик
уже незнаю че с ним сделать
Код:
sub webhack {
my $res = $ua->post('http://forum.web-hack.ru/index.php?act=Login&CODE=01', {'referer' => '', 'UserName' => $login2, 'PassWord' => $password2, 'CookieDate' => 1 })or die 'Bad connect to web-hack.ru';
$res = $ua->get('http://forum.web-hack.ru/index.php?act=Post&CODE=00&f=10');
# login 2 и password 2 соотв пароль и логин на вх
my $ans=$res->content;
my $ww=index($ans,"name='auth_key'");
$ans=substr($ans,$ww+23,32); # выдираем aut key он в скрытом поле в форме добавл топика
# до этого момента все идет нормально только с отправкой бага
$res = $ua->post('http://forum.web-hack.ru/index.php?act=Post&CODE=00&f=10', {'act' => 'Post', 's' => '', 'f' => 10,'auth_key' => $ans, 'CODE' => 01,'TopicTitle' => $zag ,'TopicDesc' => '','bbmode' => 'normal','fcolor' => '','fsize' => '','ffont' => '','quicklist' => '','talign' => '','Post' => $text,'enableemo' => 'yes','enablesig' => 'yes','iconid' => 0}) or die 'Bad connect to web-hack.ru';
# засылаем на сервак zag и text название темы и текст топика
}
ps может у кого есть код на ipb -- дайте позырить
Последний раз редактировалось hidden; 28.04.2007 в 21:38..
|
|
|
28.04.2007, 00:45
|
|
Banned
Регистрация: 12.01.2007
Сообщений: 113
Провел на форуме:
4094601
Репутация:
495
|
|
Чёрт а че * печеньку* к пакету не привентил?
Формат:
Код:
$response = $browser->post( $url,
[
formkey1 => value1,
formkey2 => value2,
...
],
headerkey1 => value1,
headerkey2 => value2,
);
В твоём случае:
Код:
my $url="http://forum.web-hack.ru/index.php?act=Login&CODE=01"
$res = $ua->post( $url,
[
"refer" => "",
"UserName" => "$login2",
"PassWord " => "$password",
"Cookiedate" => "1"
],
"Cookie" => "Твоя печенька", );
_http://www.perl.com/pub/a/2002/08/20/perlandlwp.html |
|
|
|
28.04.2007, 01:36
|
|
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
Провел на форуме:
1948091
Репутация:
1686
|
|
ой ну прям
печенька выше весит она прикручена таким макаром
my $cookies = HTTP::Cookies->new;
$ua->cookie_jar($cookies);
|
|
|
|
28.04.2007, 12:07
|
|
Banned
Регистрация: 12.01.2007
Сообщений: 113
Провел на форуме:
4094601
Репутация:
495
|
|
Сообщение от genom--
ой ну прям
печенька выше весит она прикручена таким макаром
Код:
my $cookies = HTTP::Cookies->new;
$ua->cookie_jar($cookies);
Зачем усложнять бытие? 
добавил хайдер и всё .
ЗЫ: выложи свой исходник тут ,или в ПМ-готов помочь 
|
|
|
|
28.04.2007, 14:08
|
|
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
Провел на форуме:
1948091
Репутация:
1686
|
|
ну вот весь исходник
Код:
#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Cookies;
use strict;
my $login2='gamon'; # логин и пароль для веб-хака
my $password2='qwerty';
print'Enter topic name->';
my $zag=<>;chop($zag);
print'Enter text of you topic[ enter = \n ]->';
my $text=<>;chop($text);
my $ua = LWP::UserAgent->new;
my $cookies = HTTP::Cookies->new;
$ua->timeout(60);
$ua->agent('antichat shell v -197.0 - admin /\0X');
$ua->cookie_jar($cookies);
$ua->requests_redirectable(0);
webhack();
sub webhack {
my $res = $ua->post('http://forum.web-hack.ru/index.php?act=Login&CODE=01', {'referer' => '', 'UserName' => $login2, 'PassWord' => $password2, 'CookieDate' => 1 })or die 'Bad connect to web-hack.ru';
$res = $ua->get('http://forum.web-hack.ru/index.php?act=Post&CODE=00&f=10');
# login 2 и password 2 соотв пароль и логин на вх
my $ans=$res->content;
my $ww=index($ans,"name='auth_key'");
$ans=substr($ans,$ww+23,32); # выдираем aut key он в скрытом поле в форме добавл топика
$res = $ua->post('http://forum.web-hack.ru/index.php?act=Post&CODE=00&f=10', {'act' => 'Post', 's' => '', 'f' => 10,'auth_key' => $ans, 'CODE' => 01,'TopicTitle' => $zag ,'TopicDesc' => '','bbmode' => 'normal','fcolor' => '','fsize' => '','ffont' => '','quicklist' => '','talign' => '','Post' => $text,'enableemo' => 'yes','enablesig' => 'yes','iconid' => 0}) or die 'Bad connect to web-hack.ru';
# засылаем на сервак zag и text название темы и текст топика
}
Последний раз редактировалось hidden; 28.04.2007 в 21:37..
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
