ubiquitour.com

Cómo utilizar un túnel LWP UserAgent

LWP::UserAgent es un módulo de Perl que permite crear scripts que intentan conectarse a un host remoto mediante el uso de un agente de usuario específico. Una de las características de LWP::UserAgent es su capacidad para gestionar túneles, que son las conexiones iniciadas a través de un servidor proxy. Puede utilizar un túnel para conectar a un sitio remoto con LWP::UserAgent editando el código fuente de su script.

Instrucciones

1 Abrir el código fuente del script de Perl LWP::UserAgent en un editor dedicado o en un editor de texto estándar como Bloc de notas.

2 Entrar en el siguiente fragmento de código a código de fuente de la aplicación, antes de que el programa intenta iniciar cualquier conexión:

mi $proxy = Net::Proxy -> () nuevo

{ in => { type => 'tcp', port => $port, host => $CONF{'local-only'} ? 'localhost' : '0.0.0.0', }, out => { type => 'connect', host => $outhost, port => $outport, proxy_host => $proxyhost, proxy_port => $proxyport, proxy_agent => $CONF{'user-agent'}, @{ $CONF{'proxy-authentication'} }, }, } );

$proxy -> register();

3 Reemplace "outhost" con el nombre de host del servidor de que la secuencia de comandos debe conectarse y "outport" con su número de puerto. Editar "proxyhost" y "proxyport" sustituyendo, respectivamente, con el nombre de host y puerto serie de su proxy.

4 Guarde el archivo. Ahora puede utilizar la variable "$proxy" para iniciar una conexión con el sitio remoto.