function smutEngine() {
cmp = "BrazilIntro ~ @ # % ^ & * + = XXX $ www http:// .com .co. .net .org .biz .info .ca mailto: addict anus asshole arse bastard bitch blowjob boner butthole buttwipe clit cock cocksucker cum cumsucker cunt debt dick dildo dot dotco erection fag faggot feces foreskin fuck gmail hotmail iagra igarette jackoff jerkoff jism jizz loan masterbate motherfucker nazi nigger nutsack penis piss porno preteen prick pussy rsehole semen schlong scrotum shag shemale shit slut testicle tits tranny turd uck ucks vagina vulva wager whore yahoo ";
// note the trailing space is essential. By specifying e.g. obacco instead of tobacco you help to overcome leading capital letters.
// smut="#@&*%!#@&*%!#@&*%!";
smut=".";
txt = document.myForm.introduction_title.value;
tstx = "";
for (var i=0; i<79; i++){    // 99 is the number of badwords listed.
pos = cmp.indexOf(" ");
wrd = cmp.substring(0,pos);
wrdl = wrd.length
cmp = cmp.substring(pos+1,cmp.length);
while (txt.indexOf(wrd)>-1){
pos=txt.indexOf(wrd);
txt=txt.substring(0,pos)+smut.substring(0,wrdl)+txt.substring((pos+wrdl),txt.length);
}
}
document.myForm.introduction_title.value = txt;
}