切换到宽版
  • 14783阅读
  • 1回复

站点安全简单防范 [复制链接]

上一主题 下一主题
 
只看楼主 倒序阅读 0楼  发表于: 2009-04-10
— 本帖被 鞋带总是开 从 Exchange中文站-灌水乐园 移动到本区(2009-07-11) —
今天写一篇关于站点安全的文章。 ?}^e,.M0?s  
  很多人做网站,直接下源代码,比如动易,动网等等,除了论坛代码本身爆出的漏洞之外,站长本身不对论坛的一些敏感信息进行修改。别人只需要简单的分析一下整站系统的版本,就能知道整站源代码,然后就能知道默认管理员账号和登录连接,还有就是能知道数据库路径等等! bG nBV7b  
  所以我们下好整站系统之后就要相应的修改数据库路径以及管理账号和密码,同时要打好补丁! qA:CV(Z  
  关于自己亲手写的代码,要做好防注入,以下列出两个通用防注入代码: Eugt~j3  
<% #tG /{R  
'''''''''''''''''''''''''''''''''''''''''''''''' YBQO]3f  
'ASP通用防注入代码 hnS ~r4  
'您可以把该代码COPY到头文件中.也可以单独作 w#_xV =  
'为一个文件存在,每次调用使用 O6gI%Jdp  
'''''''''''''''''''''''''''''''''''''''''''''''' *1iJa  
Dim GetFlag Rem(提交方式) mJb>)bO l  
Dim ErrorSql Rem(非法字符) o?uTL>Zin  
Dim RequestKey Rem(提交数据) 6 )eO%M`  
Dim ForI Rem(循环标记) %Bg} a  
ErrorSql = "'~;~and~(~)~exec~update~count~*~%~chr~mid~master~truncate~char~declare" Rem(每个敏感字符或者词语请使用半角 "~" 格开) _5#f9,m1  
ErrorSql = split(ErrorSql,"~") CD1}.h  
If Request.ServerVariables("REQUEST_METHOD")="GET" Then M`HXUA4  
GetFlag=True UMUr"-l =  
Else qNER 6  
GetFlag=False b8)>:F   
End If `.nkC_d  
If GetFlag Then /yn1MW[.  
For Each RequestKey In Request.QueryString }_}C ^  
For ForI=0 To Ubound(ErrorSql) /Kb7#uq  
If Instr(LCase(Request.QueryString(RequestKey)),ErrorSql(ForI))<>0 Then Uj}iMw,  
response.write "<script>alert(""警告:\n请不要使用敏感字符"");location.href=""index.asp"";</script>" 8^j u=  
Response.End 1fwCQM   
End If M=n!tVlCV  
Next \>nPg5OT  
Next R(@7$  
Else ;<0Q<0G  
For Each RequestKey In Request.Form M5 ep\^  
For ForI=0 To Ubound(ErrorSql) R^P~iAO  
If Instr(LCase(Request.Form(RequestKey)),ErrorSql(ForI))<>0 Then 5{qFKo"g@,  
response.write "<script>alert(""警告:\n请不要使用敏感字符"");location.href=""index.asp"";</script>" hX\XNiCiK8  
Response.End J!%Yy\G  
End If V_Kpb*3  
Next O?NAbxkp  
Next AR'q2/cw  
End If LoUi Yf  
%> " M8 j?  
------------------------------------------------------------------------------------------------------------------- Q(gu " ;&  
?m#X";^V  
第二个: s&Y~ 48{  
T#?KY  
<% -?<wvUbR{  
'防止注入 69(z[opW  
dim qs,errc,iii R{)Sv| +`  
qs=lcase(request.servervariables("query_string")) "XMTj <D  
'response.write(qs) D8slSX`6j  
dim deStr(18) F>&Q5Kl R  
deStr(0)="net user" 7 }(LO^,A  
deStr(1)="xp_cmdshell" u9}}}UN!  
deStr(2)="/add" ftsr-3!Vm  
deStr(3)="exec%20master.dbo.xp_cmdshell" '#[U7(lIQ  
deStr(4)="net localgroup administrators" 4%2QF F @  
deStr(5)="select" $6atr-Pb  
deStr(6)="count" a_'W1ek-@  
deStr(7)="asc" iOm1U_S  
deStr(8)="char" "v4;m\g&:  
deStr(9)="mid" W fkm'BnV  
deStr(10)="'" Lhu2;F\/  
deStr(11)=":" 0wXfu"E{  
deStr(12)="""" *\m 53mb  
deStr(13)="insert" |{cdXbr  
deStr(14)="delete" g;w4:k)U  
deStr(15)="drop" `7}6  
deStr(16)="truncate" NZYtA7  
deStr(17)="from" sl-LX)*N#  
deStr(18)="%" :6PWU$z$7  
errc=false & PrV+Lv  
for iii= 0 to ubound(deStr) 9 a2Ga   
if instr(qs,deStr(iii))<>0 then NS6Bi3~  
errc=true *ghkw9/  
end if ?qYw9XQYL  
next K,%H*1 YKK  
if errc then <=n$o MO  
Response.Write("对不起,非法URL地址请求!") i}ypEp  
response.end p #'BV'0bl  
end if |332G64K  
%> ' ^gF  
Q piv,n  
  注入漏洞是最常见的漏洞,还有在线编辑漏洞,网上都有相关的防范方法。站点安全尤为重要,对站点的使用者有很大的影响,站点不安全,服务器就存在威胁!
分享到
只看该作者 1楼  发表于: 2009-04-10

这里是讨论邮件防病毒与防垃圾邮件的版区。

|f'U_nE#R/  

 

快速回复
限60 字节
 
上一个 下一个