Форум успешных вебмастеров - GoFuckBiz.com

  Форум успешных вебмастеров - GoFuckBiz.com > Бизнес-решения > Скрипты, программы и технические решения
Дата
USD/RUB58.8960
BTC/USD0.0000
Скрипты, программы и технические решения Обсуждаем скрипты, программы и новые технологии.

Закрытая тема
Опции темы Опции просмотра
Старый 05.01.2010, 02:05   #1
y4b53
:(
 
Аватар для y4b53
 
Регистрация: 25.11.2008
Сообщений: 733
Бабло: $89197
По умолчанию perl и сокс5

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


Offtopic

Последний раз редактировалось y4b53; 05.01.2010 в 02:37.
y4b53 вне форума  
Старый 05.01.2010, 13:41   #2
Foma
Кролик
 
Аватар для Foma
 
Регистрация: 15.08.2007
Сообщений: 297
Бабло: $37345
По умолчанию

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


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

ЗЫ(с сокс4 легче, но не помню его рфц)
Foma вне форума  
Старый 05.01.2010, 14:12   #3
durman
Senior Member
 
Аватар для durman
 
Регистрация: 06.02.2008
Сообщений: 315
Бабло: $91645
По умолчанию

если на перле конектишься через LWP (как делает большенство) , то тебе поможет модуль LWP::Protocol::socks
durman вне форума  
Старый 05.01.2010, 15:18   #4
y4b53
:(
 
Аватар для y4b53
 
Регистрация: 25.11.2008
Сообщений: 733
Бабло: $89197
ТС -->
автор темы ТС По умолчанию

Цитата:
Сообщение от durman Посмотреть сообщение
если на перле конектишься через LWP (как делает большенство) , то тебе поможет модуль LWP::Protocol::socks
А пример можно, как подконектиться к любому сайту и вывести контент ?
y4b53 вне форума  
Старый 05.01.2010, 19:13   #5
y4b53
:(
 
Аватар для y4b53
 
Регистрация: 25.11.2008
Сообщений: 733
Бабло: $89197
ТС -->
автор темы ТС По умолчанию

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

Код:
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();
}
y4b53 вне форума  
Старый 05.01.2010, 20:31   #6
qq-
Юниор
 
Регистрация: 16.02.2009
Сообщений: 6
Бабло: $1180
По умолчанию

очевидно запрос

вместо "clintdw\n";
надо написать полностью хттп-запрос.
qq- вне форума  
Старый 05.01.2010, 20:42   #7
ikpwl
Member
 
Регистрация: 10.04.2009
Сообщений: 58
Бабло: $6805
Отправить сообщение для ikpwl с помощью ICQ
По умолчанию

я бы посоветовал юзать WWW::Curl

никаких шаманств, всё просто и понятно...
ikpwl вне форума  
Старый 05.01.2010, 21:13   #8
qq-
Юниор
 
Регистрация: 16.02.2009
Сообщений: 6
Бабло: $1180
По умолчанию

http://search.cpan.org/~scr/LWP-Prot...tocol/socks.pm

тут даже пример есть
qq- вне форума  
Старый 05.01.2010, 21:31   #9
y4b53
:(
 
Аватар для y4b53
 
Регистрация: 25.11.2008
Сообщений: 733
Бабло: $89197
ТС -->
автор темы ТС По умолчанию

ikpwl
Где под виндоус найти этот курл ? с расширение ppd и как там с соксами работать?

qq-

Не могу найти LWP::Protocol:Socks по вин =\
y4b53 вне форума  
Старый 05.01.2010, 23:24   #10
xxxio
Юниор
 
Аватар для xxxio
 
Регистрация: 08.11.2009
Сообщений: 25
Бабло: $4565
Отправить сообщение для xxxio с помощью ICQ
По умолчанию

а в этом нет?
http://www.denwer.ru/packages/perl.html
__________________
3D Trade
xxxio вне форума  
Закрытая тема



Опции темы
Опции просмотра