Xem giúp code unpack file pak viết như này còn sai và thiếu gì

[GameDev24]

Imports System
Imports System.Collections
Imports System.IO
Imports System.IO.Compression
Imports System.Runtime
Imports System.Text
Imports System.Text.RegularExpressions


Module Program

Public br As BinaryReader
Public input As String
Sub Main(args As String())
If args.Count = 0 Then
Console.WriteLine("Tool UnPack - 2CongLC.vn :: 2024")
Else
input = args(0)
End If
Dim p As String = Nothing
If IO.File.Exists(input) Then

br = New BinaryReader(File.OpenRead(input))
Dim signature as String = New String(br.ReadChars(4)) ' Offset = 0, Length = 4
Dim count as UInt32 = br.ReadUInt32 ' Offset = 4, Length = 4
Dim index as UInt32 = br.ReadUInt32 ' Offset = 8, Length = 4
Dim data as UInt32 = br.ReadUInt32 ' Offset = 12, Length = 4
Dim crc32 as UInt32 = br.ReadUInt32 ' Offset = 16, Length = 4
Dim reserved as Byte() = br.ReadBytes(12) 'Offset = 20, Length = 12

br.BaseStream.Position = 32

Dim subfiles as New List(of FileData)()
For i as Int32 = 0 To count - 1
subfiles.Add(New FileData)
Next

p = Path.GetDirectoryName(input) & "\" & Path.GetFileNameWithoutExtension(input)
Directory.CreateDirectory(p)

For Each fd as FileData in subfiles

br.BaseStream.Position = fd.offset

Using bw As New BinaryWriter(File.Create(p & "//" & fd.id))
bw.Write(br.ReadBytes(fd.size))
End Using
Next
Console.WriteLine("unpack done!!!")
End If
Console.ReadLine()
End Sub

Class FileData
Public id as UInt32 'Length = 4
Public offset as UInt32 'Length = 4
Public size as UInt32 'Length = 4
Public compressed as Byte() 'Length = 3
Public isCompress as byte 'Length = 1
Public Sub New()
id = br.ReadUInt32
offset = br.ReadUInt32
size = br.ReadUInt32
compressed = br.ReadBytes(3)
isCompress = br.ReadByte
End sub
End Class

End Module