Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Веб-программирование > Perl
Перезагрузить страницу Как реализовать последовательность perl + Socket + прокси
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
BigMazy
Guest
 
Сообщений: n/a
По умолчанию Как реализовать последовательность perl + Socket + прокси - 04.11.2008, 15:58

Добрый день! Появилась проблема - не получается решить.

Использую сокеты (модуль Socket) для получения данных whois.
Запросы отправляются в ripn на 43 порт.

Необходимо подключить сокет через прокси-сервер.
Как это сделать, у меня не получается.

Буду рад помощи!!!


В интернете нашел подобный код, но на пхп. Переписать его на перл не получается:

Код:
 // socks_connect( proxy_host, proxy_port, destination_host, destination_port )
function socks_connect($host, $port, $dh, $dp)
{
  $f = fsockopen($host, $port) or die("Can't connect to proxy");
  $h = gethostbyname($dh);
  preg_match("#(\d+)\.(\d+)\.(\d+)\.(\d+)#", $h, $m);
  fwrite($f, "\x05\x01\x00");
  $r = fread($f, 2);
  if(!( ord($r[0])==5 and ord($r[1])==0))
    die("Invalid SOCKS reply");
  fwrite($f, "\x05\x01\x00\x01" . chr($m[1]).chr($m[2]).chr($m[3]).chr($m[4]).chr($dp/256).chr($dp%256));
  $r = fread($f, 10);
  if(!( ord($r[0])==5 and ord($r[1])==0))
    die("Invalid SOCKS reply");
  return $f;
}
Ответить с цитированием
Ads
Ответ

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

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Продажа прокси imported_neti Софт и программы 0 14.04.2011 00:45
socket 1156 VS socket 1155 lalala Любые вопросы от новичков 17 25.01.2011 17:28
Требуется web-программист (Perl или PHP, готовый переучиться на Perl). офис в Казани uCoz Работа 0 25.01.2011 16:41
Нас прокси не проведешь... crack Любые вопросы от новичков 0 02.12.2010 00:05
Post/Get запросы черех прокси сервер как реализовать indigon Java 1 15.06.2010 10:51
Посоветуйте прокси. nick19902 Сетевые подключения 0 12.11.2008 21:39
Сжимающий прокси сервер как реализовать Fuud Мысли вслух 12 17.08.2007 22:55
Написанный скрипт не работает Socket Perl harakiry Perl 1 03.05.2007 06:17
Аутентификация на прокси North Сетевое программирование 1 11.05.2006 17:27
Как реализовать perl+xsl+кодировка Евгения Perl 1 07.07.2005 21:02
Задача: Последовательность как реализовать oleg88kpuk Алгоритмы 0 09.03.2005 21:10



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов