ぜろちゃんねるスクリプトを改造するスレ Part2

1 ：名無しさん＠ぜろちゃんねる：2009/02/17(火) 22:36:11 ID:???0

ぜろちゃんねるスクリプトに、
haneやらkageやらdameやら
teletypeやらpreやらnukeanasanやら
おみくじやら何やらの機能を付けたりして改造するスレです。

ぜろちゃんねるろだ
http://zeroch.ps.land.to/

14 ：名無しさん＠ぜろちゃんねる：2009/05/06(水) 23:14:41 ID:???0

携帯の各種識別子取得方法ってがいしゅつだったっけ？

15 ：名無しさん＠ぜろちゃんねる：2009/05/06(水) 23:16:08 ID:MwLxzt0o0

ageとくか

16 ：名無しさん＠ぜろちゃんねる：2009/05/06(水) 23:46:07 ID:???0

>>14
既出だけどかなり古いし完全ではないかもね
うちの環境だけかもしれないがauのは取得できるようになったけど既出の改造してもdocomoが未だに取得出来ないし

17 ：名無しさん＠ぜろちゃんねる：2009/05/06(水) 23:47:00 ID:MwLxzt0o0

>>16
ほしい？

18 ：名無しさん＠ぜろちゃんねる：2009/05/06(水) 23:48:18 ID:MwLxzt0o0

>>16
取得できないのは製造番号じゃなくてimodeID？

19 ：名無しさん＠ぜろちゃんねる：2009/05/07(木) 00:16:45 ID:???0

iモードIDだね
くれる？のなら欲しいよ
docomoユーザーあまり居ないけど出来るなら書込めるようにしてあげたいし

20 ：名無しさん＠ぜろちゃんねる：2009/05/07(木) 12:39:46 ID:3C3n5dzo0

遅くなったけど貼るかなあ。
bbs.cgiの580行目ぐらい
sub GetProductInfo
{
my ($oConv,$agent) = @_;
my $product = undef;
my$host = $oConv->GetRemoteHost();
#docomoの場合
if($host =~ /\.docomo\.ne\.jp/){
$docomo = $ENV{'HTTP_X_DCMGUID'};
$product = $docomo;
}
#auの場合
elsif($host =~ /\.ezweb\.ne\.jp/){
$kddi = $ENV{'HTTP_X_UP_SUBNO'};
$product = $kddi;
}
#softbankの場合
elsif($host =~ /\.jp-.\.ne.jp/){
$agent =~ /SN([A-Za-z0-9]+)/;
$product = $1;
#$product = $ENV{'HTTP_X_JPHONE_UID'};
}
else{
$product = $oConv->GetRemoteHost();
}
return $product;
}

read.cgiの393行目ぐらい
$Page->Print("<form method=\"POST\" action=\"$cgiPath/bbs.cgi?guid=ON\">\n");
r.cguの300行目辺り
$Page->Print("<form method=\"POST\" action=\"$cgiPath/bbs.cgi?guid=ON\" utn>\n");

取得できるようになったら幸いです。

21 ：名無しさん＠ぜろちゃんねる：2009/05/08(金) 08:20:37 ID:???0

>>20
早速使わせてもらってdocomoユーザーの協力を得て行った動作報告を

掲示板トップ（例：http://0ch.mine.nu/jikken/）　　　　　　　　　　　　　　　　 から書き込むと950エラー
スレ　　　　　（例：http://0ch.mine.nu/test/read.cgi/jikken/1234877645/）を開いてからだと書き込めた
とのこと

あとログには7桁のiモードIDのみ記録され、同じiモードIDでもスレのIDは固定されずに書き込む度に変わってしまうみたい
数回書き込みしてくれたのは1人なのでこれについてはまだ不確定だけど
auからの書き込みは取得もID固定も問題なし

ちなみにtest070124使用で、何も弄っていない状態で>20に書き換えた時と
下記辺りの改造をしたままの状態で更に>20に書き換えた時とで試してみたけど結果は同じだった
http://0ch.mine.nu/test/read.cgi/jikken/1046702960/637-639
http://0ch.mine.nu/test/read.cgi/jikken/1046702960/563-565

何にしても取得出来るようにはなったのでdocomoユーザーにも書き込んでもらえるようになったよ
本当にお疲れ様、そしてありがとう

22 ：名無しさん＠ぜろちゃんねる：2009/05/08(金) 08:23:46 ID:nFoDYIiQ0

その既出の改造法ってどこにあるの？

23 ：名無しさん＠ぜろちゃんねる：2009/05/08(金) 10:05:31 ID:nFoDYIiQ0

varda.plの564行目あたり
$Page->Print("<form method=\"POST\" action=\"$cgiPath/bbs.cgi?guid=ON\">");
でindexからでも書き込めるかな

24 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 03:26:29 ID:???0

>>23
改造乙。
俺も昨日試させて貰ってvarda.plにはそれと同じ書き換えしたけど書き込みOKだったよ。
ただやはりIDは固定されないね。auは固定されるけど。

25 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 03:28:14 ID:oK+ath/k0

>>24
改造法がどこにあるのかわからない
わかればそれに合わせて作るんだけど。

26 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 03:34:37 ID:qmxSr0Og0

なぜ"<form method=\"POST\" action=\"$cgiPath/bbs.cgi?guid=ON\" utn>"
と末尾にutnをつけないのかと小一時間（ｒｙ

27 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 03:35:46 ID:qmxSr0Og0

ちなみに、なんでutnが必要かって言うと、imodeはこれつけないと端末固有番号送信しない仕様だから。

28 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 03:35:57 ID:oK+ath/k0

必要ないでしょ
BBMから切り捨てられたものがなぜ必要なのか聞きたいよ

29 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 03:36:57 ID:oK+ath/k0

>>27
はあ？
日本語でおk

30 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 03:39:33 ID:???0

>>25
俺は20の改造しかしてないけど何の改造法を探してるんだ？

31 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 03:41:18 ID:oK+ath/k0

>>30
既出の改造法があるんじゃないの？
IDを固定化できる

32 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 03:41:32 ID:qmxSr0Og0

>>28-29
ってか>>20の改造でもつけてるじゃん。今はそれつけなくても端末固有番号送信すんの？
docomo携帯なんてもってないから俺には確かめようがないけどさ。

33 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 03:42:37 ID:qmxSr0Og0

ちなみにutnつけてないってのは>>23のことね。安価つけなかったからわかりにくかったかもだけど。

34 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 03:47:19 ID:oK+ath/k0

>>32
imodeidはリクエストヘッダにあるからそれを取得してる
>>20を見ればわかると思うのだが
utnをつけてるのは元のソースに追加しただけだから。

35 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 03:51:00 ID:qmxSr0Og0

>>34
あ〜調べてみたらそうみたいだ。
拡張ヘッダの方にあるIDはGETパラメータにguid=ONつければ取得可能になってるのか今は。

36 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 03:51:09 ID:???0

>>31
20の改造でログに記載されるHOSTが
auは「xxxxxxxxxxxxxx_mb.ezweb.ne.jp」だけど
ドコモは「xxxxxxx」と7桁のimodeIDしか取得していないのからそれがID生成に支障をきたしてるんじゃない？
実際ドコモはID固定されているし。

37 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 03:52:30 ID:qmxSr0Og0

ちなみに
ttp://www.nttdocomo.co.jp/service/imode/make/content/ip/index.html#imodeid
に
＞利用時の注意点
＞
＞ * 注意ユーザのiモードID利用設定がOFFの場合にはiモードIDの拡張ヘッダは付与されません。

って記述あるから確認したほうがいいかも

38 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 03:53:33 ID:oK+ath/k0

いやまあなんというか…IDはIDで別のモジュール管轄だから(galadriel.pl)

>>37
送信しなかったらエラーが出るようになってるのもソースを見ればわかると思うんだけど

39 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 03:57:28 ID:qmxSr0Og0

>>38
今確認したらそうなってたわｽﾏｿ。
＞my $product = GetProductInfo($Sys->{'CONV'},$ENV{'HTTP_USER_AGENT'});
＞if($product eq undef){
＞　　return 950;
＞}

ここか。

40 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 03:58:50 ID:???0

＞実際ドコモはID固定されているし。
auの間違いだった。

>>38
管轄は知ってるけどIDに関する改造なんて21が貼ってる
http://0ch.mine.nu/test/read.cgi/jikken/1046702960/637-639
くらいしかないと思うが。
ていうかどこからID固定の改造の話が出てきたのかがわからない。

41 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 04:00:23 ID:qmxSr0Og0

galadriel.plのMakeIDって関数だとIPからID生成する仕様になってるな。

42 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 04:17:16 ID:oK+ath/k0

かなり適当だけど作ってみる

43 ：7M. ◆dq7M./4Uw. ：2009/05/09(土) 06:44:49 ID:dxEZ3Y9g0

携帯からの場合はシリアルからID作る様にすればいいんじゃないですかね。

44 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 09:40:29 ID:oK+ath/k0

早く起きてしまった…
シリアルの一部を抜き出してそれを$hostに入れるって感じで出来るかな

45 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 10:54:24 ID:oK+ath/k0

動作保証はしません。
galadriel.plのMakeIDのところを変える

sub MakeID
{
my $this = shift;
my ($server,$column,$hosts) = @_;
my @times = localtime(time());
my (@nums,$ret,$host,$str,$capID);

# 種の生成
#ezweb端末番号から
if($hosts =~ /\.ezweb\.ne\.jp/){
$host = $ENV{'HTTP_X_UP_SUBNO'}
$host = substr($host , 3 , 4) #上から三つ目から四桁抽出
}
#iモードIDから
elsif($hosts =~ /\.docomo\.ne\.jp/){
$host = $ENV{'HTTP_X_DCMGUID'};
$host = substr($host, 0 , 3) #上から三つ取得
}
#端末シリアル番号から
elsif($hosts =~ /\.jp-.\.ne.jp/){
$agent = $ENV{'HTTP_USER_AGENT'};
$agent =~ /SN([A-Za-z0-9]｛5｝)(\1+)/; #上から五桁取得
$host = $1;
}
#どれでもなかったときIPから
else{
@nums = split(/\./,$ENV{'REMOTE_ADDR'}); # ez番号を分解
$host = substr($nums[3],-3) . substr($nums[2],-1) . substr($nums[1],-1); # 上位3つの1桁目取得;
}
$str = $host . substr(crypt($server,$times[4]),-5); # server名結合
$column = -1 * $column;
# IDの生成
$ret = substr(crypt(crypt($str,$times[5]),$times[3]+31),$column);
$ret =~ s/\./+/g;
return $ret;
}

vara.plの135行目あたり
$id = $oConv->MakeID($oSys->Get('SERVER'),8,$oForm->Get('HOST'));
に変更

46 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 20:24:50 ID:???0

>>45
galadriel.plにMakeID部分の書換えをすると、500 Internal Server Errorでぜろちゃんねる管理にログイン出来なくなります

47 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 20:57:27 ID:oK+ath/k0

#ごめんごめん
#馬鹿なミスしてしまった

sub MakeID
{
my$this = shift;
my($server,$column,$hosts) = @_;
my@times = localtime(time());
my(@nums,$ret,$host,$str,$capID);

# 種の生成
#ezweb端末番号から
if($hosts =~ /\.ezweb\.ne\.jp/){
$host = $ENV{'HTTP_X_UP_SUBNO'};
$host = substr($host , 3 , 4);#上から三つ目から四桁抽出
}
#iモードIDから
elsif($hosts =~ /\.docomo\.ne\.jp/){
$host = $ENV{'HTTP_X_DCMGUID'};
$host = substr($host, 0 , 3);#上から三つ取得
}
#端末シリアル番号から
elsif($hosts =~ /\.jp-.\.ne.jp/){
$agent = $ENV{'HTTP_USER_AGENT'};
$agent =~ /SN([A-Za-z0-9]｛5｝)(\1+)/;#上から五桁取得
$host = $1;
}
#どれでもなかったときIPから
else{
@nums= split(/\./,$ENV{'REMOTE_ADDR'});# ez番号を分解
$host= substr($nums[3],-3) . substr($nums[2],-1) . substr($nums[1],-1);# 上位3つの1桁目取得
}
$str= $host . substr(crypt($server,$times[4]),-5);# server名結合
$column= -1 * $column;
# IDの生成
$ret= substr(crypt(crypt($str,$times[5]),$times[3]+31),$column);
$ret=~ s/\./+/g;
return $ret;
}

vara.plの135行目あたり
$id= $oConv->MakeID($oSys->Get('SERVER'),8,$oForm->Get('HOST'));
に変更

48 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 23:01:46 ID:???0

ez番…号？

49 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 23:08:07 ID:oK+ath/k0

ez番号であってるんだけど
サブスクライバIDって呼んでほしかったの？
どうでもいい

50 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 23:11:28 ID:???0

横からですが貰って行きますー

51 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 23:22:06 ID:???0

携帯がauだからdocomo利用者が来てくれないことには確認できないのが辛い

52 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 23:39:34 ID:oK+ath/k0

よく見たらezweb端末番号になってたな
まあ

　　　　　　　　　　　　／）
　　　　　　　　　　　／／／）
　　　　　　　　　 ／,.=ﾞ''"／
　　　／　　　　 i f　,.r='"-‐'つ＿＿＿_　　　こまけぇこたぁいいんだよ！！
　　/　　　　　 /　　　_,.-‐'~／⌒　　⌒＼
　　　　／　 　,i　　　,二ﾆ⊃（ ●）.　（●）＼
　　　/　 　　ﾉ　　　 ilﾞフ::::::⌒（__人__）⌒::::: ＼
　　　　　　,ｲ｢ﾄ､　　,!,!|　　　　　|r┬-|　　　　　|
　　　　　/　iﾄヾヽ_/ｨ"＼ 　　 　 `ー'´ 　 　／

53 ：名無しさん＠ぜろちゃんねる：2009/05/10(日) 03:13:54 ID:???0

ソフバンの行がw

54 ：名無しさん＠ぜろちゃんねる：2009/05/14(木) 22:01:03 ID:???0

>>47
とりあえずezwebについてはID固定を確認出来ました
docomoは利用者が全然来てくれないので未確認

55 ：名無しさん＠ぜろちゃんねる：2009/05/14(木) 22:36:24 ID:???0

うちの掲示板に組み込んで試したけど
docomoはID固定ならずでしたよ

56 ：名無しさん＠ぜろちゃんねる：2009/05/14(木) 22:41:28 ID:Qemn4XCs0

む、なんかバグがあるっぽいな…

57 ：名無しさん＠ぜろちゃんねる：2009/05/14(木) 22:46:21 ID:Qemn4XCs0

あーあ、そういうことかｗｗｗ
アホすぎるだろ俺

58 ：名無しさん＠ぜろちゃんねる：2009/05/14(木) 22:58:55 ID:Qemn4XCs0

即席だけど、こうやったらできるかなあ…
sub MakeID
{
my$this = shift;
my($server,$column) = @_;
my@times = localtime(time());
my(@nums,$ret,$host,$str,$capID);
my$IP = $ENV{'REMOTE_ADDR'};
my$hosts = gethostbyaddr(pack('c4',split(/\./, $IP)), 2) || $IP;

# 種の生成
#ez番号から
if($hosts =~ /\.ezweb\.ne\.jp$/){
$host = $ENV{'HTTP_X_UP_SUBNO'};
$host = substr($host , 3 , 4);#上から三つ目から四桁抽出
}
#iモードIDから
elsif($hosts =~ /\.docomo\.ne\.jp$/){
$host = $ENV{'HTTP_X_DCMGUID'};
$host = substr($host, 0 , 3);#上から三つ取得
}
#softbank端末シリアル番号から
elsif($hosts =~ /\.jp-.\.ne.jp$/){
$agent = $ENV{'HTTP_USER_AGENT'};
$agent =~ /SN([A-Za-z0-9]｛5｝)(\1+)/;#上から五桁取得
$host = $1;
}
#どれでもなかったときIPから
else{
@nums= split(/\./,$ENV{'REMOTE_ADDR'});# ip番号を分解
$host= substr($nums[3],-3) . substr($nums[2],-1) . substr($nums[1],-1);# 上位3つの1桁目取得
}
$str= $host . substr(crypt($server,$times[4]),-5);# server名結合
$column= -1 * $column;
# IDの生成
$ret= substr(crypt(crypt($str,$times[5]),$times[3]+31),$column);
$ret=~ s/\./+/g;
return $ret;
}

vara.plの135行目あたり
$id= $oConv->MakeID($oSys->Get('SERVER'),8);
に戻して
変更いらない

59 ：名無しさん＠ぜろちゃんねる：2009/05/14(木) 23:20:15 ID:???0

名前：名無しさん[] 投稿日：2009/05/14(木) 17:22:36 ID:3usbh9YAO
てす1

名前：名無しさん[] 投稿日：2009/05/14(木) 17:23:07 ID:+yNQ/sn2O
てす2

やっぱダメぽいですね

60 ：名無しさん＠ぜろちゃんねる：2009/05/14(木) 23:22:26 ID:???0

>>59
ログに記録されるホストはどうなってる？

61 ：名無しさん＠ぜろちゃんねる：2009/05/14(木) 23:28:46 ID:Qemn4XCs0

んじゃ確実な方やるか
sub MakeID
{
my$this = shift;
my($server,$column,$hosts) = @_;
my@times = localtime(time());
my(@nums,$ret,$host,$str,$capID);

# 種の生成
#ez番号から
if($hosts =~ /\.ezweb\.ne\.jp/){
$host = $ENV{'HTTP_X_UP_SUBNO'};
$host = substr($host , 3 , 4);#上から三つ目から四桁抽出
}
#iモードIDから
elsif($hosts =~ /\.docomo\.ne\.jp/){
$host = $ENV{'HTTP_X_DCMGUID'};
$host = substr($host, 0 , 3);#上から三つ取得
}
#softbank端末シリアル番号から
elsif($hosts =~ /\.jp-.\.ne.jp/){
$agent = $ENV{'HTTP_USER_AGENT'};
$agent =~ /SN([A-Za-z0-9]｛5｝)(\1+)/;#上から五桁取得
$host = $1;
}
#どれでもなかったときIPから
else{
@nums= split(/\./,$ENV{'REMOTE_ADDR'});# ip番号を分解
$host= substr($nums[3],-3) . substr($nums[2],-1) . substr($nums[1],-1);# 上位3つの1桁目取得
}
$str= $host . substr(crypt($server,$times[4]),-5);# server名結合
$column= -1 * $column;
# IDの生成
$ret= substr(crypt(crypt($str,$times[5]),$times[3]+31),$column);
$ret=~ s/\./+/g;
return $ret;
}
vara.plの135行目あたり
$id= $oConv->MakeID($oSys->Get('SERVER'),8,$oConv->GetRemoteHost());
に変更

62 ：名無しさん＠ぜろちゃんねる：2009/05/14(木) 23:34:13 ID:???0

>>60
1242289356<>22<>0ch BBS 2007-01-24<>210.136.161.165
1242289387<>22<>0ch BBS 2007-01-24<>210.136.161.162

ログ履歴です

63 ：名無しさん＠ぜろちゃんねる：2009/05/14(木) 23:38:28 ID:Qemn4XCs0

何故IPが記録されているのやら

64 ：名無しさん＠ぜろちゃんねる：2009/05/15(金) 00:31:57 ID:???0

>>63
うちの掲示板でもIPで記録される時もあればiモードIDで記録される時もあるよ

65 ：名無しさん＠ぜろちゃんねる：2009/05/15(金) 00:34:04 ID:AbwZvyhI0

再現できない

66 ：名無しさん＠ぜろちゃんねる：2009/05/15(金) 00:36:14 ID:AbwZvyhI0

galadrielのgetremotehostでIPが戻ってきちゃってるのかなー
それぐらいしか原因思いつかない

67 ：64：2009/05/15(金) 00:49:59 ID:???0

>>66
ログ確認してみたらうちの掲示板では>>47の改造をした直後からIPでしか記録されなくなってる

68 ：名無しさん＠ぜろちゃんねる：2009/05/15(金) 00:59:52 ID:AbwZvyhI0

>>47でログに影響が出るわけない

69 ：64：2009/05/15(金) 01:14:18 ID:???0

別に>>47に原因があるとは思ってないし言ってもないよ、でもiモードIDでは一切記録されてないのは事実

70 ：名無しさん＠ぜろちゃんねる：2009/05/15(金) 01:18:14 ID:AbwZvyhI0

じゃあ、>>47を元に戻した状態でiモードIDが記録されるか確認して

71 ：7M. ◆dq7M./4Uw. ：2009/05/15(金) 07:13:37 ID:eTlfXevc0

docomoだけの不具合？
なら書き込みフォームにguid=ONが抜けてるとかとかとか。。。

72 ：名無しさん＠ぜろちゃんねる：2009/05/15(金) 07:30:29 ID:5lRNBTbU0

さすがにそれはないですね。

73 ：7M. ◆dq7M./4Uw. ：2009/05/15(金) 09:13:43 ID:eTlfXevc0

そですか。
それなら、vara.plのID作成部分で変にGetRemoteHostとかやっちゃってるのが原因かなぁ。
MakeIDの中でIPをgethostbyaddrして、キャリアを分ける、あとはキャリア毎のシリアルからID生成とかすれば、、。

あとまぁ、あんま心配は要らないかもしれないんですが、
DoCoMoの携帯は設定によってはGUID送ってくれないので、
からっぽだった時の対策を何かしとくといいかもしれません、

74 ：名無しさん＠ぜろちゃんねる：2009/05/15(金) 15:00:59 ID:AbwZvyhI0

140行目あたりに次の行追加
$Sys->{'FORM'}->Set('HOSTS',$ENV{'REMOTE_HOST'});
vara.plの135行目あたり
$id= $oConv->MakeID($oSys->Get('SERVER'),8,$oForm->Get('HOSTS'));
で、>>61って感じで。

>>73
それが原因なんですかね

75 ：名無しさん＠ぜろちゃんねる：2009/05/17(日) 09:56:19 ID:???0

>>74
16日に1件だけドコモからの書き込みがあったみたいなので
ログを確認してみたらその書き込みだけHOSTに何の記録もなく空欄でした
HOSTが記録されないのでは恐らくID固定はされない気がします

76 ：名無しさん＠ぜろちゃんねる：2009/05/17(日) 10:16:57 ID:0lt/bALw0

気がしますって＾＾；
まあID作成関数とログは何の関係もないから…とだけ
取得できない理由かあ…再現できないから対処のしようもないし
環境が原因でなければ何が原因なのか…

77 ：名無しさん＠ぜろちゃんねる：2009/05/17(日) 11:04:18 ID:???0

ログ記録を捨ててまでID固定したいって人もいないのでは？

78 ：名無しさん＠ぜろちゃんねる：2009/05/17(日) 20:39:21 ID:LmDZbEig0

ホスト情報の取得自体に失敗してるのだとしたら関係おおアリじゃね？docomo携帯と判別できないからIPからID作成されるし。

79 ：名無しさん＠ぜろちゃんねる：2009/05/17(日) 20:40:23 ID:LmDZbEig0

ホスト情報ってか、ホスト名だな。

80 ：7M. ◆dq7M./4Uw. ：2009/05/18(月) 03:45:24 ID:2pSTYC8Y0

動作確認してないからわかんないんですけど、
こんな感じでどーすか。

sub MakeID
{
my $this = shift;
my ($server,$column) = @_;
my @times = localtime(time());
my (@nums,$ret,$host,$str);

# 種の生成
@nums = split(/\./,$ENV{'REMOTE_ADDR'}); # IPを分解

my $hosts = gethostbyaddr(pack('c4',@nums), 2);
if($hosts =~m/docomo\.ne\.jp/){
$host = $ENV{'HTTP_X_DCMGUID'};
$host = substr($host, 0 , 3);#上から三つ取得
}elsif($hosts =~m/ezweb\.ne\.jp/){
$host = $ENV{'HTTP_X_UP_SUBNO'};
$host = substr($host , 3 , 4);#上から三つ目から四桁抽出
}elsif($hosts =~m/jp-[cdhknqrst]\.ne\.jp/){
$ENV{"HTTP_USER_AGENT"} =~m|SN([A-Za-z0-9]{5})(\1+)| and $host = $1;
}else{
$host = substr($nums[3],-3) . substr($nums[2],-1) . substr($nums[1],-1); # 上位3つの1桁目取得
}
$str = $host . substr(crypt($server,$times[4]),-5); # server名結合
$column = -1 * $column; # 桁設定

# IDの生成
$ret = substr(crypt(crypt($str,$times[5]),$times[3]+31),$column);
$ret =~ s/\./+/g;

return $ret;
}

81 ：名無しさん＠ぜろちゃんねる：2009/05/18(月) 04:14:24 ID:lkzYUQPw0

>>61のvara.plと>>74の改造をしたうえでそれもってこと？
それとも>>80のみでいいのかな？

82 ：7M. ◆dq7M./4Uw. ：2009/05/18(月) 06:55:22 ID:2pSTYC8Y0

あ、これはこれ単品での改造です。
vara.plはノータッチのままで。

83 ：名無しさん＠ぜろちゃんねる：2009/05/20(水) 00:02:15 ID:???0

2 名前：エージェント・７７４[] 投稿日：2009/05/19(火) 17:50:36 ID:RUmvn/HYO
3 名前：名無しさんの次レスにご期待下さい[] 投稿日：2009/05/19(火) 17:50:56 ID:N+MJh5F+O

携帯（ドコーモ）IDはダメぽです。ランダムはスルーで

84 ：名無しさん＠ぜろちゃんねる：2009/05/23(土) 21:49:24 ID:???0

?guid=ON

85 ：名無しさん＠ぜろちゃんねる：2009/05/24(日) 03:49:16 ID:QO5+3RtU0

ホストログに、GUIDは表示されている？

86 ：名無しさん＠ぜろちゃんねる：2009/05/26(火) 08:01:30 ID:???0

IPで記録されるみたい

87 ：名無しさん＠ぜろちゃんねる：2009/05/26(火) 13:51:55 ID:39G2henI0

pack('c4',@nums);//小文字c
じゃなくて
pack('C4',@nums);//大文字C
じゃね？小文字だと符号付きchar扱いになるはず。

88 ：名無しさん＠ぜろちゃんねる：2009/05/26(火) 15:06:21 ID:???0

>>80の改造をしてからの投稿
129 名前：[] 投稿日：2009/05/26(火) 08:18:13 ID:KjFgOQ56O
てすと1
1243293493<>8<>0ch BBS 2007-01-24<>210.136.161.2

130 名前：[] 投稿日：2009/05/26(火) 08:18:28 ID:Yz2FI8dUO
てすと2
1243293508<>8<>0ch BBS 2007-01-24<>210.153.84.9

>>87のcを小文字から大文字に変更
131 名前：[] 投稿日：2009/05/26(火) 08:19:58 ID:x3U9ZR6AO
てす1
1243293598<>12<>0ch BBS 2007-01-24<>210.153.86.109

132 名前：[] 投稿日：2009/05/26(火) 08:20:57 ID:D3JQnc92O
てす2
1243293657<>10<>0ch BBS 2007-01-24<>210.153.86.17

小文字から大文字に変更したら投稿時間の縛りが出来るようになりましたが
IDは依然固定されないままです。

89 ：名無しさん＠ぜろちゃんねる：2009/05/26(火) 16:26:15 ID:39G2henI0

ってか、docomoのGUID送信って、>>84のパラメータをbbs.cgiの後にくっつけないとダメじゃね？
ソースのフォーム生成箇所もいじらないとダメなはず。

90 ：名無しさん＠ぜろちゃんねる：2009/05/26(火) 22:10:36 ID:A4LQ6o/M0

パラメータ改造はホストログ出力改造のときに一緒にだしたとおもうんだけどな。
パラメータだけで送信されるはず。

91 ：名無しさん＠ぜろちゃんねる：2009/05/26(火) 22:54:48 ID:???0

>>89
i?guid=ONは>>20などで既出だよ
だからすでにくっつけ済み、だけど固定出来ない

92 ：名無しさん＠ぜろちゃんねる：2009/05/26(火) 23:02:35 ID:A4LQ6o/M0

機種判定は、galadrielのGetAgentModeを使った方がいいのかもしれないな

93 ：名無しさん＠ぜろちゃんねる：2009/05/26(火) 23:39:54 ID:A4LQ6o/M0

GetAgentModeが古かったので、こっちに差し替えたほうがいいかも
sub GetAgentMode
{
my $this = shift;
my ($UA) = @_;

$_ = $UA;
if (m/DoCoMo/){ return 1; } # docomo携帯
if (m/SoftBank|Vodafone|J-PHONE/){ return 2; } # J-Phone携帯
if (m/KDDI/){ return 3; } # au携帯
if (m/WILLCOM|DDIPOCKET|MobilePhone|Windows CE|/){ return 4; } # willcom
if (m/jig browser/){ return 5; } # jigブラウザ
if (m/ibisBrowser/){ return 6; } # ibisBrowser
if (m/OpenBrowser/){ return 7; } # e-mobile
return 0;
}

94 ：名無しさん＠ぜろちゃんねる：2009/05/26(火) 23:46:47 ID:A4LQ6o/M0

あ、
>if(m/WILLCOM|DDIPOCKET|MobilePhone|Windows CE|/){return 4;}# willcom
は
if(m/WILLCOM|DDIPOCKET|MobilePhone|Windows CE/){return 4;}# willcom
に差し替えておいて。

95 ：名無しさん＠ぜろちゃんねる：2009/05/26(火) 23:54:16 ID:vZwJW9FI0

そろそろどの改造をしたら良いのかまとめた方がいいんじゃないか？
さすがにややこしくなってくる頃だと思うけど

96 ：名無しさん＠ぜろちゃんねる：2009/05/26(火) 23:58:16 ID:???0

>>93の改造したけど無理ぽ

97 ：名無しさん＠ぜろちゃんねる：2009/05/27(水) 00:21:50 ID:Oc3NOtDA0

>>93の改造は、今のところは無関係です。

98 ：名無しさん＠ぜろちゃんねる：2009/05/27(水) 00:23:05 ID:Oc3NOtDA0

>>95
えーっと
7Mさんがやってくれた>>80と>>20と>>23かな？

99 ：名無しさん＠ぜろちゃんねる：2009/05/27(水) 00:30:50 ID:8wS0QBa60

>>87

100 ：名無しさん＠ぜろちゃんねる：2009/05/27(水) 00:32:34 ID:8wS0QBa60

おい日付が変だぞｗｗｗｗｗなんで水曜日になってんのｗｗｗｗ

101 ：名無しさん＠ぜろちゃんねる：2009/05/27(水) 01:02:13 ID:???0

>>100
何を今更ｗ

102 ：名無しさん＠ぜろちゃんねる：2009/05/30(土) 13:28:33 ID:???0

dat落ち画面なんだが
HTML化されてたらそれへの誘導リンクになるやつってどうするんだ？

103 ：名無しさん＠ぜろちゃんねる：2009/05/30(土) 15:50:02 ID:???0

http://www12.atwiki.jp/0ch/pages/44.html

104 ：名無しさん＠ぜろちゃんねる：2009/05/31(日) 01:11:21 ID:aMLwi8Ng0

一つ聞いておきたいんだけど
ホストログのみの改造だとちゃんと出力されるんだよね？
試してみて

105 ：名無しさん＠ぜろちゃんねる：2009/06/01(月) 08:22:21 ID:???0

>>104
何が聞きたいのかわからない。

106 ：名無しさん＠ぜろちゃんねる：2009/06/02(火) 00:30:47 ID:EyAS87J20

>>20と>>23の改造だけなら、guidは取得されるのかを聞きたいんだけど

107 ：名無しさん＠ぜろちゃんねる：2009/06/09(火) 05:19:21 ID:???0

掲示板トップのindexで　
ああああ（以下大量
だとウィンドウサイズに合わせてテーブルが可変して
文字列も自動改行？されていますが
1234567890
のように半角英数文字だとテーブルがウィンドウ枠を超えて
ブラウザの下の横スクロールが現れてしまいます

もし分かる方居たら改造お願いします

108 ：名無しさん＠ぜろちゃんねる：2009/06/10(水) 00:24:21 ID:5zF+ITh+0

それはブラウザの仕様です

109 ：あやの：2009/06/11(木) 16:31:32 ID:vKPdA7kIO

暇だよcocktail..peach-69@docomo.ne.jp

110 ：名無しさん＠ぜろちゃんねる：2009/06/20(土) 03:29:22 ID:???0

新仕様トリップ用ー
ttp://zeroch.ps.land.to/src/zeroch_0012.txt
galadrielの適切な場所と置き換えてねー

111 ：名無しさん＠ぜろちゃんねる：2009/06/20(土) 03:41:35 ID:???0

つーかこれSHA-1モジュール必須じゃん

112 ：名無しさん＠ぜろちゃんねる：2009/06/20(土) 04:31:34 ID:???0

それは2chにいってねー

113 ：7M. ◆dq7M./4Uw. ：2009/06/20(土) 07:54:28 ID:???0

え、新仕様？何がどうなったの？

114 ：名無しさん＠ぜろちゃんねる：2009/06/20(土) 07:59:08 ID:gOdHU1zY0

【堅牢】トリップの新方式を考えてみませんか【互換性】
http://qb5.2ch.net/test/read.cgi/operate/1244993904/
らしい