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

今天写一篇关于站点安全的文章。 %?2y2O,;  
  很多人做网站，直接下源代码，比如动易，动网等等，除了论坛代码本身爆出的漏洞之外，站长本身不对论坛的一些敏感信息进行修改。别人只需要简单的分析一下整站系统的版本，就能知道整站源代码，然后就能知道默认管理员账号和登录连接，还有就是能知道数据库路径等等！ 6 );8z!+  
  所以我们下好整站系统之后就要相应的修改数据库路径以及管理账号和密码，同时要打好补丁！ 8}C_/qeM  
  关于自己亲手写的代码，要做好防注入，以下列出两个通用防注入代码： RqB8g  
<% ;8m )a  
'''''''''''''''''''''''''''''''''''''''''''''''' )xm[mvt  
'ASP通用防注入代码 9lqH  
'您可以把该代码COPY到头文件中.也可以单独作 ]-g9dV_[>j  
'为一个文件存在,每次调用使用 Dk%+|c  
'''''''''''''''''''''''''''''''''''''''''''''''' XtCG.3(L Y  
Dim GetFlag Rem(提交方式) Gu@n1/m@o  
Dim ErrorSql Rem(非法字符) \:y oS>G  
Dim RequestKey Rem(提交数据) }ff+RGxLIG  
Dim ForI Rem(循环标记) mSeCXCrZlI  
ErrorSql = "'~;~and~(~)~exec~update~count~*~%~chr~mid~master~truncate~char~declare" Rem(每个敏感字符或者词语请使用半角 "~" 格开) Q?xA))0  
ErrorSql = split(ErrorSql,"~") SR_<3WW  
If Request.ServerVariables("REQUEST_METHOD")="GET" Then v9*31Jx  
GetFlag=True u'`eCrKT*  
Else Gn&=<q:H  
GetFlag=False ~ kw
S`  
End If VDT.L,9  
If GetFlag Then *{DpNV8"  
For Each RequestKey In Request.QueryString J~}sQ{ 0  
For ForI=0 To Ubound(ErrorSql) 'Y2ImSWj  
If Instr(LCase(Request.QueryString(RequestKey)),ErrorSql(ForI))<>0 Then x4bmV@b  
response.write "<script>alert(""警告:\n请不要使用敏感字符"");location.href=""index.asp"";</script>" g|T WoRx:  
Response.End nEHmiG  
End If n,D&pl9f  
Next 4g+Dp&U  
Next WIKSz {"=/  
Else y7^E`LKK  
For Each RequestKey In Request.Form Xrl# DN
 
For ForI=0 To Ubound(ErrorSql) |tN:o= 6  
If Instr(LCase(Request.Form(RequestKey)),ErrorSql(ForI))<>0 Then YC[cQX  
response.write "<script>alert(""警告:\n请不要使用敏感字符"");location.href=""index.asp"";</script>" qf T71o(  
Response.End  T _)G5a  
End If WYJH+"@%j  
Next ;x.5_Xw{.  
Next g~p43sVV  
End If }i._&x`):  
%> QZ& 4W  
------------------------------------------------------------------------------------------------------------------- <c3Te$.  
k@Qd:I;;  
第二个： g286 P_a`*  
k:[T #/;  
<% L;h|Sk]{  
'防止注入 #?"^:,Y  
dim qs,errc,iii 8Wba Hw_  
qs=lcase(request.servervariables("query_string")) |W*#N8IP  
'response.write(qs) jZr"d*Y  
dim deStr(18) Y6G`p  
deStr(0)="net user" ?[?;%Y  
deStr(1)="xp_cmdshell" "*<)pnJ  
deStr(2)="/add" TrPw*4h 9s  
deStr(3)="exec%20master.dbo.xp_cmdshell" eHb@qKnf  
deStr(4)="net localgroup administrators" \&/V p`  
deStr(5)="select" (1e,9!?  
deStr(6)="count" `l2h65\  
deStr(7)="asc" Z\r?>2  
deStr(8)="char" Zz?)k]) F  
deStr(9)="mid" Tm\a%Z `U>  
deStr(10)="'" F1*xY%Jv^M  
deStr(11)=":" Yz)+UF,  
deStr(12)="""" r17"
i.n  
deStr(13)="insert" (}m2}  
deStr(14)="delete" 1 HY K& ',  
deStr(15)="drop" [>D5(O  
deStr(16)="truncate" S-5O$EnD  
deStr(17)="from" 
YWAH(  
deStr(18)="%" BEtFFi6ot  
errc=false ?t)Mt]("  
for iii= 0 to ubound(deStr) i&^]qL|J  
if instr(qs,deStr(iii))<>0 then p(>D5uN_}5  
errc=true ',Y`\X  
end if smKp3_r  
next T*z*x=<5  
if errc then "^Vnnb:Z*o  
Response.Write("对不起，非法URL地址请求!") I= 2jQ>$Q  
response.end xc}kDpF=g  
end if qh|fq b  
%> zJ)`snN|  
1>=%TIO)  
  注入漏洞是最常见的漏洞，还有在线编辑漏洞，网上都有相关的防范方法。站点安全尤为重要，对站点的使用者有很大的影响，站点不安全，服务器就存在威胁！

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

[!Djs![O