【讨论】彻底吓住黑客入侵者的代码 黑客, 入侵者, 代码, 讨论

卡多佐

以下是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+()]+([email=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]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[/email]+]*)"黑客
　　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　　
　　%>

良思俊旭

晕倒！！！看不懂

良思俊旭

恐怖，看来应该学学反侦察技术了。

静思夜

高手 好搞笑

凌波微步

是挺吓人的，绝，

静思夜

这样说会泻密的,

静思夜

我上次也被吓了一次

yoii0

黑客不用代理就入侵吗

不属于

管理员也有吃荤的 如果没有日志 直接只是一句话 那就叫心理战了

凌波微步

我被这种玩意吓退好多次了  都是些gov网站、国企网站啥的~

期待~~

- -。吓人
　Response.Write "<script>alert('北京海淀网络**局警官张无(13021)提醒你：\n◇来自:'+document.getElementById('addr').innerHTML +' 的朋友\n◇你的非法访问已经被记录\n★非法IP=" & IP & "\n★请保持手机畅通，恭候**部门调查！')</script>"

凌波微步

XX```挺吓人