#!/usr/local/bin/perl
#とってもハカーぽいトップに「あなたの IP はこれですね -< 127.0.0.1 と表示しても自慢気に表示しても一般人には理解不能なので馬鹿にされずに済むハカープログラム(手抜き) V1.00
#
#                     Copyright(c) 2002 Yuumi
#                     http://gochagocha.ribbon.to/
#                     gochagocha@ribbon.to
#
#　本プログラムはフリーソフトウェアーです。使用するには以下の使用許諾事項をお守りください
#
#　使用許諾事項
#　１．商用目的に使用してはいけません
#　２．著作権を削除して使用してはいけません
#　３．著作権を削除して２次創作物を作成する、又は２次配布を行ってはいけません
#
#
#　設置方法
#　１．設定して SSI に埋め込む
#
#

# n 進数を入力
my $GSinsu = 3;

my $ipAddr = $ENV{'REMOTE_ADDR'};

#print "Content-type: text/html\n\n";
if( $ipAddr eq '' ){	exit;	}

my @ipPack = split(/\./ , $ipAddr );

my $i = 0;

while( $i < 4 ){
	print &ChangeSinsu( $GSinsu , $ipPack[$i] );
	print '.';
	$i++;
}

sub ChangeSinsu{
	my $lSinsu = shift;
	my $lAtai = shift;
	my $retStr = '';

	if( $lSinsu < 2 || $lSinsu > 10 ){	return -1;	}
	my $MaxKeta = 0;
	while(( $lSinsu ** $MaxKeta ) < 256 ){	$MaxKeta++;	}
	$MaxKeta--;

	while( $MaxKeta >= 0 ){
		$retStr .= int( $lAtai / ( $lSinsu ** $MaxKeta ));
		$lAtai = $lAtai % ( $lSinsu ** $MaxKeta );
		$MaxKeta--;
	}
	return $retStr;
}