• 🚨 29 мая стартует курс «Пентест Active Directory: от теории к практике» от Академии Кодебай

    🔍 Изучите реальные техники атак на инфраструктуру Active Directory: от первоначального доступа до полной компрометации.
    🛠️ Освойте инструменты, такие как BloodHound, Mimikatz, CrackMapExec и другие.
    🧪 Пройдите практические лабораторные работы, имитирующие реальные сценарии атак.
    🧠 Получите знания, которые помогут вам стать востребованным специалистом в области информационной безопасности.

    После старта курса запись открыта еще 10 дней Подробнее о курсе ...

  • Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

Fun With $formulaclass

  • Автор темы Автор темы morpheus
  • Дата начала Дата начала
M

morpheus

Оригинал Вы найдете

В виде создаем кнопу которая заменяет одно из его служебных полей $FormulaClass


Код:
Dim w As NotesUIWorkspace 
Dim uiview As NotesUIView 
Dim view As NotesView 
Dim unid As String 
Dim s As NotesSession 
Dim db As NotesDatabase 
Dim note As NotesDocument 

Set w = New NotesUIWorkspace 
Set uiview = w.CurrentView 
Set view = uiview.View 
Let unid = view.UniversalID 
Set s = New NotesSession 
Set db = s.CurrentDatabase 
Set note = db.GetDocumentByUNID (unid) 
Call note.ReplaceItemValue ("$FormulaClass", "2") 
Call note.Save (True, True)

Что нам это даст - мы можем видеть элементы дизайна!

и так значения которые может принимать

Value Design Elements Shown
1 - Documents
2 - Unknown
4 - Forms and Subforms
8 - Views, Folders and Navigators
16 - Database Title
32 - Design Collection (overall information)
64 - ACL Note (in compiled format)
128 - Unknown
256 - Unknown
512 - Agents (Shared)
1024 - Shared Fields
1548 - Forms, Sub-forms, Views, Folders, Navigators, Agents (Shared), Shared Fields

Кстати - поддерживает множественные значения ( 4+128+256 = 388 )

Обсуждение Вы сможете найти
 
После изменения $FormulaClass требуется ребилд вьюшки (Shift+F9) чтобы изменения вступили в силу. Selection Formula, кстати, тоже работает.
 
А мужики-то не знали! Наверное, лет 20 с хвостом...
Попробовал на тестовой базе - работает. По клику, естественно, открывается не он, а майн форма. Но смотреть можно и в том числе всякие поля элемента дизайна.
28301


1554033295776.png
Код:
DesignElementType := @If(
@Contains($Flags; "F");    "Folder";
@Contains($Flags; "i");    "Image";
@Contains($Flags; "U");    "Subform";
@Contains($Flags; "m");    "Outline";
@Contains($Flags; "#");    "Frameset";
@Contains($Flags; "W");    "Page";
@Matches($Flags; "*{sh}*") & !@Contains($FlagsExt; "W");    "Script Library (excluding Web Service Consumers)";
@Contains($Flags; "=");    "Stylesheet";
@Contains($Flags; "g") & @Contains($Flags; "`");    "Theme";
@Contains($Flags; "|");    "Composite Application";
@Contains($Flags; ":");    "Wiring Properties";
@Contains($FlagsExt; "W") & @Matches($Flags; "*{sh}*");    "Web Service Consumer";
@Contains($Flags; "{");    "Web Service Provider";
@Contains($Flags; "g") & @Contains($Flags; "K");    "XPage";
@Contains($Flags; "g") & @Contains($Flags; ";");    "Custom Control";
@Contains($Flags; "g") & !@Matches($Flags; "*{~K[];`}*");    "File Resource";
@Contains($Flags; "g") & @Contains($Flags; "~") & !@Matches($Flags; "*{~K[];`}*");    "Hidden File Resource (created by XPage build)";
@Contains($Flags; "y");    "Shared Action";
@Contains($Flags; "t");    "Database Script";
@Contains($Flags; "k");    "Data Connection";
@Contains($Flags; "G");    "Navigator";
@Contains($Flags; "@");    "Applet";
@Contains($Flags; "^");    "Shared Column";
@Contains($Flags; "z");    "DB2 Access View";
@Contains($Flags; "O");    "Stored full-text query";
@Contains($Flags; "X");    "Agent Data Note";
@Contains($Flags; "Y") & !@Matches($Flags; "*{FG^}*");    "View";
@Contains($Flags; "f") & !@Matches($Flags; "*{QXstmz{}*");    "Agent";
@Contains($Flags; "D") & !@Matches($Flags; "*{UWy#i:|@Kgz}*");    "Form";
$Flags);
 
Ладно, это то же замечательно. Товарищи по Истлайн, напомните как называются поля для раскраски в Inbox входящего письма?

PS: отправляя письмо задаешь цвет фона и шрифта, которым он будет выделен в Inbox получателя.
 
PS: отправляя письмо задаешь цвет фона и шрифта, которым он будет выделен в Inbox получателя.
Нет такого.. можно только у себя в базе настройки такие сделать, чтобы определенный отображались по особенному..
 
А вот если на новых базах поле $DesignerVersion заменить на 7, можно ли будет открывать их на семерке, например? Как до него добраться?
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!

Курс AD