真・2ゲットストッパー ◆dZFdabnUhw ←これスクリプト?
1 :
2げったー:
2げったーをあざ笑うかのようの2をかっさらってくこいつはスクリプト厨なのか
このスレを立てて検証することにします。以後放置でよろ。
取れませんよ。。。( ̄ー ̄)ニヤリッ
3 :
2げったー:02/11/28 15:36 ID:axt5LPLs
スクリプト厨認定。そして終了。
4 :
2げったー:02/11/28 15:37 ID:axt5LPLs
そして、2を狙う俺も厨認定(w
>1
お前、わざとやってるだろ。
こいつはスクリプトじゃねーよ。意思の有る、引きこもりだよ。
真・2ゲットストッパー ◆dZFdabnUhw ←これスクリプト?
…この書式、お前が葉鍵を見てスレを立てたことは明確だよ。
なら、葉鍵に 真・2ゲットストッパー ←これスクリプト?というスレッドが
何十個も立ったことは知ってるよな?
いい加減にしろよ。
6 :
5:02/11/28 15:42 ID:VJnY1gls
5
7 :
ニュー速用:02/11/28 15:43 ID:zy2+ThsR
#!/usr/local/bin/perl
open(FH,"message.aart") or die;
while(<FH>){
if (m/\[END\]/){
push @messagelist,[$name,$message,length($message)];
undef $message;
} elsif (m/^\[(.*?)\]/){
$name = $1;
} else{
$message .= $_;
}
}
undef $message;
close(FH);
srand (time() ^ ($$ + ($$ << 15)));
8 :
ニュー速用:02/11/28 15:44 ID:zy2+ThsR
sub Bodyencoding(){
my @copy = @{$_[0]};
my $content;
for(my $i = 0; $i < int $#copy ; $i +=2 ){
$copy[$i + 1 ] =~ s/([^\.\*\-_a-zA-Z0-9 ])/'%'. unpack("H2",$1)/ego;
$copy[$i + 1 ] =~ tr/ /+/;
my $tmp = $copy[$i] . '='. $copy[$i+1];
$content .= $tmp . '&';
}
chop $content;
return $content;
}
use LWP::UserAgent;
use
HTTP::Request; use
HTTP::Request::Common; $ua = LWP::UserAgent->new;
9 :
ニュー速用:02/11/28 15:44 ID:zy2+ThsR
#$ua->agent('Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)');
$ua->agent('Monazilla/1.00 (Jane2ch/0.2.2.26)');
$reqsub =
HTTP::Request->new('GET','
http://ex.2ch.net/news/subject.txt');
for($prelength = 0 ; ; ){
@titlelist = split (/\n/,$ua->request($reqsub)->content) ;
foreach $title (@titlelist){
if( $title =~ m/^(\d+).*\(1\)$/ ) {
print $title;
#flush();
my $key = $1;
next if($kakolist{$key} ==1);
$kakolist{$key} = 1;
do{
$mesnum = int rand ($#messagelist + 1);
} while($messagelist[$mesnum]->[2] == $prelength);
@content = ("submit","書き込み",
"FROM", "$messagelist[$mesnum]->[0]" . '#エロゲオタ気持ち悪い',
"mail", "sage",
"MESSAGE",$messagelist[$mesnum]->[1],
"bbs", "news",
"key", $key,
"time", time
);
my $myref = \@content;
$content = &Bodyencoding($myref);
_ __ ∧ ∧ _ / ̄ ̄ ̄ ̄ ̄
/ ●ヽ─\(,,゜Д゜)、 \ < F u c k
/▼ | △ |(ぃ9¶¶っヽ △ \_____
|_人 | = | ̄\ニヽ_| =|
_/_/ ̄ヽノ_ノ三/ `-^-\_ノ (゚д゚) ハクソリーナヘ !!
/ _ \/_/\/Y \___〉 ゚( )−
,〜l⌒l⌒(_)、|ヨ'\入旧_ノニ ̄フ_ ___ ノ/ >
|=lニ|二l_〉、|/ |_/:\/__/ ノ=/ //Yンチ彡j
ヽヲーゝー(_)ノ| l_ll_/仁// ヽEI ̄ ̄|((⌒Y,zぅ´
`、─^─´ / ノ ̄ ̄/● ̄●、  ̄ ∧_∧ / ̄ ̄ ̄ ̄ ̄
 ̄ ̄ ̄ / ̄ ̄/| ▼ | ( ´Д` ) < s o
/二//7/三〕、_人ノ〕 /, / \_____
/二// // / / \ \ (ぃ9 | ┏━━━━━━━━┓
/_//_//_/ / \_\ / /、 ┃ はくそ呼びますた. ┃
/__/ /ミ_/=/ ヽ_ / ∧_二つ━━━━━━━━┛
 ̄ ̄/ヾ__EIIノ ミ_/ / __
/ /\_/ / \ /Y - -ヽ / ̄ ̄ ̄ ̄ ̄ ̄
/ ̄\__/ / /~\ \ U _▼)< R e e n a !!
/ / / / /|_ > ) (ぃ9 ) \______
/_凹_/ー、_/ / ノ \_/ / / ∧つ
/ヽ_/\_\ / / / ./ / ヽ
/_/ ,\_\ ヽ / ./ ( ヽ、 / /⌒> )
l上l_/ ヽ__\ \( _) \__つ(_) \_つ
 ̄
ぼっき ドラえもん ぼっき ドラえもん ぼっき ドラえもん
\_____ ___/ \____ ___/ \_____ ___/
|/ |/ |/
/⌒ヽ⌒ヽ /⌒ヽ⌒ヽ /⌒ヽ⌒ヽ
....:::.. Y. . ....:::.. Y. . ....:::.. Y. .
.::::::::.(・)(・)::ヽ .::::::::.(・)(・)::ヽ .::::::::.(・)(・)::ヽ
( ::::::::;;;/ ○ ヽ;.:;) ( ::::::::;;;/ ○ ヽ;.:;) ( ::::::::;;;/ ○ ヽ;.:;)
丶1;.' ≡ | ≡!/ 丶1;.' ≡ | ≡!/ 丶1;.' ≡ | ≡!/
ζ, t-┴‐' .j ζ, t-┴‐' .j ζ, t-┴‐' .j
i `'ー‐' .j i `'ー‐' .j i `'ー‐' .j
| 八 | | 八 | | 八 |
{=====(T)===} {=====(T)===} {=====(T)===}
| i し " i '| | i し " i '| | i し " i '|
|ノ ( i i| |ノ ( i i| |ノ ( i i|
( '~ヽ ! ‖ ( '~ヽ ! ‖ ( '~ヽ ! ‖
│ i ‖ │ i ‖ │ i ‖
| ! || | ! || | ! ||
| │ | | │ | | │ |
| | | | | | | | | | | |
| | | | | | | | | | | |
12 :
名無したちの午後:02/12/10 17:28 ID:RGtiEf/U
>>5 悪いが批判要望板等でも2がスプリクト荒らしである事は認定されてるよ。
ま、こんなスレを態々立てた1もアホだが・・・