في بعض الأحيان ، عند تحميل أحصنة طروادة من خلال البرامج ، يتم تنكّنها كصور.
أولاً ، حدد حجم الملف:
- iffile.filesize <10then
- Response.write (<script> ALERT ("لم تختار تحميل ملف") </script>)
- Response.write (<script> History.go (-1) </script>)
- استجابة.
- Endif
بعد تحميل الملف على الخادم ، حدد أحرف التشغيل الخطرة في ملف المستخدم:
- setMyFile = server.createObject (scripting.filesystemObject)
- setMyText = myfile.opentextFile (FilePath ، 1) 'قراءة الملف النصي
- stextall = lace (mytext.readall)
- mytext.close
- setMyFile = لا شيء
- SSTR = .getFolder | .Createfolder | .Deletefolder | .Createdirectory | .Deletedirectory | .Saveas
- | wscript.shell | script.encode | server
- snostring = انقسام (SSTR ، |)
- fori = 0toubund (snostring)
- Ifinstr (stextall ، snostring (i)) ثم
- setFileDel = server.createObject (scripting.filesystemObject)
- filedel.deletefilefilepath
- setFileDel = لا شيء
- Response.write (<script> ALERT ('هناك مشكلة في الملف الذي قمت بتحميله ، فشل التحميل') ؛ window.close () ؛ </script>)
- استجابة.
- Endif
- التالي
كيفية منع صور جنسية طروادة من التحميل
لقد راجعت هذا الرمز دون أي مشكلة ، يمكنه منع تحميل صور طروادة
- <٪
- '************************************************* ***** ***************
- "يتم استخدام وظيفة CheckFileType للتحقق مما إذا كان الملف ملف صورة
- اسم ملف المعلمة هو المسار إلى الملف المحلي
- "إذا كان ملف JPEG ، GIF ، BMP ، PNG صورة ، تُرجع الوظيفة بشكل صحيح ، وإلا فإنها تعود خاطئة
- '************************************************* ***** ***************
- constadtypebinary = 1
- dimjpg (1): jpg (0) = cbyte (& hff): jpg (1) = cbyte (& hd8)
- dimbmp (1): BMP (0) = cbyte (& h42): BMP (1) = cbyte (& h4d)
- dimpng (3): png (0) = cbyte (& h89): png (1) = cbyte (& h50): png (2) = cbyte (& h4e): png (3) = cbyte (& h47)
- Dimgif (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)
- استجابة. writecheckfiletype (server.mappath (2.gif))
- FunctionCheckFileType (اسم الملف)
- onerrorresumenext
- checkFileType = false
- dimfstream ، fileext ، ختم ، أنا
- filext = mid (اسم الملف ، instrev (اسم الملف ،.)+1)
- setfstream = server.createBject (adodb.stream)
- fstream.Open
- fstream.type = adtypebinary
- fstream.loadfromfilefilename
- fstream.position = 0
- seleccaseFileStext
- CASEJPG ، JPEG
- ختم = fstream.read (2)
- fori = 0to1
- IFACB (MIDB (Stamp ، i+1،1)) = jpg (i) wheCheckFileType = trueelseCheckFileType = false
- التالي
- CaseGif
- ختم = fstream.read (6)
- fori = 0to5
- IFACB (MIDB (Stamp ، i+1،1)) = GIF (i) thercheckfiletype = trueelsecheckfiletype = false
- التالي
- casepng
- ختم = fstream.read (4)
- fori = 0to3
- IFACB (MIDB (Stamp ، i+1،1)) = png (i) wheCheckFileType = trueelseCheckFileType = false
- التالي
- Casebmp
- ختم = fstream.read (2)
- fori = 0to1
- IFACB (MIDB (Stamp ، i+1،1)) = BMP (i) wheCHECKFILETYPE = TRUEELSECHECKFILETYPE = false
- التالي
- endselect
- fstream.close
- setFsetem = لا شيء
- iferr.number <> 0ThEckEckFileType = false
- الوظيفية
- ٪>
ما سبق هو تحليل مبدأ أحصنة طروادة يمنع تحميل الصور من ASP.