1 FTS Download Anitube v1.1 Qui maio 02, 2013 10:00 pm
Moedas : 201
Mensagens : 92
Humor : *-*
Reputação : 5
Mensagens : 92
Humor : *-*
Reputação : 5
hacker fts315
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
atualizaçao do script, essa nova versao tem a sintaxe -i que mostra informaçao do anime, sintaxe -o q salva o arquivo com outro nome, sintaxe -s salva a pagina,
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
atualizaçao do script, essa nova versao tem a sintaxe -i que mostra informaçao do anime, sintaxe -o q salva o arquivo com outro nome, sintaxe -s salva a pagina,
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
- Código:
#!/usr/bin/perl
#autor: hacker fts315
#contato: http://www.facebook.com/hacker.fts315
#versao: 1.1
#data: 24/04/13
#update: 02/05/2013
#obs: necessario o wget
################################################
#sintaxe:
#
# -i info do anime
# -u * url do video (* url)
# -d download video pelo wget
# -v mostra o link oculto do video
# -f * formato so existe dois mp4 e flv (* formato)
# -o * muda o nome do arquivo de saida (* nome do arquivo)
# -s * salva a pagina html (* nome do arquivo html)
# -h ajuda
############################
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,"s=s"=>\$s,"o=s"=>\$o);
slogan();
if(defined($h))
{
print "autor: \n\n" .
" coder: hacker fts315\n" .
" face: www.facebook.com/hacker.fts315\n\n" .
"sintaxe: \n\n" .
" -i info do anime\n" .
" -u * url do video (* url)\n" .
" -d download video pelo wget\n" .
" -v mostra o link oculto do video\n" .
" -f * formato so existe dois mp4 e flv (* formato)\n" .
" -o * muda o nome do arquivo de saida (* nome do arquivo)\n" .
" -s * salva a pagina html (* nome do arquivo html)\n" .
" -h ajuda\n\n".
"exemplos:\n\n".
" perl fts.pl -u http://www.anitube.se/video/40680/High-School-DxD-09 -f mp4 -d\n" .
" perl fts.pl -u http://www.anitube.se/video/40680/High-School-DxD-09 -f mp4 -v\n" .
" perl fts.pl -u http://www.anitube.se/video/40680/High-School-DxD-09 -i\n\n";
exit;
}
if(defined($u))
{
$fts->get($u);
@hack = $fts->content =~ /nuevo\/config.php\?key=(.*)'; var w=/i;
$ = "http://www.anitube.se/nuevo/playlist.php?key=" . $hack[0];
if(defined($s))
{
$fts->save_content($s . ".html");
}
if(defined($i))
{
print "\n";
@inf_nome = $fts->content =~ /<h1 class="mainBoxHeader">(.*)<\/h1>/im;
@inf_uploader = $fts->content =~ /href="http:\/\/www.anitube.se\/users\/(.*)">/im;
@inf_adicionado = $fts->content =~ /<p class="viewVideoText">Adicionado.*class="textGlow">(.*)<\/span><\/p>/im;
@inf_tempo = $fts->content =~ /class="viewVideoText">Dura.*<span class="textGlow">(.*)<\/span><\/p>/im;
@inf_categoria = $fts->content =~ /href="(http:\/\/www.anitube.se\/categories\/.*)">/im;
push(@inf_categoria,$inf_categoria[0] =~ /http:\/\/www.anitube.se\/categories\/\d+\/(.*)/);
@inf_desc1 = $fts->content =~ /<li class="videoDesc">(.*)<\/li>.*<li class="videoRate">.*<div id="voteProcess">/is;
push(@inf_desc1,$inf_desc1[0] =~ /(\w.*\w)/);
$fts->get($inf_categoria[0]);
@inf_desc2 = $fts->content =~ /<p class="catDesc">(.*)<\/p>.*<\/li>.*<\/ul>/ism;
print "nome: " . $inf_nome[0] . "\n";
print "categoria: " . $inf_categoria[1] . "\n";
print "tempo: " . $inf_tempo[0] . "\n";
print "uploader: " . $inf_uploader[0] . "\n";
print "adicionado: " . $inf_adicionado[0] . "\n\n";
print "descricao 1: " . $inf_desc1[1] . "\n\n";
print "descricao 2: " . $inf_desc2[0] . "\n";
print "\n";
}
$fts->get($);
if(defined($f))
{
if ($f eq "mp4")
{
@anime = $fts->content =~ /<html5>(.*)<\/html5>/;
$extensao = ".mp4";
}
elsif($f eq "flv")
{
@anime = $fts->content =~ /<file>(.*)<\/file>/;
$extensao = ".flv";
}
else
{
print "\nformato desconhecido\n\n";
exit;
}
if(defined($v))
{
print "\n";
print "link: " .$anime[0];
print "\n\n";
}
if(defined($d))
{
if(defined($o))
{
$baixar = "wget " . $anime[0] . " -O " . $o . $extensao;
}
else
{
$baixar = "wget " . $anime[0];
}
system($baixar);
}
}
}
else
{
print "\n\ndigite a sintaxe -h para ver ajuda\n\n";
}
sub slogan
{
print "============================================\n" .
" FTS Download Anitube v1.1\n".
"============================================\n";
}