歪んだ性欲をぶつけたいゆるゆりキャラ ★20
■ このスレッドは過去ログ倉庫に格納されています
!extend:checked:vvvvv:1000:512 !extend:checked:vvvvv:1000:512 ↑冒頭にコレを三行重ねてスレを立ててください 1 名無しの七森 2016/11/29(火) 20:32:39.50 りせちゃんにキモオタ共が出したジョッキ一杯分のザーメン無理矢理飲ませたい その後イラマで精子ゲロ吐かせたい 吐いた分を浣腸して肛門に栓ねじ込んで我慢させた後、噴き出た下痢便つきザーメンを少しずつゆっくり咀嚼させて完飲させたい ※前スレ 歪んだ性欲をぶつけたいゆるゆりキャラ ★19 https://agree.5ch.net/test/read.cgi/akari/1631060682/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured d = fork()) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapd3767npmgd d = fork()) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapjpmpmmpm d = fork()) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmap p pp p d = fork()) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmap p p pp p p pp p d = fork()) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmap gp d = fork()) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmap gwj d = fork()) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapmpw d = fork()) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00');jp $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmap pw p d = fork()) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->jpnew; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapngm d = fork()) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapkg d = fork()) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmap gm d = fork()) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmap p gm pqnpngmwgwgmpmp pmgdmgj d = fork()) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapg d = fork()) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmappwmp d = fork()) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapw d = fork()) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpj fork()) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjx fork()) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjt k()) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjt k()) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtjg )) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjt )) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtjg )) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtk >>631 僕もブロマイドでシコってる やや高いけどマジでありがたいよな )) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->jagent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjt )) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtたな )) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtkpjtta )) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtjtgjtkhpujprhjt )) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtたpkw )) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtptjtpgku )) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtpgkvagtwm )) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtlg ごらく部と生徒会8人を集めて ランダムにペアを組ませてシックスナインを強制したい 京子「ごめんね、ごめんね、ひまっちゃんおまんこ舐めんね・・・ペロペロチロチロ」 向日葵「大丈夫ですわ、歳納先輩も舐めますわね・・・失礼します・・チュッズチュ・・・あぁ・・ 私他人のおまんこ舐めてるんですわぁ・・すごい・・・」 西垣「古谷、それは舐めるって言わないぞ、ほらこうやってワレメをくぱあって広げて!そう、舌入れて 唾液出しながらペロペロってかき混ぜて」 京子「やぁん・・・おまんこ舐められてる・・・そんな奥まで舌っ・・いやぁん・・・」 西垣「歳納、舌の感触あったかくて気持ちいいだろ?どんどん気持ちよくなってくるからな」 ちなつ「じゃあ杉浦先輩なめますね・・・」 綾乃「・・・・////」 ちなつ「杉浦先輩すごい恥ずかしがってる・・・」 西垣「すごいな杉浦は、お尻の穴まで陰毛びっしり生えてるぞ?人は見かけによらないな」 綾乃「いやぁあん見ないでぇええええ!!」 西垣「ハハハッ!恥ずかしいか?女性器丸見えだぞ杉浦」 ちなつ「私たちの人としての尊厳がめちゃくちゃです・・・信じられないぐらい酷いです・・・」 西垣「吉川なんか言ったか?ほらこうやって陰毛かき分けてビラビラ広げて、はやく舌突っ込んで。つばでグチョグチョにしながらな」 ちなつ「じゃあ行きますね・・・・くぱぁ・・・ペロペロペロペロペロッ(あぁっ臭い・・・・これが他人のおまんこの臭いなのね・・・)」 綾乃「吉川さんだめえええええ!(私、歳納京子のすぐ隣でおまんこ舐められてる・・・もう死にたい・・・)」 )) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjthjtた )) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjt@gta#tojuhgj >>665 失禁好き 普通のおしっこと比べてさらさらしてるイメージがある 俺がショックによって失禁したのは一度しかないが )) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtmdg )) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtwpwpdj )) { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtng { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmjp { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngjp { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmag $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmag wdap $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpng $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmag66なmjp $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmtapmp $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagwpmdpmjpjp $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmag pMmDDMMMnpmpmp $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmpxppqppp pp qwpwpWw p $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmpkpmpmpmpnp $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagnp $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagnpng $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjg $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagng $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjgmpngn $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagjg $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagdg $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjp rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjppjv rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpatg rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpmdg rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpmp rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjp?.? rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpkgwm rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpmjpnm rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpmpDMmjpjpmpm rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpmpm rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpkg rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpjt rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpgtamk rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpk rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpgt rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpjtg rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpgmug rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpkajg@j rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpgjh@@j rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpjtgはjwpm rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpmjp rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpmJMNMnm rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpj rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpjtp rmdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpjw mdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpjwmjp req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpjwmagdgnh referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpjwmagdgnhmtpjmp referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpjwmagdgnhmjp https://i.imgur.com/hSkmv8H.jpeg あかりのお団子にぶっかけると濃いのがいっぱい出る やっぱりあかりちゃんが一番だね https://i.imgur.com/VaVyQaU.jpeg あかりちゃんのお団子にぶっかけたらめっちゃ濃いのが出た やっぱあかりは一番エッチな顔してるよね q->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpjwmagdgnhmjpmjg q->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpjwmagdgnhmjpgt q->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpjwmagdgnhmjpgj q->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpjwmagdgnhmjpgu q->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpjwmagdgnhmjpgjtuh q->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpjwmagdgnhmjpk q->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpjwmagdgnhmjpたゆh q->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpjwmagdgnhmjpjti_tij q->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpjwmagdgnhmjpjmh q->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); print $message,"\n"; if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } wait(); } else { $formdata{MESSAGE}=$message; my $req = POST( "http://" ;.$server."/test/bbs.cgi", [%formdata] ); $req->referer("http://" ;.$server."/".$bbs."/"); $req->header( 'Accept' => 'text/html' ); my $res = $ua->request($req); kill 1, $pid; exit(1); } sleep $sleep; } exit(0); sub login { my ( $id, $pw ) = @_; my $ua = LWP::UserAgent->new; $ua->agent('DOLIB/1.00'); $ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' ); my $url = 'https://2chv.tora3.net/futen.cgi' ;dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMej???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpjwmagdgnhmjph ■ このスレッドは過去ログ倉庫に格納されています
read.cgi ver 07.5.5 2024/06/08 Walang Kapalit ★ | Donguri System Team 5ちゃんねる