รหัสในการตรวจสอบว่ามีรหัสที่เป็นอันตรายในไฟล์ที่อัพโหลดมีดังนี้:
-
ฟังก์ชั่น CheckFileContent (ชื่อไฟล์)
Dim ClientFile, ClientText, ClientContent, DangerString, DSArray, AttackFlag, k
ตั้งค่า ClientFile=Server.CreateObject (Scripting.FileSystemObject)
ตั้งค่า ClientText=ClientFile.OpenTextFile(Server.MapPath(FileName),1)
ClientContent=LCase(ClientText.ReadAll)
ตั้งค่า ClientText=nothing
ตั้งค่า ClientFile=nothing
AttackFlag=เท็จ
DangerString=.getfolder|.createfolder|.deletefolder|.createdirectory|.deletedirectory|.saveas|wscript.shell|script.encode|server.|.createobject|ดำเนินการ|activexobject|ภาษา=|รวม|filesystemobject|shell.application
DSArray=split(DangerString,|)
สำหรับ k=0 ถึง UBound(DSArray)
ถ้า InStr(ClientContent,DSArray(k))>0 ดังนั้น 'ตรวจสอบว่าเนื้อหาไฟล์มีอักขระการดำเนินการที่เป็นอันตรายหรือไม่ หากเป็นเช่นนั้น จะต้องลบไฟล์ออก
AttackFlag=จริง
ออกเพื่อ
สิ้นสุดถ้า
ต่อไป
CheckFileContent=AttackFlag
ฟังก์ชั่นสิ้นสุด
ถ้า CheckFileContent(0.jpg)=true แล้ว
การตอบสนองเขียนอันตราย
อื่น
การตอบสนองเขียนความปลอดภัย
สิ้นสุดถ้า
-