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

Participe do fórum, é rápido e fácil

seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

 » Programação Scripts » Perl » Zone-h Mass Deface Notify Tool

Zone-h Mass Deface Notify Tool

Ir para baixo  Mensagem [Página 1 de 1]

1Zone-h Mass Deface Notify Tool Empty Zone-h Mass Deface Notify Tool Qua Nov 28, 2012 3:02 pm

mmxm

avatar
avançado
avançado

Código:
#!/usr/bin/perl
# Zone-h Mass Deface Notify BY MMXM
# Gr33tz To Cy¢lone & Ut0p|4

use LWP::UserAgent;

if(@ARGV != 2){
print "\n\n\t[+] Zone-h Mass deface Notify by MMxM\n";
print "\t[-] How to use: perl $0 <lista de dominios> <deface team>\n\n";
exit;
}
print "\n\nDeface Team: $ARGV[1]\n\n";
sleep(2);
open(a,"<$ARGV[0]") or die "$!";
while(<a>){
chomp($_);
$site = $_;

if ($site !~ /^http:\/\//){
$site = 'http://' . $site;
}

my $ua = new LWP::UserAgent;

my $response
= $ua->post('http://www.zone-h.org/notify/single',
{ defacer => $ARGV[1],
domain1 => $site,
hackmode => '30',
reason => '1',
});

my $body = $response->content;
if($body =~ /OK/i){
print "[*] $site : Ok\n";
} else { print "[*] $site : Fail\n";
}
}
exit;

Ir para o topo  Mensagem [Página 1 de 1]

 » Programação Scripts » Perl » Zone-h Mass Deface Notify Tool

Permissões neste sub-fórum
Não podes responder a tópicos