위험 파일 검사

Dim Upload, upFile
'업로드를 처리할 오브젝트를 생성합니다.
Set Upload = Server.CreateObject("TABSUpload4.Upload")

'업로드를 시작합니다.
Upload.Start "C:\TEMP"

Dim vc, found, foundName
Set vc  = Server.CreateObject("TABSUpload4.VirusChecker")
If vc.Open(19978) Then
    Set upFile = Upload.Form("uploadFile")
    '확장자 검사를 통해 위험한 파일을 검색합니다.
    vc.CheckUnsafeFileType upFile, found, foundName
    If found Then
        Response.Write "위험한 " & foundName & " 파일이 검출되었습니다."
    Else
        '윈도우 PE 포맷 검사를 통해 실행 파일을 찾습니다.
        vc.CheckRunnableFile upFile, found, foundName
        If Found Then
            Response.Write "실행 가능한 " & foundName & " 파일이 검출되었습니다."
        Else
            Response.Write "위험한 스크립트 파일 또는 실행 가능한 파일이 발견되지 않았습니다."
            '검출되지 않을 경우 파일을 저장합니다.
            upFile.Save
        End If
    End If
    vc.Close
End If

[vcsystem]
vc_unsafe=.ade;.adp;.bat;.chm;.cmd;.com;.cpl;.exe;.hta;.ins;.isp;.jar;.js;.jse;.lib;.lnk;.mde;.msc;.msi;.msp;.mst;.nsh .pif;.scr;.sct;.shb;.sys;.vb;.vbe;.vbs;.vxd;.wsc;.wsf;.wsh;