perl и сокс5 - Форум успешных вебмастеров

y4b53 · 05.01.2010, 02:05

Спалите как юзать соксы в Perl ?
Как закконектиться например к ya.ru и вывести контент ?
Сутки ищу немогу найти, нашел только с Net::SOCKS, но немогу его найти под виндоус...

Foma · 05.01.2010, 13:41

-Кури ман по rfc1928
-Создавай IO::Socket и проходи весь этап описанный в рфц
(а точнее):
--- Посылаешь 0500
--- Принимаешь 0500
--- Посылаешь 05000100IPPORT
---Принимаешь 05000100IPPORT
--- Это все если сокс без авторизации и т.д....

-Далее работай как с обычным сокетом(send\recv)

ЗЫ(с сокс4 легче, но не помню его рфц)

durman · 05.01.2010, 14:12

если на перле конектишься через LWP (как делает большенство) , то тебе поможет модуль LWP::Protocol::socks

y4b53 · 05.01.2010, 15:18

Цитата:

Сообщение от durman

если на перле конектишься через LWP (как делает большенство) , то тебе поможет модуль LWP::Protocol::socks

А пример можно, как подконектиться к любому сайту и вывести контент ?

y4b53 · 05.01.2010, 19:13

Так вроде разобрался но почему-то не дергает урлы функция, а заходит на ип сервера , что не верно?

Код:

my $sock = new Net::SOCKS(socks_addr => '123.123.123.123',
          socks_port => 9671,
          protocol_version => 5);
my $f= $sock->connect(peer_addr => '2ip.ru', peer_port => 80);
print "connect status: ",
     Net::SOCKS::status_message($sock->param('status_num')), "\n";

if ($sock->param('status_num') == SOCKS_OKAY) {
  print $f "clintdw\n";
  while (<$f>) { print }
  
  $sock->close();
}