您现在的位置：首页 >> 硬件系统 >> 硬件系统 >> 内容

Delphi中几种程序自我删除的方法(2)

时间：2011/9/3 15:21:04 点击：

第二种：(系统控制批处理方式)
我们经常遇到这样的软件,运行之后就消失的无影无踪,特别是一些黑客的木马工具。
如果我们能掌握这个技术,即使不做黑客工具,也可以在程序加密、软件卸载等方面发挥作用。
那么他们是怎样实现的呢？ ---- 以delphi为例,在form关闭的时候执行以下函数closeme即可。 procedure TForm1.closeme;
var f:textfile;
begin
assignfile(f,'.\delme.bat');
rewrite(f);
writeln(f,'@echo off');
writeln(f,':loop');
writeln(f,'del "'+application.ExeName+'"');
writeln(f,'if exist .\file.exe goto loop');
writeln(f,'del .\delme.bat');
closefile(f);
winexec('.\delme.bat', SW_HIDE);
close;
end;

winexec(pchar('command.com /c del '+ParamStr(0)),SW_MINIMIZE);//最小化执行删除操作，否则将看到DOS窗口的瞬间闪烁

上一页1234下一页

Tags:几种 程序 自我 删除 删除的 方法 
作者：网络　来源：转载
  • 上一篇：Delphi复制自身自我复制代码
  • 下一篇：利用Delphi编写Windows外壳扩展
    • 共有评论 0 条相关评论
    发表我的评论
    • 大名：
    • 内容：
  • 盒子文章(www.2ccc.com) © 2024 版权所有 All Rights Reserved.
  • 沪ICP备05001939号