Caça Palavrões!

Outubro 25, 2008

Bom Galera, irei postar um codigo muito raro, não irão encontrar em lugar algum esse tipo de codigo, porem criei ele hoje, e irei disponiblizar aqui para fazerem alterções, pois acredito que existam pessoas bem mais capacitadas que eu para deixa-lo quase 100% funcional, por enquanto ele captura os palavrões mais comuns, não destroi palavras como Culinária, porem não encontra "palavras incompostas" que não estejam separadas por espaços em ambos os lados... Seria bom se desse para detectar espaços apenas de um aldo da palavra, porem se deixar assim ele destroi com as palavras que não são palavrões...

Se dessemos para detctar, por exemplo:

str = replace(str,"cu "," [Palavra Removida] ") 'com espaço apenas do lado direito

sem destruir a palavra, "surucucu" com seguimento por exemplo "surucucu muito grande" assim ele já iria destruir a palavra surucucu, pois tem espaço do lado direito, de surucucu para muito!

str = replace(str," cu"," [Palavra Removida] ") 'com espaço apenas do lado esquerdo:

sem destruir a frase: "amo culinária" Enfim, quem manja um pouco de ASP entenderá a logica do meu Script! Esta ai, Só não me levem a mau pelos palavroes do codigo, pois fazem parte!

<%



'-----------------------------------------------------------------------------------------
'                    Godigo Totalmente desenvolvido por NoNaMexD 
'                        Se alguém mais acrecentar algo ao codigo
'                            Pode colocar seu nome aqui também 
'-----------------------------------------------------------------------------------------





function LimpaPalavroes(str)

' USAMOS A FUNÇÃO TRIM PARA PRIMEIRAMENTE RETIRAR OS ESPAÇOS NÃO NECESSARIOS AO DIGITAR NO FORMULÁRIO...
' EXEMPLO DO QUE A FUNÇÃO TRIM FAZ:  Se o cara digitar: "Vai     te      f****" Irá ficar "vai te f****"!

str = trim(str)

' USAMOS A FUNÇÃO LCASE PARA TRANSFORMAR TUDO EM MINUSCULA, PARA FACILITAR AINDA MAIS NOSSA BUSCA NOS PALAVRÕES
' EXEMPLO DO QUE A FUNÇÃO LCASE FAZ:  Se o cara digitar: "VAI TE f****" Irá ficar "vai te f****"!

str = lcase(str)


'REMOVEMOS OS ACENTOS PARA FACILITAR A VERIFICAÇÃO DOS PALAVROES:
' ASSIM SE ELE DIGITAR POR EXEMPLO "c*" IRÁ FICAR APENAS "CU"

str = replace(str,"á","a")
str = replace(str,"à","a")
str = replace(str,"ã","a")
str = replace(str,"ä","a")
str = replace(str,"â","a")
str = replace(str,"è","e")
str = replace(str,"é","e")
str = replace(str,"ê","e")
str = replace(str,"ë","e")
str = replace(str,"ì","i")
str = replace(str,"í","i")
str = replace(str,"î","i")
str = replace(str,"ï","i")
str = replace(str,"ò","o")
str = replace(str,"ó","o")
str = replace(str,"ô","o")
str = replace(str,"õ","o")
str = replace(str,"ö","o")
str = replace(str,"ù","u")
str = replace(str,"ú","u")
str = replace(str,"û","u")




'LISTA DOS PALAVRÕES


' PRIMEIRO PROCURAMOS PELAS "FRASES COMPOSTAS" MAIS USADAS, PARA NÃO DAR ERRO DEPOIS E FICAR A METADE DELA NA TELA

str = replace(str,"pau no cu"," [Palavra Removida] ")
str = replace(str,"pau nu cu"," [Palavra Removida] ")
str = replace(str,"pau no cuzinho"," [Palavra Removida] ")
str = replace(str,"pau nu cuzinho"," [Palavra Removida] ")
str = replace(str,"pau nu cuzao"," [Palavra Removida] ")
str = replace(str,"pau no cuzao"," [Palavra Removida] ")


str = replace(str,"cagando e andando"," [Palavra Removida] ")


str = replace(str,"p**** do c******"," [Palavra Removida] ")
str = replace(str,"poha do c******"," [Palavra Removida] ")
str = replace(str,"pohaa do c******"," [Palavra Removida] ")


str = replace(str,"vai se fude"," [Palavra Removida] ")
str = replace(str,"vai si fude"," [Palavra Removida] ")
str = replace(str,"vai se fode"," [Palavra Removida] ")
str = replace(str,"vai si fode"," [Palavra Removida] ")

str = replace(str,"se fude"," [Palavra Removida] ")
str = replace(str,"si fude"," [Palavra Removida] ")
str = replace(str,"se fode "," [Palavra Removida] ")
str = replace(str,"si fode"," [Palavra Removida] ")

str = replace(str,"vai se f****"," [Palavra Removida] ")
str = replace(str,"vai si f****"," [Palavra Removida] ")
str = replace(str,"vai se f***"," [Palavra Removida] ")
str = replace(str,"vai si f***"," [Palavra Removida] ")

str = replace(str,"vai te fude"," [Palavra Removida] ")
str = replace(str,"vai ti fude"," [Palavra Removida] ")
str = replace(str,"vai te fode"," [Palavra Removida] ")
str = replace(str,"vai ti fode"," [Palavra Removida] ")

str = replace(str,"ti fode"," [Palavra Removida] ")
str = replace(str,"te fode"," [Palavra Removida] ")

str = replace(str,"vai toma no cu"," [Palavra Removida] ")
str = replace(str,"vai toma nu cu"," [Palavra Removida] ")

str = replace(str,"vai te f****"," [Palavra Removida] ")
str = replace(str,"vai ti f**** "," [Palavra Removida] ")
str = replace(str,"vai te f***"," [Palavra Removida] ")
str = replace(str,"vai ti f***"," [Palavra Removida] ")


str = replace(str,"me chupa"," [Palavra Removida] ")
str = replace(str,"me xupa"," [Palavra Removida] ")
str = replace(str,"mi chupa"," [Palavra Removida] ")
str = replace(str,"mi xupa"," [Palavra Removida] ")

str = replace(str,"xupa meu ovo"," [Palavra Removida] ")
str = replace(str,"chupa meu ovo"," [Palavra Removida] ")

str = replace(str,"filho da p***"," [Palavra Removida] ")
str = replace(str,"filho da mae"," [Palavra Removida] ")

str = replace(str,"p*** que pariu"," [Palavra Removida] ")
str = replace(str,"p*** q pariu"," [Palavra Removida] ")
str = replace(str,"p*** que te pariu"," [Palavra Removida] ")
str = replace(str,"p*** q te pariu"," [Palavra Removida] ")
str = replace(str,"p*** merda"," [Palavra Removida] ")


' APOS AS GIRIAS MAIS USADAS

str = replace(str," fdp "," [Palavra Removida] ")    'de filho da p***
str = replace(str," pqp "," [Palavra Removida] ")    'de p*** que pariu
str = replace(str," pnc "," [Palavra Removida] ")    'de pau no cu
str = replace(str," kct  "," [Palavra Removida] ")   'de cacete
str = replace(str," kcte  "," [Palavra Removida] ")  'de cacete
str = replace(str," fdt "," [Palavra Removida] ")    'de fode-te





' APOS AS PALAVRAS MAIS USADAS, PREVININDO TAMBÉM OS ERROS ORTOGRÁFICOS

str = replace(str," gay  "," [Palavra Removida] ")
str = replace(str," chana  "," [Palavra Removida] ")

str = replace(str," cu "," [Palavra Removida] ")
str = replace(str," cuzinho "," [Palavra Removida] ")
str = replace(str," cuzao "," [Palavra Removida] ")
str = replace(str," cusao "," [Palavra Removida] ")

str = replace(str," ****** "," [Palavra Removida] ")
str = replace(str," bucetinha "," [Palavra Removida] ")
str = replace(str," busetinha "," [Palavra Removida] ")
str = replace(str," bucetao "," [Palavra Removida] ")
str = replace(str," buseta "," [Palavra Removida] ")
str = replace(str," busetao "," [Palavra Removida] ")

str = replace(str," merda "," [Palavra Removida] ")
str = replace(str," merdinha "," [Palavra Removida] ")
str = replace(str," merdao "," [Palavra Removida] ")
str = replace(str," b*** "," [Palavra Removida] ")

str = replace(str," p*** "," [Palavra Removida] ")
str = replace(str," putinha "," [Palavra Removida] ")
str = replace(str," putona "," [Palavra Removida] ")
str = replace(str," putao "," [Palavra Removida] ")


str = replace(str," prostituta "," [Palavra Removida] ")
str = replace(str," vadia "," [Palavra Removida] ")
str = replace(str," vadiazinha "," [Palavra Removida] ")
str = replace(str," vadiasinha "," [Palavra Removida] ")


str = replace(str," c****** "," [Palavra Removida] ")
str = replace(str," caraio "," [Palavra Removida] ")
str = replace(str," caraiuu "," [Palavra Removida] ")
str = replace(str," caraiu "," [Palavra Removida] ")
str = replace(str," karai  "," [Palavra Removida] ")
str = replace(str," krai  "," [Palavra Removida] ")
str = replace(str," kraio  "," [Palavra Removida] ")

str = replace(str," arrombado  "," [Palavra Removida] ")
str = replace(str," arrombada  "," [Palavra Removida] ")

str = replace(str," foda-se "," [Palavra Removida] ")
str = replace(str," fodam-se "," [Palavra Removida] ")
str = replace(str," fodan-se "," [Palavra Removida] ")
str = replace(str," fode-te "," [Palavra Removida] ")

str = replace(str," viado "," [Palavra Removida] ")
str = replace(str," viadinho "," [Palavra Removida] ")
str = replace(str," viadao "," [Palavra Removida] ")

str = replace(str," fode "," [Palavra Removida] ")
str = replace(str," fode "," [Palavra Removida] ")
str = replace(str," fodendo "," [Palavra Removida] ")
str = replace(str," f**** "," [Palavra Removida] ")
str = replace(str," fuderam "," [Palavra Removida] ")
str = replace(str," fuderan "," [Palavra Removida] ")
str = replace(str," p**** "," [Palavra Removida] ")
str = replace(str," poha "," [Palavra Removida] ")
str = replace(str," pohaa "," [Palavra Removida] ")
str = replace(str," pohha "," [Palavra Removida] ")

str = replace(str," siririca "," [Palavra Removida] ")
str = replace(str," 69 "," [Palavra Removida] ")
str = replace(str," rapariga "," [Palavra Removida] ")
str = replace(str," cacete "," [Palavra Removida] ")



LimparPalavroes = str
end function

'PARA USAR A FUNÇÃO BASTA COLOCA-LA NO EVENTO REQUEST.FORM

comentario = LimparPalavroes(request.form("comentario")

%>

Ajudem ai, quem puder acrescentar algo util ao codigo será de boa ajuda para todos nós... basta discutirmos aqui no fórum!

Abraços..

By: NoNaMexD ;)

Editado Outubro 25, 2008 por NoNaMexD

bareta · Outubro 27, 2008

legal a iniciativa mais seu código é começado de uma forma e terminado de outra...

raro não porque qualquer um q conheça replace faz...

pode ser simplificado para

function wordban(txt)

wordban=txt

palavrao="mane,noob,biba"
palavras="x1,x2,x3"

palavrao=split(palavrao,",")
palavras=split(palavras,",")

for i=lbound(palavrao) to ubound(palavrao)
wordban=replace(wordban," "&palavrao(i)&" "," "&palavra(i)&" ")
wordban=wordban
next

end function

para uso

<%
frase="A biba loka e um mane noob"

response.write wordban(frase)

%>

Entrar

Caça Palavrões!

Pergunta

Visitante

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

bareta

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades