TA的每日心情 | 奋斗
昨天 11:26 |
|---|
签到天数: 2397 天 [LV.Master]伴坛终老
|
|
标题 用VB学做“黑客”程序 ) s) D0 e8 \& a
1 N+ l7 o3 j4 l: @7 l7 v关键字 VB,黑客
* z& }# h% ?$ S9 {' I1 z
! q* ~& H& Q" f8 W* i+ A" Z% V# E& l' V$ C/ p
8 |. g1 T! A( q+ T1 S8 }5 O8 T$ r用VB学做“黑客”程序
2 v r$ c6 C j. m: c
( b3 p) `" n. q1 G1 T* } }9 }8 ? ~+ s9 l9 Z5 f, N
' S2 ?& y2 A3 i' Q6 h) \9 H
只要掌握了原理，你也能写出一个所谓的“黑客”程序。下面笔者带领大家用VB亲自编写一个远程控制程序。从而揭开它的神秘面纱。% ^. s$ x6 q9 v) Q9 c0 R: v
& u7 @2 Z& a% m+ l7 |
一、所用控件
1 S0 X5 z" |( I/ |
) m) [, j3 R7 i9 `0 j) E 在程序中将使用Winsock控件。Winsock控件是一个ActiveX控件，使用TCP协议或UDP协7 L5 X) ]! F7 B3 U+ D
议连接到远程计算机上并与之交换数据。和定时器控件一样，Winsock控件在运行时是不可见的。Winsock的工作原理是：客户端向服务器端发出连接请求，服务器端则不停地监听客户端的请求，当两者的协议沟通时，客户端和服务器端之间就建立了连接，这时客户端和服务器端就可以实现双向数据传输。实际编程中，必须分别建立一个服务器端应用程序和一个客户端应用程序，两个应用程序中分别有自己的Winsock控件。首先设置Winsock控件使用的协议，这里我们使用TCP协议。现在，让我们开始用VB建立两个程序，一个是客户端程序myclient，另一个是服务器端程序myserver。
8 R6 m/ y. I* i# @
+ V6 z2 E1 ^/ T4 p Z 二、编写客户端程序" q4 d: B% h; W" s
% F. l8 Y. E& t+ J. j2 X
首先来建客户端程序myclient。在myclient程序中建立一个窗体，加载Winsock控件，称为tcpclient，表示使用的是TCP协议，再加入两个文本框(text1和text2)，用来输入服务器的IP地址和端口号，然后建立一个按钮(cd1)，用来建立连接，按下之后就可以对连接进行初始化了，代码如下：
, l& Y+ q( l! g; B$ A! d/ [! l# K- }" @0 ?2 }3 F1 w4 i
private sub cd1_click()1 x% |- ~! W1 z' n! ?. Y2 F( c; B4 d
. {* x% q$ a+ V) [8 F) M" [4 e tcpclient.romotehost=text1.text/ ^1 \$ N! C2 Z' l. L' H
1 V8 c9 v! e% R4 W5 U+ e1 ]
tcpclient.romoteport=val(text2.text)'端口号，缺省为1001* m f- h n; z6 s
9 U# U5 |% M; F, B' V2 z/ @( k tcpclient.connect '调用connect方法，与指定IP地址的计算机进行连接) i6 Q* `9 B. ^; b# {* N
# F& j3 k/ x1 {; p3 u6 f) z cd1.enabled=false g/ H+ ^- i; `* y- n$ U4 m* Y
3 W7 S, K7 {1 v% v; K end sub6 K+ [$ l. l |' i' s
+ b( ?0 s: ^' p 连接之后就是如何处理所收到的数据的问题了。客户端和服务器端建立连接后，如果有任何一端接收到新的数据，就会触发该端winsock控件的dataarrival事件，在响应这个事件时，可以使用getdata方法获得发送来的数据。比如可以在tcpclient的dataarrival事件中编写代码如下：
& s1 D8 c1 T; X, ]( K$ \! H% }6 F9 n! r4 v3 w
private sub tcpclient_dataarrival(byval bytestotal as long)
$ E- K0 m3 h/ G9 |. E5 Y
# ~. Y/ {8 {8 P( {6 M/ A' q dim x as string0 W0 c- P! {+ b2 ?5 x8 w
) R, u% } ^* Q q9 k1 p
tcpclient.getdata x '使用getdata获得发送来的数据
% I+ F; \3 g7 N8 A% J
& S& w' N& d9 N- g .......6 t$ t* {/ R) l! R0 q
) V+ A+ ^ Y J# G) V @( D2 `) i4 H3 o
End sub
; t, L2 v+ r' S2 t7 w% V% b. E+ | R* ]
后面的省略部分表示对接收到的数据进行的具体处理，读者可以根据实际情况编写。* v* P! n, d" w* v1 V, T8 {/ ], M
/ u3 i8 z0 @7 u: j8 x1 z/ [ 三、编写服务器端程序' S" L+ Q' @3 H9 L6 F* X/ B
, A8 _& f8 Z5 V 先建立一个窗体，加载Winsock控件，名称为tcpserver。另外在窗体上加入一个文本框text1用来显示客户机的IP地址和客户机发送过来的数据信息。% V/ x) T3 N8 e/ i- m$ l* Q
! \# y5 `. F6 [+ i- A- p _ 当客户端程序运行时，在客户端程序按下连接按钮后，客户端向服务器端程序请求连接，这时服务器端的connectionrequest事件被触发，所以服务器端程序要解决连接问题，可以使用connectionrequest事件完成此功能。代码如下：; B: E0 U; S2 [$ r/ d: [
5 G5 g: c7 i8 X; v" Y% T3 W/ b, e/ \5 c- ]
'在窗体的load事件中对tcpserver控件进行初始化" t6 |5 M2 P# {* ]
! ]& z6 L* l9 ~7 q9 ~: T
private sub form_load()& O" L: _- c3 v4 X7 c) ?3 Y
E5 v% L- W; C! s& p) r, i5 t4 e tcpserver.localport=1001
) ~8 Z, _8 C# N# F
( B6 K9 F" H/ ^1 ?, ?' p( H* H& M tcpserver.listen '把服务器置于监听检测状态
( X- ^- g0 }9 l9 I
6 I7 \# W* w6 R9 b, } end sub) R6 j7 K6 C6 U4 F* }
! J c9 E9 u A' u$ e
'服务器端接收到客户端的连接请求，首先检查当前状态是否处于连接关闭状态
H) `. e; G9 j) j3 l1 m& q' `' J1 Q- p6 y& ]
Private sub tcpclient_connectionrequest(Byval requestID as long)8 `! Y$ a, G& v# z- _, z) T
- f; J: E \" H, t% Z& t/ \ If tcpserver.state<>sckclosed then '检查控件的state属性是否为关闭
( b, [) d9 {4 @4 n/ `% R
* ~# N2 B; i1 ] t/ k Tcpserver.close '
# O. ^( X4 _$ N! i" m; ?
6 R1 A- m6 x5 t: n' {2 G% V, u Tcpserver.accept requestID '
- `( Z9 W) k2 o0 S3 I, ?) F4 i e
, J1 E9 a9 { n# }" V End if8 ^3 A" P1 d5 m6 z7 Z& c% e: X/ L
& k4 V8 i6 ~$ }: b; ]; N
End sub
# q' m& n. t: k9 Q; z; I+ q( H
# C7 x9 C! G& R 现在我们在服务器端程序tcpserver的dataarrival事件中添加以下代码，以便让服务器端程序可以接收客户机端的指令，并运行相应的程序。
% }0 Y3 N8 `7 \# y+ q- b7 d) J) Q/ H( b$ U7 z( g
四、测试远程控制程序
+ M! }. ^( N, H- R: X4 A4 y* G7 D1 `. U& ^ ^
现在，你就可以将这两个程序分别运行于两台使用TCP/IP协议联网的机器了。在客户机端你按下连接按钮，再输入“c: mmand.com”,可以看到在服务器端立刻打开一个DOS窗口，设想一下，如果它运行一些破坏性的命令会发生什么事情？这就是一个最基本的远程控制程序。当然，真正的黑客程序要复杂得多，但基本原理是相同的。现在你该恍然大悟了吧？, _2 e5 M; F: u% q
|
|
/1 
IP卡
狗仔卡
发表于 2003-3-31 17:14:00
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
发表于 2003-3-31 17:23:00
楼主
发表于 2003-4-18 02:32:00
