ClearRequestHeaders
Löscht alle Header, die zuvor mit der AddHeader-Methode festgelegt wurden.
Syntax
ClearRequestHeaders
Rückgabewert
Keine Rückgabedaten.
Beispiel
Dieses Skript verändert einige Header und versucht einen Cross Site Scripting-Angriff auf Protokolldateiparser:
Function Main
Dim HTTPObj as Object
Dim headers As Variant
ip = "www.gfi.com"
port = 80
cr = Chr(13) + Chr(10)
XSSTest = "<script>alert('Die neuen Funktionen von GFI LanGuard umfassen die Erkennung von Cross Site Scripting')</script>"
Set HTTPobj = HTTP.Connect (ip,port)
'Mögliche Header
headers = Array ( "Host", "User-Agent", "Accept", "X-Header1" , "X-Proxy", "Cookie" )
HTTPobj.GetURL("/")
HTTPobj.Authentication = 1
'Eine Schleife für jeden Header, über den eine
'XSS-Signatur injiziert werden kann. 'Jedes Mal eine Anforderung abschicken
For a = LBound(headers) To UBound(headers)
HTTPobj.ClearRequestHeaders
HTTPobj.AddHeader headers(a), XSSTest
'GET-Anforderung mit benutzerdefiniertem Header absenden
HTTPResponse = HTTPobj.SendRequest ()
echo CStr(a) + "Ergebnis: " + CStr(HTTPResponse)+cr
Next
End Function