★三　【 スクリプト改造工房 PART 9 】　★三

334 ：nobodyさん：2008/07/25(金) 22:21:13 ID:???

>>333
ありがとうございました！
ちゃんとできました！

335 ：nobodyさん：2008/08/07(木) 13:46:25 ID:qpI1q2Ei

【CGI名】 PRTC BBS
【配布先URL】 一般に配布されていません
【ヘルプ内容】暗号化をしたいです

http://www.rescue.ne.jp/cgi/htpasswd/makepwd-des/
このサイトのような感じで(もっと簡素でも構いません)
とにかく出力をしたいんです
下記のソースでcgiを動かしたいのですが、初心者でわかりません
知識不足なのはわかっているのですがどうしてもやりたいです
よろしくお願いします

sub enc_string{
my ($key, $string) = @_;
my @map = (('A' ... 'Z'), ('a' ... 'z'), ('0' ... '9'), '+', '&');
my @key = unpack('C*', $key);
my $str = '';
my @x = map { int(rand(200)) } (0 ... 2);
@key = map {$x[$_] ^ $key[$_]} (0 ... 2);
while($string ne ''){
my $n = substr($string, 0, 3, '');
my @n = unpack('C3', $n);
map{$n[$_] ^= ($key[$_])} (0 ... 2);

336 ：335：2008/08/07(木) 13:47:25 ID:???

@key = unpack('C3', $n);
@key = map {$x[$_] ^ $key[$_]} (0 ... 2);
my $a = $n[0] >> 2;
my $b = (($n[0] & 3) << 4) | ($n[1] >> 4);
my $c = (($n[1] & 15) << 2) | ($n[2] >> 6);
my $d = $n[2] & 63;
$str .= $map[$a] . $map[$b] . $map[$c] . $map[$d];
}
my $a = $x[0] >> 2;
my $b = (($x[0] & 3) << 4) | ($x[1] >> 4);
my $c = (($x[1] & 15) << 2) | ($x[2] >> 6);
my $d = $x[2] & 63;
return $str.'<>'.$map[$a].$map[$b].$map[$c].$map[$d];
}

337 ：nobodyさん：2008/08/09(土) 03:15:31 ID:pVYfvjSg

【盗聴】web-up.cside.biz【個人情報詐取】
http://pc11.2ch.net/test/read.cgi/php/1218216303/l50

338 ：nobodyさん：2008/08/18(月) 18:39:47 ID:???

>>335
それは暗号化キーと暗号化対象文字列を引数に取り、暗号化後の文字列二種を '<>' 区切りで返すサブルーチンです。
あとはそのサブルーチンを適切な引数で呼出し、返値を受取って表示するだけです。
この場合、引数は基本的に任意ですから、必要なものを与えてください。
値の与え方が分からない場合は暗号化アルゴリズムについて調べてください。
ルーチンの呼出し方、または返値の受取り方が分からない場合は、Perl のサブルーチン呼出しについて調べて下さい。
プログラムでの値の受取り方、または値の表示の仕方が分からない場合は、CGI の基礎を学ばれるべきだと思います。

339 ：nobodyさん：2008/08/22(金) 12:34:43 ID:HAxZZ1Pz

△▲　WebProg 初心者の質問 Part17　▼▽
http://pc11.2ch.net/test/read.cgi/php/1204462146/l50
（スレ違いしみませんでした））
から来ましたm(__)m

CGI掲示板スクリプト、ウェブパティオの記事表示順の変更について教えてください。

http://bbs.capture-game.com/cgi/mobile.html
（バージョンは3.19です）
のウェブパティオについて質問なのですが
携帯のレス表示画面で単純に新しいレス記事を上から表示するには
何処を変更したらいいでしょうか？
初心者の質問スレではreverseを使う所まで教えて頂いたのですが、
何分初心者ですので何卒お願い致します。

340 ：nobodyさん：2008/08/22(金) 12:37:00 ID:???

>(3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い

341 ：nobodyさん：2008/08/22(金) 12:58:25 ID:HAxZZ1Pz

>>340
すいません。ご指摘ありがとうございます。

補足です。

【.　 CGI名 　.】　携帯対応ウェブパティオv3.19
【配布先URL】　ttp://www.capture-game.com/modules/wfdownloads/singlefile.php?cid=1&lid=2
【. 置き場所 .】　ttp://www.capture-game.com/modules/wfdownloads/visit.php?cid=1&lid=2
【ヘルプ内容】　携帯電話表示でレス表示画面の並び順を通常12345と並んでいるのを54321という風に新しい書き込みからに並び替えたいです。
lib/phone/read.plをいろいろやってみましたがPerlの知識が乏しいため駄目です。初心者の質問スレではreverseを教えていただきましたが、
どの様なプログラムを何処に入れたらいいか解りません。教えて下さい。何行目を（）しなさいみたいに言っていただけたら幸いです。
なにとぞお願い致します。

342 ：nobodyさん：2008/08/22(金) 12:59:30 ID:???

>少しは自分で考えること

343 ：nobodyさん：2008/08/22(金) 13:38:02 ID:???

>>342
もしかして
# 投稿順にソート
@new = @new[sort {$sort[$b] <=> $sort[$a]} 0 .. $#sort];

regist.plのここですかね？^^;

344 ：nobodyさん：2008/08/22(金) 17:08:31 ID:???

>>343
で、やってみたか？

345 ：nobodyさん：2008/08/22(金) 17:49:49 ID:???

>>344
やってみました＾＾
これと
@new = @new[reverse sort {$sort[$b] <=> $sort[$a]} 0 .. $#sort];

これを
@new = reverse(@new);
@new = @new[sort {$sort[$b] <=> $sort[$a]} 0 .. $#sort];

試しましたが無理でしたorz

346 ：nobodyさん：2008/08/22(金) 23:20:22 ID:???

>>345
reverse() までたどり着いてんならあともう一歩だ。がんばれ。

347 ：nobodyさん：2008/08/23(土) 01:26:37 ID:???

lib/phone/read.plの２２０行目
while (<IN>) {
　　　　↓
for (reverse <IN>){

ってな感じじゃないかな

348 ：nobodyさん：2008/08/23(土) 01:32:40 ID:???

>>347
while と for では $_ のスコープに関する扱いに違いがある点に注意。
また逐行処理前提で書かれたループ内のコードが適切でない可能性があるよ。

読んでないからどう影響するかはわからんけど応援してみる。

349 ：nobodyさん：2008/08/23(土) 01:48:47 ID:???

>>346
>>348
ありがとうございます(^o^)

>>347
解りやすくありがとうございます＾＾
出来た！と思ったのですが（ひっくり返りました（感動））
１ページ表示数以上のレスが付くと一番新しいレスが２ページ目に行ってしまいます（涙）

350 ：nobodyさん：2008/08/23(土) 03:58:22 ID:???

@new = @new[sort {$sort[$a] <=> $sort[$b]} 0 .. $#sort];

でどうだ？

351 ：nobodyさん：2008/08/23(土) 09:27:40 ID:???

>>350
２カ所とも試してみましたが変わりませんでした(;.;)

ありがとうございました。

352 ：347：2008/08/23(土) 09:49:35 ID:???

>>349
あとは表示するレスの抽出だけみたいだから
$i = 0;
while (<IN>) {
$i++;
if ($i <= $from) { next; }
if ($i > $to) { last; }

chop;
↑の部分（read.pl２２０行目辺り）を
$i= 0; my @line;
while (<IN>){
$i++;
if ($i <= $from) { next; }
if ($i > $to) { last; }
push(@line, $_);
}
for (reverse @line){
chop;

ってな感じじゃないかな

353 ：nobodyさん：2008/08/23(土) 16:32:22 ID:???

>>352

見事に出来ました(T.T)
非常に解りやすく教えて頂き本当に感謝致します。
ありがとうございましたm(__)m

354 ：nobodyさん：2008/08/24(日) 20:26:26 ID:8OT0ZHuq

【.　 CGI名 　.】　HiLink ver1.12（サンプルAバージョン）
【配布先URL】　http://www.e-hws.net/
【. 置き場所 .】　http://www.e-hws.net/hilink.html
【ヘルプ内容】
リンク登録時に特定のカテゴリーを選択したとき、表示部のテーブル背景色を変更したいです。
hilink.cgiの「表示データ作成」部分に以下のように追加し

if ($category eq 'ああああ' ){$cate_clr="red";}
elsif ($category eq 'いいいい ){$cate_clr="blue";}
else {$cate_clr="#999999";}

スキンのmain.htmlで、テーブルタグにbgcolor="$cate_clr"と入れてみましたが
うまくいきませんでした。
なにぶん手探りで、何かおかしなことをやらかしているかもしれないのですが
なんとかご教授いただけると嬉しいです。
どうかよろしくお願いします。

355 ：nobodyさん：2008/08/24(日) 20:38:01 ID:ZUYvYMes

【.　 CGI名 　.】　へっどらいん
【配布先URL】　http://php.s3.to/
【. 置き場所 .】　http://php.s3.to/net/#amezo
【ヘルプ内容】
このへっどらいんで出力させる場合に<script>コードを無効にしてほしいです
ないサイトなら問題ないのですがある場合は気になります
よろしくお願いします

356 ：nobodyさん：2008/08/28(木) 12:17:05 ID:???

>>355
headline.phpの144〜146行目

144:　for($j=7; $j<count($files); $j++){//残りはHTMLデータ
145:　　$line.= $files[$j];
146:　}

の下に、以下の行を加える。
$line = preg_replace('/<script[^>]*>.*<\/script>/','',$line);

表示時だけでなくデータ取り込みの際にも<script>を除去したければ、85行目の上にも同じものを入れる。

84:　if($start || !$head[start]){
85:　　　$new.= $line;

検証してないけど。

357 ：nobodyさん：2008/09/02(火) 17:46:02 ID:ikXIt5qG

【　 CGI名 　】配布用web拍手CGI
【配布先URL】http://www.webclap.com/

web拍手CGI公式サイトさんのところで無料配布のスクリプトをもらってきたのですが、
ファビコンがプロバイダ側のへんてこファビコンなので変えたいのです！
自サイトのhtmlページでは自作のファビコンで被せてあるのですが、CGIでファビコンを
つけるのはどこをどういじったら良いですか？

clapinit.txt (cgi)　このファイルがあやしかったので、

#--------------
# HTMLヘッダー
#--------------
sub header{

print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">',"\n";
print '<html lang="ja"><head>',"\n";
print "<title>$title</title>\n";
print "</head>\n";

この内に
print "<link rel="shortcut icon" href="favicon.ico">\n";
↑これを加えてみたのですがダメですた。

他にもいじらないとダメだったりするのでしょうか。
もしかして根本的に間違ってたりするのでしょうか…。
どなたかお助けください。

スクリプトダウンロード先は
http://www.webclap.com/etc/download.html←ここです。

358 ：nobodyさん：2008/09/02(火) 18:03:23 ID:???

print qq|<link rel="shortcut icon" href="favicon.ico">\n|;
書くならエスケープしないと

359 ：357：2008/09/02(火) 18:21:23 ID:ikXIt5qG

358さん、ありがとうっ！
できました。ヽ(　　´　　∇　　｀　　)ノ

エスケープてなんのことかさっぱりですが、助かりました！
ありがとうございましたー。

360 ：WIvuwbtzwfKUbeCY：2008/09/04(木) 04:46:54 ID:???

8BjBoM <a href="http://ywnlxptotivr.com/">ywnlxptotivr</a>, [url=http://rteiyeyfadlo.com/]rteiyeyfadlo[/url], [link=http://ogppqltwqlls.com/]ogppqltwqlls[/link], http://qkrzooqzbhel.com/

361 ：nobodyさん：2008/09/04(木) 06:55:50 ID:???

PHP限定で改造やります
改造したものはHPで公衆発信します

まず以下の情報を書いてレスよろ

[スクリプト名]名前は正確に！！
[配布先URL]二次配布できるかできないか確認するためです。うｐローダに置いてあったらスルー
[改造内容]何をどのように改造したいのか詳しく。あいまいな内容は基本的にスルー

362 ：nobodyさん：2008/09/04(木) 20:31:18 ID:???

>>361
スレの趣旨から反するから改造丸投げはNG

363 ：nobodyさん：2008/09/04(木) 20:58:58 ID:???

一部も丸投げもどっちでもいいよ

364 ：nobodyさん：2008/09/04(木) 23:19:35 ID:???

関連スレ
【 スクリプト改造依頼スレ 】(丸投げ) part7再
http://pc11.2ch.net/test/read.cgi/php/1220469709/

365 ：RZWXbJawD：2008/09/15(月) 12:13:38 ID:???

map+1409.txt;50;60

366 ：nobodyさん：2008/09/20(土) 18:44:46 ID:???

http://www.dotup.org/uploda/www.dotup.org2048.zip.html

ゲームの得点ランキングを作ろうと思い、
名前・得点・コメントを入力してランキングに登録するといった形のものを作りたかったのですが、
値を入力し、送信してもうまく表示されません。
logのファイルに書き込みはできてるみたいですが、正しくかけていないように思えます。

どうすればランキングを表示できるでしょうか？
もうどこが間違ってるのか分からなくなってしまいましたので、アップロードさせていただきました。
どなたか修正・ご指導よろしくお願いします。

http://www.cgi-web.net/download-top.html様の
quizというCGIを元に改造してみたものです。

こちらに誘導されました。よろしくお願いします。

367 ：nobodyさん：2008/09/21(日) 01:27:40 ID:???

>>366
配布元の制限を読むと、あなたが配布元に連絡していない場合、
今回のアップロードは「スクリプトの無断再配布」に当たり、
同サイトの提示するライセンスに抵触する可能性があります。
権利関係を再確認してください。

368 ：nobodyさん：2008/09/26(金) 20:08:56 ID:ze4UkUPR

【.　 CGI名 　.】toshinariスクリプト(Perl)
【配布先URL】http://www.toshinari.net/
【ヘルプ内容】
としなり掲示板にリモートホスト、IPを取得できるように改造してください。
できれば/BBSID/log/00000.cgi
みたいに掲示板IDディレクトリに新しくlogディレクトリを作成してcgiファイルで保存するようにして
それでレス削除画面にリモートホスト、IPを表示させるようにしてくれるといいです。
あと、ここからは希望ですが
リモートホスト(IP)規制機能と透明あぼーん機能をつけてください。
報酬はリモートホスト、IP取得が500P
リモートホスト(IP)規制機能、透明あぼーんまで追加してくださったら+500P払います

369 ：nobodyさん：2008/09/26(金) 20:33:39 ID:???

Pって何やねん

370 ：368：2008/09/26(金) 20:35:04 ID:ze4UkUPR

>>368
すいません、書き忘れてました
ウェブマネーのことです。

371 ：368：2008/09/26(金) 20:36:50 ID:ze4UkUPR

安価ミス・・・
>>368じゃなくて>>369

372 ：nobodyさん：2008/09/26(金) 20:52:29 ID:???

ケチくさいにもほどがあるな

373 ：nobodyさん：2008/09/27(土) 00:18:26 ID:???

>>368
「ここからは希望」ってあるがじゃあその前は何なんだ

374 ：nobodyさん：2008/09/27(土) 04:01:31 ID:???

ま、>>1嫁

375 ：368：2008/09/27(土) 07:15:06 ID:DmLoG2K4

すいません。書き直します
ダウンロード場所：http://cgi.toshinari.net/wiki.cgi
スクリプト名：toshinariスクリプト
どんな風に改造するか：
としなり掲示板にリモートホスト、IPを取得できるように改造してください。
/BBSID/log/00000.cgiという感じにlogディレクトリにcgiファイルで保存するようにしてほしいです。
報酬はWM1000Pです。
これからは希望ですが
ＩＰ規制と透明あぼーんもつけてもらえれば幸いです。

376 ：nobodyさん：2008/09/27(土) 07:49:04 ID:???

>>375
で、どこまでやったのさ？
自分で全然やる気ないなら丸投げスレへ行け

377 ：368：2008/09/27(土) 16:52:29 ID:DmLoG2K4

>>376
どこまでやったというと？
がんばってもできないから改造依頼したんですが・・・
あと、dat落ちしていない丸投げスレのURL教えてください。

378 ：nobodyさん：2008/09/27(土) 16:53:18 ID:???

これはひどい

379 ：368：2008/09/27(土) 19:14:47 ID:DmLoG2K4

なんとか自分でできそうです

380 ：368：2008/09/27(土) 19:25:04 ID:DmLoG2K4

なんとかできました

381 ：nobodyさん：2008/09/29(月) 07:51:32 ID:???

>>380
自分で出来んならくんなよ

382 ：nobodyさん：2008/09/29(月) 08:50:14 ID:???

関連スレ
【 スクリプト改造依頼スレ】(丸投げ) part7再々
http://pc11.2ch.net/test/read.cgi/php/1222645553/

383 ：nobodyさん：2008/09/29(月) 09:02:12 ID:???

丸投げスレがまた即死したので立てときました。
こっち（工房）にまとめようという意見もあるようですが、一種の隔離スレみたいな
意味合いもあると思うので、やっぱあった方がいいかと……

384 ：YwSCdaoYJixVIpCijR：2008/10/03(金) 04:13:35 ID:???

hi, you have super site.,

385 ：nobodyさん：2008/10/04(土) 02:06:40 ID:???

【.　 CGI名 　.】　ショッピングカート WebCart 2.3x
【配布先URL】　http://www.cgis.biz/script_web_cart/
【ヘルプ内容】　
サンプルを見ていただくとわかると思いますが、商品の並び順が新しい番号が
上にくるようになっています。
これをＮＯ．１から表示するようにしたいのですが、どこを改造すればよいか
ご教授ください。

私が見た中で、ここかな？と思ったのは、view.phpの153〜154行目と思ってい
ますが、どうでしょうか。

386 ：nobodyさん：2008/10/04(土) 02:07:50 ID:???

じゃやれよ

387 ：nobodyさん：2008/10/04(土) 02:16:49 ID:???

>>386
じゃやれよって言われても…どう変えればいいのかわからないから聞いているの
ですが？
自分でできそうだったらすでにやってますが、場所が見当ついても、何を変えれ
ばいいのかわからず、作者さんもお忙しいとお聞きしましたので、ここで聞いて
みたのですが…。

388 ：nobodyさん：2008/10/04(土) 02:24:39 ID:???

分からないなりに当たりつけてやってみなよ
まさか100%何も見当付かないってことはあるめえ？

389 ：nobodyさん：2008/10/04(土) 04:39:31 ID:???

言語がわからんってことなら丸投げいけば？

390 ：385：2008/10/05(日) 11:16:52 ID:???

丸投げスレにて教えてもらいました。
誘導ありがとうございましたm(_ _)m

391 ：nobodyさん：2008/10/05(日) 18:39:28 ID:???

回答もらってからこっちを終わらせるとかほんと悪質だなｗ

392 ：nobodyさん：2008/10/07(火) 23:59:17 ID:Zxtb1+eC

>>899
ありがとうございます