Küfür Filtresi (ASP)

Asp'de hazırlamış olduğum basit bir küfür filtresini burada paylaşmak istedim.

Genellikler ziyaretçi defterlerinde veya iletişim formlarında yaygın bir biçimde kullanılabilecek basit bir küfür filtresi;

Aşağıda vermiş olduğum kod parçasını çalışmalarınıza ekleyerek sizlerde şayet ziyaretçilerinizden gelen küfürlü mesajlardakı küfürleri okumadan görebilirsiniz.

<%
dim kufurler
dim x
dim metin
metin="At ile eşşekler, sıpaları doğrurur. sıpalar eşeklerin yavrusudur."
kufurler=Array("eşşek", "eşek", "sıpa")
For each x in kufurler
metin=replace(metin,x,left(x,1) & string(len(x)-2,"*") & right(x,1))
Next
response.write "Metin: " & metin
%>

- Kod parçasında metin isimli değişkenimiz küfürlü kelime taraması yapılacak olan değişkenimiz. Bizler buna formumuz içerisindeki mesaj alanından gelen bilgileri aktarabiliriz.

- kufurler isimli dizimi bir diziye sahibiz ve burada küfür içeren kelimeleri tek tek eklemeliyiz. Ne kadar çok küfür içeren kelime eklersek kodumuz o kadar hızlı çalışır.

Eğer kodun çalışmasıyla ilgili herhangi bir sıkıntı yaşarsanız yorum bırakınız.
Küfürsüz günler dileğiyle kolay gelsin ;)