• Inicio
  • Buscar
  • Ingresar
  • Registrarse

    Starfield: el juego que revolucionará el espacio y la tecnología

    • Hack x Crack - Comunidad de Seguridad informática »
    • Programación »
    • Scripting »
    • Perl »
    • [Perl] Lix In Decoder 0.1
    • Imprimir
    Páginas: [1]   Ir Abajo

    Autor Tema: [Perl] Lix In Decoder 0.1  (Leído 1920 veces)

    Desconectado BigBear

    • { L5 } Smurf
    • *****
    • Mensajes: 594
      • Ver Perfil
    [Perl] Lix In Decoder 0.1
    « en: Marzo 26, 2012, 07:48:02 pm »
    Bueno , hice este programa para poder descargar juegos cuando entraba en una pagina y veia que todos los links estaban en lix.in , para usar este programa deben poner la url de la pagina que tiene los links lix.in , el programa automaticamente captura todos los links de la pagina y comienza a mostrar las verdaderas urls en pantalla.
    Al parecer no eh tenido ningun problema con ningun Captcha , puesto que lo eh probado varias veces en diferentes paginas.

    El codigo es el siguiente

    Código: [Seleccionar]
    #!usr/bin/perl
    #Lix.In Decoder 0.1
    #Coded By Doddy H

    use LWP::UserAgent;
    use URI::Split qw(uri_split);

    my $nave = LWP::UserAgent->new;
    $nave->agent(
    "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
    );
    $nave->timeout(5);

    #Tests
    #my $url = "http://taringaa.bligoo.com/content/view/858363/Comand-Conquer-Red-Alert-III-Full-1-link.html";
    #my $url = "http://www.taringa.net/posts/animaciones/4164567.R/Saint-Seiya-Mei_-Hades-ElysionHen_Campos-Eliseos_-Vol-10_11.html";
    #my $url = "http://www.gratisjuegos.org/descargar/muchos-juegos-en-pocos-links/";
    #my $url = "http://eminemdownloads.blogspot.com.ar/2007/03/discografia.html";

    ##

    header();

    print "\n[+] Page : ";
    chomp( my $url = <stdin> );

    print "\n\n[+] Loading page ...\n";

    my $code = toma($url);

    print "[+] Getting links ...\n";

    while ( $code =~ m{http://lix\.in/(-\w+)}ig ) {
        push( @urls, "http://lix.in/" . $1 );
    }

    while ( $code =~ m{http://lix\.in/(\w+)}ig ) {
        push( @urls, "http://lix.in/-" . $1 );
    }

    print "[+] Decoding links lix.in ....\n\n";

    my @urls = repes(@urls);

    for (@urls) {
        decode_link( $_, $url );
    }

    copyright();

    ##

    sub decode_link {

        my ( $link, $url ) = @_;

        my ( $scheme, $auth, $path, $query, $frag ) = uri_split($url);

        if ( $link =~ /-(.*)/ ) {
            my $co = "-" . $1;
            chomp $co;
            my $code =
              tomar( $link,
                { "tiny" => $co, "submit" => "continue", "submit" => "submit" } );
            if ( $code =~ /<iframe  name="ifram" src="(.*)" marginwidth="0"/ ) {
                my $link = $1;
                chomp $link;
                unless ( $link =~ /lix\.in/ ) {
                    savefile( $auth . ".txt", $link );
                    print "[+] Link : $link\n";
                }
            }
        }
    }

    sub repes {
        foreach $test (@_) {
            push @limpio, $test unless $repe{$test}++;
        }
        return @limpio;
    }

    sub header {

        print qq(


     @     @         @           @@@@                          @         
     @               @           @   @                         @         
     @               @           @    @                        @         
     @     @ @  @    @  @ @@     @    @   @@@   @@@   @@@   @@@@  @@@  @@
     @     @ @  @    @  @@  @    @    @  @   @ @   @ @   @ @   @ @   @ @
     @     @  @@     @  @   @    @    @  @@@@@ @     @   @ @   @ @@@@@ @
     @     @  @@     @  @   @    @    @  @     @     @   @ @   @ @     @
     @     @ @  @    @  @   @    @   @   @   @ @   @ @   @ @   @ @   @ @
     @@@@@ @ @  @    @  @   @    @@@@     @@@   @@@   @@@   @@@@  @@@  @


    );

    }

    sub savefile {
        open( SAVE, ">>" . $_[0] );
        print SAVE $_[1] . "\n";
        close SAVE;
    }

    sub copyright {
        print "\n\n(C) Doddy Hackman 2012\n\n";
        <stdin>;
        exit(1);
    }

    sub toma {
        return $nave->get( $_[0] )->content;
    }

    sub tomar {
        my ( $web, $var ) = @_;
        return $nave->post( $web, [ %{$var} ] )->content;
    }

    # The End ?

    Les dejo un ejemplo de uso

    Código: [Seleccionar]


     @     @         @           @@@@                          @
     @               @           @   @                         @
     @               @           @    @                        @
     @     @ @  @    @  @ @@     @    @   @@@   @@@   @@@   @@@@  @@@  @@
     @     @ @  @    @  @@  @    @    @  @   @ @   @ @   @ @   @ @   @ @
     @     @  @@     @  @   @    @    @  @@@@@ @     @   @ @   @ @@@@@ @
     @     @  @@     @  @   @    @    @  @     @     @   @ @   @ @     @
     @     @ @  @    @  @   @    @   @   @   @ @   @ @   @ @   @ @   @ @
     @@@@@ @ @  @    @  @   @    @@@@     @@@   @@@   @@@   @@@@  @@@  @



    [+] Page : http://www.gratisjuegos.org/descargar/muchos-juegos-en-pocos-links/


    [+] Loading page ...
    [+] Getting links ...
    [+] Decoding links lix.in ....

    [+] Link : http://www.fileserve.com/file/4UauNpZ
    [+] Link : http://www.megaupload.com/?d=JDJOXNCG
    [+] Link : http://www.megaupload.com/?d=DOIPB44O
    [+] Link : http://turbobit.net/u1savmp0dp82/BaixandoFacil.com_Raising.Hope.S02E1
    5.rmvb.html
    [+] Link : http://www.megaupload.com/?d=TWZXM4OA
    [+] Link : http://rapidshare.com/files/326639218/mmph.rar
    [+] Link : http://uploading.com/files/8m55a3e9/Hitomi%2527s%2BCherry%2BRed%2BLip
    s%2B%255BSasagawa%2BHayashi%255D.rar/
    [+] Link : http://protector.to/download/296576/66637b4defe247e6b465c15b6daadb88.
    html
    [+] Link : http://rapidshare.com/files/222173802/Hiroshima_Will_Burn_-_To_The_We
    ight_Of_All_Things_-__2009__By_Disgorge.rar
    [+] Link : http://www.megaupload.com/?d=ILUL67F0
    [+] Link : http://rapidshare.com/files/168921368/Ab_-_2006_-_T_D_P_-_melodeath.o
    rg.rar
    [+] Link : http://rapidshare.com/files/206107948/aHD_GArt_1_LuFr_wm.part1.rar
    [+] Link : http://rapidshare.com/files/144375887/B.WoLF.MtbX.part07.rar
    [+] Link : http://rapidshare.com/files/202336513/Die__rzte__Wir_wollen_nur_deine
    _Seele_I_.rar.html
    [+] Link : http://rapidshare.com/files/310131228/ls_cta_01.part1.rar
    [+] Link : http://rapidshare.com/files/117343572/georemichahshootdo.rar
    [+] Link : http://www.megaupload.com/?d=3JGC8I3J
    [+] Link : http://repidshare.uni.cc/up/files.php?rs=http://rs.rapidshare.com/fil
    es/121698550/www.xvidfilm.com_shtrr.HD.tr_barlas.part22.rar&amp;s=
    [+] Link : http://rapidshare.com/files/379279204/bndpq__smscl_rmntcincrble.karma
    .rar
    [+] Link : http://www.megaupload.com/?d=ES5U6KVW
    [+] Link : http://turbobit.net/hxombgi9wguf.html
    [+] Link : http://hotfile.com/dl/38699729/4dbfbdf/Brothers.Sisters.2x01.by.www.s
    eriesfree.biz.rmvb.html
    [+] Link : http://www.filesonic.jp/file/1542896624
    [+] Link : http://rapidshare.com/files/251767677/Knowing_Blurayindir.com.part122
    .rar
    [+] Link : http://img199.imageshack.us/img199/5452/lastsamurai.jpg
    [+] Link : http://www.megaupload.com/?d=AAG4X8X2
    [+] Link : http://ul.to/8hkfdh
    [+] Link : http://hotfile.com/dl/594136/1934718/My.Name.Is.Earl.S04E24.HDTV.XviD
    -LOL.avi.html
    [+] Link : http://hotfile.com/dl/31792875/9882fa9/chandelier_jpn.rar.html
    [+] Link : http://www.megaupload.com/?d=PV6BJMHJ
    [+] Link : http://rapidshare.com/files/163195270/the_killers.rar
    [+] Link : http://repidshare.uni.cc/up/files.php?rs=http://rs110.rapidshare.com/
    files/88759448/TamGaz.part5.rar&amp;s=104857
    [+] Link : http://rapidshare.com/files/183553695/Anita_Pearl_Little_Red_In_The_O
    ffice.rar


    (C) Doddy Hackman 2012
    En línea

    Desconectado ACK

    • { L7 } Juanker
    • *******
    • Mensajes: 1611
    • La piratería es un crimen. No ataque barcos.
      • Ver Perfil
    Re:[Perl] Lix In Decoder 0.1
    « Respuesta #1 en: Marzo 26, 2012, 08:24:08 pm »
    Wow, buen trabajo ;D
    En línea
    El guerrero de la luz a veces actúa como el agua, y
    fuye entre los obstáculos que encuentra. En ciertos
    momentos, resistir signifca ser destruido; entonces,
    él se adapta a las circunstancias.
    En esto reside la fuerza del agua. Jamás puede ser
    quebrada por un martillo, ni herida por un cuchillo. La
    más poderosa espada del mundo es incapaz de dejar una
    cicatriz sobre su superfcie.
     Paulo Coelho

    • Imprimir
    Páginas: [1]   Ir Arriba
    • Hack x Crack - Comunidad de Seguridad informática »
    • Programación »
    • Scripting »
    • Perl »
    • [Perl] Lix In Decoder 0.1
     

    • SMF | SMF © 2013, Simple Machines
    • XHTML
    • RSS
    • WAP2
    Va un mudo y le dice a un sordo: Hack x Crack usa cookies. Pues eso... Learn more