A veces, los troyanos se cargan a través de programas, generalmente disfrazados de imágenes. El siguiente es el código para detectar troyanos de imágenes en asp. Los amigos que lo necesiten pueden consultarlo. Defensa troyana ASP:
Copie el código de código de la siguiente manera:
constante tipo de anuncioBinario = 1
tenue jpg(1):jpg(0)=CByte(&HFF):jpg(1)=CByte(&HD8)
tenue bmp(1):bmp(0)=CByte(&H42):bmp(1)=CByte(&H4D)
tenue png(3):png(0)=CByte(&H89):png(1)=CByte(&H50):png(2)=CByte(&H4E):png(3)=CByte(&H47)
gif tenue(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)
Respuesta.Escribir CheckFileType(Server.MapPath(2.gif))
función CheckFileType(nombre de archivo)
en caso de error reanudar siguiente
CheckFileType=falso
dim fstream,fileExt,sello,i
fileExt=mid(nombre de archivo,InStrRev(nombre de archivo,.)+1)
establecer fstream=Servidor.createobject(ADODB.Stream)
fstream.abierto
fstream.Type=tipo de anuncioBinary
fstream.LoadFromFile nombre de archivo
fstream.posición=0
seleccionar archivo de casoExt
caso jpg, jpeg
sello=fstream.read(2)
para i=0 a 1
si ascB(MidB(sello,i+1,1))=jpg(i) entonces CheckFileType=true de lo contrario CheckFileType=false
próximo
caso gif
sello=fstream.read(6)
para i=0 a 5
si ascB(MidB(sello,i+1,1))=gif(i) entonces CheckFileType=true de lo contrario CheckFileType=false
próximo
caso png
sello=fstream.read(4)
para i=0 a 3
si ascB(MidB(sello,i+1,1))=png(i) entonces CheckFileType=true de lo contrario CheckFileType=false
próximo
caso bmp
sello=fstream.read(2)
para i=0 a 1
si ascB(MidB(sello,i+1,1))=bmp(i) entonces CheckFileType=true de lo contrario CheckFileType=false
próximo
finalizar seleccionar
fstream.Cerrar
establecer fseteam=nada
si err.number<>0 entonces CheckFileType=false
función final
%>