MSSQL通用防注入程序的漏洞

现在基于web的攻击一般都是注入。导致注入的原因一般为对变量的过滤不完全，从而可以使入侵者非法执行程序或查询修改任意数据。随着注入攻击的愈演愈烈，一些专门的过滤代码应运而生。但一些过滤代码的不完善很可能导致新的攻击。下面就以目前应用最广泛的过

　　现在基于web的攻击一般都是注入。导致注入的原因一般为对变量的过滤不完全，从而可以使入侵者非法执行程序或查询修改任意数据。随着注入攻击的愈演愈烈，一些专门的过滤代码应运而生。但一些过滤代码的不完善很可能导致新的攻击。下面就以目前应用最广泛的过滤代码--sql通用防注入程序为下列说明漏洞的成因、利用方法及防范措施。

　　SQL通用防注入程序是由火狐的枫知秋编写的，功能相当完善的防注入代码。它能对定义的过滤字符实现get提交的过滤，并能记录攻击者的IP提交的数据信息。使用时只须在要防注入的文件头中加入代码可以实现对变量的过滤。如果在数据库连接文件(如conn.asp)后加入程序代码，则可以实现整站的变量过滤，从而达到防注入的效果。

　　好了，下面我们先来看变量过滤部分的代码：

　　'--------定义部份------------------

　　Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr

　　'自定义需要过滤的字串,用 "枫" 分隔

　　Fy_In = "'枫;枫and枫exec枫insert枫select枫delete枫update枫count枫*枫%枫chr枫mid枫master枫truncate枫char枫declare"

　　'----------------------------------

　　%>

　　Fy_Inf = split(Fy_In,"枫")

　　'--------POST部份------------------

　　If Request.Form Then

　　For Each Fy_Post In Request.Form

　　For Fy_Xh=0 To Ubound(Fy_Inf)

　　If Instr(LCase(Request.Form(Fy_Post)),Fy_Inf(Fy_Xh))Then

网趣购物系统加强升级版

新版本程序更新主要体现在：完美整合BBS论坛程序，用户只须注册一个帐号，即可全站通用!采用目前流行的Flash滚动切换广告 变换形式多样，受人喜爱!在原有提供的5种在线支付基础上增加北京云网支付!对留言本重新进行编排，加入留言验证码，后台有留言审核开关对购物系统的前台进行了一处安全更新。在原有文字友情链接基础上，增加LOGO友情链接功能强大的6种在线支付方式可选，自由切换。对新闻列表进行了调整，

0

查看详情

　　'--------GET部份-------------------

　　If Request.QueryString Then

　　For Each Fy_Get In Request.QueryString

　　For Fy_Xh=0 To Ubound(Fy_Inf)

　　If Instr(LCase(Request.QueryString(Fy_Get)),Fy_Inf(Fy_Xh))Then

　　这段代码中定义了对“'”“and”等常用注入变量的过滤，如果觉得过滤不够或太多可自行增减字符。很明显，只要通过get或post向服务器提交的数据中包含被过滤字符，都会被程序禁止。这就导致了一个问题，如果是在论坛的数据库连接文件后加入程序代码，发贴时只要贴子内容包括被过滤的字符就会被禁止掉。根据默认的过滤内容看来，如果发帖子内容为英文似乎是几乎无法发表的。另外，在定义论坛风格时有时会要用一些特殊字符(如百分号“%”)如果这些特殊字符被过滤的对象，那么整个论坛就不能正常运行了。对上面提到的问题，我用dvbbs做过测试，结果与我猜想的是完全一致的。

　　解决上述问题的方法是只在需要过滤的文件中防注入连接语句。但这样工作量比较大，而且一般站长是不知道什么文件需要过滤的。因此我的建议是把过滤代码加到conn.asp后，，然后再建一个不包含过滤代码的connl.asp，把肯定不需要过滤且过滤代码对本文件运行有影响的文件连接到conn1.asp，但要注意两个数据连接文件的基本内容要保持一致。另外，在风格设置中最好不要用到过滤的字符，确实要用到的可在防注入程序中删掉对该字符的过滤。

　　上面讲的是防注入程序对站点运行的影响，并不能造成什么危害。其实，真正的危害来自数据记录部分，我们来看这部分的代码：

　　''--------写入数据库-------头--------

　　Fy_dbstr="DBQ="+server.mappath("SqlIn.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

　　Set Fy_db=Server.CreateObject("ADODB.CONNECTION")

　　Fy_db.open Fy_dbstr

　　Fy_db.Execute("insert into SqlIn(Sq