用vb这么编病毒，木马，黑客工具之类的程序！

cmaedu.com用VB当然可以编写病毒，可以做到隐藏进程以及其他病毒可以做到的功能，网上有用VB编写病毒的视频教程！不过如楼上所说，“走歪路不好”，不要用来害人啊！不过可以用来研究下技术！想学黑客技术，也有很多地方搞培训，可以搜一下很多的！

能用VB进行黑客编程吗?

在专业领域称为remote control.

cmaedu.com上一些源代码开放网站，可以找到。本无黑白，黑者黑之，白者白之。

vb 暴力破解密码程序的过程？

cmaedu.com工作繁忙难免产生意外，比如对重要的word文档加密之后却把密码忘得一干二净，这几乎会发生在每个人的身上。这时你可能会焦急万分，不过我劝你不要太紧张，有空来程序谷坐坐，一定会有好的答案的。下面我们就来看看用穷举法暴力破解word密码的程序，当然，为了简单起见，程序只针对密码是数字的情况做了处理，字符型的密码与此类似，不再多说了。

cmaedu.com一、引言

大家都知道，office家族跟VB有千丝万缕的联系，Microsoft office组件中的所有应用程序都内建有VBA，这样就可以通过VB或VBA操作word 应用程序中的对象，用穷举测试的办法达到找回丢失密码的目的，非常简单吧！

cmaedu.com二、实现过程

下面来看一看程序的具体编制过程。程序采用VB编程实现，需要机器安装有VB应用程序及Microsoft office组件。打开VB，新建一个VB工程，取名Proc_word，将启动窗体命名为FrmMain，选择“工程”菜单中的“引用”，在“引用”对话框中选择 “Microsoft word8.0 Object Library”（这一步很重要，你必须选择这一ActiveX部件，否则代码不能正确运行，顺便说一句，如果安装的是office2000，那么应该选择“Microsoft word9.0 Object Library”）。同时在“工程”菜单中“部件”对话框中选择添加“Microsoft Windows common controls -2.5(sp2)”，以便在窗体设计中可以使用微调控件。

cmaedu.com好了，现在可以动手编制程序了。在刚才FrmMain窗体的左侧添加一个框架控件，并在此控件内加入一个驱动器列表框、一个目录列表框和一个文件列表框控件。在FrmMain窗体的右下侧添加两个命令按钮，在右上侧添加三个标签控件、两个文本框控件和一个微调控件，你可以参考附图来设计。接着，将框架的Caption属性设置成“请选择需要破译的word文档”；保持目录列表框、驱动器列表框、文件列表框、文本框、微调控件缺省名称不变；将文件列表框的Pattern属性设置成“*.DOC”，目的是只显示目录下的 word文件；将第一个标签控件Caption属性设置成“该程序破译八位以下纯数字组合word文档密码”，将第二个标签Caption属性设置成“解密进度”，将第三个标签Caption属性设置成“请选择破译密码位数”；将第二个文本框的Text属性设置成“4”，这是缺省密码位数；将微调按钮的 BuddyControl属性设置成Text2就能和第二个文本框关联，BuddyProperty 改成Text，Max、Min属性分别设置成“8”和“1”，表示最长密码位数和最短密码位数，将Wrap属性设置成True，将Increment属性设置成“1”，以便每单击一次加1或减1；将两个命令按钮的名称分别改成 “cmdopendoc”和“cmdquit”，Caption属性分别设置成“文件打开”、“系统退出”。以上就把各控件的属性设置完了，接着编写代码也就不是什么难事儿了。

cmaedu.com下面就是全部的源程序，适当的注释有助于大家理解程序。你还可以通过设置断点来跟踪密码生成部分，看看程序编制的原理。

cmaedu.com

vb黑客编程

这仅是第一步，一点工作也做不了，下面我们来为它们添加功能。为了简单，本文章只实现一点小小的功能―――关机，重启，注销。好，开始吧！

在Server工程中新建一个模块，Name为modApi，这个模快为一些API函数，添加如下API函数：

Public Declare Function ExitWindowXXX Lib "user32" Alias "ExitWindowXXX" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Public Const EWX_LOGOFF = 0

cmaedu.comPublic Const EWX_REBOOT = 2

Public Const EWX_SHUTDOWN = 1

Public Declare Function ClipCursor Lib "user32" Alias "ClipCursor" (lpRect As Any) As Long

cmaedu.comPublic Type RECT

　Left As Long

　Top As Long

cmaedu.com　Right As Long

　Bottom As Long

End Type

注：在两个socket中编程中，进行通信的重要事件是DataArrival事件，用于接收远程数据。

下面在Client工程的Client窗体中放入三个按钮，分别为cmdExit,cmdLogoff,cmdReboot。它们用于对远程的关机，注销，重启操作。分别添加如下代码：

cmaedu.comPrivate Sub cmdExit_Click()

cmaedu.com　Me.sckClient.SendData "Exit"

End Sub

cmaedu.comPrivate Sub cmdLogoff_Click()

cmaedu.com　Me.sckClient.SendData "Logoff"

End Sub

Private Sub cmdReboot_Click()

cmaedu.com　Me.sckClient.SendData "Reboot"

End Sub

cmaedu.com全都是对服务端发出请求。下面转到Server工程中：在Server中添加sckServer的DataArrial事件，接收客户端的请求。

Private Sub sckServer_DataArrival(ByVal bytesTotal As Long)