VERSION 5.00
Begin VB.Form Form17 
   Caption         =   " Linux Ext2 (Ext3, Ext4) File System Inodes"
   ClientHeight    =   7380
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9525
   Icon            =   "ext4inodes.frx":0000
   LinkTopic       =   "Form17"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7380
   ScaleWidth      =   9525
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdPrev 
      DownPicture     =   "ext4inodes.frx":0442
      Height          =   345
      Left            =   3930
      MaskColor       =   &H00FFFFFF&
      Picture         =   "ext4inodes.frx":057E
      Style           =   1  'Graphical
      TabIndex        =   81
      ToolTipText     =   "Previous"
      Top             =   3720
      UseMaskColor    =   -1  'True
      Width           =   435
   End
   Begin VB.CommandButton cmdNext 
      DownPicture     =   "ext4inodes.frx":06BA
      Height          =   345
      Left            =   4560
      MaskColor       =   &H00FFFFFF&
      Picture         =   "ext4inodes.frx":07F6
      Style           =   1  'Graphical
      TabIndex        =   80
      ToolTipText     =   "Next"
      Top             =   3720
      UseMaskColor    =   -1  'True
      Width           =   435
   End
   Begin VB.Label Label7 
      Caption         =   "Pad 2:"
      Height          =   255
      Left            =   5280
      TabIndex        =   88
      Top             =   6840
      Width           =   1605
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   38
      Left            =   6960
      TabIndex        =   87
      Top             =   6840
      Width           =   2205
   End
   Begin VB.Label Label35 
      Caption         =   "Offset:"
      Height          =   255
      Left            =   360
      TabIndex        =   86
      Top             =   4080
      Width           =   615
   End
   Begin VB.Label Label34 
      Caption         =   "0"
      Height          =   255
      Left            =   1080
      TabIndex        =   85
      Top             =   4080
      Width           =   855
   End
   Begin VB.Label Label33 
      Caption         =   "Sector :"
      Height          =   255
      Left            =   360
      TabIndex        =   84
      Top             =   3720
      Width           =   615
   End
   Begin VB.Label Label32 
      Caption         =   "0"
      Height          =   255
      Left            =   1080
      TabIndex        =   83
      Top             =   3720
      Width           =   1575
   End
   Begin VB.Label Label31 
      Caption         =   $"ext4inodes.frx":0932
      Height          =   1335
      Left            =   240
      TabIndex        =   82
      Top             =   4920
      Width           =   4815
   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        =   79
      Top             =   120
      Width           =   735
   End
   Begin VB.Label Label2 
      Caption         =   "File Mode :"
      Height          =   255
      Left            =   240
      TabIndex        =   78
      Top             =   600
      Width           =   1605
   End
   Begin VB.Label Label3 
      Caption         =   "Owner uid low 16 bit:"
      Height          =   255
      Left            =   240
      TabIndex        =   77
      Top             =   840
      Width           =   1605
   End
   Begin VB.Label Label4 
      Caption         =   "Size in Bytes:"
      Height          =   255
      Left            =   240
      TabIndex        =   76
      Top             =   1080
      Width           =   1605
   End
   Begin VB.Label Label5 
      Caption         =   "Access Time:"
      Height          =   255
      Left            =   240
      TabIndex        =   75
      Top             =   1320
      Width           =   1605
   End
   Begin VB.Label Label6 
      Caption         =   "Creation Time:"
      Height          =   255
      Left            =   240
      TabIndex        =   74
      Top             =   1560
      Width           =   1605
   End
   Begin VB.Label Label8 
      Caption         =   "Modification Time:"
      Height          =   255
      Left            =   240
      TabIndex        =   73
      Top             =   1800
      Width           =   1605
   End
   Begin VB.Label Label10 
      Caption         =   "Deletion Time:"
      Height          =   255
      Left            =   240
      TabIndex        =   72
      Top             =   2040
      Width           =   1605
   End
   Begin VB.Label Label11 
      Caption         =   "Group Id low 16 bit:"
      Height          =   255
      Left            =   240
      TabIndex        =   71
      Top             =   2280
      Width           =   1605
   End
   Begin VB.Label Label12 
      Caption         =   "Links Count:"
      Height          =   255
      Left            =   240
      TabIndex        =   70
      Top             =   2520
      Width           =   1605
   End
   Begin VB.Label Label13 
      Caption         =   "Blocks Count:"
      Height          =   255
      Left            =   240
      TabIndex        =   69
      Top             =   2760
      Width           =   1605
   End
   Begin VB.Label Label14 
      Caption         =   "File Flags:"
      Height          =   255
      Left            =   240
      TabIndex        =   68
      Top             =   3000
      Width           =   1605
   End
   Begin VB.Label Label15 
      Caption         =   "Reserved 1:"
      Height          =   255
      Left            =   240
      TabIndex        =   67
      Top             =   3240
      Width           =   1605
   End
   Begin VB.Label Label16 
      Caption         =   "Direct Block Ptr 1:"
      Height          =   255
      Left            =   5280
      TabIndex        =   66
      Top             =   480
      Width           =   1605
   End
   Begin VB.Label Label17 
      Caption         =   "Direct Block Ptr 2:"
      Height          =   255
      Left            =   5280
      TabIndex        =   65
      Top             =   720
      Width           =   1605
   End
   Begin VB.Label Label18 
      Caption         =   "Direct Block Ptr 3:"
      Height          =   255
      Left            =   5280
      TabIndex        =   64
      Top             =   960
      Width           =   1605
   End
   Begin VB.Label Label19 
      Caption         =   "Direct Block Ptr 4:"
      Height          =   255
      Left            =   5280
      TabIndex        =   63
      Top             =   1200
      Width           =   1605
   End
   Begin VB.Label Label20 
      Caption         =   "Direct Block Ptr 5:"
      Height          =   255
      Left            =   5280
      TabIndex        =   62
      Top             =   1440
      Width           =   1635
   End
   Begin VB.Label Label21 
      Caption         =   "Direct Block Ptr 6:"
      Height          =   255
      Left            =   5280
      TabIndex        =   61
      Top             =   1680
      Width           =   1605
   End
   Begin VB.Label Label22 
      Caption         =   "PhysicalDrive0:"
      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        =   60
      Top             =   120
      Width           =   1695
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   0
      Left            =   1920
      TabIndex        =   59
      Top             =   600
      Width           =   3045
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   1
      Left            =   1920
      TabIndex        =   58
      Top             =   840
      Width           =   3045
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   2
      Left            =   1920
      TabIndex        =   57
      Top             =   1080
      Width           =   3045
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   3
      Left            =   1920
      TabIndex        =   56
      Top             =   1320
      Width           =   3045
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   4
      Left            =   1920
      TabIndex        =   55
      Top             =   1560
      Width           =   3045
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   5
      Left            =   1920
      TabIndex        =   54
      Top             =   1800
      Width           =   3045
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   6
      Left            =   1920
      TabIndex        =   53
      Top             =   2040
      Width           =   3045
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   7
      Left            =   1920
      TabIndex        =   52
      Top             =   2280
      Width           =   3045
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   8
      Left            =   1920
      TabIndex        =   51
      Top             =   2520
      Width           =   3045
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   9
      Left            =   1920
      TabIndex        =   50
      Top             =   2760
      Width           =   3045
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   10
      Left            =   1920
      TabIndex        =   49
      Top             =   3000
      Width           =   3045
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   11
      Left            =   1920
      TabIndex        =   48
      Top             =   3240
      Width           =   3045
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   12
      Left            =   6960
      TabIndex        =   47
      Top             =   480
      Width           =   2205
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   13
      Left            =   6960
      TabIndex        =   46
      Top             =   720
      Width           =   2205
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   14
      Left            =   6960
      TabIndex        =   45
      Top             =   960
      Width           =   2205
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   15
      Left            =   6960
      TabIndex        =   44
      Top             =   1200
      Width           =   2205
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   16
      Left            =   6960
      TabIndex        =   43
      Top             =   1440
      Width           =   2205
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   17
      Left            =   6960
      TabIndex        =   42
      Top             =   1680
      Width           =   2205
   End
   Begin VB.Label Label24 
      Alignment       =   1  'Right Justify
      Caption         =   "File System Type:"
      Height          =   255
      Left            =   2880
      TabIndex        =   41
      Top             =   120
      Width           =   1335
   End
   Begin VB.Label Label25 
      Caption         =   "EXT2 (EXT3, EXT4)"
      Height          =   255
      Left            =   4320
      TabIndex        =   40
      Top             =   120
      Width           =   1455
   End
   Begin VB.Label Label26 
      Caption         =   "Direct Block Ptr 7:"
      Height          =   255
      Left            =   5280
      TabIndex        =   39
      Top             =   1920
      Width           =   1605
   End
   Begin VB.Label Label27 
      Caption         =   "Direct Block Ptr 8:"
      Height          =   255
      Left            =   5280
      TabIndex        =   38
      Top             =   2160
      Width           =   1605
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   18
      Left            =   6960
      TabIndex        =   37
      Top             =   1920
      Width           =   2205
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   19
      Left            =   6960
      TabIndex        =   36
      Top             =   2160
      Width           =   2205
   End
   Begin VB.Label Label28 
      Caption         =   "Direct Block Ptr 9:"
      Height          =   255
      Left            =   5280
      TabIndex        =   35
      Top             =   2400
      Width           =   1605
   End
   Begin VB.Label Label29 
      Caption         =   "Direct Block Ptr 10:"
      Height          =   255
      Left            =   5280
      TabIndex        =   34
      Top             =   2640
      Width           =   1605
   End
   Begin VB.Label Label30 
      Caption         =   "Direct Block Ptr 11:"
      Height          =   255
      Left            =   5280
      TabIndex        =   33
      Top             =   2880
      Width           =   1605
   End
   Begin VB.Label Label9 
      Caption         =   "Direct Block Ptr 12:"
      Height          =   255
      Left            =   5280
      TabIndex        =   32
      Top             =   3120
      Width           =   1605
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   20
      Left            =   6960
      TabIndex        =   31
      Top             =   2400
      Width           =   2205
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   21
      Left            =   6960
      TabIndex        =   30
      Top             =   2640
      Width           =   2205
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   22
      Left            =   6960
      TabIndex        =   29
      Top             =   2880
      Width           =   2205
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   23
      Left            =   6960
      TabIndex        =   28
      Top             =   3120
      Width           =   2205
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   37
      Left            =   6960
      TabIndex        =   27
      Top             =   6600
      Width           =   2205
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   36
      Left            =   6960
      TabIndex        =   26
      Top             =   6360
      Width           =   2205
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   35
      Left            =   6960
      TabIndex        =   25
      Top             =   6120
      Width           =   2205
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   34
      Left            =   6960
      TabIndex        =   24
      Top             =   5880
      Width           =   2205
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   33
      Left            =   6960
      TabIndex        =   23
      Top             =   5640
      Width           =   2205
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   32
      Left            =   6960
      TabIndex        =   22
      Top             =   5400
      Width           =   2205
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   31
      Left            =   6960
      TabIndex        =   21
      Top             =   5160
      Width           =   2205
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   30
      Left            =   6960
      TabIndex        =   20
      Top             =   4920
      Width           =   2235
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   29
      Left            =   6960
      TabIndex        =   19
      Top             =   4680
      Width           =   2205
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   28
      Left            =   6960
      TabIndex        =   18
      Top             =   4440
      Width           =   2205
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   27
      Left            =   6960
      TabIndex        =   17
      Top             =   4200
      Width           =   2205
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   26
      Left            =   6960
      TabIndex        =   16
      Top             =   3840
      Width           =   2205
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   25
      Left            =   6960
      TabIndex        =   15
      Top             =   3600
      Width           =   2205
   End
   Begin VB.Label Label23 
      Caption         =   "0"
      Height          =   255
      Index           =   24
      Left            =   6960
      TabIndex        =   14
      Top             =   3360
      Width           =   2205
   End
   Begin VB.Label Label42 
      Caption         =   "Extra Inode Size:"
      Height          =   255
      Left            =   5280
      TabIndex        =   13
      Top             =   6600
      Width           =   1605
   End
   Begin VB.Label Label43 
      Caption         =   "Reserved 2:"
      Height          =   255
      Left            =   5280
      TabIndex        =   12
      Top             =   6360
      Width           =   1605
   End
   Begin VB.Label Label44 
      Caption         =   "Gid High:"
      Height          =   255
      Left            =   5280
      TabIndex        =   11
      Top             =   6120
      Width           =   1605
   End
   Begin VB.Label Label45 
      Caption         =   "Uid High:"
      Height          =   255
      Left            =   5280
      TabIndex        =   10
      Top             =   5880
      Width           =   1605
   End
   Begin VB.Label Label46 
      Caption         =   "Pad 1:"
      Height          =   255
      Left            =   5280
      TabIndex        =   9
      Top             =   5640
      Width           =   1605
   End
   Begin VB.Label Label47 
      Caption         =   "Fragment Size:"
      Height          =   255
      Left            =   5280
      TabIndex        =   8
      Top             =   5400
      Width           =   1605
   End
   Begin VB.Label Label48 
      Caption         =   "Fragment Number:"
      Height          =   255
      Left            =   5280
      TabIndex        =   7
      Top             =   5160
      Width           =   1605
   End
   Begin VB.Label Label49 
      Caption         =   "Fragment Address:"
      Height          =   255
      Left            =   5280
      TabIndex        =   6
      Top             =   4920
      Width           =   1605
   End
   Begin VB.Label Label50 
      Caption         =   "Directory ACL:"
      Height          =   255
      Left            =   5280
      TabIndex        =   5
      Top             =   4680
      Width           =   1605
   End
   Begin VB.Label Label51 
      Caption         =   "File ACL:"
      Height          =   255
      Left            =   5280
      TabIndex        =   4
      Top             =   4440
      Width           =   1605
   End
   Begin VB.Label Label52 
      Caption         =   "File Version (for NFS):"
      Height          =   255
      Left            =   5280
      TabIndex        =   3
      Top             =   4200
      Width           =   1605
   End
   Begin VB.Label Label53 
      Caption         =   "Triple Indirect Ptr:"
      Height          =   255
      Left            =   5280
      TabIndex        =   2
      Top             =   3840
      Width           =   1605
   End
   Begin VB.Label Label54 
      Caption         =   "Double Indirect Ptr:"
      Height          =   255
      Left            =   5280
      TabIndex        =   1
      Top             =   3600
      Width           =   1605
   End
   Begin VB.Label Label55 
      Caption         =   "Single Indirect Ptr :"
      Height          =   255
      Left            =   5280
      TabIndex        =   0
      Top             =   3360
      Width           =   1605
   End
End
Attribute VB_Name = "Form17"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim X As Integer
Dim N As Integer

Rem /* File mode */
Dim i_mode As Long
Rem /* Low 16 bits of Owner Uid */
Dim i_uid As Long
Rem /* Size in bytes */
Dim i_size As Long
Rem /* Access time */
Dim i_atime As Long
Rem /* Creation time */
Dim i_ctime As Long
Rem /* Modification time */
Dim i_mtime As Long
Rem /* Deletion Time */
Dim i_dtime As Long
Rem /* Low 16 bits of Group Id */
Dim i_gid As Long
Rem /* Links count */
Dim i_links_count As Long
Rem /* Blocks count */
Dim i_blocks
Rem /* File flags */
Dim i_flags As Long
Rem /* OS dependent 1 */
Dim l_i_reserved1 As Long
Rem /* Pointers to blocks */
Dim i_block(1 To 15) As Long
Rem /* File version (for NFS) */
Rem Dim i_generation As Long
Dim i_generation As Double
Rem /* File ACL */
Dim i_file_acl
Rem /* Directory ACL */
Dim i_dir_acl As Long
Rem /* Fragment address */
Dim i_faddr As Long
Rem /* OS dependent 2 */
Rem /* Fragment number */
Dim l_i_frag As Byte
Rem /* Fragment size */
Dim l_i_fsize  As Byte
Dim i_pad1 As Long
Rem /* these 2 fields */
Rem /* were reserved2[0] */
Dim l_i_uid_high As Long
Dim l_i_gid_high As Long
Dim l_i_reserved2 As Long
Dim S1 As Long
Dim S2 As Long
Dim S3 As Long
Dim S4 As Double

'** Epoch, DateToEpoch, EpochToDate property get procedures by
'** C. Alexander (11/11/2002)
Public Property Get Epoch() As String
    Epoch = DateDiff("s", "00:00:00 1/1/1970", Now)
End Property

Public Property Get DateToEpoch(ByVal MyDate As Date) As String
    DateToEpoch = DateDiff("s", "00:00:00 1/1/1970", MyDate)
End Property

Public Property Get EpochToDate(ByVal MyEpoch As String) As Date
    EpochToDate = DateAdd("s", MyEpoch, "00:00:00 1/1/1970")
End Property

Private Sub Form_Load()
Label22.Caption = DRV
Label32.Caption = CStr(Sector + CInt((FP - 1) / 512))
Label34.Caption = 0
N = 0
Call Show_Inode_Table(N)
End Sub

Private Sub Show_Inode_Table(C As Integer)
On Error GoTo Hata
Label32.Caption = CStr(Sector + CInt((FP - 1) / 512))
Label34.Caption = CStr(C)
i_mode = BSBuffer(C + 1)
i_mode = i_mode * 256
i_mode = i_mode + BSBuffer(C + 0)
Label23(0).Caption = CStr(i_mode)
i_uid = CLng(BSBuffer(C + 3) * 256)
i_uid = i_uid + BSBuffer(C + 2)
Label23(1).Caption = CStr(i_uid)
S1 = CLng(BSBuffer(C + 4))
S2 = CLng(BSBuffer(C + 5))
S3 = CLng(BSBuffer(C + 6))
S4 = CLng(BSBuffer(C + 7))
i_size = CLng((S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1)
Label23(2).Caption = CStr(i_size)
S1 = CLng(BSBuffer(C + 8))
S2 = CLng(BSBuffer(C + 9))
S3 = CLng(BSBuffer(C + 10))
S4 = CLng(BSBuffer(C + 11))
i_atime = CLng((S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1)
If i_dtime > 0 Then
   Label23(3).Caption = CStr(i_atime) + "   [ " + CStr(EpochToDate(CStr(i_atime))) + " ]"
Else
   Label23(3).Caption = "0"
End If
S1 = CLng(BSBuffer(C + 12))
S2 = CLng(BSBuffer(C + 13))
S3 = CLng(BSBuffer(C + 14))
S4 = CLng(BSBuffer(C + 15))
i_ctime = CLng((S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1)
If i_dtime > 0 Then
   Label23(4).Caption = CStr(i_ctime) + "   [ " + CStr(EpochToDate(CStr(i_ctime))) + " ]"
Else
   Label23(4).Caption = "0"
End If
S1 = CLng(BSBuffer(C + 16))
S2 = CLng(BSBuffer(C + 17))
S3 = CLng(BSBuffer(C + 18))
S4 = CLng(BSBuffer(C + 19))
i_mtime = CLng((S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1)
If i_dtime > 0 Then
   Label23(5).Caption = CStr(i_mtime) + "   [ " + CStr(EpochToDate(CStr(i_mtime))) + " ]"
Else
   Label23(5).Caption = "0"
End If
S1 = CLng(BSBuffer(C + 20))
S2 = CLng(BSBuffer(C + 21))
S3 = CLng(BSBuffer(C + 22))
S4 = CLng(BSBuffer(C + 23))
i_dtime = CLng((S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1)
If i_dtime > 0 Then
   Label23(6).Caption = CStr(i_dtime) + "   [ " + CStr(EpochToDate(CStr(i_dtime))) + " ]"
Else
   Label23(6).Caption = "0"
End If
i_gid = CLng(BSBuffer(C + 25) * 256)
i_gid = i_gid + BSBuffer(C + 24)
Label23(7).Caption = CStr(i_gid)
i_links_count = CLng(BSBuffer(C + 27) * 256)
i_links_count = i_links_count + BSBuffer(C + 26)
Label23(8).Caption = CStr(i_links_count)
S1 = CLng(BSBuffer(C + 28))
S2 = CLng(BSBuffer(C + 29))
S3 = CLng(BSBuffer(C + 30))
S4 = CLng(BSBuffer(C + 31))
i_blocks = CLng((S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1)
Label23(9).Caption = CStr(i_blocks)
S1 = CLng(BSBuffer(C + 32))
S2 = CLng(BSBuffer(C + 33))
S3 = CLng(BSBuffer(C + 34))
S4 = CLng(BSBuffer(C + 35))
i_flags = CLng((S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1)
Label23(10).Caption = CStr(i_flags)
S1 = CLng(BSBuffer(C + 36))
S2 = CLng(BSBuffer(C + 37))
S3 = CLng(BSBuffer(C + 38))
S4 = CLng(BSBuffer(C + 39))
l_i_reserved1 = CLng((S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1)
Label23(11).Caption = CStr(l_i_reserved1)
For X = 1 To 15
    S1 = CLng(BSBuffer(C + 36 + (4 * X)))
    S2 = CLng(BSBuffer(C + 37 + (4 * X)))
    S3 = CLng(BSBuffer(C + 38 + (4 * X)))
    S4 = CLng(BSBuffer(C + 39 + (4 * X)))
    i_block(X) = CLng((S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1)
    Label23(11 + X).Caption = CStr(i_block(X))
Next X
S1 = CLng(BSBuffer(C + 100))
S2 = CLng(BSBuffer(C + 101))
S3 = CLng(BSBuffer(C + 102))
S4 = CLng(BSBuffer(C + 103))
i_generation = (S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1
Label23(27).Caption = CStr(i_generation)
S1 = CLng(BSBuffer(C + 104))
S2 = CLng(BSBuffer(C + 105))
S3 = CLng(BSBuffer(C + 106))
S4 = CLng(BSBuffer(C + 107))
i_file_acl = CLng((S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1)
Label23(28).Caption = CStr(i_file_acl)
S1 = CLng(BSBuffer(C + 108))
S2 = CLng(BSBuffer(C + 109))
S3 = CLng(BSBuffer(C + 110))
S4 = CLng(BSBuffer(C + 111))
i_dir_acl = CLng((S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1)
Label23(29).Caption = CStr(i_dir_acl)
S1 = CLng(BSBuffer(C + 112))
S2 = CLng(BSBuffer(C + 113))
S3 = CLng(BSBuffer(C + 114))
S4 = CLng(BSBuffer(C + 115))
i_faddr = CLng((S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1)
Label23(30).Caption = CStr(i_faddr)
l_i_frag = BSBuffer(C + 116)
Label23(31).Caption = CStr(l_i_frag)
l_i_fsize = BSBuffer(C + 117)
Label23(32).Caption = CStr(l_i_fsize)
i_pad1 = CLng(BSBuffer(C + 119) * 256)
i_pad1 = i_pad1 + BSBuffer(C + 118)
Label23(33).Caption = CStr(i_pad1)
l_i_uid_high = CLng(BSBuffer(C + 121) * 256)
l_i_uid_high = l_i_uid_high + BSBuffer(C + 120)
Label23(34).Caption = CStr(l_i_uid_high)
l_i_gid_high = CLng(BSBuffer(C + 123) * 256)
l_i_gid_high = l_i_gid_high + BSBuffer(C + 122)
Label23(35).Caption = CStr(l_i_gid_high)
S1 = CLng(BSBuffer(C + 124))
S2 = CLng(BSBuffer(C + 125))
S3 = CLng(BSBuffer(C + 126))
S4 = CLng(BSBuffer(C + 127))
l_i_reserved2 = CLng((S4 * 16777216) + (S3 * 65536) + (S2 * 256) + S1)
Label23(35).Caption = CStr(l_i_reserved2)
Cikis:
Exit Sub
Hata:
MsgBox ("Inode is Invalid (wrong block) or there is an overflow (very big number) problem..."), 48, "Inode ! ERROR !"
Resume Cikis
End Sub

Private Sub cmdNext_Click()
N = 256
Call Show_Inode_Table(N)
End Sub

Private Sub cmdPrev_Click()
N = 0
Call Show_Inode_Table(N)
End Sub