Исходное сообщение
"Socks In Perl" Отправлено chertyaka, 12-Май-07 00:10
А кто скажет как реализовать подключение через socks proxy? Вот создал я $socket через проксю на 110 порт pop.mailserver.com, а дальше? 1) Как послать USER vasya и PASS passw0rd через этот $socket и прочитать ответ от сервера? Пробовал слать таким образом: print $socket "USER vasya\n"; sysread ($socket,$buf,4096); - не прокатывает (или я чего-то не так делаю). 2) Решил использовать my $receiver = Mail::Transport::POP3->new(...) для верности. И снова тупик. А как вот этот $receiver пропихнуть через $socket? >>необходимо написать отправку писем через сокс сервер. Использую модуль Net::SOCKET:SOCKS >>Судя по докуменатции он возвращает обьект который потом можно использовать как обычный >>обьект класса Net::SOCKET. Тоесть я пишу (например) >> >>       my $socket = new IO::Socket::Socks(ProxyAddr=>'192.1.1.1', >>                                           ProxyPort=>'1111', >>                                           ConnectAddr=>'microsoft.com', >>                                           ConnectPort=>25, >>                                           SocksDebug=>1); >> >>        sysread ($socket,$buf,4096); >>        print $buf; >>

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> А кто скажет как реализовать подключение через socks proxy? > Вот создал я $socket через проксю на 110 порт pop.mailserver.com, а дальше? > 1) Как послать USER vasya и PASS passw0rd через этот $socket и > прочитать ответ от сервера? Пробовал слать таким образом: > print $socket "USER vasya\n"; sysread ($socket,$buf,4096); - не прокатывает (или я чего-то > не так делаю). > 2) Решил использовать my $receiver = Mail::Transport::POP3->new(...) для верности. И снова > тупик. А как вот этот $receiver пропихнуть через $socket? >>>необходимо написать отправку писем через сокс сервер. Использую модуль Net::SOCKET:SOCKS >>>Судя по докуменатции он возвращает обьект который потом можно использовать как обычный >>>обьект класса Net::SOCKET. Тоесть я пишу (например) >>> >>> my $socket = new IO::Socket::Socks(ProxyAddr=>'192.1.1.1', >>> ProxyPort=>'1111', >>> ConnectAddr=>'microsoft.com', >>> ConnectPort=>25, >>> SocksDebug=>1); >>> >>> sysread ($socket,$buf,4096); >>> print $buf; >>>
	Введите код, изображенный на картинке: