Debian 下防止ARP病毒的Perl 脚本(这个怎么用O)

cnmt

在网上找了一下debian防ARP的贴子。有几个都是介绍Debian 下防止ARP病毒的Perl 脚本
这个怎么用在debian下。有没有作用。谢谢。

chenfengyuan

你连脚本都没有贴.谁知道有没有效果,难道要回答的人,网上搜下脚本.然后猜测你知道的是哪个,然后回答?!

用arptables试试

cnmt

前几天数据库是不是有问题了。发几回都没上去。现在补上。

#!/usr/bin/perl
use strict;
my $LocalIp="192.168.1.79";
my $file="/tmp/mac.txt";
system("sudo nmap -sP 192.168.1.0/24 > $file");
open(OLD,$file); my @content=<OLD>;close OLD;
open(NEW,">$file");
foreach my $con (@content)
{
    if( $con =~ /Nmap/ig){$con="";}
    if( $con =~ /$LocalIp/ig){$con="";}
    if($con =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/)
    {
        print "$1\.$2\.$3\.$4\t";
        print NEW "$1\.$2\.$3\.$4\t";
    }
    if($con =~ /(\w+)\\w+)\\w+)\\w+)\w+)\w+)/)
    {
        print "$1\2\3\4\56\n";
        print NEW "$1\2\3\4\56\n";
    }
}
close NEW;
system("sudo arp -f $file");