关于防止SQL注入攻击??

时间:2021-11-25 15:10:44
我写了一个考试系统,需要防止SQL注入式攻击
在系统中用的是B/S模式ASP+SQL2000|数据库访问的时候先没用存储过程,后边用了存储过程,用户登录进去运行每一页SQL的时候都判断是否有权限运行那个ASP页面。
我在网上看了很多资料都大同小异
我想用几种方法请大家帮我看看哪种好点,有撒办法可以完全杜绝呢。
1.将提交字符串判断设定长度再判断输入数字和字符,数字只能为数字,字符串将'号换成中文的’
2.将提交字符串判断设定长度再判断输入数字和字符,数字只能为数字,字符串将英文的数字英文符号,全部换成全角的内容
3.将提交字符串判断设定长度再判断数字和字符,数字只能为数字,字符串将其弄成2进制数据并截取先设定好二进制进行与或运算,再转化成字符进行存储,最后将内容解码显示(速度受到影响)

请教下:那种方法能杜绝SQL注入式攻击更好。有没有办法杜绝SQL注入式攻击呢??

21 个解决方案

#1


精华贴有相关的主题

#2


SQL注入专题
http://topic.csdn.net/u/20081205/09/3dd06076-bcbe-45d4-998c-8999fdbe6fae.html

#3


SQL注入漏洞全接触——入门篇 
ZDNet 软件频道 更新时间:2007-08-20 作者:CSDN 来源:CSDN 
本文关键词:漏洞 SQL Server SQL 
随着B/S模式应用开发的发展,使用这种模式编写应用程序的程序员也越来越多。但是由于这个行业的入门门槛不高,程序员的水平及经验也参差不齐,相当大一部分程序员在编写代码的时候,没有对用户输入数据的合法性进行判断,使应用程序存在安全隐患。用户可以提交一段数据库查询代码,根据程序返回的结果,获得某些他想得知的数据,这就是所谓的SQL Injection,即SQL注入。 

SQL注入是从正常的WWW端口访问,而且表面看起来跟一般的Web页面访问没什么区别,所以目前市面的防火墙都不会对SQL注入发出警报,如果管理员没查看IIS日志的习惯,可能被入侵很长时间都不会发觉。  

但是,SQL注入的手法相当灵活,在注入的时候会碰到很多意外的情况。能不能根据具体情况进行分析,构造巧妙的SQL语句,从而成功获取想要的数据,是高手与“菜鸟”的根本区别。  

根据国情,国内的网站用ASP+Access或SQLServer的占70%以上,PHP+MySQ占L20%,其他的不足10%。在本文,我们从分入门、进阶至高级讲解一下ASP注入的方法及技巧,PHP注入的文章由NB联盟的另一位朋友zwell撰写,希望对安全工作者和程序员都有用处。了解ASP注入的朋友也请不要跳过入门篇,因为部分人对注入的基本判断方法还存在误区。大家准备好了吗?Let's Go... 

入门篇   

如果你以前没试过SQL注入的话,那么第一步先把IE菜单=>工具=>Internet选项=>高级=>显示友好 HTTP 错误信息前面的勾去掉。否则,不论服务器返回什么错误,IE都只显示为HTTP 500服务器错误,不能获得更多的提示信息。 

一、SQL注入原理 

以下我们从一个网站http://www.19cn.com/开始(注:本文发表前已征得该站站长同意,大部分都是真实数据)。 

在网站首页上,有名为“IE不能打开新窗口的多种解决方法”的链接,地址为:http://www.19cn.com/showdetail.asp?id=49,我们在这个地址后面加上单引号’,服务器会返回下面的错误提示: 

Microsoft JET Database Engine 错误 '80040e14' 

字符串的语法错误 在查询表达式 'ID=49'' 中。 

/showdetail.asp,行8 

从这个错误提示我们能看出下面几点: 

1.网站使用的是Access数据库,通过JET引擎连接数据库,而不是通过ODBC。 

2.程序没有判断客户端提交的数据是否符合程序要求。 

3.该SQL语句所查询的表中有一名为ID的字段。 

从上面的例子我们可以知道,SQL注入的原理,就是从客户端提交特殊的代码,从而收集程序及服务器的信息,从而获取你想到得到的资料。 

二、判断能否进行SQL注入 

看完第一节,有一些人会觉得:我也是经常这样测试能否注入的,这不是很简单吗?其实,这并不是最好的方法,为什么呢? 

首先,不一定每台服务器的IIS都返回具体错误提示给客户端,如果程序中加了cint(参数)之类语句的话,SQL注入是不会成功的,但服务器同样会报错,具体提示信息为处理 URL 时服务器上出错。请和系统管理员联络。 

其次,部分对SQL注入有一点了解的程序员,认为只要把单引号过滤掉就安全了,这种情况不为少数,如果你用单引号测试,是测不到注入点的. 

那么,什么样的测试方法才是比较准确呢?答案如下:  

① http://www.19cn.com/showdetail.asp?id=49 

② http://www.19cn.com/showdetail.asp?id=49 and 1=1 

③ http://www.19cn.com/showdetail.asp?id=49 and 1=2 

这就是经典的1=1、1=2测试法了,怎么判断呢?看看上面三个网址返回的结果就知道了: 

可以注入的表现: 

① 正常显示(这是必然的,不然就是程序有错误了) 

② 正常显示,内容基本与①相同 

③ 提示BOF或EOF(程序没做任何判断时)、或提示找不到记录(判断了rs.eof时)、或显示内容为空(程序加了on error resume next)  

不可以注入就比较容易判断了,①同样正常显示,②和③一般都会有程序定义的错误提示,或提示类型转换时出错。 

当然,这只是传入参数是数字型的时候用的判断方法,实际应用的时候会有字符型和搜索型参数,我将在中级篇的“SQL注入一般步骤”再做分析。 

三、判断数据库类型及注入方法 

不同的数据库的函数、注入方法都是有差异的,所以在注入之前,我们还要判断一下数据库的类型。一般ASP最常搭配的数据库是Access和SQLServer,网上超过99%的网站都是其中之一。 

怎么让程序告诉你它使用的什么数据库呢?来看看: 

SQLServer有一些系统变量,如果服务器IIS提示没关闭,并且SQLServer返回错误提示的话,那可以直接从出错信息获取,方法如下: 

http://www.19cn.com/showdetail.asp?id=49 and user>0 

这句语句很简单,但却包含了SQLServer特有注入方法的精髓,我自己也是在一次无意的测试中发现这种效率极高的猜解方法。让我看来看看它的含义:首先,前面的语句是正常的,重点在and user>0,我们知道,user是SQLServer的一个内置变量,它的值是当前连接的用户名,类型为nvarchar。拿一个nvarchar的值跟int的数0比较,系统会先试图将nvarchar的值转成int型,当然,转的过程中肯定会出错,SQLServer的出错提示是:将nvarchar值 ”abc” 转换数据类型为 int 的列时发生语法错误,呵呵,abc正是变量user的值,这样,不废吹灰之力就拿到了数据库的用户名。在以后的篇幅里,大家会看到很多用这种方法的语句。 

顺便说几句,众所周知,SQLServer的用户sa是个等同Adminstrators权限的角色,拿到了sa权限,几乎肯定可以拿到主机的Administrator了。上面的方法可以很方便的测试出是否是用sa登录,要注意的是:如果是sa登录,提示是将”dbo”转换成int的列发生错误,而不是”sa”。 

如果服务器IIS不允许返回错误提示,那怎么判断数据库类型呢?我们可以从Access和SQLServer和区别入手,Access和SQLServer都有自己的系统表,比如存放数据库中所有对象的表,Access是在系统表[msysobjects]中,但在Web环境下读该表会提示“没有权限”,SQLServer是在表[sysobjects]中,在Web环境下可正常读取。 

在确认可以注入的情况下,使用下面的语句: 

http://www.19cn.com/showdetail.asp?id=49 and (select count(*) from sysobjects)>0 

http://www.19cn.com/showdetail.asp?id=49 and (select count(*) from msysobjects)>0 

如果数据库是SQLServer,那么第一个网址的页面与原页面http://www.19cn.com/showdetail.asp?id=49是大致相同的;而第二个网址,由于找不到表msysobjects,会提示出错,就算程序有容错处理,页面也与原页面完全不同。 

如果数据库用的是Access,那么情况就有所不同,第一个网址的页面与原页面完全不同;第二个网址,则视乎数据库设置是否允许读该系统表,一般来说是不允许的,所以与原网址也是完全不同。大多数情况下,用第一个网址就可以得知系统所用的数据库类型,第二个网址只作为开启IIS错误提示时的验证。 


SQL注入漏洞全接触——进阶篇 
ZDNet 软件频道 更新时间:2007-08-20 作者:CSDN 来源:CSDN 
本文关键词:漏洞 SQL Server SQL 
接下来,我们就继续学习如何从数据库中获取想要获得的内容,首先,我们先看看SQL注入的一般步骤: 

一、SQL注入的一般步骤 

首先,判断环境,寻找注入点,判断数据库类型,这在入门篇已经讲过了。 

其次,根据注入参数类型,在脑海中重构SQL语句的原貌,按参数类型主要分为下面三种: 

(A) ID=49 这类注入的参数是数字型,SQL语句原貌大致如下: 

Select * from 表名 where 字段=49 

注入的参数为ID=49 And [查询条件],即是生成语句: 

Select * from 表名 where 字段=49 And [查询条件] 

(B) Class=连续剧 这类注入的参数是字符型,SQL语句原貌大致概如下: 

Select * from 表名 where 字段=’连续剧’ 

注入的参数为Class=连续剧’ and [查询条件] and ‘’=’ ,即是生成语句: 

Select * from 表名 where 字段=’连续剧’ and [查询条件] and ‘’=’’ 

(C) 搜索时没过滤参数的,如keyword=关键字,SQL语句原貌大致如下: 

Select * from 表名 where 字段like ’%关键字%’ 

注入的参数为keyword=’ and [查询条件] and ‘%25’=’, 即是生成语句: 

Select * from 表名 where字段like ’%’ and [查询条件] and ‘%’=’%’ 

接着,将查询条件替换成SQL语句,猜解表名,例如: 

ID=49 And (Select Count(*) from Admin)>=0 

如果页面就与ID=49的相同,说明附加条件成立,即表Admin存在,反之,即不存在(请牢记这种方法)。如此循环,直至猜到表名为止。 

表名猜出来后,将Count(*)替换成Count(字段名),用同样的原理猜解字段名。 

有人会说:这里有一些偶然的成分,如果表名起得很复杂没规律的,那根本就没得玩下去了。说得很对,这世界根本就不存在100%成功的黑客技术,苍蝇不叮无缝的蛋,无论多技术多高深的黑客,都是因为别人的程序写得不严密或使用者保密意识不够,才有得下手。 

有点跑题了,话说回来,对于SQLServer的库,还是有办法让程序告诉我们表名及字段名的,我们在高级篇中会做介绍。最后,在表名和列名猜解成功后,再使用SQL语句,得出字段的值,下面介绍一种最常用的方法-Ascii逐字解码法,虽然这种方法速度很慢,但肯定是可行的方法。 

我们举个例子,已知表Admin中存在username字段,首先,我们取第一条记录,测试长度: 

http://www.19cn.com/showdetail.asp?id=49 and (select top 1 len(username) from Admin)>0 

先说明原理:如果top 1的username长度大于0,则条件成立;接着就是>1、>2、>3这样测试下去,一直到条件不成立为止,比如>7成立,>8不成立,就是len(username)=8 

当然没人会笨得从0,1,2,3一个个测试,怎么样才比较快就看各自发挥了。在得到username的长度后,用mid(username,N,1)截取第N位字符,再asc(mid(username,N,1))得到ASCII码,比如: 

id=49 and (select top 1 asc(mid(username,1,1)) from Admin)>0 

同样也是用逐步缩小范围的方法得到第1位字符的ASCII码,注意的是英文和数字的ASCII码在1-128之间,可以用折半法加速猜解,如果写成程序测试,效率会有极大的提高。 

二、SQL注入常用函数 

有SQL语言基础的人,在SQL注入的时候成功率比不熟悉的人高很多。我们有必要提高一下自己的SQL水平,特别是一些常用的函数及命令。 

Access:asc(字符) SQLServer:unicode(字符) 

作用:返回某字符的ASCII码 

Access:chr(数字) SQLServer:nchar(数字) 

作用:与asc相反,根据ASCII码返回字符 

Access:mid(字符串,N,L) SQLServer:substring(字符串,N,L) 

作用:返回字符串从N个字符起长度为L的子字符串,即N到N+L之间的字符串 

Access:abc(数字) SQLServer:abc (数字) 

作用:返回数字的绝对值(在猜解汉字的时候会用到)  

Access:A between B And C SQLServer:A between B And C 

作用:判断A是否界于B与C之间 

三、中文处理方法 

在注入中碰到中文字符是常有的事,有些人一碰到中文字符就想打退堂鼓了。其实只要对中文的编码有所了解,“中文恐惧症”很快可以克服。 

先说一点常识: 

Access中,中文的ASCII码可能会出现负数,取出该负数后用abs()取绝对值,汉字字符不变。 

SQLServer中,中文的ASCII为正数,但由于是UNICODE的双位编码,不能用函数ascii()取得ASCII码,必须用函数unicode ()返回unicode值,再用nchar函数取得对应的中文字符。 

了解了上面的两点后,是不是觉得中文猜解其实也跟英文差不多呢?除了使用的函数要注意、猜解范围大一点外,方法是没什么两样的。 

 
 

SQL注入漏洞全接触——高级篇 
ZDNet 软件频道 更新时间:2007-08-20 作者:CSDN 来源:CSDN 
本文关键词:漏洞 SQL Server SQL 
看完入门篇和进阶篇后,稍加练习,破解一般的网站是没问题了。但如果碰到表名列名猜不到,或程序作者过滤了一些特殊字符,怎么提高注入的成功率?怎么样提高猜解效率?请大家接着往下看高级篇。 

一、利用系统表注入SQLServer数据库 

SQLServer是一个功能强大的数据库系统,与操作系统也有紧密的联系,这给开发者带来了很大的方便,但另一方面,也为注入者提供了一个跳板,我们先来看看几个具体的例子: 

① http://Site/url.asp?id=1;exec master..xp_cmdshell “net user name password /add”-- 

分号;在SQLServer中表示隔开前后两句语句,--表示后面的语句为注释,所以,这句语句在SQLServer中将被分成两句执行,先是Select出ID=1的记录,然后执行存储过程xp_cmdshell,这个存储过程用于调用系统命令,于是,用net命令新建了用户名为name、密码为password的windows的帐号,接着: 

② http://Site/url.asp?id=1;exec master..xp_cmdshell “net localgroup name administrators /add”-- 

将新建的帐号name加入管理员组,不用两分钟,你已经拿到了系统最高权限!当然,这种方法只适用于用sa连接数据库的情况,否则,是没有权限调用xp_cmdshell的。 

③ http://Site/url.asp?id=1 ;;and db_name()>0 

前面有个类似的例子and user>0,作用是获取连接用户名,db_name()是另一个系统变量,返回的是连接的数据库名。 

④ http://Site/url.asp?id=1;backup database 数据库名 to disk=’c:inetpubwwwroot.db’;-- 

这是相当狠的一招,从③拿到的数据库名,加上某些IIS出错暴露出的绝对路径,将数据库备份到Web目录下面,再用HTTP把整个数据库就完完整整的下载回来,所有的管理员及用户密码都一览无遗!在不知道绝对路径的时候,还可以备份到网络地址的方法(如202.96.xx.xxShare.db),但成功率不高。 

⑤ http://Site/url.asp?id=1 ;;and (Select Top 1 name from sysobjects where xtype=’U’ and status>0)>0 

前面说过,sysobjects是SQLServer的系统表,存储着所有的表名、视图、约束及其它对象,xtype=’U’ and status>0,表示用户建立的表名,上面的语句将第一个表名取出,与0比较大小,让报错信息把表名暴露出来。第二、第三个表名怎么获取?还是留给我们聪明的读者思考吧。 

⑥ http://Site/url.asp?id=1 ;;and (Select Top 1 col_name(object_id(‘表名’),1) from sysobjects)>0  

从⑤拿到表名后,用object_id(‘表名’)获取表名对应的内部ID,col_name(表名ID,1)代表该表的第1个字段名,将1换成2,3,4...就可以逐个获取所猜解表里面的字段名。 

以上6点是我研究SQLServer注入半年多以来的心血结晶,可以看出,对SQLServer的了解程度,直接影响着成功率及猜解速度。在我研究SQLServer注入之后,我在开发方面的水平也得到很大的提高,呵呵,也许安全与开发本来就是相辅相成的吧。 

二、绕过程序限制继续注入   

在入门篇提到,有很多人喜欢用’号测试注入漏洞,所以也有很多人用过滤’号的方法来“防止”注入漏洞,这也许能挡住一些入门者的攻击,但对SQL注入比较熟悉的人,还是可以利用相关的函数,达到绕过程序限制的目的。 

在“SQL注入的一般步骤”一节中,我所用的语句,都是经过我优化,让其不包含有单引号的;在“利用系统表注入SQLServer数据库”中,有些语句包含有’号,我们举个例子来看看怎么改造这些语句: 

简单的如where xtype=’U’,字符U对应的ASCII码是85,所以可以用where xtype=char(85)代替;如果字符是中文的,比如where name=’用户’,可以用where name=nchar(29992)+nchar(25143)代替。 

三、经验小结   

1.有些人会过滤Select、Update、Delete这些关键字,但偏偏忘记区分大小写,所以大家可以用selecT这样尝试一下。 

2.在猜不到字段名时,不妨看看网站上的登录表单,一般为了方便起见,字段名都与表单的输入框取相同的名字。  

3.特别注意:地址栏的+号传入程序后解释为空格,%2B解释为+号,%25解释为%号,具体可以参考URLEncode的相关介绍。 

4.用Get方法注入时,IIS会记录你所有的提交字符串,对Post方法做则不记录,所以能用Post的网址尽量不用Get。 

5. 猜解Access时只能用Ascii逐字解码法,SQLServer也可以用这种方法,只需要两者之间的区别即可,但是如果能用SQLServer的报错信息把值暴露出来,那效率和准确率会有极大的提高。 

防范方法 

SQL注入漏洞可谓是“千里之堤,溃于蚁穴”,这种漏洞在网上极为普遍,通常是由于程序员对注入不了解,或者程序过滤不严格,或者某个参数忘记检查导致。在这里,我给大家一个函数,代替ASP中的Request函数,可以对一切的SQL注入Say NO,函数如下: 

Function SafeRequest(ParaName,ParaType) 

'--- 传入参数 --- 

'ParaName:参数名称-字符型 

'ParaType:参数类型-数字型(1表示以上参数是数字,0表示以上参数为字符)  

Dim ParaValue 

ParaValue=Request(ParaName) 

If ParaType=1 then 

If not isNumeric(ParaValue) then 

Response.write "参数" & ParaName & "必须为数字型!" 

Response.end 

End if 

Else 

ParaValue=replace(ParaValue,"'","''") 

End if 

SafeRequest=ParaValue 

End function 
 
 

#4


1.永远不要信任用户的输入。对用户的输入进行校验,可以通过正则表达式,或限制长度;对单引号和双"-"进行转换等。 
2.永远不要使用动态拼装sql,可以使用参数化的sql或者直接使用存储过程进行数据查询存取。 
3.永远不要使用管理员权限的数据库连接,为每个应用使用单独的权限有限的数据库连接。 
4.不要把机密信息直接存放,加密或者hash掉密码和敏感的信息。 
5.应用的异常信息应该给出尽可能少的提示,最好使用自定义的错误信息对原始错误信息进行包装。

#5


。。

#6


网站都被注入js,被iframe之类的。处理办法:
1.首先我会检查一下服务器配置,重新配置一次服务器安全,可以参考 
http://hi.baidu.com/zzxap/blog/item/18180000ff921516738b6564.html 

2.其次,用麦咖啡自定义策略,即使网站程序有漏洞,别人也很难在文件上写入代码了。 
参考自定义策略,有了这个策略,再烂的程序,你也无法写入我的文件 
http://hi.baidu.com/zzxap/blog/item/efe093a7e0f2c190d04358ef.html 

3.可以用网络超级巡警删除被注入的JS代码。 
参考 
http://hi.baidu.com/anlish/blog/item/ba45bb18eac77e0534fa4134.html 

4.如何批量删除数据库中被注入的代码? 
在数据库查询分析器运行这段代码即可 
DECLARE @fieldtype sysname
SET @fieldtype='varchar'
--删除处理
DECLARE hCForEach CURSOR GLOBAL
FOR
SELECT N'update '+QUOTENAME(o.name)
    +N' set '+ QUOTENAME(c.name) + N' = replace(' + QUOTENAME(c.name) + ',''<script_src=http://ucmal.com/0.js> </script>'','''')'
FROM sysobjects o,syscolumns c,systypes t
WHERE o.id=c.id
    AND OBJECTPROPERTY(o.id,N'IsUserTable')=1
    AND c.xusertype=t.xusertype
    AND t.name=@fieldtype
EXEC sp_MSforeach_Worker @command1=N'?'




5.创建一个触发器,只要有 </script>就不给插入,对性能会有点影响 

create trigger tr_table_insertupdate
on tablename
for insert,update
as
if exists (
select 1 from inserted 
where data like '%</script>%'
)
begin
       RAISERROR ('不能修改或者添加',16,1);
       ROLLBACK TRANSACTION
end
go


6.最重要的还是程序的写法,用参数化SQL或存储过程 
例如 
 protected void cmdok_Click(object sender, EventArgs e)
    {
        //添加信息
        StringBuilder  sql = new StringBuilder( " insert into m_phone ( pid,PhoneName,num,price,phonetype,onSellTime,color,weight,Video,Camera,phoneSize,phoneSystem,Memorysize,PhoneDesc,Standbytime,ScreenSize,Frequency,InputMethod,Soundrecord,gps,fm,mp3,email,Infrared,game,clock,Calendar,Calculator,Bluetooth)  ");

        sql.Append(" values (@pid,@TextPhoneName,@Textnum,@Textprice,@Dropphonetype2,@TextonSellTime,@Textcolor,@Textweight ");
        
        .................

        SqlParameter[] paras = { new SqlParameter("@pid", SqlDbType.Int, 4) ,
            new SqlParameter("@TextPhoneName", SqlDbType.NVarChar, 50) , 
            new SqlParameter("@Textnum", SqlDbType.Int, 4) ,
            new SqlParameter("@Textprice", SqlDbType.Int, 4) ,
            new SqlParameter("@Dropphonetype2", SqlDbType.VarChar, 20) ,
            new SqlParameter("@TextonSellTime", SqlDbType.DateTime, 8) ,
            new SqlParameter("@Textcolor", SqlDbType.VarChar, 20) ,
            new SqlParameter("@Textweight", SqlDbType.NVarChar, 50) ,

           ...........
        };
        string[] stra = {Dropphonetype.SelectedValue,TextPhoneName.Text , Textnum.Text, Textprice.Text, Dropphonetype2.SelectedValue, TextonSellTime.Text, Textcolor.Text, Textweight.Text, 
            .............};

        int a=stra.Length;
        int j;
        
        for ( j = 0; j < a; j++)
        {
            paras[j].Value = stra[j];
           
        }
        int strpid = 0;
        string sqla = sql.ToString();
        try
        {
            SqlHelper.ExcuteNonQurey(sqla, CommandType.Text, paras);//执行添加数据
           
            strpid = Convert.ToInt32(SqlHelper.ExcuteSclare(sqla, CommandType.Text, paras));  //获取刚才插入的id号


        }
        catch (SqlException ex)
        {
            cmdreturn.Text = ex.Message.ToString();

        }

        cmdreturn.Text = strpid.ToString();

。。

7.通过URL传递的参数要用加密解密 
传输
string szTmp = "safdsfdsafdsfytrsd";
szTmp = Server.UrlEncode(szTmp); 
接收
STRING STRA=Server.UrlDecode(request.querystring(szTmp));





8.把要使用的参数处理一下单引号,再放到SQL里面  
  例如 string stra=aa.replace("'","''") 

  用参数化SQL可以不用处理单引号 
  指定参数类型和过滤掉单引号,就可以杜绝99.9%入侵了 


另外说一句:网上那些被人奉如圣经的过滤 update insert  等关键字的程序是用处不大的  upupdatedate 过滤掉 update还是update 
还会造成不必要的麻烦 

#7


http://topic.csdn.net/u/20090708/17/462f299b-1b63-4c16-b845-df8b1a1a23bf.html?seed=982639208&r=58240387#r_58240387

#8


学习

#9


楼上的各位,那些文章我都看了。我现在就想出了这三种解决途径。请问问按照各位的经验那种更好些呢,不需要贴其它内容了,那些我都看了的。
再加一点。
4.如果数据量小的话,我用客户端将提交的数据,全部转化为数字和代表字符长度数字,ASP页面然后判断两个提交内容是否为数字。显示的时候再用客户端通过数字和字符长度数字转化数字成字符.在客户端运行压力给客户端。对于数据量较小的内容。

#10


我觉得是第2种 替换是一种比较好的办法

#11


学习了

#12


现在我用这个方法来处理输入的字符
function getlen(str)
Dim i,c
For i=1 To Len(str)
   c = Asc(Mid(str,i,1))
   If c < 0 Then
    c = c+ 65536
   End If
   If c > 255 Then
    flag = flag + 2
   Else
    flag = flag + 1
   End If
next
   getlen=flag
end function
'安全检查
function aqjc(zfc,zt,dx)
if zt=0 then
if isnumeric(zfc)=false then
response.Write("输入"&zfc&"必须为数字请检查!!")
response.End()
end if
else
zfc=trim(replace(zfc,"'","’"))
zfc=trim(replace(zfc,"@","@"))
zfc=trim(replace(zfc,">",">"))
zfc=trim(replace(zfc,"<","<"))
zfc=trim(replace(zfc,"/","/"))
zfc=trim(replace(zfc,"\","\"))
zfc=trim(replace(zfc,"%","%"))
zfc=trim(replace(zfc,"+","+"))
zfc=trim(replace(zfc,"?","?"))
end if
if getlen(zfc)>dx then
response.Write("超出允许值范围;中文占用两个单元格(注意:检测后英文符号将变为中文’),请检查:<a href='javascript:history.back(1);'>返回</a>")
response.End()
end if
aqjc=zfc
end function

#13


学习

#14


用过滤

#15


引用 4 楼 fredrickhu 的回复:
1.永远不要信任用户的输入。对用户的输入进行校验,可以通过正则表达式,或限制长度;对单引号和双"-"进行转换等。
2.永远不要使用动态拼装sql,可以使用参数化的sql或者直接使用存储过程进行数据查询存取。
3.永远不要使用管理员权限的数据库连接,为每个应用使用单独的权限有限的数据库连接。
4.不要把机密信息直接存放,加密或者hash掉密码和敏感的信息。
5.应用的异常信息应该给出尽可能少的提示,最好使用自定义的错误信息对原始错误信息进行包装。

支持小F

#16


下面是我自己写的过滤函数,你试试看!
用法:把用户输入的每一个参数都用这个函数(ChkSqlInject)过滤一遍,应该能够挡住觉大部分攻击~!
如果哪位大侠发现有漏洞或者更好的建议,请不吝赐教,我也好改善一下!
这个函数是用vb写的dll,在asp中调用,不能直接放到asp中!

Public Function ChkSqlInject(strVarValue As String) As Boolean
  Dim s As String
  Dim i As Long, slen As Long
  Dim c As String, c1 As String
  
  ChkSqlInject = False
  s = LCase(strVarValue)
  slen = Len(s)
  
  If slen <= 4 Then
    ChkSqlInject = True
    Exit Function
  End If
  If IsNumeric(s) Then
    ChkSqlInject = True
    Exit Function
  End If
  
  ' if InStr(s,";")>0 or InStr(s,"'")>0 or InStr(s,",")>0 or InStr(s,"""")>0 then
    ' exit function
  ' end if
  
  If InStr(1, s, "from") > 0 Then
    If IsNotValidSql(s, "from", slen, 4) Then
      If IsNotValidSql(s, "select", slen, 6) Then
        Exit Function
      End If
      If IsNotValidSql(s, "delete", slen, 6) Then
        Exit Function
      End If
    End If
  End If
  
  If InStr(1, s, "create") > 0 Or InStr(1, s, "alter") > 0 Or InStr(1, s, "drop") > 0 Then
    If IsNotValidSql(s, "create", slen, 6) Or IsNotValidSql(s, "alter", slen, 5) Or IsNotValidSql(s, "drop", slen, 4) Then
      If IsNotValidSql(s, "table", slen, 5) Then
        Exit Function
      End If
      If IsNotValidSql(s, "index", slen, 5) Then
        Exit Function
      End If
    End If
  End If
  
  If InStr(1, s, "backup") > 0 Then
    If IsNotValidSql(s, "backup", slen, 6) Then
      If IsNotValidSql(s, "to", slen, 2) Then
        Exit Function
      End If
    End If
  End If
  
  If InStr(1, s, "and") > 0 Or InStr(1, s, "or") > 0 Or InStr(1, s, "where") > 0 Then
    If IsNotValidSql(s, "and", slen, 3) Or IsNotValidSql(s, "or", slen, 2) Or IsNotValidSql(s, "where", slen, 5) Then
      If InStr(s, "=") > 0 Then
        Exit Function
      End If
      If InStr(s, ">") > 0 Then
        Exit Function
      End If
      If InStr(s, "<") > 0 Then
        Exit Function
      End If
      If IsNotValidSql(s, "like", slen, 4) Then
        Exit Function
      End If
      If IsNotValidSql(s, "is", slen, 2) Then
        Exit Function
      End If
      If IsNotValidSql(s, "in", slen, 2) Then
        Exit Function
      End If
      If IsNotValidSql(s, "between", slen, 7) Then
        Exit Function
      End If
      If IsNotValidSql(s, "exists", slen, 6) Then
        Exit Function
      End If
    End If
  End If
  
  If InStr(1, s, "insert") > 0 Then
    If IsNotValidSql(s, "insert", slen, 6) And IsNotValidSql(s, "into", slen, 4) Then
      Exit Function
    End If
  End If
  
  If InStr(1, s, "update") > 0 Then
    If IsNotValidSql(s, "update", slen, 6) And IsNotValidSql(s, "set", slen, 3) Then
      Exit Function
    End If
  End If
  
  If InStr(1, s, "case") > 0 Then
    If IsNotValidSql(s, "case", slen, 4) And IsNotValidSql(s, "when", slen, 4) Then
      Exit Function
    End If
  End If
  
  If InStr(1, s, "by") > 0 Then
    If IsNotValidSql(s, "by", slen, 2) Then
      If IsNotValidSql(s, "group", slen, 5) Then
        Exit Function
      End If
      If IsNotValidSql(s, "order", slen, 5) Then
        Exit Function
      End If
    End If
  End If
  
  If InStr(1, s, "exec") > 0 Then
    If IsNotValidSql(s, "exec", slen, 4) Then
      Exit Function
    End If
  End If
  
  If InStr(1, s, "xp_cmdshell") > 0 Then
    If IsNotValidSql(s, "xp_cmdshell", slen, 11) Then '存储过程
      Exit Function
    End If
  End If
  
  If InStr(1, s, "sp_oacreate") > 0 Then
    If IsNotValidSql(s, "sp_oacreate", slen, 11) Then '存储过程
      Exit Function
    End If
  End If
  
  If InStr(1, s, "sp_oagetproperty") > 0 Then
    If IsNotValidSql(s, "sp_oagetproperty", slen, 16) Then '存储过程
      Exit Function
    End If
  End If
  
  If InStr(1, s, "sp_oamethod") > 0 Then
    If IsNotValidSql(s, "sp_oamethod", slen, 11) Then  '存储过程
      Exit Function
    End If
  End If
  
  If InStr(1, s, "sp_addlogin") > 0 Then
    If IsNotValidSql(s, "sp_addlogin", slen, 11) Then '存储过程
      Exit Function
    End If
  End If
  
  If InStr(1, s, "sp_addsrvrolemember") > 0 Then
    If IsNotValidSql(s, "sp_addsrvrolemember", slen, 19) Then '存储过程
      Exit Function
    End If
  End If
  
  If InStr(1, s, "openrowset") > 0 Then
    If IsNotValidSql(s, "openrowset", slen, 10) Then  '存储过程
      Exit Function
    End If
  End If
  
  If InStr(1, s, "opendatasource") > 0 Then
    If IsNotValidSql(s, "opendatasource", slen, 14) Then '存储过程
      Exit Function
    End If
  End If
  
  If InStr(1, s, "db_name()") > 0 Then
    If IsNotValidSql(s, "db_name()", slen, 9) Then '系统变量
      Exit Function
    End If
  End If
  
  If InStr(1, s, "sysobjects") > 0 Then
    If IsNotValidSql(s, "sysobjects", slen, 10) Then  '系统表
      Exit Function
    End If
  End If
  
  If InStr(1, s, "msysobjects") > 0 Then
    If IsNotValidSql(s, "msysobjects", slen, 11) Then  '系统表
      Exit Function
    End If
  End If
  
  i = InStr(1, s, "declare")
  If i > 0 Then
    'If IsNotValidSql(s, "declare", slen, 7) Then 'SQL关键字,用来声明变量,可以把关键字拆开再组合,以绕过监测,因此绝不可以有这个指令
    '  Exit Function
    'End If
    If slen >= i + 7 Then
      i = Asc(Mid(s, i + 7, 1)) 'declare右边仅允许跟字母或数字,其他字符均不允许(限制更严格)
      If i < 48 Or (i > 57 And i < 65) Or (i > 90 And i < 97) Or i > 122 Then
        Exit Function
      End If
    End If
  End If
  
  If InStr(1, s, "wscript") > 0 Then
    If IsNotValidSql(s, "wscript", slen, 7) Then 'SQL关键字
      Exit Function
    End If
  End If
  
  If InStr(1, s, "shell") > 0 Then
    If IsNotValidSql(s, "shell", slen, 5) Then 'SQL关键字
      Exit Function
    End If
  End If
  
  i = InStr(1, s, "cmd")
  If i > 0 Then
    If IsNotValidSql(s, "cmd", slen, 3) Then 'SQL关键字
      Exit Function
    Else
      If slen >= i + 3 Then 'cmd右边还有内容
        i = Asc(Mid(s, i + 3, 1))
        If 46 = i Then  'cmd右边的字符是 '.'
          Exit Function
        End If
      End If
    End If
  End If
  
  If InStr(1, s, "cscript") > 0 Then
    If IsNotValidSql(s, "cscript", slen, 7) > 0 Then 'SQL关键字
      Exit Function
    End If
  End If
  
  i = InStr(s, "/* ") '监测是否用 /**/ 或 /*anyString*/ 代替空格作为分隔符
  If i > 0 Then
    If InStr(i + 2, s, "*/") > 0 Then
      Exit Function
    End If
  End If
  
  If InStr(s, "--") > 0 Then 'SQL注释, 该符号会导致SQL命令提前结束
    Exit Function
  End If
  
  ChkSqlInject = True
End Function

'检查关键字两边是否有非法字符,前提是关键字已被发现;如果关键字两边没有非法间隔符,则该关键字不存在威胁,函数返回False
'如果关键字两边有非法间隔符,则可能存在SQL注入威胁,函数返回True
Function IsNotValidSql(OrigStr As String, subStr As String, OrigStrLen As Long, subStrLen As Long) As Boolean
  Dim cl As String, cr As String  'subStr左边和右边的字符
  Dim StartPos As Long, ascVal As Long
  Dim IsLeftInvalid As Boolean, IsRightInvalid As Boolean
  
  If OrigStrLen <= subStrLen Then
    IsNotValidSql = False
    Exit Function
  End If
  
  StartPos = InStr(1, OrigStr, subStr)
  If StartPos = 0 Then
    IsNotValidSql = False
    Exit Function
  End If
  
  IsNotValidSql = True
  IsLeftInvalid = False
  IsRightInvalid = False
  
  If 1 = StartPos Then 'subStr 在 OrigStr 头部
    cl = ""
    cr = Mid(OrigStr, StartPos + subStrLen, 1)
    IsLeftInvalid = True
  ElseIf Len(OrigStr) = StartPos + Len(subStr) - 1 Then 'subStr 在 OrigStr 尾部
    cl = Mid(OrigStr, StartPos - 1, 1)
    cr = ""
    IsRightInvalid = True
  Else                                               'subStr 在 OrigStr 中间
    cl = Mid(OrigStr, StartPos - 1, 1)
    cr = Mid(OrigStr, StartPos + subStrLen, 1)
  End If
  
  '左右两边都是非法间隔符时,可能存在威胁,返回True
  If cl <> "" Then
    ascVal = Asc(cl)
    If ascVal < 33 Or ascVal = 91 Or ascVal = 93 Then  '包含不可见字符、空格、TAB、'['或者 ']'
      If IsRightInvalid Then 'subStr右边为非法间隔符
        Exit Function
      End If
      IsLeftInvalid = True
    End If
  End If
  If cr <> "" Then
    ascVal = Asc(cr)
    If ascVal < 33 Or ascVal = 91 Or ascVal = 93 Then  '包含不可见字符、空格、TAB、'['或者 ']'
      If IsLeftInvalid Then 'subStr左边为非法间隔符
        Exit Function
      End If
    End If
  End If
  
  IsNotValidSql = False '没有检测到威胁
End Function

#17


'安全检查
function aqjc(zfc,zt,dx)
if zt=0 then
if isnumeric(zfc)=false then
response.Write("输入"&zfc&"必须为数字请检查!!")
response.End()
end if
else
zfc=trim(replace(zfc,"~","~"))
zfc=trim(replace(zfc,"!","!"))
zfc=trim(replace(zfc,"@","@"))
zfc=trim(replace(zfc,"#","#"))
zfc=trim(replace(zfc,"$","$"))
zfc=trim(replace(zfc,"%","%"))
zfc=trim(replace(zfc,"^","^"))
zfc=trim(replace(zfc,"&","&"))
zfc=trim(replace(zfc,"*","*"))
zfc=trim(replace(zfc,"(","("))
zfc=trim(replace(zfc,")",")"))
zfc=trim(replace(zfc,"-","-"))
zfc=trim(replace(zfc,"+","+"))
zfc=trim(replace(zfc,"=","="))
zfc=trim(replace(zfc,"_","_"))
zfc=trim(replace(zfc,"`","`"))
zfc=trim(replace(zfc,"|","|"))
zfc=trim(replace(zfc,":",":"))
zfc=trim(replace(zfc,"'","’"))
zfc=trim(replace(zfc,"\","\"))
zfc=trim(replace(zfc,"/","/"))
zfc=trim(replace(zfc,";",";"))
zfc=trim(replace(zfc,"?","?"))
zfc=trim(replace(zfc,"<","<"))
zfc=trim(replace(zfc,">",">"))
zfc=trim(replace(zfc,",",","))
zfc=trim(replace(zfc,".","."))
zfc=trim(replace(zfc,"""","""))
zfc=trim(replace(zfc,"1","1"))
zfc=trim(replace(zfc,"2","2"))
zfc=trim(replace(zfc,"3","3"))
zfc=trim(replace(zfc,"4","4"))
zfc=trim(replace(zfc,"5","5"))
zfc=trim(replace(zfc,"6","6"))
zfc=trim(replace(zfc,"7","7"))
zfc=trim(replace(zfc,"8","8"))
zfc=trim(replace(zfc,"9","9"))
zfc=trim(replace(zfc,"0","0"))
end if
if len(zfc)>dx then
response.Write("超出允许值范围请检查:<a href='javascript:history.back(1);'>返回</a>")
response.End()
end if
aqjc=zfc
end function
写了个这个函数,大家帮我看看,安全不呢??有没有办法再进行注入呢?

#18


谁帮我看看我最后写的这个过滤程序能否过滤掉SQL注入呢?

#19


不错么

#20


其它朋友有撒见解呢,帮我看看我最后写的那个函数能否过滤SQL注入呢?谢谢了。

#21


sql防注入

http://www.111cn.net/search.php?keyword=sql%B7%C0%D7%A2%C8%EB&p=1

#1


精华贴有相关的主题

#2


SQL注入专题
http://topic.csdn.net/u/20081205/09/3dd06076-bcbe-45d4-998c-8999fdbe6fae.html

#3


SQL注入漏洞全接触——入门篇 
ZDNet 软件频道 更新时间:2007-08-20 作者:CSDN 来源:CSDN 
本文关键词:漏洞 SQL Server SQL 
随着B/S模式应用开发的发展,使用这种模式编写应用程序的程序员也越来越多。但是由于这个行业的入门门槛不高,程序员的水平及经验也参差不齐,相当大一部分程序员在编写代码的时候,没有对用户输入数据的合法性进行判断,使应用程序存在安全隐患。用户可以提交一段数据库查询代码,根据程序返回的结果,获得某些他想得知的数据,这就是所谓的SQL Injection,即SQL注入。 

SQL注入是从正常的WWW端口访问,而且表面看起来跟一般的Web页面访问没什么区别,所以目前市面的防火墙都不会对SQL注入发出警报,如果管理员没查看IIS日志的习惯,可能被入侵很长时间都不会发觉。  

但是,SQL注入的手法相当灵活,在注入的时候会碰到很多意外的情况。能不能根据具体情况进行分析,构造巧妙的SQL语句,从而成功获取想要的数据,是高手与“菜鸟”的根本区别。  

根据国情,国内的网站用ASP+Access或SQLServer的占70%以上,PHP+MySQ占L20%,其他的不足10%。在本文,我们从分入门、进阶至高级讲解一下ASP注入的方法及技巧,PHP注入的文章由NB联盟的另一位朋友zwell撰写,希望对安全工作者和程序员都有用处。了解ASP注入的朋友也请不要跳过入门篇,因为部分人对注入的基本判断方法还存在误区。大家准备好了吗?Let's Go... 

入门篇   

如果你以前没试过SQL注入的话,那么第一步先把IE菜单=>工具=>Internet选项=>高级=>显示友好 HTTP 错误信息前面的勾去掉。否则,不论服务器返回什么错误,IE都只显示为HTTP 500服务器错误,不能获得更多的提示信息。 

一、SQL注入原理 

以下我们从一个网站http://www.19cn.com/开始(注:本文发表前已征得该站站长同意,大部分都是真实数据)。 

在网站首页上,有名为“IE不能打开新窗口的多种解决方法”的链接,地址为:http://www.19cn.com/showdetail.asp?id=49,我们在这个地址后面加上单引号’,服务器会返回下面的错误提示: 

Microsoft JET Database Engine 错误 '80040e14' 

字符串的语法错误 在查询表达式 'ID=49'' 中。 

/showdetail.asp,行8 

从这个错误提示我们能看出下面几点: 

1.网站使用的是Access数据库,通过JET引擎连接数据库,而不是通过ODBC。 

2.程序没有判断客户端提交的数据是否符合程序要求。 

3.该SQL语句所查询的表中有一名为ID的字段。 

从上面的例子我们可以知道,SQL注入的原理,就是从客户端提交特殊的代码,从而收集程序及服务器的信息,从而获取你想到得到的资料。 

二、判断能否进行SQL注入 

看完第一节,有一些人会觉得:我也是经常这样测试能否注入的,这不是很简单吗?其实,这并不是最好的方法,为什么呢? 

首先,不一定每台服务器的IIS都返回具体错误提示给客户端,如果程序中加了cint(参数)之类语句的话,SQL注入是不会成功的,但服务器同样会报错,具体提示信息为处理 URL 时服务器上出错。请和系统管理员联络。 

其次,部分对SQL注入有一点了解的程序员,认为只要把单引号过滤掉就安全了,这种情况不为少数,如果你用单引号测试,是测不到注入点的. 

那么,什么样的测试方法才是比较准确呢?答案如下:  

① http://www.19cn.com/showdetail.asp?id=49 

② http://www.19cn.com/showdetail.asp?id=49 and 1=1 

③ http://www.19cn.com/showdetail.asp?id=49 and 1=2 

这就是经典的1=1、1=2测试法了,怎么判断呢?看看上面三个网址返回的结果就知道了: 

可以注入的表现: 

① 正常显示(这是必然的,不然就是程序有错误了) 

② 正常显示,内容基本与①相同 

③ 提示BOF或EOF(程序没做任何判断时)、或提示找不到记录(判断了rs.eof时)、或显示内容为空(程序加了on error resume next)  

不可以注入就比较容易判断了,①同样正常显示,②和③一般都会有程序定义的错误提示,或提示类型转换时出错。 

当然,这只是传入参数是数字型的时候用的判断方法,实际应用的时候会有字符型和搜索型参数,我将在中级篇的“SQL注入一般步骤”再做分析。 

三、判断数据库类型及注入方法 

不同的数据库的函数、注入方法都是有差异的,所以在注入之前,我们还要判断一下数据库的类型。一般ASP最常搭配的数据库是Access和SQLServer,网上超过99%的网站都是其中之一。 

怎么让程序告诉你它使用的什么数据库呢?来看看: 

SQLServer有一些系统变量,如果服务器IIS提示没关闭,并且SQLServer返回错误提示的话,那可以直接从出错信息获取,方法如下: 

http://www.19cn.com/showdetail.asp?id=49 and user>0 

这句语句很简单,但却包含了SQLServer特有注入方法的精髓,我自己也是在一次无意的测试中发现这种效率极高的猜解方法。让我看来看看它的含义:首先,前面的语句是正常的,重点在and user>0,我们知道,user是SQLServer的一个内置变量,它的值是当前连接的用户名,类型为nvarchar。拿一个nvarchar的值跟int的数0比较,系统会先试图将nvarchar的值转成int型,当然,转的过程中肯定会出错,SQLServer的出错提示是:将nvarchar值 ”abc” 转换数据类型为 int 的列时发生语法错误,呵呵,abc正是变量user的值,这样,不废吹灰之力就拿到了数据库的用户名。在以后的篇幅里,大家会看到很多用这种方法的语句。 

顺便说几句,众所周知,SQLServer的用户sa是个等同Adminstrators权限的角色,拿到了sa权限,几乎肯定可以拿到主机的Administrator了。上面的方法可以很方便的测试出是否是用sa登录,要注意的是:如果是sa登录,提示是将”dbo”转换成int的列发生错误,而不是”sa”。 

如果服务器IIS不允许返回错误提示,那怎么判断数据库类型呢?我们可以从Access和SQLServer和区别入手,Access和SQLServer都有自己的系统表,比如存放数据库中所有对象的表,Access是在系统表[msysobjects]中,但在Web环境下读该表会提示“没有权限”,SQLServer是在表[sysobjects]中,在Web环境下可正常读取。 

在确认可以注入的情况下,使用下面的语句: 

http://www.19cn.com/showdetail.asp?id=49 and (select count(*) from sysobjects)>0 

http://www.19cn.com/showdetail.asp?id=49 and (select count(*) from msysobjects)>0 

如果数据库是SQLServer,那么第一个网址的页面与原页面http://www.19cn.com/showdetail.asp?id=49是大致相同的;而第二个网址,由于找不到表msysobjects,会提示出错,就算程序有容错处理,页面也与原页面完全不同。 

如果数据库用的是Access,那么情况就有所不同,第一个网址的页面与原页面完全不同;第二个网址,则视乎数据库设置是否允许读该系统表,一般来说是不允许的,所以与原网址也是完全不同。大多数情况下,用第一个网址就可以得知系统所用的数据库类型,第二个网址只作为开启IIS错误提示时的验证。 


SQL注入漏洞全接触——进阶篇 
ZDNet 软件频道 更新时间:2007-08-20 作者:CSDN 来源:CSDN 
本文关键词:漏洞 SQL Server SQL 
接下来,我们就继续学习如何从数据库中获取想要获得的内容,首先,我们先看看SQL注入的一般步骤: 

一、SQL注入的一般步骤 

首先,判断环境,寻找注入点,判断数据库类型,这在入门篇已经讲过了。 

其次,根据注入参数类型,在脑海中重构SQL语句的原貌,按参数类型主要分为下面三种: 

(A) ID=49 这类注入的参数是数字型,SQL语句原貌大致如下: 

Select * from 表名 where 字段=49 

注入的参数为ID=49 And [查询条件],即是生成语句: 

Select * from 表名 where 字段=49 And [查询条件] 

(B) Class=连续剧 这类注入的参数是字符型,SQL语句原貌大致概如下: 

Select * from 表名 where 字段=’连续剧’ 

注入的参数为Class=连续剧’ and [查询条件] and ‘’=’ ,即是生成语句: 

Select * from 表名 where 字段=’连续剧’ and [查询条件] and ‘’=’’ 

(C) 搜索时没过滤参数的,如keyword=关键字,SQL语句原貌大致如下: 

Select * from 表名 where 字段like ’%关键字%’ 

注入的参数为keyword=’ and [查询条件] and ‘%25’=’, 即是生成语句: 

Select * from 表名 where字段like ’%’ and [查询条件] and ‘%’=’%’ 

接着,将查询条件替换成SQL语句,猜解表名,例如: 

ID=49 And (Select Count(*) from Admin)>=0 

如果页面就与ID=49的相同,说明附加条件成立,即表Admin存在,反之,即不存在(请牢记这种方法)。如此循环,直至猜到表名为止。 

表名猜出来后,将Count(*)替换成Count(字段名),用同样的原理猜解字段名。 

有人会说:这里有一些偶然的成分,如果表名起得很复杂没规律的,那根本就没得玩下去了。说得很对,这世界根本就不存在100%成功的黑客技术,苍蝇不叮无缝的蛋,无论多技术多高深的黑客,都是因为别人的程序写得不严密或使用者保密意识不够,才有得下手。 

有点跑题了,话说回来,对于SQLServer的库,还是有办法让程序告诉我们表名及字段名的,我们在高级篇中会做介绍。最后,在表名和列名猜解成功后,再使用SQL语句,得出字段的值,下面介绍一种最常用的方法-Ascii逐字解码法,虽然这种方法速度很慢,但肯定是可行的方法。 

我们举个例子,已知表Admin中存在username字段,首先,我们取第一条记录,测试长度: 

http://www.19cn.com/showdetail.asp?id=49 and (select top 1 len(username) from Admin)>0 

先说明原理:如果top 1的username长度大于0,则条件成立;接着就是>1、>2、>3这样测试下去,一直到条件不成立为止,比如>7成立,>8不成立,就是len(username)=8 

当然没人会笨得从0,1,2,3一个个测试,怎么样才比较快就看各自发挥了。在得到username的长度后,用mid(username,N,1)截取第N位字符,再asc(mid(username,N,1))得到ASCII码,比如: 

id=49 and (select top 1 asc(mid(username,1,1)) from Admin)>0 

同样也是用逐步缩小范围的方法得到第1位字符的ASCII码,注意的是英文和数字的ASCII码在1-128之间,可以用折半法加速猜解,如果写成程序测试,效率会有极大的提高。 

二、SQL注入常用函数 

有SQL语言基础的人,在SQL注入的时候成功率比不熟悉的人高很多。我们有必要提高一下自己的SQL水平,特别是一些常用的函数及命令。 

Access:asc(字符) SQLServer:unicode(字符) 

作用:返回某字符的ASCII码 

Access:chr(数字) SQLServer:nchar(数字) 

作用:与asc相反,根据ASCII码返回字符 

Access:mid(字符串,N,L) SQLServer:substring(字符串,N,L) 

作用:返回字符串从N个字符起长度为L的子字符串,即N到N+L之间的字符串 

Access:abc(数字) SQLServer:abc (数字) 

作用:返回数字的绝对值(在猜解汉字的时候会用到)  

Access:A between B And C SQLServer:A between B And C 

作用:判断A是否界于B与C之间 

三、中文处理方法 

在注入中碰到中文字符是常有的事,有些人一碰到中文字符就想打退堂鼓了。其实只要对中文的编码有所了解,“中文恐惧症”很快可以克服。 

先说一点常识: 

Access中,中文的ASCII码可能会出现负数,取出该负数后用abs()取绝对值,汉字字符不变。 

SQLServer中,中文的ASCII为正数,但由于是UNICODE的双位编码,不能用函数ascii()取得ASCII码,必须用函数unicode ()返回unicode值,再用nchar函数取得对应的中文字符。 

了解了上面的两点后,是不是觉得中文猜解其实也跟英文差不多呢?除了使用的函数要注意、猜解范围大一点外,方法是没什么两样的。 

 
 

SQL注入漏洞全接触——高级篇 
ZDNet 软件频道 更新时间:2007-08-20 作者:CSDN 来源:CSDN 
本文关键词:漏洞 SQL Server SQL 
看完入门篇和进阶篇后,稍加练习,破解一般的网站是没问题了。但如果碰到表名列名猜不到,或程序作者过滤了一些特殊字符,怎么提高注入的成功率?怎么样提高猜解效率?请大家接着往下看高级篇。 

一、利用系统表注入SQLServer数据库 

SQLServer是一个功能强大的数据库系统,与操作系统也有紧密的联系,这给开发者带来了很大的方便,但另一方面,也为注入者提供了一个跳板,我们先来看看几个具体的例子: 

① http://Site/url.asp?id=1;exec master..xp_cmdshell “net user name password /add”-- 

分号;在SQLServer中表示隔开前后两句语句,--表示后面的语句为注释,所以,这句语句在SQLServer中将被分成两句执行,先是Select出ID=1的记录,然后执行存储过程xp_cmdshell,这个存储过程用于调用系统命令,于是,用net命令新建了用户名为name、密码为password的windows的帐号,接着: 

② http://Site/url.asp?id=1;exec master..xp_cmdshell “net localgroup name administrators /add”-- 

将新建的帐号name加入管理员组,不用两分钟,你已经拿到了系统最高权限!当然,这种方法只适用于用sa连接数据库的情况,否则,是没有权限调用xp_cmdshell的。 

③ http://Site/url.asp?id=1 ;;and db_name()>0 

前面有个类似的例子and user>0,作用是获取连接用户名,db_name()是另一个系统变量,返回的是连接的数据库名。 

④ http://Site/url.asp?id=1;backup database 数据库名 to disk=’c:inetpubwwwroot.db’;-- 

这是相当狠的一招,从③拿到的数据库名,加上某些IIS出错暴露出的绝对路径,将数据库备份到Web目录下面,再用HTTP把整个数据库就完完整整的下载回来,所有的管理员及用户密码都一览无遗!在不知道绝对路径的时候,还可以备份到网络地址的方法(如202.96.xx.xxShare.db),但成功率不高。 

⑤ http://Site/url.asp?id=1 ;;and (Select Top 1 name from sysobjects where xtype=’U’ and status>0)>0 

前面说过,sysobjects是SQLServer的系统表,存储着所有的表名、视图、约束及其它对象,xtype=’U’ and status>0,表示用户建立的表名,上面的语句将第一个表名取出,与0比较大小,让报错信息把表名暴露出来。第二、第三个表名怎么获取?还是留给我们聪明的读者思考吧。 

⑥ http://Site/url.asp?id=1 ;;and (Select Top 1 col_name(object_id(‘表名’),1) from sysobjects)>0  

从⑤拿到表名后,用object_id(‘表名’)获取表名对应的内部ID,col_name(表名ID,1)代表该表的第1个字段名,将1换成2,3,4...就可以逐个获取所猜解表里面的字段名。 

以上6点是我研究SQLServer注入半年多以来的心血结晶,可以看出,对SQLServer的了解程度,直接影响着成功率及猜解速度。在我研究SQLServer注入之后,我在开发方面的水平也得到很大的提高,呵呵,也许安全与开发本来就是相辅相成的吧。 

二、绕过程序限制继续注入   

在入门篇提到,有很多人喜欢用’号测试注入漏洞,所以也有很多人用过滤’号的方法来“防止”注入漏洞,这也许能挡住一些入门者的攻击,但对SQL注入比较熟悉的人,还是可以利用相关的函数,达到绕过程序限制的目的。 

在“SQL注入的一般步骤”一节中,我所用的语句,都是经过我优化,让其不包含有单引号的;在“利用系统表注入SQLServer数据库”中,有些语句包含有’号,我们举个例子来看看怎么改造这些语句: 

简单的如where xtype=’U’,字符U对应的ASCII码是85,所以可以用where xtype=char(85)代替;如果字符是中文的,比如where name=’用户’,可以用where name=nchar(29992)+nchar(25143)代替。 

三、经验小结   

1.有些人会过滤Select、Update、Delete这些关键字,但偏偏忘记区分大小写,所以大家可以用selecT这样尝试一下。 

2.在猜不到字段名时,不妨看看网站上的登录表单,一般为了方便起见,字段名都与表单的输入框取相同的名字。  

3.特别注意:地址栏的+号传入程序后解释为空格,%2B解释为+号,%25解释为%号,具体可以参考URLEncode的相关介绍。 

4.用Get方法注入时,IIS会记录你所有的提交字符串,对Post方法做则不记录,所以能用Post的网址尽量不用Get。 

5. 猜解Access时只能用Ascii逐字解码法,SQLServer也可以用这种方法,只需要两者之间的区别即可,但是如果能用SQLServer的报错信息把值暴露出来,那效率和准确率会有极大的提高。 

防范方法 

SQL注入漏洞可谓是“千里之堤,溃于蚁穴”,这种漏洞在网上极为普遍,通常是由于程序员对注入不了解,或者程序过滤不严格,或者某个参数忘记检查导致。在这里,我给大家一个函数,代替ASP中的Request函数,可以对一切的SQL注入Say NO,函数如下: 

Function SafeRequest(ParaName,ParaType) 

'--- 传入参数 --- 

'ParaName:参数名称-字符型 

'ParaType:参数类型-数字型(1表示以上参数是数字,0表示以上参数为字符)  

Dim ParaValue 

ParaValue=Request(ParaName) 

If ParaType=1 then 

If not isNumeric(ParaValue) then 

Response.write "参数" & ParaName & "必须为数字型!" 

Response.end 

End if 

Else 

ParaValue=replace(ParaValue,"'","''") 

End if 

SafeRequest=ParaValue 

End function 
 
 

#4


1.永远不要信任用户的输入。对用户的输入进行校验,可以通过正则表达式,或限制长度;对单引号和双"-"进行转换等。 
2.永远不要使用动态拼装sql,可以使用参数化的sql或者直接使用存储过程进行数据查询存取。 
3.永远不要使用管理员权限的数据库连接,为每个应用使用单独的权限有限的数据库连接。 
4.不要把机密信息直接存放,加密或者hash掉密码和敏感的信息。 
5.应用的异常信息应该给出尽可能少的提示,最好使用自定义的错误信息对原始错误信息进行包装。

#5


。。

#6


网站都被注入js,被iframe之类的。处理办法:
1.首先我会检查一下服务器配置,重新配置一次服务器安全,可以参考 
http://hi.baidu.com/zzxap/blog/item/18180000ff921516738b6564.html 

2.其次,用麦咖啡自定义策略,即使网站程序有漏洞,别人也很难在文件上写入代码了。 
参考自定义策略,有了这个策略,再烂的程序,你也无法写入我的文件 
http://hi.baidu.com/zzxap/blog/item/efe093a7e0f2c190d04358ef.html 

3.可以用网络超级巡警删除被注入的JS代码。 
参考 
http://hi.baidu.com/anlish/blog/item/ba45bb18eac77e0534fa4134.html 

4.如何批量删除数据库中被注入的代码? 
在数据库查询分析器运行这段代码即可 
DECLARE @fieldtype sysname
SET @fieldtype='varchar'
--删除处理
DECLARE hCForEach CURSOR GLOBAL
FOR
SELECT N'update '+QUOTENAME(o.name)
    +N' set '+ QUOTENAME(c.name) + N' = replace(' + QUOTENAME(c.name) + ',''<script_src=http://ucmal.com/0.js> </script>'','''')'
FROM sysobjects o,syscolumns c,systypes t
WHERE o.id=c.id
    AND OBJECTPROPERTY(o.id,N'IsUserTable')=1
    AND c.xusertype=t.xusertype
    AND t.name=@fieldtype
EXEC sp_MSforeach_Worker @command1=N'?'




5.创建一个触发器,只要有 </script>就不给插入,对性能会有点影响 

create trigger tr_table_insertupdate
on tablename
for insert,update
as
if exists (
select 1 from inserted 
where data like '%</script>%'
)
begin
       RAISERROR ('不能修改或者添加',16,1);
       ROLLBACK TRANSACTION
end
go


6.最重要的还是程序的写法,用参数化SQL或存储过程 
例如 
 protected void cmdok_Click(object sender, EventArgs e)
    {
        //添加信息
        StringBuilder  sql = new StringBuilder( " insert into m_phone ( pid,PhoneName,num,price,phonetype,onSellTime,color,weight,Video,Camera,phoneSize,phoneSystem,Memorysize,PhoneDesc,Standbytime,ScreenSize,Frequency,InputMethod,Soundrecord,gps,fm,mp3,email,Infrared,game,clock,Calendar,Calculator,Bluetooth)  ");

        sql.Append(" values (@pid,@TextPhoneName,@Textnum,@Textprice,@Dropphonetype2,@TextonSellTime,@Textcolor,@Textweight ");
        
        .................

        SqlParameter[] paras = { new SqlParameter("@pid", SqlDbType.Int, 4) ,
            new SqlParameter("@TextPhoneName", SqlDbType.NVarChar, 50) , 
            new SqlParameter("@Textnum", SqlDbType.Int, 4) ,
            new SqlParameter("@Textprice", SqlDbType.Int, 4) ,
            new SqlParameter("@Dropphonetype2", SqlDbType.VarChar, 20) ,
            new SqlParameter("@TextonSellTime", SqlDbType.DateTime, 8) ,
            new SqlParameter("@Textcolor", SqlDbType.VarChar, 20) ,
            new SqlParameter("@Textweight", SqlDbType.NVarChar, 50) ,

           ...........
        };
        string[] stra = {Dropphonetype.SelectedValue,TextPhoneName.Text , Textnum.Text, Textprice.Text, Dropphonetype2.SelectedValue, TextonSellTime.Text, Textcolor.Text, Textweight.Text, 
            .............};

        int a=stra.Length;
        int j;
        
        for ( j = 0; j < a; j++)
        {
            paras[j].Value = stra[j];
           
        }
        int strpid = 0;
        string sqla = sql.ToString();
        try
        {
            SqlHelper.ExcuteNonQurey(sqla, CommandType.Text, paras);//执行添加数据
           
            strpid = Convert.ToInt32(SqlHelper.ExcuteSclare(sqla, CommandType.Text, paras));  //获取刚才插入的id号


        }
        catch (SqlException ex)
        {
            cmdreturn.Text = ex.Message.ToString();

        }

        cmdreturn.Text = strpid.ToString();

。。

7.通过URL传递的参数要用加密解密 
传输
string szTmp = "safdsfdsafdsfytrsd";
szTmp = Server.UrlEncode(szTmp); 
接收
STRING STRA=Server.UrlDecode(request.querystring(szTmp));





8.把要使用的参数处理一下单引号,再放到SQL里面  
  例如 string stra=aa.replace("'","''") 

  用参数化SQL可以不用处理单引号 
  指定参数类型和过滤掉单引号,就可以杜绝99.9%入侵了 


另外说一句:网上那些被人奉如圣经的过滤 update insert  等关键字的程序是用处不大的  upupdatedate 过滤掉 update还是update 
还会造成不必要的麻烦 

#7


http://topic.csdn.net/u/20090708/17/462f299b-1b63-4c16-b845-df8b1a1a23bf.html?seed=982639208&r=58240387#r_58240387

#8


学习

#9


楼上的各位,那些文章我都看了。我现在就想出了这三种解决途径。请问问按照各位的经验那种更好些呢,不需要贴其它内容了,那些我都看了的。
再加一点。
4.如果数据量小的话,我用客户端将提交的数据,全部转化为数字和代表字符长度数字,ASP页面然后判断两个提交内容是否为数字。显示的时候再用客户端通过数字和字符长度数字转化数字成字符.在客户端运行压力给客户端。对于数据量较小的内容。

#10


我觉得是第2种 替换是一种比较好的办法

#11


学习了

#12


现在我用这个方法来处理输入的字符
function getlen(str)
Dim i,c
For i=1 To Len(str)
   c = Asc(Mid(str,i,1))
   If c < 0 Then
    c = c+ 65536
   End If
   If c > 255 Then
    flag = flag + 2
   Else
    flag = flag + 1
   End If
next
   getlen=flag
end function
'安全检查
function aqjc(zfc,zt,dx)
if zt=0 then
if isnumeric(zfc)=false then
response.Write("输入"&zfc&"必须为数字请检查!!")
response.End()
end if
else
zfc=trim(replace(zfc,"'","’"))
zfc=trim(replace(zfc,"@","@"))
zfc=trim(replace(zfc,">",">"))
zfc=trim(replace(zfc,"<","<"))
zfc=trim(replace(zfc,"/","/"))
zfc=trim(replace(zfc,"\","\"))
zfc=trim(replace(zfc,"%","%"))
zfc=trim(replace(zfc,"+","+"))
zfc=trim(replace(zfc,"?","?"))
end if
if getlen(zfc)>dx then
response.Write("超出允许值范围;中文占用两个单元格(注意:检测后英文符号将变为中文’),请检查:<a href='javascript:history.back(1);'>返回</a>")
response.End()
end if
aqjc=zfc
end function

#13


学习

#14


用过滤

#15


引用 4 楼 fredrickhu 的回复:
1.永远不要信任用户的输入。对用户的输入进行校验,可以通过正则表达式,或限制长度;对单引号和双"-"进行转换等。
2.永远不要使用动态拼装sql,可以使用参数化的sql或者直接使用存储过程进行数据查询存取。
3.永远不要使用管理员权限的数据库连接,为每个应用使用单独的权限有限的数据库连接。
4.不要把机密信息直接存放,加密或者hash掉密码和敏感的信息。
5.应用的异常信息应该给出尽可能少的提示,最好使用自定义的错误信息对原始错误信息进行包装。

支持小F

#16


下面是我自己写的过滤函数,你试试看!
用法:把用户输入的每一个参数都用这个函数(ChkSqlInject)过滤一遍,应该能够挡住觉大部分攻击~!
如果哪位大侠发现有漏洞或者更好的建议,请不吝赐教,我也好改善一下!
这个函数是用vb写的dll,在asp中调用,不能直接放到asp中!

Public Function ChkSqlInject(strVarValue As String) As Boolean
  Dim s As String
  Dim i As Long, slen As Long
  Dim c As String, c1 As String
  
  ChkSqlInject = False
  s = LCase(strVarValue)
  slen = Len(s)
  
  If slen <= 4 Then
    ChkSqlInject = True
    Exit Function
  End If
  If IsNumeric(s) Then
    ChkSqlInject = True
    Exit Function
  End If
  
  ' if InStr(s,";")>0 or InStr(s,"'")>0 or InStr(s,",")>0 or InStr(s,"""")>0 then
    ' exit function
  ' end if
  
  If InStr(1, s, "from") > 0 Then
    If IsNotValidSql(s, "from", slen, 4) Then
      If IsNotValidSql(s, "select", slen, 6) Then
        Exit Function
      End If
      If IsNotValidSql(s, "delete", slen, 6) Then
        Exit Function
      End If
    End If
  End If
  
  If InStr(1, s, "create") > 0 Or InStr(1, s, "alter") > 0 Or InStr(1, s, "drop") > 0 Then
    If IsNotValidSql(s, "create", slen, 6) Or IsNotValidSql(s, "alter", slen, 5) Or IsNotValidSql(s, "drop", slen, 4) Then
      If IsNotValidSql(s, "table", slen, 5) Then
        Exit Function
      End If
      If IsNotValidSql(s, "index", slen, 5) Then
        Exit Function
      End If
    End If
  End If
  
  If InStr(1, s, "backup") > 0 Then
    If IsNotValidSql(s, "backup", slen, 6) Then
      If IsNotValidSql(s, "to", slen, 2) Then
        Exit Function
      End If
    End If
  End If
  
  If InStr(1, s, "and") > 0 Or InStr(1, s, "or") > 0 Or InStr(1, s, "where") > 0 Then
    If IsNotValidSql(s, "and", slen, 3) Or IsNotValidSql(s, "or", slen, 2) Or IsNotValidSql(s, "where", slen, 5) Then
      If InStr(s, "=") > 0 Then
        Exit Function
      End If
      If InStr(s, ">") > 0 Then
        Exit Function
      End If
      If InStr(s, "<") > 0 Then
        Exit Function
      End If
      If IsNotValidSql(s, "like", slen, 4) Then
        Exit Function
      End If
      If IsNotValidSql(s, "is", slen, 2) Then
        Exit Function
      End If
      If IsNotValidSql(s, "in", slen, 2) Then
        Exit Function
      End If
      If IsNotValidSql(s, "between", slen, 7) Then
        Exit Function
      End If
      If IsNotValidSql(s, "exists", slen, 6) Then
        Exit Function
      End If
    End If
  End If
  
  If InStr(1, s, "insert") > 0 Then
    If IsNotValidSql(s, "insert", slen, 6) And IsNotValidSql(s, "into", slen, 4) Then
      Exit Function
    End If
  End If
  
  If InStr(1, s, "update") > 0 Then
    If IsNotValidSql(s, "update", slen, 6) And IsNotValidSql(s, "set", slen, 3) Then
      Exit Function
    End If
  End If
  
  If InStr(1, s, "case") > 0 Then
    If IsNotValidSql(s, "case", slen, 4) And IsNotValidSql(s, "when", slen, 4) Then
      Exit Function
    End If
  End If
  
  If InStr(1, s, "by") > 0 Then
    If IsNotValidSql(s, "by", slen, 2) Then
      If IsNotValidSql(s, "group", slen, 5) Then
        Exit Function
      End If
      If IsNotValidSql(s, "order", slen, 5) Then
        Exit Function
      End If
    End If
  End If
  
  If InStr(1, s, "exec") > 0 Then
    If IsNotValidSql(s, "exec", slen, 4) Then
      Exit Function
    End If
  End If
  
  If InStr(1, s, "xp_cmdshell") > 0 Then
    If IsNotValidSql(s, "xp_cmdshell", slen, 11) Then '存储过程
      Exit Function
    End If
  End If
  
  If InStr(1, s, "sp_oacreate") > 0 Then
    If IsNotValidSql(s, "sp_oacreate", slen, 11) Then '存储过程
      Exit Function
    End If
  End If
  
  If InStr(1, s, "sp_oagetproperty") > 0 Then
    If IsNotValidSql(s, "sp_oagetproperty", slen, 16) Then '存储过程
      Exit Function
    End If
  End If
  
  If InStr(1, s, "sp_oamethod") > 0 Then
    If IsNotValidSql(s, "sp_oamethod", slen, 11) Then  '存储过程
      Exit Function
    End If
  End If
  
  If InStr(1, s, "sp_addlogin") > 0 Then
    If IsNotValidSql(s, "sp_addlogin", slen, 11) Then '存储过程
      Exit Function
    End If
  End If
  
  If InStr(1, s, "sp_addsrvrolemember") > 0 Then
    If IsNotValidSql(s, "sp_addsrvrolemember", slen, 19) Then '存储过程
      Exit Function
    End If
  End If
  
  If InStr(1, s, "openrowset") > 0 Then
    If IsNotValidSql(s, "openrowset", slen, 10) Then  '存储过程
      Exit Function
    End If
  End If
  
  If InStr(1, s, "opendatasource") > 0 Then
    If IsNotValidSql(s, "opendatasource", slen, 14) Then '存储过程
      Exit Function
    End If
  End If
  
  If InStr(1, s, "db_name()") > 0 Then
    If IsNotValidSql(s, "db_name()", slen, 9) Then '系统变量
      Exit Function
    End If
  End If
  
  If InStr(1, s, "sysobjects") > 0 Then
    If IsNotValidSql(s, "sysobjects", slen, 10) Then  '系统表
      Exit Function
    End If
  End If
  
  If InStr(1, s, "msysobjects") > 0 Then
    If IsNotValidSql(s, "msysobjects", slen, 11) Then  '系统表
      Exit Function
    End If
  End If
  
  i = InStr(1, s, "declare")
  If i > 0 Then
    'If IsNotValidSql(s, "declare", slen, 7) Then 'SQL关键字,用来声明变量,可以把关键字拆开再组合,以绕过监测,因此绝不可以有这个指令
    '  Exit Function
    'End If
    If slen >= i + 7 Then
      i = Asc(Mid(s, i + 7, 1)) 'declare右边仅允许跟字母或数字,其他字符均不允许(限制更严格)
      If i < 48 Or (i > 57 And i < 65) Or (i > 90 And i < 97) Or i > 122 Then
        Exit Function
      End If
    End If
  End If
  
  If InStr(1, s, "wscript") > 0 Then
    If IsNotValidSql(s, "wscript", slen, 7) Then 'SQL关键字
      Exit Function
    End If
  End If
  
  If InStr(1, s, "shell") > 0 Then
    If IsNotValidSql(s, "shell", slen, 5) Then 'SQL关键字
      Exit Function
    End If
  End If
  
  i = InStr(1, s, "cmd")
  If i > 0 Then
    If IsNotValidSql(s, "cmd", slen, 3) Then 'SQL关键字
      Exit Function
    Else
      If slen >= i + 3 Then 'cmd右边还有内容
        i = Asc(Mid(s, i + 3, 1))
        If 46 = i Then  'cmd右边的字符是 '.'
          Exit Function
        End If
      End If
    End If
  End If
  
  If InStr(1, s, "cscript") > 0 Then
    If IsNotValidSql(s, "cscript", slen, 7) > 0 Then 'SQL关键字
      Exit Function
    End If
  End If
  
  i = InStr(s, "/* ") '监测是否用 /**/ 或 /*anyString*/ 代替空格作为分隔符
  If i > 0 Then
    If InStr(i + 2, s, "*/") > 0 Then
      Exit Function
    End If
  End If
  
  If InStr(s, "--") > 0 Then 'SQL注释, 该符号会导致SQL命令提前结束
    Exit Function
  End If
  
  ChkSqlInject = True
End Function

'检查关键字两边是否有非法字符,前提是关键字已被发现;如果关键字两边没有非法间隔符,则该关键字不存在威胁,函数返回False
'如果关键字两边有非法间隔符,则可能存在SQL注入威胁,函数返回True
Function IsNotValidSql(OrigStr As String, subStr As String, OrigStrLen As Long, subStrLen As Long) As Boolean
  Dim cl As String, cr As String  'subStr左边和右边的字符
  Dim StartPos As Long, ascVal As Long
  Dim IsLeftInvalid As Boolean, IsRightInvalid As Boolean
  
  If OrigStrLen <= subStrLen Then
    IsNotValidSql = False
    Exit Function
  End If
  
  StartPos = InStr(1, OrigStr, subStr)
  If StartPos = 0 Then
    IsNotValidSql = False
    Exit Function
  End If
  
  IsNotValidSql = True
  IsLeftInvalid = False
  IsRightInvalid = False
  
  If 1 = StartPos Then 'subStr 在 OrigStr 头部
    cl = ""
    cr = Mid(OrigStr, StartPos + subStrLen, 1)
    IsLeftInvalid = True
  ElseIf Len(OrigStr) = StartPos + Len(subStr) - 1 Then 'subStr 在 OrigStr 尾部
    cl = Mid(OrigStr, StartPos - 1, 1)
    cr = ""
    IsRightInvalid = True
  Else                                               'subStr 在 OrigStr 中间
    cl = Mid(OrigStr, StartPos - 1, 1)
    cr = Mid(OrigStr, StartPos + subStrLen, 1)
  End If
  
  '左右两边都是非法间隔符时,可能存在威胁,返回True
  If cl <> "" Then
    ascVal = Asc(cl)
    If ascVal < 33 Or ascVal = 91 Or ascVal = 93 Then  '包含不可见字符、空格、TAB、'['或者 ']'
      If IsRightInvalid Then 'subStr右边为非法间隔符
        Exit Function
      End If
      IsLeftInvalid = True
    End If
  End If
  If cr <> "" Then
    ascVal = Asc(cr)
    If ascVal < 33 Or ascVal = 91 Or ascVal = 93 Then  '包含不可见字符、空格、TAB、'['或者 ']'
      If IsLeftInvalid Then 'subStr左边为非法间隔符
        Exit Function
      End If
    End If
  End If
  
  IsNotValidSql = False '没有检测到威胁
End Function

#17


'安全检查
function aqjc(zfc,zt,dx)
if zt=0 then
if isnumeric(zfc)=false then
response.Write("输入"&zfc&"必须为数字请检查!!")
response.End()
end if
else
zfc=trim(replace(zfc,"~","~"))
zfc=trim(replace(zfc,"!","!"))
zfc=trim(replace(zfc,"@","@"))
zfc=trim(replace(zfc,"#","#"))
zfc=trim(replace(zfc,"$","$"))
zfc=trim(replace(zfc,"%","%"))
zfc=trim(replace(zfc,"^","^"))
zfc=trim(replace(zfc,"&","&"))
zfc=trim(replace(zfc,"*","*"))
zfc=trim(replace(zfc,"(","("))
zfc=trim(replace(zfc,")",")"))
zfc=trim(replace(zfc,"-","-"))
zfc=trim(replace(zfc,"+","+"))
zfc=trim(replace(zfc,"=","="))
zfc=trim(replace(zfc,"_","_"))
zfc=trim(replace(zfc,"`","`"))
zfc=trim(replace(zfc,"|","|"))
zfc=trim(replace(zfc,":",":"))
zfc=trim(replace(zfc,"'","’"))
zfc=trim(replace(zfc,"\","\"))
zfc=trim(replace(zfc,"/","/"))
zfc=trim(replace(zfc,";",";"))
zfc=trim(replace(zfc,"?","?"))
zfc=trim(replace(zfc,"<","<"))
zfc=trim(replace(zfc,">",">"))
zfc=trim(replace(zfc,",",","))
zfc=trim(replace(zfc,".","."))
zfc=trim(replace(zfc,"""","""))
zfc=trim(replace(zfc,"1","1"))
zfc=trim(replace(zfc,"2","2"))
zfc=trim(replace(zfc,"3","3"))
zfc=trim(replace(zfc,"4","4"))
zfc=trim(replace(zfc,"5","5"))
zfc=trim(replace(zfc,"6","6"))
zfc=trim(replace(zfc,"7","7"))
zfc=trim(replace(zfc,"8","8"))
zfc=trim(replace(zfc,"9","9"))
zfc=trim(replace(zfc,"0","0"))
end if
if len(zfc)>dx then
response.Write("超出允许值范围请检查:<a href='javascript:history.back(1);'>返回</a>")
response.End()
end if
aqjc=zfc
end function
写了个这个函数,大家帮我看看,安全不呢??有没有办法再进行注入呢?

#18


谁帮我看看我最后写的这个过滤程序能否过滤掉SQL注入呢?

#19


不错么

#20


其它朋友有撒见解呢,帮我看看我最后写的那个函数能否过滤SQL注入呢?谢谢了。

#21


sql防注入

http://www.111cn.net/search.php?keyword=sql%B7%C0%D7%A2%C8%EB&p=1