【協力願】Boo2008(旧Boo80)で串を食べませんか？ その11

[1 動け動けウゴウゴ２ちゃんねる 2013/04/28(日) 16:33:05.11 ID:SEMu1WLY0]

Boo2008(旧名Boo80)というスクリプトで串を規制するプロジェクトです。

●過去スレ
【協力願】Boo80で串を食べませんか？
　http://qb3.2ch.net/test/read.cgi/operate/1064576191/
【協力願】Boo80で串を食べませんか？　その２
　http://qb5.2ch.net/test/read.cgi/operate/1081858336/
【協力願】Boo80で串を食べませんか？　その３
　http://qb5.2ch.net/test/read.cgi/operate/1104339319/
【協力願】Boo2008(旧Boo80)で串を食べませんか？　その４
　http://qb5.2ch.net/test/read.cgi/operate/1199345454/
【協力願】Boo2008(旧Boo80)で串を食べませんか？　その５
　http://qb5.2ch.net/test/read.cgi/operate/1212767905/
【協力願】Boo2008(旧Boo80)で串を食べませんか？　その6
　http://qb5.2ch.net/test/read.cgi/operate/1245475407/
【協力願】Boo2008(旧Boo80)で串を食べませんか？　その7
http://qb5.2ch.net/test/read.cgi/operate/1245849974/
【協力願】Boo2008(旧Boo80)で串を食べませんか？　その8
http://qb5.2ch.net/test/read.cgi/operate/1268473561/
【協力願】Boo2008(旧Boo80)で串を食べませんか？　その9
http://qb5.2ch.net/test/read.cgi/operate/1295413279/
【協力願】Boo2008(旧Boo80)で串を食べませんか？　その10
http://qb5.2ch.net/test/read.cgi/operate/1302700562/

●Boo2008スクリプト
オリジナルバージョン
　http://boo.2ch.net/
　現在のバージョン
　my $VERSION = '1.17';
　my $DATE = '2011/01/16';

[2 動け動けウゴウゴ２ちゃんねる 2013/04/28(日) 16:34:42.14 ID:SEMu1WLY0]

●おまけ（旧アドレス／新式は現時点では未発表。完成次第告知します）
月別串迎撃ランキング
　http://boo.2ch.net/boo2008_rank.cgi
鯖別串迎撃ランキング ※動いていません
　http://qb6.2ch.net/_boo80/pokan.cgi
迎撃速報hack72 最近のお宝(2009/01/05)
　http://hack72.2ch.net/otakara.cgi

●関連リンク
　http://info.2ch.net/wiki/index.php?Boo80 (２ちゃんねるWiki/boo80)
　http://info.2ch.net/wiki/index.php?Boo2008 (２ちゃんねるWiki/boo2008)
■　新企画 Hack72 (BBQ に貯まっている串の速報)　part1
　http://qb5.2ch.net/operate/kako/1093/10939/1093978218.html DAT墜ち
【BBQ＆BBM63本目】公開串登録所【ピンポイント規制】
http://qb5.2ch.net/test/read.cgi/sec2chd/1357086390/
□規制解除要望□ 焼かれたひと専用 [BBQ]★28
http://uni.2ch.net/test/read.cgi/goki/1351641393/

[3 動け動けウゴウゴ２ちゃんねる 2013/04/28(日) 16:35:31.10 ID:SEMu1WLY0]

Boo2008の仕様@2009/06/24 現在
●概要
　・BBQチェックを行います。登録済みの場合はここで終了。
　・SpamCop(http://www.spamcop.net/)チェックをしています。黒の場合、焼き確定。
　・標準で30個のポートをチェックします。
　　ただし、単純にproxy接続するだけなので、WebCGIやSocks、Torには現時点では未対応です。
　　ポート番号を追加指定することが出来ます。
　・逆引きできないIPアドレスは、焼き確定。
　　ただし、ポートもチェックします。結果をHack72へ送ります。
　・正引きできないホスト名に対してIPアドレスが存在する場合は、焼き確定。
　　ただし、Hack72には送られません。

[4 動け動けウゴウゴ２ちゃんねる 2013/04/28(日) 16:35:50.53 ID:SEMu1WLY0]

●返り値（エラーメッセージ）
　"Good bye 1111 クエリが空っぽです(´･ω･`)",
　"Good bye 1112 そんな人いないです(´･ω･`)",
　"Good bye 1113 あっぷあっぷしています(´･ω･`) -> $err",
　"Good bye 1114 あっぷあっぷしています(´･ω･`) -> $err",

　"Good bye 1122 URIがおかしゅいです(´･ω･`) -> $err",
　"Good bye 1112 時刻がおかしゅいです(´･ω･`) -> $err",
　"Good bye 1113 ID が ??? の時は何も入れないでください(´･ω･`) -> $err",
　"Good bye 1114 ID に変なのが入っているです(´･ω･`) -> $err",
　"Good bye 1333 URIがおかしゅいです。そんな板スレッドはないです(´･ω･`) -> $err",

　"Good bye 1444 ログがなかった。 (´･ω･`)",
　"Good bye 2222 探せなかった。存在しない。 (´･ω･`)"

　"Good bye 2288 例のサーバから探せなかった。多分そのサーバはBoo80未実装(´･ω･`) -> $err",
　"Good bye 2289 例のサーバから探せなかった。多分そのサーバは墜ちているかも(´･ω･`) -> $err",

　"Good bye 3333 携帯さんなのでチェックしないです(´･ω･`)",
　"Good bye 3334 P2さんなのでチェックしないです(´･ω･`)",

　"Good bye 4001 IPアドレス or ホスト名がない(´･ω･`) -> $err",
　"Good bye 4002 IPアドレス or ホスト名が変(´･ω･`) -> $err",
　"Good bye 4010 portがない(´･ω･`) -> $err",
　"Good bye 4011 portが変(´･ω･`) -> $err",
　"Good bye 4023 多分、IPアドレスが変(´･ω･`) -> $err",
　"Good bye 4024 多分、ホスト名が変(´･ω･`) -> $err",

　"Good bye 9000 がいしゅつ!!Done ! -> [BBQ Status]",
　"Good bye 9001 がいしゅつ!!Yeah ! -> [BBQ Status]",
　"Good bye 9010 すでにBBQされています(´･ω･`) -> [BBQ Status]",

　"Good bye 0000 Thank you. <em class="delicious">Wow taste good!</em>",
　"Good bye 0001 Thank you. <em class="noproxy">Maybe, not be proxy...</em>",

−詳細−
　"Good bye 9000 がいしゅつ!!Done !"
　→ 既に調査済み。串ではないと判定。
　"Good bye 9001 がいしゅつ!!Yeah !"
　→ 既に調査済み。串と判定。

[5 動け動けウゴウゴ２ちゃんねる 2013/04/28(日) 16:36:12.03 ID:SEMu1WLY0]

●ポイント制
　判定にて黒と判断された場合にポイントが付与されます。
　串動作したとき→+765pts.
　SpamCop登録されていたとき→+5pts.
　正引き、逆引きできなかったとき→+1pts.
　ちなみに月ごとランキングですが、鯖自体がPST+8PDTで動いていますのでJSTより16-17時間ほど遅れています。
　その結果、月をまたぐ時間帯では先月分に追加されます。

●トリップ対応
　新式の12桁トリップにも対応。
　トリップキー入力時のみ、トリップ毎にBooポイントを付与。
　将来的には何かしらのポイントへの還元がなされるかも？(beとかモリタポとか)

●串チェック時のコード
　http://cpansearch.perl.org/src/GAAS/libwww-perl-5.826/lib/HTTP/Status.pm
　に載っているです。
　それぞれの意味は個々で調べてみよう♪

[6 動け動けウゴウゴ２ちゃんねる 2013/04/28(日) 16:36:28.41 ID:SEMu1WLY0]

●その他
# 起動数制限装置
my $Processes = scalar grep /$0/, qx|/bin/ps Uch2boo|;
my @LA5 = split /,/, (qx|/usr/bin/uptime| =~ /load averages: (.+)$/)[0];
if ($Processes > ((localtime)[2] > 16 ? 30 : 50) or $LA5[0] > 5) {
Error('02',sprintf "Boo2008 running processes = %d : load averages = %s, %s, %s", $Processes, @LA5)
}

[7 動け動けウゴウゴ２ちゃんねる 2013/04/28(日) 16:37:39.19 ID:SEMu1WLY0]

落ちてたので再起動

[8 未承諾広告※ ◆Boo2014ByhBJ 2013/04/28(日) 21:45:00.79 ID:IHu1dSc+0]

天麩羅が古いのでやり直し♪現ばーぢょんは、1.24 だす。

[9 未承諾広告※ ◆Boo2014ByhBJ 2013/04/30(火) 19:46:28.38 ID:Ob7mppLy0]

>>1
my @History = (
[qw(1.25 2013/04/13 逆引きすんのやーめた。)],
[qw(1.24 2013/03/25 現在の登録数を表示。)],
[qw(1.23 2013/03/19 socksやめた。)],
[qw(1.22 2013/01/27 4.3.2.1.tor.dan.me.uk いれた)],
[qw(1.21 2011/06/18 IPアドレス判定をややゆるく？（rfc5735利用）)],
[qw(1.20 2011/04/11 BBQなリモートホストはお断り)],
[qw(1.19 2011/02/12 稼働中ログみたいのをつけた)],
[qw(1.18 2011/01/25 IPv4をゼロサプレスするりた)],
[qw(1.17 2011/01/16 news4vipに対応したかも。)],

[10 未承諾広告※ ◆Boo2014ByhBJ 2013/04/30(火) 19:50:42.79 ID:Ob7mppLy0]

>>4
["Good bye 1111", "クエリが空っぽです(´･ω･`)"],
["Good bye 1112", "そんな人いないです(´･ω･`)"],
["Good bye 1113", "あっぷあっぷしています(´･ω･`) -> $err"],
["Good bye 1114", "あっぷあっぷしています(´･ω･`) -> $err"],
["Good bye 1115", "[―{}¥@{}¥@{}-]な人はお断りだ！ $err"],

["Good bye 1122", "URIがおかしゅいです(´･ω･`) -> $err"],
["Good bye 1112", "時刻がおかしゅいです(´･ω･`) -> $err"],
["Good bye 1113", "ID が ??? の時は何も入れないでください(´･ω･`) -> $err"],
["Good bye 1114", "ID に変なのが入っているです(´･ω･`) -> $err"],

["Good bye 1333", "URIがおかしゅいです。そんな板スレッドはないです(´･ω･`) -> $err"],
["Good bye 2284", "ipv6鯖なのでチェックしないです(´･ω･`)"],

["Good bye 2222", "探せなかった。存在しない。 (´･ω･`)<!-- $err -->"],
["Good bye 1444", "ログがなかった。 (´･ω･`)<!-- $err -->"],

["Good bye 2280", "例のサーバから探せなかった。多分そのサーバはおかしゅいかも(´･ω･`) -> $err"],
["Good bye 2281", "例のサーバから探せなかった。多分そのサーバはBoo未実装(´･ω･`) -> $err"],
["Good bye 2282", "例のサーバから探せなかった。多分そのサーバはいやぁーんかも(´･ω･`) -> $err"],
["Good bye 2283", "例のサーバから探せなかった。多分そのサーバは墜ちているかも(´･ω･`) -> $err"],

["Good bye 3333", "携帯さんなのでチェックしないです(´･ω･`)"],
["Good bye 3334", "P2さんなのでチェックしないです(´･ω･`)"],

["Good bye 4001", "IPアドレス or ホスト名がない(´･ω･`) -> $err"],
["Good bye 4002", "IPアドレス or ホスト名が変(´･ω･`) -> $err"],
["Good bye 4010", "portがない(´･ω･`) -> $err"],
["Good bye 4011", "portが変(´･ω･`) -> $err"],
["Good bye 4023", "多分、IPアドレスが変(´･ω･`) -> $err"],
["Good bye 4024", "多分、ホスト名が変(´･ω･`) -> $err"],

["Good bye 9000", "がいしゅつ!!Done ! -> $err "],
["Good bye 9001", "がいしゅつ!!Yeah ! -> $err"],
["Good bye 9010", "すでにBBQされています(´･ω･`) -> $err"],

["Good bye 0000", qq|Thank you. <em class="delicious">Wow taste good!</em>|],
["Good bye 0001", qq|Thank you. <em class="noproxy">Maybe, not be proxy...</em>|],
["Good bye 9999", "テスト出力<!-- $err -->"],
["Good bye 9999", "Boo2008は現在心肺停止中です♪ｷﾗﾝｯ★<br>心臓マッサージしようにも胸が邪魔です！<br>AEDって何の略でしたっけ？<br>人工呼吸って・・・（照照照）<!-- $err -->¥n"],

[11 未承諾広告※ ◆Boo2014ByhBJ 2013/04/30(火) 19:57:56.59 ID:Ob7mppLy0]

>>5
●ポイント制
　判定にて黒と判断された場合にポイントが付与されます。
　串動作したとき→+765pts.
　Tor登録されていたとき→+13pts.
　SpamCop登録されていたとき→+5pts.
　正引き、逆引きできなかったとき→+1pts.

>>6
# 起動数制限装置
my $Processes = scalar grep /$0/, qx|/bin/ps Uch2boo|;
@LA5 = split /, /, (qx|/usr/bin/uptime| =~ /load averages: (.+)$/)[0];
if ($Processes > $Max_Proc) {
Error('02',sprintf "Boo2008 running processes = >> %d << : load averages = %s, %s, %s", $Processes, @LA5)
}
elsif ($LA5[0] > $Max_LA) {
Error('03',sprintf "Boo2008 running processes = %d : load averages = >> %s <<, %s, %s", $Processes, @LA5)
}

●閾値は鯖増強を機会に大幅に緩和しております♪

[12 動け動けウゴウゴ２ちゃんねる 2013/05/02(木) 00:54:14.74 ID:8BOLEZja0]

さっきかけたらこんな表示が出ました。

Software error:
Can't call method "get" on an undefined value at /home/ch2boo/public_html/boo2008.cgi line 319.
For help, please send mail to the webmaster ([e-mail]), giving this error message and the time and date of the error.