By r00t_5tr1k3r
- Código:
#!/usr/bin/perl
use warnings;
use strict;
use LWP::UserAgent;
sub inicio()
{
if($^O != 'linux')
{
system('cls');
}
else
{
system('reset');
}
if(not defined($ARGV[0]))
{
print " [-] Parâmetro inválido.\n
[*] Sintaxe: 4shared.pl lista_links.txt\n";
exit 1;
}
open(my$arq,$ARGV[0]) || die " [-] Erro ao abrir lista";
print " [+] Aguarde....\n";
my $ua = LWP::UserAgent->new(
agent => 'Mozilla/5.0 (Windows; U; WinNT4.0; en-US; rv:0.9.5) Gecko/20011011'
);
foreach(<$arq>)
{
chomp($_);
my $pg = $ua->get('http://www.4server.info/download/'.$_);
if($pg->content =~ /<meta http-equiv="refresh" content="3; URL=(.*)">/)
{
print " ###########################\n $1\n";
}
}
print " ###########################\n [+] Finalizado\n";
close($arq);
}
&inicio();