cripter adresse e mail en ASP

SALUT

Mon problème: je voudrais "cripter" les adresses email
exemple matata@fournisseur.fr
obtenir
****ta@fournisseur.fr

C'est facile à dire mais peut etre pas autant à réaliser,
pouvez vous m'aider????

MERCI

Comme ceci?


tabEmail = split(email,"@")
if len(tabEmail(0))>4 then
email = "****" & right(tabEmail(0),len(tabEmail(0))-4)
else
email=""
for i=1 to len(tabEmail(0))
email=email & "*"
next
end if
email=email & "@" & tabEmail(1)


C'est fait un peu à l'arrache, il peut donc y avoir quelques fautes.

Thanks a lot!!!



-------------------------------
Réponse au message :
-------------------------------

> Comme ceci?
>
>
> tabEmail = split(email,"@")
> if len(tabEmail(0))>4 then
> email = "****" & right(tabEmail(0),len(tabEmail(0))-4)
> else
> email=""
> for i=1 to len(tabEmail(0))
> email=email & "*"
> next
> end if
> email=email & "@" & tabEmail(1)
>
>
> C'est fait un peu à l'arrache, il peut donc y avoir quelques fautes.