>近々URL変えますね

　変える前に、一度お試しを。

　最近cyclamen.cgiへのスパムが多いですけど、えぐぞせさんの提案 http://akebi.jp/support/cyclamen.cgi?tree=c2890 を元に'form'を'sform'に改造して様子を見てみたら、１０日ほどで４回スパムを防御できました。（その何倍か、検索エンジンのロボットがひっかかりましたが、投稿フォームを取り込めなくても問題ないでしょう）
　これでしばらくは防げるかもしれません。

　修正箇所は２箇所。念のため、ログをファイルacclog.cgiに出力しています。


【cyclamen.cgi】

elsif ($CMD{'mode'} eq 'form') { &lbc; &submit_form; exit;}
---↓-------------
elsif ($CMD{'mode'} eq 'form'){open(ACC,">> acclog.cgi");print ACC "\n$date_num $CMD{'log'} 【spam】\t$ENV{'REMOTE_ADDR'}\n\t$ENV{'HTTP_USE
R_AGENT'}";close(ACC);chmod($f_pmt,"acclog.cgi");&error('禁止語句が含まれています.');}
elsif ($CMD{'mode'} eq 'sform') { &lbc; &submit_form; exit;}

if (!$CMD{'ol'} && (!$readonly || $admin)) { printf "[<a href=\"$script_name?%s\" target=\"_self\">%s</a>]\n",&opt("mode=form",$CMD{'log'}),$ls00;}
---↓-------------
if (!$CMD{'ol'} && (!$readonly || $admin)) { printf "[<a href=\"$script_name?%s\" target=\"_self\">%s</a>]\n",&opt("mode=sform",$CMD{'log'}),$ls00;}

　もう一つのタイプがあると思っています。上のような、レスにつくタイプです。
　これは「返信」をクリックするのと同じことをプログラミングしていると思われ、私のところには数回しかきていないので十分検証はしていないのですが。

　修正は以下の掲示板に書きましたが、多いので、ここではその元として組んだPerlによる修正スクリプトを書いておきます。
http://www.dtmtown.com/cyclamen/cyclamen.cgi?tree=s529#535

　使い方は、実行するフォルダの親フォルダに元となるcgi(cyclamen.cgi,cylib.cgi)を置いておき、スクリプトを実行すると修正されたcgiがそこにできます。


open (OUT,">cyclamen.cgi");
open (IN,"../cyclamen.cgi");
binmode (IN);
$/ = '\n';

while (<IN>) {

# スパム
s/\$CMD\{'res'\}/\$CMD{'tes'}/g;
s/"res=/"tes=/g;
s/elsif \(\(\$CMD\{'tes'\}/elsif (\$CMD{'res'}){open(ACC,">> acclog.cgi");print ACC "\\n\$date_num \$CMD{'log'} 【res\$CMD{'res'}】\\t\$ENV{'REMOTE_ADDR'}\\n\\t\$ENV{'HTT
P_USER_AGENT'}";close(ACC);chmod(\$f_pmt,"acclog.cgi");&error('禁止語句が含まれています.');\n}\nelsif ((\$CMD{'tes'}/;


s/\x0d//g;

printf OUT "%s", $_;
}
close(IN);
close(OUT);


open (OUT,">cylib.cgi");
open (IN,"../cylib.cgi");
binmode (IN);
$/ = '\n';

while (<IN>) {

# スパム
s/\$CMD\{'res'\}/\$CMD{'tes'}/g;


s/\x0d//g;

printf OUT "%s", $_;
}
close(IN);
close(OUT);