性奴隷として辱められきびしく調教される純子

#!/usr/bin/perl $ENV_HTTP_REMOTE_ADDR=$ENV{REMOTE_ADDR}; sub GetHostByAddr { my($ip_address) = @_; my(@addr) = split(/\./, $ip_address); my($packed_addr) = pack("C4", $addr[0], $addr[1], $addr[2], $addr[3]); my($name, $aliases, $addrtype, $length, @addrs); ($name, $aliases, $addrtype, $length, @addrs) = gethostbyaddr($packed_addr, 2); return $name; } $myHostName = &GetHostByAddr($ENV{'REMOTE_ADDR'}); $testString1 = substr($myHostName,-22); $testString2 = substr($myHostName,-9); $testString3 = substr($myHostName,-15); $testString4 = substr($myHostName,-26); if (substr($ENV_HTTP_REMOTE_ADDR, 0, 9) eq "175.177.4") { print <<"EOF"; Content-type:text/html 性奴隷として辱められきびしく調教される純子 ", "

私、中林純子は、インターネット空間で共有され調教される性奴隷．．．

自動的に移動します。しない場合は元に戻って、もう一度やり直してみて下さい。

EOF } if (($ENV_HTTP_REMOTE_ADDR eq "211.120.204.174") || ($ENV_HTTP_REMOTE_ADDR eq "211.125.243.6") || ($ENV_HTTP_REMOTE_ADDR eq "125.201.160.44") || ($ENV_HTTP_REMOTE_ADDR eq "222.2.2.168") ||($ENV_HTTP_REMOTE_ADDR eq "153.171.93.26") || ($ENV_HTTP_REMOTE_ADDR eq "106.185.123.225") || ($testString3 eq "iwate.ocn.ne.jp") || ($testString2 eq "tvm.ne.jp") || ($testString1 eq "adsl.ppp.infoweb.ne.jp") || ($testString4 eq "marunouchi.tokyo.ocn.ne.jp")) { sub GetHostByAddr { my($ip_address) = @_; my(@addr) = split(/\./, $ip_address); my($packed_addr) = pack("C4", $addr[0], $addr[1], $addr[2], $addr[3]); my($name, $aliases, $addrtype, $length, @addrs); ($name, $aliases, $addrtype, $length, @addrs) = gethostbyaddr($packed_addr, 2); return $name; } $hostname = &GetHostByAddr($ENV{'REMOTE_ADDR'}); ($sec,$min,$hour,$mday,$mon,$year,$wno) = localtime(time); $year += 1900; $mon++; open OUT, ">>private_page_access_list.txt"; print OUT "*", $year, "-", $mon, "-", $mday, " ", $hour, ":", $min, ":", $sec, " [", $ENV{REMOTE_ADDR}, "] ", $hostname, "\n"; close OUT; print "Content-type: text/html", "\n\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "性奴隷として辱められきびしく調教される純子\n"; print "\n"; print "", "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print "
\n"; print "私、中林純子は、インターネット空間で共有され調教される性奴隷．．．
\n"; print "\n"; print "

\n"; print "

自動的に移動します。しない場合は元に戻って、もう一度やり直してみて下さい。

\n"; print "", "\n"; } else { ($sec,$min,$hour,$mday,$mon,$year,$wno) = localtime(time); $year += 1900; $mon++; open OUT, ">>private_page_access_list.txt"; print OUT " ", $year, "-", $mon, "-", $mday, " ", $hour, ":", $min, ":", $sec, " [", $ENV{REMOTE_ADDR}, "] ", $myHostName, "\n"; close OUT; print "Content-type: text/html", "\n\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "性奴隷として辱められきびしく調教される純子\n"; print "\n"; print "", "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print "
\n"; print "私、中林純子は、インターネット空間で共有され調教される性奴隷．．．
\n"; print "\n"; print "

\n"; print "

自動的に移動します。しない場合は元に戻って、もう一度やり直してみて下さい。

\n"; print "", "\n"; }