IP blocker

IP blocker
指定したIPアドレスのアクセスを拒否します。
工夫すれば、指定したIPアドレスのみアクセスを許可するものにもなるでしょう。

使い方
このCGIは色々なページに飛ぶスイッチャ－としての役割も果たします。

http://xxx.yyy.zzz/ip.cgi?url1
http://xxx.yyy.zzz/ip.cgi?url2
http://xxx.yyy.zzz/ip.cgi?url3

のようにアクセスさせて指定URLに飛ばせます。

赤いところを直してください。

ip.cgiのソース

#!/usr/bin/perl
# IP blocker

$id=$ARGV[0];$ip=$ENV{'REMOTE_ADDR'};

if(($ip eq "XX.XX.XX.XX")&&($ip eq "XX.XX.XX.XX")………){
 print "Content-type: text/html\n\n<HTML><head><title>Default error page</title></head><BODY><center><FONT face=\"Arial, Helvetica, sans-serif\" size=3><p><b>The page you requested is not available</b></FONT></center></BODY></HTML>";}else{

 if($id eq "url1"){$url="xxx.yyy.zzz/index.html";}
 elsif($id eq "url2"){$url="aaa.bb.ccc";}
 elsif($id eq "url3"){$url="aaa.bb.ccc/ddd/eee.htm";}

 else{print "Content-type: text/html\n\n error";exit;}
 print "Location: http://$url\n\n";}

自分のIPアドレスが不明の場合以下を使ってください。
自分のIPアドレスを表示。

#!/usr/bin/perl
# IP blocker

$id=$ARGV[0];$ip=$ENV{'REMOTE_ADDR'};
print "Content-type: text/html\n\n";
print "<FONT SIZE=5>YOUR IP is $ip.";

今すぐチェック

back