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

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

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

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

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

Можно определить, файл прикреплен к доку или к Rtf?

  • Автор темы wowa
  • Дата начала
W

wowa

Можно определить, файл прикреплен к доку или к RTF?

вообщем проблема такова...
Есть один файл, который прикреплен к RTF, и еще один, который прикреплен к документу
Можно определить файл, который прикреплен к документу?
Задача немного упрощается тем, что файл, который прикреплен к документу, был прикреплен последним!!


Я что-то себе набросал типа такого:
Код:
Set vNewAttach = Nothing
Forall item In doc.Items
If Ucase( item.Name ) = "$FILE" Then

If vNewAttach Is Nothing Then
Set vNewAttach = item
Else
If ( Cdbl(item.LastModified) > Cdbl(vNewAttach.LastModified) ) Then
Delete vNewAttach
Set vNewAttach = item 
End If
End If


End If
End Forall
В итоге, vNewAttach - последний прикрепленный файл должен быть, но к сожалению вроде не так...
 

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
Аттачи посмотреть можно так: NotesDocument.EmbeddedObjects
Узнать, к чему прикреплен так: NotesEmbeddedObject.Parent
 
W

wowa

Medevic , ну вот сделал я
Код:
Set emoInputAttachment = doc.GetAttachment ( stFileName )
Set notesRichTextItem = emoInputAttachment.Parent
КАк проверить прикреплен ли он к документу?
If notesRichTextItem Is Nothing Then ???????????
или как ???
 
W

wowa

Medevic , что-то у меня все файлы is Nothing
 
A

Archi2001

... я проверял черз "китай" :rolleyes: :
делал на форме вычисл. скрытое поле:
@If(@Attachments(@True)!=0;"1";"") ...
далее, значение поля можно использовать и в скриптах ...
 
O

Omh

Можно сделать так:
пройти по всем $File и получить ВСЕ аттачменты.
Потом взять интересующий RT и, проверть на IsArray его .EmbeddedObjects.
Это и будут аттачменты в RT.
Все остальные либо у документа, либо в других RT.
 
W

wowa

Можно сделать так:
пройти по всем $File и получить ВСЕ аттачменты.
Потом взять интересующий RT и, проверть на IsArray его .EmbeddedObjects.
Это и будут аттачменты в RT.
Все остальные либо у документа, либо в других RT.

А как это кодом сделать?
вот получаю все Аттачменты, вернее их путь (или как надо? )
Код:
Forall item In doc.Items

If Ucase( item.Name ) = "$FILE" Then

stFileName = item.Values(0)

Set emoInputAttachment = doc.GetAttachment ( stFileName )
stFilePath = stTempDirectory & "\" & stFileName

Redim Preserve ausrListFileName( i )
ausrListFileName( i ) = stFilePath
i = i + 1
 
W

wowa

Как проверить, данный аттачмент есть уже в RTF ?
 
Мы в соцсетях:

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