[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
bom galera esse script baixa filme do site [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
exemplo de sintaxe:
bom galera esse script baixa filme do site [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
- Código:
#!/usr/bin/perl
#coder: kõdo no kami
#contato: www.facebook.com/hacker.fts315
#forum: endoffile.umforum.net
#down: www.alphaporno.com
use WWW::Mechanize;
$kodo = WWW::Mechanize->new;
$kodo->get($ARGV[0]);
@kami = $kodo->content =~ /video_url: '(.*)',.*postfix: '.mp4',/si;
@fts = $kodo->content =~ /postfix: '(\.(\w+|\d+))/;
@hack = $kodo->content =~ /<title>(.*)<\/title>/;
$hack[0] .= $fts[0];
print "==========================\n" .
" FTS AlphaPorno Down\n" .
"==========================\n\n" .
"baixando aguarde...\n";
$kodo->get($kami[0],":content_file"=>$hack[0]);
print "baixo com sucesso!!!\n";
exemplo de sintaxe:
perl alphaporno.pl [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]