배열을 이용한 InStr로 특정 문자 검색

아주 오래된 사이트가 있습니다.
광고가 하도 많이 올라와서 필터링이 필요한대 마땅히 방화벽이나 프로그램 개선을 할 수 있는 방법이 없었습니다.

그래서 대략 이런 루틴으로 만들어서 응급처치를 해드렸습니다.

'*******************************************************************
'## Duraboys Plugins DataSniffer in injection
'*******************************************************************
InjFilter = "슬롯머신『』영천경마정보 『』릴게임『』경마『』섹파『』섹스『』카지노"
InjFilter = InjFilter &"『』대출『』파친코『』고스톱『』경륜『』용궁『』바카라"
Function f_injection(query_string)
f_injection =false
InjFilter_arr = split(InjFilter, "『』")
InjFilter_cnt = Ubound(InjFilter_arr)
for j=0 to InjFilter_cnt
if InStr(1,query_string,InjFilter_arr(j), 1) > 0 then
f_injection = true
'response.end
exit for
end if
next
End Function
'*******************************************************************
저작자 표시 비영리 동일 조건 변경 허락
신고