Poe :: Componente :: Proxy :: Meias

um servidor de proxy de meias baseadas em PoE
Baixe Agora

Poe :: Componente :: Proxy :: Meias Classificação e resumo

Propaganda

  • Rating:
  • Licença:
  • Perl Artistic License
  • Preço:
  • FREE
  • Nome do editor:
  • Chris Williams
  • Site do editor:
  • http://search.cpan.org/~bingos/

Poe :: Componente :: Proxy :: Meias Tag


Poe :: Componente :: Proxy :: Meias Descrição

Um servidor de proxy de meias baseadas em PoE Poe :: Component :: Proxy :: Socks é um módulo Perl que implementa um servidor proxy da versão 4 / 4A da SOCKS. Tem controles de acesso baseado em endereços IP, fornecido pela Net :: Netmask e pode usar identificar para confirmar ainda mais as sessões do User Identity.poe podem se registrar no componente Socks para receber eventos relacionados às conexões, etc.O Poco suporta ambas as meias se conectam e as meias se ligam comandos.synopsis usam rigoroso; Use Net :: Netmask; Use PoE QW (Componente :: Proxy :: Socks); $ | = 1; Poe :: Session-> Create (Package_States => ,]; $ poe_kernel-> correr (); saída 0; sub _start {my ($ kernel, $ heap) = @_ ; $ heap -> {socksd} = poe :: componente :: proxy :: meias-> spawn (alias => 'socksd', ident => 0); Retorna; } Sub Socksd_Registared {My $ Socksd = $ _ ; Minha $ ALL = NET :: Netmask-> New2 ('qualquer'); Meu $ loopback = Net :: Netmask-> New2 ('127.0.0.0.1'); Meu $ Local = Net :: Netmask-> New2 ('192.168.1.0/24'); $ Socksd-> Add_denial ($ ALL); $ Socksd-> Add_Exemption ($ loopback); $ Socksd-> Add_Exemption ($ local); Retorna; } sub _default {my ($ event, $ args) = @_ ; meu @Output = ("$ Event:"); foreach my $ arg (@ $ args) {if ($ arg) eq 'array') {push (@Output, "[". Junte ("", @ $ arg) "); } else {push (@Output, "$ arg" "); }} Imprimir STDOUT Junte-se '', @Output, "\ n"; return 0; } Requisitos: · Perl.


Poe :: Componente :: Proxy :: Meias Software Relacionado

Sobre nós