Debemos haber oído hablar de la vulnerabilidad de carga ASP. El principio es modificar el nombre del sufijo de algunos archivos troyanos (al sufijo del archivo de imagen) y cargarlo.
Nota: CheckFileType no puede determinar archivos disfrazados de GIF89a.
Utilice la siguiente función para identificar esta situación:
<%
'************************************************ * ****************
'La función CheckFileType se utiliza para comprobar si el archivo es un archivo de imagen
'El nombre del archivo del parámetro es la ruta del archivo local
'Si es uno de los archivos jpeg, gif, bmp, png, la función devuelve verdadero, en caso contrario devuelve falso
'************************************************ * ****************
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)
función CheckFileType(nombre de archivo)
en caso de error reanudar siguiente
CheckFileType=falso
nombre de archivo=LCase(nombre de archivo)
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
%>
Luego al aplicar
CheckFileType(servidor.mappath(cnbruce.jpg))
o
CheckFileType(F:/web/164/images/cnbruce.jpg))
De todos modos, es para detectar y verificar el tipo de archivo de imagen de la dirección física local y devolver un valor verdadero o falso.
Por lo tanto, esta situación se aplica a la carga de imágenes. El método actual es permitir primero la carga del archivo de pseudoimagen y luego usar la función personalizada anterior para determinar si el archivo cumple con las especificaciones de la imagen. Caballo de Troya, FSO lo eliminará, como por ejemplo:
file.SaveAs Server.mappath(nombre de archivo) 'Guardar el archivo
Si no es CheckFileType(Server.mappath(nombre de archivo)), entonces
respuesta.escribir formato de imagen incorrecto
Establecer fso = CreateObject(Scripting.FileSystemObject)
Establecer ficn = fso.GetFile(Server.mappath(nombre de archivo))
ficn.delete
setficn=nada
establecer fso = nada
respuesta.fin
terminar si
La vulnerabilidad de carga ASP también usa /0 para manipular la ruta del archivo.
http://www.vevb.com/blog/showlog.asp?cat_id=32&log_id=635
Para esta situación, puede utilizar la siguiente función
función TrueStr(archivoVerdadero)
str_len=len(archivoVerdadero)
pos=Instr(archivoVerdadero,chr(0))
si pos=0 o pos=str_len entonces
TrueStr=verdadero
demás
TrueStr=falso
terminar si
función final
Luego podrá emitir un juicio antes de cargar el archivo.
si TrueStr(nombre de archivo)=false entonces
respuesta.escribir archivo ilegal
respuesta.fin
terminar si
archivo.Guardar como servidor.mappath(nombre de archivo)