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
#!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
@ @ @ @@@@ @
@ @ @ @ @
@ @ @ @ @
@ @ @ @ @ @ @@ @ @ @@@ @@@ @@@ @@@@ @@@ @@
@ @ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @@ @ @ @ @ @ @@@@@ @ @ @ @ @ @@@@@ @
@ @ @@ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@@@@@ @ @ @ @ @ @ @@@@ @@@ @@@ @@@ @@@@ @@@ @
[+] 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&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&s=104857
[+] Link : http://rapidshare.com/files/183553695/Anita_Pearl_Little_Red_In_The_O
ffice.rar
(C) Doddy Hackman 2012
