VB 远线程注入技术 屏蔽 Ctrl+Alt+Del

　在NT平台下，用户登陆是使用Winlogon和GINA——Graphical Identification and Authentication，意思是图形化的身份认证。Winlogon是Windows系统的一部分，它专门提供交互式登陆支持，而GINA则是Winlogon用来实现认证的一个DLL——这个DLL就是msgina.dll。WlxInitialize、WlxActivateUserShell便是其中输出，当然不知这两个，还有别的。前者进行自身的初始化，后者激活用户的外壳程序。Windows就是用这个DLL来实现用户名+口令的身份认证的，但是开发人员可以用自己的GINA代替msgina.dll。例如，实现智能卡、视网膜扫描仪、DNA检查等等认证机制来代替输入用户名+口令形式的身份检查。 下面的表格中列出了与GINA有关的全部函数。其中有一个是WlxLoggedOnSAS，当按下Ctrl+Alt+Del 键时，Winlogon便调用这个函数。

（表一）GINA 函数一览表 函数描述
WlxActivateUserShell激活用户外壳程序
WlxDisplayLockedNotice允许GINA DLL 显示锁定信息
WlxDisplaySASNotice当没有用户登陆时，Winlogon调用此函数
WlxDisplayStatusMessageWinlogon 用一个状态信息调用此函数进行显示
WlxGetConsoleSwitchCredentialsWinlogon调用此函数读取当前登陆用户的信任信息，并透明地将它们传到目标会话
WlxGetStatusMessageWinlogon 调用此函数获取当前状态信息
WlxInitialize针对指定的窗口位置进行GINA DLL初始化
WlxIsLockOk验证工作站正常锁定
WlxIslogoffOk验证注销正常
WlxLoggedOnSAS用户已登陆并且工作站没有被加锁，如果此时接收到SAS事件，则Winlogon 调用此函数
WlxLoggedOutSAS没有用户登陆，如果此时收到SAS事件，则Winlogon 调用此函数
WlxLogoff请求注销操作时通知GINA DLL
WlxNegotiate表示当前的Winlogon版本是否能使用GINA DLL
WlxNetworkProviderLoad在加载网络服务提供程序收集了身份和认证信息后，Winlogon 调用此函数
WlxRemoveStatusMessageWinlogon 调用此函数告诉GINA DLL 停止显示状态信息
WlxScreensaverNotify允许GINA与屏幕保护操作交互
WlxShutdown在关闭之前Winlogon 调用此函数，允许GINA实现任何关闭任务，例如从读卡器中退出智能卡
WlxStartApplication当系统需要在用户的上下文中启动应用程序时调用此函数
WlxWkstaLockedSAS当工作站被锁定，如果接收到一个SAS，则Winlogon 调用此函数


在默认情况下，GINA显示登陆对话框，用户输入用户名及口令。所以要想屏蔽掉Ctrl+Alt+Del，则可以写一个新的MyGina.dll，其中提供接口调用msgina.dll的函数WlxLoggedOnSAS，从而实现Ctrl+Alt+Del屏蔽。或者编写一个键盘驱动程序来实现。
　　NT系统允许使用我们自己的 GINA，因此，我们只要写一个这样的DLL，当然其它无关的函数我们可以转调用原GINA库中的函数，只处理WlxLoggedOnSAS这个函数。在此函数中可以结合原子操作，有条件的屏蔽Ctrl+Alt+Del，即如果某个（当然是你规定的）原子存在，你就返回 WLX_SAS_ACTION_NONE,　将将屏幕切换到应用程序桌面,从而好像屏蔽掉CTRL+ALT+DEL ，因此屏幕会闪一下，呵呵。具体的实现就我就不列出来了，毕竟不是本文的主要目的，而且网上大把参考代码的。如何安装这个DLL，也请自个到网上找，蛮多的。
三、不完美解决方案的另类实现
　　这个方法是我根据上面的原理再改进的，解决它的安装不方便的地方。不过也引出很多弊端。具体实现就是使用进程内存读写函数，以及虚拟内存管理函数，动态修改WinLogon进程中GIAN的函数。如果打开WinLogon进程在下面有讨论，至于如何定位函数及如何读写内存，自个去找资料吧。
四、完美的解决方案
　　本来用键盘驱动程序能完美解决的，可未免也杀鸡用牛刀，场面搞大了点。其实当你登录后，Winlogon创建一个新的桌面并调用Explorer。，而Winlogon则在另一个名为Winlogon的桌面中，也就是说，NT至少有一个桌面，就是你登录前看到的那个，（题外话：所以写个虚拟桌面工具，就难不倒你啦）。而Ctrl+Alt+Del对系统而言，也不过就是个热键罢了，只是它被定位到Winlogon桌面中去了，同样，它也必然有一个窗口负责处理这个热键消息的，因此，解决方案就出来，如果我们可找到这个窗口并子类化它，呵呵，不就...。（使用我提供的ShellCode代码，在我的电脑上有枚举出Winlogon桌面的四个窗口，其中有一个名为SAS window的窗口，其它是什么IME啦，等等，猜都能猜出啦，SAS windows应该就是啦）。因为我们要子类化WinLogon桌面中的窗口，别无选择的我们应该使用远程线程了，本文使用的是将所有代码注入到WinLogon进程中去，而不是远程挂接DLL的方式，这样在你开发程序过程中，无需任何第三方文件了。（这应该是你乐意的）
　　用文字描述，还真会难倒我，我们程序员用代码交流就是最好的语言，我起初的开发语言使用的是Win32ASM，之后有改写成VB版的，下面就列出VB版的代码，毕竟高级语言的代码能被大众所阅读。
??《应用代码(1个Form,两个按钮cmdLock及cmdUnLock)》
Option Explicit
Private Sub cmdLock_Click()
If LockKeyboard(True) Then
cmdLock.Enabled = False
cmdUnLock.Enabled = True
End If
End Sub
Private Sub cmdUnLock_Click()
If LockKeyboard(False) Then
cmdLock.Enabled = True
cmdUnLock.Enabled = False
End If
End Sub
Private Sub Form_Load()
Dim bIsLock As Boolean
bIsLock = GetKeyboardState
cmdLock.Enabled = Not bIsLock
cmdUnLock.Enabled = bIsLock
End Sub
??《模块代码》
?? /----------------------------------------------------------?? | 屏蔽 NT 系统的下所有按键消息 v2.1 |
?? | ================================ |
?? | |
?? | Usage: |
?? | Call LockKeyboard(T | F ) |
?? | 返回: True 成功;False 失败 |
?? | |
?? | Call GetKeyboardState |
?? | 返回: True 已锁定 |
?? | |
?? | |
?? | 实现原理： |
?? | 锁定 Ctrl+Alt+Del 使用远程线程、代码注入及子类化技术 |
?? | 其它键盘消息使用普通钩子技术 |
?? | |
?? | 本模块向 VB 程序员展示远程线程、代码注入等似乎被列入 |
?? | 只有Delphi、VC程序员才可能使用的技术，同时目前诸多木马 |
?? | 也同样大量使用这些技术。注入的方式比 Dll 钩入更加隐蔽。 |
?? | 注入后无进程、无文件。 |
?? /----------------------------------------------------------/
Option Explicit
??是否包含处理其它键盘消息，True表示处理.
#Const INC_OTHER_KEY = True
??注意，以下所有双版本的API均声明成了 UNICODE 版。 并且许多地方与VB的API浏览器生成的代码有所不同。
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomW" (ByVal lpString As Long) As Integer
Private Declare Function GlobalDeleteAtom Lib "kernel32" (ByVal nAtom As Integer) As Integer
Private Declare Function GlobalFindAtom Lib "kernel32" Alias "GlobalFindAtomW" (ByVal lpString As Long) As Integer
Private Const TH32CS_SNAPPROCESS = 2
Private Type PROCESSENTRY32W
dwSize As Long
cntUsage As Long
h32ProcessID As Long ?? // this process
th32DefaultHeapID As Long ??
h32ModuleID As Long ?? // associated exe
cntThreads As Long ??
th32ParentProcessID As Long ?? // this process??s parent process
pcPriClassBase As Long ?? // Base priority of process??s threads
dwFlags As Long ??
szExeFile(1 To 260) As Integer ?? // Path
End Type
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dw