arc格式解析
最終更新：
teruteruteruchu 2019年03月17日(日) 06:06:38履歴
（暂未完成，研究途中）
CM3D2及COM3D2对应非加密arc格式分析
注意：KISS的arc分加密和非加密
加密的需要运行一次游戏进行解密
有些*_2.arc无法解密是因为缺少DLC
＊＊＊＊＊＊＊＊＊＊＊＊＊＊
77 61 72 63
4byte，warc
FF AA 45 F1
4byte，未知
E8 03 00 00
4byte，版本1000
04 00 00 00
4byte，未知
02 00 00 00
4byte，未知，以上是ArcHeader
＊＊＊＊＊＊＊＊＊＊＊＊＊＊
xx xx 00 00 00 00 00 00
8byte 数据块总长度？下面的区块 [UInt64]
============================
01 00 00 00
4byte，表示压缩 [Bool]
00 00 00 00
4byte，Junk Data?
xx xx 00 00
4byte 文件数据长度，原始 [UInt32]
xx xx 00 00
4byte 文件数据长度，当前 [UInt32]（如果数据没进行压缩就和原始的一样）
xx xx ... xx xx
文件数据，如果是压缩的数据，之前会�甓�两个字节78 5E (在长度统计内)
注意*.ks *.menu *.tjs这三种格式数据才会进行Deflate算法压缩
============================
============================
00 00 00 00
4byte，blockType;0 utf16HashData;1 utf8HashData;3 utf16NameData
xx 00 00 00 00 00 00 00
8byte，blockSize [UInt64]
＊＊＊＊＊＊＊＊＊＊＊＊＊＊
blockType = 0 or 1 的情况
＊=＊=＊=＊=＊
（如果此区块出现递归，从下面有开始处理）
20 00 00 00 10 00 00 00
8byte，DirHeader
xx xx xx xx xx xx xx xx
8byte，UniqueID，其实就是8字节Hash值
这个UniqueID需要结合后面出现的NameTable得到一个准确的字符串
这个字符串表示文件名或文件夹名
xx xx xx xx
4byte，Dirs [Int32]
表示当前字符串形式的路径下的子文件夹数量
xx xx xx xx
4byte，Files [Int32]
表示当前字符串形式的路径下的文件数量
xx xx xx xx
4byte，Depth [Int32]
表示当前字符串形式的路径所处的目录深度
Arc必须以文件夹的形式打包，因此打包目录的深度为0
xx xx xx xx
4byte，未知
＊=＊=＊=＊=＊
for Dirs=>(从1开始)
xx xx xx xx xx xx xx xx
8byte，Hash（UniqueID）
xx xx xx xx xx xx xx xx
8byte，offset [Int64]
偏移 = 32 + 16 * (Dirs + Files) + 8 * Depth
这个值相当于是上个DirHeader的起始位置到下个DirHeader(开始前)的总量
此处读完后的位置到之前的DirHeader的起始位置共32byte+16byte
因为至少有Dirs=1(其他两个可以是0)才有这个数据，所以这个值最少也是48
为了加速检索，当读完这个值后，可以用这个值-40的偏移量迅速定位到下个
＊=＊=＊=＊=＊
for Files=>(从1开始)
xx xx xx xx xx xx xx xx
8byte，Hash（UniqueID）
xx xx xx xx xx xx xx xx
8byte，offset [Int64]
偏移值，指文件数据在之前整个数据块的位置
初始值为0，下个文件则偏移前一个文件的数据长度+16byte
但这个值并不是当前文件的指针位置
读文件时还要算上ArcHeader及数据块长度指示的8byte，合计28byte
＊=＊=＊=＊=＊
for Depth=>(从1开始)
xx xx xx xx xx xx xx xx
8byte，Parents UniqueID（父级的UniqueID）
＊=＊=＊=＊=＊
for Dirs=>(从1开始)
20 00 00 00 10 00 00 00
Sub DirHeader...（进入递归，直到没有为止）
如果有，重复进行创建子项=>递归
这里开头的8byte是子项的头部
位置同前面DirHeader所处地方
＊＊＊＊＊＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊＊＊＊＊＊
blockType = 3 的情况
＊=＊=＊=＊=＊
01 00 00 00
4byte，表示压缩 [Bool]
00 00 00 00
4byte，Junk Data?
xx xx xx xx
4byte，RawSize [UInt32]
xx xx xx xx
4byte，DealSize [UInt32]
xx xx ... xx xx
NameListdata，压缩的方式同前面提到的Deflate算法
＊=＊=＊=＊=＊
=>解压完成的数据结构
＝＝＝＝＝＝＝＝＝＝＝
xx xx xx xx xx xx xx xx
8byte，Hash，原理就是匹配这个Hash，对应下面的具体字符串
xx xx xx xx
4byte，Size [Int32]
xx 00 xx 00 ... xx 00 xx 00
Unicode字符串，由于UTF16编码的关系，实际的字节长度是Size值的两倍
loop循环，直到结束
＝＝＝＝＝＝＝＝＝＝＝
注意，因为这个是NameTable，同一个Hash只能对应一个字符串
另外，NameTable的第一项当做根目录(root)，值是这个arc在封包时的文件夹的完整路径
＊＊＊＊＊＊＊＊＊＊＊＊＊＊
UniqueID的计算方法，如下：
Function GetHash(ByVal data() As Byte) As ULong
'加载种子和键
SeedA = &H84222325UI
SeedB = &HCBF29CE4UI
KeyA = &H100UI
KeyB = &H1B3UI
'创建临时种子
Dim tmpSeedA As UInteger
Dim tmpSeedB As UInteger
'创建ULong, 避免UInt32的计算结果溢出
Dim tmp64 As ULong
'创建Byte, 用于截断ULong至兼容UInt32
Dim buff As Byte()
For i As Long = 0 To data.LongLength - 1
'种子1与输入byte进行Xor运算
SeedA = SeedA Xor data(i)
'在临时种子加载当前的种子
tmpSeedA = SeedA
tmpSeedB = SeedB
'临时种子1与键1相乘并返还临时种子1
tmp64 = CULng(tmpSeedA)
buff = BitConverter.GetBytes(tmp64 * KeyA)
tmpSeedA = BitConverter.ToUInt32(buff, 0)
'临时种子2与键2相乘并返还临时种子2
tmp64 = CULng(tmpSeedB)
buff = BitConverter.GetBytes(tmp64 * KeyB)
tmpSeedB = BitConverter.ToUInt32(buff, 0)
'种子2清零
SeedB = 0
'种子1与种子2组合成QWord后与键2相乘，使用Decimal避免ULong计算结果溢出
Dim dec As Decimal = CULng(SeedB) * &H100000000UL + CULng(SeedA) * CULng(KeyB)
tmp64 = (dec / &H100000000UL / &H100000000UL Mod 1) * &H100000000UL * &H100000000UL
buff = BitConverter.GetBytes(tmp64)
SeedA = BitConverter.ToUInt32(buff, 0)
SeedB = BitConverter.ToUInt32(buff, 4)
'种子2与临时种子1相加并返回种子2
tmp64 = CULng(SeedB) + CULng(tmpSeedA)
buff = BitConverter.GetBytes(tmp64)
SeedB = BitConverter.ToUInt32(buff, 0)
'种子2与临时种子2相加并返回种子2
tmp64 = CULng(SeedB) + CULng(tmpSeedB)
buff = BitConverter.GetBytes(tmp64)
SeedB = BitConverter.ToUInt32(buff, 0)
Next
'所有输入byte循环完成, 种子1与种子2进行Xor运算
SeedA = SeedA Xor SeedB
'种子1与种子2组合成QWord得到ULong型的返回值
Dim ret As ULong = CULng(SeedB) * &H100000000UL + CULng(SeedA)
Return ret
End Function
CM3D2及COM3D2对应非加密arc格式分析
注意：KISS的arc分加密和非加密
加密的需要运行一次游戏进行解密
有些*_2.arc无法解密是因为缺少DLC
＊＊＊＊＊＊＊＊＊＊＊＊＊＊
77 61 72 63
4byte，warc
FF AA 45 F1
4byte，未知
E8 03 00 00
4byte，版本1000
04 00 00 00
4byte，未知
02 00 00 00
4byte，未知，以上是ArcHeader
＊＊＊＊＊＊＊＊＊＊＊＊＊＊
xx xx 00 00 00 00 00 00
8byte 数据块总长度？下面的区块 [UInt64]
============================
01 00 00 00
4byte，表示压缩 [Bool]
00 00 00 00
4byte，Junk Data?
xx xx 00 00
4byte 文件数据长度，原始 [UInt32]
xx xx 00 00
4byte 文件数据长度，当前 [UInt32]（如果数据没进行压缩就和原始的一样）
xx xx ... xx xx
文件数据，如果是压缩的数据，之前会�甓�两个字节78 5E (在长度统计内)
注意*.ks *.menu *.tjs这三种格式数据才会进行Deflate算法压缩
============================
============================
00 00 00 00
4byte，blockType;0 utf16HashData;1 utf8HashData;3 utf16NameData
xx 00 00 00 00 00 00 00
8byte，blockSize [UInt64]
＊＊＊＊＊＊＊＊＊＊＊＊＊＊
blockType = 0 or 1 的情况
＊=＊=＊=＊=＊
（如果此区块出现递归，从下面有开始处理）
20 00 00 00 10 00 00 00
8byte，DirHeader
xx xx xx xx xx xx xx xx
8byte，UniqueID，其实就是8字节Hash值
这个UniqueID需要结合后面出现的NameTable得到一个准确的字符串
这个字符串表示文件名或文件夹名
xx xx xx xx
4byte，Dirs [Int32]
表示当前字符串形式的路径下的子文件夹数量
xx xx xx xx
4byte，Files [Int32]
表示当前字符串形式的路径下的文件数量
xx xx xx xx
4byte，Depth [Int32]
表示当前字符串形式的路径所处的目录深度
Arc必须以文件夹的形式打包，因此打包目录的深度为0
xx xx xx xx
4byte，未知
＊=＊=＊=＊=＊
for Dirs=>(从1开始)
xx xx xx xx xx xx xx xx
8byte，Hash（UniqueID）
xx xx xx xx xx xx xx xx
8byte，offset [Int64]
偏移 = 32 + 16 * (Dirs + Files) + 8 * Depth
这个值相当于是上个DirHeader的起始位置到下个DirHeader(开始前)的总量
此处读完后的位置到之前的DirHeader的起始位置共32byte+16byte
因为至少有Dirs=1(其他两个可以是0)才有这个数据，所以这个值最少也是48
为了加速检索，当读完这个值后，可以用这个值-40的偏移量迅速定位到下个
＊=＊=＊=＊=＊
for Files=>(从1开始)
xx xx xx xx xx xx xx xx
8byte，Hash（UniqueID）
xx xx xx xx xx xx xx xx
8byte，offset [Int64]
偏移值，指文件数据在之前整个数据块的位置
初始值为0，下个文件则偏移前一个文件的数据长度+16byte
但这个值并不是当前文件的指针位置
读文件时还要算上ArcHeader及数据块长度指示的8byte，合计28byte
＊=＊=＊=＊=＊
for Depth=>(从1开始)
xx xx xx xx xx xx xx xx
8byte，Parents UniqueID（父级的UniqueID）
＊=＊=＊=＊=＊
for Dirs=>(从1开始)
20 00 00 00 10 00 00 00
Sub DirHeader...（进入递归，直到没有为止）
如果有，重复进行创建子项=>递归
这里开头的8byte是子项的头部
位置同前面DirHeader所处地方
＊＊＊＊＊＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊＊＊＊＊＊
blockType = 3 的情况
＊=＊=＊=＊=＊
01 00 00 00
4byte，表示压缩 [Bool]
00 00 00 00
4byte，Junk Data?
xx xx xx xx
4byte，RawSize [UInt32]
xx xx xx xx
4byte，DealSize [UInt32]
xx xx ... xx xx
NameListdata，压缩的方式同前面提到的Deflate算法
＊=＊=＊=＊=＊
=>解压完成的数据结构
＝＝＝＝＝＝＝＝＝＝＝
xx xx xx xx xx xx xx xx
8byte，Hash，原理就是匹配这个Hash，对应下面的具体字符串
xx xx xx xx
4byte，Size [Int32]
xx 00 xx 00 ... xx 00 xx 00
Unicode字符串，由于UTF16编码的关系，实际的字节长度是Size值的两倍
loop循环，直到结束
＝＝＝＝＝＝＝＝＝＝＝
注意，因为这个是NameTable，同一个Hash只能对应一个字符串
另外，NameTable的第一项当做根目录(root)，值是这个arc在封包时的文件夹的完整路径
＊＊＊＊＊＊＊＊＊＊＊＊＊＊
UniqueID的计算方法，如下：
Function GetHash(ByVal data() As Byte) As ULong
'加载种子和键
SeedA = &H84222325UI
SeedB = &HCBF29CE4UI
KeyA = &H100UI
KeyB = &H1B3UI
'创建临时种子
Dim tmpSeedA As UInteger
Dim tmpSeedB As UInteger
'创建ULong, 避免UInt32的计算结果溢出
Dim tmp64 As ULong
'创建Byte, 用于截断ULong至兼容UInt32
Dim buff As Byte()
For i As Long = 0 To data.LongLength - 1
'种子1与输入byte进行Xor运算
SeedA = SeedA Xor data(i)
'在临时种子加载当前的种子
tmpSeedA = SeedA
tmpSeedB = SeedB
'临时种子1与键1相乘并返还临时种子1
tmp64 = CULng(tmpSeedA)
buff = BitConverter.GetBytes(tmp64 * KeyA)
tmpSeedA = BitConverter.ToUInt32(buff, 0)
'临时种子2与键2相乘并返还临时种子2
tmp64 = CULng(tmpSeedB)
buff = BitConverter.GetBytes(tmp64 * KeyB)
tmpSeedB = BitConverter.ToUInt32(buff, 0)
'种子2清零
SeedB = 0
'种子1与种子2组合成QWord后与键2相乘，使用Decimal避免ULong计算结果溢出
Dim dec As Decimal = CULng(SeedB) * &H100000000UL + CULng(SeedA) * CULng(KeyB)
tmp64 = (dec / &H100000000UL / &H100000000UL Mod 1) * &H100000000UL * &H100000000UL
buff = BitConverter.GetBytes(tmp64)
SeedA = BitConverter.ToUInt32(buff, 0)
SeedB = BitConverter.ToUInt32(buff, 4)
'种子2与临时种子1相加并返回种子2
tmp64 = CULng(SeedB) + CULng(tmpSeedA)
buff = BitConverter.GetBytes(tmp64)
SeedB = BitConverter.ToUInt32(buff, 0)
'种子2与临时种子2相加并返回种子2
tmp64 = CULng(SeedB) + CULng(tmpSeedB)
buff = BitConverter.GetBytes(tmp64)
SeedB = BitConverter.ToUInt32(buff, 0)
Next
'所有输入byte循环完成, 种子1与种子2进行Xor运算
SeedA = SeedA Xor SeedB
'种子1与种子2组合成QWord得到ULong型的返回值
Dim ret As ULong = CULng(SeedB) * &H100000000UL + CULng(SeedA)
Return ret
End Function
コメントをかく