ニュース速報板(http://tsushima.2ch.net/news/)
前スレ
【news】ニュース速報運用情報457【ν】
http://qb5.2ch.net/test/read.cgi/operate/1260865569/
http://qb5.2ch.net/test/read.cgi/sakud/1131629475/561
561 名前:FOX ★[sage] 投稿日:2007/06/07(木) 20:18:27 ID:???0 (PC)
「嫌なら出てけ」
Q. この糞スレ誰か止めてくれないんですか?
A. 補充あるなら止めてやるよカス
■関連スレッド
ニュース速報@削除議論
http://qb5.2ch.net/test/read.cgi/sakud/1131629475/
■ニュース速報@運用議論スレ 8.1
http://gimpo.2ch.net/test/read.cgi/dataroom/1181206570/
【poverty】ニュー速(嫌儲)運用情報15【貧ν】
http://qb5.2ch.net/test/read.cgi/operate/1256283948/
【news】ニュース速報運用情報30【ν】
http://qb5.2ch.net/test/read.cgi/operate/1181680138/387
387 名前:ひろゆき@どうやら管理人 ★[] 投稿日:2007/06/14(木) 19:53:42 ID:???0 (PC) ?S★(1001111)
ネタスレ・クソスレ・実況は不可
アニメ、声優などのオタスレも不可
ゲームはアニメ、声優ネタなら不可
zip、クレクレ等、偽装スレも不可
ただし、スレタイの遊びは、エロ、差別、アニメ、声優ネタ以外は許容
一行ソースでも重要性の高いニュースならOK
スポーツ、芸能もOK
アンケートスレはスレタイの遊びの範囲ならOK
【news】ニュース速報運用情報458【ν】
■ このスレッドは過去ログ倉庫に格納されています
2009/12/17(木) 19:15:06ID:QWXnfA9yP
2009/12/18(金) 22:32:53ID:rvTLo6eY0
おそらく自動スレストツールを使って止めたと思われる
2009/12/18(金) 22:34:03ID:HyxeHwTxP
2009/12/18(金) 22:34:04ID:huvfqYFR0
そんなんねーだろ
444動け動けウゴウゴ2ちゃんねる
2009/12/18(金) 22:34:56ID:KyILWB350 まぁ毎回手動でスレストとか時間の無駄にも程があるしな
2009/12/18(金) 22:35:37ID:nE2o3XDt0
回避もいいけど
やりすぎたら相手は企業
シンガポールの法律は怖いよ
やりすぎたら相手は企業
シンガポールの法律は怖いよ
446動け動けウゴウゴ2ちゃんねる
2009/12/18(金) 22:38:03ID:rogsIbCoP447動け動けウゴウゴ2ちゃんねる
2009/12/18(金) 22:38:15ID:vXrC54gL02009/12/18(金) 22:38:19ID:huvfqYFR0
企業ってあのペーパーカンパニーのことか?
2009/12/18(金) 22:38:25ID:nE2o3XDt0
小清水町出身の鰹谷道議:次期知事選出馬で辞職
http://tsushima.2ch.net/test/read.cgi/news/1261143399/
http://tsushima.2ch.net/test/read.cgi/news/1261143399/
2009/12/18(金) 22:38:56ID:okRf6QJ7O
saku回避ツール作ったとか藍華ちゃん実はすごい人なの
2009/12/18(金) 22:39:18ID:huvfqYFR0
ヴァルダの使っただけ(w
え?これ止めんなよ
453動け動けウゴウゴ2ちゃんねる
2009/12/18(金) 22:39:54ID:vXrC54gL02009/12/18(金) 22:40:10ID:kUAvO8IKP
アニメスレ依頼したいからなんか立ててよ
2009/12/18(金) 22:40:10ID:nE2o3XDt0
2009/12/18(金) 22:40:43ID:Yp3ChUzh0
2009/12/18(金) 22:45:36ID:nE2o3XDt0
>>451
だとしたらヴァルダの外堀埋めるのに訴えられるな
だとしたらヴァルダの外堀埋めるのに訴えられるな
458動け動けウゴウゴ2ちゃんねる
2009/12/18(金) 22:45:58ID:vXrC54gL0 自分でつくったけどね
つか2で止められたけどなんなのよ
つか2で止められたけどなんなのよ
2009/12/18(金) 22:46:32ID:MwxTjqYr0
true tears BD BOX 大好評につき予約期間特別延長!!
http://tsushima.2ch.net/test/read.cgi/news/1261143887/
2 名前:停止しました。。。[停止] 投稿日:停止
真・スレッドストッパー。。。( ̄ー ̄)ニヤリッ
http://tsushima.2ch.net/test/read.cgi/news/1261143887/
2 名前:停止しました。。。[停止] 投稿日:停止
真・スレッドストッパー。。。( ̄ー ̄)ニヤリッ
2009/12/18(金) 22:47:06ID:aJzqpZuN0
be破棄してきた
2009/12/18(金) 22:47:29ID:kUAvO8IKP
あっちで依頼した意味ねー
ハゲ死ねや
ハゲ死ねや
2009/12/18(金) 22:47:58ID:nE2o3XDt0
>>459
ツールがあるならアラートでも仕掛けているんだろ
ツールがあるならアラートでも仕掛けているんだろ
2009/12/18(金) 22:48:03ID:jhRdMSqu0
saku回避ツールくだしあ
藍華ちゃん技術ないから他人用のはつくれない。
だれかつくって
だれかつくって
2009/12/18(金) 22:49:03ID:nE2o3XDt0
>>461
破棄しても来ない言ったなら失せろ
破棄しても来ない言ったなら失せろ
2009/12/18(金) 22:49:07ID:huvfqYFR0
ほらw公開できないw
468動け動けウゴウゴ2ちゃんねる
2009/12/18(金) 22:49:33ID:KyILWB350 別に手動でも出来るような
2009/12/18(金) 22:49:47ID:nE2o3XDt0
>>467
なるほどwww
なるほどwww
公開してもいいけど誰も使えないよ?
2009/12/18(金) 22:51:21ID:jhRdMSqu0
ソース付きでplz
2009/12/18(金) 22:51:32ID:huvfqYFR0
つーか今気づいたけどID誰かとかぶってる ワラタ
2009/12/18(金) 22:51:52ID:aJzqpZuN0
早く公開しろつってんだろ。
print SOCK "POST /test/login.php HTTP/1.1\r\n";
print SOCK "Accept: */*\r\n";
print SOCK "Referer: http://be.2ch.net/test/login.php\r\n";
print SOCK "Accept-Language: en\r\n";
print SOCK "Content-Type: application/x-www-form-urlencoded\r\n";
print SOCK "Accept-Encoding: deflate\r\n";
print SOCK "User-Agent: Monazilla/4.0\r\n";
print SOCK "Host: be.2ch.net\r\n";
print SOCK "Content-Length: ".length($data)."\r\n";
print SOCK "Connection: Keep-Alive\r\n";
print SOCK "Pragma: no-cache\r\n";
はいここまで!
print SOCK "Accept: */*\r\n";
print SOCK "Referer: http://be.2ch.net/test/login.php\r\n";
print SOCK "Accept-Language: en\r\n";
print SOCK "Content-Type: application/x-www-form-urlencoded\r\n";
print SOCK "Accept-Encoding: deflate\r\n";
print SOCK "User-Agent: Monazilla/4.0\r\n";
print SOCK "Host: be.2ch.net\r\n";
print SOCK "Content-Length: ".length($data)."\r\n";
print SOCK "Connection: Keep-Alive\r\n";
print SOCK "Pragma: no-cache\r\n";
はいここまで!
2009/12/18(金) 22:52:46ID:aJzqpZuN0
は?
2009/12/18(金) 22:52:52ID:8/jXSQii0
sakuを逃れられたとしても、結局スレを止められるんだから意味なくね。
2009/12/18(金) 22:53:08ID:nE2o3XDt0
企業化して初の逮捕者になるのか
2009/12/18(金) 22:53:39ID:okRf6QJ7O
なんだ藍華ちゃん他人の使ってたの
尊敬しかけた
尊敬しかけた
つかsaku回避の方法分かってるんだから自動化するだけだろ…
2009/12/18(金) 22:54:13ID:jhRdMSqu0
なんでリクエスト投げるだけなの?
2009/12/18(金) 22:54:55ID:8/jXSQii0
俺も方法は知ってる。
言うとカスが調子乗るから言わないけど。
言うとカスが調子乗るから言わないけど。
ごく一部です
2009/12/18(金) 22:55:31ID:jhRdMSqu0
まあいいや
484動け動けウゴウゴ2ちゃんねる
2009/12/18(金) 22:55:31ID:vXrC54gL02009/12/18(金) 22:55:59ID:nE2o3XDt0
>>481
晒すと訴えられるからな
晒すと訴えられるからな
486動け動けウゴウゴ2ちゃんねる
2009/12/18(金) 22:56:12ID:vXrC54gL02009/12/18(金) 22:56:12ID:huvfqYFR0
地震
2009/12/18(金) 22:56:30ID:huvfqYFR0
何罪だよw
2009/12/18(金) 22:57:15ID:2MqHf7RM0
UTFの何か文字列かとおもたが
Keep-Aliveでずっと保持し続けるか?
わからん
Keep-Aliveでずっと保持し続けるか?
わからん
いまはcloseだよ。作りかけのやつ見せたから
491動け動けウゴウゴ2ちゃんねる
2009/12/18(金) 22:59:23ID:cFi4/tVO0 あいかちゃん天才なんじゃないの
運営人も皆マリと子犬の物語をみて号泣してたんですねえ( ヽ´ν`)
2009/12/18(金) 23:00:27ID:nE2o3XDt0
すぐ止められてつまらんわ。
どうすればいいのかな。
どうすればいいのかな。
2009/12/18(金) 23:01:22ID:aJzqpZuN0
乱立
2009/12/18(金) 23:02:15ID:FiiTX1kw0
チニシュ
2009/12/18(金) 23:02:45ID:CIIvVYJKP
乱立するたびに、アレをアレしなきゃいけないから、大変じゃないの?
2009/12/18(金) 23:03:46ID:huvfqYFR0
チンシュは何故か最近止められんな
2009/12/18(金) 23:06:00ID:2MqHf7RM0
年末に向けてためているのかも
2009/12/18(金) 23:08:42ID:VPd73SqwP
イカ娘スレ止めたらヒドイでゲソ!
おとなしくやってるのでもうほっとくでゲソ!
おとなしくやってるのでもうほっとくでゲソ!
2009/12/18(金) 23:14:44ID:WM4Gzv660
ウイルスみたいなのが貼られてるんだけど
2009/12/18(金) 23:15:10ID:huvfqYFR0
>>503
どれ?
どれ?
2009/12/18(金) 23:15:26ID:N+YUyaeaP
http://tsushima.2ch.net/test/read.cgi/news/1261108258/ 長谷優里奈(声優総合)
http://tsushima.2ch.net/test/read.cgi/news/1261115018/ 能登麻美子
http://tsushima.2ch.net/test/read.cgi/news/1261112873/ 能登麻美子
http://tsushima.2ch.net/test/read.cgi/news/1261066316/ 堀江由衣
http://tsushima.2ch.net/test/read.cgi/news/1261115231/ 喜多村英梨
http://tsushima.2ch.net/test/read.cgi/news/1261113133/ 水樹奈々
http://tsushima.2ch.net/test/read.cgi/news/1261113033/ 下田麻美
http://tsushima.2ch.net/test/read.cgi/news/1261117926/ 井口裕香
http://tsushima.2ch.net/test/read.cgi/news/1261105816/ 高垣彩陽
http://tsushima.2ch.net/test/read.cgi/news/1261062287/ CCサクラ
http://tsushima.2ch.net/test/read.cgi/news/1261051624/ true tears
http://tsushima.2ch.net/test/read.cgi/news/1261114920/ とらドラ
http://tsushima.2ch.net/test/read.cgi/news/1260953471/ けいおん!
http://tsushima.2ch.net/test/read.cgi/news/1261092361/ 苺ましまろ
http://tsushima.2ch.net/test/read.cgi/news/1261066567/ アイドルマスター
http://tsushima.2ch.net/test/read.cgi/news/1261123293/ アイドルマスター
http://tsushima.2ch.net/test/read.cgi/news/1261125483/ アイドルマスター
http://tsushima.2ch.net/test/read.cgi/news/1261129578/ イカ娘
http://tsushima.2ch.net/test/read.cgi/news/1261115018/ 能登麻美子
http://tsushima.2ch.net/test/read.cgi/news/1261112873/ 能登麻美子
http://tsushima.2ch.net/test/read.cgi/news/1261066316/ 堀江由衣
http://tsushima.2ch.net/test/read.cgi/news/1261115231/ 喜多村英梨
http://tsushima.2ch.net/test/read.cgi/news/1261113133/ 水樹奈々
http://tsushima.2ch.net/test/read.cgi/news/1261113033/ 下田麻美
http://tsushima.2ch.net/test/read.cgi/news/1261117926/ 井口裕香
http://tsushima.2ch.net/test/read.cgi/news/1261105816/ 高垣彩陽
http://tsushima.2ch.net/test/read.cgi/news/1261062287/ CCサクラ
http://tsushima.2ch.net/test/read.cgi/news/1261051624/ true tears
http://tsushima.2ch.net/test/read.cgi/news/1261114920/ とらドラ
http://tsushima.2ch.net/test/read.cgi/news/1260953471/ けいおん!
http://tsushima.2ch.net/test/read.cgi/news/1261092361/ 苺ましまろ
http://tsushima.2ch.net/test/read.cgi/news/1261066567/ アイドルマスター
http://tsushima.2ch.net/test/read.cgi/news/1261123293/ アイドルマスター
http://tsushima.2ch.net/test/read.cgi/news/1261125483/ アイドルマスター
http://tsushima.2ch.net/test/read.cgi/news/1261129578/ イカ娘
2009/12/18(金) 23:15:32ID:WM4Gzv660
>>502
漫画でも偽装はだめなのね
漫画でも偽装はだめなのね
2009/12/18(金) 23:16:12ID:WM4Gzv660
>>504
print SOCK "POST /test/login.php HTTP/1.1\r\n";
print SOCK "Accept: */*\r\n";
print SOCK "Referer: http://be.2ch.net/test/login.php\r\n";
print SOCK "Accept-Language: en\r\n";
print SOCK "Content-Type: application/x-www-form-urlencoded\r\n";
print SOCK "Accept-Encoding: deflate\r\n";
print SOCK "User-Agent: Monazilla/4.0\r\n";
print SOCK "Host: be.2ch.net\r\n";
print SOCK "Content-Length: ".length($data)."\r\n";
print SOCK "Connection: Keep-Alive\r\n";
print SOCK "Pragma: no-cache\r\n";
print SOCK "POST /test/login.php HTTP/1.1\r\n";
print SOCK "Accept: */*\r\n";
print SOCK "Referer: http://be.2ch.net/test/login.php\r\n";
print SOCK "Accept-Language: en\r\n";
print SOCK "Content-Type: application/x-www-form-urlencoded\r\n";
print SOCK "Accept-Encoding: deflate\r\n";
print SOCK "User-Agent: Monazilla/4.0\r\n";
print SOCK "Host: be.2ch.net\r\n";
print SOCK "Content-Length: ".length($data)."\r\n";
print SOCK "Connection: Keep-Alive\r\n";
print SOCK "Pragma: no-cache\r\n";
2009/12/18(金) 23:16:35ID:JYmLAs+K0
クリスマスまであと一週間か。やっぱり、今後もどんどんクリスマススレ
立つんだろうなぁ。
うっかり、クリスマスをやめないで!とか立っていてもわからないよな。
立つんだろうなぁ。
うっかり、クリスマスをやめないで!とか立っていてもわからないよな。
2009/12/18(金) 23:16:50ID:huvfqYFR0
>>508
お前アホだろ
お前アホだろ
2009/12/18(金) 23:17:46ID:aJzqpZuN0
2009/12/18(金) 23:17:52ID:WM4Gzv660
>>510
ほへ
ほへ
2009/12/18(金) 23:18:48ID:2MqHf7RM0
>>508
ソケット作ったことでなく見たことないのか?
ソケット作ったことでなく見たことないのか?
2009/12/18(金) 23:18:52ID:WM4Gzv660
ああ、把握
さいなら
さいなら
2009/12/18(金) 23:18:57ID:8/jXSQii0
>>512
お前のbeアカウント乗っ取られてるぞ!!
お前のbeアカウント乗っ取られてるぞ!!
2009/12/18(金) 23:20:30ID:CIIvVYJKP
くそ・・・!!藍華の奴!
便利ツールと称しながら、皆のbe垢をハックしてやがったのか!!
ちくしょう!!!
便利ツールと称しながら、皆のbe垢をハックしてやがったのか!!
ちくしょう!!!
>>474
それでどうやってsaku回避すればいいのですか?
ポイントを節約してスレを立たいので教えてください。
my %params; = (
m => 'test@test.domain',
p => 'pass',
);
my $request = POST('http://be.2ch.net/test/login.php', [%params]);
$request->referer('http://be.2ch.net/test/login.php');
my $ua = LWP::UserAgent->new;
$ua->agent('Monazilla/4.0');
my $response = $ua->request($request);
それでどうやってsaku回避すればいいのですか?
ポイントを節約してスレを立たいので教えてください。
my %params; = (
m => 'test@test.domain',
p => 'pass',
);
my $request = POST('http://be.2ch.net/test/login.php', [%params]);
$request->referer('http://be.2ch.net/test/login.php');
my $ua = LWP::UserAgent->new;
$ua->agent('Monazilla/4.0');
my $response = $ua->request($request);
2009/12/18(金) 23:22:19ID:huvfqYFR0
この馬鹿にだけは教えるなよ
%paramsの後のセミコロンは愛嬌
早く教えてください眠いです
早く教えてください眠いです
2009/12/18(金) 23:23:24ID:JYmLAs+K0
あれも、藍華 これも、藍華 きっと、藍華
2009/12/18(金) 23:23:35ID:JtkBAogn0
おい、それ答えだろ。
2009/12/18(金) 23:23:43ID:G7VaO7vX0
堰澤映は(#・∀・)カエレ!
2009/12/18(金) 23:23:59ID:LH3S5FVi0
222 名前:動け動けウゴウゴ2ちゃんねる[sage] 投稿日:2009/12/18(金) 22:58:47 ID:nE2o3XDt0
>>218
ν即のsaku回避の仕方ですって
これはどうなんですかね
474 名前:動け動けウゴウゴ2ちゃんねる[sage] 投稿日:2009/12/18(金) 22:52:20 ID:Fg/9oVdv0 ?2BP(11)
print SOCK "POST /test/login.php HTTP/1.1\r\n";
print SOCK "Accept: */*\r\n";
print SOCK "Referer: http://be.2ch.net/test/login.php\r\n";
print SOCK "Accept-Language: en\r\n";
print SOCK "Content-Type: application/x-www-form-urlencoded\r\n";
print SOCK "Accept-Encoding: deflate\r\n";
print SOCK "User-Agent: Monazilla/4.0\r\n";
print SOCK "Host: be.2ch.net\r\n";
print SOCK "Content-Length: ".length($data)."\r\n";
print SOCK "Connection: Keep-Alive\r\n";
print SOCK "Pragma: no-cache\r\n";
はいここまで!
>>218
ν即のsaku回避の仕方ですって
これはどうなんですかね
474 名前:動け動けウゴウゴ2ちゃんねる[sage] 投稿日:2009/12/18(金) 22:52:20 ID:Fg/9oVdv0 ?2BP(11)
print SOCK "POST /test/login.php HTTP/1.1\r\n";
print SOCK "Accept: */*\r\n";
print SOCK "Referer: http://be.2ch.net/test/login.php\r\n";
print SOCK "Accept-Language: en\r\n";
print SOCK "Content-Type: application/x-www-form-urlencoded\r\n";
print SOCK "Accept-Encoding: deflate\r\n";
print SOCK "User-Agent: Monazilla/4.0\r\n";
print SOCK "Host: be.2ch.net\r\n";
print SOCK "Content-Length: ".length($data)."\r\n";
print SOCK "Connection: Keep-Alive\r\n";
print SOCK "Pragma: no-cache\r\n";
はいここまで!
2009/12/18(金) 23:25:25ID:1QxjRpb3P
大体分ったが
どうもしっくりこないな
どうもしっくりこないな
2009/12/18(金) 23:26:28ID:LA3dUHMe0
立ててみればいいじゃん。
2009/12/18(金) 23:27:07ID:huvfqYFR0
つーか、これ対策しようと思ったら一瞬なんだよね
あれを弄ればいいだけだし
あんまり周知させて対策取らせんなってのに
分からんかねこのバカ共は
あれを弄ればいいだけだし
あんまり周知させて対策取らせんなってのに
分からんかねこのバカ共は
2009/12/18(金) 23:28:09ID:LH3S5FVi0
つーか雑質に書き込まれてるし
2009/12/18(金) 23:28:12ID:228OkqF4P
本当に回避できるのか?やってみろよ
2009/12/18(金) 23:30:05ID:VPd73SqwP
昨日からこのスレに報告されてるスレ見てるとsakuられてないbeがいくつかあるな
saku回避を訴えたりはできないだろ
Beポイントの立場は相当微妙なんだから
逆にsakuについて訴えられたときに不利になるかもしれないし
Beポイントの立場は相当微妙なんだから
逆にsakuについて訴えられたときに不利になるかもしれないし
2009/12/18(金) 23:33:17ID:aJzqpZuN0
糞スレ乱立祭りしたい
2009/12/18(金) 23:33:31ID:2MqHf7RM0
プロバイダ変更するの面倒だから
普通にsaku受け入れるお
2回線引くのも面倒だし
普通にsaku受け入れるお
2回線引くのも面倒だし
2009/12/18(金) 23:35:16ID:70Z48m+r0
半sakuってどういう時になるのよ
2009/12/18(金) 23:36:31ID:aJzqpZuN0
気分
2009/12/18(金) 23:37:22ID:2MqHf7RM0
2009/12/18(金) 23:37:31ID:dGx2wy0D0
藍華は報告していいレベル
あの〜 早くsaku回避の方法教えてください。
こっちはν速運用情報に興味が無いのでその話題を回避することが出来ないので困っています (。・ω・。)
(defpackage :http-client (:nicknames :http-c) (:use :common-lisp :socket :net.uri) (:export #:http-get #:http-get-url))
(in-package :http-client)
(declaim (inline concat))
(declaim (inline make-client-socket))
(declaim (inline make-ssl-client-socket))
(declaim (inline close-socket))
(defun concat (&rest strings) (apply #'concatenate 'string strings))
(defvar *crlf* (concat (string #\return) (string #\newline)))
(defun make-client-socket (hostname port) (socket:make-socket :remote-host hostname :remote-port port :format :bivalent :type :hiper))
(defun make-ssl-client-socket (hostname port) (socket:make-ssl-client-stream (make-client-socket hostname port)))
(defun close-socket (socket) (close socket))
(defun send-request (stream host path) (write-sequence
(concat
"POST /test/login.php HTTP/1.1" *crlf*
"Accept: " *crlf*
"Referer: http://be.2ch.net/test/login.php" *crlf*
"Accept-Language: " *crlf*
"Content-Type: application/x-www-form-urlencoded" *crlf*
"Accept-Encoding: deflate" *crlf*
"User-Agent: Monazilla/4.0" *crlf*
"Host: be.2ch.net" *crlf*
"Content-Length: " len
"Connection: Keep-Alive" *crlf*
"Pragma: no-cache" *crlf* *crlf*
body
) stream))
(defun receive-headers (stream) (do ((line (delete #\return (read-line stream nil))
(delete #\return (read-line stream nil))) (headers nil (cons line headers)))
((or (null line) (zerop (length line))) (nreverse headers))))
(defun receive-body (stream array-size element-type)
(do* ((buffer (make-array array-size :element-type element-type)
(make-array array-size :element-type element-type))
(pos (read-sequence buffer stream)
(read-sequence buffer stream)) (bodys (if (zerop pos) nil
(cons (if (< pos array-size) (subseq buffer 0 pos) buffer) nil))
(if (zerop pos) bodys (cons (if (< pos array-size) (subseq buffer 0 pos) buffer) bodys))))
((zerop pos) (nreverse bodys))))
(defun http-get (host port path &key (array-size 4096) (element-type 'character) (ssl-p nil))
(let ((socket (if ssl-p (make-ssl-client-socket host port)
(make-client-socket host port)))) (unwind-protect (progn (send-request socket host path)
(force-output socket) (let* ((headers (receive-headers socket))
(body (receive-body socket array-size element-type))) (list headers body))) (ignore-errors (close-socket socket)))))
(defun http-get-url (url &key (array-size 4096) (element-type 'character) (ssl-p nil s-ssl-p))
(let ((uri (net.uri:parse-uri url))) (http-get (net.uri:uri-host uri) (or (net.uri:uri-port uri) (case (net.uri:uri-scheme uri)
(:http 80) (:https 443) (otherwise 80))) (net.uri:render-uri uri nil) :array-size array-size :element-type element-type :ssl-p
(if s-ssl-p ssl-p (eq :https (net.uri:uri-scheme uri))))))
こっちはν速運用情報に興味が無いのでその話題を回避することが出来ないので困っています (。・ω・。)
(defpackage :http-client (:nicknames :http-c) (:use :common-lisp :socket :net.uri) (:export #:http-get #:http-get-url))
(in-package :http-client)
(declaim (inline concat))
(declaim (inline make-client-socket))
(declaim (inline make-ssl-client-socket))
(declaim (inline close-socket))
(defun concat (&rest strings) (apply #'concatenate 'string strings))
(defvar *crlf* (concat (string #\return) (string #\newline)))
(defun make-client-socket (hostname port) (socket:make-socket :remote-host hostname :remote-port port :format :bivalent :type :hiper))
(defun make-ssl-client-socket (hostname port) (socket:make-ssl-client-stream (make-client-socket hostname port)))
(defun close-socket (socket) (close socket))
(defun send-request (stream host path) (write-sequence
(concat
"POST /test/login.php HTTP/1.1" *crlf*
"Accept: " *crlf*
"Referer: http://be.2ch.net/test/login.php" *crlf*
"Accept-Language: " *crlf*
"Content-Type: application/x-www-form-urlencoded" *crlf*
"Accept-Encoding: deflate" *crlf*
"User-Agent: Monazilla/4.0" *crlf*
"Host: be.2ch.net" *crlf*
"Content-Length: " len
"Connection: Keep-Alive" *crlf*
"Pragma: no-cache" *crlf* *crlf*
body
) stream))
(defun receive-headers (stream) (do ((line (delete #\return (read-line stream nil))
(delete #\return (read-line stream nil))) (headers nil (cons line headers)))
((or (null line) (zerop (length line))) (nreverse headers))))
(defun receive-body (stream array-size element-type)
(do* ((buffer (make-array array-size :element-type element-type)
(make-array array-size :element-type element-type))
(pos (read-sequence buffer stream)
(read-sequence buffer stream)) (bodys (if (zerop pos) nil
(cons (if (< pos array-size) (subseq buffer 0 pos) buffer) nil))
(if (zerop pos) bodys (cons (if (< pos array-size) (subseq buffer 0 pos) buffer) bodys))))
((zerop pos) (nreverse bodys))))
(defun http-get (host port path &key (array-size 4096) (element-type 'character) (ssl-p nil))
(let ((socket (if ssl-p (make-ssl-client-socket host port)
(make-client-socket host port)))) (unwind-protect (progn (send-request socket host path)
(force-output socket) (let* ((headers (receive-headers socket))
(body (receive-body socket array-size element-type))) (list headers body))) (ignore-errors (close-socket socket)))))
(defun http-get-url (url &key (array-size 4096) (element-type 'character) (ssl-p nil s-ssl-p))
(let ((uri (net.uri:parse-uri url))) (http-get (net.uri:uri-host uri) (or (net.uri:uri-port uri) (case (net.uri:uri-scheme uri)
(:http 80) (:https 443) (otherwise 80))) (net.uri:render-uri uri nil) :array-size array-size :element-type element-type :ssl-p
(if s-ssl-p ssl-p (eq :https (net.uri:uri-scheme uri))))))
2009/12/18(金) 23:43:26ID:aJzqpZuN0
キタ━━━━━━(゚∀゚)━━━━━━ !!!!!
おっしーえろ! おっしーえろ!
さっさとおーしえろ! しばくぞ!
さっさとおーしえろ! しばくぞ!
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 【ゲーム】「余命宣告を受けた息子の為に“Switch2”を優先的に買わせて欲しい」母親が任天堂に直談判した結果… [ネギうどん★]
- 「ひきこもり遍路2025」参加者サポーター代理参拝など募集開始…自分なりの生き方を見つける四国1,200kmの旅へ~参加費45万円 [おっさん友の会★]
- 【千葉】若葉区 殺人事件 中学3年生の15歳少年 殺人の疑いで逮捕 2人は面識なしか [ぐれ★]
- 【石破首相】消費税減税について3点あげ否定的な考え示す「次の時代に責任を持つ。本当に困窮の方に手厚い措置する」 [ぐれ★]
- 【野球】巨人・秋広優人、大江竜聖とソフトバンク・リチャードの2対1電撃トレード成立 ★2 [Ailuropoda melanoleuca★]
- 永野芽郁が登壇予定のイベントチケットが3分で完売 主演映画「かくかくしかじか」初日舞台あいさつ [ネギうどん★]
- 【画像】妻、夫のラップの巻き方にクレームをつける。5万いいね。いや男はみんなこういう使い方だろ💢 [485187932]
- 石破「『財源は赤字国債!』とか抜かしてる奴らは感性が鈍っている」とキツい一言 [196352351]
- 【画像】声優さんのおっぱい、ガチでパツパツwwwwwwwwww [551743856]
- 【岸田速報】広島市で3週連続宝くじ1等当選、総額約25億 [196352351]
- 巨人・秋広優人、大江竜聖とソフトバンク・リチャードの2対2電撃トレード成立
- 「鯛」って過大評価だよな ぶっちゃけそんなに美味くない [402859164]