AddHeader

AddHeader は、既存のヘッダーの追加、削除、または修正をするために起動された要求を修正します。

構文

AddHeader (STRING name, STRING value)

内容:

  • Name は文字列です (例: Content-Type)。 名前が既に存在する場合、その名前の値は指定された値で上書きされます。
  • Value は文字列です (例: text/html) 値が空の場合、ヘッダーが存在する場合は削除されます。
戻り値

戻されるデータはありません。

このスクリプトは、ログ ファイル パーサーに対するクロス サイト スクリプト攻撃を起動する試行において、いくつかのヘッダーを変更します。

Function Main

Dim HTTPObj As Object

Dim headers As Variant

ip = "www.gfi.com"

port = 80

cr = Chr(13) + Chr(10)

XSSTest = "<script>alert('The new GFI LanGuard features detection of Cross Site Scripting Detection')</script>"

Set HTTPobj = HTTP.Connect (ip,port)

' 試行するヘッダー

headers = Array ( "Host", "User-Agent", "Accept", "X-Header1" , "X-Proxy", "Cookie" )

HTTPobj.GetURL("/")

HTTPobj.Authentication = 1

'下記の挿入に使用される可能性のある各ヘッダーをループ処理

'XSS 署名。 毎回リクエストを送信

For a = LBound(headers) To UBound(headers)

HTTPobj.ClearRequestHeaders

HTTPobj.AddHeader headers(a), XSSTest

' カスタム ヘッダーで GET リクエストを送信

HTTPResponse = HTTPobj.SendRequest ()

echo CStr(a) + "結果: " + CStr(HTTPResponse)+cr

Next

End Function