VERSION 5.00
Begin VB.Form Form13 
   Caption         =   " Boot Sector Parameters"
   ClientHeight    =   6165
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5190
   Icon            =   "ntbsparams.frx":0000
   LinkTopic       =   "Form13"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6165
   ScaleWidth      =   5190
   StartUpPosition =   3  'Windows Default
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   21
      Left            =   1920
      TabIndex        =   45
      Top             =   5400
      Width           =   1995
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   20
      Left            =   1920
      TabIndex        =   44
      Top             =   5160
      Width           =   2475
   End
   Begin VB.Label Label27 
      Caption         =   "BPB_Checksum:"
      Height          =   255
      Left            =   240
      TabIndex        =   43
      Top             =   5400
      Width           =   1605
   End
   Begin VB.Label Label26 
      Caption         =   "BPB_VolSerialNo:"
      Height          =   255
      Left            =   240
      TabIndex        =   42
      Top             =   5160
      Width           =   1605
   End
   Begin VB.Label Label25 
      Caption         =   "NTFS"
      Height          =   255
      Left            =   4200
      TabIndex        =   41
      Top             =   120
      Width           =   855
   End
   Begin VB.Label Label24 
      Alignment       =   1  'Right Justify
      Caption         =   "File System Type:"
      Height          =   255
      Left            =   2760
      TabIndex        =   40
      Top             =   120
      Width           =   1335
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   19
      Left            =   1920
      TabIndex        =   39
      Top             =   4920
      Width           =   3195
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   18
      Left            =   1920
      TabIndex        =   38
      Top             =   4680
      Width           =   3195
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   17
      Left            =   1920
      TabIndex        =   37
      Top             =   4440
      Width           =   1995
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   16
      Left            =   1920
      TabIndex        =   36
      Top             =   4200
      Width           =   1995
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   15
      Left            =   1920
      TabIndex        =   35
      Top             =   3960
      Width           =   1995
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   14
      Left            =   1920
      TabIndex        =   34
      Top             =   3720
      Width           =   1995
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   13
      Left            =   1920
      TabIndex        =   33
      Top             =   3480
      Width           =   1995
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   12
      Left            =   1920
      TabIndex        =   32
      Top             =   3240
      Width           =   1995
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   11
      Left            =   1920
      TabIndex        =   31
      Top             =   3000
      Width           =   1995
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   10
      Left            =   1920
      TabIndex        =   30
      Top             =   2760
      Width           =   1995
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   9
      Left            =   1920
      TabIndex        =   29
      Top             =   2520
      Width           =   1995
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   8
      Left            =   1920
      TabIndex        =   28
      Top             =   2280
      Width           =   1995
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   6
      Left            =   1920
      TabIndex        =   27
      Top             =   2040
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   5
      Left            =   1920
      TabIndex        =   26
      Top             =   1800
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   4
      Left            =   1920
      TabIndex        =   25
      Top             =   1560
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   3
      Left            =   1920
      TabIndex        =   24
      Top             =   1320
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   2
      Left            =   1920
      TabIndex        =   23
      Top             =   1080
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   1
      Left            =   1920
      TabIndex        =   22
      Top             =   840
      Width           =   2000
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   0
      Left            =   1920
      TabIndex        =   21
      Top             =   600
      Width           =   2000
   End
   Begin VB.Label Label22 
      Caption         =   "C:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   162
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1080
      TabIndex        =   20
      Top             =   120
      Width           =   1695
   End
   Begin VB.Label Label21 
      Caption         =   "BPB_ClusPerIndRec:"
      Height          =   255
      Left            =   240
      TabIndex        =   19
      Top             =   4920
      Width           =   1605
   End
   Begin VB.Label Label20 
      Caption         =   "BPB_ClusPerMFTRec:"
      Height          =   255
      Left            =   240
      TabIndex        =   18
      Top             =   4680
      Width           =   1635
   End
   Begin VB.Label Label19 
      Caption         =   "BPB_LCN_$MFTMirr:"
      Height          =   255
      Left            =   240
      TabIndex        =   17
      Top             =   4440
      Width           =   1605
   End
   Begin VB.Label Label18 
      Caption         =   "BPB_LCN_$MFT:"
      Height          =   255
      Left            =   240
      TabIndex        =   16
      Top             =   4200
      Width           =   1605
   End
   Begin VB.Label Label17 
      Caption         =   "BPB_TotalSectors:"
      Height          =   255
      Left            =   240
      TabIndex        =   15
      Top             =   3960
      Width           =   1605
   End
   Begin VB.Label Label16 
      Caption         =   "BPB_NotUsed:"
      Height          =   255
      Left            =   240
      TabIndex        =   14
      Top             =   3720
      Width           =   1605
   End
   Begin VB.Label Label15 
      Caption         =   "BPB_NotUsed:"
      Height          =   255
      Left            =   240
      TabIndex        =   13
      Top             =   3480
      Width           =   1605
   End
   Begin VB.Label Label14 
      Caption         =   "BPB_HiddSecs:"
      Height          =   255
      Left            =   240
      TabIndex        =   12
      Top             =   3240
      Width           =   1605
   End
   Begin VB.Label Label13 
      Caption         =   "BPB_NumHeads:"
      Height          =   255
      Left            =   240
      TabIndex        =   11
      Top             =   3000
      Width           =   1605
   End
   Begin VB.Label Label12 
      Caption         =   "BPB_SecPerTrk:"
      Height          =   255
      Left            =   240
      TabIndex        =   10
      Top             =   2760
      Width           =   1605
   End
   Begin VB.Label Label11 
      Caption         =   "BPB_Always0:"
      Height          =   255
      Left            =   240
      TabIndex        =   9
      Top             =   2520
      Width           =   1605
   End
   Begin VB.Label Label10 
      Caption         =   "BPB_Media:"
      Height          =   255
      Left            =   240
      TabIndex        =   8
      Top             =   2280
      Width           =   1605
   End
   Begin VB.Label Label8 
      Caption         =   "BPB_NotUsed:"
      Height          =   255
      Left            =   240
      TabIndex        =   7
      Top             =   2040
      Width           =   1600
   End
   Begin VB.Label Label7 
      Caption         =   "BPB_Always0:"
      Height          =   255
      Left            =   240
      TabIndex        =   6
      Top             =   1800
      Width           =   1600
   End
   Begin VB.Label Label6 
      Caption         =   "BPB_RsvdSecCnt:"
      Height          =   255
      Left            =   240
      TabIndex        =   5
      Top             =   1560
      Width           =   1600
   End
   Begin VB.Label Label5 
      Caption         =   "BPB_SecPerClus:"
      Height          =   255
      Left            =   240
      TabIndex        =   4
      Top             =   1320
      Width           =   1600
   End
   Begin VB.Label Label4 
      Caption         =   "BPB_BytsPerSec:"
      Height          =   255
      Left            =   240
      TabIndex        =   3
      Top             =   1080
      Width           =   1600
   End
   Begin VB.Label Label3 
      Caption         =   "BS_OEMName:"
      Height          =   255
      Left            =   240
      TabIndex        =   2
      Top             =   840
      Width           =   1600
   End
   Begin VB.Label Label2 
      Caption         =   "BS_jmpBoot:"
      Height          =   255
      Left            =   240
      TabIndex        =   1
      Top             =   600
      Width           =   1600
   End
   Begin VB.Label Label1 
      Caption         =   "Drive"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   162
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   735
   End
End
Attribute VB_Name = "Form13"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim BPB_BytsPerSec As Integer
Dim BPB_SecPerClus As Integer
Dim BPB_RsvdSecCnt As Long
Dim BPB_Always0 As Integer
Dim BPB_Media As Byte
Dim BPB_SecPerTrk As Long
Dim BPB_NumHeads As Long
Dim BPB_HiddSec As Long
Dim S1 As Long
Dim S2 As Long
Dim S3 As Long
Dim S4 As Long
Dim BPB_TotSec64 As Double
Dim BPB_MFT_LCN As Double
Dim BPB_MFTMirr_LCN As Double
Dim BPB_ClusPerMFTRec As Long
Dim BPB_ClusPerIndRec As Long
Dim BPB_Checksum As Long
Dim txt_NTFS As String

Private Sub Form_Load()
Label22.Caption = DRV
Label23(0).Caption = Form1.ByteToHex(BSBuffer(0)) + " h " + Form1.ByteToHex(BSBuffer(1)) + " h"
txt_NTFS = Chr$(BSBuffer(3)) + Chr$(BSBuffer(4)) + Chr$(BSBuffer(5)) + Chr$(BSBuffer(6)) + Chr$(BSBuffer(7)) + Chr$(BSBuffer(8)) + Chr$(BSBuffer(9)) + Chr$(BSBuffer(10))
Label23(1).Caption = txt_NTFS
BPB_BytsPerSec = (BSBuffer(12) * 256) + BSBuffer(11)
Label23(2).Caption = CStr(BPB_BytsPerSec)
BPB_SecPerClus = CInt(BSBuffer(13))
Label23(3).Caption = CStr(BPB_SecPerClus)
BPB_RsvdSecCnt = (BSBuffer(15) * 256) + BSBuffer(14)
Label23(4).Caption = CStr(BPB_RsvdSecCnt)
BPB_Always0 = CInt(BSBuffer(16)) + CInt(BSBuffer(17)) + CInt(BSBuffer(18))
Label23(5).Caption = Form1.ByteToHex(BSBuffer(16)) + " h , " + Form1.ByteToHex(BSBuffer(17)) + " h , " + Form1.ByteToHex(BSBuffer(18)) + " h"
Label23(6).Caption = Form1.ByteToHex(BSBuffer(20)) + Form1.ByteToHex(BSBuffer(19)) + "h"
BPB_Media = BSBuffer(21)
Label23(8).Caption = Form1.ByteToHex(BPB_Media) + " h"
Label23(9).Caption = Form1.ByteToHex(BSBuffer(23)) + Form1.ByteToHex(BSBuffer(22)) + "h"
BPB_SecPerTrk = (BSBuffer(25) * 256) + BSBuffer(24)
Label23(10).Caption = CStr(BPB_SecPerTrk)
BPB_NumHeads = (BSBuffer(27) * 256) + BSBuffer(26)
Label23(11).Caption = CStr(BPB_NumHeads)
BPB_HiddSec = (CLng(BSBuffer(31)) * 16777216) + (CLng(BSBuffer(30)) * 65536) + (CLng(BSBuffer(29)) * 256) + CLng(BSBuffer(28))
Label23(12).Caption = CStr(BPB_HiddSec)
Label23(13).Caption = Form1.ByteToHex(BSBuffer(35)) + Form1.ByteToHex(BSBuffer(34)) + Form1.ByteToHex(BSBuffer(33)) + Form1.ByteToHex(BSBuffer(32)) + " h"
Label23(14).Caption = Form1.ByteToHex(BSBuffer(39)) + Form1.ByteToHex(BSBuffer(38)) + Form1.ByteToHex(BSBuffer(37)) + Form1.ByteToHex(BSBuffer(36)) + " h"
S1 = CLng(BSBuffer(44))
S2 = CLng(BSBuffer(45))
S3 = CLng(BSBuffer(46))
S4 = CLng(BSBuffer(47))
If S1 + S2 + S3 + S4 = 0 Then
   S1 = CLng(BSBuffer(40))
   S2 = CLng(BSBuffer(41))
   S3 = CLng(BSBuffer(42))
   S4 = CLng(BSBuffer(43))
   BPB_TotSec64 = CLng((S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1)
   Label23(15).Caption = CStr(BPB_TotSec64)
Else
   Label23(15).Caption = Form1.ByteToHex(BSBuffer(47)) + Form1.ByteToHex(BSBuffer(46)) + Form1.ByteToHex(BSBuffer(45)) + Form1.ByteToHex(BSBuffer(44)) + Form1.ByteToHex(BSBuffer(43)) + Form1.ByteToHex(BSBuffer(42)) + Form1.ByteToHex(BSBuffer(41)) + Form1.ByteToHex(BSBuffer(40)) + " h"
End If
S1 = CLng(BSBuffer(52))
S2 = CLng(BSBuffer(53))
S3 = CLng(BSBuffer(54))
S4 = CLng(BSBuffer(55))
If S1 + S2 + S3 + S4 = 0 Then
   S1 = CLng(BSBuffer(48))
   S2 = CLng(BSBuffer(49))
   S3 = CLng(BSBuffer(50))
   S4 = CLng(BSBuffer(51))
   BPB_MFT_LCN = CLng((S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1)
   Label23(16).Caption = CStr(BPB_MFT_LCN)
Else
   Label23(16).Caption = Form1.ByteToHex(BSBuffer(55)) + Form1.ByteToHex(BSBuffer(54)) + Form1.ByteToHex(BSBuffer(53)) + Form1.ByteToHex(BSBuffer(52)) + Form1.ByteToHex(BSBuffer(51)) + Form1.ByteToHex(BSBuffer(50)) + Form1.ByteToHex(BSBuffer(49)) + Form1.ByteToHex(BSBuffer(48)) + " h"
End If
S1 = CLng(BSBuffer(60))
S2 = CLng(BSBuffer(61))
S3 = CLng(BSBuffer(62))
S4 = CLng(BSBuffer(63))
If S1 + S2 + S3 + S4 = 0 Then
   S1 = CLng(BSBuffer(56))
   S2 = CLng(BSBuffer(57))
   S3 = CLng(BSBuffer(58))
   S4 = CLng(BSBuffer(59))
   BPB_MFTMirr_LCN = CLng((S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1)
   Label23(17).Caption = CStr(BPB_MFTMirr_LCN)
Else
   Label23(17).Caption = Form1.ByteToHex(BSBuffer(63)) + Form1.ByteToHex(BSBuffer(62)) + Form1.ByteToHex(BSBuffer(61)) + Form1.ByteToHex(BSBuffer(60)) + Form1.ByteToHex(BSBuffer(59)) + Form1.ByteToHex(BSBuffer(58)) + Form1.ByteToHex(BSBuffer(57)) + Form1.ByteToHex(BSBuffer(56)) + " h"
End If
S1 = CLng(BSBuffer(64))
S2 = CLng(BSBuffer(65))
S3 = CLng(BSBuffer(66))
S4 = CLng(BSBuffer(67))
BPB_ClusPerMFTRec = CLng((S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1)
Label23(18).Caption = CStr(BPB_ClusPerMFTRec)
If BPB_ClusPerMFTRec > 127 Then
   If BPB_ClusPerMFTRec < 256 Then
      BPB_ClusPerMFTRec = 256 - BPB_ClusPerMFTRec
      Label23(18).Caption = Label23(18).Caption + "  [ MFT Record Size: " + CStr(2 ^ BPB_ClusPerMFTRec) + " bytes ]"
   End If
End If
S1 = CLng(BSBuffer(68))
S2 = CLng(BSBuffer(69))
S3 = CLng(BSBuffer(70))
S4 = CLng(BSBuffer(71))
BPB_ClusPerIndRec = CLng((S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1)
Label23(19).Caption = CStr(BPB_ClusPerIndRec)
If BPB_ClusPerIndRec > 127 Then
   If BPB_ClusPerIndRec < 256 Then
      BPB_ClusPerIndRec = 256 - BPB_ClusPerIndRec
      Label23(18).Caption = Label23(18).Caption + "  [ Index Record Size: " + CStr(2 ^ BPB_ClusPerIndRec) + " bytes ]"
   End If
End If
Label23(20).Caption = Form1.ByteToHex(BSBuffer(79)) + Form1.ByteToHex(BSBuffer(78)) + Form1.ByteToHex(BSBuffer(77)) + Form1.ByteToHex(BSBuffer(76)) + " " + Form1.ByteToHex(BSBuffer(75)) + Form1.ByteToHex(BSBuffer(74)) + Form1.ByteToHex(BSBuffer(73)) + Form1.ByteToHex(BSBuffer(72)) + " h"
Label23(21).Caption = Form1.ByteToHex(BSBuffer(83)) + Form1.ByteToHex(BSBuffer(82)) + Form1.ByteToHex(BSBuffer(81)) + Form1.ByteToHex(BSBuffer(80)) + " h"
End Sub