Child Tree (HP Q&A BBS) [One Message View / Re[4]: VOTE COMの同一IP連続投稿防止改造時間設定版]

■10416 / 4階層)

　VOTE COMの同一IP連続投稿防止改造時間設定版

□投稿者/ 南 -(2005/01/19(Wed) 22:09:37)

2005/01/19(Wed) 22:10:02 編集(投稿者)

すいません、先ほどのスクリプトに「$host」を取得する部分を忘れていました。
ついでにとあるスクリプト
http://fairyland.cside.com/marine/tinkcgi/index.html
Sugiura様のTinkCGI　HPで公開している「Ana-Vote」
内に書かれていたプロクシ制限スクリプトを
お借りした改造スクリプトもつけておきます

votec.cgiの
3行目：require './jcode.pl';
以下に以下のスクリプトを入れてください。

#プロクシらしいIPをはじく-------------------
#===============================
#環境変数を取得するサブルーチン
#===============================
sub get_user_data {
$addr = $ENV{'REMOTE_ADDR'};
$host = gethostbyaddr(pack('C4',split(/\./,$addr)),2);
$client =$ENV{'HTTP_CLIENT_IP'};
$via = $ENV{'HTTP_VIA'};
$xfor = $ENV{'HTTP_X_FORWARDED_FOR'};
$for = $ENV{'HTTP_FORWARDED'};
$agent = $ENV{'HTTP_USER_AGENT'};
if ($xfor ne "") {$xfor_name = gethostbyaddr(pack('C4',split(/\./,$xfor)),2) || $xfor; }
$referer = $ENV{'HTTP_REFERER'};
}

#==================================
#投票制限対象を判定するサブルーチン
#==================================
sub reject_check {
#プロクシ規制
if ($reject_proxy == "1"){
$ip = $host;
$ip =~ s/[0-9\.]//g;
#念のため停止 if ($ip eq "") {$rejection = 1;}
if ($host =~ /^firewall|^router|proxy|^prx|cache|delegate|^gate|^gw|^host|^dns|keeper|cust|^mail|^www/i) {$rejection = 1;}
#念のため停止 if ($host !~ /\.jp$/i && $host !~ /\.bbtec\.net$/i) {$rejection = 1;}
#念のため停止 if ($via ne "" || $client ne "") {$rejection = 1;}
}
#教育機関、政府機関の規制
if ($reject_acgo == "1"){
if ($host =~ /kencho|pref|\.ac\.jp$|\.go\.jp$/i) {$rejection = 1;}
}
#フリープロバイダーの規制
if ($reject_free == "1"){
if ($host =~ /freecom.ne.jp|freeserve.ne.jp|freejpn.com|freenavi.net|livedoor.com/i) {$rejection = 1;}
}
#その他規制ホスト
if ($reject_host ne ""){
if ($host =~ /$reject_host/i) {$rejection = 1;}
elsif ($addr =~ /$reject_host/i) {$rejection = 1;}
}

#特別に投票を許可するホスト
if ($escape_host ne ""){
if ($host =~ /$escape_host/i) {$rejection = 0;}
elsif ($addr =~ /$escape_host/i) {$rejection = 0;}
}
}

$reject_proxy = "1"; #プロクシによる投票を規制をするか　0=規制しない　1=規制する
$reject_acgo = "0"; #教育機関や政府機関からの投票を規制するか　0=規制しない　1=規制する
$reject_free = "0"; #フリープロバイダーからの投票を規制するか　0=規制しない　1=規制する
$reject_host = ""; #その他、規制するホスト（ホスト名又はIPの一部でも可。複数のときは「|」で区切って指定）
$escape_host = ""; #上の４つの投票規制対象に該当しても、特別に投票を許可するホスト（ホスト名又はIPの一部でも可。複数のときは「|」で区切って指定）

#==================================
#実行形式例
#==================================
&get_user_data;
&reject_check;

if ($rejection == 1){
print "Content-type: text/html\n\n";
print "<html><body>プロクシ接続です</body></html>";
exit;
}

#-------------------------------------------

#念のため停止
の部分は判定がきつすぎると思うのでコメントアウトしています。
必要に応じてコメントアウトを解除してください。

解決済み!

[メール受信/OFF] 削除キー/

上記関連ツリー
前の記事(元になった記事)	次の記事(この記事の返信)
←VOTE COMの同一IP連続投稿防止改造時間設.. /南	→VOTE COMの同一IP連続投稿防止改造時間設.. /南
VOTE COMの連続投稿防止改造について / 南 (05/01/12(Wed) 20:45) #10381
`└` Re[1]: VOTE COMの連続投稿防止改造につ�.. / りゅういち＠ (05/01/16(Sun) 04:56) #10390
`└` VOTE COMの同一IP連続投稿防止改造 / 南 (05/01/17(Mon) 23:53) #10406 解決済み!
`└` VOTE COMの同一IP連続投稿防止改造時間設.. / 南 (05/01/19(Wed) 21:33) #10415 解決済み!
`└` VOTE COMの同一IP連続投稿防止改造時間設.. / 南 (05/01/19(Wed) 22:09) #10416 解決済み! ←Now
`└` VOTE COMの同一IP連続投稿防止改造時間設.. / 南 (05/01/21(Fri) 23:43) #10428 解決済み!
`└` Re[6]: VOTE COMの同一IP連続投稿防止改�.. / 櫻 (05/02/07(Mon) 20:42) #10496
`└` 連続投稿防止部分のみソース / 南 (05/02/15(Tue) 14:52) #10522
`└` Re[8]: 連続投稿防止部分のみソース / 櫻 (05/02/26(Sat) 18:42) #10552 解決済み!
上記ツリーを一括表示 / 上記ツリーをトピック表示
上記の記事へ返信

入力内容にタグは利用できません。

他人を中傷する記事は管理者の判断で予告無く削除されます。
半角カナは使用しないでください。文字化けの原因になります。
名前、コメントは必須記入項目です。記入漏れはエラーになります。
入力内容の一部は、次回投稿時の手間を省くためブラウザに記録されます。
削除キーを覚えておくと、自分の記事の編集・削除ができます。
URLは自動的にリンクされます。
記事中に No*** のように書くとその記事にリンクされます(No は半角英字/*** は半角数字)。
- No123 → 記事No123の記事リンクになります(指定表示)。
- No123,130,134 → 記事No123/130/134 の記事リンクになります(複数表示)。
- No123-130 → 記事No123～130 の記事リンクになります(連続表示)。
質問に関連するURLはなるべく記入してください。
テスト投稿は禁止です!
解決したら人間の基本「ありがとう」を言いましょう!
FAQを別ウィンドウで開く/ぷっちCGIを別ウィンドウで開く

Name	/
E-Mail	/
└> 関連するレス記事をメールで受信しますか? / アドレス
Title	/
URL	/
Comment/ 通常モード->　図表モード-> (適当に改行して下さい) ■No10416に返信(南さんの記事) > 2005/01/19(Wed) 22:10:02 編集(投稿者) > > すいません、先ほどのスクリプトに「$host」を取得する部分を忘れていました。 > ついでにとあるスクリプト > http://fairyland.cside.com/marine/tinkcgi/index.html > Sugiura様のTinkCGI　HPで公開している「Ana-Vote」 > 内に書かれていたプロクシ制限スクリプトを > お借りした改造スクリプトもつけておきます > > > votec.cgiの > 3行目：require './jcode.pl'; > 以下に以下のスクリプトを入れてください。 > > #プロクシらしいIPをはじく------------------- > #=============================== > #環境変数を取得するサブルーチン > #=============================== > sub get_user_data { > $addr = $ENV{'REMOTE_ADDR'}; > $host = gethostbyaddr(pack('C4',split(/\./,$addr)),2); > $client =$ENV{'HTTP_CLIENT_IP'}; > $via = $ENV{'HTTP_VIA'}; > $xfor = $ENV{'HTTP_X_FORWARDED_FOR'}; > $for = $ENV{'HTTP_FORWARDED'}; > $agent = $ENV{'HTTP_USER_AGENT'}; > if ($xfor ne "") {$xfor_name = gethostbyaddr(pack('C4',split(/\./,$xfor)),2) \|\| $xfor; } > $referer = $ENV{'HTTP_REFERER'}; > } > > > #================================== > #投票制限対象を判定するサブルーチン > #================================== > sub reject_check { > #プロクシ規制 > if ($reject_proxy == "1"){ > $ip = $host; > $ip =~ s/[0-9\.]//g; > #念のため停止 if ($ip eq "") {$rejection = 1;} > if ($host =~ /^firewall\|^router\|proxy\|^prx\|cache\|delegate\|^gate\|^gw\|^host\|^dns\|keeper\|cust\|^mail\|^www/i) {$rejection = 1;} > #念のため停止 if ($host !~ /\.jp$/i && $host !~ /\.bbtec\.net$/i) {$rejection = 1;} > #念のため停止 if ($via ne "" \|\| $client ne "") {$rejection = 1;} > } > #教育機関、政府機関の規制 > if ($reject_acgo == "1"){ > if ($host =~ /kencho\|pref\|\.ac\.jp$\|\.go\.jp$/i) {$rejection = 1;} > } > #フリープロバイダーの規制 > if ($reject_free == "1"){ > if ($host =~ /freecom.ne.jp\|freeserve.ne.jp\|freejpn.com\|freenavi.net\|livedoor.com/i) {$rejection = 1;} > } > #その他規制ホスト > if ($reject_host ne ""){ > if ($host =~ /$reject_host/i) {$rejection = 1;} > elsif ($addr =~ /$reject_host/i) {$rejection = 1;} > } > > #特別に投票を許可するホスト > if ($escape_host ne ""){ > if ($host =~ /$escape_host/i) {$rejection = 0;} > elsif ($addr =~ /$escape_host/i) {$rejection = 0;} > } > } > > $reject_proxy = "1"; #プロクシによる投票を規制をするか　0=規制しない　1=規制する > $reject_acgo = "0"; #教育機関や政府機関からの投票を規制するか　0=規制しない　1=規制する > $reject_free = "0"; #フリープロバイダーからの投票を規制するか　0=規制しない　1=規制する > $reject_host = ""; #その他、規制するホスト（ホスト名又はIPの一部でも可。複数のときは「\|」で区切って指定） > $escape_host = ""; #上の４つの投票規制対象に該当しても、特別に投票を許可するホスト（ホスト名又はIPの一部でも可。複数のときは「\|」で区切って指定） > > #================================== > #実行形式例 > #================================== > &get_user_data; > &reject_check; > > if ($rejection == 1){ > print "Content-type: text/html\n\n"; > print "<html><body>プロクシ接続です</body></html>"; > exit; > } > > #------------------------------------------- > > > #念のため停止 > の部分は判定がきつすぎると思うのでコメントアウトしています。 > 必要に応じてコメントアウトを解除してください。 >
削除キー	/ (半角8文字以内)
解決済み! BOX/ 解決したらチェックしてください! <script Language="javascript" Src="http://ad.jp.ap.valuecommerce.com/servlet/jsbanner?sid=6905&pid=869954588"></script><noscript><a Href="http://ck.jp.ap.valuecommerce.com/servlet/referral?sid=6905&pid=869954588" target="_blank" ><img Src="http://ad.jp.ap.valuecommerce.com/servlet/gifbanner?sid=6905&pid=869954588" height=18 width=130 Border=0></a></noscript>
プレビュー/

HOME HELP 新着記事ツリー表示スレッド表示トピック表示検索過去ログ

- Child Tree -