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

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


外媒路透社:小米本周四发布首款平板电脑,八九不离十 移动支付帝国战:谷歌、苹果、Facebook、亚马逊孰胜孰负? 十大响应式Web设计框架 Giraph助力Facebook打造亿万用户间关系链 跪求出名:让应用在App Store中出人头地的12种方式 束文辉:Intel如何玩转OpenStack Facebook社交业务进军中国内地,困难重重 《近匠》透镜:代码级定位,让App性能监控更从容! 联想移动与云新战略 重点深耕企业移动方案 美国高通公司在深圳召开参考设计及无线创新峰会 提供“一站式”整合服务 友盟正式推出消息推送平台 iOS 8新功能再曝光:或推出分屏多任务功能 Framer:开源原型设计工具,巨头们的心头好 亚特兰大峰会精彩看点:软件吞噬世界,OpenStack是变革核心 数据中心基础设施是大数据战略成败的关键 实时大数据分析:网络分析的一种新方法 最新消息:iPhone 6将采用更大、更清晰的1704x960分辨率屏幕 吴毅挺:OpenStack是开源IaaS平台大势所趋的集大成者 做好扁平化设计-交互篇 狙击Google Glass?三星将推基于Tizen系统的Gear Glass GamePlay:跨平台开源3D游戏引擎,黑莓的努力你不懂 “少即是多” 高通QRD大会精华汇总 天云盾:构筑在云端的Web安全防护 解析大数据时代的数据库集群技术 莫里航海图,最早的大数据实践 弥补空缺!HappyFox面向iOS开发者发布开源移动HelpDesk SDK Chitika北美网络流量报告:WP KO黑莓、iOS超Android 《近匠》秦时明月:知名IP光环下的生存之道 微软研究院正式发布编程学习游戏Code Hunt 走近讲师:Memblaze刘爱贵讲述云计算中的闪存应用 【云先锋】ClouDil云方案:PB级大数据解决方案 软件发布:股海点金 软件发布:超级视频采集器 软件发布:网图 2001 软件发布:沸点群发邮件系统 软件发布:邮箱巡捕器 软件发布:功能强大易用的FTP服务器软件(XFTPSVR) 软件发布:邮件监听 软件发布:远程主机管理 软件发布:疯狂俄罗斯【4人网络版】0.26b1 软件发布:拼图 软件发布:凯蒂神卜2001 哪位高手作过网站建设?请帮忙!!! 软件发布:五子棋大战 光驱的问题 软件发布:扑克(版本:36.0,玩法的数量和版本号一样) 软件发布:鸿森万能证件打印系统 软件发布:密码盗窃器(超小版:30k) 软件发布:寝室多人共享上网计时计费器 软件发布:美萍安全卫士密码破解器 软件发布:整人蛀虫 SQL SERVER存储过程的问题!!!! 软件发布:词痴 软件发布:自动关机 软件发布:南易彩票选号系统 pfc基类庫是纯英字,谁有中文的。 软件发布:精灵英文输入法(写代码助手) 软件发布:QQSpy密码探测器98版 for 0425 高手请,为何在不同地方打开对话框会有不同的结果呢? 软件发布:《商务导航》 软件发布:amp player 豪华版 如何关闭XCOPY打开的窗口,详细一点 请援手:pfc程序如何再升级?(关于版本更新) 谁是高手,一个事务处理问题。 大家来聊聊:JBUILDER5比JUILDER4在那方面改进了!? 我们这个破烂小公司成天TMD瞎折腾! 根据用户名和密码登陆的问题! 大家来说一下,中程和高程证书在找工作时作用怎样 Dialog上放了一个group box,请问如何动态改变group box框框中的整个颜色?急呀! 用程序向表中插数据的问题? 怎样制作一个类似日历的控件?快快快! 做个调查:在上海delphi的前景如何?现在工资怎么样? 如何给graph控件的values赋值. c++Builder的悲哀历程,求助帮忙,各位大虾多指点 建议封杀e_lion,影响看贴情绪!杀无赦!!! 请教高手:我用vc6.0向导生成了一个Utility Project,不想用MFC AppWizard(exe)生成的基本类,可我无法编译我写的cpp(带winMain函数)文件,为何? 无任何理由,第一个进来者300分。当场结帐。 各位,是如何调试自己编写的servlet的,我使用jswdk每次,修改servlet后都要重启一次服务器,有没有什么好法子。 不看不知道。 在写servlet时,如果要输出一段文字的问题。 “瑞星2001病毒实时间控装载失败”? 既然看到了,不妨进来“坐坐”! (关于串口) 你哥哥的生日在三月份吗?是的.在3月12日.那天,是植树节.英语翻译. 教室里的男生人数是女生人数的三倍,后来走出去18名男生,这时教室里的男女生人数一样多.原来男女生各多少人 育英小学原来男、女生人数的比是7:5,后来由转来12名同学,这时男、女人数的比是9:7学校现有女生多少人 为推广普通话设计一条宣传标语,要运用一种修辞手法, 1:教室里男生是女生数的3倍,走出去18名男生后,教室里男女生人数相同,原来男生女生各有多少(用方程解,把方程步骤写出来)2:一队少先队员乘船过河时,如果每船做15人,还剩9人没上船,如 六年级400名学生参加植树活动,计划每个男生植树10棵,每个女生植树8棵,实际植数时调出20%的男生弄卫生结果男女植树一样多,实际植树多少棵 为推广普通话设计两条宣传标语 要求:紧扣主题 不超过十五个字 运用一种修辞手法 教室里男生是女生的80%,后来又进来20名女生,男生是女生的60%,男女生现在各有多少人? 甲乙丙三人共植树60棵,甲植树的棵树是另外两个人的二分之一,乙植树的棵树是另外两人的三分之一,丙植树丙植树多少棵? 推广普通话标语 教室里女同学的人数是男同学的3倍,又进来8个男同学后,女同学的人数还比男同学多6人.教室里有男女各多少人? 甲乙丙三人植树,甲种的棵树是乙丙种的棵树和的二分之一,乙种的棵树是甲丙种的棵树和的三分之一已知丙种了130棵,那么甲种了多少棵 [非常之急]推广普通话的标语对不起,按错回车键,现开始写详细内容:要短小精致的,出处不限(不要拿知道已经有的啦,越快越好,可能视回答情况加分哦!补充内容:我都看过的啦,来条不一样 教室里女同学的人数是男同学的3倍,又进来8个男同学后,女同学的人数还比男同学多6人.教室里原有男、女同学各几人? 甲乙丙共植树41棵,甲植树是总数的二分之一,乙是三分之一,丙是七分之一,他们分别植树多少棵? 关于推普的标语麻烦各位了.要有创意的,幽默的. 教室里女同学的人数是男同学的3倍,又进来8个男同学后,女同学的人数还比男同学多6人,教室里原来有男女同学各多少人? 甲乙丙三人共植树60棵甲植树棵数占乙丙总棵树的1/5,乙植树的棵数占甲丙总棵树的1/3,丙植树的棵数是几棵 以读书为话题写一条标语,至少运用一种修辞手法 美术组有男女若干名,已知女生人数的3分之1和男生人数的5分之1是21人,女生人数的4分之1和男生人数的5分之1是18人,男,女生各有多少人? 小学植树作文500字小学 为营造书香校园氛围,请你以读书为话题拟写一条标语,至少用一条修辞手法. 某校美术组有102人,男生比女生多25分之1,男女生各多少人? 求一篇小学1年级的植树作文里面要包含、什么时间 什么地点 什么人物(是看图写的.图上有3个小朋友,两个男孩 一个女孩.小女孩扶着树.一个男孩站在旁边笑.还要一个男孩在铲土.)在做什 安全教育的宣传标语,(用上一种修辞手法) 学校合唱队有50人,其中男生和女生人数的比是2:3,男女生各有多少人算式 和老师一起植树(小学作文) 请问;小松鼠采松子,晴天每天18粒,雨天每天采12粒,12天共采了204粒松子,在这期间有几天是雨天.;要列式. 拟标题(至少用一种修辞手法)某中学为帮助贫困山区的失学儿重返课堂,要在全校展开一次献爱心捐款、捐物、捐书活动.请你为这次活动拟一条校园标语(至少用一种修辞手法) 某小学原来男女生的比是5:7,后来又转来15名女生,这时男女生的比是2:3学校现有男生多少名?算式或解方程,但解方程最好是一元一次方程 松鼠采松果,晴天每天可采20个,雨天每天可才采12个,它一连几天采了112个松果,平均每天采14个,问这几天当中有几天是雨天? 为了营造读书的氛围,请你引用一句名言作为活动的主题标语.名言中至少包含一种修辞手法 1.某小学原来男女生的比是7:5,后来又转来12名女生,这时男女生的比是9:7,学校现有男生多少名?第一题不要用方程解!给我解释一下为什么这么做,2.用1,2,……,9这9个数字排成没有重复数字的九位 小松鼠采松果,晴天可以采35个,雨天可以采22个,它13天共采了403个松果.这期间晴天有多少天?(用方程解 男女生有若干人,男生与女生之比为人数4:3,后来女生走了12人,此时男生人数是女生的2倍求原男女生人数列方程,不算 某小学原有男女生的比是7:5,后来转来12名女生,这时男女生的比是9:7,学校现有男生多少名? 松鼠妈妈采松子晴天可以采20个雨天可以采12个他一连几天采了112个平均每天采14个问有几个晴天几个阴天 某班有男女人数的比为4:3,后来女生走了12名,这时男生人数恰好是女生的2倍,求原来男女生人数? 某小学原来男女生的比是7:5,后来又转来12名学生,这时男女生的比是9:7,学校现有男生多少名 植树节期间,某某单位在一段长10分之9千米的路上从头到尾等距离栽了46棵树,则相邻两棵树的距离是多少千米? 男女生有若干人男生与女生人数之比四比三后来走了十二名女生,这时男生人数恰好是女生人数的2倍,求原男生与女生各有多少人? 学校举行庆“六一”男女生大合唱,原计划合唱对中女生人数占合唱队总人数的60%,后来又增加了5名男生.这时女生和男生的比是6:5.合唱队原来有男生多少名? 今年植树节,学校参加植树活动,成活了250棵,还有8棵没有成活.这批树的成活率是多少?求算式! 阅览室里有男女生若干人,男生与女生若干人,男生与女生的人数之比为四比三,后来有十二名女生走了,这时,男生人数恰好是女生人数的二倍,求原来的男生女生的人数. 学校举行庆“建党90周年”大合唱,原计划合唱队中的女教师人数占合唱队总人数的40%,后来考虑到合唱效果,将其中5名女教师换成了5名男教师,这时女教师人数占总人数的30%.合唱队共有多少名 我国的植树节为什么定于3月12日? 某校六年级男生人数是女生人数的四分之三,后来转进3名女生,这时男生人数是女生人数的三分之二.现在这个班有多少名学生? 学校举行庆“六一”男女生大合唱,原计划合唱队中女生人数占合唱队总人数的40%,后来考虑到合唱效果(下将其中5名女生换成5名男生,这是女生与男生人数的比是3:7.合唱队共有男女生多少 植树节为什么订在3月12日 某校六年级男生人数是女生人数的2/3,后来转进2名男生,转走3名女生,这样男生人数是女生人数的3/4.原来 合唱队中男生人数是女生人数的5/6,后来又增加了3名女生,此时男生人数占合唱队总人数的5/12,合唱队现有男女生各多少人 英汉互译 1.国庆节2.五一劳动节3.植树节 某校六年级男生人数是女生人数的2/3,后来有转进2名男生,转轴3名女生,这是男生某校六年级男生人数是女生人数的2/3,后来有转进2名男生,转轴3名女生,这是男生人数是女生人数的75%。该校 同学们植树,如果每人植的数量是相同的,那么有14棵树没人植,如果每人植9棵,那么最最后一个同学就少3棵,有多少同学植多少棵? 关于植树节英语日记.用过去式写一篇关于植树节和朋友去植树的过程,5句话以上.最好带有翻译.跪谢! 1、某班男女人数比是4:3,后来又转走2名男生,这时男女人数比6:5,女生有多少人?2、男职工比全厂职工的5分之3多60人,女职工是男职工的3分之1,一共有职工多少人?用算式,不要方程,麻烦大家了. 学校春季植树,有14棵树没有成活,成活率是95%,这次春季植树一共植了多少棵树? 用英文翻译:你的祖母的生日是什么时候?7月12日 你的生日是什么时候?8月17日,你呢?3月12日,植树节 某班原来男生是女生的2/5,后来转来一名男生,这时男女生人数之比是3:7,问,男女生个多少人?帮下我! 六年级一班15人参加植树活动,男生每人栽4颗,女生每人栽3颗,共栽52颗树,男生女生各来了多少人?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn