首页
社区
课程
招聘
[原创]Lua脚本反编译入门之一
发表于: 2014-4-12 23:20 86948

[原创]Lua脚本反编译入门之一

2014-4-12 23:20
86948

随着越来越多的游戏,软件采用Lua来实现业务逻辑,
想搞黑产的同学,时常便会遇见lua脚本,可惜大部分都是编译过的lua脚本,而且还是自定义的。
便难倒了很多菜鸟,lua 的实现机制,那可是虚拟机技术,非常难于调试。
本教程,便来普及lua 的虚拟机指令及其反编译lua脚本,成为文本形式的脚本

1.Lua的虚拟机指令,5.2 的有40条

Lua的指令使用一个32bit的unsigned integer表示。所有指令的定义都在lopcodes.h文件中(可以从Lua 官方网站下载),使用一个enum OpCode代表指令类型。在lua5.2中,总共有40种指令(id从0到39)。根据指令参数的不同,可以将所有指令分为4类:



typedef enum {
/*----------------------------------------------------------------------
name                args        description

------------------------------------------------------------------------*/
OP_MOVE,/*        A B        R(A) := R(B)                                        */
OP_LOADK,/*        A Bx        R(A) := Kst(Bx)                                        */
OP_LOADKX,/*        A         R(A) := Kst(extra arg)                                */
OP_LOADBOOL,/*        A B C        R(A) := (Bool)B; if (C) pc++                        */
OP_LOADNIL,/*        A B        R(A), R(A+1), ..., R(A+B) := nil                */
OP_GETUPVAL,/*        A B        R(A) := UpValue                                */

OP_GETTABUP,/*        A B C        R(A) := UpValue[RK(C)]                        */
OP_GETTABLE,/*        A B C        R(A) := R(B)[RK(C)]                                */

OP_SETTABUP,/*        A B C        UpValue[A][RK(B)] := RK(C)                        */
OP_SETUPVAL,/*        A B        UpValue := R(A)                                */
OP_SETTABLE,/*        A B C        R(A)[RK(B)] := RK(C)                                */

OP_NEWTABLE,/*        A B C        R(A) := {} (size = B,C)                                */

OP_SELF,/*        A B C        R(A+1) := R(B); R(A) := R(B)[RK(C)]                */

OP_ADD,/*        A B C        R(A) := RK(B) + RK(C)                                */
OP_SUB,/*        A B C        R(A) := RK(B) - RK(C)                                */
OP_MUL,/*        A B C        R(A) := RK(B) * RK(C)                                */
OP_DIV,/*        A B C        R(A) := RK(B) / RK(C)                                */
OP_MOD,/*        A B C        R(A) := RK(B) % RK(C)                                */
OP_POW,/*        A B C        R(A) := RK(B) ^ RK(C)                                */
OP_UNM,/*        A B        R(A) := -R(B)                                        */
OP_NOT,/*        A B        R(A) := not R(B)                                */
OP_LEN,/*        A B        R(A) := length of R(B)                                */

OP_CONCAT,/*        A B C        R(A) := R(B).. ... ..R(C)                        */

OP_JMP,/*        A sBx        pc+=sBx; if (A) close all upvalues >= R(A) + 1        */
OP_EQ,/*        A B C        if ((RK(B) == RK(C)) ~= A) then pc++                */
OP_LT,/*        A B C        if ((RK(B) <  RK(C)) ~= A) then pc++                */
OP_LE,/*        A B C        if ((RK(B) <= RK(C)) ~= A) then pc++                */

OP_TEST,/*        A C        if not (R(A) <=> C) then pc++                        */
OP_TESTSET,/*        A B C        if (R(B) <=> C) then R(A) := R(B) else pc++        */

OP_CALL,/*        A B C        R(A), ... ,R(A+C-2) := R(A)(R(A+1), ... ,R(A+B-1)) */
OP_TAILCALL,/*        A B C        return R(A)(R(A+1), ... ,R(A+B-1))                */
OP_RETURN,/*        A B        return R(A), ... ,R(A+B-2)        (see note)        */

OP_FORLOOP,/*        A sBx        R(A)+=R(A+2);
                        if R(A) <?= R(A+1) then { pc+=sBx; R(A+3)=R(A) }*/
OP_FORPREP,/*        A sBx        R(A)-=R(A+2); pc+=sBx                                */

OP_TFORCALL,/*        A C        R(A+3), ... ,R(A+2+C) := R(A)(R(A+1), R(A+2));        */
OP_TFORLOOP,/*        A sBx        if R(A+1) ~= nil then { R(A)=R(A+1); pc += sBx }*/

OP_SETLIST,/*        A B C        R(A)[(C-1)*FPF+i] := R(A+i), 1 <= i <= B        */

OP_CLOSURE,/*        A Bx        R(A) := closure(KPROTO[Bx])                        */

OP_VARARG,/*        A B        R(A), R(A+1), ..., R(A+B-2) = vararg                */

OP_EXTRAARG/*        Ax        extra (larger) argument for previous opcode        */
} OpCode;

**********************************************************
                                  虚拟机指令(2) MOVE & LOAD

OP_MOVE  A  B
OP_MOVE用来将寄存器B中的值拷贝到寄存器A中,由于Lua是基于寄存器虚拟机,大部分的指令都是直接对寄存器进行操作,而不需要对数据进行压栈和弹栈。OP_MOVE 指令的作用 是将一个Local变量复制给另一个local变量.
例子:
local a = 10;  
local b = a;  
编译出来的结果
1   [1] LOAD        0 1;1代表的是常量表的项,这里代表的是10  
2   [2] MOVE        1 0
所代表的二进制为
                     B                 A        OP_Code
Load    0  1  =  100000000 000000000 00000000   000001   =  0x80000001 ,也就是说, 0x80000001 的二进制所代表的指令为  Load  0  1,这里B中的最高位为1,表示的B为常量表的序号,而不是寄存器

MOVE   1  0 =   000000000 000000000 00000001  000000   =  0x40

*****************华丽分割线***********************************************
1.lua 的二进制格式,官方的luac.exe 编译出来的格式


原始的lua 脚本为
local a = 10
local b = a
print(b)

下面介绍格式文件,介绍每个字段的意思.当然啦,这种格式是官方的,各个游戏公司可能会做一些改动,但是万变不离其宗。个个字段已经用颜色标明了
在lua 的源文件中,前面四个字节  1b 4c 75 61  也就是 \033Lua , 标识的是lua文件的特有的标示符数据格式,代表是lua
#define LUA_SIGNATURE        "\033Lua"  033时八进制  = 0x1b ,很多那些反编译工具判断这四个字节的值,来判断是否能反编译,很多公司都会偷偷的去掉或者用其他的值来替换,以迷惑菜鸟。呵呵

52  第五个字节,表示的是,当前lua 的目标版本,这里指的是5.2 版本。
感觉编辑的好痛苦,我还是直接贴我的比较图算了,看起来比较舒服



函数的头描述
linedefined   =    00 00 00 00   ;函数定义开始处的行号
linedefined   =    00 00 00 00     ; 函数定义结束处的行号 ;顶级函数开始和结束行号都是为00
numparams  =    00          ;固定参数的数目 number of fixed parameters
is_vararg      =    01            ;可变参数标识符
                                            • 1=VARARG_HASARG
                                            • 2=VARARG_ISVARARG
                                             • 4=VARARG_NEEDSARG
maxstacksize  =  03         ;调用函数所需要的堆栈空间指令段
sizecode         =   06 00 00 00  ; 函数中 指令的数目,缓存区的大小 = sizecode * sizeof(Instruction),每四个字节为一条指令
code               =  02 00 00 00 41 00 00 00 87 40 40 00 c1 00 80 00 a0 40 00 01 1e 00 80 00
                    
常量列表 保存着函数中引用的常量的列表 (常量池)
Constant.sizek    =  02 00 00 00    ;常量列表的大小 ,缓存区的大小  = Constant.sizek * sizeof(TValue) = 2 * 8 = 16,每项为8个字节,
TValue *               =                                                                             03 00 00 .
                                           00 00 00 00 24 40 04 06 00 00 00 70 72 69 6e 74  ....$@.....print
Constant list 数据结构   保存着函数中引用的常量的列表 (常量池)
Integer 常量列表的大小 (sizek)
[
    1 byte 常量类型 (value in parentheses):  • 0=LUA_TNIL, 1=LUA_TBOOLEAN,• 3=LUA_TNUMBER, 4=LUA_TSTRING
     Const 常量本身: 如果常量类型是0这个域不存在;如果类型是1,这个是0或1;如果类型是3这个域是 Number;如果类型是4 这个域是String。
]
这里的String 是包含"0"为结束的字符串


为什么上传图片以后,图片都变小了,而且不清晰呢?

***********************给大家发一点福利,矫正虚拟机指令的函数**************************************
//矫正虚拟机指令
DWORD Rectify(DWORD Source);
{
    DWORD Instruction = Source;
    BYTE  Source_OpCode =  Instruction & 0x3F;
    switch(Source_OpCode)
    {
        case OP_MOVE:
                Source_OpCode  = Target_OpCode;
             break;
         ...
    }
   Instruction = ((Instruction & 0xFFFFFFC0) | Source_OpCode);
   return Instruction
}


[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课

上传的附件:
收藏
免费 7
支持
分享
最新回复 (53)
雪    币: 116
活跃值: (48)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
2
持续关注~
2014-4-12 23:59
0
雪    币: 346
活跃值: (129)
能力值: ( LV6,RANK:90 )
在线值:
发帖
回帖
粉丝
3
嗯 值得关注一下 现在用LUA的越来越多了
2014-4-13 00:00
0
雪    币: 248
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
4
提取资源文件或者用LUA反编译软件 反成伪代码,不是更快
2014-4-13 08:44
0
雪    币: 199
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
5
楼主继续啊
2014-4-13 08:49
0
雪    币: 37
活跃值: (12)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
6
这个需要好好关注
2014-4-13 12:44
0
雪    币: 59
活跃值: (17)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
7
如何你这样想你就错了,LUA反编译软件是不能反过来的,别人改了指令表。
2014-4-13 16:01
0
雪    币: 59
活跃值: (17)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
8
另求楼主快更新,支持楼主
2014-4-13 16:03
0
雪    币: 114
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
9
期待下一集
2014-4-14 17:52
0
雪    币: 2559
活跃值: (176)
能力值: ( LV5,RANK:60 )
在线值:
发帖
回帖
粉丝
10
期待下一集
2014-4-16 07:53
0
雪    币: 47147
活跃值: (20490)
能力值: (RANK:350 )
在线值:
发帖
回帖
粉丝
11
先设优秀,等系列完成再设精华
2014-4-16 08:20
0
雪    币: 43
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
12
Lua需要深入研究了,越来越多的程序使用lua脚本编译了,趋势很明显
2014-4-16 10:31
0
雪    币: 342
活跃值: (121)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
13
mark留名,等更新
2014-4-16 11:50
0
雪    币: 109
活跃值: (498)
能力值: ( LV12,RANK:220 )
在线值:
发帖
回帖
粉丝
14
http://lua-users.org/wiki/LuaTools

5.0
http://luadec.luaforge.net/

5.1
https://code.google.com/p/luadec/
http://sourceforge.net/projects/unluac/
https://github.com/sztupy/luadec51/wiki

==========
https://github.com/mlnlover11/LuaAssemblyTools

好似 版本差异蛮大的,撸主辛苦了。
2014-4-16 11:56
0
雪    币: 35
活跃值: (96)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
15
这块越来越受关注了
2014-4-16 22:12
0
雪    币: 353
活跃值: (516)
能力值: ( LV7,RANK:110 )
在线值:
发帖
回帖
粉丝
16
对不起各位,最近实在是太忙了,回到家都12点左右,周末一定更新!
2014-4-17 01:41
0
雪    币: 24
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
17
留名................等更新
2014-4-17 06:51
0
雪    币: 100
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
18
做记号,等待楼主更新
2014-4-17 18:52
0
雪    币: 0
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
19
关注,,,,。
2014-4-17 20:44
0
雪    币: 4
活跃值: (17)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
20
收藏,持续关注
2014-4-17 21:47
0
雪    币: 208
活跃值: (40)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
21
期待楼主的下一篇,另外这种编码格式是跨平台的吗,比如大端小端之类的问题?
2014-4-18 11:04
0
雪    币: 353
活跃值: (516)
能力值: ( LV7,RANK:110 )
在线值:
发帖
回帖
粉丝
22
文件格式中有说明大小端的标识
2014-4-18 16:22
0
雪    币: 5
活跃值: (12)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
23
其实楼主可以用一个实例加以说明会更容易看懂,期待你的下一篇
2014-4-20 13:36
0
雪    币: 211
活跃值: (52)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
24
en ,虽然还看不懂,但是也看得很激动
2014-4-21 14:25
0
雪    币: 38
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
25
留名学习了,楼主继续
2014-4-21 15:12
0
游客
登录 | 注册 方可回帖
返回
//