解析android手游lua脚本的加密与解密（番外篇之反编译的对抗）
本帖最后由 薛-蓝狐 于 2019-10-24 23:13 编辑前言
去年在看雪论坛写了一篇《浅析android手游lua脚本的加密与解密》的精华文章，今年写一篇番外篇，将一些lua反编译对抗的内容整合一起，并以3个实例作为说明（包括2018腾讯游戏竞赛和梦幻西游手游相关的补充），文章开头还增加了相关工作，方便大家学习lua逆向时使用。本文由3篇文章整合成1篇，所以内容上面有点多，有兴趣的朋友需要点耐心，当然也可以跳着看。最后，请大佬们不吝赐教。最最后，大家有问题也欢迎留言，一起交流学习。
相关工作
为了能让一些同学更好的学习lua的逆向，我把收集的一些资料组合成一篇lua加解密的相关工作给大家参考。看这节内容之前还是需要一些lua的基础知识，这里推荐云风大佬的《Lua源码欣赏》，建议结合搜索引擎学习之。
文章分2部分介绍，第1部分介绍lua加解密的相关文章介绍，第2部分介绍lua的相关工具。
文章介绍
这一节介绍了互联网上对lua的各种相关文章，包括lua的加解密如文件格式的解析、基于lua的游戏和比赛的介绍、lua的hook技术等。
1. lua加解密入门：
非虫大佬 写了4篇关于luac和luajit文件格式和字节码的相关文章，并开源了010Editor的解析luac和luajit的模板代码。Ganlv 同学 在吾爱破解写了7篇关于lua加解密的系列教程。腾讯gslab 写了一篇关于lua游戏逆向的入门介绍，这是一篇比较早的lua游戏解密的文章。INightElf 同学 写了一篇关于lua脚本反编译入门的文章。
2. 基于lua的手游：
lua不仅能用于端游戏，也能用于手游，而且由于手游的火热，带动了lua逆向相关分析文章的分享。wmsuper 同学 在android平台下解密了腾讯游戏开心消消乐的lua脚本，后续可以通过修改lua脚本达到作弊的目的。Unity 同学 通过hook的方法解密和修改lua手游《放置江湖》的流程，达到修改游戏奖励的目的。littleNA 同学 通过3种方式解密了3个手游的lua脚本，并且修复了梦幻手游lua opcode的顺序。
3. 基于lua的比赛：
随着国内CTF的发展，lua技术也运用到了比赛中。看雪ctf2016第2题、2017第15题和腾讯游戏安全2018决赛第2题都使用了lua引擎作为载体的CrackMe比赛，其中看雪2016将算法验证用lua代码实现并编译成luac，最后还修改了luac的文件头，使得反编译工具报错；看雪2017的题使用壳和大量的混淆，最后一步是luajit的简单异或运算；腾讯2018使用的lua技术更加深入，进阶版更是修改了lua的opcode顺序，并使用lua编写了一个虚拟机。以上3题的writeup网上都可以搜索到，有兴趣的朋友可以练练手，加深印象。
4. lua hooking：
Hook是修改软件流程的常用手段，lua中也存在hook技术。曾半仙 同学 在看雪发布了一种通过hook lua字节码达到修改游戏逻辑的方法，并发布了一个lua汇编引擎。Nikc Cano 的blog写了一篇关于Hooking luajit的文章，興趣使然的小胃 同学 对该篇文章进行了翻译。
工具介绍
逆向解密lua和luajit游戏都有相关的工具，这一节将对一些主流的工具进行介绍。
1. lua相关：
luadec ：这是一个用c语言结合lua引擎源码写的开源lua反编译器，解析整个lua字节码文件并尽可能的还原为源码。当然，由于还原的是高级语言，所以兼容性一般，当反编译大量文件时肯定会遇到bug，这时就需要自己手动修复bug；并且很容易被针对造成反编译失败。目前支持的版本有lua5.1，5.2和5.3。
chunkspy：一款非常有用的lua分析工具，本身就是lua语言所写。它解析了整个lua字节文件，由于其输出的是lua的汇编形式，所以兼容性非常高，也造成了一定的阅读障碍。chunkspy 不仅可以解析luac文件，它还包括了一个交互式的命令，可以将输入的lua脚本转换成lua字节码汇编的形式，这对学习lua字节码非常有帮助。luadec工具中集成了这个脚本，目前支持的版本也是有lua5.1，5.2和5.3。
unluac：这也是一个开源的lua反编译器，java语言所写，相比luadec 工具兼容性更低,。一般很少使用，只支持lua5.1，当上面工具都失效时可以尝试。
2. luajit相关：
luajit-decomp：github开源的一款luajit反编译工具，使用au3语言编写。先通过luajit原生的exe文件将luajit字节码文件转换成汇编，然后该工具再将luajit汇编转换成lua语言。由于反汇编后的luajit字节码缺少很多信息，如变量名、函数名等，造成反编译后的结果读起来比较隐晦，类似于IDA的F5。但是兼容性超好，只要能够反汇编就能够反编译，所以使用时需要替换对应版本的luajit引擎（满足反汇编的需求）。目前是支持所有的luajit版本。
ljd：也是github开源的一款luajit反编译工具，使用python编写，与luajit-decomp 反编译luajit汇编的方式不同，其从头解析了整个luajit文件，能够获取更多的信息，还原的程度更高，但是由于精度更高，所以兼容性也会弱一点。查看该项目的fork可以获取更多的其他兼容版本，目前支持的版本有luajit2.0、luajit2.1等。
反编译对抗
众所周知，反汇编/反编译 工具在逆向人员工作中第一步被使用，其地位非常之高，而对于软件保护者来说，如何对抗 反汇编/反编译 就显得尤为重要。例如，动态调试中对OD的的检测、内核调试对windbg的破坏、加壳加花对IDA静态分析的阻碍、apktool的bug导致对修改后的apk反编译失败、修改PE头导致OD无法识别、修改 .Net dll中的区段导致ILspy工具失效等等例子，都说明对抗反编译工具是很常用的一种软件保护手段。当然，lua的反编译工具也面临这个问题。处理这样的问题无非就几种思路：
用调试器调试反编译工具为何解析错误，排查原因。
用调试器调试原引擎是如何解析文件的。
用文件格式解析工具解析文件，看哪个点解析出错。
下面将以3个例子来实战lua反编译是如何对抗与修复。
例子1：一个简单的问题
这是在看雪论坛看到的一个问题，问题是由于游戏（可能是征途手游）将lua字符串的长度int32修改为int64，导致反编译失败的一个例子，内容较为简单，修复方法请看帖子中本人的回答，地址：https://bbs.pediy.com/thread-217033.htm
例子2：2018腾讯游戏安全竞赛
这一节以2018腾讯游戏安全竞赛决赛第二题进阶版第1关的题目为例子，主要是讲一下如何修复当lua的opcode被修改的情况，以及如何修复该题对抗lua反编译的问题。
opcode问题及其修复
修复opcode的目的是 当输入题目的luac文件，反汇编工具Chunkspy和反编译工具luadec能够输出正确的结果。
首先，我们在ida中分析lua引擎tmgs.dll文件，然后定位到luaV_execute函数（搜索字符串“ 'for' limit must be a number ”），发现switch下的case的参数（lua的opcode）是乱序的，到这里我们就能够确认，该题的lua虚拟机opcode被修改了。
接着，我们进行修复操作。一种很耗时的办法就是一个一个opcode还原，分析每一个case下面的代码然后找出对应opcode的顺序。但是这一题我们不用这么麻烦，通过对比分析我们发现普通版的题目并没有修改opcode：
普通版lua引擎的luaV_execute函数 进阶版lua引擎的luaV_execute函数
观察发现，进阶版的题目只是修改了每个case的数值或者多个值映射到同一个opcode，但是没有打乱case里的代码（也就是说，虚拟机解析opcode代码的顺序没有变，只是修改了对应的数值，这跟梦幻手游的打乱opcode的方法不同）。由于lua5.3只使用到0x2D的opcode，而一个opcode长度为6位（0x3F），该题就将剩余的没有使用的字节映射到同一个opcode下，修复时只需要反过来操作就可以了。分析到这里，我们的修复方案就出来了：
通过ida分别导出2个版本的 luaV_execute 的文本
通过python脚本提取opcode的修复表
在工具（Chunkspy和luadec）初始化lua文件后，用修复表将opcode替换
测试运行，修复其他bug
第一步直接IDA手动导出: File --> Produce file --> Create LST File ；第二步使用python分析，代码如下：
# -*- coding: utf-8 -*-# 通过扫码IDA导出的文本文件，获取lua字节码的opcode顺序def get_opcode(filepath): f = open(filepath)
lines = f.readlines()
opcodes = []
# 循环扫码文件的每一行 for i in range(len(lines)):
line = lines
if line.find('case') != -1:
line = line.replace('case', '')
line = line.replace(' ', '')
line = line.replace('\n','')
line = line.replace('u:', '')
# 如果上一行也是case，那么这2个case对应同一个opcode if lines.find('case') != -1:
opcode = opcodes[-1]
opcode.append(line)
else:
opcode = []
opcode.append(line)
opcodes.append(opcode)
f.close()
return opcodes
o1 = get_opcode(u'基础版opcode.txt')
o2 = get_opcode(u'进阶版opcode.txt')# 还原for i in range(len(o1)):
print '基础版：',o1,'\t进阶版：',o2# 映射opcode获取修复表op_tbl = [-1 for i in range(64)]for i in range(len(o1)):
o1opcode = o1
o1opcode = o1opcode.replace('0x','')
for o2opcode in o2:
o2opcode = o2opcode.replace('0x','')
op_tbl = int(o1opcode,16)print '修复表：',op_tbl
运行结果：
基础版： ['0'] 进阶版： ['6', '7', '0x16', '0x1B']
基础版： ['1'] 进阶版： ['0x22', '0x28', '0x29', '0x3C']
基础版： ['2'] 进阶版： ['0x3E']
基础版： ['3'] 进阶版： ['0x3B']
基础版： ['4'] 进阶版： ['0x12']
基础版： ['5'] 进阶版： ['8', '0x11', '0x17', '0x36']
基础版： ['6'] 进阶版： ['2']
基础版： ['7'] 进阶版： ['0xD']
基础版： ['8'] 进阶版： ['0x1A']
基础版： ['9'] 进阶版： ['1']
基础版： ['0xA'] 进阶版： ['0x1D']
基础版： ['0xB'] 进阶版： ['0x1F']
基础版： ['0xC'] 进阶版： ['0xE']
基础版： ['0xD'] 进阶版： ['0x31']
基础版： ['0xE'] 进阶版： ['0x2F']
基础版： ['0xF'] 进阶版： ['0x1E']
基础版： ['0x12'] 进阶版： ['0x13']
基础版： ['0x14'] 进阶版： ['0x2B']
基础版： ['0x15'] 进阶版： ['0x1C']
基础版： ['0x16'] 进阶版： ['0x2D']
基础版： ['0x17'] 进阶版： ['0x19']
基础版： ['0x18'] 进阶版： ['0x3F']
基础版： ['0x10'] 进阶版： ['0x15']
基础版： ['0x13'] 进阶版： ['0x24']
基础版： ['0x11'] 进阶版： ['0x3A']
基础版： ['0x19'] 进阶版： ['0x18']
基础版： ['0x1A'] 进阶版： ['0x33']
基础版： ['0x1B'] 进阶版： ['0xF']
基础版： ['0x1C'] 进阶版： ['0x34']
基础版： ['0x1D'] 进阶版： ['0x20']
基础版： ['0x1E'] 进阶版： ['5', '9', '0xA', '0x25']
基础版： ['0x1F'] 进阶版： ['0x30']
基础版： ['0x20'] 进阶版： ['0x26']
基础版： ['0x21'] 进阶版： ['0x35']
基础版： ['0x22'] 进阶版： ['0x38']
基础版： ['0x23'] 进阶版： ['0x2A']
基础版： ['0x24'] 进阶版： ['0x23', '0x37', '0x39', '0x3D']
基础版： ['0x25'] 进阶版： ['0x27']
基础版： ['0x27'] 进阶版： ['0x2C']
基础版： ['0x28'] 进阶版： ['0x32']
基础版： ['0x29'] 进阶版： ['0x21']
基础版： ['0x2A'] 进阶版： ['3']
基础版： ['0x2B'] 进阶版： ['0xC']
基础版： ['0x2C'] 进阶版： ['0x2E']
基础版： ['0x2D'] 进阶版： ['0x14']
基础版： ['0x26'] 进阶版： ['4']
修复表： [-1, 9, 6, 42, 38, 30, 0, 0, 5, 30, 30, -1, 43, 7, 12, 27, -1, 5, 4, 18, 45, 16, 0, 5, 25, 23, 8, 0, 21, 10, 15, 11, 29, 41, 1, 36, 19, 30, 32, 37, 1, 1, 35, 20, 39, 22, 44, 14, 31, 13, 40, 26, 28, 33, 5, 36, 34, 36, 17, 3, 1, 36, 2, 24]
注意了，这里有几个opcode是没有对应关系的（默认是-1），跟踪代码发现，其实这些opcode的功能相当于nop操作，而原本lua是不存在nop的，我们只需在修复的过程中跳过这个字节码即可。
最后将获取的修复表替换到工具中，Chunspy修复点在DecodeInst函数中，修改结果如下：
function DecodeInst(code, iValues)local iSeq, iMask = config.iABC, config.mABC
local cValue, cBits, cPos = 0, 0, 1-- decode an instructionfor i = 1, #iSeq do -- if need more bits, suck in a byte at a time while cBits < iSeq do cValue = string.byte(code, cPos) * (1 << cBits) + cValue
cPos = cPos + 1; cBits = cBits + 8 end -- extract and set an instruction field iValues] = cValue % iMask
cValue = cValue // iMask
cBits = cBits - iSeq
end-- add by littleNAlocal optbl = { -1, 9, 6, 42, 38, 30, 0, 0, 5, 30, 30, -1, 43, 7, 12, 27, -1, 5, 4, 18, 45, 16, 0, 5, 25, 23, 8, 0, 21, 10, 15, 11, 29, 41, 1, 36, 19, 30, 32, 37, 1, 1, 35, 20, 39, 22, 44, 14, 31, 13, 40, 26, 28, 33, 5, 36, 34, 36, 17, 3, 1, 36, 2, 24 }
iValues.OP = optbl-- 注意，lua的下标是从1开始的数起的-- add by littleNA endiValues.opname = config.opnames -- get mnemoniciValues.opmode = config.opmode-- add by littleNAif iValues.OP == -1 then iValues.opname = "Nop" iValues.opmode = iABx
end-- add by littleNA endif iValues.opmode == iABx then -- set Bx or sBx iValues.Bx = iValues.B * iMask + iValues.C
elseif iValues.opmode == iAsBx then iValues.sBx = iValues.B * iMask + iValues.C - config.MAXARG_sBx
elseif iValues.opmode == iAx then iValues.Ax = iValues.B * iMask * iMask + iValues.C * iMask + iValues.A
endreturn iValuesend
测试发现出错了，出错结果：
从出错的结果可以看出是luac文件的版本号有错误，这里无法识别lua 11的版本其实是题目故意设计让工具识别错误，我们将文件的第4个字节（lua版本号）11修改成53就可以了。正确结果：
luadec修复点在ldo.c文件的f_parser函数，并且增加一个RepairOpcode函数，修复如下：
// add by littleNAvoid RepairOpcode(Proto* f){
// opcode 替换表 char optbl[] = { -1, 9, 6, 42, 38, 30, 0, 0, 5, 30, 30, -1, 43, 7, 12, 27, -1, 5, 4, 18, 45, 16, 0, 5, 25, 23, 8, 0, 21, 10, 15, 11, 29, 41, 1, 36, 19, 30, 32, 37, 1, 1, 35, 20, 39, 22, 44, 14, 31, 13, 40, 26, 28, 33, 5, 36, 34, 36, 17, 3, 1, 36, 2, 24 };
for (int i = 0; i < f->sizecode; i++)
{
Instruction code = f->code;
OpCode o = GET_OPCODE(code);
SET_OPCODE(code, optbl);
f->code = code;
}
for (int i = 0; i < f->sizep; i++)
{// 处理子函数 RepairOpcode(f->p);
}
}// add by littleNA endstatic void f_parser (lua_State *L, void *ud) {
LClosure *cl;
struct SParser *p = cast(struct SParser *, ud);
int c = zgetc(p->z);/* read first character */if (c == LUA_SIGNATURE) {
checkmode(L, p->mode, "binary");
cl = luaU_undump(L, p->z, p->name);
// add by littleNA Proto *f = cl->p;
RepairOpcode(f);
// add by littleNA end}
else {
checkmode(L, p->mode, "text");
cl = luaY_parser(L, p->z, &p->buff, &p->dyd, p->name, c);
}
lua_assert(cl->nupvalues == cl->p->sizeupvalues);
luaF_initupvals(L, cl);
}
运行一下，发现出错了，并且停留在StringBuffer_add函数中，其中str指向错误的地方，导致字符串读取出错：
到这里我们修复了opcode，并且Chunkspy顺利反汇编，但是luadec的反编译还是有问题，我们在下一节分析。
反编译问题及其修复
看了几个大佬的writeup，发现他们都没有修复这个问题，解题过程中都是直接分析的是lua汇编代码。我们看看出错的原因，查看vs的调用堆栈：
发现上一层函数是listUpvalues函数，也就是说luadec在解析upvalues时出错了，深入分析发现其实是由于文件中的upvalue变量名被抹掉了，导致解析出错，我们只需要在ProcessCode函数（decompile.c文件）调用listUpvalues函数前，增加临时的upvalue命名就可以了，修改代码如下：
char* ProcessCode(Proto* f, int indent, int func_checking, char* funcnumstr)
{
...
// make function comment StringBuffer_printf(str, "-- function num : %s", funcnumstr);
if (NUPS(f) > 0) {
// add by littleNA for (i = 0; i<f->sizeupvalues; i++) {
char tmp;
sprintf(tmp, "up_%d", i);
f->upvalues.name = luaS_new(f->L, tmp);
}
// add by littleNA end StringBuffer_add(str, " , upvalues : ");
listUpvalues(f, str);
}
...
}
最后完美运行luadec，反编译成功。
例子3：梦幻西游手游
这一节是去年学习破解梦幻西游手游lua代码时记录的一些问题，今天将其整理并共享出来，所以不一定适合现在版本的梦幻手游，大家还是以参考为目的呗。
当时反编译梦幻西游手游时遇到的问题大约有12个，修改完基本上可以完美复现lua源码，这里用的luadec5.1版本。
修复一
问题1： 由于梦幻手游lua的opcode是被修改过的，之前的解决方案是找到梦幻的opcode，替换掉反编译工具的原opcode，并且修改opmode，再进行反编译。问题是部分测试的结果是可以的，但是当对整个手游的luac字节码反编译时，会出现各种错误，原因是luadec5.1 在很多地方都默认了opcode的顺序，并进行了特殊处理，所以需要找到这些特殊处理的地方一一修改。不过这样很麻烦，从而想到另外一种方式，不修改原来的opcode和opmode，而是在luadec解析到字节码的时候，将opcode还原成原来的opcode。
解决1： 定位到解析code的位置在lundump.c --> LoadFunction --> LoadCode （位置不唯一，可以看上一节腾讯比赛的修复），当执行完LoadCode函数的时候，f变量则指向了code的结构，在这之后执行自己写的函数ConvertCode函数，如下：
// add by littleNAvoid ConvertCode(Proto *f){
int pnOpTbl[] = { 3,13,18,36,27,10,20,25,34,2,32,15,30,16,31,9,26,24,29,1,6,28,4,17,33,0,7,11,5,14,8,19,35,12,21,22,23,37 };
for (int pc = 0; pc < f->sizecode; pc++)
{
Instruction i = f->code;
OpCode o = GET_OPCODE(i);
SET_OPCODE(i, pnOpTbl);
f->code = i;
}
}
修复二
问题2： 在文件头部 反编译出现错误-- DECOMPILER ERROR: Overwrote pending register.
解决2： 分析发现，原来是解析OP_VARARG错误导致的。OP_VARARG主要的作用是复制B-1个参数到A寄存器中，而反编译工具复制了B个参数，多了一个。修改后的代码如下：
...
case OP_VARARG: // Lua5.1 specific. {
int i;
/*
* Read ... into register.
*/ if (b==0) {
TRY(Assign(F, REGISTER(a), "...", a, 0, 1));
} else {
// add by littleNA // for(i = 0;i<b;i++) { for(i = 0; i < b-1; i++) {
TRY(Assign(F, REGISTER(a+i), "...", a+i, 0, 1));
}
}
break;
}
...
修复三
问题3： 在解析table出现反编译错误-- DECOMPILER ERROR: Confused about usage of 。registers!
解决3： 分析发现，这里的OP_NEWTABLE 的c参数表示hash table中key的大小，而反编译代码中将c参数进行了错误转换，导致解析错误，修改代码如下：
// add by littleNA//#define fb2int(x) (((x) & 7) << ((x) >> 3))#define fb2int(x) ((((x) & 7)^8) >> (((x) >> 3)-1))
修复四
问题4： 反编译工具出错并且退出。
解决4： 跟踪发现是在AddToTable函数中，当keyed为0时会调用PrintTable，而PrintTable释放了table，下次再调用table时内存访问失败，修改代码如下：
void AddToTable(Function* F, DecTable * tbl, char *value, char *key){
DecTableItem *item;
List *type;
int index;
if (key == NULL) {
type = &(tbl->numeric);
index = tbl->topNumeric;
tbl->topNumeric++;
} else {
type = &(tbl->keyed);
tbl->used++;
index = 0;
}
item = NewTableItem(value, index, key);
AddToList(type, (ListItem *) item);
// FIXME: should work with arrays, too // add by littleNA // if(tbl->keyedSize == tbl->used && tbl->arraySize == 0){ if (tbl->keyedSize != 0 && tbl->keyedSize == tbl->used && tbl->arraySize == 0) {
PrintTable(F, tbl->reg, 0);
if (error)
return;
}
}
修复五
问题5： 当函数是多值返回结果并且赋值于多个变量时反编译错误，情况如下（lua反汇编）：
21 [-]: GETGLOBAL R0 K9 ; R0 := memoryStatMap 22 [-]: GETGLOBAL R1 K9 ; R1 := memoryStatMap 23 [-]: GETGLOBAL R2 K2 ; R2 := preload 24 [-]: GETTABLER2 R2 K3 ; R2 := R2["utils"] 25 [-]: GETTABLER2 R2 K16 ; R2 := R2["getCocosStat"] 26 [-]: CALL R2 1 3 ; R2,R3 := R2() 27 [-]: SETTABLER1 K15 R3 ; R1["cocosTextureBytes"] := R3 28 [-]: SETTABLER0 K14 R2 ; R0["cocosTextureCnt"] := R2
当上面的代码解析到27行时，从寄存器去取R3时报错，原因是前面的call返回多值时，只是在F->Rcall中进行了标记，没有在寄存器中标记，编译的结果应该为：
memoryStatMap.cocosTextureCnt, memoryStatMap.cocosTextureBytes = preload.utils.getCocosStat()
解决5： 当reg为空时并且Rcall不为空，增加一个return more的标记，修改2个函数：
char *RegisterOrConstant(Function * F, int r)
{
if (IS_CONSTANT(r)) {
return DecompileConstant(F->f, r - 256); // TODO: Lua5.1 specific. Should change to MSR!!! } else {
char *copy;
char *reg = GetR(F, r);
if (error)
return NULL;
// add by littleNA // if(){} if (reg == NULL && F->Rcall != 0)
{
reg = "return more";
}
copy = malloc(strlen(reg) + 1);
strcpy(copy, reg);
return copy;
}
}
void OutputAssignments(Function * F){
int i, srcs, size;
StringBuffer *vars;
StringBuffer *exps;
if (!SET_IS_EMPTY(F->tpend))
return;
vars = StringBuffer_new(NULL);
exps = StringBuffer_new(NULL);
size = SET_CTR(F->vpend);
srcs = 0;
for (i = 0; i < size; i++) {
int r = F->vpend->regs;
if (!(r == -1 || PENDING(r))) {
SET_ERROR(F,"Attempted to generate an assignment, but got confused about usage of registers");
return;
}
if (i > 0)
StringBuffer_prepend(vars, ", ");
StringBuffer_prepend(vars, F->vpend->dests);
if (F->vpend->srcs && (srcs > 0 || (srcs == 0 && strcmp(F->vpend->srcs, "nil") != 0) || i == size-1)) {
// add by littleNA // if() if (strcmp(F->vpend->srcs, "return more") != 0)
{
if (srcs > 0)
StringBuffer_prepend(exps, ", ");
StringBuffer_prepend(exps, F->vpend->srcs);
srcs++;
}
}
}
...
}
修复六
问题6： 当函数只有一个renturn的时候会反编译错误。
解决6：
case OP_RETURN:
{
...
// add by littleNA // 新增的if if (pc != 0)
{
for (i = a; i < limit; i++) {
char* istr;
if (i > a)
StringBuffer_add(str, ", ");
istr = GetR(F, i);
TRY(StringBuffer_add(str, istr));
}
TRY(AddStatement(F, str));
}
break;
}
修复七
问题7： 部分table初始化会出错。
解决7：
char *GetR(Function * F, int r)
{
if (IS_TABLE(r)) {
// add by littleNA return "{ }";
//PrintTable(F, r, 0); //if (error) return NULL; }
...
}
修复八
问题8： 可变参数部分解析出错，但是工具反编译时是不报错误的。
解决8： is_vararg为7时，F->freeLocal多加了一次：
if (f->is_vararg==7) {
TRY(DeclareVariable(F, "arg", F->freeLocal));
F->freeLocal++;
}
// add by littleNA // 修改if为else if else if ((f->is_vararg&2) && (functionnum!=0)) {
F->freeLocal++;
}
修复九
问题9： 反编译工具输出的中文为url类型的字符（类似 “\230\176\148\231\150\151\230\156\175”），不是中文。
解决9： 在proto.c文件中的DecompileString函数中，注释掉default 转换字符串的函数：
char *DecompileString(const Proto * f, int n)
{
...
default:
//add by littleNA// if (*s < 32 || *s > 127) {// char* pos = &(ret);// sprintf(pos, "\\%d", *s);// p += strlen(pos);// } else { ret = *s;// } break;
...
}
然后再下面3处增加判断的约束条件，因为中文字符的话，char字节是负数，这样isalpha和isalnum函数就会出错，所以增加约束条件，小于等于127：
void MakeIndex(Function * F, StringBuffer * str, char* rstr, int self){
...
int dot = 0;
/*
* see if index can be expressed without quotes
*/ if (rstr == '\"') {
// add by littleNA // (unsigned char)(rstr) <= 127 && if ((unsigned char)(rstr) <= 127 && isalpha(rstr) || rstr == '_') {
char *at = rstr + 1;
dot = 1;
while (*at != '"') {
// add by littleNA // *(unsigned char*)at <= 127 && if (*(unsigned char*)at <= 127 && !isalnum(*at) && *at != '_') {
dot = 0;
break;
}
at++;
}
}
}
....
}
...
case OP_TAILCALL:
{
// add by littleNA // (unsigned char)(*at) <= 127 && while (at > astr && ((unsigned char)(*at) <= 127 && isalpha(*at) || *at == '_')) {
at--;
}
}
...
修复十
问题10： 反汇编失败。因为一些文件中含有很长的字符串，导致sprintf函数调用失败。
解决10： 增加缓存的大小：
void luaU_disassemble(const Proto* fwork, int dflag, int functions, char* name) {
...
// add by littleNA // char lend; char lend;
...
}
修复十一
问题11： op_setlist操作码当b==0时，反编译失败。
解决11： 当遇到类似下面的lua语句时，反编译工具会失败，出现的情况在@lib_ui.lua文件中：
local a={func()}
汇编后的代码：
a b c
newtable 0 0 0 ; array=0, hash=0 getglobal1 0 ; func
call 1 1 0 setlist 0 0 1 ; index 1 to top
return 0 1
出现的问题有2处，第一个是newtable，当b == 0 && c == 0时，反编译工具认为table是空的table，直接输出了table并且释放了table的内存，导致后面setlist初始化table时找不到内存而报错。
第二个是setlist有问题，当b==0时，其实是指寄存器a+1到栈顶（top）的值全部赋值于table，而反编译器没有对b==0的判断，加上就可以了。所以修改如下：
void StartTable(Function * F, int r, int b, int c){
DecTable *tbl = NewTable(r, F, b, c);
AddToList(&(F->tables), (ListItem *) tbl);
F->Rtabl = 1;
F->Rtabl = 1;
if (b == 0 && c == 0) {
// add by littleNA // for(){} for (int npc = F->pc + 1; npc < F->f->sizecode; npc++)
{
Instruction i = F->f->code;
OpCode o = GET_OPCODE(i);
if ((o != OP_SETLIST && o != OP_SETTABLE) && r == GETARG_A(i))
{
PrintTable(F, r, 1);
return;
}
else if ((o == OP_SETLIST || o == OP_SETTABLE) && r == GETARG_A(i))
{
return;
}
}
PrintTable(F, r, 1);
if (error)
return;
}
}void SetList(Function * F, int a, int b, int c){
...
// add by littleNA // if(){} if (b == 0)
{
Instruction i = F->f->code;
OpCode o = GET_OPCODE(i);
if (o == OP_CALL)
{
int aa = GETARG_A(i);
for (i = a + 1; i < aa + 1; i++)
{
char* rstr = GetR(F, i);
if (error)
return;
AddToTable(F, tbl, rstr, NULL);
if (error)
return;
}
}
else {
for (i = 1;;i++) {
char* rstr = GetR(F, a + i);
if (rstr == NULL)
return;
AddToTable(F, tbl, rstr, NULL);
if (error)
return;
}
}
}
...
}
StartTable 增加的for循环表示，如果执行了newtable(r 0 0)，后面非初始化table的操作覆盖了r寄存器（把table覆盖了），那就表明new出来的table是空的，后面没有对table的赋值；如果后面有对r寄存器初始化，证明此时new出了的table不是空的，是可变参数的table。
SetList 增加的if表示，如果指令是call指令，那么将a+1到call指令寄存器aa的栈元素加入到table中（这里为何不是到栈顶的元素而是到aa的元素呢？因为call指令对应的是函数调用，反编译工具已经把函数调用的字符串解析到aa中了，这里跟实际运行可能有点不一样；else后面就是将a+1到栈顶的元素初始化到table中，直到GetR函数为空表示到栈顶了。
修复十二
问题12： 当一个函数开头只是局部变量声明，如：
function func() local a,b,c
c = f(a,b)
return cend
第一行 local a,b,c 会反编译失败，导致后面的代码出现各种错误。
解决12：
void DeclareLocals(Function * F){
...
for (i = startparams; i < F->f->sizelocvars; i++) {
if (F->f->locvars.startpc == F->pc) {
...
if (PENDING(r)) {...}
// add by littleNA // else if(){} else if (locals == 0 && F->pc == 0)
{
StringBuffer_add(str, LOCAL(i));
char *szR = GetR(F, r);
StringBuffer_add(rhs, szR==NULL?"nil":szR);
}
...
}
}
...
}
当变量的startpc 等于 当前pc，变量的个数为0并且当前pc为0，表示第一行声明了变量，添加的else if就是解析这种情况的（原来是直接报错不解析）。
总结
上文首先总结了近年来公开的lua逆向技术相关文章和相关工具，接着讲解了lua反汇编和反编译的对抗，并以3个实例作为说明。第1个例子举例了征途手游的修复，第2个例子修复了lua虚拟机的opcode并成功反编译lua脚本，第3个例子完美修复了梦幻手游的lua脚本反编译出现的大量错误。
lua加解密的技术还是会一直发展下去，但是这篇文章到此就结束了。接下来可能会写一篇2018腾讯游戏安全竞赛的详细分析报告（详细到每一个字节喔），内容包括但不限于STL逆向、AES算法分析、Blueprint脚本分析等等，敬请期待。 本帖最后由 code871 于 2019-10-26 17:29 编辑
某航线的一个检测lua在反编译后不修改内容重新编译不会有任何改动，但是如果修改了这个lua的内容，重新编译后内容会发生改变，游戏结算也会失败
这是原来的内容
function AddCfgBaseInfo(slot0)
for slot4, slot5 in ipairs(slot0.all) do
if rawget(slot0, "base") ~= nil then
rawset(slot6, "base", nil)
setmetatable(slot6, {
__index = slot0
})
end
end
end
function GetSpeNum(slot0, slot1)
for slot5, slot6 in pairs(slot0) do
if type(slot6) == "number" then
slot1 = slot1 + slot6
elseif slot7 == "table" then
slot1 = GetSpeNum(slot6, slot1)
elseif slot7 == "string" then
slot1 = slot1 + (tonumber(slot6) or 0)
end
end
return slot1
end
function GetDataValue(slot0)
for slot5, slot6 in ipairs(slot0.all) do
slot1 = GetSpeNum(slot0, 0)
end
return slot1
end
function CheckTables(slot0, slot1)
for slot5, slot6 in pairs(slot0) do
if type(slot6) == "number" or slot7 == "string" then
if slot6 ~= slot1 then
return false
end
elseif slot7 == "table" and not CheckTables(slot6, slot1) then
return false
end
end
return true
end
AddCfgBaseInfo(pg.equip_data_statistics)
AddCfgBaseInfo(pg.weapon_property)
AddCfgBaseInfo(pg.equip_data_template)
AddCfgBaseInfo(pg.aircraft_template)
AddCfgBaseInfo(pg.enemy_data_statistics)
ys.EquipDataStatisticVertify = GetDataValue(pg.equip_data_statistics)
ys.WeaponPropertyVertify = GetDataValue(pg.weapon_property)
ys.ShipStatisticsVertify = GetDataValue(pg.ship_data_statistics)
ys.EnemyStatisticsVertify = GetDataValue(pg.enemy_data_statistics)
ys.ExpeditionDataVertify = GetDataValue(pg.expedition_data_template)
ys.BattleVertifyTable = {
{
hash = ys.EquipDataStatisticVertify,
hashCheck = ys.EquipDataStatisticVertify,
data = pg.equip_data_statistics
},
{
hash = ys.WeaponPropertyVertify,
hashCheck = ys.WeaponPropertyVertify,
data = pg.weapon_property
},
{
hash = ys.ShipStatisticsVertify,
hashCheck = ys.ShipStatisticsVertify,
data = pg.ship_data_statistics
},
{
hash = ys.EnemyStatisticsVertify,
hashCheck = ys.EnemyStatisticsVertify,
data = pg.enemy_data_statistics
},
{
hash = ys.ExpeditionDataVertify,
hashCheck = ys.ExpeditionDataVertify,
data = pg.expedition_data_template
}
}
function GetBattleCheck()
return math.floor(ys.EquipDataStatisticVertify + ys.WeaponPropertyVertify + ys.ShipStatisticsVertify + ys.EnemyStatisticsVertify + ys.ExpeditionDataVertify + GetSpeNum(pg.skillCfg, 0) + GetSpeNum(pg.buffCfg, 0))
end
ys.BattleConfigVertify = GetSpeNum(ys.Battle.BattleConfig, 0)
ys.BattleConstVertify = GetSpeNum(pg.bfConsts, 0)
ys.BattleShipLevelVertify = {}
如果修改内容之后，重新编译，就会发生改变，再反编译出来看看就会发现
function GetDataValue下的slot值都会改变
但是如果什么都不做，重新编译，什么也不会变
想问下这是什么原理呢
如果需要文件本体的话在这pan.baidu.com/s/158u05JsYFIzh_8NhFshzTA 提取edwv 头大了哈哈 {:17_1061:}看的头很晕~~~ 好长好复杂，不过学习一下，谢谢楼主 表示没怎么解除过！{:1_907:} 很实用虽然看不懂还是感谢下 斜体看着头大。 懵逼的进来，懵逼的出去 一脸懵逼的进来 又一脸懵逼的初期- - 好熟悉的文章