vb: COM descriptors described

Author: AlexeyTolstopyatov

SunFlower.Test/UnitTest1.vb

@@ -11,11 +11,11 @@ Namespace SunFlower.Test
         <SetUp>
         Public Sub Setup()
         End Sub
-        
         ''' Failed. Half of pointers are points to non-allocated space
         <Test(Author := "CoffeeLake", Description := "Checks internal nested structures of Objects and procedures")>
         Public Sub ModuleStructTest()
-            Dim path = "C:\Program Files (x86)\Semi VB Decompiler\SemiVBDecompiler.EXE"
+            Dim path = "D:\VB3TOOLS\VBDIS3.67e_Reloaded_Rev3_DoDi_s_VB3Decompiler\VBDIS3.67e\VBDIS3.exe"
+            ' Dim path = "C:\Program Files (x86)\Semi VB Decompiler\SemiVBDecompiler.EXE"
             Dim common = New CommonDumpingService(path)
 
             Dim vbParamsOption As Some = common.Dump()
@@ -27,51 +27,23 @@ Namespace SunFlower.Test
                     Dim entryPointManager = New VbEntryPointManager(reader, vbParam, vbParam.Sections)
                     Dim headerResult As Some = entryPointManager.Vb5Header
                     Dim header = headerResult.Cast(Of Vb5Header)()
+                    Dim proj = New Vb5ProjectParser(
+                        vbParam.ImageBase,
+                        header,
+                        reader,
+                        vbParam.Sections,
+                        entryPointManager.RuntimeHeaderOffset
+                    )
+                    Dim objOption = DirectCast(proj.ObjectTable, Some)
+                    Dim objTable = DirectCast(objOption.Data, Vb5ObjectTable)
 
-                    Dim projectInfo = New Vb5ProjectParser(vbParam.ImageBase, header, reader, vbParam.Sections, entryPointManager.RuntimeHeaderOffset)
-                    
-                    Dim objOption = DirectCast(projectInfo.ObjectTable, Some)
-                    Dim obj = DirectCast(objOption.Data, Vb5ObjectTable)
-
-                    'Dim impParser = New VbImportParser(reader, vbParam.Sections, vbParam.ImageBase)
-                    'Dim imps = impParser.ParseImports(info.ExternalTablePointer, info.ExternalTableCount)
-                    
-                    Dim objParser = New Vb5ObjectsParser(reader, vbParam.Sections, vbParam.ImageBase)
-                    Dim objs = objParser.ParseObjects(obj.ObjectsArrayPointer, obj.TotalObjectsCount)
-                    
-                    objs.Clear()
-                End Using
-            End Using
-            Assert.Pass()
-        End Sub
-        <Test(Author := "CoffeeLake")>
-        Public Sub ModuleImportsTest
-            Dim path = "C:\Program Files (x86)\Semi VB Decompiler\SemiVBDecompiler.EXE"
-            ' Dim path = "D:\VB3TOOLS\VBDIS3.67e_Reloaded_Rev3_DoDi_s_VB3Decompiler\VBDIS3.67e\VBDIS3.exe"
-            Dim common = New CommonDumpingService(path)
-            
-            Dim vbParamsOption As Some = common.Dump()
-            
-            Dim vbParam As Vb5ServiceParameters = vbParamsOption.Data
-            
-            Using stream = New FileStream(path, FileMode.Open, FileAccess.Read)
-                Using reader = New BinaryReader(stream)
-                    Dim entryPointManager = New VbEntryPointManager(reader, vbParam, vbParam.Sections)
-                    Dim headerResult As Some = entryPointManager.Vb5Header
-                    Dim header = headerResult.Cast(Of Vb5Header)()
-                    
-                    Dim projectInfo = New Vb5ProjectParser(vbParam.ImageBase, header, reader, vbParam.Sections, entryPointManager.RuntimeHeaderOffset)
-                    Dim infoOption = DirectCast(projectInfo.ProjectInfo, Some)
-                    Dim info = DirectCast(infoOption.Data, Vb5ProjectInfo)
-                    Dim objOption = DirectCast(projectInfo.ObjectTable, Some)
-                    Dim obj = DirectCast(objOption.Data, Vb5ObjectTable)
-                    Dim impParser = New VbImportParser(reader, vbParam.Sections, vbParam.ImageBase)
-                    Dim imps = impParser.ParseImports(info.ExternalTablePointer, info.ExternalTableCount)
+                    Dim comParser = New Vb5ComRegistrationParser(vbParam.ImageBase, header, reader, vbParam.Sections)
+                    Dim comData = comParser.ParseComRegistrationData()
 
                     Dim objParser = New Vb5ObjectsParser(reader, vbParam.Sections, vbParam.ImageBase)
-                    Dim objs = objParser.ParseObjects(obj.ObjectsArrayPointer, obj.TotalObjectsCount)
+                    Dim obj = objParser.ParseObjects(objTable.ObjectsArrayPointer, objTable.TotalObjectsCount)
 
-                    objs.Clear()
+                    comData.GetType()
                 End Using
             End Using
             Assert.Pass()

SunFlower.Vb/Headers/Vb5ComInfoOffsets.vb

@@ -1,39 +1,40 @@
 Imports System.Runtime.InteropServices
 
 Namespace Headers
-    <StructLayout(LayoutKind.Sequential, Pack := 1)>
+    <StructLayout(LayoutKind.Sequential, Pack:=1)>
     Public Structure Vb5ComData
-        ''' Offset from the COM registration data ENDS
-        Public RegInfoOffset As UInteger
-        Public ProjectNameOffset As UInteger
-        Public HelpDirectoryOffset As UInteger
-        Public ProjectDescriptionOffset As UInteger
-        Public UuidProjectClsId As ULong
-        Public TypeLibraryLanguageId As UInteger
-        Public Unknown As UInteger
-        Public TypeLibraryMajor As UShort
-        Public TypeLibraryMinor As UShort
+        Public RegInfoOffset As UInteger      ' bRegInfo
+        Public ProjectNameOffset As UInteger  ' bSZProjectName
+        Public HelpDirectoryOffset As UInteger ' bSZHelpDirectory
+        Public ProjectDescriptionOffset As UInteger ' bSZProjectDescription
+        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=16)>
+        Public UuidProjectClsId As Byte()     ' uuidProjectClsId
+        Public TlbLcid As UInteger            ' dwTlbLcid
+        Public Unknown As UShort              ' wUnknown
+        Public TlbVerMajor As UShort          ' wTlbVerMajor
+        Public TlbVerMinor As UShort          ' wTlbVerMinor
     End Structure
+
 
-    <StructLayout(LayoutKind.Sequential, Pack := 1)>
+    <StructLayout(LayoutKind.Sequential, Pack:=1)>
     Public Structure Vb5ComInfo
-        ''' If not zero -> another COM information structure goes next
-        Public NextObjectOffset As UInteger
-        Public ObjectNameOffset As UInteger
-        Public ObjectDescriptionOffset As UInteger
-        Public InstancingMode As UInteger
-        Public ObjectId As UInteger
-        Public UuidObject As ULong
-        Public IsInterface As UInteger
-        Public UuidObjectInterfaceOffset As UInteger
-        Public UuidEventsInterfaceOffset As UInteger
-        Public HasEvents As UInteger
-        Public MiscStatus As UInteger
-        Public ClassType As Byte
-        Public ObjectType As Byte
-        Public ToolBoxBitmap32 As UShort
-        Public DefaultIcon As UShort
-        Public IsDesigner As UShort
-        Public DesignerDataOffset As UInteger
+        Public NextObjectOffset As UInteger   ' bNextObject
+        Public ObjectNameOffset As UInteger   ' bObjectName
+        Public ObjectDescriptionOffset As UInteger ' bObjectDescription
+        Public InstancingMode As UInteger     ' dwInstancing
+        Public ObjectId As UInteger           ' dwObjectId
+        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=16)>
+        Public UuidObject As Byte()           ' uuidObject
+        Public IsInterface As UInteger        ' fIsInterface
+        Public UuidObjectInterfaceOffset As UInteger ' bUuidObjectIFace
+        Public UuidEventsInterfaceOffset As UInteger ' bUuidEventsIFace
+        Public HasEvents As UInteger          ' fHasEvents
+        Public MiscStatus As UInteger         ' dwMiscStatus
+        Public ClassType As Byte              ' fClassType
+        Public ObjectType As Byte             ' fObjectType
+        Public ToolboxBitmap32 As UShort      ' wToolboxBitmap32
+        Public DefaultIcon As UShort          ' wDefaultIcon
+        Public IsDesigner As UShort           ' fIsDesigner
+        Public DesignerDataOffset As UInteger ' bDesignerData
     End Structure
 End Namespace

SunFlower.Vb/Headers/Vb5ComRegistration.vb

@@ -41,6 +41,19 @@ Namespace Managers
                 Return $"![{ex.Message}]"
             End Try
         End Function
+        
+        Protected Function ReadStringAtOffset(offset As UInteger) As String
+            Dim bytes As New List(Of Byte)()
+            Dim b As Integer
+                
+            Do
+                b = _reader.ReadByte()
+                If b = 0 Then Exit Do
+                bytes.Add(CByte(b))
+            Loop While bytes.Count < 256
+
+            Return Encoding.Default.GetString(bytes.ToArray())
+        End Function
         Protected Function VaToFileOffset(va As UInteger) As Long
             Dim rva = If(va - imageBase > 0,
                          va - imageBase,