■掲示板に戻る■ 全部 1- 101- 201- 301- 最新50 [PR]ぜろちゃんねるプラス[PR]

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

1 ：名無しさん＠ぜろちゃんねる：2009/02/17(火) 22:36:11 ID:???0: ぜろちゃんねるスクリプトに、
haneやらkageやらdameやら
teletypeやらpreやらnukeanasanやら
おみくじやら何やらの機能を付けたりして改造するスレです。

ぜろちゃんねるろだ
http://zeroch.ps.land.to/
8 ：名無しさん＠ぜろちゃんねる：2009/02/23(月) 19:12:15 ID:???0: ろだぐらいいくらでもあるでしょ
9 ：名無しさん＠ぜろちゃんねる：2009/02/27(金) 13:10:43 ID:???0: >>8
そこをなんとか。。。
10 ：名無しさん＠ぜろちゃんねる：2009/03/29(日) 22:08:02 ID:???0: 過去ログを、
http://アドレス/板アドレス/123/1234567890.htmlではなく、
http://アドレス/板アドレス/1234/12345/1234567890.htmlのようにするにはどうすればいいのでしょうか。
11 ：10：2009/03/30(月) 00:05:13 ID:???0: バージョン書き忘れた…
最新版（070124）です。
12 ：名無しさん＠ぜろちゃんねる：2009/05/04(月) 02:39:48 ID:???0: そういえば最近その改造したな
参考になるかどうかは分からないけど

/test/mordor/のbbs.pool.plの過去ログ生成の部分を以下に変更

539行目

$Logs->Add($key,$Dat->GetSubject(),time(),'/' . substr($key,0,4) . '/' .substr($key,0,5));

610行目
$logDir = $Sys->Get('BBSPATH') . '/' . $Sys->Get('BBS') . '/kako/' . substr($key,0,4) .'/' .substr($key,0,5);
13 ：10：2009/05/05(火) 03:43:43 ID:???0: >>12
出来ました。
ありがとうございます。
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: それはブラウザの仕様です

73KB

掲示板に戻る全部前100 次100 最新50

READ.CGI - 0ch+ BBS 0.7.5 20220323
ぜろちゃんねるプラス