ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
02.04.2009, 20:33
|
|
Постоянный
Регистрация: 11.03.2008
Сообщений: 347
Провел на форуме:
2075230
Репутация:
462
|
|
Немогу догнать как вытащить все внешние ссылки с сайта...
Последний раз редактировалось ph1l1ster; 02.04.2009 в 20:38..
|
|
|
04.04.2009, 17:37
|
|
Познающий
Регистрация: 14.01.2009
Сообщений: 93
Провел на форуме:
244235
Репутация:
39
|
|
ph1l1ster,
Код:
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get('http://lurkmore.ru/%D0%92%D0%B0%D1%83-%D0%B8%D0%BC%D0%BF%D1%83%D0%BB%D1%8C%D1%81');
my @links = $mech->find_all_links(url_regex => qr/https?:\/\/[^lurkmore\.ru]/);
for my $link (@links) {
print $link->url()."\n";
}
zavra, значит сорцы на самом деле не в утф |
|
|
|
04.04.2009, 19:34
|
|
Участник форума
Регистрация: 12.03.2008
Сообщений: 159
Провел на форуме:
912928
Репутация:
137
|
|
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
да, вероятно не в утф-8
блин, не могу скрип дописать из-за сирани кодировки 
|
|
|
|
05.04.2009, 14:26
|
|
Познающий
Регистрация: 14.01.2009
Сообщений: 93
Провел на форуме:
244235
Репутация:
39
|
|
Сообщение от zavra
да, вероятно не в утф-8
блин, не могу скрип дописать из-за сирани кодировки не сорцы страницы хтмл, а сорцы скрипта перл!
|
|
|
|
09.04.2009, 05:31
|
|
Познающий
Регистрация: 19.09.2007
Сообщений: 38
Провел на форуме:
424313
Репутация:
2
|
|
Граждане очень нужна помощь!!!
Замучался уже с этими соксами. у не работает хоть убей. Почему не знаю. Прошу помочь.ОЧЕНЬ НУЖНО!!!!
Без соксов все номрально пашет а как только подключаю - болт.
PHP код:
#!/usr/local/bin/perl -w
use LWP::UserAgent;
use IO::All;
use LWP::Protocol::socks;
$socks="хх.ххх.ххх.хх:ххххх";
$email="ххххххххххххххххххх";
$pass="хххххххххххх";
$use_socks=1;
$ua = new LWP::UserAgent(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5');
if($use_socks) { $ua->proxy([qw(http https)] => 'socks://'.$socks); }
$req = HTTP::Request->new(POST=>'http://www.bonprix.ua/ua/login.htm');
$req->referer('http://www.bonprix.ua/ua/login.htm');
$req->content_language('ru');
$req->content_type('application/x-www-form-urlencoded');
$req->content('login='.$email.'&haslo='.$pass);
$result = $ua->request($req);
if($result->code == 302) {print "$email:$pass - GOOD\n";}
else { print "$email:$pass - BAD\n"; }
Последний раз редактировалось constanta; 09.04.2009 в 13:16..
|
|
|
|
09.04.2009, 10:22
|
|
Участник форума
Регистрация: 05.11.2008
Сообщений: 105
Провел на форуме:
292722
Репутация:
71
|
|
Сообщение от constanta
Граждане очень нужна помощь!!!
Замучался уже с этими соксами. у не работает хоть убей. Почему не знаю. Прошу помочь.ОЧЕНЬ НУЖНО!!!!
Без соксов все номрально пашет а как только подключаю - болт.
PHP код:
#!/usr/local/bin/perl -w
use LWP::UserAgent;
use IO::All;
use LWP::Protocol::socks;
$socks="socks://хх.ххх.ххх.хх:ххххх";
$email="ххххххххххххххххххх";
$pass="хххххххххххх";
$use_socks=1;
$ua = new LWP::UserAgent(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5');
if($use_socks) { $ua->proxy([qw(http https)] => 'socks://'.$socks); }
$req = HTTP::Request->new(POST=>'http://www.bonprix.ua/ua/login.htm');
$req->referer('http://www.bonprix.ua/ua/login.htm');
$req->content_language('ru');
$req->content_type('application/x-www-form-urlencoded');
$req->content('login='.$email.'&haslo='.$pass);
$result = $ua->request($req);
if($result->code == 302) {print "$email:$pass - GOOD\n";}
else { print "$email:$pass - BAD\n"; }
У тебя в строке
Код:
if($use_socks) { $ua->proxy([qw(http https)] => 'socks://'.$socks); }
и в переменной $socks записано socks://, т.о. получается что адрес прокси начинается с socks://socks:// ! Может в этом косяк?
|
|
|
|
09.04.2009, 13:18
|
|
Познающий
Регистрация: 19.09.2007
Сообщений: 38
Провел на форуме:
424313
Репутация:
2
|
|
Сообщение от demond
У тебя в строке
Код:
if($use_socks) { $ua->proxy([qw(http https)] => 'socks://'.$socks); }
и в переменной $socks записано socks://, т.о. получается что адрес прокси начинается с socks://socks:// ! Может в этом косяк? Да да. тут я автоматом написал. подправил.
Но скрипт не работает. Почему не понимаю.Пожалуйста помогите!!!
|
|
|
|
09.04.2009, 14:07
|
|
Постоянный
Регистрация: 11.03.2008
Сообщений: 347
Провел на форуме:
2075230
Репутация:
462
|
|
Сообщение от constanta
Да да. тут я автоматом написал. подправил.
Но скрипт не работает. Почему не понимаю.Пожалуйста помогите!!!
почитай сначала чем отличаются socks и http proxy!
и темболее,
Код:
$ua->proxy([qw(http https)]
он работать не будет, хоть ты усрись!! :\ то же самое если бы ты в браузер сокс сунул.
Использование socks в LWP
Последний раз редактировалось ph1l1ster; 09.04.2009 в 14:11..
|
|
|
|
09.04.2009, 17:34
|
|
Познающий
Регистрация: 19.09.2007
Сообщений: 38
Провел на форуме:
424313
Репутация:
2
|
|
Сообщение от ph1l1ster
почитай сначала чем отличаются socks и http proxy!
и темболее,
Код:
$ua->proxy([qw(http https)]
он работать не будет, хоть ты усрись!! :\ то же самое если бы ты в браузер сокс сунул.
Использование socks в LWP
Вообще то я основывался на вот этом модуле
LWP::Protocol::socks;
LWP::Protocol::socks
И смотрел чекер вкантакта - там точно так же использовался такой же модуль. И я так понимаю успешно.
ХЕЛПППП!!!С меня на пиво гарантировано тому кто поможет разобраться.
|
|
|
|
09.04.2009, 18:24
|
|
Reservists Of Antichat - Level 6
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311
Репутация:
1676
|
|
Что именно не работает то? Может у тебя соксы хреновые
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
