'************************************** ' Name: Cloaker Script ' Description:This routine converts a st ' ring of text to a string of unicode char ' acters. So the string: <small><b>"look@me.com"</b><br></small> Becomes:<br> UTF-8<br> <small><b>"&amp;#108;&amp;#111;&amp;#111;&amp;#107;&amp;#64;&amp;#109;&amp;#101;&amp;#46;&amp;#99;&amp;#111;&amp;#109;"</b></small><br> <small><b>"&#108;&#111;&#111;&#107;&#64;&#109;&#101;&#46;&#99;&#111;&#109;"</b></small><br> Long UTF-8<br> <small><b>"&amp;#0000108&amp;#0000111&amp;#0000111&amp;#0000107&amp;#0000064&amp;#0000109&amp;#0000101&amp;#0000046&amp;#0000099&amp;#0000111&amp;#0000109"</b></small><br> <small><b>"&#0000108&#0000111&#0000111&#0000107&#0000064&#0000109&#0000101&#0000046&#0000099&#0000111&#0000109"</b></small><br> UTF-8 Hex <br> <small><b>"&amp;#x6C;&amp;#x6F;&amp;#x6F;&amp;#x6B;&amp;#x40;&amp;#x6D;&amp;#x65;&amp;#x2E;&amp;#x63;&amp;#x6F;&amp;#x6D;"</b></small><br> <small><b>"&#x6C;&#x6F;&#x6F;&#x6B;&#x40;&#x6D;&#x65;&#x2E;&#x63;&#x6F;&#x6D;"</b></small><br> This effectively masks the address so that it can't be scanned and it is still effective. The second line of each case is the same string as above not modified for display:<br> Note that it looks identical to the top string. ' By: Dave Vroman ' ' ' Inputs:None ' ' Returns:None ' 'Assumes:None ' 'Side Effects:None '************************************** &lt;%@ Language=VBScript %&gt; &lt;% Function CloakIt(ByVal inTxt, ByVal iType) ' Convert An Input String To Unicode Cha ' racter Codes Dim iInd Dim sOut If Len(inTxt) = 0 Then CloakIt = "" Exit Function End If For iInd = 1 To Len(inTxt) Select Case iType Case 2 ' Long UTF-8 encoding without semicolons ' sOut = sOut &amp; "&amp;#" &amp; Right("0000000" &amp; CStr(Asc(Mid(inTxt, iInd, 1))), 7) Case 3 ' Hex encoding without semicolons sOut = sOut &amp; "&amp;#x" &amp; Hex(Asc(Mid(inTxt, iInd, 1))) Case 4 ' Hex encoding with semicolons sOut = sOut &amp; "&amp;#x" &amp; Hex(Asc(Mid(inTxt, iInd, 1))) &amp; ";" Case Else ' UTF-8 Unicode Encoding sOut = sOut &amp; "&amp;#" &amp; CStr(Asc(Mid(inTxt, iInd, 1))) &amp; ";" End Select Next CloakIt = sOut End Function %&gt; &lt;html&gt;&lt;head&gt;&lt;title&gt; Cloak-It &lt;/title&gt; &lt;/head&gt; &lt;body link=#000080 text=#000000 vLink=#008080 bgColor=#ffffff&gt;&lt;font face="Tahoma,Arial,Helvetica,Verdana"&gt; &lt;h3 align=center&gt;Cloak It - Email Address Cloaker&lt;/h3&gt; &lt;form action="CloakIt.asp?entered=true" method=post id=form1 name=form1&gt; &lt;table border=0 cellspacing=1 cellpadding=1&gt; &lt;TR&gt; &lt;td align=right width=25%&gt;Plain String:&lt;/td&gt; &lt;td&gt;&lt;input type="text" size=100 id=plain name=plain value="&lt;%= Request.Form("plain") %&gt;"&gt;&lt;/td&gt; &lt;/TR&gt; &lt;TR&gt; &lt;td align=right&gt;&lt;% Select Case Request.Form("CloakType") Case "2" Response.Write "Long UTF-8 encoding:" Case "3" Response.Write "Hex encoding No "";"":" Case "4" Response.Write "Hex encoding With "";"":" Case Else Response.Write "UTF-8 Unicode Encoding:" End Select %&gt;&lt;/td&gt; &lt;td&gt;&lt;input type="text" id=cloaked name=cloaked size=100 value="&lt;%= replace(CloakIt(Request.Form("plain"), Request.Form("cloaktype")),"&amp;", "&amp;amp;") %&gt;"&gt;&lt;/td&gt; &lt;/tr&gt; &lt;tr&gt; &lt;td align=right&gt;Displayed Encoded String 1:&lt;/td&gt; &lt;td&gt;&lt;%= CloakIt(Request.Form("plain"), Request.Form("CloakType")) %&gt;&lt;/td&gt; &lt;/tr&gt; &lt;tr&gt; &lt;td align=right&gt;Displayed Encoded String 2:&lt;/td&gt; &lt;td&gt;&lt;input type="text" id=show name=show size=100 value="&lt;%= CloakIt(Request.Form("plain"), Request.Form("CloakType")) %&gt;"&gt;&lt;/td&gt; &lt;/tr&gt; &lt;tr&gt; &lt;td align=right valign=top&gt;Cloaking Type:&lt;/td&gt; &lt;td&gt;&lt;input type=radio name="CloakType" value="1" &lt;%If Request.Form("CloakType")="1" Then Response.Write " CHECKED"%&gt;&gt; UTF-8 Unicode Encoding&lt;br&gt; &lt;input type=radio name="CloakType" value="2" &lt;%If Request.Form("CloakType")="2" Then Response.Write " CHECKED"%&gt;&gt; Long UTF-8 encoding without semicolons&lt;br&gt; &lt;input type=radio name="CloakType" value="3" &lt;%If Request.Form("CloakType")="3" Then Response.Write " CHECKED"%&gt;&gt; Hex encoding without semicolons&lt;br&gt; &lt;input type=radio name="CloakType" value="4" &lt;%If Request.Form("CloakType")="4" Then Response.Write " CHECKED"%&gt;&gt; Hex encoding with semicolons &lt;/td&gt; &lt;/tr&gt; &lt;/TABLE&gt; &lt;input type="submit" value="Submit" name=Submit&gt; &lt;input type="reset" value="Reset" id=reset1 name=reset1&gt; &lt;/form&gt; &lt;/font&gt;&lt;/body&gt;&lt;/html&gt;