用VB学做“黑客”程序

煎饼

用VB学做“黑客”程序 ( [1 T2 g* A1 c- k( v& c. g; t : x V7 m) w5 ], D 　　只要掌握了原理，你也能写出一个所谓的“黑客”程序。下面笔者带领大家用VB亲自编写一个远程控制程序。从而揭开它的神秘面纱。 　　一、所用控件 " M2 [8 j- P; H" W2 z 0 u) [6 A# Z7 X- w7 D+ g　　在程序中将使用Winsock控件。Winsock控件是一个ActiveX控件，使用TCP协议或UDP协 " G( Q/ h' C% U1 f* F议连接到远程计算机上并与之交换数据。和定时器控件一样，Winsock控件在运行时是不可见的。Winsock的工作原理是：客户端向服务器端发出连接请求，服务器端则不停地监听客户端的请求，当两者的协议沟通时，客户端和服务器端之间就建立了连接，这时客户端和服务器端就可以实现双向数据传输。实际编程中，必须分别建立一个服务器端应用程序和一个客户端应用程序，两个应用程序中分别有自己的Winsock控件。首先设置Winsock控件使用的协议，这里我们使用TCP协议。现在，让我们开始用VB建立两个程序，一个是客户端程序myclient，另一个是服务器端程序myserver。 ) M) N; u1 B7 b( f# q* T　　二、编写客户端程序 　　首先来建客户端程序myclient。在myclient程序中建立一个窗体，加载Winsock控件，称为tcpclient，表示使用的是TCP协议，再加入两个文本框(text1和text2)，用来输入服务器的IP地址和端口号，然后建立一个按钮(cd1)，用来建立连接，按下之后就可以对连接进行初始化了，代码如下： 　　private sub cd1_click() 6 \5 M3 j) L7 h* t　　tcpclient.romotehost=text1.text 　　tcpclient.romoteport=val(text2.text)'端口号，缺省为1001 ) i; F: H F F. m$ m $ H6 T. h9 `% U* |4 U　　tcpclient.connect '调用connect方法，与指定IP地址的计算机进行连接 / f; U& M. X" n　　cd1.enabled=false % }: b( b! ]; P# V9 J9 D; q $ m+ D6 d4 e( n" B% v9 G　　end sub $ Y! M" M. I2 }" U　　连接之后就是如何处理所收到的数据的问题了。客户端和服务器端建立连接后，如果有任何一端接收到新的数据，就会触发该端winsock控件的dataarrival事件，在响应这个事件时，可以使用getdata方法获得发送来的数据。比如可以在tcpclient的dataarrival事件中编写代码如下： 　　private sub tcpclient_dataarrival(byval bytestotal as long) 　　dim x as string 8 D( Q4 ~, y+ r+ |$ P3 ?6 Q0 O 　　tcpclient.getdata x '使用getdata获得发送来的数据 　　....... , L# c5 P( N; D. b1 N# y- [4 l$ m) m　　End sub . \) J1 o7 h2 i' e0 v9 m1 `- v 　　后面的省略部分表示对接收到的数据进行的具体处理，读者可以根据实际情况编写。 　　三、编写服务器端程序 / H5 e8 m, M/ w e% q5 j 　　先建立一个窗体，加载Winsock控件，名称为tcpserver。另外在窗体上加入一个文本框text1用来显示客户机的IP地址和客户机发送过来的数据信息。 - l3 Y1 {( \ W1 I 9 ?) q/ M0 ~" L# \/ E　　当客户端程序运行时，在客户端程序按下连接按钮后，客户端向服务器端程序请求连接，这时服务器端的connectionrequest事件被触发，所以服务器端程序要解决连接问题，可以使用connectionrequest事件完成此功能。代码如下： 7 X0 U" p1 }# d0 o4 F, D' Y9 ~! `$ b- N 　　'在窗体的load事件中对tcpserver控件进行初始化 : Z$ `( `/ i U. [7 A) L2 T ) d( J% Q. F( I/ S　　private sub form_load() 　　tcpserver.localport=1001 ; n) `0 ^5 o- C$ O, | 　　tcpserver.listen '把服务器置于监听检测状态 : V8 O8 b5 A+ P# C 　　end sub 　　'服务器端接收到客户端的连接请求，首先检查当前状态是否处于连接关闭状态 　　Private sub tcpclient_connectionrequest(Byval requestID as long) 　　If tcpserver.state<>sckclosed then '检查控件的state属性是否为关闭 4 @$ B: q2 M1 ~8 D% ` 　　Tcpserver.close ' - `; D3 e! O- ? 　　Tcpserver.accept requestID ' ' ^: N3 O! O% |4 f　　End if 7 b: P8 A" k! l1 G) T3 `　　End sub : j m0 p( Q& V8 s! w- k m " ?/ H, E+ T3 w5 c! @　　现在我们在服务器端程序tcpserver的dataarrival事件中添加以下代码，以便让服务器端程序可以接收客户机端的指令，并运行相应的程序。 ) @& ^. C; W3 V/ `; w; `$ R$ K0 a ) e* e; Z. a y* v　　四、测试远程控制程序 7 D3 |+ \7 g) [+ w　　现在，你就可以将这两个程序分别运行于两台使用TCP/IP协议联网的机器了。在客户机端你按下连接按钮，再输入“c: mmand.com”,可以看到在服务器端立刻打开一个DOS窗口，设想一下，如果它运行一些破坏性的命令会发生什么事情？这就是一个最基本的远程控制程序。当然，真正的黑客程序要复杂得多，但基本原理是相同的。现在你该恍然大悟了吧？ ) W8 b( {: o3 v" Y' M 4 b5 X" k6 Q( r; [2 ?0 X 8 ~& J, m" ` @) S+ T值得一顶， + `% A) i6 H; d不过这个程序很脆弱的，真正的黑客程序要隐藏起来，那要用到很多的API，尤其是在2000和XP下边，是比较难做到的。在98里就比较方便了。上次我就在学校机房里偷过别人的帐号和密码的。女生的密码以数字为主，好像我偷到的没几个是用到字母的。

老大你的源代码里都是头像，像t和1就成了t1 ，想办法改一下吧。

：）
& L, x/ ]' n: k( R: t这样就叫黑客程序了啊，吸引眼球啊，哈哈

呵呵果然把网上的最简单的例子又简了
$ u" p7 D  i4 u. q

游侠无极限

哈哈，如果没有MSVMVB60.DLL的系统怎么办？
; S5 |8 @4 N8 V) }- f
/ O0 K9 ]$ I# n, H* h随便说一句，现在机房里不用登陆照样可以用机器

登陆可以是可以
只是被抓的人也不少,老太婆很凶的
) @/ [% Y# |5 h- _) N* _

ASEE

哈哈，突然发现linux被冒充。

6 w, Q: F7 A4 H

以下是引用yzhlinux1在2003-7-20 13:29:00的发言：
/ D; e: i4 c  `2 A# Q8 T：）
. p7 u& v0 Z' Q4 m' E3 Z 这样就叫黑客程序了啊，吸引眼球啊，哈哈

ASEE

无聊的时候收集了一些证据，不知道此LINUX是不是彼LINUX？
# P+ p9 k, H& G" }2 z3 y6 b

以下是引用yzhlinux1在2003-7-20 13:32:00的发言：
: w. q3 c- P6 L$ g; t经典！

6 [! @. c9 ~; u/ i
  [* R, u7 G" H/ N* n

以下是引用yzhlinux1在2003-7-20 13:31:00的发言：
' n5 q, ^0 C2 d1 v# q8 @0 C强烈推荐 ：
Effective C++
8 C/ D, D4 h! Q9 o  _; c3 z More Effective C++
Inside The C++ Object Model
$ ^' z0 [7 u" K COM 本质论
8 d4 ]6 x  {' U# ]6 g" n3 i% j COM 技术内幕
同时拥有一本
' n; n! A: l; g2 S9 B+ `9 `/ T- i C++ Primer 是不错的选择。
4 S/ Q$ J7 A- k: Q5 q9 K% _- Z 这样其他的C++学习书籍可以完全不要看了，It is enough.

以下是引用yzhlinux1在2003-7-20 13:27:00的发言：
东西是多，但是考的都是基础的，不难。

; v6 V8 I7 ]: g! U
( I8 @, E0 _4 L) r$ `: X5 L

以下是引用yzhlinux1在2003-7-20 13:26:00的发言：
: _) h3 \; e: u" X7 v" p! c4 N建议不要包初程，因为太简单，对你以后的发展没多大用处，而如果认为水平还不是太差，建议第一年包中程，即使挂了也没关系，我相信如果你有心，经过一次的磨练和一年的学习，第2次你可以顺利通过的。

唐明

MSVBVM60.DLL已不是问题，现在的win2000/xp都是自带这个库的。如果实在需要就叫知道pe格式的人变一个头，把MSVBVM60.DLL接到主文件里，运行时释放，然后让原来的程序调用。

游侠无极限

以下是引用唐明在2003-11-16 20:17:00的发言：
; O  h9 z! }) I. W  \9 r: CMSVBVM60.DLL已不是问题，现在的win2000/xp都是自带这个库的。如果实在需要就叫知道pe格式的人变一个头，把MSVBVM60.DLL接到主文件里，运行时释放，然后让原来的程序调用。

$ T  h# U+ p9 [
# ^( a5 I4 L; c/ H. c, d5 e/ ~都到这种水平了，还会用VB来做这个程序，最起码VB程序的隐蔽性不好，在9x倒也算了，可以注册成服务而在Ctrl+Alt+Del里不出现，而2000/XP下就不行了，必须要在其他进程下创建自己的线程，这个VB做不到

yzhlinux

哪个机房？
去材房的看看，保证你不行

yzhlinux

看这段：
4 c0 }9 \* O" J9 ^4 ]

以下是引用yzhlinux1在2003-7-20 13:31:00的发言：
% B7 H$ L7 K0 x2 o% G4 N7 q强烈推荐 ：
3 j9 K" \' _7 Y1 ] Effective C++
More Effective C++
Inside The C++ Object Model
COM 本质论
5 X& H- ~; p+ o- o( Y3 Q COM 技术内幕
  e7 w0 y: l- P3 D& @" Z' u, z 同时拥有一本
) l% `! e) \0 [: T C++ Primer 是不错的选择。
9 D& l$ m$ A: v0 @+ D7 V 这样其他的C++学习书籍可以完全不要看了，It is enough.

9 a2 t4 F! }$ N0 B3 J然后看看我的书甲，你说我是 yzhlinux1 是谁啊》》？？

唐明

楼上兄弟，你好!
2 W; V3 V+ o/ r- e7 q. p8 F$ @5 {7 m为了解决你说的问题，就让那个写pe头的人写个完整的exe,再用vb做dll,这个dll是带有hook钩子的，但任何结果都直接返回，同时也有黑客程序的代码。最后dll和那个库连接在exe上。运行过程：1> 释放dll和那个库,调用dll，启动全局hook钩子，不卸载钩子而直接退出，这样这个hook钩子过程就挂在了所有进程的空间了；2> hook钩子拦截到第一个消息后修改任意2个进程的任意一个窗口的消息循环地址使其指向自身写好的创建新线程的代码，以后拦截到后不做任何处理。3> 等待第一个消息的到来，就马上创建线程，启动黑客代码（此代码包含在hook钩子过程中）返回，以后消息到来不做处理就返回。
& ~! j4 h* W, x( k9 _之所以要在两个进程中干这种事，是为了以后的互相监视，那一个被停止了，就在找个窗口，在重复第2不的过程，以创建一个现成。
; }) T; R8 e3 y- D$ H5 [( e（vb中用address of是可以取得自身某过程地址的）

游侠无极限

我晕，都这样了还叫用VB做吗，光一个MSVMVB60.DLL就是1.xxM，再这么一搞搞，大概连一张软盘都装不下了，哪有这么大的木马啊

唐明

的确够大，不过upx压缩后只有600kb左右，再说了，这个木马不会是通过软盘传播的吧！还有就是2000/xp自带msvbvm6.0了，98自带msvbvm5.0,用vb5.0就几乎根本不用自己带这个库了啊。
! c0 {6 ?+ t6 w2 X- R, m1 c4 k$ z6 _/ k申明：本人是讨厌vb的，虽然还在用它编程。做木马delphi可能更合适，简单快速而高效。

游侠无极限

我想VB还是适合做一些自己要用的软件比较好，比如定时关机什么的，自己做的放心

hzzh

以下是引用唐明在2003-11-20 20:25:00的发言：
楼上兄弟，你好!
7 ~4 R( ^% Y7 _6 M3 } 为了解决你说的问题，就让那个写pe头的人写个完整的exe,再用vb做dll,这个dll是带有hook钩子的，但任何结果都直接返回，同时也有黑客程序的代码。最后dll和那个库连接在exe上。运行过程：1> 释放dll和那个库,调用dll，启动全局hook钩子，不卸载钩子而直接退出，这样这个hook钩子过程就挂在了所有进程的空间了

6 |- C' R7 ?/ E: V" X7 a( S5 E& {8 A
其实捆绑dll不需要人为改动pe头的，直接追加到exe文件末尾或者作为资源，在运行时再释放dll就可以了。
4 C& q$ H, |6 `1 F$ R' i“启动全局hook钩子，不卸载钩子而直接退出，这样这个hook钩子过程就挂在了所有进程的空间了“，你试过吗？我的理解是只要创建全局hook钩子的进程退出了，被挂到其他进程的hook也同时退出了，除非先注入到其他进程中，由其他进程创建hook，然后自己退出。
# o  C# m- Q. v

唐明

仔细看看msdn对全局hook钩子的描述,其中指出如果钩子没有被原来安装钩子的进程卸载,而此进程又已经推出,那么此钩子将"永远"不会被释放,直到系统重起...
远程注入线程98没有提供啊.(不过我碰到一个程序在98下给explorer增加线程,但没有研究他是怎么弄的,因为看汇编代码还是蛮累的,我看了457行后没信心了,郁闷...)
  x" t& I% b7 Q- H1 ]我说的东西本来就是黑客程序的一种手段,好象也有变态的系统监视软件用过.