Pega este codigo en VBA y ejecuta. El resultado es el UUID del archivo.
Sub CATMain()
Dim sText As String
Read_UUID = ""
sPath = InputBox("Path")
Open sPath For Binary Access Read As #1
sText = Space(LOF(1))
Get #1, , sText
Close #1
lStart = InStr(sText, HEADER)
If lStart > 0 Then
For n = 1 To 16
Read_UUID = Read_UUID & Right("0" & Hex(Asc(Mid(sText, lStart + Len(HEADER) - 1 + n, 1))), 2)
Next n
Read_UUID = Left(Read_UUID, 8) & "-" & Mid(Read_UUID, 9, 4) & "-" & Mid(Read_UUID, 13, 4) & "-" & Mid(Read_UUID, 17, 4) & "-" & Right(Read_UUID, 12)
Else
Read_UUID = "NOT FOUND"
End If
MsgBox (Read_UUID)
End Sub
