The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"Socks In Perl"
Вариант для распечатки  
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [Проследить за развитием треда]

"Socks In Perl"  
Сообщение от Raist (??) on 01-Окт-06, 19:25 
необходимо написать отправку писем через сокс сервер. Использую модуль 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;

И на экран должно вывести нечто вроде
220 Welcomo to Bill SMTP Server
Если конечно все нормально создалось (ну положим у нас есть проверка сокета на undef)
...Короче говоря нифига не работает :) Сокет создается, но ничего из него не читает  :((
Почему и что делать? Может этот модуль нормально не работает и нужно воспользоватся другим? Подскажите хотя бы в какую сторону копать плз....


Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

 Оглавление

  • Socks In Perl, Raist, 19:28 , 01-Окт-06, (1)  
  • Socks In Perl, Kuzik, 10:04 , 30-Янв-07, (2)  
    • Socks In Perl, chertyaka, 00:10 , 12-Май-07, (3)  

Сообщения по теме [Сортировка по времени, UBB]


1. "Socks In Perl"  
Сообщение от Raist (??) on 01-Окт-06, 19:28 
Еще такой вариант, может сокс не может установить соединение с удаленным хостом? Или тогда бы вообще сокет не создался? Как это можно проверить вообще ?
Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

2. "Socks In Perl"  
Сообщение от Kuzik email on 30-Янв-07, 10:04 
Ты коннектишься к билли на почту. Он ее не любит.
Поставь адрес реального сервера и сервиса.

>необходимо написать отправку писем через сокс сервер. Использую модуль 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;
>
>И на экран должно вывести нечто вроде
>220 Welcomo to Bill SMTP Server
>Если конечно все нормально создалось (ну положим у нас есть проверка сокета
>на undef)
>...Короче говоря нифига не работает :) Сокет создается, но ничего из него
>не читает  :((
>Почему и что делать? Может этот модуль нормально не работает и нужно
>воспользоватся другим? Подскажите хотя бы в какую сторону копать плз....


Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

3. "Socks In Perl"  
Сообщение от chertyaka email on 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;
>>

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]




Спонсоры:
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2022 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру