ASP安全

2010-1-31 07:50| 发布者: admin| 查看: 22| 评论: 0|原作者: 天仙子

主要基于GET提交方式的防治，如有语法错误请谅解。◎！
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
<% linux博客#l G b t)m e ~2c O
dim sql_leach,sql_leach_0,Sql_DATA,IP,Brown
S:J g Y c O @0'加入要检测出的特殊字符---------------------------------------------------------------linux博客6? {&S+c8T+N
sql_leach = "',;,and,exec,insert,select,delete,update,count,*,%,chr,mid,master,truncate,char,declare,%20,%70,%5c"
"N"T X"|9^+x T0'用SPLIT函数把特殊的字符串分割-------------------------------------------------------- linux博客 d&q O a U4j R G!Y q
sql_leach_0 = split(sql_leach,",")
y ` c)l I7@ S v ~0IP=request.ServerVariables("REMOTE_ADDR") '提取对方IPlinux博客 ? N+E t y'n(G;[
Brown=request.ServerVariables("REQUEST_METHOD") '提取对方提交方式linux博客$Y G ~3} e.v4F9J g6O
Thispage=request.ServerVariables("URL")linux博客&[+e*[ a I P#{ F F {
'检测Request.QueryString--------------------------------------------------------------linux博客 ~ \#t7z W&n)\.B
If Request.QueryString<>"" Then
%y#d q _9K'Q0'循环开始，并查找URL设定的特殊字符----------------------------------------------------
m F U g1p1[0For Each SQL_Get In Request.QueryString
q%g k n b B.O%v K n0For SQL_Data=0 To Ubound(sql_leach_0)
x K9x T T,n T+b0if instr(Request.QueryString(SQL_Get),sql_leach_0(Sql_DATA))>0 Then
a @ } R L U p&Q0 Set cmd=server.CreateObject("ADODB.COMMAND")linux博客 a+J D;Y a @ D n
cmd.ActiveConnection = "Provider=Microsoft.Jet.Oledb.4.0;Data source=" & server.mappath("/database/SQL.mdb")linux博客5n j }%V0h f I d,Z
IP=request.ServerVariables("REMOTE_ADDR") '提取对方IP
+hd ^ z I0 Brown=request.ServerVariables("REQUEST_METHOD") '提取对方提交方式linux博客,d%d |'? s-O Y
Thispage=request.ServerVariables("URL")
Z"N D'{ H C;r'J0 cmd.commandtext="insert into SQL(Ip,tijiao,yemian) Values ('&Ip&','&Brown&','&Thispage&')"linux博客k O w l%~ G3q,}
cmd.ActiveConnection.close
X*b%U/_5z)W!z [0Response.Write "请不要尝试进行SQL注入!

"
9a D/C"z L/L0Response.Write "你的信息已被记录↓
"linux博客 ? g N K l2O*N
Response.Write "你的IP："&IP&"
"linux博客%@(|0B A i;L B F
Response.Write "提交方式："&brown&"
"
W*T7y+uj \0}0Response.Write "提交页面："&Thispage&"

"linux博客 i R X C w
Response.Write "请你做一位合法的浏览者，不要触犯法律，谢谢合作！

"
Q%q { Z Q4\,d \ G0Response.Write "【UMBRELLA网络安全小组特殊制作】"linux博客 T#g _)^)i `
Response.end linux博客 r7` `'h.A/{
end if linux博客#[ ^ ]'r3K#j9s L
next
K;B K9`!R t'f S4q b0Next
D ] s1^ r Y L0End If
(\.A | I [:I-f x,@#p0%>

收藏分享邀请

		自动登录	找回密码
密码			注册

ASP安全

最新评论

相关分类