#!/usr/bin/perl
#
# arpbomb.pl (c) 2002 by Benjamin Schweizer <gopher at h07 dot org>
#                        http://www.redsheep.de/
#
#######################################################################

#
# this code sends arp packets to a given range of ip addresses.
# active hosts will reply and echolot fetches them in few seconds.
#

for ($i = 48; $i < 53; $i++) {
	for ($j = 0; $j < 255; $j++) {
		if (fork()) {
			`/usr/sbin/arping -c 1 213.173.$i.$j`;
			print ".";
			exit;
		}
	}
}