Ответ

skiv 17.08.2011 10:45 / 17.08.2011 11:20

Спасибо! Перезалил, заработало без шаманств, bRefuseUnknown включено.

Обнаружил ещё небольшой глючок, в капче если задавать $.iNoiseDensity(0), шум не отключается. Заменил строчку в AntispamTuringCaptcha.p:

#$iNoiseDensity(^if($hParam.iNoiseDensity)($hParam.iNoiseDensity;30))
$iNoiseDensity(^if(def $hParam.iNoiseDensity)(^hParam.iNoiseDensity.int(0);30))

Хочется ещё символы покрупнее... но это рисовать надо.

UPD. Добавил в AntispamTuringCaptcha.p возможность указать набор символов, чтобы можно было в разных местах разные (не удаляя картинки с диска):

^if(!$tSymbol){
	^self._abort[create;Directory $sImageDir doesnt contain information about available symbols]
}{
	^if(def $hParam.symbols){
		$tSymbol[^tSymbol.select(^hParam.symbols.pos[$tSymbol.name] != -1)]
		^if(!$tSymbol){
			^self._abort[create;No valid symbols found]
		}
	}
}

Задается строкой: $.symbols[abcde]

---