AddHeader
AddHeader modifica una solicitud iniciada para agregar, eliminar o modificar un encabezado existente.
Sintaxis
AddHeader (name de CADENA, value de CADENA)
Donde:
Name
es una cadena (por ejemplo,Content-Type
). Si el nombre ya existe, el valor de dicho nombre se sobrescribirá con el valor especificado.Value
es una cadena (por ejemplo,text/html
). Cuando el valor esté vacío, el encabezado se eliminará si ya existe.
Valor devuelto
No se devuelven datos.
Ejemplo
Este script modificará algunos encabezados en un intento por iniciar un ataque de scripts entre sitios en analizadores de archivos de registro:
Function Main
Dim HTTPObj As Object
Dim headers As Variant
ip = "www.gfi.com"
port = 80
cr = Chr(13) + Chr(10)
XSSTest = "<script>alert('El nuevo GFI LanGuard incorpora la detección de scripts entre sitios')</script>"
Set HTTPobj = HTTP.Connect (ip,puerto)
'encabezados para probar
headers = Matriz ( "Host", "Usuario-Agente", "Accept", "X-Header1" , "X-Proxy", "Cookie" )
HTTPobj.GetURL("/")
HTTPobj.Authentication = 1
'un ciclo para cada encabezado que se podría utilizar para
'inyectar una firma XSS. Enviar una solicitud en cada ocasión
For a = LBound(encabezados) To UBound(encabezados)
HTTPobj.ClearRequestHeaders
HTTPobj.AddHeader headers(a), XSSTest
'Enviar la solicitud GET con los encabezados personalizados
HTTPResponse = HTTPobj.SendRequest ()
echo CStr(a) + " result: " + CStr(HTTPResponse)+cr
Siguiente
End Function