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

今天写一篇关于站点安全的文章。 ,?/AIL]_  
  很多人做网站，直接下源代码，比如动易，动网等等，除了论坛代码本身爆出的漏洞之外，站长本身不对论坛的一些敏感信息进行修改。别人只需要简单的分析一下整站系统的版本，就能知道整站源代码，然后就能知道默认管理员账号和登录连接，还有就是能知道数据库路径等等！ sRKoM  
  所以我们下好整站系统之后就要相应的修改数据库路径以及管理账号和密码，同时要打好补丁！ k|D =Q  
  关于自己亲手写的代码，要做好防注入，以下列出两个通用防注入代码： '74*-yd  
<% 3 =-XA2zJ  
'''''''''''''''''''''''''''''''''''''''''''''''' 0n-S%e5  
'ASP通用防注入代码 1 ` ={**  
'您可以把该代码COPY到头文件中.也可以单独作 %
db  
'为一个文件存在,每次调用使用 #)b0&wyW6i  
'''''''''''''''''''''''''''''''''''''''''''''''' RoYwZX~  
Dim GetFlag Rem(提交方式) N,ysv/zq7  
Dim ErrorSql Rem(非法字符) mP[ZlS~"  
Dim RequestKey Rem(提交数据) 'M!*Ge  
Dim ForI Rem(循环标记) 3K{G=WE$  
ErrorSql = "'~;~and~(~)~exec~update~count~*~%~chr~mid~master~truncate~char~declare" Rem(每个敏感字符或者词语请使用半角 "~" 格开) NPjNkpWm&=  
ErrorSql = split(ErrorSql,"~") ]7DS>%mY(  
If Request.ServerVariables("REQUEST_METHOD")="GET" Then 8RaRXnJ  
GetFlag=True fZka$ 4  
Else  ;U<}2M!g  
GetFlag=False gO%oA} !i  
End If 9L7jYy=A#  
If GetFlag Then eB2a1<S&@  
For Each RequestKey In Request.QueryString bJ5 VlK67R  
For ForI=0 To Ubound(ErrorSql) .6HHUy  
If Instr(LCase(Request.QueryString(RequestKey)),ErrorSql(ForI))<>0 Then .hVB)@ /  
response.write "<script>alert(""警告:\n请不要使用敏感字符"");location.href=""index.asp"";</script>" /n-!dXi  
Response.End dk>qTY+j5  
End If q:ah%x[  
Next 4RyQ^vL  
Next =GJ)4
os  
Else %D6HY^]ayw  
For Each RequestKey In Request.Form }>$3B5}  
For ForI=0 To Ubound(ErrorSql) >#[,OU}N  
If Instr(LCase(Request.Form(RequestKey)),ErrorSql(ForI))<>0 Then ZBsV  
response.write "<script>alert(""警告:\n请不要使用敏感字符"");location.href=""index.asp"";</script>" Mp,aQ0bNS  
Response.End !}I+)@~
\w  
End If B6J<  
Next Cr>YpWm  
Next +Jw+rjnP  
End If !&#
5*  
%> *w5xC5*  
------------------------------------------------------------------------------------------------------------------- 9gQ ]!Oq  
!>,XK!)  
第二个： y)uxj-G  
C2(VYw  
<% fb|%)A=  
'防止注入 b;jr ;I  
dim qs,errc,iii 2qpUUo f  
qs=lcase(request.servervariables("query_string")) w tSX(LNY  
'response.write(qs) #,B+&SK{  
dim deStr(18) kxWcWl8  
deStr(0)="net user" `PS^o#  
deStr(1)="xp_cmdshell" hZwJ@ Vm#  
deStr(2)="/add" &MJcLM]  
deStr(3)="exec%20master.dbo.xp_cmdshell" zr@HYl  
deStr(4)="net localgroup administrators" C7Ny-rj}IA  
deStr(5)="select" N.F
//n  
deStr(6)="count" < VrHWJo  
deStr(7)="asc" Scd_tw.]|  
deStr(8)="char" JrNqS[c/  
deStr(9)="mid" ,,+iPGa<  
deStr(10)="'" 6BH P#B2j  
deStr(11)=":" CXd/ M~:!  
deStr(12)="""" kG>m(n  
deStr(13)="insert" ,.]1N:   
deStr(14)="delete" =QS%D*.|D  
deStr(15)="drop" :F`"CR^,  
deStr(16)="truncate" B0$ge"FK9  
deStr(17)="from" `Bzj DI:a  
deStr(18)="%" D*}_

L   
errc=false n@_aTY  
for iii= 0 to ubound(deStr) k@}g?X`8  
if instr(qs,deStr(iii))<>0 then QA=mD^A  
errc=true w
itx_r  
end if +[Bl@RHe^  
next /vNHb_-  
if errc then T%O2=h\} E  
Response.Write("对不起，非法URL地址请求!") ')zf8>,  
response.end Aq;WQyZ2  
end if O/Mx$Q3re  
%> ;Q\MH t*  
y#v<V1b]  
  注入漏洞是最常见的漏洞，还有在线编辑漏洞，网上都有相关的防范方法。站点安全尤为重要，对站点的使用者有很大的影响，站点不安全，服务器就存在威胁！

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

90">l^HX=