Foro - Perl en Español

Tengo el siguiente código :



Lo que pasa es que me devuelve código como esto :



Lo malo es que en todos los lenguajes de programación en que lo he hecho me devuelven este tipo de código.

¿ Por qué devuelve esto ? ¿ Hay alguna forma de ver el código fuente normal ?

Lo que estás viendo es el contenido de la página comprimida con el método gzip.

Prueba:

Esto es algo que se hace en la mayor parte de los servidores web, de forma automática: el usuario pide una página, el servidor lee la página desde su disco duro y la comprime en gzip y la envía. El navegador del usuario descomprime el archivo y la muestra en pantalla.

El objetivo es reducir el peso de la página (algo que es sencillo porque es básicamente texto) para que se transmita lo más rápidamente posible. Ya que tanto el emisor como el receptor tienen (hoy en día) procesadores potentes, el tiempo que se pierde en comprimir/descomprimir es menor que lo que se perdería si se transmitiese la página sin comprimir. Aunque actualmente hay líneas muy rápidas, el tráfico total crece mucho más rápido, y además, hay zonas del planeta con accesos mucho más lentos, así que este tipo de medidas siguen siendo necesarias.

Para que esto funcione, el cliente debe enviar en la cabecera HTTP una línea de este estilo:

Accept-Encoding: gzip,deflate,sdch

Cuando llega la petición al servidor, éste sabe que puede mandarle información comprimida, con esos métodos indicados.

Lo que tienes que hacer es mandar una petición al servidor que NO contenga esa cabecera. Por ejemplo:


Más información

Hola. Estoy haciendo un script para exploit db y normalmente me devuelve esto cuando lo cargo con LWP::UserAgent:



Cuando lo muestro con Perl hace el clásico efecto de \a\a\a varias veces y no veo el fuente.

¿ Alguien sabe qué es y cómo lo evito ?

¿No es el mismo problema que el comentado más arriba?

¡Uf!, ni me acordaba de ese mensaje, debes tener memoria de troll explorer, una pregunta: ¿cómo hago eso mismo que hiciste con LWP::Simple pero con LWP::UserAgent en mi script¿ ¿Lo hago sin el agent?

Puedes usar LWP::Simple porque está incluido junto con LWP::UserAgent en los módulos que acompañan a Perl.

Si miras el código fuente de LWP::Simple, verás que se puede importar la variable $ua que guarda el objeto LWP::UserAgent, así que sería algo así:

use LWP::Simple '$ua';

y ahora puedes hacer un

$ua->default_header('Accept-Encoding' => '');

y luego definir la cadena de agente, y ya tienes creado el objeto UserAgent. Ahora puedes hacer el get() del LWP::Simple.

Y si quieres hacerlo todo con LWP::UserAgent, solo necesitas agregar la línea anterior del Accept-Encoding (no probado).

Funciona a la perfección, explorer, gracias por la ayuda, el código raro que me estaba diciendo es que CloudFlare me bloqueó por cargarlos varias veces. Lo raro es que entro lo más bien desde cualquier navegador. Solo es con el script, probé cambiando el user agent pero el problema persiste. ¿ Alguna idea ?

Yo usaría CloudFlare::Client o Mojo::Cloudflare, o WebService::CloudFlare::Host

En la página de la API de CloudFlare se comenta que se puede interactuar con ellos por medio de POST usando LWP, en el caso de Perl. Los módulos indicados antes seguro que encapsulan la API en métodos, que luego hacen POST con LWP.

¿No habría una forma más sencilla como cambiando el referer o la IP o algo así ?

Lo que me devuelve es esto:


Lo bien raro es solo en esa parte de la página. Con el script mismo leo otras partes de la página sin problema alguno.

¿No era CloudFlare? Vaya lío.

Pues no, no sé cómo resolverlo (tampoco me he puesto a mirarlo, ahora estoy muy ocupado).

¿Has probado con Google? Seguro que alguien ya lo ha intentado antes. Otra cosa es que lo haya contado.