/*
* +----------------------------------+
*  Nom du Filtre : antispamarobase         
* +----------------------------------+
*  Date : 4 avril 2005
*  Auteur : ELASTICK.net
* +-------------------------------------+
*  Fonctions de ce filtre :
*  Crypter l arobase jusqu au point suivant dans le champ d un article, d une rubrique etc..
*  sans empecher l affichage a l ecran
*  ni son utilisation par un logiciel de messagerie
* +-------------------------------------+
* utilisation dans un squelette :
* [(#TEXTE|antispamarobase)]
* s’utilise avec crypt_mail (placé au dessus) dans mes_fonctions.php
* a combiner eventuellement avec cryptemail_txt
* [(#TEXTE|cryptemail_txt|antispamarobase)] qui crypte la balise <a href>
* 
*/

function antispamarobase($texte) {
   while (strpos($texte,"ATICI") > 0)  { //!! ATTENTION remplaçer ATICI par un arobase
   $debuarobase = strpos($texte,"ATICI");
   $finarobase = strpos($texte,'.',$debuarobase);
   $cryptarobase = substr($texte,$debuarobase,$finarobase-$debuarobase);
   
   $s= crypt_mail($cryptarobase);
   
   $texte = ereg_replace($cryptarobase, $s, $texte);
      }
      return $texte;
 }