[MainWindow.SystemWatch] @ = $TaskTab ext(1) WorkArea = [MainWindow.SystemWatch_WorkArea] [MainWindow.SystemWatch_WorkArea] @ = $TaskWorkArea Home = [ProfileHome] $TaskPanel alias(taskview) ns(SystemWatch) subst(Tasks([MainWindow.Hips.Tasks]) Group1([MainWindow.SystemWatch_WorkArea_Home_Body]) Group2([MainWindow.SystemWatch_WorkArea_SysPerf])) [MainReport.SystemWatch] @ = [ProfileReport] subst(Group1([MainReport.SystemWatch_Events]) Stat(use(f_isInstalled("Firewall"))) Group2([MainWindow.SystemWatch_WorkArea_List]) Group3(use(0))) [MainReport.SystemWatch_Events] d = [Product_Events] subst(Report(v(#eTASK_GROUP_HIPS) filter(TaskGroup == #eTASK_GROUP_HIPS) prm(#dbRTP)) views([MainWindow.Hips_Filters])) [MainWindow.SystemWatch_WorkArea_List] @ = $List alias(appstat) prm(6) refresh(100) a(la) group(dateonly,dategroup(Date),default) use(f_isInstalled("Firewall")) ext(1) Application = at(fixedpos) ia(lc) sz(200) group(AppItem,AppId,default) sort($AppGroup,sortdown) TrafficIn = text(f_ObjSize(TrafficIn)) a(r) TrafficOut = text(f_ObjSize(TrafficOut)) a(r) row = f(depend(!level) ? "Normal_Bold" : "Normal") [HipsRules] @ = $Dlg at(resizable) mg(0,0) sz(698,450) alias(taskedit) ns(Hips) Hdr = [ProductHeader] sz(p,53) Tab = [HipsRules_Tab] xy(7,7,7,45) [HipsRules_Tab] @ = $Tab a(la) Rules = [HipsRules_Tab_Rules] h(5020) Resources = [HipsRules_Tab_Resources] use(!p_fwTabs) h(5031) Resources = [HipsRules_Tab_NetResources] use(p_fwTabs && f_isInstalled("Firewall")) h(5031) Devices = [HipsRules_Tab_Devices] use(!p_fwTabs) h(5032) Packets = [HipsRules_Tab_Packets] use(p_fwTabs && f_isInstalled("Firewall")) h(5034) Nets = [HipsRules_Tab_Nets] use(p_fwTabs && f_isInstalled("NetWatch")) h(5122) [HipsRules_Tab_Resources] @ = sz(p,p) h(5031) Split = [HipsRules_Tab_Resources_Split] [HipsRules_Tab_Resources_Split] @ = t(splitter) sz(p,p) at(vertical,rememberdata) GrpList = [HipsRules_Tab_Resources_GrpList] ResList = [HipsRules_Tab_Resources_ResList] [HipsRules_Tab_Resources_GrpList] @ = $List at(noheader,singlesel,noroot) alias(tree.ResGroup) v(Resource) childs(Childs) oninit(l_fwInstalled = f_isInstalled("Firewall")) filter(!Data && !(Flags & #rfResourceView) && (l_fwInstalled ? true : Id != #riKLWebServices && Id != #riIPRanges)) id(Name) Group = sz(a) text(s_ResGroupName(Name)) i(s_ResGroupIcon(Name)) footer = [Grid.Footer2.Template] subst(Add(onclick(dialog("Hips_GroupNameEdit"))) Edit(enable(canEdit() && Id & #HIPS_RESID_FLAG_USER)) Delete(enable(canDelete() && Id & #HIPS_RESID_FLAG_USER))) [HipsRules_Tab_Resources_ResList] @ = $List at(noheader) alias(vector.HipsResources) filter(Data) Resource = sz(a) at(checked) i(s_ResourceDescriptionIcon(serid(Data))) text(s_ResourceDescription(serid(Data))) v(bmask(Flags,#rfEnabled)) footer = [Grid.Footer2.Template] subst(Add(enable(parentGroup && !(parentGroup.Flags & #rfDisableEdit)) onclick(if(f_ResourceType(parentGroup.Flags), (Flags = Flags | #rfCreateByUser; Id = getHipsNewResID(); ParentID = parentGroup.Id; l_serID = s_ResourceSerID(Flags & #rtMask); Data.serinit(l_serID); if(s_ResourceDialog(l_serID), (if(!(parentGroup.Flags & #rtMask), mask(parentGroup.Flags, #rtMask) = Flags & #rtMask); true)))))) Edit(enable(canEdit() && !(Flags & #rfDisableEdit) && (Id & #HIPS_RESID_FLAG_USER)) onclick(s_ResourceDialog(serid(Data)))) Delete(enable(canDelete() && !(Flags & #rfDisableEdit) && Id & #HIPS_RESID_FLAG_USER))) [HipsRules_Tab_NetResources] @ = sz(p,p) h(5031) Split = [HipsRules_Tab_NetResources_Split] [HipsRules_Tab_NetResources_Split] @ = t(splitter) sz(p,p) at(vertical,rememberdata) Srv = [HipsRules_Tab_NetResources_Srv] Addr = [HipsRules_Tab_NetResources_Addr] [HipsRules_Tab_NetResources_Srv] @ = $List alias(vector) v($rfKLWebServices.Childs) Resource = sz(a) at(checked) i(s_ResourceDescriptionIcon(serid(Data))) text(s_ResourceDescription(serid(Data))) v(bmask(Flags,#rfEnabled)) footer = [Grid.Footer2.Template] subst(Add(onclick(Id = getHipsNewResID(); ParentID = #riKLWebServices; Data.serinit(#stWebService); dialog("WebServiceEdit"))) Edit(onclick(dialog("WebServiceEdit"))) Delete(enable(canDelete() && Id & #HIPS_RESID_FLAG_USER))) [HipsRules_Tab_NetResources_Addr] @ = $List alias(vector) v($rfKLIPRanges.Childs) Resource = sz(a) at(checked) i(s_ResourceDescriptionIcon(serid(Data))) text(s_ResourceDescription(serid(Data))) v(bmask(Flags,#rfEnabled)) footer = [Grid.Footer2.Template] subst(Add(onclick(Id = getHipsNewResID(); ParentID = #riIPRanges; Data.serinit(#stIpRange); dialog("IpRangeEdit"))) Edit(onclick(dialog("IpRangeEdit"))) Delete(enable(canDelete() && Id & #HIPS_RESID_FLAG_USER))) [HipsRules_Tab_Rules] @ = $List at(singlesel,noroot) alias(tree.AppGroups) v(Application) childs(Childs) unique(Id == newItem.Id,0) id(Name) h(5020) Name = [HipsRules_Tab_Rules_Name] footer = [HipsRulesList.Footer] [HipsRules_Tab_Rules_Name] @ = sz(200) at(dragable,fixedpos) text(Id & #HIPS_APPID_FLAG_GROUP ? s_AppGroupName(Name) : s_AppName(Id)) i(Id & #HIPS_APPID_FLAG_GROUP ? "appgroup" : getIconAsync(Name, "unkobj")) Name = sz(200) text(Id & #HIPS_APPID_FLAG_GROUP ? s_AppGroupName(Name) : objfile(Name)) i(Id & #HIPS_APPID_FLAG_GROUP ? "appgroup" : getIconAsync(Name, "unkobj")) Path = sz(250) text(if(!(Id & #HIPS_APPID_FLAG_GROUP), objdir(Name))) [HipsRulesList.Footer] @ = f("GridGroup") sz(p,22) rs(100,0) ext(1) Add = t(hotlink) sz(a,a) a(lc) xy(5) i("listctrls,0") f("Hotlink_Normal") enable(canAdd() && Id & #HIPS_APPID_FLAG_GROUP) onclick(browsefileopen(Name, $BrowseForExecutable, "exe")) AddGroup = t(hotlink) sz(a,a) a(ac) xy(7) i("listctrls,0") f("Hotlink_Normal") enable(canAdd() && Id & #HIPS_APPID_FLAG_GROUP) onclick(add(dialog("Hips_AppGroupNameEdit"))) Edit = t(hotlink) sz(a,a) a(ac) xy(7) i("listctrls,1") f("Hotlink_Normal") enable(depend(canEdit())) onclick(dialog("AppRulesEdit", p_image(Name), p_appID(Id))) Delete = t(hotlink) sz(a,a) a(ac) xy(7) i("listctrls,2") f("Hotlink_Normal") enable(canDelete() && (Id & #HIPS_APPID_FLAG_GROUP ? Id & #HIPS_APPID_FLAG_USER && !Childs.size() : true)) onclick(isAppRunning(Id) ? balloon("AppIsRunning") : true) Move = t(hotlink) sz(a,a) a(ac) xy(7) i("listctrls,4") f("Hotlink_Normal") enable(canDelete() && (Id & #HIPS_APPID_FLAG_GROUP ? Id & #HIPS_APPID_FLAG_USER && !Childs.size() : true)) onclick(menu("HipsRules_Tab_Rules.Menu")) border = a(lt) sz(p,2) bg("GridGroup") [HipsRules_Tab_Rules.Menu] @ = t(menu) Trusted = text(s_AppGroupName("KLAppTrusted")) enable(hipsGetRootGroup(ctl.Rules.seldata().Id) != "KLAppTrusted") onclick(ctl.Rules.moveTo("Name == \"KLAppTrusted\"")) Low = text(s_AppGroupName("KLAppRestrictedLow")) enable(hipsGetRootGroup(ctl.Rules.seldata().Id) != "KLAppRestrictedLow") onclick(ctl.Rules.moveTo("Name == \"KLAppRestrictedLow\"")) High = text(s_AppGroupName("KLAppRestrictedHi")) enable(hipsGetRootGroup(ctl.Rules.seldata().Id) != "KLAppRestrictedHi") onclick(ctl.Rules.moveTo("Name == \"KLAppRestrictedHi\"")) Untrusted = text(s_AppGroupName("KLAppUntrusted")) enable(hipsGetRootGroup(ctl.Rules.seldata().Id) != "KLAppUntrusted") onclick(ctl.Rules.moveTo("Name == \"KLAppUntrusted\"")) [HipsRules_Tab_Packets] @ = sz(p,p) h(774) Zone = [LValue] subst(Name() Val([HipsRules_Tab_Packets_View])) DefRule = $Check xy(,7) onchange(ctl.List.setfilter(if(!ctl.value, "!isDefSrc()"), 2)) List = [PacketRuleList] a(la) xy(,7,,27) v(vRuleList) filter(RuleTypeId == #HIPS_RULE_TYPE_PACKET || RuleTypeId == #HIPS_RULE_TYPE_FW) group(FwAppGroup,AppIdEx) oninit(ctl.setfilter("!isDefSrc()", 2)) subst(footer(subst(Add(onclick(f_fwRuleAdd(val)))))) Extra = $Button_Large a(rb) onclick(dialog("FwSettings")) [HipsRules_Tab_Packets_View] @ = $Combo sz(200,20) a(at) xy(7) rs(0,0) oninit($rfKLNetwork.Childs.foreach("ctl.add(s_ResGroupName(Name), Id)")) onchange(ctl.List.setfilter(s_AddrFilter(ctl.value), 1)) All = v(-1) [HipsRules_Tab_Devices] @ = sz(p,p) h(5032) Info = sz(p,a) i("warning") ia(lt) List = [HipsRules_Tab_Devices_List] [HipsRules_Tab_Devices_List] @ = $List a(la) xy(,7) at(expandall) alias(tree.ResRule) v(Resource) childs(Childs) root(Name == "KLDevices") Name = sz(350) text(s_ResGroupName(Name)) i(s_DevicesGroupIcon(Name, !Childs.size())) Action = sz(80) at(clickable) text("") ia(c) i(f_DeviceRuleIcon(depend(Rule.AccessFlag))) onrclick(menu("HipsRules_Tab_Devices.Menu")) [HipsRules_Tab_Devices.Menu] @ = [HipsAppRuleMenu] v(mask(EditRule.AccessFlag, #HIPS_FLAG_ALL_ACTIONS_INH)) subst(Ask(use(0)) Log(use((EditRule.AccessFlag & #HIPS_FLAG_ALL_ACTIONS) == #HIPS_FLAG_DENY) v(bmask(EditRule.AccessFlag, #HIPS_FLAG_LOG)))) onchanging(if((ctl.value == #HIPS_FLAG_DENY && (Name == "KLUSBPhisicalInt" || Name == "KLDevicesUSB")), msg("ConfirmDenyDevice", #m_yesno))) [HipsRules_Tab_Nets] @ = $List alias(vector.Networks) v(NetWatch.Zones) group(AdapterID,AdapterID,default) filter(State & #znVisible) Name = sz(300) text(FrendlyName) i(s_NetZoneTypeIcon(Severity)) enable(State & #znConnected) Status = sz(100) text(f_NetConnected(State & #znConnected)) Severity = sz(160) text(s_NetSeverity(Severity, Settings & #znStealth)) row = at(clickable) onrclick(if(!isNode,menu("HipsRules_Tab_Nets.Menu"))) footer = [Grid.Footer2.Template] subst(Add(use(0)) Edit(onclick(isNode ? dialog("AdapterEdit", p_data(NetWatch.Adapters.find("ID == val"))) : dialog("NetworkEdit"))) Delete(enable(!isNode && !(State & #znConnected) && TypeOfInterface != #If_Internet))) [HipsRules_Tab_Nets.Menu] @ = t(menu) at(enum) v(Severity) Untrusted = at(radiolike) v(#znUntrusted) Local = at(radiolike) v(#znNetBIOS) enable(TypeOfInterface != #If_Internet) Trusted = at(radiolike) v(#znTrusted) enable(TypeOfInterface != #If_Internet) ;Separator ;Stealth = at(chklike) v(bmask(Settings,#znStealth)) use(Severity == #znUntrusted) [Grid.Groups] AdapterID = [Grid.Group.Template] expand(1) bp(l_adapterInfo = NetWatch.Adapters.find("ID == val")) text(l_adapterInfo.TypeOfInterface == #If_OtherNetwork ? $OtherNetworks : l_adapterInfo.FrendlyName) i(f_NetAdapterIcon(l_adapterInfo.TypeOfInterface, -1, l_adapterInfo.State, 0)) HipsRuleColumn = at(clickable) sz(100) ia(cc) i(s_RuleState(depend(State))) tt(s_RuleStateTxt(depend(State))) onrclick(menu("HipsRuleColumn.Menu")) text() FwAppGroup = [Grid.Group.Template] expand(!val) i(val ? s_AppIcon(val) : "unkobj") text(val ? s_AppName(val) + " (" + f_AppInfo(val).sImagePath + ")" : $PacketRules) [MainWindow.Hips_Filters] @ AllItems = v("1200010003b2;Ti14100000a40000000000000000;Ap00000000d4;Pa0000000033;Na0000000037;PI0000000035;Co0000000035;Ta1002000050;Ac10000000a0;Ob1000000104;Ty100000003c;Pa2000000064;Na2000000064;Ve1000000096;De000000001e;De100000001e;De100000001e;De100000001e;Ex100000001e;Re2002000050;") ByApp = v("120001000322;Ti10100000a4;Ap04020000d4;Pa0000000033;Na0000000037;PI0000000035;Co0000000035;Ta1002000050;Ac10000000a0;Ob1000000148;Ty100000003c;Pa200000008c;Na2000000080;Ve1000000096;De000000001e;De100000001e;De100000001e;De100000001e;Ex100000001e;Re2002000050;") at(default) [MainWindow.SystemWatch_WorkArea_Home_Body] @ = ext(1) HipsTask = [MainWindow.SystemWatch.Hips] xy(,,,7) use(f_isInstalled(ctl.id)) Firewall = [MainWindow.SystemWatch.Fw] xy(,,,7) use(f_isInstalled(ctl.id)) pdm = [MainWindow.SystemWatch.pdm] xy(,,,7) use(f_isInstalled(ctl.id)) KavDescr = $KavDescr text($KavDescr_sw) [MainWindow.SystemWatch_WorkArea_SysPerf] @ = sz(p,p) ext(1) Traffic = [ProfileHome_Chart] subst(Name() Chart([MainWindow.SystemWatch_WorkArea_SysPerf_Chart]) Legend([MainWindow.SystemWatch_WorkArea_SysPerf_Legend]) ) use(f_isInstalled("Firewall")) visible(!ctl.parent.Detected.visible || Gui.SystemWatchChartMode == 0) Detected = [ProfileHome_Chart] subst(Name() Chart([MainWindow.SystemWatch_WorkArea_SysPerf_Chart_Detected]) Legend([MainWindow.SystemWatch_WorkArea_SysPerf_Legend_Detected]) ) use(f_isInstalled("HipsTask") || f_isInstalled("pdm")) visible(!ctl.parent.Traffic.visible || Gui.SystemWatchChartMode == 1) [MainWindow.SystemWatch_WorkArea_SysPerf_Legend] Legend1 = [ChartLegend] subst(Text() Color(bg("Chart2"))) Legend2 = [ChartLegend] subst(Text() Color(bg("Chart5"))) [MainWindow.SystemWatch_WorkArea_SysPerf_Chart] @ = t(chart) alias(chartsink) cprops(line,diff,60) refresh(1000) at(noborder, clickable) type(bytes) onclick($ProfileHome_Report) onrclick(if(f_isInstalled("Firewall") && (f_isInstalled("HipsTask") || f_isInstalled("pdm")), menu("SystemWatchChartMenu"))) Report = $Link a(lt) xy(20) text($Reports) onclick(window("MainReport:SystemWatch")) line1 = t(chartline) id(Hips_InBytes) bg("Chart2") tt($TipText_Hips_InBytes) line2 = t(chartline) id(Hips_OutBytes) bg("Chart5") tt($TipText_Hips_OutBytes) Plot = t(chartplotarea) f("PlotAreaFont") AxisY = $DynamicChartAxisY AxisX = $DynamicChartAxisX [MainWindow.SystemWatch_WorkArea_SysPerf_Legend_Detected] Legend1 = [ChartLegend] subst(Text() Color(bg("Chart1"))) f_isInstalled("HipsTask") Legend2 = [ChartLegend] subst(Text() Color(bg("Chart6"))) f_isInstalled("pdm") [MainWindow.SystemWatch_WorkArea_SysPerf_Chart_Detected] @ = t(chart) alias(chartsink) cprops(line,diff,60) refresh(1000) at(noborder, clickable) type(bytes) onclick($ProfileHome_Report) onrclick(if(f_isInstalled("Firewall") && (f_isInstalled("HipsTask") || f_isInstalled("pdm")), menu("SystemWatchChartMenu"))) Report = $Link a(lt) xy(20) text($Reports) onclick(window("MainReport:SystemWatch")) line1 = t(chartline) id(Hips_UntrustAppCount) bg("Chart1") tt($TipText_Hips_UntrustAppCount) f_isInstalled("HipsTask") line2 = t(chartline) id(pdm_TreatsCount) bg("Chart6") tt($TipText_pdm_TreatsCount) f_isInstalled("pdm") Plot = t(chartplotarea) f("PlotAreaFont") AxisY = $DynamicChartAxisY AxisX = $DynamicChartAxisX [SystemWatchChartMenu] @ = t(menu) bg1("MenuIconBg") at(enum) v(Gui.SystemWatchChartMode) SwitchToTraffic = at(radiolike) v(#ChartMode_CheckedObjects) SwitchToDetected = at(radiolike) v(#ChartMode_DetectedObjects) [MainWindow.SystemWatch.SysWatch] @ = $TaskSubGroup Check = [TaskCheck] Descr = sz(a,a) a(la) xy(23,5) [MainWindow.SystemWatch.Hips] @ = $TaskSubGroup Check = [TaskCheck] Sett = $Link a(rt) onclick(windowDlg("HipsRules:Rules")) SettDet = [OptionsWindow_Navigator_WorkArea_SystemWatch_Body_Hips_Sett] $TaskValShift [MainWindow.SystemWatch.Fw] @ = $TaskSubGroup Check = [TaskCheck] Mode = $TaskVal subst(Name() Val($Link a(rt) text(s_FwWorkMode(Hips.FirewallSettings.WorkingMode)) onclick(menu("[Hips_FwWorkModeMenu]")))) NetPackets = $TaskVal subst(Name() Val($Link onclick(windowDlg("HipsRules:Packets", p_fwTabs(true))))) [MainWindow.SystemWatch.pdm] @ = $TaskSubGroup Check = [TaskCheck] DetectMethods = $TaskVal subst(Name() Val($Link onclick(windowDlg("PdmSettings")))) [MainWindow.Hips.Tasks] @ = ext(1) NetMon = [Task.NetMon] Security = [Task.SecurityWizard] [Hips_ResStateMenu] @ = t(menu) at(enum) Allow = at(radiolike) v(#ehsssAllow) text(s_HipsSubSystemState(#ehsssAllow)) AsAppCfg = at(radiolike) v(#ehsssApp) text(s_HipsSubSystemState(#ehsssApp)) Deny = at(radiolike) v(#ehsssDeny) text(s_HipsSubSystemState(#ehsssDeny)) extprm(1) use(0) sep Settings = text($Settings) extprm(1) [Hips_FwWorkModeMenu] $txt = text(const(s_FwWorkMode(ctl.value))) @ = t(menu) at(enum) v(Hips.FirewallSettings.WorkingMode) Allow = at(radiolike) $txt v(#fwAllowAll) ByRule = at(radiolike) $txt v(#fwAllow) Block = at(radiolike) $txt v(#fwBlockAll) [FwSettings] @ = $Dlg sz(300,a) h(7455) FtpTracking = $Check v(bmask(FirewallSettings.Flags, #fwFtpTracking)) NoGuiAction = $Check xy(,7) v(bmask(FirewallSettings.Flags, #fwCantAskDeny)) OnShutdown = $Check xy(,7,,$DialogPanelSizeY) v(bmask(FirewallSettings.Flags, #fwNotShutDown)) ;------------ FileInfo_Tab --------------------- [FileInfo_Tab] @ = sz(p,p) File = [LValue] xy(,7) subst(Name() Val(xy(110) text(ModuleInfo.sImagePath))) FileNotExist = [FileInfo_Tab_IfFileNotExist] GroupPInfo = [FileInfo_Tab_GroupProductInfo] GroupSign = [FileInfo_Tab_GroupSignature] [FileInfo_Tab_IfFileNotExist] @ = $SettingsGroup xy(-7,) a(la) use( !(AppDFlags & 0x01) ) ;File = [LValue] xy(,) subst(Name() Val(xy(110) text(ModuleInfo.sImagePath))) Descr = a(la) sz(p,a) xy(110,14) [FileInfo_Tab_GroupProductInfo] @ = $SettingsGroup xy(-7,10) a(la) use(AppDFlags & 0x01) ;File = [LValue] xy(,) subst(Name() Val(xy(80) text(ModuleInfo.sImagePath))) Vendor = [LValue] xy(,) subst(Name() Val(xy(110) text(ModuleInfo.sVendor))) Product = [LValue] xy(,$Control_Shift) subst(Name() Val(xy(110) text(ModuleInfo.sProduct))) Version = [LValue] xy(,$Control_Shift) subst(Name() Val(xy(110) text(ModuleInfo.sVersion))) Size = [LValue] xy(,10) subst(Name() Val(xy(110) text(f_ObjSize(ModuleInfo.nObjectSize)))) Created = [LValue] xy(,$Control_Shift) subst(Name() Val(xy(110) text(ModuleInfo.tCreation > 0 ? datetime(ModuleInfo.tCreation) : ""))) Modified = [LValue] xy(,$Control_Shift) subst(Name() Val(xy(110) text(datetime(ModuleInfo.tModify)))) [FileInfo_Tab_GroupSignature] @ = $SettingsGroup xy(-7,10) a(la) use(AppDFlags & 0x01) Group = [LValue] xy(,) subst(Name(a(lt)) Val(xy(110) f("Normal_Bold") text(f_AppGroupName(strGroupPath) + $AppGroupByUser ))) use(strGroupPath) Rating = [LValue] xy(,$Control_Shift) subst(Name(a(lt)) Val(xy(110) text(s_PMRating(Rating)))) ScanResult = [LValue] xy(,$Control_Shift) subst(Name(a(lt)) Val(xy(110) text(ScanResult.DetectName))) use(ScanDetected && ScanResult.DetectName) KLDataBase = [LValue] xy(,$Control_Shift) subst(Name(a(lt)) Val(xy(110) text(s_KLDbStatus(KlsrlInfo.errStatus)))) use(!Signature.sSignerOrganization) Origin = [LValue] xy(,$Control_Shift) subst(Name(a(lt)) Val(xy(110) text(f_ProcessInfo(EventCreated.PID).Module.sImagePath))) use(EventCreated.PID) Sign = [LValue] xy(,$Control_Shift) subst(Name(a(lt)) Val(xy(110) text(f_SignStatus()))) SignDate = [LValue] xy(,$Control_Shift) subst(Name(a(lt)) Val(xy(110) text(datetime(Signature.dtSignedTime)))) use(Signature.dtSignedTime) ;---------- AppRulesEdit ------------ [AppRulesEdit] @ = $Dlg at(resizable) sz(400,500) alias(appprop) ns(Hips) Hdr = [AppRulesEdit_Hdr] Separator = [AppRulesEdit_Separator] Tab = [AppRulesEdit_Tab] [AppRulesEdit_Hdr] @ = a(la) sz(p,a) rs(100,0) xy(-7,-7,-7) mg(7,7,7,7) bg("ColorWindow") Ico = sz(32,32) i(const(appID & #HIPS_APPID_FLAG_GROUP ? "appgroup.big" : getIcon(ModuleInfo.sImagePath, "unkapp", 1))) Name = a(ac) xy(7) sz(p,a) f("Header1") text(const(appID & #HIPS_APPID_FLAG_GROUP ? s_AppGroupName(ModuleInfo.sImagePath) : f_UnknownApp(ModuleInfo.sDescription, ModuleInfo.sImagePath))) [AppRulesEdit_Separator] @ = sz(p,1) a(la) b(Group) xy(-7,,-7) rs(100,0) [AppRulesEdit_Tab] @ = $Tab a(la) xy(,7,,$DialogPanelSizeY) rs(100,100) Image = [FileInfo_Tab] use(!(appID & #HIPS_APPID_FLAG_GROUP)) h(5037) Group = [AppRulesEdit_Tab_Group] h(5037) Runtime = [AppRulesEdit_Tab_Runtime] h(5038) Rules = [AppRulesEdit_Tab_Rules] h(5039) History = [AppRulesEdit_Tab_History] h(5046) Excludes = [AppRulesEdit_Tab_Excludes] h(5157) [AppRulesEdit_Tab_Runtime] @ = sz(p,p) use(!(appID & #HIPS_APPID_FLAG_GROUP)) Process = [AppRulesEdit_Tab_Runtime_OpenProcesses] LParents = a(la) sz(p,a) xy(, 7) use(Parents.size()) Parents = [AppRulesEdit_Tab_Runtime_Parents] ExecInf = [AppRulesEdit_Tab_Runtime_GroupExecute] Changes = [AppRulesEdit_Tab_Changes] [AppRulesEdit_Tab_Runtime_OpenProcesses] @ = $List a(lt) sz(p,70) alias(vector) v(Processes) PID = sz(100) text(nID) User = sz(200) text(sName) [AppRulesEdit_Tab_Runtime_Parents] @ = $List a(la) xy(, 7) sz(p,100) alias(vector) v(Parents) use(Parents.size()) row = bg(s_ProcessBackndByGroupName(sName)) Name = sz(200) text(s_AppName(nID)) Group = sz(100) text(s_AppGroupName(sName)) [AppRulesEdit_Tab_Runtime_GroupExecute] @ = $SettingsGroup xy(-7,10) a(la) use(nExecuteCountTotal) ExecCount = [LValue] xy(,) subst(Name() Val(xy(150) text( nExecuteCountFromLastChange + if( (nExecuteCountFromLastChange != nExecuteCountTotal), " (" + nExecuteCountTotal + ")" ))))) LastExec = [LValue] xy(,7) subst(Name() Val(xy(150) text(datetime(nLastExecuteTime)))) [AppRulesEdit_Tab_Changes] @ = $SettingsGroup xy(-7,10) use(OwnerPid) Created = [AppRulesEdit_Tab_Changes_Created] Modified = [AppRulesEdit_Tab_Changes_Modified] Deleted = [AppRulesEdit_Tab_Changes_Deleted] [AppRulesEdit_Tab_Changes_Created] @ = a(la) sz(p, a) use(EventCreated.PID) Created = [LValue] xy(,7) subst(Name() Val(xy(150) text(datetimeDT(EventCreated.Timestamp)))) Descr = a(as) xy(,) text(f_ProcessInfo(EventCreated.PID).Module.sImagePath) [AppRulesEdit_Tab_Changes_Modified] @ = a(la) sz(p, a) use(EventModified.PID) Modified = [LValue] xy(,7) subst(Name() Val(xy(150) text(datetimeDT(EventModified.Timestamp)))) Descr = a(as) xy(14,) text(f_ProcessInfo(EventModified.PID).Module.sImagePath) [AppRulesEdit_Tab_Changes_Deleted] @ = a(la) sz(p, a) use(EventDeleted.PID) Deleted = [LValue] xy(,7) subst(Name() Val(xy(150) text(datetimeDT(EventDeleted.Timestamp)))) Descr = a(as) xy(14,) text(f_ProcessInfo(EventDeleted.PID).Module.sImagePath) ;----------- [AppRulesEdit_Tab_Rules] @ = sz(p,p) use(Application.treeFind("Childs", "Id == appID") && f_isInstalled("Hips")) Inherit = $Check a(lb) xy(,,,7) ns(Application.treeFind("Childs", "Id == appID")) v(invert(bmask(Flags, #HIPS_APP_FLAG_NOINHERIT))) use(!(appID & #HIPS_APPID_FLAG_GROUP)) Lists = [AppRulesEdit_Tab_Rules_Lists] a(lp) [AppRulesEdit_Tab_Rules_Lists] @ = sz(p,p) Select = [AppRulesEdit_Tab_Rules_Select] Files = [AppRulesEdit_Tab_Rules_Files] Permiss = [AppRulesEdit_Tab_Rules_Permiss] Net = [PacketRuleList] xy(,27) v(vRuleList) visible(ctl.parent.Select.value == "Net") filter(AppIdEx == appID && RuleTypeId == #HIPS_RULE_TYPE_FW) subst(footer(subst(Add(enable(!(appID & #HIPS_APPID_FLAG_GROUP)) onclick(f_fwRuleAdd(appID)))))) use(f_isInstalled("Firewall")) [AppRulesEdit_Tab_Rules_Select] @ = t(combo) a(la) sz(p,20) at(rememberdata) Files Permiss Net = use(f_isInstalled("Firewall")) [AppRulesEdit_Tab_Rules_Files] $Col = sz(a) ia(cc) text("") at(clickable) @ = $List xy(,27) at(noroot) alias(tree.ResRule) v(Resource) childs(Childs) filter(!Data && !(Flags & #rfFilesRegistryView)) visible(ctl.parent.Select.value == "Files") id(Name) Name = sz(200) text(s_ResGroupName(Name)) Read = $Col i(f_AppRuleIcon(depend(Rule.AccessFlag) >> 4)) onrclick(menu("HipsAppRuleMenu.1")) Write = $Col i(f_AppRuleIcon(depend(Rule.AccessFlag))) onrclick(menu("HipsAppRuleMenu.0")) Remove = $Col i(f_AppRuleIcon(depend(Rule.AccessFlag) >> 12)) onrclick(menu("HipsAppRuleMenu.3")) Create = $Col i(f_AppRuleIcon(depend(Rule.AccessFlag) >> 8)) onrclick(menu("HipsAppRuleMenu.2")) [AppRulesEdit_Tab_Group] @ = sz(p,p) use((appID & #HIPS_APPID_FLAG_GROUP) && (s_AppGroupDetails(ModuleInfo.sImagePath) || bindok("Name"))) Name = [LValue] subst(Name() Val(t(edit) v(inout(s_AppGroupName(Name), Name)) onok(if(!Name, balloon("NeedName"))))) enable(const(appID & #HIPS_APPID_FLAG_USER)) use(bindok("Name")) Descr = [AppRulesEdit_Tab_Group_Descr] [AppRulesEdit_Tab_Group_Descr] @ = $SettingsGroup use(s_AppGroupDetails(ModuleInfo.sImagePath)) Details = a(la) sz(p,a) text(s_AppGroupDetails(ModuleInfo.sImagePath)) [AppRulesEdit_Tab_Rules_Permiss] @ = $List at(expandall) a(lt) xy(,27) alias(tree.ResRule) v(Resource) childs(Childs) root(Name == "KLPrivileges") visible(ctl.parent.Select.value == "Permiss") Name = sz(250) text(s_ResGroupName(Name)) Allow = sz(a) ia(cc) text("") at(clickable) i(f_AppRuleIcon(depend(Rule.AccessFlag))) onrclick(menu("HipsAppRuleMenu.0")) [AppRulesEdit_Tab_History] @ = sz(p,p) use(!(appID & #HIPS_APPID_FLAG_GROUP) && f_isInstalled("Hips") && f_isInstalled("Firewall")) Events = [AppRulesEdit_Tab_History_Events] [AppRulesEdit_Tab_History_Events] @ = xy(7,7) sz(p, p) ext(1) List = [Product_Events_Report_Ex] subst(Report(xy(-7,) v(#eTASK_GROUP_HIPS) prm(#dbRTP) filter(TaskGroup == #eTASK_GROUP_HIPS && (AppID == appID || ObjectID == appID || OldObjectID == appID))) Time(group()) Reason(use(0)) Task(use(0))) [AppRulesEdit_Tab_Excludes] @ = sz(p,p) use(!(appID & #HIPS_APPID_FLAG_GROUP) && f_isInstalled("Hips") && f_isInstalled("Firewall")) ns(Excludes) Settings = [TrustedAppEdit_Body] [HipsAppRuleMenu] $txt = text(const(s_AppRule(ctl.value))) @ = t(menu) at(enum) ext(1) bg("MenuIconBg") onchanging( (ctl.value==#HIPS_FLAG_DENY && (isAppInHipsGroup(appID, "Microsoft") || Name == "KLAppTrusted")) ? msg("ConfirmDenyTrustedApp", #m_yesno) : true ) Inherit = at(radiolike) v(#HIPS_FLAG_INHERIT) extprm(1) $txt Separator Allow = at(radiolike) i("States,0,0,0,0,0,0") v(#HIPS_FLAG_ALLOW) extprm(1) $txt Deny = at(radiolike) i("States,2,2,2,2,2,2") v(#HIPS_FLAG_DENY) extprm(1) $txt Ask = at(radiolike) i("States,6,6,6,6,6,6") v(#HIPS_FLAG_ASK) extprm(1) $txt ByApp = at(radiolike) i("States,10,10,10,10,10,10") v(#HIPS_FLAG_BYAPP) extprm(1) $txt use(0) Separator Log = at(chklike) i("States,8,8,8,8,8,8") extprm(1) text(const(s_AppRule(#HIPS_FLAG_LOG))) [HipsAppRuleMenu.0] @ = [HipsAppRuleMenu] v(mask(EditRule.AccessFlag, 0xb)) subst(Log(v(bmask(EditRule.AccessFlag, #HIPS_FLAG_LOG)))) [HipsAppRuleMenu.1] @ = [HipsAppRuleMenu] v(shift(mask(EditRule.AccessFlag, 0xb0), 4)) subst(Log(v(bmask(EditRule.AccessFlag, #HIPS_FLAG_LOG << 4)))) [HipsAppRuleMenu.2] @ = [HipsAppRuleMenu] v(shift(mask(EditRule.AccessFlag, 0xb00), 8)) subst(Log(v(bmask(EditRule.AccessFlag, #HIPS_FLAG_LOG << 8)))) [HipsAppRuleMenu.3] @ = [HipsAppRuleMenu] v(shift(mask(EditRule.AccessFlag, 0xb000), 12)) subst(Log(v(bmask(EditRule.AccessFlag, #HIPS_FLAG_LOG << 12)))) [Hips_GroupNameEdit] @ = [EditSimpleItem] subst(Name() Example(use(0))) ext(1) at(nohelp) [Hips_AppGroupNameEdit] @ = [EditSimpleItem] subst(Name() Example(use(0))) ext(1) at(nohelp) [Hips_ResListAddMenu] @ = t(menu) v(mask(Flags, #rtMask)) at(enum) File = at(radiolike) v(#rtFileInfo) Registry = at(radiolike) v(#rtRegKeyInfo) WebService = at(radiolike) v(#rtWebService) IpRange = at(radiolike) v(#rtIpRange) [HipsRuleColumn.Menu] @ = t(menu) at(enum) v(EditState) bg("MenuIconBg") onchanging( (ctl.value==#HIPS_RULE_STATE_DENY && (isAppInHipsGroup(Id, "Microsoft") || Name == "KLAppTrusted") )? msg("ConfirmDenyTrustedApp", #m_yesno) : true ) Inherit = at(radiolike) i(s_RuleState(getHipsRuleState(ParentID, EditResID) + #HIPS_RULE_STATE_INH_DENY)) v(#HIPS_RULE_STATE_INH) use(ParentID != #HIPS_APPID_ROOT) Separator Allow = at(radiolike) i("States,0,0,0,0,0,0") v(#HIPS_RULE_STATE_ALLOW) Deny = at(radiolike) i("States,2,2,2,2,2,2") v(#HIPS_RULE_STATE_DENY) Ask = at(radiolike) i("States,6,6,6,6,6,6") v(#HIPS_RULE_STATE_ASK) ;---------- WebServiceEdit ------------ [WebServiceEdit] @ = $Dlg sz(330,180) onapply(c_ws().clear()) h(5051) btns(Ok(enable(Id & #HIPS_RESID_FLAG_USER))) Name = [LValue] subst(Name() Val(t(edit) xy(120) v(Name) onok(if(!Name, balloon("NeedName"))))) enable(Id & #HIPS_RESID_FLAG_USER) Direction = [LValue] xy(,7) subst(Name() Val([WebServiceEdit.Direction] xy(120))) enable(Id & #HIPS_RESID_FLAG_USER) Protocol = [LValue] xy(,7) subst(Name(t(check) v(bmask(Data.Flags,#wsProtocol))) Val([WebServiceEdit.Protocol] xy(120))) enable(Id & #HIPS_RESID_FLAG_USER) IcmpType = [LValue] xy(,7) visible(f_isIcmp(ctl.Protocol.Val.value)) enable(ctl.Protocol.Name.value && (Id & #HIPS_RESID_FLAG_USER)) subst(Name(t(check) v(bmask(Data.Flags,#wsIcmpType))) Val([WebServiceEdit.IcmpType] xy(120))) use(!p_forApp) IcmpCode = [LValue] xy(,7) visible(f_isIcmp(ctl.Protocol.Val.value)) enable(ctl.Protocol.Name.value && ctl.IcmpType.Name.value && (Id & #HIPS_RESID_FLAG_USER)) subst(Name(t(check) v(bmask(Data.Flags,#wsIcmpCode))) Val([WebServiceEdit.IcmpCode] xy(120))) use(!p_forApp) RemotePorts = [LValue] xy(,7) visible(f_isTcpUdp(ctl.Protocol.Val.value)) enable(ctl.Protocol.Name.value && (Id & #HIPS_RESID_FLAG_USER)) subst(Name() Val(t(edit) xy(120) oninit(ctl.value = f_formatPorts(Data.RemotePorts)) onok(parsePorts(Data.RemotePorts, ctl.value)))) LocalPorts = [LValue] xy(,7) visible(f_isTcpUdp(ctl.Protocol.Val.value)) enable(ctl.Protocol.Name.value && (Id & #HIPS_RESID_FLAG_USER)) subst(Name() Val(t(edit) xy(120) oninit(ctl.value = f_formatPorts(Data.LocalPorts)) onok(parsePorts(Data.LocalPorts, ctl.value)))) [WebServiceEdit.Direction] $txt = text(const(s_NetDirection(ctl.value))) @ = $Combo a(lt) v(Data.Direction) In = $txt v(#wsIn) use(!p_forApp) InStream = $txt v(#wsInStream) InOut = $txt v(#wsInOut) Out = $txt v(#wsOut) use(!p_forApp) OutStream = $txt v(#wsOutStream) [WebServiceEdit.Protocol] $txt = text(const(s_Protocols(ctl.value))) @ = $Combo a(lt) v(Data.Proto) enable(ctl.Name.value) TCP = $txt v(6) UDP = $txt v(17) ICMP = $txt v(1) use(!p_forApp) ICMPv6 = $txt v(58) use(!p_forApp) IGMP = $txt v(2) use(!p_forApp) GRE = $txt v(47) use(!p_forApp) [WebServiceEdit.IcmpType] $txt = text(const(s_ICMPTypes(ctl.value))) @ = $Combo a(lt) v(Data.IcmpType) enable(ctl.Name.value) 0 = $txt v(0) 3 = $txt v(3) 4 = $txt v(4) 5 = $txt v(5) 6 = $txt v(6) 8 = $txt v(8) 9 = $txt v(9) 10 = $txt v(10) 11 = $txt v(11) 12 = $txt v(12) 13 = $txt v(13) 14 = $txt v(14) 15 = $txt v(15) 16 = $txt v(16) 17 = $txt v(17) 18 = $txt v(18) 19 = $txt v(19) 30 = $txt v(30) 31 = $txt v(31) 32 = $txt v(32) 33 = $txt v(33) 34 = $txt v(34) 35 = $txt v(35) 36 = $txt v(36) 37 = $txt v(37) 38 = $txt v(38) 40 = $txt v(40) [WebServiceEdit.IcmpCode] $txt = text(const(s_IcmpCode(ctl.value))) @ = $Combo a(lt) v(Data.IcmpCode) enable(ctl.Name.value) 0 = $txt v(0) 1 = $txt v(1) 2 = $txt v(2) ;---------- IpRangeEdit ------------ [IpRangeEdit] @ = $Dlg sz(330,a) onapply(c_ip().clear()) h(5053) Name = [Value] a(la) subst(Name(xy(,2)) Val(t(edit) sz(200,a) v(Name) onok(if(!Name, balloon("NeedName"))))) RemoteAddrs = [IpRangeEdit_Addrs] xy(,7) subst(List(v(Data.RemoteAddresses))) onok(if(!Data.RemoteAddresses.size() && !Data.LocalAddresses.size(), balloon("NeedAddresses"))) LocalAddrs = [IpRangeEdit_Addrs] xy(,7,,$DialogPanelSizeY) subst(List(v(Data.LocalAddresses))) [IpRangeEdit_Addrs] @ = $SettingsGroup xy(,7) sz(p,130) ext(1) List = [IpRangeEdit_Addrs_List] [IpRangeEdit_Addrs_List] @ = $List at(noheader) alias(vector) extprm(1) Addr = sz(a) text($AddressesFormat) footer = [Grid.Footer2.Template] subst(Add(onclick(dialog("AddressEdit")))) ;---------- AddressEdit ------------ [AddressEdit] @ = [EditSimpleItem] alias() subst(Example() Name(v() oninit(ctl.value = Address ? Address : ip(IP)) onok(if(!parseAddr(ser(Address), ctl.value), balloon("ErrResolvingIp"))))) ext(1) h(6270) [IpEdit] @ = [EditSimpleItem] alias() subst(Example() Name(v() oninit(ctl.value = ip(ser(Version))) onok(if(!parseIp(ser(Version), ctl.value), balloon("ErrResolvingIp"))))) ext(1) h(6270) [ResolveIp] @ = $DlgAttrBase at(a_cancel) sz(330,130) at(nohelp) Text = sz(250,30) Progress = t(progress) a(la) xy(,7) sz(p,15) ;---------- PacketRuleList ------------ [PacketRuleList] @ = $List alias(vector.FwRules) ext(1) Service = [PacketRuleList_Service] Action = sz(90) at(clickable) ia(c,c) i(f_PacketRuleIcon(AccessFlag)) tt(s_AppRule(AccessFlag & #HIPS_FLAG_ALL_ACTIONS)) onrclick(menu("PacketRuleList.Menu")) text() Area = sz(150) ta(c) text(c_ip(ResIdEx2, s_ResGroupName(Resource.treeFind("Childs", "Id == ResIdEx2").Name))) enable(!depend(isDefSrc())) footer = [Grid.Footer2.Template] extprm(1) subst(Edit(onclick(dialog("PacketRuleEdit"))) MoveUp(use(1)) MoveDown(use(1))) [PacketRuleList_Service] @ = sz(255) at(checked) v(bmask(RuleState, 1)) text(l_ws.Name) bp(l_ws = c_ws(ResIdEx, Resource.treeFind("Childs", "Id == ResIdEx")); ctl.enabled = !depend(isDefSrc())) Name = sz(130) rs(33) text(l_ws.Name) Direct = sz(75) rs(0) ia(c) i(s_NetDirectionIcon(l_ws.Data.Direction)) tt(s_NetDirection(l_ws.Data.Direction)) text() Proto = sz(75) rs(0) text(f_NetProtocol(l_ws.Data)) RPorts = sz(100) rs(33) text(f_formatPorts(l_ws.Data.RemotePorts)) LPorts = sz(100) rs(33) text(f_formatPorts(l_ws.Data.LocalPorts)) [PacketRuleList.Menu] @ = [HipsAppRuleMenu] v(mask(AccessFlag, 0xb)) ext(1) subst(Inherit(use(0)) Ask(use(AppIdEx)) ByApp(use(!AppIdEx && f_isTcpUdpEx(c_ws(ResIdEx,null).Data))) Log(use((AccessFlag & #HIPS_FLAG_ALL_ACTIONS) != #HIPS_FLAG_BYAPP) v(bmask(AccessFlag, #HIPS_FLAG_LOG)))) ;---------- PacketRuleEdit ------------ [PacketRuleEdit] @ = $Dlg sz(450,a) h(5404) Action = [PacketRuleEdit_Action] $SettingsGroup Service = [PacketRuleEdit_Service] $SettingsGroup sz(p,160) xy(,17) Address = [PacketRuleEdit_Address] $SettingsGroup sz(p,200) xy(,17,,$DialogPanelSizeY) [PacketRuleEdit_Action] @ = a(la) sz(p,a) v(mask(AccessFlag, #HIPS_FLAG_ALL_ACTIONS)) ext(1) Allow = $Radio v(#HIPS_FLAG_ALLOW) Block = $Radio a(la) xy(,7) v(#HIPS_FLAG_DENY) Skip = $Radio a(la) xy(,7) v(#HIPS_FLAG_BYAPP) use(!AppIdEx) onok(if(ctl.selected && !f_isTcpUdpEx(ctl.Service.List.seldata().Data), balloon("WrongAction"))) extprm(1) Log = $Check a(la) xy(,7) v(bmask(AccessFlag, #HIPS_FLAG_LOG)) enable((AccessFlag & #HIPS_FLAG_ALL_ACTIONS) != #HIPS_FLAG_BYAPP) [PacketRuleEdit_Service] @ = a(la) sz(p,160) ext(1) List = [PacketRuleEdit_Service_List] [PacketRuleEdit_Service_List] @ = $List at(singlesel,noheader) alias(vector) v($rfKLWebServices.Childs) onfocus(ResIdEx = Id) onshow(ctl.focus("Id == ResIdEx")) onok(if(!ResIdEx, balloon("NeedService"))) filter(!AppIdEx || (f_isTcpUdpEx(Data) && f_isStream(Data.Direction))) Name = sz(p) text(Name) footer = [Grid.Footer2.Template] subst(Add(onclick(Id = getHipsNewResID(); ParentID = #riKLWebServices; Data.serinit(#stWebService); dialog("WebServiceEdit", p_forApp(AppIdEx)))) Edit(onclick(dialog("WebServiceEdit", p_forApp(AppIdEx)))) Delete(enable(canDelete() && Id & #HIPS_RESID_FLAG_USER))) extprm(1) [PacketRuleEdit_Address] @ = a(la) sz(p,200) onshow(ctl.value = s_AddrInit(ResIdEx2)) onok(ResIdEx2 = s_AddrGet(ctl.value); if(ctl.Group.selected && !ResIdEx2, balloon("NeedAddress"))) ext(1) Any = $Radio v(0) Net = $Radio a(la) xy(,7) v(1) NetSel = $Combo a(as) xy(7,-4) oninit($rfKLNetwork.Childs.foreach("ctl.add(s_ResGroupName(Name), Id)")) enable(ctl.Net.selected) Group = $Radio a(la) xy(,4) v(2) List = [PacketRuleEdit_Address_List] [PacketRuleEdit_Address_List] @ = $List a(la) xy(20,7) at(singlesel,noheader) alias(vector) v($rfKLIPRanges.Childs) enable(ctl.Group.selected) Name = sz(p) text(Name) footer = [Grid.Footer2.Template] subst(Add(onclick(Id = getHipsNewResID(); ParentID = #riIPRanges; Data.serinit(#stIpRange); dialog("IpRangeEdit"))) Edit(onclick(dialog("IpRangeEdit"))) Delete(enable(canDelete() && Id & #HIPS_RESID_FLAG_USER))) extprm(1) ;---------- PacketRuleCreate ------------ [PacketRuleCreate] @ = [WizardTpl] sz(450,470) subst(Pages([PacketRuleCreatePages])) alias(packetrulecreate) oninit(AppIdEx = p_appID; RuleTypeId = #HIPS_RULE_TYPE_FW; RuleId = getHipsNewRuleID(); if(p_blocked, AccessFlag = #HIPS_FLAG_DENY)) ext(1) [PacketRuleCreatePage] @ = [WizardPage] subst(Header([PacketRuleCreatePage_Header])) [PacketRuleCreatePage_Header] @ = sz(p,a) WizHdr = [WizardPage_Header] Info = [WizardPage_InfoArea] ns(p_netAct) subst(Info(text(s_AppName(p_appID) + f_NetActionDescr(Proto == 6, Direction == #wsOut || Direction == #wsOutStream) + "."))) [PacketRuleCreatePages] @ = sz(p,p) ext(1) Action = [PacketRuleCreatePage] h(6624) subst(Name() Descr() Body([PacketRuleCreate_Action])) Service = [PacketRuleCreatePage] h(6625) subst(Name() Descr() Body([PacketRuleCreate_Service])) Address = [PacketRuleCreatePage] h(6626) subst(Name() Descr() Body([PacketRuleCreate_Address])) [PacketRuleCreate_Action] Action = [PacketRuleEdit_Action] subst(Skip(use(0))) Next = [WizardButton] a(lb) onclick(wizNext()) subst(Name() Descr()) [PacketRuleCreate_Service] Filter = $Check onshow(ctl.value = 1) onchange(ctl.Service.List.setfilter(ctl.value ? "isServiceMatch(Data," + p_netAct.Proto + "," + p_netAct.Direction + "," + p_netAct.RemotePort + "," + p_netAct.LocalPort + ")" : "", 1)) Service = [PacketRuleEdit_Service] xy(,7) subst(footer(subst(Add(onclick(Id = getHipsNewResID(); ParentID = #riKLWebServices; Data.serinit(#stWebService); Data.initFrom(p_netAct); dialog("WebServiceEdit", p_forApp(1))))))) onok(if(ResIdEx && !isServiceMatch(ctl.List.seldata().Data, p_netAct.Proto, p_netAct.Direction, p_netAct.RemotePort, p_netAct.LocalPort), balloon("ServiceNotMatch"))) Next = [WizardButton] a(lb) onclick(wizNext()) subst(Name() Descr()) [PacketRuleCreate_Address] Address = [PacketRuleEdit_Address] subst(footer(subst(Add(onclick(Id = getHipsNewResID(); ParentID = #riIPRanges; Data.serinit(#stIpRange); Data.initFrom(p_netAct); dialog("IpRangeEdit")))))) Next = [WizardButton] a(lb) onclick(wizNext()) subst(Name() Descr()) ;---------- AdapterEdit ------------ [AdapterEdit] @ = $Dlg sz(350,400) alias(settings) Tab = [AdapterEdit_Tab] [AdapterEdit_Tab] @ = $Tab General = [AdapterEdit_Tab_General] h(6314) [AdapterEdit_Tab_General] @ = sz(p,p) Info = [AdapterEdit_Tab_General_Info] NewNetwork = [AdapterEdit_Tab_General_NewNetwork] enable(TypeOfInterface != #If_OtherNetwork) [AdapterEdit_Tab_General_Info] @ = sz(p,a) Icon = sz(32,32) xy(,7) i(f_NetAdapterIcon(TypeOfInterface, -1, State, 1)) Name = a(as) xy(17) sz(p,a) f("Normal_Bold") text(TypeOfInterface == #If_OtherNetwork ? $OtherNetworks : FrendlyName) Type = [LValue] a(sa) xy(,7) subst(Name() Val(xy(70) text(s_NetType(TypeOfInterface)))) Status = [LValue] a(sa) xy(,7) subst(Name() Val(xy(70) text(f_NetConnected(State & #znConnected)))) [AdapterEdit_Tab_General_NewNetwork] @ = $SettingsGroup xy(,17) v(bmask(Settings,#znAskWhenNewZones)) Legend Ask = $Radio xy(,7) v(1) AssignTo = $Radio xy(,7) v(0) Zone = [NetworkEdit_Severity_Combo] a(la) xy(20,7) sz(p,20) enable(ctl.AssignTo.selected) v(Severity) ;Stealth = $Check xy(20,7) v(bmask(Settings,#znStealthForNewZones)) enable(Severity == #znUntrusted && ctl.AssignTo.selected) ;---------- NetworkEdit ------------ [NetworkEdit] @ = $Dlg sz(350,400) alias(settings) Tab = [NetworkEdit_Tab] [NetworkEdit_Tab] @ = $Tab General = [NetworkEdit_Tab_General] h(6242) Addresses = [NetworkEdit_Tab_Addresses] use(TypeOfInterface != #If_Internet) h(6253) Settings = [NetworkEdit_Tab_Settings] use(TypeOfInterface != #If_Internet) h(6254) [NetworkEdit_Tab_General] @ = sz(p,p) Icon = sz(32,32) xy(,7) i(f_NetAdapterIcon(TypeOfInterface, -1, State, 1)) Type = [LValue] a(as) xy(17) subst(Name() Val(xy(92) text(s_NetType(TypeOfInterface, WiFiSecLevel)))) WiFiName = [LValue] a(sa) xy(,7) subst(Name() Val(xy(92) text(ConnectionName))) use(TypeOfInterface == #If_WiFi) Status = [LValue] a(sa) xy(,7) subst(Name() Val(xy(92) text(f_NetConnected(State & #znConnected, if(TypeOfInterface == #If_Internet, ConnectionName))))) Created = [LValue] a(sa) xy(,7) subst(Name() Val(xy(92) text(datetime(TimeCreated)))) LastConnect = [LValue] use(!(State & #znConnected)) xy(,7) subst(Name() Val(xy(140) text(datetime(TimeConnected)))) Name = [LValue] xy(,17) subst(Name() Val(t(edit) xy(100) v(FrendlyName))) enable(TypeOfInterface != #If_Internet) Severity = [LValue] xy(,7) subst(Name() Val([NetworkEdit_Severity_Combo] xy(100) v(Severity))) enable(TypeOfInterface != #If_Internet) ;Stealth = $Check xy(100,7) v(bmask(Settings,#znStealth)) enable(Severity == #znUntrusted) Area = [NetworkEdit_Tab_General_Area] use(TypeOfInterface!=#If_Internet) [NetworkEdit_Severity_Combo] $txt = text(const(s_NetSeverity(ctl.value))) @ = t(combo) Public = $txt v(#znUntrusted) Local = $txt v(#znNetBIOS) Trusted = $txt v(#znTrusted) [NetworkEdit_Tab_General_Area] @ = $SettingsGroup sz(p,p) List = [NetworkEdit_Tab_General_Area_List] [NetworkEdit_Tab_General_Area_List] @ = $List at(noheader) alias(vector) v(IPNets) Subnet = sz(a) text(ip(ser(Version))) footer = [Grid.Footer2.Template] subst(Add(onclick(dialog("IpEdit")))) [NetworkEdit_Tab_Addresses] @ = sz(p,p) IPList = [NetworkEdit_Tab_Addresses_IPList] [NetworkEdit_Tab_Addresses_IPList] @ = $List sz(p,p) at(noheader) alias(vector) v(p_nets ? p_nets.Nets : getNetWatchZoneAddrs(ID).Nets) Name = sz(a,a) text(ip(ser(Version))) [NetworkEdit_Tab_Settings] @ = sz(p,p) ;ArpPoison = $Check xy(,7) v(bmask(Settings,#znArpPoison)) enable(TypeOfInterface==#If_Ethernet || TypeOfInterface==#If_WiFi) Notify = [NetworkEdit_Tab_Settings_Notify] Action = [NetworkEdit_Tab_Settings_Action] [NetworkEdit_Tab_Settings_Notify] @ = $SettingsGroup Connect = $Check v(bmask(Settings,#znNotifyWhenConnected)) ChgMac = $Check xy(,7) v(bmask(Settings,#znChgMacNotify)) use(TypeOfInterface==#If_Ethernet || TypeOfInterface==#If_WiFi) NewMac = $Check xy(,7) v(bmask(Settings,#znNewMacNotify)) use(TypeOfInterface==#If_Ethernet || TypeOfInterface==#If_WiFi) [NetworkEdit_Tab_Settings_Action] @ = $SettingsGroup xy(,7) UsePrnt = $Check v(bmask(Settings,#znDefPrinter)) enable(getPrinters().size()) Printer = $Combo xy(20,7) v(DefPrinter) enable(getPrinters().size() && ctl.UsePrnt.value) oninit(getPrinters().foreach("ctl.add(DisplayName, Name)")) ;---------- NewNetwork alert ------------ [NewNetwork] @ = [AlertDialogT] sz(320,a) subst(Caption(subst(B(text()))) Body([NewNetwork_Body])) h(4487) [NewNetwork_Body] @ = ns(NewZone) Descr = [AlertDialogT_InfoArea] subst(Info([NewNetwork_Descr])) Actions = [NewNetwork_Body_Actions] [NewNetwork_Descr] Icon = sz(32,32) i(f_NetAdapterIcon(TypeOfInterface, -1, State, 1)) Adapter = [LValue] a(as) xy(17) subst(Name() Val(xy(70) at(clickable) f("Hotlink_Normal") text(NetAdapter.FrendlyName) onclick(dialog("AdapterEdit", p_data(NetAdapter))) )) Type = [LValue] a(sa) xy(,7) subst(Name() Val(xy(70) text(s_NetType(TypeOfInterface, WiFiSecLevel)))) Network = [LValue] a(sa) xy(,7) subst(Name() Val(xy(70) at(clickable) f("Hotlink_Normal") text(FrendlyName) onclick(dialog("NetworkEdit", p_data(NewZone), p_nets(ZonaAddresses))))) [NewNetwork_Body_Actions] @ = $AlertActions Public = [NewNetwork_ActionButton] v(#znUntrusted) onclick(Severity = ctl.value; close(#m_res_ok)) subst(Name() Descr()) Local = [NewNetwork_ActionButton] v(#znNetBIOS) onclick(Severity = ctl.value; close(#m_res_ok)) subst(Name() Descr()) Trusted = [NewNetwork_ActionButton] v(#znTrusted) onclick(Severity = ctl.value; close(#m_res_ok)) subst(Name() Descr()) [NewNetwork_ActionButton] @ = [AlertDialog_ActionButton] enable(1) subst(Name(f(const(Severity == ctl.parent.value ? "AlertBtn_a" : "AlertBtn")))) ;---------- SnifferStatistic ------------ [SnifferStatistic] @ = t(dialog) mg(7,7) sz(600,500) at(customfooter,resizable,minimizable) alias(task) ns(NetDetails) h(6469) onclose(state & #StateFlagOperational ? msg("CantCloseActiveNetStat", #m_warning) : checkPassword(#pwdc_StopTask)) Filter = [SnifferStatistic_Filter] Splitter = [SnifferStatistic_Splitter] Footer = [SnifferStatistic.Footer] xy(-7,-7,-7,) [SnifferStatistic.Footer] @ = a(lb) sz(p,$DialogPanelSizeY) rs(100,0) ext(1) extprm(1) panel = [DialogPanel] subst(BtnsGroup(use(0))) panelRun = [SnifferStatistic_RunPanel] Close = [BtnGlass] a(rc) xy(9,) extprm(1) onclick(close()) [SnifferStatistic_RunPanel] @ = a(rc) xy(150,0) Start = [BtnGlass] a(lc) xy(0,) onclick(f_setState(#TASK_REQUEST_RUN)) enable(!(state & #StateFlagOperational)) Stop = [BtnGlass] a(as) xy(5,) onclick(f_setState(#TASK_REQUEST_STOP)) enable(state & #StateFlagOperational) Clear = [BtnGlass] a(as) xy(5,) enable(!(state & #StateFlagOperational)) onclick(clearRepDb(#dbNetworkPackets)) [SnifferStatistic_Filter] @ = a(la) sz(p,a) xy(,,,7) TextFSrc = text($Source) a(ls) xy(5,0) mg(0,4) FilterIPSrc = t(edit) a(as) xy(5,) sz(100,a) TextFTgt = text($Target) a(as) xy(10,) mg(0,4) FilterIPTgt = t(edit) a(as) xy(5,) sz(100,a) TextFProt = text($Protocol) a(as) xy(10,) mg(0,4) FilterProto = [SnifferStatistic_Filter.Protocol] onchange(ctl.Frames.setfilter("wildcard(\"" + ctl.FilterIPSrc.value + "\",ip(IPSource)) && wildcard(\"" + ctl.FilterIPTgt.value + "\",ip(IPTarget)) && wildcard(\"" + ctl.FilterProto.value + "\",s_Protocols(Protocol,HighProtocol))", 1)) RunFilter = $Button a(rs) xy(,-1) sz(85,25) enable(!(state & #StateFlagOperational)) onclick(ctl.Frames.setfilter("wildcard(\"" + ctl.FilterIPSrc.value + "\",ip(IPSource)) && wildcard(\"" + ctl.FilterIPTgt.value + "\",ip(IPTarget)) && wildcard(\"" + ctl.FilterProto.value + "\",s_Protocols(Protocol,HighProtocol))", 1)) [SnifferStatistic_Filter.Protocol] @ = t(combo) a(as) xy(5,) sz(60,) at(edit) ALL = v("") at(default) text("") ARP = v("ARP") text("ARP") IPv4 = v("IPv4") text("IPv4") IPv6 = v("IPv6") text("IPv6") TCP = v("TCP") text("TCP") UDP = v("UDP") text("UDP") IPX = v("IPX") text("IPX") NBNS = v("NBNS") text("NBNS") DNS = v("DNS") text("DNS") DHCP = v("DHCP") text("DHCP") PPPoE = v("PPPoE") text("PPPoE") ICMP = v("ICMP") text("ICMP") LLC = v("LLC") text("LLC") [SnifferStatistic_Splitter] @ = t(splitter) at(vertical,rememberdata) a(la) xy(0,0) sz(p,415) Frames = [SnifferStatistic_Splitter_Frames] Details = [SnifferStatistic_Splitter_Details] ;Details = [SnifferStatistic_HexViewer] [SnifferStatistic_Splitter_Frames] @ = $List sz(0,0) rs(0,0) alias(netdetails) prm(#dbNetworkPackets) refresh(100) TimeOffset = sz(120) text(datetime(Timestamp)) Source = sz(110) text(ip(IPSource)) Target = sz(110) text(ip(IPTarget)) Protocol = sz(90) text(s_Protocols(Protocol,HighProtocol)) ;row = bg(if(Flags & 0x4,"EventErr")) row = bg(if(Flags & 0x4,"EventErr")) i( (Flags & 0x4) ? "sniff,2" : ((Flags & 0x2) ? "sniff,6":"sniff,5")) [SnifferStatistic_Splitter_Details] @ = t(splitter) at(rememberdata) alias(netframedetail) dataowner(Details.parent.Frames) xy(0,0) rs(0,0) sz(p,p) bg("ColorWindowClassic") Tree = [SnifferStatistic_Splitter_Details_Tree] HexView = [SnifferStatistic_Splitter_Details_HexView] [SnifferStatistic_Splitter_Details_Tree] @ = $List sz(0,0) rs(0,0) at(noheader) alias(tree.NetDetailsList) v(FrameDetails) childs(vChild) Name = sz(a) text(s_FrameDetails(id, str1, str2, str3)) [SnifferStatistic_Splitter_Details_HexView] @ = t(hexviewer) sz(0,0) rs(0,0) alias(hexview.Sniffer) v(FrameBin) bg("ColorWindow") f("Normal") ;------------- Network Monitor ----------- [NetworkMonitor] @ = $DlgAttrBase sz(600,350) at(resizable,minimizable,dragable,a_close) alias(netmon) Tab = [NetworkMonitor_Tab] [NetworkMonitor_Tab] @ = $Tab xy(,,,$DialogPanelSizeY) Conn = [NetworkMonitor_Tab_Conn] h(5428) Packets = [NetworkMonitor_Tab_Packets] h(5593) Traffic = [MainWindow.SystemWatch_WorkArea_List] h(5429) [NetworkMonitor_Tab_Conn] @ = sz(p,p) use(s_IsStateRunning(Hips.state)) All = $Check onclick(ctl.List.setfilter(ctl.value ? "" : "stricmp(objfile(Image), \"avp.exe\")")) List = [NetworkMonitor_Tab_Conn_List] [NetworkMonitor_Tab_Conn_List] @ = $List a(la) xy(,7) at(sorted,rememberdata) alias(vector) v(Connections) filter(stricmp(objfile(Image), "avp.exe")) App = sz(120) i(getIconAsync(Image)) text(objfile(Image)) group(ImagePath,Image,default) Proto = sz(60) text(s_Protocols(Proto)) Direction = sz(70) text(s_NetDirection(Direction)) LocalIP = sz(90) text(ip(LocalIP)) LocalPort = sz(70) text(LocalPort) RemoteIP = sz(100) text(ip(RemoteIP)) RemotePort = sz(80) text(if(RemotePort, RemotePort)) Duration = sz(50) text(timestamp(ActiveTime)) BytesRecieved = sz(60) text(filesize(InBytes)) BytesSent = sz(60) text(filesize(OutBytes)) [Grid.Groups] ImagePath = [Grid.Group.Template] expand(1) i(getIconAsync(val)) text(objfile(val)) [NetworkMonitor_Tab_Packets] @ = sz(p,p) ViewLbl = xy(,4) View = [NetworkMonitor_Tab_Packets_View] Log = [NetworkMonitor_Tab_Packets_Log] [NetworkMonitor_Tab_Packets_View] @ = $Combo sz(a,a) a(at) xy(7) rs(0,0) onchange(ctl.parent.Log.setfilter(s_LogFilter(ctl.value), 1)) All = v(0) Blocked = v(1) BlockedIn = v(2) BlockedOut = v(3) Allowed = v(4) AllowedIn = v(5) AllowedOut = v(6) [NetworkMonitor_Tab_Packets_Log] @ = $List a(la) xy(,7) alias(firewallpackets) at(rememberdata) refresh(100) prm(#dbNetworkPacketRules) Time = sz(140) text(datetimeDT(Timestamp)) sort(index,sortup) Verdict = sz(85) text(s_Verdict((Flags & 2) ? #eALLOWED : #eDENIED)) i((Flags & 0x02) ? "low" : "med") App = sz(200) text(if(AppID, $AppName)) i(if(AppID, $AppIcon)) Proto = sz(50) text(s_Protocols(Proto)) filter(auto) LocalAddr = sz(100) text(ip(LocalIP)) group(FwAddrL, l_ipHash = ipHash(LocalIP); c_ipHash(l_ipHash, LocalIP); l_ipHash) LocalPort = sz(50) text(if(LocalPort, LocalPort)) group(FwPortL, LocalPort) RemoteAddr = sz(80) text(ip(RemoteIP)) group(FwAddrR, l_ipHash = ipHash(RemoteIP); c_ipHash(l_ipHash, RemoteIP); l_ipHash) RemotePort = sz(50) text(if(RemotePort, RemotePort)) group(FwPortL, RemotePort) NetSeverity = sz(160) text(s_NetSeverity(NetSeverity)) i(s_NetZoneTypeIcon(NetSeverity)) ;RuleName = sz(120) text(object(HipsResourceID)) visible(0) row = at(clickable) i((Flags & 4) ? "listctrls,6" : "listctrls,5") onrclick(menu("NetworkMonitor_Tab_Packets_Log.Menu")) [NetworkMonitor_Tab_Packets_Log.Menu] @ = t(menu) Rule = at(clickable) enable(AppID && f_isTcpUdp(Proto)) onclick(l_netAct.serinit(#stFwEvent); l_netAct.Proto = Proto; l_netAct.Direction = Flags & 4 ? #wsOutStream : #wsInStream; l_netAct.RemoteIP = RemoteIP; l_netAct.RemotePort = RemotePort; l_netAct.LocalIP = LocalIP; l_netAct.LocalPort = LocalPort; dialog("PacketRuleCreate", p_appID(AppID), p_netAct(l_netAct), p_saveRule(1), p_blocked(!(Flags & 2)))) [Grid.Groups] FwAddrR = [Grid.Group.Template] expand(1) FwAddrL = [Grid.Group.Template] expand(1) FwPortR = [Grid.Group.Template] expand(1) FwPortL = [Grid.Group.Template] expand(1) ;---------- PdmSettings ------------ [PdmSettings] @ = $Dlg sz(350,a) alias(taskedit) h($IsKAV ? 6616 : 5401) Rules = [PdmSettings_Rules] Trust = $Check xy(,7,,$DialogPanelSizeY) v(invert(bmask(nFlags, #vfSkipTrusted))) [PdmSettings_Rules] @ = $List sz(p,150) row = [PdmSettings_Rules_row] [PdmSettings_Rules_row] TrojGen = at(checked) v(invert(bmask(nFlags, #vfSkipTrojGen))) enable(0) WormGen = at(checked) v(invert(bmask(nFlags, #vfSkipWormGen))) enable(0) WormP2P = at(checked) v(invert(bmask(nFlags, #vfSkipWormP2P))) enable(0) KeyLogger = at(checked) v(invert(bmask(nFlags, #vfSkipKeylogger))) DrvInst = at(checked) v(invert(bmask(nFlags, #vfSkipSuspDrvInst))) IrpTable = at(checked) v(invert(bmask(nFlags, #vfSkipIrpTableChange))) HiddenObj = at(checked) v(invert(bmask(nFlags, #vfSkipHiddenObj))) NegativePID = at(checked) v(invert(bmask(nFlags, #vfSkipNegativePID)))