如何防止页面中的敏感信息被提取
<P>公布到网页上的Email经常会被一些工具自动提取，一些非法用户就会利用所提取的Email大肆发送垃圾邮件。这些工具大多都是查找链接中“mailto:”后面的信息或是“@”前后的信息来达到提取Email的目的。我在看DotNetNuke（以下简称DNN）的源代码时发现了一个不错的方式来防止这些信息被自动提取。</P><P>[quote] </P>
<P>在DNN中有这么一段函数（Globals.vb中）： <BR> Public Function CloakText()Function CloakText(ByVal PersonalInfo As String) As String <BR> <BR> If Not PersonalInfo Is Nothing Then <BR> Dim sb As New StringBuilder <BR> <BR> ' convert to ASCII character codes，将字符串转换成ASCII编码字符串形式 <BR> sb.Remove(0, sb.Length) <BR> Dim StringLength As Integer = PersonalInfo.Length - 1 <BR> For i As Integer = 0 To StringLength <BR> sb.Append(Asc(PersonalInfo.Substring(i, 1)).ToString) <BR> If i < StringLength Then <BR> sb.Append(",") <BR> End If <BR> Next <BR> <BR> ' build script block <BR> Dim sbScript As New StringBuilder <BR> <BR> sbScript.Append(vbCrLf & "<script language=""javascript"">" & vbCrLf) <BR> sbScript.Append("<!-- " & vbCrLf) <BR> 'fromCharCode 方法：从一些 Unicode 字符值中返回一个字符串。 <BR> sbScript.Append(" document.write(String.fromCharCode(" & sb.ToString & "))" & vbCrLf) <BR> sbScript.Append("// -->" & vbCrLf) <BR> sbScript.Append("</script>" & vbCrLf) <BR> <BR> Return sbScript.ToString <BR> Else <BR> Return Null.NullString <BR> End If <BR> <BR> End Function <BR> <BR> 该段代码先将需要加密的信息转换成ASCII编码字符串形式，然后用javascript中的document.write方法写到页面。 <BR> <BR> 我测试了以下效果，还不错。大家也可以试试。 <BR> <html> <BR> <head> <BR> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <BR> <title>测试信息加密</title> <BR> </head> <BR> <BR> <body> <BR> 可以被提取的链接：<a href="mailto:aaa@163.com">aaa@163.com</a><br> <BR> 不能被提取的链接： <BR> <script language="javascript"> <BR> <!-- <BR> document.write(String.fromCharCode(60,97,32,104,114,101,102,61,34,109,97,105,108,116,111,58,120,120,120,64,116,111,109, <BR> 46,99,111,109,34,62,120,120,120,64,116,111,109,46,99,111,109,60,47,97,62)) <BR> // --> <BR> </script> <BR> </body> <BR> </html></P>
<P>[/quote]</P> 这个是好东西
先收藏了
页:
[1]