国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

經(jīng)常聽說的ASP上傳漏洞，即是將一些木馬文件修改后綴名（修改為圖像文件后綴），進行上傳。

針對此情況使用下列函數(shù)進行辨別：

<%                        ‘***************************************************************                        ‘CheckFileType 函數(shù)用來檢查文件是否為圖片文件                        ‘參數(shù)filename是本地文件的路徑                        ‘如果是文件jpeg,gif,bmp,png圖片中的一種，函數(shù)返回true，否則返回false                        ‘***************************************************************                        const adTypeBinary=1                        dim jpg(1):jpg(0)=CByte(&HFF):jpg(1)=CByte(&HD8)                        dim bmp(1):bmp(0)=CByte(&H42):bmp(1)=CByte(&H4D)                        dim png(3):png(0)=CByte(&H89):png(1)=CByte(&H50):png(2)=CByte(&H4E):png(3)=CByte(&H47)                        dim gif(5):gif(0)=CByte(&H47):gif(1)=CByte(&H49):gif(2)=CByte(&H46):gif(3)=CByte(&H39):gif(4)=CByte(&H38):gif(5)=CByte(&H61)                        function CheckFileType(filename)                        on error resume next                        CheckFileType=false                        dim fstream,fileExt,stamp,i                        fileExt=mid(filename,InStrRev(filename,".")+1)                        set fstream=Server.createobject("ADODB.Stream")                        fstream.Open                        fstream.Type=adTypeBinary                        fstream.LoadFromFile filename                        fstream.position=0                        select case fileExt                        case "jpg","jpeg"                        stamp=fstream.read(2)                        for i=0 to 1                        if ascB(MidB(stamp,i+1,1))=jpg(i) then CheckFileType=true else CheckFileType=false                        next                        case "gif"                        stamp=fstream.read(6)                        for i=0 to 5                        if ascB(MidB(stamp,i+1,1))=gif(i) then CheckFileType=true else CheckFileType=false                        next                        case "png"                        stamp=fstream.read(4)                        for i=0 to 3                        if ascB(MidB(stamp,i+1,1))=png(i) then CheckFileType=true else CheckFileType=false                        next                        case "bmp"                        stamp=fstream.read(2)                        for i=0 to 1                        if ascB(MidB(stamp,i+1,1))=bmp(i) then CheckFileType=true else CheckFileType=false                        next                        end select                        fstream.Close                        set fseteam=nothing                        if err.number<>0 then CheckFileType=false                        end function                        %>                        

那么在應用的時候
CheckFileType(server.mappath("cnbruce.jpg"))
或者
CheckFileType("F:/web/164/images/cnbruce.jpg"))

反正即是檢測驗證本地物理地址的圖像文件類型，返回 true 或 false值

所以這個情況應用在圖像上傳中，目前的辦法是先允許該“偽圖像”文件的上傳，接著使用以上的自定義函數(shù)判斷該文件是否符合圖像的規(guī)范，若是木馬偽裝的圖像文件則FSO刪除之，比如：

file.SaveAs Server.mappath(filename)   ‘保存文件                        If not CheckFileType(Server.mappath(filename)) then                        response.write "錯誤的圖像格式"                        Set fso = CreateObject("Scripting.FileSystemObject")                        Set ficn = fso.GetFile(Server.mappath(filename))                        ficn.delete                        set ficn=nothing                        set fso=nothing                        response.end                        end if                        

則是先將文件上傳，接著立馬使用自定義函數(shù)判斷文件圖像類型的吻合性，F(xiàn)SO做出刪除該文件的操作。


ASP上傳漏洞還利用"\0"對filepath進行手腳操作
www.cnbruce.com/blog/showlog.asp?cat_id=32&log_id=635

針對這樣的情況可使用如下函數(shù)

function TrueStr(fileTrue)                        str_len=len(fileTrue)                        pos=Instr(fileTrue,chr(0))                        if pos=0 or pos=str_len then                        TrueStr=true                        else                        TrueStr=false                        end if                        end function                        

接著就可判斷后再做文件的上傳

if TrueStr(filename)=false then                        response.write "非法文件"                        response.end                        end if                        file.SaveAs Server.mappath(filename)                        

所以，在Blog中的一文：（ASP）文件系統(tǒng)之化境無組件（v2.0）上傳

關于upfile.asp的全新內(nèi)容如下：

[Ctrl+A 全部選擇 提示：你可先修改部分代碼，再按運行]

另外，請各位調(diào)試是否具有上傳漏洞：

www.164.cc/2006/upf/

先去試試

這次可以拉。。謝謝狼哥。。但是有一點，就是整體感覺這個文件不是太正規(guī)

如果可以 聲名 “允許上傳類型” 這樣就好了
就是 直接 一個變量=“jpg,gif,txt等允許上傳的類型”
你這樣寫出來。因為 測試了2次。。

所以感覺只能 上傳 圖片那幾個類型。。下面的 txt呀 rar 等格式 都不可以上傳了。。