ちょっと真面目に見てみたよ、16.zipでいいんだよね??

bbs.cgiの789行目付近をこんな感じにしてみて。

open(SUBW,">$subject");
eval{flock(SUBW,2);};
#一括書き込み
↓
open(SUBW,"+<$subject");
lockF('SUBW',2);
seek SUBW,0,0;  # この行と
truncate SUBW,0;# この行が増えた
#一括書き込み

※ 因みに少し下でSUBWがまた出てくるけど、これはimode用の
  indexだからね、これは関係無い。

＞if (mkdir($lockDir,0777))→if (mkdir($lockDir,0705)) 
ユーザ権限で動くなら何でも良いよ、ダミーだからね。
もしロックディレクトリが残った時は
板のindex2と同じディレクトリに 〜〜_LOCK みたいなお化け
が残ってる筈だから、それを消せばOK。（・∀・）

// subbbs.cgiって謎の実行ファイルは何だろう？？