Hallo.
Habe hier eine .vcrd Datei von mir, die habe ich ca. 2013 erstellt.
Es handelt sich um eine User Vault Datei , kein Masterkey oder soetwas.
Jetzt versuche ich sie zu entschlüsseln.
Leider kommt da nur Mist raus
und zwar ™TÍ<¨‡K¢`ˆˆÝ;U
Einen Masterkey oder soetwas hatte ich afaik nicht gesetzt ..
Kann mir jemand was dazu sagen?
Habe hier eine .vcrd Datei von mir, die habe ich ca. 2013 erstellt.
Es handelt sich um eine User Vault Datei , kein Masterkey oder soetwas.
Jetzt versuche ich sie zu entschlüsseln.
VB.NET-Quellcode
- #Region "General functions"
- <DllImport("Crypt32.Dll", SetLastError:=True, CharSet:=System.Runtime.InteropServices.CharSet.Auto)> _
- Private Function CryptUnprotectData(ByRef pDataIn As DATA_BLOB, szDataDescr As String, ByRef pOptionalEntropy As DATA_BLOB, pvReserved As IntPtr, ByRef pPromptStruct As CRYPTPROTECT_PROMPTSTRUCT, dwFlags As Integer, ByRef pDataOut As DATA_BLOB) As Boolean
- End Function
- <DllImport("Kernel32.Dll", SetLastError:=True, ExactSpelling:=True)> Public Function LocalFree(hMem As IntPtr) As IntPtr
- End Function
- <Flags()> Private Enum CryptProtectPromptFlags
- CRYPTPROTECT_PROMPT_ON_UNPROTECT = &H1
- CRYPTPROTECT_PROMPT_ON_PROTECT = &H2
- End Enum
- <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)> Private Structure CRYPTPROTECT_PROMPTSTRUCT
- Public cbSize As Integer
- Public dwPromptFlags As CryptProtectPromptFlags
- Public hwndApp As IntPtr
- Public szPrompt As String
- End Structure
- <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)> Private Structure DATA_BLOB
- Public cbData As Integer
- Public pbData As IntPtr
- End Structure
- #End Region
- Private Sub Versuch()
- Dim DecryptData As Func(Of Byte(), String) = Function(Data As Byte())
- Dim dataIn, dataOut As DATA_BLOB
- Dim gchDataIn As GCHandle = GCHandle.Alloc(Data, GCHandleType.Pinned)
- dataIn.pbData = gchDataIn.AddrOfPinnedObject()
- dataIn.cbData = Data.Length
- CryptUnprotectData(dataIn, String.Empty, Nothing, IntPtr.Zero, Nothing, 0, dataOut)
- gchDataIn.Free()
- Dim retval As String = Marshal.PtrToStringAnsi(dataOut.pbData, dataOut.cbData)
- LocalFree(dataOut.pbData)
- Return retval
- End Function
- Dim Pat As String = "dgk.vcrd"
- Dim W As Byte()
- Dim fs As FileStream = File.Open(Pat, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
- Using sw As BinaryReader = New BinaryReader(fs, Encoding.Default)
- W = sw.ReadBytes(CInt(fs.Length))
- End Using
- Clipboard.SetText(Encoding.Default.GetString(W))
- End Sub
Leider kommt da nur Mist raus
und zwar ™TÍ<¨‡K¢`ˆˆÝ;U
Einen Masterkey oder soetwas hatte ich afaik nicht gesetzt ..
Kann mir jemand was dazu sagen?