sábado, 24 de enero de 2015

Verificación Anti-Spam ? - Hell no !

Revisaba unas páginas locales, mas específicamente una revista y me llamo la atención esta "suerte" de captcha. [ Imagen ]



Vemos que el patrón del captacha no debiera ser muy difícil de sortear con un poco de captcha recognition o OpenCV pero veamos el source:

UPS!:



El Captcha esta en texto plano en el source.

Entonces podemos automatizar y SPAMEAR al objetivo sin problema no?

Para obtener el captcha:[ Perl ]





#!/usr/bin/perl

#blog.xshinee.cl
#@shinee_

    use LWP::UserAgent;
    use strict;


    print "## Explointing...\n";
    my $baseUrl="http://URLDESTINO";

            my $dato = &httpGet($baseUrl);
            while ( $dato =~ m!(.*?)!ig){
                    my $rg = $1;
                    my @data = split(/\+/, $rg);

my $FinalCaptcha = @data[1]+@data[2]+@data[3] ;
print " Este es el captcha $FinalCaptcha\n" ;

};



    sub httpGet{
    my $url = shift;
    my $navegador = new LWP::UserAgent;
    $navegador -> agent ("Internet of Things? - Labs");
    my $req = HTTP::Request -> new (GET => $url);
    my $respuesta = $navegador -> request ($req);
    my $contenido = $respuesta ->as_string;
    return $contenido;
    }
___

Solo queda agregar un par de lineas en el código para que haga el la petición POST y mande el comentario cada cierto tiempo que queramos.



:)