Share source code VBNet - Unpack file Pak jx1, jx2, kiếm thế, phong thần 3 b

[GameDev24]

Như tiêu đề đây là code unpack được file trong pak. Còn muốn biết nó file gì thì cần dev thêm


'<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
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 Int32 = br.ReadInt32 ' Offset = 4, Length = 4
Dim index As Int32 = br.ReadInt32 ' Offset = 8, Length = 4
Dim data As Int32 = br.ReadInt32 ' Offset = 12, Length = 4
Dim crc32 As Int32 = br.ReadInt32 ' Offset = 16, Length = 4
Dim reserved As Byte() = br.ReadBytes(12) 'Offset = 20, Length = 12

Console.WriteLine("sig : {0}", signature)
Console.WriteLine("count : {0}", count)
Console.WriteLine("index : {0}", index)
Console.WriteLine("data : {0}", data)
Console.WriteLine("crc32 : {0}", crc32)

br.BaseStream.Seek(index, SeekOrigin.Begin) 'br.BaseStream.Position = index
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
Console.WriteLine("File ID : {0} - File Offset : {1} - File Size : {2} - IsCompress : {3}", fd.id, fd.offset, fd.size, fd.isCompress)

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 Int64 'Length = 4
Public offset As Int32 'Length = 4
Public size As Int32 'Length = 4
Public compressed As Byte() 'Length = 3
Public isCompress As Byte 'Length = 1
Public Sub New()
id = br.ReadInt32
offset = br.ReadInt32
size = br.ReadInt32
compressed = br.ReadBytes(3)
isCompress = br.ReadByte
End Sub
End Class


Public Function Hash(ByVal fileName As String) As UInt64
Dim id As UInt64 = 0
Dim index As Int32 = 0
For Each c As Char In fileName
If (AscW(c) >= AscW("A")) AndAlso (AscW(c) <= AscW("Z")) Then
id = (id + (++index) * (AscW(c) + AscW("a") - AscW("A"))) Mod &H8000000BUI * &HFFFFFFEF
Else
id = (id + (++index) * AscW(c)) Mod &H8000000BUI * &HFFFFFFEF
End If
Next
Return (id Xor &H12345678)
End Function

End Module