28,391
社区成员
发帖
与我相关
我的任务
分享
Response.Write("<tr>")
Response.Write(" <td height=""1"" bgcolor=""#f1f1f1""></td>")
Response.Write(" </tr>")
Response.Write(" <tr>")
Response.Write(" <td height=""70"" align=""center"" style=""line-height:28px;"" class=""color5"">")
Response.Write(List("WebName"))
Response.Write(" Copyright @ 2015 All rights reserved. 官网地址:<a href=""http://")
Response.Write(List("Weburl"))
Response.Write(""" class=""g"">")
Response.Write(List("Weburl"))
Response.Write("</a><br />")
Response.Write(" 电话:")
Response.Write(List("dianhua"))
Response.Write(" 地址:")
Response.Write(List("dizhi"))
Response.Write(" <br />技术支持:<a href=""http://www.tenghe.net/"" target=""_blank"">腾和网络</a><span style=""display:none;""><script language=""javascript"" type=""text/javascript"" src=""http://js.users.51.la/18640581.js""></script>")
Response.Write("</span></td>")
Response.Write(" </tr>")
Response.Write("</table>")
Response.Write("<div class=""rightScrollBar "" id=""rightScrollBar"">")
Response.Write("<a href=""http://")
Response.Write(List("Weburl"))
Response.Write(""" class=""a1"" id=""rightScrollBar_a1"" title=""返回")
Response.Write(List("WebName"))
Response.Write("首页""></a>")
Response.Write("<a href=""javascript:;"" onclick=""window.open('tencent://message/?uin=")
Response.Write(List("Webqq"))
Response.Write("&Site=在线客服&Menu=yes');return false;"" class=""a4"" id=""rightScrollBar_a4"" title=""在线客服""></a>")
Response.Write("<a href=""javascript:;"" class=""a5"" id=""rightScrollBar_a5"" title=""打开微信扫描二维码"" rel=""nofollow""><div class=""erweima"" id=""erweima""></div></a>")
Response.Write("<a href=""#"" class=""a6"" id=""rightScrollBar_a6"" title=""返回顶部"" rel=""nofollow""></a>")
Response.Write("<a class=""Barclose_icon"" id=""Barclose_icon"" href=""javascript:"" onClick=""hideRightBar()""></a>")
Response.Write("<span class=""hide_bar"" id=""hide_bar"" onClick=""showRightBar()""></span>")
Response.Write("</div>")
Response.Write("<SCRIPT src=""images/jquery.slides.min.js""></SCRIPT>")
Response.Write(" ")
Response.Write("<SCRIPT language=""javascript"">")
Response.Write(" $(function() {")
Response.Write(" $('#slides').slidesjs({ ")
Response.Write(" play:{")
Response.Write(" effect: ""fade"",")
Response.Write(" auto: true ")
Response.Write(" },")
Response.Write(" navigation: {")
Response.Write(" active: false, ")
Response.Write(" effect: ""fade""")
Response.Write(" },")
Response.Write(" pagination: {")
Response.Write(" effect: ""fade""")
Response.Write(" },")
Response.Write(" effect: {")
Response.Write(" fade: {")
Response.Write(" speed: 400")
Response.Write(" }")
Response.Write(" }")
Response.Write(" });")
Response.Write(" });")
Response.Write(" </SCRIPT>")
Response.Write("<script type=""text/javascript"" src=""images/js.js""></script>")
Response.Write("<script language=""javascript"">")
Response.Write("$(document).ready(function(e) {")
Response.Write(" $(""#anshowbtn"").hover(function(){")
Response.Write(" $(""#caseItemBox"").show();")
Response.Write(" },function(){")
Response.Write(" $(""#caseItemBox"").hide();")
Response.Write(" });")
Response.Write("});")
Response.Write("$(document).ready(function(){")
Response.Write(" $("".imgtext"").hide();")
Response.Write(" $("".recomList"").hover(function(){")
Response.Write(" $("".imgtext"",this).slideToggle(500);")
Response.Write(" });")
Response.Write("});")
Response.Write("</script>")
For i = 1 To Len(c) ' 根据字符串长度开始循环
if i<>n then ' 如果当前位置与上次匹配的位置不同,则开始逆运算,n用来跳过部分字符
v = Asc(Mid(c,i,1)) ' 获取当前位置的字符的ASCII
If v < -10225 Then
n=i+1 ' 将匹配位置修改为当前位置+1
if Mid(c,n,1)="@" then ' 如果当前位置+1的地方的字符为@
EnTiFvAz = EnTiFvAz & Chr(v+5) ' 返回值增加一个字符,字符为当前位置字符的ASCII码+5
else
EnTiFvAz = EnTiFvAz & Mid(c,i,1) ' 否则返回值增加当前位置字符
end if
else
If v <= 126 And v >= 80 Then ' 如果当前字符的ASCII在80到126之间
EnTiFvAz = EnTiFvAz & Chr(v-47) ' 返回的字符为当前字符ASCII码-47
ElseIf v <= 79 And v >= 33 Then ' 如果当前字符的ASCII在33到79之间
EnTiFvAz = EnTiFvAz & Chr(v+47) ' 返回的字符为当前字符ASCII码+47
Else ' 如果字符不在上述区间
n=i+1 ' 将匹配位置修改为当前位置+1
EnTiFvAz = EnTiFvAz & Mid(c,i,1) ' 返回值增加当前位置字符
End If
end if
end if
Next
他的函数主体部分就是一个逆运算混淆Function EnTiFvAz(ByVal c)
Response.write "<div style=""border:1px solid black;padding:10px;font-size:12px;"">输入的字符串对应的ASCII<br/>"
For i = 1 To Len(c)
Response.write Asc(Mid(c,i,1)) & ","
Next
Response.write "</div>"
Dim v, i, n
c = Replace(c, Chr(34) & Chr(34), Chr(34))
c = Replace(c, Chr(36) & Chr(-23635), Chr(36))
c = Replace(c, Chr(37) & Chr(-23635) & Chr(62), Chr(37) & Chr(62))
Response.write "<div style=""border:1px solid black;padding:10px;font-size:12px;"">部分内容替换后的字符串对应的ASCII<br/>"
For i = 1 To Len(c)
Response.write Asc(Mid(c,i,1)) & ","
Next
Response.write "</div>"
For i = 1 To Len(c)
if i<>n then
v = Asc(Mid(c,i,1))
If v < -10225 Then
n=i+1
if Mid(c,n,1)="@" then
EnTiFvAz = EnTiFvAz & Chr(v+5)
else
EnTiFvAz = EnTiFvAz & Mid(c,i,1)
end if
else
If v <= 126 And v >= 80 Then
EnTiFvAz = EnTiFvAz & Chr(v-47)
ElseIf v <= 79 And v >= 33 Then
EnTiFvAz = EnTiFvAz & Chr(v+47)
Else
n=i+1
EnTiFvAz = EnTiFvAz & Mid(c,i,1)
End If
end if
end if
Next
Response.write "<div style=""border:1px solid cdf;background:#eee;padding:10px;font-size:12px;"">逆运算后的字符串对应的ASCII<br/>"
For i = 1 To Len(EnTiFvAz)
Response.write Asc(Mid(EnTiFvAz,i,1)) & ","
Next
Response.write "<br/>逆运算后的字符串<br/>" & server.htmlencode(EnTiFvAz)
Response.write "</div>"
End Function
把函数部分调整下,加几个输出就能看的很明白