TA的每日心情 | 擦汗
10 小时前 |
|---|
签到天数: 2395 天 [LV.Master]伴坛终老
|
|
标题 用VB学做“黑客”程序
+ J5 U4 W$ q' m9 ]7 G 7 k5 K3 G; r7 f: h) ^5 f G$ U) H
关键字 VB,黑客
E% l6 b3 @2 U" W 4 Y0 w/ x9 S; M9 H' O R
0 X! G; B( a% Q+ Q% j
0 r' ]9 J1 g+ G m5 b8 ^) j/ X用VB学做“黑客”程序# j+ J' U3 A4 ?$ r" \7 o: s
% [* R2 Q. N% r, D( b! _
" B* K- _- v# Y; u0 t) ]: g! j! F
0 U# V* Z+ g* h# A 只要掌握了原理，你也能写出一个所谓的“黑客”程序。下面笔者带领大家用VB亲自编写一个远程控制程序。从而揭开它的神秘面纱。
" ]( V( ?) g! a: E
1 B4 o! G* A$ n/ W+ H 一、所用控件* X" g/ `: ]" T2 \0 n0 a
) A3 V- n' n2 s- _6 G1 {8 R+ i 在程序中将使用Winsock控件。Winsock控件是一个ActiveX控件，使用TCP协议或UDP协
: `5 p0 j9 F1 w议连接到远程计算机上并与之交换数据。和定时器控件一样，Winsock控件在运行时是不可见的。Winsock的工作原理是：客户端向服务器端发出连接请求，服务器端则不停地监听客户端的请求，当两者的协议沟通时，客户端和服务器端之间就建立了连接，这时客户端和服务器端就可以实现双向数据传输。实际编程中，必须分别建立一个服务器端应用程序和一个客户端应用程序，两个应用程序中分别有自己的Winsock控件。首先设置Winsock控件使用的协议，这里我们使用TCP协议。现在，让我们开始用VB建立两个程序，一个是客户端程序myclient，另一个是服务器端程序myserver。, `- a" P& [5 Z* P4 R/ Q
5 G) S- k3 C7 K# A
二、编写客户端程序& ~! w4 v5 g1 {& i
0 C. @( I% C i3 j7 D
首先来建客户端程序myclient。在myclient程序中建立一个窗体，加载Winsock控件，称为tcpclient，表示使用的是TCP协议，再加入两个文本框(text1和text2)，用来输入服务器的IP地址和端口号，然后建立一个按钮(cd1)，用来建立连接，按下之后就可以对连接进行初始化了，代码如下：- D7 h }6 n( D! s# X7 U! N& ^
* ]+ k$ i R* ?3 J4 a3 c private sub cd1_click()
& S1 P: r- Q- z5 t+ Y" A7 ~ _; T2 Z' y- P" o
tcpclient.romotehost=text1.text# E0 B2 T6 C: Z. \' Q3 F7 K* z& \
j/ M# v w4 h tcpclient.romoteport=val(text2.text)'端口号，缺省为1001
; t3 H8 P1 N6 R) ~" T' S' l1 ^+ H
1 |; E* e- K/ P6 L8 H" d+ c% @ tcpclient.connect '调用connect方法，与指定IP地址的计算机进行连接6 d# b& Y9 Z+ L( s$ ^
: J( {1 \" U9 E1 h) I3 q2 R# e
cd1.enabled=false
2 _( @- A5 ?! _0 ~2 X# |. z' q% ~. U
end sub5 P% D+ K5 Y, p8 A9 R5 I8 p
$ o) P5 t# E& Z& t3 _, `7 K
连接之后就是如何处理所收到的数据的问题了。客户端和服务器端建立连接后，如果有任何一端接收到新的数据，就会触发该端winsock控件的dataarrival事件，在响应这个事件时，可以使用getdata方法获得发送来的数据。比如可以在tcpclient的dataarrival事件中编写代码如下：
; A9 b2 j, _" I, F2 ?, `* h' ]! K/ s8 q) l. A. R1 r X
private sub tcpclient_dataarrival(byval bytestotal as long)
, F2 A( V* `( \2 m$ N4 n1 T
, ?% u' p* r* j5 p dim x as string
5 m, ?0 p/ V+ F4 J' e: G8 j
6 o4 y) K4 C6 P tcpclient.getdata x '使用getdata获得发送来的数据# E. z: O" P: E6 K
4 L C2 |( r9 G ......." }( O; L; T( ~9 O9 B/ V
3 ^; V. K: p- `" A4 `1 O6 w End sub3 k6 h9 {' B" ]4 Y* H0 z. Y/ x
5 ]4 Q7 v0 g" [) }' R3 I" S
后面的省略部分表示对接收到的数据进行的具体处理，读者可以根据实际情况编写。
. F$ e3 o3 O2 ?& Q9 N0 ?; ^7 J# r0 r) G! T% P
三、编写服务器端程序4 O) U2 ]& u4 u$ z
7 f v' n0 G; H: ^ 先建立一个窗体，加载Winsock控件，名称为tcpserver。另外在窗体上加入一个文本框text1用来显示客户机的IP地址和客户机发送过来的数据信息。
8 L+ G; } V3 D7 L! e t
# `2 l% w; W) y 当客户端程序运行时，在客户端程序按下连接按钮后，客户端向服务器端程序请求连接，这时服务器端的connectionrequest事件被触发，所以服务器端程序要解决连接问题，可以使用connectionrequest事件完成此功能。代码如下：" I7 |3 M7 I2 B
3 l$ U9 o# c- ]8 p9 u/ E '在窗体的load事件中对tcpserver控件进行初始化
4 X: S& F2 ]" }# c! C
9 x( J1 j4 i. b5 [% V private sub form_load(), l* k% l2 M/ C; @
& V; C, n/ N: o1 U/ J, b) D
tcpserver.localport=1001# J; z& |1 |/ O% g+ L, Z" X
$ M- R1 H. O* q9 T% O9 A: c) [5 y tcpserver.listen '把服务器置于监听检测状态
, r Q" J# r" \+ _4 C8 n0 k- A
) A, v5 D8 u1 }2 O8 D end sub* O1 J9 F" b G4 |1 x3 E
- m w! n5 O" J2 o '服务器端接收到客户端的连接请求，首先检查当前状态是否处于连接关闭状态# e6 s: c: S; O. v, Q& Y
2 b4 z" f* X- O
Private sub tcpclient_connectionrequest(Byval requestID as long)' N4 ^: v7 M3 D: w# ?
J- T3 q% G* D( |/ ~8 R! j If tcpserver.state<>sckclosed then '检查控件的state属性是否为关闭7 Y9 E) v# `8 c5 g1 G( `# v
# u3 ~. X( i- g8 m V R( K/ U* R Tcpserver.close '" ~( A$ ^! H% X: S/ |% U( i
. D# {/ B. h( X8 B- j Tcpserver.accept requestID '8 r: n* e. d9 p% E
. ]5 T) {& q( u% p, G5 ~
End if
' W( j3 y* k: j7 C) H# ]/ R8 S0 D6 Z' f- q, i0 D) {2 `
End sub+ q* e+ X% A0 o; z/ A
% N5 c/ W& z7 u3 [
现在我们在服务器端程序tcpserver的dataarrival事件中添加以下代码，以便让服务器端程序可以接收客户机端的指令，并运行相应的程序。
8 u0 I ^6 k. q5 g6 j: F7 r }. g) ?2 j9 _3 L" V4 j, Y
四、测试远程控制程序% o( h) Y- a3 ?! [' S3 F
. }; w/ ~0 X2 i0 M8 U A
现在，你就可以将这两个程序分别运行于两台使用TCP/IP协议联网的机器了。在客户机端你按下连接按钮，再输入“c: mmand.com”,可以看到在服务器端立刻打开一个DOS窗口，设想一下，如果它运行一些破坏性的命令会发生什么事情？这就是一个最基本的远程控制程序。当然，真正的黑客程序要复杂得多，但基本原理是相同的。现在你该恍然大悟了吧？* o- l. ?. Q' q% B
|
|
/1 
IP卡
狗仔卡
发表于 2003-3-31 17:14:00
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
发表于 2003-3-31 17:23:00
楼主
发表于 2003-4-18 02:32:00
