黑客的秘密武器

刘伟 · 2001年第42期

对于一些常见的黑客程序，比如“冰河”、“口令信差”等，它们的一些运行机理，相信大家都非常感兴趣。其实，对普通程序开发人员而言，其中有两个地方是比较有用的，那就是它们是如何实现开机自启动和屏蔽“Ctrl+Alt+Del”。下面就让我们一起来看看其实现方法。
　　#1 开机自启动
　　 先建一个按钮控件，命名为COMMAND1，代码如下：
　　 Option Explicit ＇声明
　　 ＇处理注册表的函数
　　 Private Declare Function RegCreateKey& Lib “advapi32.dll” Alias “RegCreateKeyA”（ByVal hKey&，ByVal lpszSubKey$，lphKey&）
　　 Private Declare Function RegSetValue Lib “advapi32.dll” Alias “RegSetValueA”（ByVal hKey As Long，ByVal lpSubKey As String，ByVal dwType As Long， ByVal lpData As String，ByVal cbData As Long）As Long
　　 Const HKEY_LOCAL_MACHINE = &H80000002
　　 Const REG_SZ = 1
　　 ＇对HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run进行操作
　　 Private Sub Command1_Click（）
　　 ＇声明变量
　　 Dim sKeyName As String（sKeyValue As String，sKeyValueIcon As String
　　 Dim Ret As Integer）lphKey As Long
　　 sKeyName = “Software\Microsoft\Windows\CurrentVersion\Run”
　　 sKeyValue = App.Path & IIf（Len（App.Path）> 3，“\” & “form1.exe”， “form1.exe”）
　　 Ret = RegCreateKey& HKEY_LOCAL_MACHINE，sKeyName，lphKey;
　　 Ret = RegSetValue&（lphKey&，“”，REG_SZ，sKeyValue，0&）
　　 End Sub
　　#1 屏蔽“Ctrl+Alt+Del”
　　 建一个按钮控件，命名为屏蔽，代码如下：
　　 Private Declare Function SystemParametersInfo Lib “user32” Alias “SystemParametersInfoA”（ByVal uAction As Long， ByVal uParam As Long，lpvParam As Any， ByVal fuWinIni As Long）As Long
　　 Private Const SPI_SCREENSAVERRUNNING = 97
　　 Private Sub Command1_Click
　　 Dim ret As Integer
　　 Dim pOld As Boolean
　　 If Command1.Caption =“屏蔽” Then ＇使Ctrl+Alt+Del有效
　　 ret = SystemParametersInfo（SPI_SCREENSAVERRUNNING，True，pOld，0）
　　 Command1.Caption = “有效”
　　 Else ＇使Ctrl+Alt+Del无效
　　 ret = SystemParametersInfo（SPI_SCREENSAVERRUNNING，False，pOld，0）
　　 Command1.Caption = “屏蔽”
　　 End If
　　 End Sub
　　 Private Sub Form_Load
　　 Command1.Caption =“屏蔽”
　　 End Sub
　　 Private Sub Form_Unload（Cancel As Integer）
　　 Dim ret As Integer
　　 Dim pOld As Boolean
　　 ＇退出前使ALT+CTL+DEL有效
　　 ret = SystemParametersInfo（SPI_SCREENSAVERRUNNING，False，pOld，0）
　　 End Sub
　　 怎么样，收获不小吧？不过千万要注意，以上代码仅供编程参考用，不得用于非法用途！