#!usr/bin/perl#Lix.In Decoder 0.1#Coded By Doddy Huse 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 ?
@ @ @ @@@@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@ @ @ @@@ @@@ @@@ @@@@ @@@ @@ @ @ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@ @ @ @ @ @ @@@@@ @ @ @ @ @ @@@@@ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@@@@ @ @ @ @ @ @ @@@@ @@@ @@@ @@@ @@@@ @@@ @[+] 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.S02E15.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%2BLips%2B%255BSasagawa%2BHayashi%255D.rar/[+] Link : http://protector.to/download/296576/66637b4defe247e6b465c15b6daadb88.html[+] Link : http://rapidshare.com/files/222173802/Hiroshima_Will_Burn_-_To_The_Weight_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.org.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/files/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.seriesfree.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_Office.rar(C) Doddy Hackman 2012