CGI Perl総合 (461ﾚｽ)
CGI Perl総合 http://mevius.5ch.net/test/read.cgi/hack/984669133/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
1: 名無しさん [] 2001/03/16(金) 00:12 ぁ事件の後落ちぶれきった ｺﾉ板の栄華を取り戻すべく 少し賢げな話しようぜ (ｵﾌﾟ http://mevius.5ch.net/test/read.cgi/hack/984669133/1
2: 名無しさん [sage ] 2001/03/16(金) 00:42 #どこがイタイのでしょうか？ open(OUT,"|$mailer $address") || die "送信できませんでした\n"; $cgi = new CGI; : die if($cgi->param("realname") eq ""); $Etitle = $form{'titlename'}; $Ename = $form{'realname'}; $emale = $form{'mailaddr'}; $comment = $form{'comm'}; print OUT "Mail From Web\n"; print OUT "$Etitle\n"; print OUT "氏 名：$Ename\n"; print OUT "E-Mail：$emale\n"; print OUT
"コメント：$comment\n"; print OUT "IPアドレス：$ENV{'REMOTE_ADDR'}\n"; close(OUT); print "Content-type: text/html\n\n"; print "<HTML><HEAD><TITLE>index.htm</TITLE></HEAD>\n"; print "<BODY>\n"; print "<CENTER>\n"; print "<H3>メールは送られました。</H3>\n"; print "</CENTER>\n"; print "</BODY></HTML>\n"; http://mevius.5ch.net/test/read.cgi/hack/9
84669133/2
3: none [sage ] 2001/03/16(金) 00:44 あってますか？#!/usr/local/bin/perl $cnt_file = 'cnt.dat'; open(fp,"$cnt_file"); $cnt = <fp>; close(fp); ++$cnt; $len = length $cnt; if ($len < $n) { $imgfile = "0"; } else { $imgfile = substr($cnt, $len-$n, 1); } open(IN,"img/$imgfile.gif"); @lines = <IN>; close(IN); print "Content-type: image/gif\n\n"; print @lines; if ($n == 1) { open(fp,">$cnt_file.tmp"); print fp $cnt; close(fp); rename("$cn
t_file.tmp", $cnt_file); } sub frmdec { $buffer = $ENV{'QUERY_STRING'}; @pairs = split(/&/,$buffer); foreach $pair (@pairs) { local($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $form{$name} = $value; } } http://mevius.5ch.net/test/read.cgi/hack/984669133/3
4: obj [sage ] 2001/03/16(金) 00:46 データファイルを読み込んで@LINESという配列に入れたとします。 配列の中身は '23<>a<>0','26<>b<>5','14<>c<>3','30<>d<>9' だったとして、$xxという変数にa〜dのいずれかの文字が入ります。 例えば$xxにcが入ったらcという要素を含む3要素目の'14<>c<>3' の3を1増減、4にして '23<>a<>0','26<>b<>5','14<>c<>4','30<>d<>9' になった配列をデータファイルに上書き保存したいのですが
どのように組めばよいのでしょうか？ open (IN,"hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。'); @LINES = <IN>; close (IN); $i = "0"; foreach (@LINES){ ($t1,$t2,$t3)=split(/<>/,$_); if ($xx =~ /\Q$t2/) { last; } $i++; } $t3++; $all = $t1; $all .= '<>'; $all .= $t2; $all .= '<>'; $all .= $t3; $all .= '\n'; $LINES[$i] = $all; open (OUT,">$hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません
。'); print OUT (@LINES); close (OUT); こんな感じで組んだんですが、全然ダメで。。。 どなたか教えてください。 http://mevius.5ch.net/test/read.cgi/hack/984669133/4
5: 名無しさん [] 2001/03/16(金) 01:08 >>4 何がしたいのかさっぱりわからん。 これで良いのか？ open (IN,"hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。'); @LINES = <IN>; close (IN); $xx = "c"; foreach (@LINES) { my ($t1, $t2, $t3) = split /<>/; next unless $t2 eq $xx; $t3++; $_ = join ("<>",$t1,$t2,$t3); last; } open (OUT,">$hoge.txt") || &error('オープンエラー',
'指定された書込みファイルが開けません。'); print OUT (@LINES); close (OUT); http://mevius.5ch.net/test/read.cgi/hack/984669133/5
6: 名無しさん [sage ] 2001/03/16(金) 01:10 あ、いかんいかん。 foreachにはいるまえに chomp(@LINES) 出力は print OUT join("\n", @LINES); http://mevius.5ch.net/test/read.cgi/hack/984669133/6
7: 名無しさん [sage ] 2001/03/16(金) 01:15 >>2 全部。0点。 ・sendmail 使うなら -tとか使え。 ・ヒアドキュメント使え。 ・CGIモジュール使うなら、あえて%formにセットすることないだろ ・Content-type自分でださなくていいだろ。 CGIモジュールつかうなら。 ・未定義値が欲しいなら eq undefするだろ、ふつー。 でdieしたらサーバーエラーになるだろ、自前ルーチンで表示させたれ。 http://mevius.5ch.net/test/read.cgi/hack/984669133/7
8: 名無しさん [sage ] 2001/03/16(金) 04:07 >>2 (1)ロックしないの？ (2)$nって何？ runmode用の変数？ (3)ファイルハンドルは大文字に統一すれ 謎の $nをつかった、$cnf_file.tmpをつかって ロックというか、トランザクションをとってる つもりなんだったら、たぶん、完全に間違い。 ($nの設定時に排他処理してたらすまん） というわけで、たぶん、あってません。 http://mevius.5ch.net/test/read.cgi/hack/984669133/8
9: ふさふさ [] 2001/03/16(金) 09:29 >１さん httpで串刺してきたハゲに ftpのリクエストを送信する 例の別プロトコル抜きのソースきぼーん！ http://mevius.5ch.net/test/read.cgi/hack/984669133/9
10: 教えて [] 2001/03/16(金) 17:22 昼間はいねえのか！ゴラァァァ！ http://mevius.5ch.net/test/read.cgi/hack/984669133/10
11: 5-8 [sage ] 2001/03/16(金) 18:20 おれは1じゃないよ。 >>8 すまん ×>>2 ○>>3 >>9 おれ、UGの人じゃないんで（爆）、それしらない。 JAVAアプレット連携させるのかなあ。 それとも 擬似サーバー立てといて、そのポートに ftp://www.server:niseport/ とかでHTTPプロキシを外してアクセスさせるのかなあ。 >>10 つか1はどこに行った。。。 http://mevius.5ch.net/test/read.cgi/hack/984669133/11
12: 9-10 [sage ] 2001/03/16(金) 18:56 >>11 ｽﾏｿ、9も10もわいや。 スレ立てといてレスよこさねえとは、ふてえ野郎だなって思って いらいらしてたんで、一発抜こうかなって思ってたとこだったんだ（*´ρ`*） アプレットは使ってないよ。Perlだけ。 南国工房で前にみたけど、わかってることはこんな感じ。 串さして来たハゲ→htmlで出力された掲示板でやりたい放題 →出力されたhtmlはフレームが使われている→0%,100%で小さい方はもちろん不可視 →小さい方にftpをリクエストする、何かが仕込まれているらしい。 →ハゲは気づかずにいつも
通りかきこを行い、送信ボタンを押す。 →すると自動的にCGI側からハゲにftpのリクエストを行う。 →さすがのハゲもftpは無防備で、掲示板に表示された自分の生ＩＰを見て青くなる。 →このプログラミングを作った人は、ローカルでの実験が出来ないことから 直接Web鯖上で実験をして（しかもプロバイダーの鯖)何度か失敗して プロバの鯖を落としてしこたま怒られたらしい。 わかっているのはこれだけ、十分だろ？ 作ってもらえないかな師匠、お願いだ！ http://mevius.5ch.net/test/read.cgi/hack/984669133/12
13: 11 [] 2001/03/16(金) 19:27 >>12 南国工房ってとこもはじめて聞いた(^^; 手法は、11で書いた手法と同一だね。 書いてもいいけど、これぐらいなら、 そこらへんにころがってそうな気がするなあ。 誰か知らない？ http://mevius.5ch.net/test/read.cgi/hack/984669133/13
14: 12 [] 2001/03/16(金) 20:07 おお、頼もしいこと言う人が、この板にも久々にあらわれたのぉ！ >そこらへんにころがってそうな気がするなあ。 ところがないのよ、あってもソースは公開してないんだよ。 送信ボタン押すとオラの生ＩＰが表示されるだけだっちゅーの。 自分の生ＩＰみて何が面白いと。。。何とかパクろうと思ったけどね。 ディレクトリ掘ってファイルいただくＣＧＩは持っているんだが、 ありゃ同一鯖でしか使えないわな。 オラもC言語でハローワールドをウィンドウに表示させることが出来るが それじゃ話にならんわなー(T-T)
Ｃ言語の本読んでたら、髪の毛がたくさん抜け落ちてきてな ハゲになると困るから、1時間くらいで挫折したのよ。 頼むから作ってくだされ、師匠('-'; http://mevius.5ch.net/test/read.cgi/hack/984669133/14
15: 11 [ninty-one@mail.goo.ne.jp ] 2001/03/16(金) 20:36 動作サンプルあったのがラクだから 動いてるところ教えてくれー。 # つか、今日、スケジュール遅れで納期のばしてきたのに。 # 客が知ったら激怒だろうな.....。 http://mevius.5ch.net/test/read.cgi/hack/984669133/15
16: 12 [] 2001/03/16(金) 20:55 ありゃ、本命のサイトがわからなくなっちまった。 こっちの方も同じ仕組みだとは思うんだが なんかtelnetが起動したぞ。。。？？ ま、いっか。↓ www.tok2.com/home/pat/ipget.html http://mevius.5ch.net/test/read.cgi/hack/984669133/16
17: 1 [] 2001/03/16(金) 23:49 俺は嬉しいぜ、、、、 みんな、、、、、書き込みｱﾘｶﾞｯﾁｭﾝ・・・・ >>9-10 FTPから抜くｶｳｿﾀで良いのか・・・？ 手持ちのﾔﾂで合ってると思うが 漏れが変にｲｼﾞｯﾃ不安定な動作ｶﾏｽかも知れんが気にすんな (ｦﾌﾟ つか違ったら拾ってｸﾚﾖ http://server2047.virtualave.net/ibzrjp/count_p.txt http://mevius.5ch.net/test/read.cgi/hack/984669133/17
18: sage [sage ] 2001/03/16(金) 23:54 >>17 頂きます。 有難うごぜーますだ。 http://mevius.5ch.net/test/read.cgi/hack/984669133/18
19: 1 [] 2001/03/16(金) 23:55 ﾂｶﾖ 南国工房じゃ健作してもﾋｯｶｶﾝﾅｲﾖ 正式名称は南国CGI工場 今でもﾛｸﾞか遺跡が有る筈だから暇だったら探しとくさヽ(´,ー`)ノ 確か2ヶ所、、、Logeんﾄｺと、、、、 http://mevius.5ch.net/test/read.cgi/hack/984669133/19
20: 1 [sage ] 2001/03/17(土) 00:01 http://server2047.virtualave.net/ibzrjp/env.txt http://server2047.virtualave.net/ibzrjp/crypt.txt 漏れのﾃﾞｨｽｺに放置されてた工場のﾌﾟﾄﾝのｿｰｽ つか大したﾓﾝ無いﾈ http://mevius.5ch.net/test/read.cgi/hack/984669133/20
21: 多段嵐王ntttkyo28209.ppp.infoweb.ne.jp [] 2001/03/17(土) 00:05 C言語なんてオタク臭いものは必要ありません。 http://mevius.5ch.net/test/read.cgi/hack/984669133/21
22: 発火 [sage ] 2001/03/17(土) 00:08 >>21 漏れも同意ﾀﾞﾖ うんこと串は漏れてる方が良いよな ヤッパ。 俺なんか撃つにしても手で撃った方が早ｨぜ 秒速5ﾏﾝｺだぜ http://mevius.5ch.net/test/read.cgi/hack/984669133/22
23: 9-10-12 [] 2001/03/17(土) 06:22 １さんありがとごぜえます。 とりあえずSSI許可してる自由鯖を探さないといけんわな・・ ところで12のURLのところのは、なぜtelnetと関連付けされた メーラーが起動するのじゃろか？オラの場合ＯＥが起動したが 普段は関連付けしていない、Veckyを使ってるので ＯＥは何も設定して無いけどね（ｗ くそ>>18 漏れが頼んだんだから漏れにも例を言うのが人道的だろ？ちゃうか？ >>21 ようわからんが、眠くなることは確かだな。 ありゃ、つかおめえ荒らす側じゃねえか！ オラは荒らされる側だ！自分の
スレに帰れ！この（荒らすなよ) http://mevius.5ch.net/test/read.cgi/hack/984669133/23
24: ちゃりが無くなってる。。。 [] 2001/03/17(土) 16:39 >>1 漏れもｲﾀﾀﾞｷました。ﾄﾞﾓﾄﾞﾓ >漏れが変にｲｼﾞｯﾃ不安定な動作ｶﾏｽかも知れんが気にすんな (ｦﾌﾟ って、気になりますがナ ＞確か2ヶ所、、、Logeんﾄｺと、、、、 これも気になりますがナ。 ﾂｶあなたはいったいﾅﾆﾓﾉ？？ http://mevius.5ch.net/test/read.cgi/hack/984669133/24
25: 1 [] 2001/03/17(土) 22:37 http://www2.synapse.ne.jp/synaqse/pato/ http://yyy-cgi.virtualave.net/ 有った、有った 遺跡みっけ♪ ﾛｸﾞはﾐﾂｶﾝﾈけど幾つかｿｰｽ転がってたｿﾞ(´,д`)ノ ﾋﾛｯﾄｹ ﾂｶﾖ最近思ったんﾀﾞｹﾄﾞﾖ、 ｽｹﾞｪﾄﾞｰﾃﾞﾓ良い事なんだが辞書鍛え過ぎて話しにﾅﾝﾈｰﾖ (ｹﾞﾛｦﾌﾟ ＞ﾂｶあなたはいったいﾅﾆﾓﾉ？？ ﾀﾀﾞのﾁｬﾝｺﾛです.ひろむきがﾊｸﾗ板に板名を戻す事を切に望むｲﾁﾁｬﾝｺﾛﾀだよ。。。 http://mevius.5ch.net/test/read.cgi/hack/984669133/25
26: きゅー [] 2001/03/17(土) 23:57 http://www.worldwidemart.com/scripts/formmail.shtml ここのFormmailってスクリプトを貰ってきて、sendmail可能な サーバーに設置して見たんですけど、上手く行かないです。 sendmailのパスとスクリプトへのフルパスは間違えていないと 思いまス。 多分、フォームの記述が間違えてると思うのですが････ ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ <form method=POST action="http://***************/cgi-bin/afw/FormMail.pl"> To:<input type=text name="recipient
" size=40><br> Yourname:<input type=text name="realname" size=40><br> Subuject:<input type=text name="subject" size=40><br> <textarea name="hello" rows=15 cols=80 wrap=hard>hello</textarea><br> <input type=submit value="tlanslate"><input type=reset value="cancel"> ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 多分、首吊って芯だ方が良いような事だと思うんですけど･･･ 思いっきり馬
鹿にして下さい http://mevius.5ch.net/test/read.cgi/hack/984669133/26
27: 蹂躙希望 [] 2001/03/18(日) 00:02 >>26 サーバーのバージョンが古いん違う？ http://mevius.5ch.net/test/read.cgi/hack/984669133/27
28: きゅー [] 2001/03/18(日) 00:35 蹂躙希望さん、有難う御座います。 sendmailのバージョンは動作可能な物の様です。 後、readmeを見てもらえると嬉しいのですが、referer設定で 他のサーバーからは呼び出せない様に成っているんで、 この辺りは間違いなく書き換えています。 それで、馬鹿丸出しなんですが、フォームの書き方が良く解って無い ので(スカラー変数と言うのでしょうか?)しょーも無い間違いを してるんじゃ無いかと言うわけです いきなり厨房質問してしまって申し訳ないっす。 http://mevius.5ch.net/test/read.cgi/hack/984669133/
28
29: 11 [sage ] 2001/03/18(日) 04:43 >>26 どう動かないのか、おしえれ。 フォームの書き方はスカラー変数とはいいません。 フォームの書き方といいます。 ところで、これ、日本語通らないけど、いいの？ http://mevius.5ch.net/test/read.cgi/hack/984669133/29
30: きゅー [] 2001/03/18(日) 16:28 >>11さん、有難う御座います。 設置したサーバーはh1.ruです。 症状なのですが、"Thank You For Filling Out This Form" のメッセージ(デフォルトで送信完了後に表示される様です)は拝んで 居るんですが、メールが送信できていないです。 refererや、sendmailへのパスが間違えていると、その旨を表示して くれる、馬鹿にも優しいスクリプトなんですけど･･････ 日本語が通らないのは問題無いです >フォームの書き方はスカラー変数とはいいません。 はい、こんな感じのうんこちゃんなんで
もっと罵って下さい。 情けない事に、フォームの記述がcgiにどう渡されるかが解って無いです。 recipient"送信先" subject"件名" realname"送信者の名前" だと 思うんですが、本文に相当する部分が解らないのです それでhelloとかしちゃってるのが原因なのかな････と つか意味不明すね、厨房らしくお勉強からはじめます。 らくだ本って言うのを買えば、perlを少しは理解できるだろうか･････ http://mevius.5ch.net/test/read.cgi/hack/984669133/30
31: 11 [ninty-one@mail.goo.ne.jp ] 2001/03/18(日) 22:10 本文に相当する云々は、 READMEで、print_configを見れば解決するとおもわれ。 Mattさんのスクリプトはわかりやすいっちゃわかりやすいけど 冗長なので、今日はみたくない。ｽﾏｿ。 順番が # Return HTML Page or Redirect User &return_html; # Send E-Mail &send_mail; なので、終了メッセージがでたからといってメールが おくれてるかどうかチェックでけん。 とりあえず、 open(MAIL,"|$mailprog -t"); を ">>debug.txt"にでもして、debug.txtの出力
を 確認すべし。(debug.txtはCGIの実行ユーザーが 書き出しができるパミッションで先につくっとくか、 ディレクトリのパミッションがCGIの実行ユーザーで 書き込みができるか確認しといて） 入門書は 初めてのPerl(ラマ本;オライリー)がおすすめ。 http://mevius.5ch.net/test/read.cgi/hack/984669133/31
32: きゅー [] 2001/03/18(日) 23:50 >>11さん有難う御座います。 >READMEで、print_configを見れば解決するとおもわれ。 これは理解できました、大感謝です。 なるほど〜、送信完了メッセージの後にコケている可能性がある訳 ですか。それで、それを確認する為の手段がdebug.txtな訳ッスね。 馬鹿相手に順序立てて説明して下さって、マジ感動してます。 と同時に、自分には質問する資格すら怪しい事もよーく理解できたっす。 自分は、亀なんで今からもう一度readmeと睨めっこしながら、 debug.txtを吐かせてみます。 本はラマの絵
の奴ッスね、了解です。 必ず結果報告に来るんで、亀の成長振りを見てやって下さい ＾＾; ホントに有難うございます。 http://mevius.5ch.net/test/read.cgi/hack/984669133/32
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 429 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.018s