POE :: Composant :: Proxy :: Chaussettes Un serveur de proxy basé sur POE 4
Télécharger maintenant

POE :: Composant :: Proxy :: Chaussettes Classement & Résumé

POE :: Composant :: Proxy :: Chaussettes Mots clés

Procuration Serveur proxy Chaussettes Poe POE Component SOCKS4 Proxy

POE :: Composant :: Proxy :: Chaussettes La description

SOCKS BASE POE 4 Server Proxy POE :: Composant :: Proxy :: Socks est un module Perl qui implémente un serveur proxy de la version 4 / 4A de SOCKS. Il a des contrôles d'accès basés sur l'adresse IP, fournis par Netmask, et peut utiliser l'IDEN pour confirmer davantage l'identité de l'utilisateur. Les sessionsPOE peuvent s'inscrire au composant Socks pour recevoir des événements relatives aux connexions, etc.Le Poco prend en charge les chaussettes et les chaussettes Les commandes.synopsis utilisent strict; Utiliser Net :: Netmask; Utilisez POE QW (Composant :: Proxy :: Chaussettes); $ | = 1; POE :: session-> créer (paquet_states => ,],],); $ poe_kernel-> exécuter (); sortie 0; Sub _start {My ($ Kernel, $ tas) = @_ ; $ tas -> {socksd} = POE :: Composant :: Proxy :: Chaussettes-> Spawn (alias => 'Socksd', Ident => 0); retourner; } sub socksd_register {My $ socksd = $ _ ; mon $ tout = net :: netmask-> new2 ('tout'); mon $ loopback = net :: netmask-> new2 ('127.0.0.1'); My $ local = Net :: Netmask-> New2 ('192.168.1.0/24'); $ socksd-> add_denial ($ tout); $ socksd-> add_exemption ($ loopback); $ socksd-> add_exemption ($ local); retourner; } sub _default {mon ($ événement, $ args) = @_ ; mon @Output = ("$ événement:"); foreach mon $ arg (@ $ args) {if (ref ($ arg) eq 'array') {poussez (@output, ""); } else {poussez (@Output, "'$ arg'"); }} Imprimer STDOUT JOIN '', @OutPut, "\ n"; retour 0; } Exigences: · Perl

POE :: Composant :: Proxy :: Chaussettes Logiciels associés