Le code permettant de déterminer s'il y a du code dangereux dans le fichier téléchargé est le suivant :
<%
fonction CheckFileContent (FileName)
dim ClientFile, ClientText, ClientContent, DangerString, DSArray, AttackFlag, k
définir ClientFile = Server.CreateObject (Scripting.FileSystemObject)
set ClientText=ClientFile.OpenTextFile(Server.MapPath(FileName),1)
ClientContent=LCase(ClientText.ReadAll)
définir ClientText = rien
définir ClientFile = rien
AttackFlag = faux
DangerString=.getfolder|.createfolder|.deletefolder|.createdirectory|.deletedirectory|.saveas|wscript.shell|script.encode|server.|.createobject|execute|activexobject|langage=|include|filesystemobject|shell.application
DSArray=split(DangerString,|)
pour k=0 à UBound(DSArray)
if InStr(ClientContent,DSArray(k))>0 then 'Déterminez si le contenu du fichier contient des caractères d'opération dangereux. Si tel est le cas, le fichier doit être supprimé.
AttaqueFlag = vrai
sortie pour
finir si
suivant
CheckFileContent=AttackFlag
fonction de fin
Si CheckFileContent(0.jpg)=true alors
Réponse.Écrire Danger
autre
Réponse.Sécurité en écriture
finir si
%>