TA的每日心情 | 奋斗
前天 10:07 |
|---|
签到天数: 2385 天 [LV.Master]伴坛终老
|
|
标题 用VB学做“黑客”程序 3 j3 Q* N' @" i! O9 Z D7 T
$ ~% x0 c- f% }2 V5 n) u8 e$ t
关键字 VB,黑客 8 l/ F. x$ v' V
8 n/ g- k6 j1 {7 R! k' F2 r4 A
G# C7 N+ E- n5 A. p. C, ^, g6 b0 G1 h9 I/ p" ?$ |( ~
用VB学做“黑客”程序
" }" X- ^4 Q# k( P9 ?9 L( J
l# [1 d( h- n* _( {2 X
( ^* B2 l/ t, `* K2 X x
: D2 b) S/ }* g/ o 只要掌握了原理，你也能写出一个所谓的“黑客”程序。下面笔者带领大家用VB亲自编写一个远程控制程序。从而揭开它的神秘面纱。5 k% f X7 B' ~
3 `3 q$ E4 u$ {, D9 \
一、所用控件
8 w% h" b: I8 _- [2 h/ i8 W
( }+ ~; v0 @% q( ~* c& Y 在程序中将使用Winsock控件。Winsock控件是一个ActiveX控件，使用TCP协议或UDP协0 N; E" L0 s6 N7 p) D
议连接到远程计算机上并与之交换数据。和定时器控件一样，Winsock控件在运行时是不可见的。Winsock的工作原理是：客户端向服务器端发出连接请求，服务器端则不停地监听客户端的请求，当两者的协议沟通时，客户端和服务器端之间就建立了连接，这时客户端和服务器端就可以实现双向数据传输。实际编程中，必须分别建立一个服务器端应用程序和一个客户端应用程序，两个应用程序中分别有自己的Winsock控件。首先设置Winsock控件使用的协议，这里我们使用TCP协议。现在，让我们开始用VB建立两个程序，一个是客户端程序myclient，另一个是服务器端程序myserver。
# h. ~/ ?- ~( h" h) c" H! l# g v! `% a0 h ^% G" ~7 X( P6 ?9 n: k; r
二、编写客户端程序" Z t0 Y: |2 ?& i- ~
4 j- s5 z% X2 e% w: ?- R 首先来建客户端程序myclient。在myclient程序中建立一个窗体，加载Winsock控件，称为tcpclient，表示使用的是TCP协议，再加入两个文本框(text1和text2)，用来输入服务器的IP地址和端口号，然后建立一个按钮(cd1)，用来建立连接，按下之后就可以对连接进行初始化了，代码如下：
2 f* L b5 j' f+ e1 i2 [ p+ {' y
+ o- E$ a- ~( G, J private sub cd1_click()7 t3 _$ E5 u! [4 |" [! Y) N, d' D
1 {) o1 y- T5 T# A( w( B+ Q7 {0 E" Q
tcpclient.romotehost=text1.text
* Q T& R6 b% K9 @$ d% c
7 F1 E, i5 S2 }+ B tcpclient.romoteport=val(text2.text)'端口号，缺省为1001' _2 _- i6 n5 K6 O; L# _$ ^
' c; v4 @) Q/ k$ A$ R. \7 P
tcpclient.connect '调用connect方法，与指定IP地址的计算机进行连接( _( Y( ^5 r ~
# n9 V* a! B Z7 R' K
cd1.enabled=false+ t3 v3 T* T# d! L% }
/ f4 C1 ~/ v( o% ~6 ~. L, q3 a" m end sub7 _0 x# O. C* v9 a; h/ A2 `
9 Y" u* ?; M( T8 `5 s, y9 X, G 连接之后就是如何处理所收到的数据的问题了。客户端和服务器端建立连接后，如果有任何一端接收到新的数据，就会触发该端winsock控件的dataarrival事件，在响应这个事件时，可以使用getdata方法获得发送来的数据。比如可以在tcpclient的dataarrival事件中编写代码如下：2 B) m/ Y/ s! @8 n1 T5 y5 X
8 |- W2 Q( F9 |$ q' R; h private sub tcpclient_dataarrival(byval bytestotal as long)
& M" G# q1 X: L7 ^ t
Y2 ?' u l& T dim x as string
Z1 K t- t& q0 q9 T) K7 H" _9 j, ?0 s$ N! c
tcpclient.getdata x '使用getdata获得发送来的数据: o" b' q" a' B5 V) p% d' k2 ]
0 V& k B7 n6 V# ^1 C
.......2 P2 f* e; _; E N
4 |! d" U6 g; ~4 E2 Q
End sub2 N9 S: \$ G9 I- U2 Y
& K5 G3 [* l4 l* z6 ~ 后面的省略部分表示对接收到的数据进行的具体处理，读者可以根据实际情况编写。9 Q/ v+ d- f. r% p
1 {' P1 A* j5 y/ U 三、编写服务器端程序5 c) m Q9 k& {+ T
5 F% _* u4 ]' F 先建立一个窗体，加载Winsock控件，名称为tcpserver。另外在窗体上加入一个文本框text1用来显示客户机的IP地址和客户机发送过来的数据信息。
( f$ B% i- X7 c3 v2 b9 `) F! Q
' i2 ~4 L/ z1 B/ P# [ 当客户端程序运行时，在客户端程序按下连接按钮后，客户端向服务器端程序请求连接，这时服务器端的connectionrequest事件被触发，所以服务器端程序要解决连接问题，可以使用connectionrequest事件完成此功能。代码如下：
! ~3 U" `8 W+ K7 J0 T; H, l- I$ x! H$ w: @6 j+ |/ j8 k
'在窗体的load事件中对tcpserver控件进行初始化2 g0 k: }* M V
0 R, [7 e& a( V% v7 y* C private sub form_load()
( B9 j- Y9 ^7 z, U5 E5 l" e2 o+ [/ {% n: Z# I( `
tcpserver.localport=1001+ I/ y8 J5 t7 l& N4 i# A
/ t z6 m# G7 h4 ^
tcpserver.listen '把服务器置于监听检测状态
3 i/ Z2 w9 C0 }) H1 y5 C$ o1 R5 ]# f8 N
end sub9 Y# z& y- B! s4 [# n; K
/ w( ~( A! E* j- F" @- G" E. b '服务器端接收到客户端的连接请求，首先检查当前状态是否处于连接关闭状态
- K4 q. Y- H1 l0 f) X# }+ b+ `: N% O9 d9 F+ e- K3 y
Private sub tcpclient_connectionrequest(Byval requestID as long)
! ~8 o$ M" g2 F1 [9 C8 g
8 G* X* W3 G0 W/ T* A6 C7 J If tcpserver.state<>sckclosed then '检查控件的state属性是否为关闭
* N- h* t6 x( h
) p0 J$ l- A4 w+ d) k- O Tcpserver.close '
0 r1 H2 ^7 J5 d: E$ q
& J* e }, u' G7 r Tcpserver.accept requestID '
$ U/ R5 \, J' T! O- G, o6 k q& G. ~. \6 }; r5 H. q0 O/ s& ^
End if
' f- x v6 Q' O* t2 N, b5 R3 i) E$ I |
End sub3 F, G' j- {7 s
1 b( q6 c5 r- b/ i* o( o$ d3 N
现在我们在服务器端程序tcpserver的dataarrival事件中添加以下代码，以便让服务器端程序可以接收客户机端的指令，并运行相应的程序。4 z$ k% P1 j/ I1 ~7 e! l2 N6 B. q
& W/ w) B0 m6 m 四、测试远程控制程序
/ a# S- y3 h6 Q m. J$ M" ]- O0 Q
现在，你就可以将这两个程序分别运行于两台使用TCP/IP协议联网的机器了。在客户机端你按下连接按钮，再输入“c: mmand.com”,可以看到在服务器端立刻打开一个DOS窗口，设想一下，如果它运行一些破坏性的命令会发生什么事情？这就是一个最基本的远程控制程序。当然，真正的黑客程序要复杂得多，但基本原理是相同的。现在你该恍然大悟了吧？. g- `2 h8 w' n; i# A' T& C1 g
|
|
/1 
IP卡
狗仔卡
发表于 2003-3-31 17:14:00
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
发表于 2003-3-31 17:23:00
楼主
发表于 2003-4-18 02:32:00
