chenxilove 发表于 2012-4-9 16:53:37

让入侵者被吓坏的代码

以下是asp代码，并且使用了ip地址归属地查询。
--------------------------------------------------------------------------------------------------------------------------
<%
　　Sub StopInjection_it_security(Values)
　　Dim regEx
　　Dim IP
　　Set regEx = New RegExp
　　regEx.IgnoreCase = True
　　regEx.Global = True　
　　regEx.Pattern = "'|;|#|([\s\b+()]+(select|union|update|insert|delete|declare|@|exec|dbcc|alter|drop|create|backup|if|else|end|and|or|add|set|open|close|use|begin|retun|as|go|exists)[\s\b+]*)"
　　If regEx.Test(Values) Then
　　IP = Request.ServerVariables("HTTP_X_FORWARDED_F")
　　IF(IP="")THEN IP = Request.ServerVariables("REMOTE_ADDR")
　　response.write("<span name=addr id=addr></span>")
　　response.write("<script src=http://whois.pconline.com.cn/jsLabel.jsp?ip=" & IP &"&id=addr></script>")
　　Response.Write "<script>alert('北京海淀网络安全局警官张无(13021)提醒你：\n◇来自:'+document.getElementById('addr').innerHTML +' 的朋友\n◇你的非法访问已经被记录\n★非法IP=" & IP & "\n★请保持手机畅通，恭候网警部门调查！')</script>"
　　Response.End
　　End If
　　
　　Set regEx = Nothing
　　End Sub　　
　　%>

康扉刘迎凯 发表于 2012-4-9 17:39:50

哈哈 好牛哦

9tnlianmeng 发表于 2012-4-10 14:34:50

九头鸟广告联盟--给力的联盟
   九头鸟广告联盟，主营cpc和cpm，给力木有，每周三付，绝不扣量，数据和统计一样，有木   有啊
   九头鸟广告联盟
   有意愿的站长可以联系qq：613385484
页: [1]
查看完整版本: 让入侵者被吓坏的代码