藏着掖着干啥 —— VB6实现Ring3下直接调用Ring0层函数，反一切R3下API Hook解决办法

藏着掖着干啥 —— VB6实现Ring3下直接调用Ring0层函数，反一切R3下API Hook
一切爱好者喜欢玩ntdll那些Nt***、Rtl***的函数，可毕竟那些东西也是能Hook的，而且大多数也就是Hook那些，这次给大家一个新玩法，直接通过Ring3去call到Ring0，此时R3下对ntdll那些R3下函数的“最终入口”的Hook都无法捕获到我们的调用，除非在R0下Hook了函数。（当然根据下面的原理我想某些人也知道该如何搞个万能Hook了）
小弟技术很菜，代码难免绕了很多圈子，而且下面的东西也不是什么新玩意，只不过是给VB6涨涨气焰罢了。。。大大们看到了不要嘲我。。。

添加一个Form1，一个Text1、一个Command1

Private Declare Function TabbedTextOut& Lib "user32 " Alias "TabbedTextOutA" (ByVal DC As Long, ByVal X As Long, ByVal Y As Long, ByVal Text As String, ByVal Size As Long, Optional ByVal TabPositions As Long, Optional TabStopPositions As Long, Optional ByVal Origin As Long)

Private Declare Function RtlAdjustPrivilege& Lib "ntdll" (ByVal Privileges As Long, Optional ByVal NewValue As Long = 1, Optional ByVal Thread As Long, Optional Value As Long)

Private Declare Function CallWindowProc& Lib "user32" Alias "CallWindowProcW" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long)

Private Declare Function GetModuleHandleA& Lib "kernel32" (ByVal n$)

Private Declare Function GetProcAddress& Lib "kernel32" (ByVal m&, ByVal n$)

Private Declare Function CloseHandle& Lib "kernel32" (ByVal h&)

Private Declare Sub RtlMoveMemory Lib "kernel32" (ByVal Dst&, ByVal Src&, ByVal Size&)

Private Declare Sub GetMem4 Lib "msvbvm60" (ByVal Ptr As Long, ByVal RetVal As Long)

Private KiFastSystemCall&


Private Sub Command1_Click()

Dim handle&

handle = OpenProcess(Text1.Text, 2035711)

TerminateProcess handle, 0

CloseHandle handle

MsgBox "Handle:" & handle & ",Have tried killed."

End Sub


Private Sub Form_Load()

RtlAdjustPrivilege 20

KiFastSystemCall = GetProcAddress(GetModuleHandleA("ntdll.dll"), "KiFastSystemCall")

End Sub


Private Function ReadFunctionIndex&(ByVal Name$, Optional ByVal DllFile$ = "ntdll.dll")

Dim pEntry&, dwIndex&

pEntry = GetProcAddress(GetModuleHandleA(DllFile), Name)

GetMem4 pEntry + 1, VarPtr(dwIndex)

ReadFunctionIndex = dwIndex

End Function


Private Function OpenProcess&(ByVal dwPID&, ByVal dwAccess&)

Dim hProcess&, ret&

Dim objAttr&(5), cid&(1)

cid(0) = dwPID

Dim dwIndex&

dwIndex = ReadFunctionIndex("ZwOpenProcess")

Dim ASMCode(42) As Byte

ASMCode(0) = &H68 'push CLIENT_ID struct

RtlMoveMemory VarPtr(ASMCode(1)), VarPtr(VarPtr(cid(0))), 4

ASMCode(5) = &H68 'push OBJ_ATTR struct

RtlMoveMemory VarPtr(ASMCode(6)), VarPtr(VarPtr(objAttr(0))), 4

ASMCode(10) = &H68 'push dwAccess

RtlMoveMemory VarPtr(ASMCode(11)), VarPtr(dwAccess), 4

ASMCode(15) = &H68 'push hProcess

RtlMoveMemory VarPtr(ASMCode(16)), VarPtr(VarPtr(hProcess)), 4

ASMCode(20) = &H68 'push Return Address

RtlMoveMemory VarPtr(ASMCode(21)), VarPtr(VarPtr(ret)), 4

ASMCode(25) = &HBA 'mov edx,KiFastSystemCall Address

RtlMoveMemory VarPtr(ASMCode(26)), VarPtr(KiFastSystemCall), 4

ASMCode(30) = &HB8 'mox eax,Kernel Function Index

RtlMoveMemory VarPtr(ASMCode(31)), VarPtr(dwIndex), 4

ASMCode(35) = &HFF 'call edx

ASMCode(36) = &HD2

ASMCode(37) = &H59 'pop

ASMCode(38) = &H59 'pop

ASMCode(39) = &H59 'pop

ASMCode(40) = &H59 'pop

ASMCode(41) = &H59 'pop

ASMCode(42) = &HC3 'ret

CallWindowProc VarPtr(ASMCode(0)), 0, 0, 0, 0

OpenProcess = hProcess

End Function

Private Function TerminateProcess&(ByVal hProcess&, ByVal ExitStatus&)

Dim ret&

Dim dwIndex&

dwIndex = ReadFunctionIndex("ZwTerminateProcess")

Dim ASMCode(30) As Byte

ASMCode(0) = &H68 'push ExitStatus

RtlMoveMemory VarPtr(ASMCode(1)), VarPtr(ExitStatus), 4

ASMCode(5) = &H68 'push hProcess

RtlMoveMemory VarPtr(ASMCode(6)), VarPtr(hProcess), 4

ASMCode(10) = &H68 'push Return Address

RtlMoveMemory VarPtr(ASMCode(11)), VarPtr(VarPtr(ret)), 4

ASMCode(15) = &HBA 'mov edx,KiFastSystemCall Address

RtlMoveMemory VarPtr(ASMCode(16)), VarPtr(KiFastSystemCall), 4

ASMCode(20) = &HB8 'mox eax,Kernel Function Index

RtlMoveMemory VarPtr(ASMCode(21)), VarPtr(dwIndex), 4