CONNAIT LE SUJET D'UN PDF SÉCURISÉ OU NON

Const sujet = "/SUBJECT"

Public Function getDescriptionPDF(strFile As String) As String
    
    Dim texte As String * 10000
    Dim trouver As Boolean
    Dim position As Integer
    Dim compteur As Long
    Dim j As Integer
    
    trouver = False
    
    Open strFile For Binary As #1 Len = Len(texte)
    
    compteur = 1
    
    While Not trouver
        Get #1, compteur, texte

        position = InStr(1, UCase(texte), sujet)
        
        If position <> 0 Then
            trouver = True
            getDescriptionPDF = Mid(texte, position + Len(sujet) + 2, InStr(position + Len(sujet) + 2, texte, ")") - (position + Len(sujet) + 2))
        ElseIf Mid(texte, 1, 1) = Chr(0) And Mid(texte, 9999, 1) = Chr(0) And _
               Mid(texte, 500, 1) = Chr(0) And Mid(texte, 10, 1) = Chr(0) And _
               Mid(texte, 800, 1) = Chr(0) And Mid(texte, 1000, 1) = Chr(0) And _
               Mid(texte, 5000, 1) = Chr(0) And Mid(texte, 7500, 1) = Chr(0) Then
            trouver = True
            getDescriptionPDF = ""
        End If

        compteur = compteur + 10000
    Wend
    Close #1
End Function