#!/usr/bin/perl

# cryptopan.pl -- Duane Wessels, Measurement Factory

use strict;
use warnings;
use IP::Anonymous;

my $keystr = shift;
die "key must contain at least 32 characters\n" unless (length $keystr >= 32);

my @key = unpack('c*', $keystr);
print join("\n", @key), "\n";
my $anonymizer = new IP::Anonymous(@key);

while (<>) {
	if (/(\d+\.\d+\.\d+\.\d+)/) {
		my $old = $1;
		my $new = $anonymizer->anonymize($old);
		s/$old/$new/;
	}
	print;
}