Forum Webscript.Ru

Программирование => Perl => Тема начата: SerPTP от 03 Апреля 2005, 23:18:55

Название: IRC + proxy
Отправлено: SerPTP от 03 Апреля 2005, 23:18:55

Как заставить заходить моего бота, через прокси на irc сервер?!

Заранее Благодарен!

Название: IRC + proxy
Отправлено: NeoNox от 04 Апреля 2005, 13:48:40

Спросить об этом автора, который написал этого бота.

Название: IRC + proxy
Отправлено: SerPTP от 04 Апреля 2005, 15:58:58

Дык я автор. =) Я его написал а теперь хочу чтобы он через прокси заходил, пытался сделать это разными способами, но все равно мой айпи виден =(

Название: IRC + proxy
Отправлено: NeoNox от 04 Апреля 2005, 17:15:08

Дык если ты автор, сообщи как происходит конект к серверу?
Или об этом я должен был догадаться?

Название: IRC + proxy
Отправлено: SerPTP от 04 Апреля 2005, 17:59:30

через сокет как еще =)
$Paddr = "irc.dal.net";
$Pport= 6667;
$socket = IO::Socket::INET->new(PeerAddr=>$Paddr,
           PeerPort=>$Pport,
       Proto =>"tcp",
      Type =>SOCK_STREAM) || die "Error:$!"

вот так и происходит а дальше идет подключение к каналу и т.д и т.п


А если ты спрашиваешь подключение к прокси серверу то я сначало пытался сделать подключение через сокет к прокси а потом к серверу Ирке но ни фига:

$socket = IO::Socket::INET->new(PeerAddr=>$адрес_прокси,
           PeerPort=>$порт_прокси,
       Proto =>"tcp",
      Type =>SOCK_STREAM) || die "Error:$!"
while ($socket)
{
$socket2 = IO::Socket::INET->new(PeerAddr=>$адрес_IRC,
           PeerPort=>$порт_IRC,
       Proto =>"tcp",
      Type =>SOCK_STREAM) || die "Error:$!"

}


ну еще много всяких подборок было но как я уже говорил все рафно мой айпи видно

Название: IRC + proxy
Отправлено: 2NetFly от 05 Апреля 2005, 00:17:43

http://search.cpan.org/search?query=SOCKS&mode=all

Название: IRC + proxy
Отправлено: SerPTP от 05 Апреля 2005, 15:59:26

2NetFly
Пасибо!