Io :: soquete :: meias

fornece uma maneira de criar cliente de meias ou servidor ambos 4 e 5 versão
Baixe Agora

Io :: soquete :: meias Classificação e resumo

Propaganda

  • Rating:
  • Licença:
  • Perl Artistic License
  • Preço:
  • FREE
  • Nome do editor:
  • Oleg G.
  • Site do editor:
  • http://search.cpan.org/~oleg/

Io :: soquete :: meias Tag


Io :: soquete :: meias Descrição

Io :: Socket :: Socks é um módulo Perl que se conecta a um proxy de meias, diz para abrir uma conexão com um host / porta remota quando o objeto é criado. O objeto que você recebe pode ser usado diretamente como um soquete para envio e recebimento de dados do host remoto. Além de criar o cliente Socks, este módulo pode ser usado para criar o servidor Socks. Veja exemplos abaixo.SynopsiClient Use io :: soquete :: meias; Meus $ SOCKS = NOVO IO :: Socket :: Socks (ProxyAddr => "Proxy Host", Proxyport => "Porta Proxy", ConnectAddR => "Host Remoto", Connectport => "Porta remota",); imprimir $ meias "foo \ n"; $ meios-> fechar (); servidor Use io :: soquete :: meias ': constantes'; Meu $ SOCKS_SERVER = NOVO IO :: Socket :: meias (proxyaddr => "localhost", proxyport => "8000", ouça => 1, userauth => \ auth, requireuth => 1); Meu $ SELECT = NOVO IO :: SELECT ($ SOCKS_SERVER); while (1) {if ($ select-> can_read ()) {my $ client = $ socks_server-> aceitar (); Se (! Definido ($ Cliente)) {Imprimir "Erro: $ Socks_Error \ n"; Next; } Meu $ Command = $ Client-> comando (); if ($ Command -> == cmd_connect) {# Lidar com o conectar $ client-> command_reply (reply_success, addr, porta); } ... #read do cliente e enviar para o endereço de conexão ... $ client-> fechar (); }} Sub auth {My $ User = Shift; Meu $ PASS = Shift; return 1 if (($ user eq "foo") ($ pass de eq "bar")); return 0; } Homepage do produto


Io :: soquete :: meias Software Relacionado

Sobre nós