배열을 이용한 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

'*******************************************************************