网上关于ShellCode编写的文章很多，但介绍如何在ShellCode里面使用异常处理的却很少。笔者前段时间写了一个ShellCode，其中有一个功能是内存加载多个别人写的DLL插件，然后调用里面的函数，结果因为某个DLL函数里面发生了异常，导致ShellCode进程直接闪退，所以学习了一下在ShellCode里面如何使用异常处理的方法。
Windows程序的异常处理，其实是三者结合的：操作系统、编译器和程序代码。因为x86下异常处理的文章太多，所以本文只介绍Win64下的。X86的异常（本文仅谈论SEH异常）一般的流程为：进入 try...语句之前先注册到异常链表，执行完代码后，再摘除，不管有没有异常发生，这个步骤都是必不可少的，所以多多少少会影响程序的性能。而Win64的异常处理，是基于表的。也就是说，编译器在编译代码的时候，会同时对每个函数（还分非叶，不深究）生成一个异常表，最后链接到PE的异常表里。当程序发生异常的时候，操作系统跟根据当前地址，枚举所有异常表，如果地址位于某个表的开始和结束地址之间，则使用这个表处理。相对来说，这个比X86更加安全和高效。
这个异常表，称为RUNTIME_FUNCTION，MSDN里面定义如下：
typedef struct _IMAGE_RUNTIME_FUNCTION_ENTRY {
DWORD BeginAddress;
DWORD EndAddress;
union {
DWORD UnwindInfoAddress;
DWORD UnwindData;
} DUMMYUNIONNAME;
} RUNTIME_FUNCTION, *PRUNTIME_FUNCTION, _IMAGE_RUNTIME_FUNCTION_ENTRY, *_PIMAGE_RUNTIME_FUNCTION_ENTRY;
这些表连续存放在PE的异常目录中，每个表对应一个函数，所有成员都是相当于ImageBase的开始相对地址。其中BeginAddress表示这个函数的开始地址，EndAddress则对应结束地址，最重要的，是UnwindInfoAddress，它对应另外一个结构UNWIND_INFO：
typedef struct _UNWIND_INFO {
UBYTE Version : 3;
UBYTE Flags : 5;
UBYTE SizeOfProlog;
UBYTE CountOfCodes;
UBYTE FrameRegister : 4;
UBYTE FrameOffset : 4;
UNWIND_CODE UnwindCode[1];/* UNWIND_CODE MoreUnwindCode[((CountOfCodes + 1) & ~1) - 1];
* union {
* OPTIONAL ULONG ExceptionHandler;
* OPTIONAL ULONG FunctionEntry;
* };
* OPTIONAL ULONG ExceptionData[]; */} UNWIND_INFO, *PUNWIND_INFO;
成员如下：
Version：版本号，一般为1，最高目前是2。
Flags：取值如下
#define UNW_FLAG_EHANDLER 0x01 ---表示有except块
#define UNW_FLAG_UHANDLER 0x02 ---表示有finally块
#define UNW_FLAG_CHAININFO 0x04 ---表示后面是另外一个Runtime_Function
SizeOfProlog:函数头到try块的位置。
CountOfCodes：表示后面有多少个UNWIND_CODE 结构。注意：这个数值是偶数对齐的，如果为奇数，则最后一个结构为空值的UNWIND_CODE。
ExceptionHandler（可选）：如果Flags包含了UNW_FLAG_EHANDLER 或UNW_FLAG_UHANDLER，则ExceptionHandler指向异常处理函数。其中Delphi语言是指向system.pas里面的函数_DelphiExceptionHandler；VS相对来说复杂一些，如果是SEH异常，一般是指向__C_specific_handler函数。
ExceptionData（可选）：这个具体语言是不同的，所以windbg解释异常表的时候也是只解释到上一个成员。这个一般是（Delphi语言则肯定也只会）指向一个SCOPE_TABLE结构：
typedef struct _SCOPE_TABLE
{
ULONG Count;
struct
{
ULONG BeginAddress;
ULONG EndAddress;
ULONG HandlerAddress;
ULONG JumpTarget;
} ScopeRecord[1];
} SCOPE_TABLE, *PSCOPE_TABLE;
如果想在ShellCode里面使用异常，则请进行如下步骤：
1、提取语言的异常处理函数，让它称为ShellCode的一个函数（Delphi语言是system.pas里面的_DelphiExceptionHandler函数，VS则应该提取C:\Program Files (x86)\Microsoft Visual Studio 14.0\VC\crt\src\amd64\chandler.c里面的__C_specific_handler函数）。注意提取后的ShellCode化（修正API调用等）。当然，你也可以完全自己编写处理函数。
2、在需要使用异常处理的函数像往常一样使用try catch...try except...，在保存ShellCode的时候，使用API函数RtlLookupFunctionEntry查找这个函数的Runtime_Function，然后查找成员UNWIND_INFO，修正所有的相对地址后，跟ShellCode放在一起。
3、ShellCode运行后，调用API函数RtlAddFunctionTable将第二步修正的表添加到系统。
附件说明：
1、PE64异常表枚举工具.exe：一个用于枚举异常表的小工具。对于Delphi编译的PE，还会枚举SCOPE_TABLE。
2、ShellCode64.bin：一个在ShellCode里面使用异常的DEMO。
3、LoadTest.exe：加载ShellCode64.bin进行测试的程序，代码见LoadTest.dpr。
4、Dll.dll：测试调用Dll里面有异常发生的函数。
5、Dll.dpr、LoadTest.dpr。Delphi代码。
其中ShellCode64.bin的部分代码如下：
“程序内置单个异常测试”按钮：
procedure OnButton1Click(hForm1: HWND);
var
bExcept: Boolean;
i, j, nRet: Integer;
szMaker: array[0..3] of AnsiChar;
szBuffer: array[0..127] of AnsiChar;
begin
i := 10;
j := 0;
bExcept := False;
try
nRet := i div j;
except
WindowsAPI^.fnMessageBoxA(hForm1, '进入except节', FixPAnsiChar('MyTest'), MB_ICONWARNING + MB_TOPMOST);
nRet := 0;
bExcept := True;
end;
if bExcept then
begin
WindowsAPI^.fnwsprintfA(szBuffer, FixPAnsiChar('发生异常!nRet=%d'), nRet);
end
else
begin
WindowsAPI^.fnwsprintfA(szBuffer, FixPAnsiChar('没有异常!nRet=%d'), nRet);
end;
WindowsAPI^.fnMessageBoxA(hForm1, szBuffer, FixPAnsiChar('MyTest'), MB_ICONINFORMATION + MB_TOPMOST);
end;
“程序内置镶套异常测试”按钮：这个实际上是先触发除0异常，再在异常里面通过给一个空指针赋值产生第二个异常：
procedure OnButton2Click(hForm1: HWND);
var
bExcept: Boolean;
i, j, nRet: Integer;
szMaker: array[0..3] of AnsiChar;
szBuffer: array[0..127] of AnsiChar;
p: Pointer;
begin
i := 10;
j := 0;
p := nil;//空指针
bExcept := False;
try
nRet := i div j;
except
WindowsAPI^.fnMessageBoxA(hForm1, '进入except节1', FixPAnsiChar('MyTest'), MB_ICONWARNING + MB_TOPMOST);
try
PInteger(p)^ := 999;
except
bExcept := True;
WindowsAPI^.fnMessageBoxA(hForm1, '进入except节2', FixPAnsiChar('MyTest'), MB_ICONWARNING + MB_TOPMOST);
end;
nRet := 0;
bExcept := True;
end;
if bExcept then
begin
WindowsAPI^.fnwsprintfA(szBuffer, FixPAnsiChar('发生异常!nRet=%d'), nRet);
end
else
begin
WindowsAPI^.fnwsprintfA(szBuffer, FixPAnsiChar('没有异常!nRet=%d'), nRet);
end;
WindowsAPI^.fnMessageBoxA(hForm1, szBuffer, FixPAnsiChar('MyTest'), MB_ICONINFORMATION + MB_TOPMOST);
end;
“Dll函数1"按钮和“Dll函数2"按钮的代码其实是一样的，只不过是Dll导出的函数名称不一样而已：
procedure OnButton4Click(hForm1, hEdit: HWND);
type
TGetInteger = function: Integer; stdcall;
var
szDllFileName: array[0..MAX_PATH - 1] of AnsiChar;
hDll: HMODULE;
MyGetIntege: TGetInteger;
var
bExcept: Boolean;
nRet: Integer;
szMaker: array[0..3] of AnsiChar;
szBuffer: array[0..127] of AnsiChar;
begin
WindowsAPI^.fnGetWindowTextA(hEdit, szDllFileName, MAX_PATH);
hDll := WindowsAPI^.fnLoadLibraryA(szDllFileName);
if hDll = 0 then
begin
WindowsAPI^.fnMessageBoxA(hForm1, FixPAnsiChar('Dll文件加载失败！'), FixPAnsiChar('MyTest'), MB_ICONWARNING + MB_TOPMOST);
Exit;
end;
@MyGetIntege := WindowsAPI^.fnGetProcAddress(hDll, FixPAnsiChar('GetInteger1'));
if @MyGetIntege = nil then
begin
WindowsAPI^.fnMessageBoxA(hForm1, FixPAnsiChar('函数GetInteger1获取失败！'), FixPAnsiChar('MyTest'), MB_ICONWARNING + MB_TOPMOST);
WindowsAPI^.fnFreeLibrary(hDll);
Exit;
end;
bExcept := False;
try
nRet := MyGetIntege;
except
WindowsAPI^.fnMessageBoxA(hForm1, '进入except节', FixPAnsiChar('MyTest'), MB_ICONINFORMATION + MB_TOPMOST);
nRet := 0;
bExcept := True;
end;
if bExcept then
begin
WindowsAPI^.fnwsprintfA(szBuffer, FixPAnsiChar('发生异常!nRet=%d'), nRet);
end
else
begin
WindowsAPI^.fnwsprintfA(szBuffer, FixPAnsiChar('没有异常!nRet=%d'), nRet);
end;
WindowsAPI^.fnMessageBoxA(hForm1, szBuffer, FixPAnsiChar('MyTest'), MB_ICONINFORMATION + MB_TOPMOST);
end;
Dll主要导出两个函数，一个有异常，一个没有异常（GetInteger2实际上也是可能存在异常的---如果随机数为0），你也可以使用VS之类编写一个DLL来测试：
function GetInteger1:Integer;stdcall;
var
i,j:Integer;
begin
i:=0;
j:=Random(100);
Result:=j div i;
end;
function GetInteger2:Integer;stdcall;
var
i,j:Integer;
begin
i:=Random(100);
j:=Random(10000);
Result:=j div i;
end;
procedure _Start;
var
p: PAnsiChar;
nCount: Integer;
SDKForm: TSDKForm; //SDK窗口类
begin
if not InitWindowsAPI then Exit; //初始化全局API函数表
p := FixPAnsiChar(fnA); //获取异常表信息位置
nCount := PInteger(p)^;
Inc(p, sizeof(Integer));
if not WindowsAPI^.fnRtlAddFunctionTable(p, nCount, DWORD64(@_Start)) then
begin
WindowsAPI^.fnMessageBoxA(0, FixPAnsiChar('fnRtlAddFunctionTable Error'), FixPAnsiChar('Caption'), MB_ICONWARNING + MB_TOPMOST);
Exit;
end;
SDKForm.CreateWindow;
SDKForm.MessageLoop;
DoneWindowsAPI;//释放全局API函数表
end;
里面的函数FixPAnsiChar其实是在X86下使用的，Win64下Delphi使用的都是相对地址了，可以直接跟平时一样使用字符串的。
这是我写的第五个shellcode程序，错误在所难免，见谅！
