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

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

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

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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 )

Обсуждение Вы сможете найти
 
T

TIA

После изменения $FormulaClass требуется ребилд вьюшки (Shift+F9) чтобы изменения вступили в силу. Selection Formula, кстати, тоже работает.
 

NetWood

Lotus Team
17.04.2008
545
93
BIT
8
А мужики-то не знали! Наверное, лет 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);
 

Domino-Designer

Людям надо поморгать!
Lotus Team
06.12.2011
616
223
BIT
9
Ладно, это то же замечательно. Товарищи по Истлайн, напомните как называются поля для раскраски в Inbox входящего письма?

PS: отправляя письмо задаешь цвет фона и шрифта, которым он будет выделен в Inbox получателя.
 

swyatogor

Green Team
24.02.2014
593
24
BIT
0
PS: отправляя письмо задаешь цвет фона и шрифта, которым он будет выделен в Inbox получателя.
Нет такого.. можно только у себя в базе настройки такие сделать, чтобы определенный отображались по особенному..
 

NetWood

Lotus Team
17.04.2008
545
93
BIT
8
А вот если на новых базах поле $DesignerVersion заменить на 7, можно ли будет открывать их на семерке, например? Как до него добраться?
 
Мы в соцсетях:

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