FTS Download Anitube

hacker fts315 · Qua Abr 24, 2013 9:16 pm

Moedas : 201

Mensagens : 92
Humor

Humor : *-*

Reputação : 5
Quebra de regras:

hacker fts315

Moderador Informática

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

esse script permite baixar os videos do anitube ^^

Código:: #!/usr/bin/perl #autor: hacker fts315 #contato: http://www.facebook.com/hacker.fts315 #data: 24/04/13 #obs: necessario o weget ################################################ #sintaxe: # -u url # -d download do video pelo wget # -v exibir o link do video (o link oculto para baixar por outros programas) # -f formato so existe dois mp4 e flv # -i info # -h help ############################ use WWW::Mechanize; use Getopt::Long; $fts = WWW::Mechanize->new; GetOptions("u=s"=>\$u,"f=s"=>\$f,"v"=>\$v,"d"=>\$d,"h"=>\$h,"i"=>\$i); slogan(); if(defined($h)) { print "\nsintaxe: \n\n" . "\t-u url\n" . "\t-d download video pelo wget\n" . "\t-v exibir o link do video (o link oculto para baixar por outros programas)\n" . "\t-f formato so existe dois mp4 e flv\n" . "\t-i info\n" . "\t-h ajuda\n\n\n". "exemplo:\n\n". "\tfts.pl -u http://www.anitube.se/video/40680/High-School-DxD-09 -f mp4 -d\n\n"; exit; } if(defined($i)) { print "\nautor: hacker fts315\n" . "contato: www.facebook.com/hacker.fts315\n" . "versao: 1.0\n". "data: 24/04/2013\n\n"; exit; } if(defined($u)) { $fts->get($u); @hack = $fts->content =~ /nuevo\/config.php\?key=(.*)'; var w=/i; $lol = "http://www.anitube.se/nuevo/playlist.php?key=" . $hack[0]; $fts->get($lol); if(defined($f)) { if ($f eq "mp4") { @anime = $fts->content =~ /<html5>(.*)<\/html5>/; } elsif($f eq "flv") { @anime = $fts->content =~ /<file>(.*)<\/file>/; } else { print "\nformato desconhecido\n"; } if(defined($v)) { print "\n"; print $anime[0]; print "\n\n"; } if(defined($d)) { $baixar = "wget " . $anime[0]; system($baixar); } } } else { print "\n\ndigite a sintaxe -h para ver ajuda\n\n"; } sub slogan { print "============================================\n" . " FTS Download Animetube\n". "============================================\n"; }