Age2ch Part14 - 暇つぶし2ch

Age2ch Part14 at SOFTWARE

633:名無しさん＠お腹いっぱい。
06/10/13 03:01:59 h2E1CG0U0
55 名前：名無しさん[sage] 投稿日：2006/08/13(日) 02:04:22 ID:???
use LWP::UserAgent;
while (1) {
$ua = LWP::UserAgent->new();
$ua->agent('');
$req = HTTP::Request->new("GET", "URLﾘﾝｸ(tmp6.2ch.net));
$res = $ua->request($req);
foreach $buf (split(/[\r\n]/, $res->content)) { unshift @thread, $1 if ($buf =~ /^(\d+)\.dat<>.*ここって.*$(\d{1,2})$$/); }
foreach $key (@thread) {
$content = "submit=%8F%91%82%AB%8D%9E%82%DE&FROM=&mail=age".
"&MESSAGE=%28%81L%a5%83%d6%a5%60%29%82%e2%82%9f%81B%82%e6%82%a4%82%b1%82%bb%83o%81%5b%83%7b%83%93%83n%83E%83X%82%d6%81B".
"&bbs=kitchen&key=$key&time=1&hana=mogera";
$ua = LWP::UserAgent->new();
$ua->agent('');
$h = HTTP::Headers->new('Referer' => "URLﾘﾝｸ(tmp6.2ch.net) 'Cookie' => "NAME=; MAIL=; $cookie");
$req = HTTP::Request->new("POST", "URLﾘﾝｸ(tmp6.2ch.net) $h, $content);
$res = $ua->request($req);
if ($res->is_success) {
if ($res->content =~ /<title>■ 書き込み確認 ■<\/title>/) { $cookie = join('; ', ($res->headers->as_string =~ /Set-Cookie: *([^\s;]+)/g)); }
else { print $res->content."\n"; sleep 60; }
}}}

次ページ

続きを表示

1を表示