欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

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

針對此情況使用下列函數進(jìn)行辨別：

<%                        ‘***************************************************************                        ‘CheckFileType 函數用來(lái)檢查文件是否為圖片文件                        ‘參數filename是本地文件的路徑                        ‘如果是文件jpeg,gif,bmp,png圖片中的一種，函數返回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                        %>                        

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

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

所以這個(gè)情況應用在圖像上傳中，目前的辦法是先允許該“偽圖像”文件的上傳，接著(zhù)使用以上的自定義函數判斷該文件是否符合圖像的規范，若是木馬偽裝的圖像文件則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                        

則是先將文件上傳，接著(zhù)立馬使用自定義函數判斷文件圖像類(lèi)型的吻合性，FSO做出刪除該文件的操作。


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

針對這樣的情況可使用如下函數

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                        

接著(zhù)就可判斷后再做文件的上傳

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

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

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

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

另外，請各位調試是否具有上傳漏洞：

www.164.cc/2006/upf/

先去試試

這次可以拉。。謝謝狼哥。。但是有一點(diǎn)，就是整體感覺(jué)這個(gè)文件不是太正規

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

所以感覺(jué)只能 上傳 圖片那幾個(gè)類(lèi)型。。下面的 txt呀 rar 等格式 都不可以上傳了。。