[過去ﾛｸﾞ] 【66｡40｡59｡72】 広告書き込み対策 【ｴｷｻｲﾄﾙｰﾑ】 (271ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

240: 未承諾広告※ ◆aiY4htt2.2 03/10/07 18:30 ID:YIrFmai4(1/4)調 AA×

---

241(1): 未承諾広告※ ◆aiY4htt2.2 03/10/07 18:45 ID:YIrFmai4(2/4)調 AAS
で。
>>226
> p4074-ipbf08hodogaya.kanagawa.ocn.ne.jp
> は　ipbf**　←光　にあたります。

これにマッチしたらよいのかな？＠保土ヶ谷

ipbf\d\dhodogaya\.kanagawa\.ocn.ne\.jp

こんな感じ。。。

---

242: 未承諾広告※ ◆aiY4htt2.2 03/10/07 22:57 ID:YIrFmai4(3/4)調 AAS
>>241
> ipbf\d\dhodogaya\.kanagawa\.ocn.ne\.jp
ipbf\d\dhodogaya\.kanagawa\.ocn\.ne\.jp

ですねm(_ _)m

---

243: 未承諾広告※ ◆aiY4htt2.2 03/10/07 23:30 ID:YIrFmai4(4/4)調 AAS
>>230
# PHOST がどんな形式で格納されているのか判らないので想像で。

if (!open(PHOST,"<$pxck")) { return 0;}
my @PIP = <PHOST>;
close(PHOST);

foreach(@PIP){
　chomp;
# PHOST が "ipbf\d\dhodogaya\.kanagawa\.ocn\.ne\.jp" という形で格納されているならばこのまま。
# PHOST が "ipbf**hodogaya.kanagawa.ocn.ne.jp" という形で格納されているならば、次の 2 行の # を外す
# s/\./\../g;
# s/\*/\\d/g;
　if($HOST999 =~ /$_/i) { DispError("ＥＲＲＯＲ！","アクセス規制中です！！($_)");}
}

>>234
# ぁゃιぃ %ENV をすべて採取する仕組みに。
# ぁゃιぃ %ENV があれば串規制に飛ばしても良さそうな。。。

$HOST = gethostbyaddr(pack('c4',split(/\./, $ENV{'REMOTE_ADDR'})), 2) || $ENV{'REMOTE_ADDR'};

foreach my $prox_value ($ENV{'HTTP_X_FORWARDED_FOR'},$ENV{'HTTP_FORWARDED'},$ENV{'HTTP_VIA'}){
　　next if defined $prox_value;
　　if ($prox_value =~ /\d+\.\d+\.\d+\.\d{1,3}/) {
　　　$HOST2 .= sprintf(qq/,%s/,gethostbyaddr(pack('c4',split(/\./, $&)), 2) || $&);}
　　elsif ($prox_value =~ /[\s\/]([\w]+\.[\w\.]+):\d/) {
　　　$HOST2 .= ",$1";}
}

IN OUTの仕様を仰有ってくれればそれなりにそそくさと書いてみますけれども。。。

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.055s