seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^

Você não está conectado. Conecte-se ou registre-se

 » Otaku » Abertura / Musica / Diversos » [source] FTS Download Anitube

[source] FTS Download Anitube

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1 [source] FTS Download Anitube em Qua Abr 24, 2013 8:48 pm

Kodo no Kami

avatar
master
master
[Você precisa estar registrado e conectado para ver 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";
}


_________________ASSINATURA_________________
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

Contato:
Spoiler:

Contato:
Facebook: [Você precisa estar registrado e conectado para ver este link.]
Skype: hackerfts315
http://endoffile.umforum.net

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum