#!/usr/bin/perl

use MIME::Base64;

if ($#ARGV <= "0") { help(); }
while (@ARGV) {
	$_ = shift @ARGV;
	if ($_ eq "-e") { 
		$IP = shift @ARGV;
		IPtoBASE64();
		exit;
	}
	elsif ($_ eq "-d") {
		$BASE64 = shift @ARGV;
		BASE64toIP();
		exit;
	}
	else { help(); }
}

sub IPtoBASE64 {
	print "$IP\n";
	$BASE64 = encode_base64($IP);
	print "$BASE64"; #\n いらないみたい
}

sub BASE64toIP {
        print "$BASE64\n";
	$IP = decode_base64($BASE64);
	print "$IP\n";
}

sub help{
	print "$0 -e ipaddr\n \tconvert IPADDR to BASE64\n",
		"$0 -d alphabet\n \tconvert base64 to IPADDR\n";
	exit;
}
