【携帯ブラウザ】べっかんこ 2

#############################################################################
# 公式p2のIPアドレスかどうかチェックする
#############################################################################
sub mumumuIsIP4P22ch
{
my ($raddr) = @_;
our %P22chIPAddrs;
BEGIN {
# IPアドレスに変化があったら、ここを編集する
%P22chIPAddrs = map +($_ => 1), qw(
210.135.98.43 210.135.99.5
210.135.99.6 210.135.100.132
);
}

if($P22chIPAddrs{$raddr}) {return 1;}

return 0;
}

# 公式p2
if(&mumumuIsIP4P22ch($GB->{HOST3}))
{
if($ENV{HTTP_USER_AGENT} =~ /p2-user: (\d+)/)
{
$GB->{HOST5} .= "($1)";
$GB->{IDNOTANE} = $1;
$GB->{P22CH} = 1;
}
else
{
&DispError2($GB,"ＥＲＲＯＲ！","ＥＲＲＯＲ：公式p2からの投稿ではp2-userを送信するようにしてください。");
}
# p2-client-ip: から接続ホストの情報を $GB->{HOST2} に得る
if($ENV{HTTP_USER_AGENT} =~ /p2-client-ip: (\d+)\.(\d+)\.(\d+)\.(\d+)/)
{
$GB->{HOST2} = $1 . "." . $2 . "." . $3 . "." . $4;

# リモートホスト名を記録する(規制が効くように)
#my $p2host;
#$p2host = gethostbyaddr(pack('C4',split(/\./, $GB->{HOST2})), 2) || $GB->{HOST2};
#$GB->{HOST5} .= "($p2host)";
}
else
{
&DispError2($GB,"ＥＲＲＯＲ！","ＥＲＲＯＲ：公式p2からの投稿ではp2-client-ipを送信するようにしてください。");
}
}

>>12 の%P22chIPAddrsに >>11 の206.223.150.45を追加して
UAはp2そっくりにしてやればいい予感

p2-user: (\d+)　がユーザユニークになれば >>11の問題は解消するかと、

bbs.cgi@2ch の改造は　206.223.150.45 を追加するだけ

書き込み出来ない

p2のUAはこんな感じ

Monazilla/1.00 (P2/p2.2ch.net; p2-client-ip: 83.170.92.9; p2-user: 885785)

★110403 ihou 「half19000|musashi.sp|pandapa123」宣伝マルチ報告
http://qb5.2ch.net/test/read.cgi/sec2chd/1301761817/25

>>12-14
おおお、ありがとうございます。再び挑戦してみます。
身代わりの術がうごかなくなったらごめんちゃい。
その時は時期に動くようになるので少々お待ちをです。

>>17
ガンバレ

ちょっとまだいじるので、ちゃんと動かなくなるかもですが、
上にあったソースに対応したVerにアップデートしましたー。

お、ちゃんと動いてる希ガス。
せっかくなのでage

現在の身代わりの術は、bbs.cgiに対して
公式p2と同じリクエストを投げてるはずです。
これで連投規制に引っ掛からなくなるはずDA！

// PONというcookieにアタフタしてたのはいい想い出

http://qb5.2ch.net/test/read.cgi/operate/1302672317/126
126 banana3162.maido3.com(206.223.150.45) sage 2011/04/13(水) 19:06:40.74 ID:l62j96CM0
てす <hr><font color="blue">Monazilla/1.00 (P2/p2.2ch.net; p2-user: 9000000029; p2-client-ip: 123.108.237.21; p2-user-hash: a8f1252440d6d99e87682601eb9fd7df)</font>

`＾　　 ＾
(´･ω･`ミ) 動いておるよ

http://qb5.2ch.net/test/read.cgi/operate/1302672317/132
132 忍法帖【Lv=3,xxxP】 【東電 75.7 %】 sage 2011/04/13(水) 19:13:16.08 ID:mKi/rA/vP
てす

`＾　　 ＾
(´･ω･`ミ) 忍法帖も動いておるよ

UAの出力をちょっと変更。
・p2-user-hash が不要っぽいので無くした
・p2-migawari を追加して固有IDを付けた