用VB学做“黑客”程序

煎饼

标题 用VB学做“黑客”程序 \& d2 y6 j5 N6 F . E) i* C4 z C关键字 VB,黑客 8 R' Z7 d) ~* X6 j! W M! q7 C: M% G3 d i3 f* w, [9 }. q 1 n8 Z# u4 G+ b8 k6 ^/ Y1 O; q 用VB学做“黑客”程序 ( D8 i4 F; q/ L' R9 d' ~# ] 3 Z/ m3 K0 H- g# L! k4 P4 k4 N b 　　只要掌握了原理，你也能写出一个所谓的“黑客”程序。下面笔者带领大家用VB亲自编写一个远程控制程序。从而揭开它的神秘面纱。 & l; i/ S' f' l" j 　　一、所用控件 ( ^6 U ~1 R- x0 C6 ` 6 X; o" y4 V) m, ^* y/ |, I　　在程序中将使用Winsock控件。Winsock控件是一个ActiveX控件，使用TCP协议或UDP协 议连接到远程计算机上并与之交换数据。和定时器控件一样，Winsock控件在运行时是不可见的。Winsock的工作原理是：客户端向服务器端发出连接请求，服务器端则不停地监听客户端的请求，当两者的协议沟通时，客户端和服务器端之间就建立了连接，这时客户端和服务器端就可以实现双向数据传输。实际编程中，必须分别建立一个服务器端应用程序和一个客户端应用程序，两个应用程序中分别有自己的Winsock控件。首先设置Winsock控件使用的协议，这里我们使用TCP协议。现在，让我们开始用VB建立两个程序，一个是客户端程序myclient，另一个是服务器端程序myserver。 　　二、编写客户端程序 ' {# M/ N% k; ]" k2 g5 | 　　首先来建客户端程序myclient。在myclient程序中建立一个窗体，加载Winsock控件，称为tcpclient，表示使用的是TCP协议，再加入两个文本框(text1和text2)，用来输入服务器的IP地址和端口号，然后建立一个按钮(cd1)，用来建立连接，按下之后就可以对连接进行初始化了，代码如下： $ O8 z9 n4 R% Z1 P m8 C' V6 Y6 N& U6 X　　private sub cd1_click() 　　tcpclient.romotehost=text1.text 　　tcpclient.romoteport=val(text2.text)'端口号，缺省为1001 　　tcpclient.connect '调用connect方法，与指定IP地址的计算机进行连接 　　cd1.enabled=false 　　end sub 　　连接之后就是如何处理所收到的数据的问题了。客户端和服务器端建立连接后，如果有任何一端接收到新的数据，就会触发该端winsock控件的dataarrival事件，在响应这个事件时，可以使用getdata方法获得发送来的数据。比如可以在tcpclient的dataarrival事件中编写代码如下： ( d) z# ^2 _1 q/ @1 d ' ^* E6 _. V e" L　　private sub tcpclient_dataarrival(byval bytestotal as long) 　　dim x as string 　　tcpclient.getdata x '使用getdata获得发送来的数据 + Y9 E: ^6 o5 g' e0 N$ @& j 6 P W! \% h/ q: x　　....... # P& A$ a% T- E( T& t# k 　　End sub ( b" N! G+ b& T. ?: n- j　　后面的省略部分表示对接收到的数据进行的具体处理，读者可以根据实际情况编写。 5 P9 B4 q. c* T! k8 Y n 　　三、编写服务器端程序 & c/ D2 m4 D+ r5 t1 t% F 　　先建立一个窗体，加载Winsock控件，名称为tcpserver。另外在窗体上加入一个文本框text1用来显示客户机的IP地址和客户机发送过来的数据信息。 ! E4 I0 m3 e: e8 H& \8 ] 　　当客户端程序运行时，在客户端程序按下连接按钮后，客户端向服务器端程序请求连接，这时服务器端的connectionrequest事件被触发，所以服务器端程序要解决连接问题，可以使用connectionrequest事件完成此功能。代码如下： 4 f7 C7 G8 R2 F. ?/ ~ 　　'在窗体的load事件中对tcpserver控件进行初始化 ! \5 j( L: V/ r- O: ], r1 `　　private sub form_load() V0 {1 |8 H8 {4 m: t* }/ M 　　tcpserver.localport=1001 ( B5 X* x! y) O0 H @2 w　　tcpserver.listen '把服务器置于监听检测状态 　　end sub 4 P: }) c0 `9 _5 T( p* y8 c 1 R: P2 R2 }* y( s5 F' j　　'服务器端接收到客户端的连接请求，首先检查当前状态是否处于连接关闭状态 * X1 X3 ^" a, ? z , F0 q: [- N! l7 I s　　Private sub tcpclient_connectionrequest(Byval requestID as long) % h3 U' I0 t g R0 G3 H 7 @: `$ e, a4 g　　If tcpserver.state<>sckclosed then '检查控件的state属性是否为关闭 ' N$ _- e! K" m+ O8 F/ \) k( n 0 U6 z" J/ P, l4 W& u: u/ z　　Tcpserver.close ' 1 |! F) `/ F7 R; k( _' Q' H　　Tcpserver.accept requestID ' # B! M8 `+ b, N" { ( l# i8 K. i$ W y　　End if 4 L/ k. m/ ]5 b1 b: T3 X/ [- N2 ? , T( u7 \5 f. d2 F- s　　End sub 　　现在我们在服务器端程序tcpserver的dataarrival事件中添加以下代码，以便让服务器端程序可以接收客户机端的指令，并运行相应的程序。 　　四、测试远程控制程序 　　现在，你就可以将这两个程序分别运行于两台使用TCP/IP协议联网的机器了。在客户机端你按下连接按钮，再输入“c: mmand.com”,可以看到在服务器端立刻打开一个DOS窗口，设想一下，如果它运行一些破坏性的命令会发生什么事情？这就是一个最基本的远程控制程序。当然，真正的黑客程序要复杂得多，但基本原理是相同的。现在你该恍然大悟了吧？ : N1 p* M4 o- c; Q

值得一顶，
, l5 a5 \5 c1 x9 J0 P8 _不过这个程序很脆弱的，真正的黑客程序要隐藏起来，那要用到很多的API，尤其是在2000和XP下边，是比较难做到的。在98里就比较方便了。上次我就在学校机房里偷过别人的帐号和密码的。女生的密码以数字为主，好像我偷到的没几个是用到字母的。
) |4 z2 |& T6 i$ t: a3 [
! y( a/ k8 p" K+ g

[此贴子已经被作者于2003-4-3 11:45:18编辑过]

煎饼

从初步开始呀，我从采访超过来的

多交流交流啊
! U. O- p( K$ `8 b' H+ E

是啊
机房的帐号很好盗的
2 N' O7 w5 K5 j) k& P- U3 c保密措施太懒了
不过出于个人品德
. R' `8 K. e9 C! ]- J6 f大家还是不要盗了
1 j9 T3 ?6 }( z2 Z- G4 @会让其他同学不安的

以下是引用丧心病狂在2003-4-3 11:44:54的发言：
& ]7 ^. R7 }7 R4 \' P值得一顶，
不过这个程序很脆弱的，真正的黑客程序要隐藏起来，那要用到很多的API，尤其是在2000和XP下边，是比较难做到的。在98里就比较方便了。上次我就在学校机房里偷过别人的帐号和密码的。女生的密码以数字为主，好像我偷到的没几个是用到字母的。
3 n: L' [0 D6 Z* V; }( A

[此贴子已经被作者于2003-4-3 11:45:18编辑过]

很无聊的啊~~居然做小偷，偶偷过一次工程女生的照片，被骂死了~~

hoho，厉害啊，好好学学！

是啊~~~成为真正黑客路还长啊~~要能自己编写操作系统，自己刻主板~哈哈~~偶太菜了的说

不过在NT内核下边，用正当手段根本无法隐藏进程，除非用API函数CreateRemoteThread在别的进程内部建立一个DLL线程，这样的话一般的人是无法发现这个东西了。

zero

vb的不懂

游侠无极限

VB做这个不太合适，主要是体积庞大，还一定要带个MSVBVBM60.DLL
不过优点就是比较简单

魔术师

以下是引用丧心病狂在2003-4-3 11:44:54的发言：
7 h# k  x) z" K) f值得一顶，
! o  K/ l3 Q, L, M$ ~0 L  j 不过这个程序很脆弱的，真正的黑客程序要隐藏起来，那要用到很多的API，尤其是在2000和XP下边，是比较难做到的。在98里就比较方便了。上次我就在学校机房里偷过别人的帐号和密码的。女生的密码以数字为主，好像我偷到的没几个是用到字母的。
( }& X3 z+ r8 L0 w; ~

  ?9 K; c4 Q' q- _& d6 u. [

[此贴子已经被作者于2003-4-3 11:45:18编辑过]

1 Y' }  a% F; t+ i% c
* J0 ^; q- e2 A. E哈哈
我是全字母的啊
7 N! h& T: v' f% d5 X$ \5 B最让你失望的是里面没钱呢

VB忘的差不多了……

hzzh

回9楼：
即使用CreateRemoteThread函数，你也还要用一个进程来启动安装DLL（上帝的第一次推动问题），如何隐藏运行启动的进程？把它放到注册表里？太明显了吧

回14楼：
& D! w4 @3 }* A. d+ g- s  z这个最简单也是最复杂了。最好的做法是把启动一个进程的代码加入到一个系统必须的可执行文件，如修改一个重要文件如explorer,再如XP的winlogon.exe(这个文件是用来验证XP是否激活的，所以一般的盗版XP这个文件都是损坏的，加个东西进去，骗他们说是用来激活的，他们还会谢天谢地了），有一种木马感染用于拨号的rasapi32.dll，只要你上网，它就会激活。真是太爽了。

starfire

我要好好学习！

不要小看VB，VB的功能很强的，尤其是快速地开发一个小型的程序应用。
8 m6 f/ U0 L7 Z5 J9 P2 r7 y$ E并且VB很容易上手的。问题是很多人是把它当成一门课来学，而不是一门计算机语言。
7 T- J4 `* Q: F$ r- n上课你可以投机取巧，但编程可就由不得你了。

雪狼2008

懂得VB这些也不再神秘！

过了2级没看过VB！！二级时VB也没学好

hater315

这么简单？！