[Ceyhun Aksan]

mail adreslerini veritabanina kaydeden örümcek adıyla tabir ettiğimiz programlardan korumak için yazılmış bir ASP script.

<%
Function EncryptMail(sMail)
	
   Dim sEncryptedMail,i
	
   For i = 0 to len(sMail) - 1		
      sEncryptedMail = sEncryptedMail + chr ( asc ( mid(sMail,i + 1,1) ) - 1 )
   Next
	
   EncryptMail = sEncryptedMail
	
End Function
%>

Fakat bu ifadeyi sadece örümcek değil ziyaretçinin browser ı ve tabiiki kullanıcılarda anlamayacaklardır. O halde browser ve kullanıcılar için bir JavaScript kullanarak bu ifadeyi aslına çevirecek bir decoder yazalım :

<script>
function myMailSender(s){
          var s2 = '';
          for(var i = 0; i < s.length; i++){
               s2 += String.fromCharCode(s.charCodeAt(i) + 1 );
          }

     document.location.href="mailto:" + s2;
     }	
</script>

mutasyon.net