# for 192.168.*.*
my @netmask_a = qw ( 255 255 0 0 );
my @sample_a = qw ( 192 168 0 0 );
my $netmask = unpack("N", pack("C*", @netmask_a));
my $sample = unpack("N", pack("C*", @sample_a));
my $addr = int rand(2**32);
$addr &= ~ $netmask;
$addr ^= $sample;
# Dotted quad form:
my $dottedaddr = join(".", unpack("C*", pack("N", $addr)));
####
sub rand_addr ($$) {
my ($netmask, $code) = @_;
my $addr = int rand(2**32);
$addr &= ~ $netmask;
$addr ^= $sample;
$addr;
}
# for 192.168.*.*
my @netmask_a = qw ( 255 255 0 0 );
my @sample_a = qw ( 192 168 0 0 );
my $netmask = unpack("N", pack("C*", @netmask_a));
my $sample = unpack("N", pack("C*", @sample_a));
my @newaddrlist =
map { join(".", unpack("C*", pack("N",$_))) }
map { rand_addr($netmask,$sample); } ( 1 .. 5678 );
##
##
--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/