[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
script que baixa todos os xpl do exploitdb
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
script que baixa todos os xpl do exploitdb
[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
#copyright: end of file (endoffile.umforum.net)
#data: 27/01/2014
#descrição: baixa todos os xpl do www.exploit-db.com
use WWW::Mechanize;
$dir = "xpl";
$url = "http://www.exploit-db.com/download/";
$kodo = WWW::Mechanize->new();
$cont = 1;
$total = fts_total();
fts_slogan();
mkdir($dir);
while($cont <= $total)
{
$lol = fts_path($dir,$cont);
$url2 = $url . $cont;
$kodo->get($url2,":content_file"=>$lol);
print $url2 . "\n";
$cont++;
}
sub fts_total
{
$fts = WWW::Mechanize->new();
$fts->get("http://www.exploit-db.com");
@kami = $fts->content =~ /">(\d+)<\/span> exploits <br/;
return $kami[0];
}
sub fts_path
{
if($^O eq "MSWin32")
{
return $_[0] . "\\" . $_[1];
}
else
{
return $_[0] . "/" . $_[1];
}
}
sub fts_slogan
{
print "=============================\n" .
" FTS ExploitDB Down\n" .
"=============================\n\n";
}