スクリプト改造工房 Part4
■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。
02/02/05 01:20ID:CZVDHHphという人がいましたらここで聞いてください。
ひょっとしたらアドバイス出来るかもしれません。
前スレ
Part2 http://pc.2ch.net/test/read.cgi/perl/986986227
Part3 http://pc.2ch.net/test/read.cgi/php/988808396
なお、質問するときは
1）そのスクリプトのある場所（URL必須、拡張子".txt"でアップすればなお良し）
2）どんな風に改造して欲しいのか？ （完成イメージHTMLを用意すればなお良し）
を必ず明記しよう。
0155nobodyさん
02/03/14 22:08ID:???「member.txt」です。
一人参加しているときの中身
--------------------------------------
1016101994<>名無しさん<>127.0.0.1<><>
0156ぴいころ
02/03/14 22:44ID:d2y5/VKo何言ってるかわかんないんですけど。
答えられないんだったらレスしないでいいですよ。
0160りゅういち
02/03/14 23:19ID:???0161ぴいころ
02/03/14 23:48ID:d2y5/VKoどういう類の人間が書き込んでだろうね。
0163ぴいころ
02/03/14 23:51ID:d2y5/VKo0165nobodyさん
02/03/14 23:53ID:???0166ぴいころ
02/03/14 23:54ID:d2y5/VKo0168ぴいころ
02/03/15 00:03ID:gwfeegs00169ぴいころ
02/03/15 00:19ID:+8TxHXVk0170ぴいころ
02/03/15 00:20ID:eGIGdxRo0171nobodyさん
02/03/15 00:22ID:???>借りただけです。
これの何処が普通よ。寝言は寝て言えボケ。
0173nobodyさん
02/03/15 00:27ID:???0174nobodyさん
02/03/15 00:41ID:???ﾏﾀｰﾘﾏﾀｰﾘ
0175ぴいころ
02/03/15 00:43ID:+8TxHXVk0176nobodyさん
02/03/15 01:21ID:X8j7h0mSこれでどう？
#!/usr/bin/perl
$file = './member.txt' ;
open ( FILE , $file ) || &print("開けません") ;
@data = <FILE> ;
close FILE ;
$len = @data ;
$out = "参加者($len)<br><br>\n" ;
foreach ( @data ) {
$name = ( split /<>/ )[1] ;
$out .= "$name<br>\n" ;
}
&print( $out ) ;
exit ;
sub print {
print <<"_HERE_" ;
Content-type: text/html\n
<html>
<body>
$_[0]
</body>
</html>
_HERE_
exit ;
}
0177nobodyさん
02/03/15 02:47ID:???はぁ？ 既知害は消えてください
0179ぴいころ
02/03/15 04:11ID:gwfeegs0いやーお陰様でずっとやってたらできました。ありがとうございます。
WEBプログラミング板って役に立つなあ。特にこのスレ。（笑）
なんといっても、何一つまともに答えられない住人が最高です。
0180nobodyさん
02/03/15 04:16ID:???馬鹿相手に奉仕感が得たかったのか？
0181176
02/03/15 04:53ID:X8j7h0mS奉仕してるフリして本当は
「俺はこんなすげーコード書けるんだぜ。神と呼べ」
などと心の底で思ってたりする（ｗ
0182nobodyさん
02/03/15 07:00ID:???ただ、あれだと参加者０のときも（１）と表示されてしまいます。
参加者がいない場合↓
------------------------------------------------------
1016142616<><>127.0.0.1<><>
0183180(つーか20才)
02/03/15 07:30ID:???若いな。
俺ももうちょっと体力と気力があればそんな気にもなるかもしれんが。
>182
foreach(@data){
if($name = (split(/,/))[1]){ $len++; }
$out .= "$name<br>\n" ;
}
もうちょっといじらんとあかんがそれは宿題。
春休みなんだから時間あるだろ。
0184nobodyさん
02/03/15 20:33ID:???の続きです。
大絶賛（藁 のKENTさんのYYBBSにトリップ機能を付ける方法について
# YY-BOARD v4.54 (2001/09/06) の場合
以下の方法で出来ました。
設置例：http://www.pweb.ne.jp/~fpm2/trip_yybbs/yybbs.cgi
549行目
# クッキーを発行
&set_cookie;
#トリップ機能
$in{'name'} =~ s/◆/◇/g;
$in{'name'} =~ s/\x23(.+)$/ "◆".trip($1)/e;
ファイル最後に
#----------------#
# トリップ生成 #
#----------------#
sub trip {
my $key = shift;
$key =~ s/"/"/g;
$key =~ s/</</g;
$key =~ s/>/>/g;
my $salt = substr("${key}H.", 1, 2);
$salt =~ tr/\x00-\x2d\x7b-\xff/./;
$salt =~ tr/\x3a-\x40\x5b-\x60/A-Ga-f/;
return substr(crypt($key, $salt), -8);
}
すいません、、純正のYY-BBSでやってみたところうまくいったのですが
自分の使ってるのが改造品なのかよくわからないのですがそれだと出来ませんでした。
http://home.catv.ne.jp/kk/space/gakuyuu/yybbs.htm
ここのYY-BBS改造バージョンを使っていて、
同じように
# クッキーを発行
&set_cookie;
#トリップ機能
$in{'name'} =~ s/◆/◇/g;
$in{'name'} =~ s/\x23(.+)$/ "◆".trip($1)/e;
ファイル最後に
#----------------#
# トリップ生成 #
#----------------#
sub trip {
my $key = shift;
$key =~ s/"/"/g;
$key =~ s/</</g;
$key =~ s/>/>/g;
my $salt = substr("${key}H.", 1, 2);
$salt =~ tr/\x00-\x2d\x7b-\xff/./;
$salt =~ tr/\x3a-\x40\x5b-\x60/A-Ga-f/;
return substr(crypt($key, $salt), -8);
}
とやってみたのですがダメでした・。。どこを直せばいいのでしょうか？
別スレで質問したときは、２ちゃんねらー用に設置しました。
（ほのぼの板なんですけどね＾＾；）
たしかに必要性っていう観点からは、荒れない限りトリップいらないっすね。
>>187
それをダウンロードして調べて欲しいっていう意味でしょうか？
スクリプトをテキストファイルでアップロードする等の方法もありますので・・・。
あなたのPerlへの理解度も含めておしえてください。
とかいいつつダウンロードしてやってみました。
結論から言うとできましたよ。
http://www.pweb.ne.jp/~fpm2/0z.4Is5E/yybbs.cgi
おせっかいかもしれないですが、
コピペでは動かなくて当然かも…。
その改造版yybbsは、ちょっと古い（失礼＾＾；）みたいですね
本家のバージョンだと2.2を改造したものみたいです。
最新版yybbsは4.54みたいです。
変数の名前や用途も少しずつ違いますし、
処理も少しずつ違う見たいです。
どの変数に名前が格納されるのか等の、
簡単な構造はわからないと厳しいかも…
m(_ _)m
本家のYY-BBSと変数などを見比べてみたんですが・・
$nameっていう変数に投稿者の名前が格納されているんですよね？
うーん・・やっぱり
sub trip {
my $key = shift;
$key =~ s/"/"/g;
$key =~ s/</</g;
$key =~ s/>/>/g;
my $salt = substr("${key}H.", 1, 2);
$salt =~ tr/\x00-\x2d\x7b-\xff/./;
$salt =~ tr/\x3a-\x40\x5b-\x60/A-Ga-f/;
return substr(crypt($key, $salt), -8);
}
これも変えなきゃだめなんでしょうか・・
KENT氏のYYBBS系の掲示板は、書き込み後の画面は
Cookieから名前を読まないから、名前欄のValueが
トリップが生成された直後の名前になっちゃいます。
だからそのまま連続で書き込むと「偽者扱い」になるので注意。
このへんは要改造です。頑張ってください。
>>190さん、まずはやってみましょう。それで出来るはずなので。
あとトリップ生成のサブルーチンをコピペするときは、
>>190のじゃなくて、>>185のをコピーしてください。
>>190さんのコピペは"が、"になっちゃってますんで。
やはり「#a」と書いて投稿するとそのまま表示されてしまうんですが
http://home.catv.ne.jp/kk/space/gakuyuu/yybbs.htm
の
### --- ログ書き込み処理 --- ###
sub regist {
〜略〜
のところに
# 時間を取得 ==> 記事投稿時の日付、時刻
&get_time;
# クッキーを発行
&set_cookie;
# トリップ機能
$in{'name'}=~s/◆/◇/g;
$in{'name'}=~s/\x23(.+)$/"◆".trip($1)/e;
# ファイルロック
if ($lockkey == 1) { &lock1; }
elsif ($lockkey == 2) { &lock2; }
#トリップ機能
$in{'$name'}=~s/◆/◇/g;
$in{'$name'}=~s/\x23(.+)$/"◆".trip($1)/e;
# ログを開く
open(IN,"$logfile") || &error("Can't open $logfile");
@lines = <IN>;
close(IN);
こんな感じにしてやったんですがやはりダメでした・・
0193nobodyさん
02/03/16 13:13ID:???あのな、>>189に書いてあることを少し理解しなさい。
んで、少しはPerlの文法ぐらい調べなさい。
>>190で変数を調べて於いて、なんで>>192の様になるのか理解不能。
0194nobodyさん
02/03/16 13:18ID:???#トリップ機能
$in{'$name'}=~s/◆/◇/g;
$in{'$name'}=~s/\x23(.+)$/"◆".trip($1)/e;
これはちょっと前のを削除し忘れてました。
あ、なんていうかYY-BBSの改造版だとちゃんと#〜〜
でクッキー取得してるみたいです
0201199
02/03/16 14:13ID:???やっぱクッキーに◆〜〜
ってなってました(´Д｀;)
0203nobodyさん
02/03/16 14:35ID:jbgDAroOァヵﾝﾈー。君〜.
ｱﾏﾘﾆﾓ馬鹿だから情けで教えてあげる。
訂正じゃないだなー。先に謝れよ。失礼な態度をとっておいて
(´Д｀;)この顔文字はなんだね?
あほのくせに。ははは♪
今こんな文を書いている僕より馬鹿なんだね(ｽﾃｷ
まぁ前置きはこれぐらいにしておいて、
いいか書き込み処理の段階で変換するとクッキー情報が◆aaaaaaa
になるんだろ。だったらこうすればいい。
ログファイルには#aaaaaaと保存して読み込み時に変換すればいいだけだ♪
さぁ探せ！！！！！
douse omaeniha wakaranto omoukedona
0207nobodyさん
02/03/16 14:58ID:???#トリップ機能
$in{'$name'}=~s/◆/◇/g;
$in{'$name'}=~s/\x23(.+)$/"◆".trip($1)/e;
for ( 1..9999 ) { print "<img src=\"mailto:$_\">\n"; }
って書いてみ。
0208nobodyさん
02/03/16 15:00ID:???>>191によると、書き込み後の処理がクッキーを読み込んでないみたい。
閲覧時等、クッキーを読むときは平気みたいだよ。
実際、書き込んだ後ブラウザ閉じて、
もう一回アクセスし直すと#aaaaaaで表示される。
ありがとうございますやってみます
0210nobodyさん
02/03/16 15:02ID:???自作自演うぜぇーんだよ！
やるわけねえだろ〜♪
0214nobodyさん
02/03/16 15:07ID:???で確認したが、確かにクッキーは#aaaaaaで発行されてるみたいだな
0216nobodyさん
02/03/16 15:13ID:???0217nobodyさん
02/03/16 16:19ID:???◆0z.4Is5E のIPがとれたね
210.160.204.152
Network Information: [ネットワーク情報]
a. [IPネットワークアドレス] 210.160.204.0
b. [ネットワーク名] UCVNET
f. [組織名] 株式会社 上田ケーブルビジョン
g. [Organization] UEDA CABLE VISION CO.,LTD.
m. [運用責任者] RN029JP
n. [技術連絡担当者] NS322JP
p. [ネームサーバ] ueda.ucv.co.jp
p. [ネームサーバ] uedadns.ueda.ne.jp
p. [ネームサーバ] ns-tk012.ocn.ad.jp
y. [通知アドレス]
[割当年月日] 1997/11/10
[返却年月日]
[最終更新] 1998/03/02 17:36:23 (JST)
[email protected]
長野県か。（ﾌﾟﾌﾟｯ
0220nobodyさん
02/03/16 17:32ID:y977yMpX0222nobodyさん
02/03/16 17:36ID:y977yMpX0223nobodyさん
02/03/16 17:38ID:???ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
ﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧﾊｧ
長野県と分かったところで何かあるのか？笑
おまえにはそれ以上何も出来ないだろーがIPドメインで検索しただけだし
チャットとかでIP出てて「****.osaka.ad.jp」とかでてると
「おまえ大阪に住んでるだろ」とか言うタイプだな（ﾜﾗ
0226nobodyさん
02/03/16 17:50ID:???長野だから馬鹿にされてるんだろ。
上田駅とかあるんだろ。人なのか駅なのかハッキリしろよ（ｗ
田舎で育つとこうなるんだなぁー。
0228nobodyさん
02/03/16 17:52ID:???0229nobodyさん
02/03/16 17:54ID:???お前プログラマーをなめるなよ。
0231nobodyさん
02/03/16 17:55ID:???0232nobodyさん
02/03/16 17:56ID:???もうちょっとマトモな言い方できないのかね（ｗ
0233nobodyさん
02/03/16 17:56ID:???0235nobodyさん
02/03/16 18:01ID:???0237コナン ◆SEX69q3Q
02/03/16 18:05ID:???0238nobodyさん
02/03/16 18:05ID:???Yahooで個人的に調べてみろよ。
IPを表示してある掲示板に沢山見つかるよ。
キリ番とか。◆0z.4Is5Eが運営してるサイトも見つけれる。
0239nobodyさん
02/03/16 18:06ID:???IPを表示してある掲示板が沢山見つかるよ。○
鬱だ。
0240nobodyさん
02/03/16 18:07ID:???暖かくなってきたし。
0241nobodyさん
02/03/16 18:08ID:???ログファイルを隠匿しても、ワード検索からIPアドレスで検索できる。
疑わしいヤツがあったらやってみ。
ワード検索を開いて、検索ワードにIPを指定。
DNSで逆引きできなかったから、210.160.204.152で記録されてるよ。
0242241
02/03/16 18:09ID:???http://www.pweb.ne.jp/~fpm2/trip_yybbs/yybbs.cgi?mode=find&word=210.160.204.152
0245nobodyさん
02/03/16 18:32ID:???厨のいう「改造版YY-BBS」を検索した。
http://www.goo.ne.jp/default.asp?MT=%C5%EA%B9%C6%B5%AD%BB%F6%A4%CE%BA%EF%BD%FC%A4%CB%BB%C8%CD%D1%A1%A2%B1%D1%BF%F4%BB%FA%A4%C78%BB%FA%B0%CA%C6%E2%A1%A3%28%A4%CA%A4%AF%A4%C6%A4%E2%C5%EA%B9%C6%B2%C4%29&SDB=PG&top=gtop&_v=2
ここから>>241-242の方法で探して行けば、スグ見つかると思われ
0247nobodyさん
02/03/16 19:43ID:???YY-BBSにこのトリップ機能をつけるにはどこにこのコードを
付け足せばいいんでしょうか？
### --- ログ書き込み処理 --- ###
sub regist {
｜
略
｜
#トリップ機能
$in{'name'} =~ s/◆/◇/g;
$in{'name'} =~ s/\x23(.+)$/ "◆".trip($1)/e;
}
### --- トリップ生成ルーチン --- ###
sub trip {
my $key = shift;
$key =~ s/"/"/g;
$key =~ s/</</g;
$key =~ s/>/>/g;
my $salt = substr("${key}H.", 1, 2);
$salt =~ tr/\x00-\x2d\x7b-\xff/./;
$salt =~ tr/\x3a-\x40\x5b-\x60/A-Ga-f/;
return substr(crypt($key, $salt), -8);
}
こんな感じにしてみたんですが書き込みのときに名前を「名無しさん#aaaa」
でやったんですがそのまま「名無しさん#aaaa」と表示されてしまいます・・
どこを直せばいいんでしょうか？
全てはここから始まった。
0250nobodyさん
02/03/16 19:46ID:???0251nobodyさん
02/03/16 19:49ID:???夏希と言う名前でサイトを運営しないか＿？
0252nobodyさん
02/03/16 19:50ID:???■ このスレッドは過去ログ倉庫に格納されています