Zone Transfer Tool [Perl] by D0MIN1C.

Publicado: septiembre 1, 2010 en Tools Pentest
#!/usr/bin/perl

use Net::DNS;
use Net::DNS::Resolver;
$dl =log <STDIN>;
if ($dl =~ /12345/){
#coded By D0MIN1C
print "Test Tranferencia de zonas!!\n";
print "MS!!\n";
my $domain = $ARGV[0];
my $dns = $ARGV[1];
print " intentando AXFR a : ".$domain." \n";
my $res = Net::DNS::Resolver->new (debug => 1,
nameservers => [$dns]);
my @zone = $res->axfr($domain);
if(@zone) {
foreach my $rr (@zone){
$rr->print;
}
}
print "\n";

}
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s