3
Abfrage ob Word-Dokument passwortgeschützt ist (vb.net, VB2010Express)
Hallo,
gibt es in vb.net eine Möglichkeit zu prüfen, ob ein zu öffnendes Word-Dokument passwortgeschützt ist?
Neugierige Grüße,
Andreas
gibt es in vb.net eine Möglichkeit zu prüfen, ob ein zu öffnendes Word-Dokument passwortgeschützt ist?
Neugierige Grüße,
Andreas
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 246750
Url: https://administrator.de/contentid/246750
Printed on: April 18, 2024 at 23:04 o'clock
3 Comments
Latest comment
Hallo Andreas,
wenn es um ein Passwort geht das zum Öffnen des Dokumentes benötigt wird, könntest du es über einen Umweg so machen: Das "Dummypassword" kannst du bei jedem Öffnen eines Dokumentes mit übergeben, nicht passwortgeschützte Dokumente ignorieren den Parameter.
Eine einfache Methode zu erkennen ob ein File geschützt ist oder nicht, ohne das File zu öffnen, ist mir persönlich nicht bekannt. Du müsstest das dann anhand der RAW-Struktur der Word-Dokumente analysieren. Beim OpenXML Format wäre das kein Problem, da ungeschützte Files die "ZIP-Signatur" besitzen, geschützte nicht. Um auch Office 97-2003 Dokumente zu berücksichtigen wäre dies vermutlich aufwändiger.
Grüße Uwe
wenn es um ein Passwort geht das zum Öffnen des Dokumentes benötigt wird, könntest du es über einen Umweg so machen: Das "Dummypassword" kannst du bei jedem Öffnen eines Dokumentes mit übergeben, nicht passwortgeschützte Dokumente ignorieren den Parameter.
Function isProtected(ByVal path As String) As Boolean
Dim objWord As New Word.Application
Try
Dim doc As Document = objWord.Documents.Open(path, , , , "dummypassword")
Catch ex As System.Runtime.InteropServices.COMException
If ex.ErrorCode = "-2146822880" Then
'Dokument ist Passwortgeschützt
Return True
End If
End Try
objWord.Quit()
Return False
End FunctionGrüße Uwe
1
Hallo,
vielen Dank für die Hinweise!!!
Aus irgendeinem Grund hat es mit dem Code von Uwe leider nicht funktioniert.
Ich habe noch etwas anderes gefunden, s.u., womit es für meine Zwecke soweit ganz gut klappt. Ich verwende den Code zwar nur für Word-Dokumente, wenn ich es richtig verstehe, soll aber wohl für alle Dateiformate funktionieren.
Quelle
Grüße,
Andreas
vielen Dank für die Hinweise!!!
Aus irgendeinem Grund hat es mit dem Code von Uwe leider nicht funktioniert.
Ich habe noch etwas anderes gefunden, s.u., womit es für meine Zwecke soweit ganz gut klappt. Ich verwende den Code zwar nur für Word-Dokumente, wenn ich es richtig verstehe, soll aber wohl für alle Dateiformate funktionieren.
Quelle
Public Function AnyFileIsPassworded(ByVal file__1 As String) As Boolean
Dim bytes = File.ReadAllBytes(file__1)
Return AnyFileIsPassworded(bytes)
Return False
End Function
Public Function AnyFileIsPassworded(ByVal bytes As Byte()) As Boolean
Dim prefix = System.Text.Encoding.Default.GetString(bytes.Take(2).ToArray())
If prefix = "PK" Then
'ZIP and not password protected
Return False
End If
If prefix = "ÐÏ" Then
'Office format.
'Flagged with password
If bytes.Skip(&H20C).Take(1).ToArray()(0) = &H2F Then
Return True
End If
'XLS 2003
If bytes.Skip(&H214).Take(1).ToArray()(0) = &H2F Then
Return True
End If
'XLS 2005
If bytes.Skip(&H20B).Take(1).ToArray()(0) = &H13 Then
Return True
End If
'DOC 2005
If bytes.Length < 2000 Then
Return False
End If
'Guessing false
Dim start = System.Text.Encoding.Default.GetString(bytes.Take(2000).ToArray())
'DOC/XLS 2007+
start = start.Replace(vbNullChar, " ")
If start.Contains("E n c r y p t e d P a c k a g e") Then
Return True
End If
Return False
End If
'Unknown.
Return False
End FunctionGrüße,
Andreas
1
