【荒らしお断り】 BBQを組み込んでる人【システム】

[0032 nobodyさん 2006/01/28(土) 16:37:54 ID:???]

とりあえず1行で思いついたので、(Perl)

if(join('.', unpack('C*', gethostbyname(join('.', reverse(split(/\./, $ENV{'REMOTE_ADDR'}))) . '.niku.2ch.net'))) eq '127.0.0.2'){ print 'Content-Type: text/html', "\n\n", 'Proxy'; exit; }