Improvements to Boot Sector editor

Author: Digitoxin1

DiskImageTool/DiskImage/BootSector.vb

@@ -7,10 +7,10 @@ Namespace DiskImage
         Private ReadOnly _FileBytes As ImageByteArray
         Private Shared ReadOnly _ValidBootStrapSignature As UShort = &HAA55
         Public Shared ReadOnly ValidBytesPerSector() As UShort = {512, 1024, 2048, 4096}
-        Private Shared ReadOnly _ValidDriveNumber() As Byte = {&H0, &H80}
+        Public Shared ReadOnly ValidDriveNumber() As Byte = {&H0, &H80}
         Private Shared ReadOnly _ValidExtendedBootSignature() As Byte = {&H29}
         Private Shared ReadOnly _ValidJumpInstructuon() As Byte = {&HEB, &HE9}
-        Private Shared ReadOnly _ValidMediaDescriptor() As Byte = {&HF0, &HF8, &HF9, &HFA, &HFB, &HFC, &HFD, &HFE, &HFF}
+        Public Shared ReadOnly ValidMediaDescriptor() As Byte = {&HF0, &HF8, &HF9, &HFA, &HFB, &HFC, &HFD, &HFE, &HFF}
         Public Shared ReadOnly ValidSectorsPerCluster() As Byte = {1, 2, 4, 8, 16, 32, 64, 128}
 
         Public Enum BootSectorOffsets As UInteger
@@ -350,7 +350,7 @@ Namespace DiskImage
         End Function
 
         Public Function HasValidDriveNumber() As Boolean
-            Return _ValidDriveNumber.Contains(DriveNumber)
+            Return ValidDriveNumber.Contains(DriveNumber)
         End Function
 
         Public Function HasValidExtendedBootSignature() As Boolean
@@ -362,7 +362,7 @@ Namespace DiskImage
         End Function
 
         Public Function HasValidMediaDescriptor() As Boolean
-            Return _ValidMediaDescriptor.Contains(MediaDescriptor)
+            Return ValidMediaDescriptor.Contains(MediaDescriptor)
         End Function
 
         Public Function HasValidNumberOfFATs() As Boolean

DiskImageTool/DiskImage/Functions.vb

@@ -293,6 +293,13 @@ Namespace DiskImage
             Return DT
         End Function
 
+        Public Function GenerateVolumeSerialNumber(Value As Date) As UInteger
+            Dim Lo As UShort = (Value.Day + Value.Month * 256) + (Value.Millisecond \ 10 + Value.Second * 256)
+            Dim Hi As UShort = (Value.Minute + Value.Hour * 256) + Value.Year
+
+            Return Hi + Lo * 65536
+        End Function
+
         Public Function GetDataFromChain(FileBytes As ByteArray, SectorChain As List(Of UInteger)) As Byte()
             Dim SectorSize As UInteger = BYTES_PER_SECTOR
             Dim Content(SectorChain.Count * SectorSize - 1) As Byte

DiskImageTool/DiskImageTool.vbproj

@@ -30,7 +30,7 @@
     <ProductName>DiskImageTool</ProductName>
     <PublisherName>Digitoxin</PublisherName>
     <ApplicationRevision>0</ApplicationRevision>
-    <ApplicationVersion>1.25.0.%2a</ApplicationVersion>
+    <ApplicationVersion>1.26.0.%2a</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <PublishWizardCompleted>true</PublishWizardCompleted>
     <BootstrapperEnabled>true</BootstrapperEnabled>
@@ -163,6 +163,12 @@
     <Compile Include="Forms\HexSearchForm.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Forms\VolumeSerialNumberForm.Designer.vb">
+      <DependentUpon>VolumeSerialNumberForm.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Forms\VolumeSerialNumberForm.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="Functions.vb" />
     <Compile Include="Controls\HexTextBox.vb">
       <SubType>Component</SubType>
@@ -252,6 +258,9 @@
     <EmbeddedResource Include="Forms\ItemScanForm.resx">
       <DependentUpon>ItemScanForm.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Forms\VolumeSerialNumberForm.resx">
+      <DependentUpon>VolumeSerialNumberForm.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="MainForm.resx">
       <DependentUpon>MainForm.vb</DependentUpon>
       <SubType>Designer</SubType>