Parfois, lors du téléchargement des chevaux de Troie via des programmes, ils sont généralement déguisés en images.
Tout d'abord, déterminez la taille du fichier:
- iffile.filesize <10Then
- Réponse.write (<script> alert ('vous n'avez pas choisi de télécharger un fichier') </cript>)
- Réponse.Write (<Script> History.go (-1) </cript>)
- Réponse.end ()
- endire
Après avoir téléchargé le fichier sur le serveur, déterminez les caractères de fonctionnement dangereux dans le fichier de l'utilisateur:
- setMyFile = Server.CreateObject (Scripting.FileSystemObject)
- setMyText = MyFile.OpenTextFile (FilePath, 1) 'Lire le fichier texte
- stextall = lCase (mytext.readall)
- Mytext.close
- setMyfile = rien
- sstr = .getFolder | .CreateFolder | .DeleteFolder | .CreateDirectory | .deleteDirectory | .Saveas
- | wscript.shell | script.encode | serveur.
- Snostring = Split (sstr, |)
- fori = 0Toubund (snostring)
- iFinstr (stextall, snostring (i)) puis
- setFiledel = server.createObject (scripting.fileSystemObject)
- filedel.deletefilefilepath
- setFiledel = rien
- Réponse.write (<cript> alert ('il y a un problème avec le fichier que vous avez téléchargé, le téléchargement a échoué'); window.close (); </cript>)
- Réponse.end ()
- endire
- suivant
Comment empêcher le téléchargement de photos de sexe de Troie de télécharger
J'ai vérifié ce code sans aucun problème, il peut bloquer le téléchargement de photos de Troie
- <%
- '************************************************* ***** *************
- «La fonction de chèque est utilisée pour vérifier si le fichier est un fichier image
- 'Le nom de fichier du paramètre est le chemin d'accès au fichier local
- 'S'il s'agit d'un fichier jpeg, gif, bmp, png image, la fonction renvoie true, sinon il renvoie false
- '************************************************* ***** *************
- 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)
- Réponse.WriteCheckFileType (server.mappath (2.gif))
- FonctionCheckFileType (nom de fichier)
- onerrorresumenext
- CheckFileType = false
- dimfstream, filext, tampon, i
- FileExt = mid (nom de fichier, instrrère (nom de fichier,.) + 1)
- setfstream = server.createObject (Adodb.stream)
- fstream.open
- fstream.type = adtypebinar
- fstream.loadfromfilefilename
- fstream.position = 0
- selectCaseFileExt
- casejpg, jpeg
- Stamp = fstream.read (2)
- fori = 0to1
- ifacb (midb (tampon, i + 1,1)) = jpg (i) alorsCheckFileType = TrueELSECHECKFileType = false
- suivant
- Casegif
- Stamp = fstream.read (6)
- fori = 0to5
- ifacb (midb (tampon, i + 1,1)) = gif (i) thencheckfileType = TrueElSheckEckFileType = false
- suivant
- casepng
- Stamp = fstream.read (4)
- fori = 0to3
- ifacb (midb (tampon, i + 1,1)) = png (i) thencheckFileType = TrueELSECheckFileType = false
- suivant
- casebmp
- Stamp = fstream.read (2)
- fori = 0to1
- ifacb (midb (tampon, i + 1,1)) = bmp (i) thencheckFileType = TrueElSeCheckFileType = false
- suivant
- se licez
- fstream.close
- setfsetem = rien
- iferr.number <> 0TheNcheckFileType = false
- finition de fin
- %>
Ce qui précède est l'analyse du principe des chevaux de Troie empêchant le téléchargement de photos de l'ASP.