[Perl] Lix In Decoder 0.1

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

#!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:



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



[+] 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