/*
* +----------------------------------+
*  Nom du Filtre : crypt_mail           
* +----------------------------------+

*  Date : dimanche 6 juillet 2003
*  Auteur : Jean-Pierre KUNTZ
*    alias Coyote 
* +-------------------------------------+
*  Fonctions de ce filtre :
*  Crypter une chaîne de texte (email, URL)
*  sans en empecher l affichage à l ecran
*  ni l’utilisation par un logiciel de messagerie
* +-------------------------------------+
* 
* Pour toute suggestion, remarque, proposition d’ajout
* reportez-vous au forum de l’article :
* http://spip-contrib.net/article.php3 ?id_article=197
*/

function crypt_mail($texte) { 
   $s=""; 
   for ($i=0;$i<strlen($texte);$i++) { 
     $s.="&#".ord($texte{$i}).";"; 
   } 
   return $s; 
} 

function cryptemail_txt($texte) {
       while (strpos($texte,"mailto:") > 0)  {
        $debemail = strpos($texte,"mailto:");
        $finemail = strpos($texte,'"',$debemail);
        $textemail = substr($texte,$debemail,$finemail-$debemail);

        $s= crypt_mail($textemail);

        $texte = ereg_replace($textemail, $s, $texte);
      }
      return $texte;
	  }