串対策こんなんでいいのか？

##プロクシサーバーからのアクセス禁止(１ならする、0ならしない）
$bad_host = '0';
をＣＧＩの上のあたりに入れてその後


デコード処理の所へ

# 串排除
if ($bad_host) {
local($badproxy,$badmode) = ();
while(($badproxy,$badmode) = each(%ENV)){
if($badproxy =~ /proxy/i || $badmode =~ /proxy/i){
&error("串通すのやめてください。");
}
}
}

をいれれば大抵のははじけるとおもふ。
あとはじみちに、アクセスはじけ
ちなみに

deny from env=HTTP_VIA
の方が早いと言うことを忘れずに