TA的每日心情 | 奋斗
3 天前 |
|---|
签到天数: 2393 天 [LV.Master]伴坛终老
|
|
用VB学做“黑客”程序
6 N5 a8 o8 u2 y i; p q, |& V5 i% n6 {& T. H
: s/ v( F, s; I
7 [4 V) {$ ~: g" p+ _
只要掌握了原理，你也能写出一个所谓的“黑客”程序。下面笔者带领大家用VB亲自编写一个远程控制程序。从而揭开它的神秘面纱。
! Y& o0 v# L3 y( _
( j8 Q% `( ^7 F# \- ^ 一、所用控件
* `. z: H$ O: r# X! ?2 f) J& g0 G& I+ A3 v( R$ Q( M
在程序中将使用Winsock控件。Winsock控件是一个ActiveX控件，使用TCP协议或UDP协
2 ~: y( b6 D3 |5 p; M' \' S议连接到远程计算机上并与之交换数据。和定时器控件一样，Winsock控件在运行时是不可见的。Winsock的工作原理是：客户端向服务器端发出连接请求，服务器端则不停地监听客户端的请求，当两者的协议沟通时，客户端和服务器端之间就建立了连接，这时客户端和服务器端就可以实现双向数据传输。实际编程中，必须分别建立一个服务器端应用程序和一个客户端应用程序，两个应用程序中分别有自己的Winsock控件。首先设置Winsock控件使用的协议，这里我们使用TCP协议。现在，让我们开始用VB建立两个程序，一个是客户端程序myclient，另一个是服务器端程序myserver。
1 `' C- w$ n; l' u. \
% Y" {% g6 O$ L- ` 二、编写客户端程序
9 U! ]# h: \; Q3 {% u) [
* Z& r8 d6 x, R- W+ J1 f* n 首先来建客户端程序myclient。在myclient程序中建立一个窗体，加载Winsock控件，称为tcpclient，表示使用的是TCP协议，再加入两个文本框(text1和text2)，用来输入服务器的IP地址和端口号，然后建立一个按钮(cd1)，用来建立连接，按下之后就可以对连接进行初始化了，代码如下：2 P3 }) s: r. R. E: C
. \$ u, l" S4 y& r
private sub cd1_click()
0 V1 k( W/ z8 s% P* q& z6 L: I" q( o- m# b
tcpclient.romotehost=text1.text8 v5 C1 v5 I' z6 I9 {. Q2 s' \! _
9 Y% s% b! o2 M. @+ d7 i0 Z7 {% k
tcpclient.romoteport=val(text2.text)'端口号，缺省为1001# M# @ R1 ?2 F
" L5 j6 A/ T! }' g2 i# ~ o tcpclient.connect '调用connect方法，与指定IP地址的计算机进行连接
3 k3 }; ]/ W; @2 C! C' k) _. \; U8 h9 q# d7 ]8 {" R& J9 S6 l1 \3 z) \+ d
cd1.enabled=false- X0 B4 O% n8 i: i7 g
! U$ D/ p4 [8 j( {" b
end sub, j) C0 f( q1 y8 b/ j: e' H
. W9 c# g3 i4 v& }0 W 连接之后就是如何处理所收到的数据的问题了。客户端和服务器端建立连接后，如果有任何一端接收到新的数据，就会触发该端winsock控件的dataarrival事件，在响应这个事件时，可以使用getdata方法获得发送来的数据。比如可以在tcpclient的dataarrival事件中编写代码如下：+ I" v9 p! r& a+ R5 \8 n3 c! a6 E
" H' O$ |0 l1 n
private sub tcpclient_dataarrival(byval bytestotal as long)
4 i8 m; w/ m( T B
' b9 s' ?) h) G dim x as string
% R0 T( o8 |& g% ~! D' G2 p% d5 F F7 W# g" T& v
tcpclient.getdata x '使用getdata获得发送来的数据
! L& R" Q: m+ ~) {, t$ h7 s5 H
- B4 Z- [8 X7 R .......
6 c+ t- Y5 V% x( C! }. ~8 @7 G. W# ]' E* c M4 i! x
End sub
$ \3 m5 s& y, f- l. g& i8 w7 I& g9 j+ J; ^
后面的省略部分表示对接收到的数据进行的具体处理，读者可以根据实际情况编写。
: M* Z9 t- z+ m
6 M& @! e# B; K% M" r" v 三、编写服务器端程序
% ~0 j4 d- _, A+ x+ M' W( F- R* z1 x+ M
先建立一个窗体，加载Winsock控件，名称为tcpserver。另外在窗体上加入一个文本框text1用来显示客户机的IP地址和客户机发送过来的数据信息。
. Q6 m# p% R; I: p
4 y' M; q" P& `8 I8 c7 W 当客户端程序运行时，在客户端程序按下连接按钮后，客户端向服务器端程序请求连接，这时服务器端的connectionrequest事件被触发，所以服务器端程序要解决连接问题，可以使用connectionrequest事件完成此功能。代码如下：
) ~) K1 b6 u+ t1 s
" m7 \! X1 V( M; i '在窗体的load事件中对tcpserver控件进行初始化
" F9 g: Q' G' t4 Z( F- j2 o2 h2 z# i3 Y* A5 i3 d/ i" O' O& X
private sub form_load()+ y) ~' V w J; J+ N1 ]) M
5 z$ R; q9 p0 C8 Y \! J
tcpserver.localport=1001& @" h% q' H+ c
4 [% L8 {1 X, M [, x" g tcpserver.listen '把服务器置于监听检测状态# L$ p6 R7 U- g1 h' F; ?4 j
1 ~- W$ ]. `! V9 K$ D m; |' N$ B
end sub4 s8 W O H/ H+ O; p: J; v* ^! { {
+ y* h' U4 `5 |0 d
'服务器端接收到客户端的连接请求，首先检查当前状态是否处于连接关闭状态0 g. V3 Y) `( b( F0 b. U
8 u \9 \: ]- M3 b
Private sub tcpclient_connectionrequest(Byval requestID as long)' E( I2 [8 [) E" I$ L1 X
. b: b, ?9 f: K2 D
If tcpserver.state<>sckclosed then '检查控件的state属性是否为关闭/ M# n8 b1 R0 f! s% Q& w6 D
: ~3 x- O. d b& z$ a$ J) o E* \
Tcpserver.close '# [/ F$ c/ B9 O8 a! i5 j1 v' ~
4 D+ ^! S0 O/ V' f* ^ Tcpserver.accept requestID '3 P+ w/ N3 X8 w, w0 X7 u
# E6 m3 f( Z b, N0 U n) K8 w
End if# O n( M) i5 j6 ^6 f+ z8 X' {0 g9 \
' ^: C/ P! }; k7 m y
End sub
6 x* t& x6 k2 p$ I4 f: v" ]. j9 Y$ s1 R L
现在我们在服务器端程序tcpserver的dataarrival事件中添加以下代码，以便让服务器端程序可以接收客户机端的指令，并运行相应的程序。/ O. t$ f b5 C6 y- |, _
7 s, k6 ?2 f9 b4 i8 e* \6 t
四、测试远程控制程序. T! a* K) Q5 Z$ A M
3 S- q2 [: `4 }& N( L( j6 I
现在，你就可以将这两个程序分别运行于两台使用TCP/IP协议联网的机器了。在客户机端你按下连接按钮，再输入“c: mmand.com”,可以看到在服务器端立刻打开一个DOS窗口，设想一下，如果它运行一些破坏性的命令会发生什么事情？这就是一个最基本的远程控制程序。当然，真正的黑客程序要复杂得多，但基本原理是相同的。现在你该恍然大悟了吧？
# w4 L* A" k* x9 ^
5 e% a7 N7 d/ d* o$ D ?. g5 N/ H6 Y$ u: e" z- `8 q
. q5 D3 W- }6 ^
, N0 Y h! _! Z7 w& T- X. H& d, O4 X
% @5 l3 ^5 I* K2 ?- d7 r8 S
, V9 ?$ Y/ ~/ X- j值得一顶，2 z. {+ \ ] o; c7 ~8 p( u( y
不过这个程序很脆弱的，真正的黑客程序要隐藏起来，那要用到很多的API，尤其是在2000和XP下边，是比较难做到的。在98里就比较方便了。上次我就在学校机房里偷过别人的帐号和密码的。女生的密码以数字为主，好像我偷到的没几个是用到字母的。 |
|
/1 
IP卡
狗仔卡
发表于 2003-6-29 17:15:00
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
发表于 2003-6-30 01:12:00
发表于 2003-11-13 23:31:00
