$spamfilter_words=array(
"buy",
"sesso",
"viagra",
"pennis",
"penne",
"Very good site",
"Great site",
"cialis",
"ephedra",
"guys",
"sessocelebrita",
"asiatichehard",
"tettehard",
"sessopissing",
"galleriahard",
"hmstopaze",
"porn",
"porno",
"pharmacy",
"Lowest prices",
"prices",
"phentermine",
"femjoy",
"levrita",
"cialis",
"myfreepaysite",
"natale",
"lorazepam",
"angelfire",
"mortgage",
"blogspot.com"
);
$spamfilter_email=array("feqwv@ppifu.org",
"pmzp@eggag.com",
"uabf@chgtl.com",
"ytuam@umzs.com",
"yxxvvr@fhfa.com",
"cgxe@cnzag.fm",
"xuwv@uiiqa.net",
"tcdhp@pwxtnn.com",
"yyulw@qqftky.com",
"khfk@tsqsj.net",
"hdxm@uyifu.net",
"xlvch@fdfbcg.com",
"bwncw@etekry.com",
"njjfq@uocuel.com",
"esty333@hispavista.com",
"nick76@mailbox.com",
"dominic@mail.com",
"neo@hotmail.com",
"jane@mail.com",
"aaron@yahoo.com",
"bill@berlin.com",
"heel@mail.com",
"la_rpegronik1@mail.com",
"jorgito_10_91@hotmail.com",
"ya@kotov.edu",
"xmnceb@mail.com",
"btbt@awert.com",
"xeqsgn@mail.com",
"xostkr@mail.com",
"nqxohs@mail.com",
"777777@gmail.com",
"kokach@gmail.com");
function filtra_spam($dir_email,$texto_mensaje,$w,$e){
$es_spam=false;
$dir_email=trim($dir_email);
if($dir_email!="")
{
$valor=in_array($dir_email,$e);
if($valor!=false)
$es_spam=true;
}
for($i=0; $i