怎么实现运行的程序删掉自己?(100分)

  • 主题发起人 主题发起人 zycjf
  • 开始时间 开始时间
Z

zycjf

Unregistered / Unconfirmed
GUEST, unregistred user!
一些程序运行后就能自动删除,如何实现?
 
(计算机世界报上的文章）

---- 以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;
 
什么????!!!!!!!

这是计算机世界报上的文章??????!!!!!!!

这明明是我写的代码!!!!一个字都没改!!!!!

我的发言在这里;
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=132977

cheka: 你说的文章自计算机报那一期? 地址在哪里?
 
CAKK这个方法的确非常妙，分数应该由他全得。
我上次也遇到这个问题，不过不一样，我要改名。：）在没有办法时采用了一个权宜之计。
有兴趣可以看看我写的ASPack 2的破解程序在<a href="http://glowing.yeah.net">我的主页中</a>。
 
分到不重要,关键是我想知道谁拿我写的代码去挣稿费了.

cheka: 告诉我在哪里看到这篇文章好吗?
 
真好玩儿。:^)
 
;支持cAkk采取法路程序 {B-)))
 
这样的话岂不是又生成一个delme.bat,像sub7 server那样删掉自己又不留痕迹该
怎么实现?
 
你比较粗心,没看到这句话吗?
writeln(f,'del ./delme.bat');
 
挣稿费，搞活经济，Cakk就不要生气了！
 
cAkk稍安勿躁，这是我在网上找到的一篇文章，也可能不是计算机世界报的，
但应该是某篇杂志上的。

用Delphi制作能够干净地删除自己的程序
cakk2000@...
[请作者提供详细的邮政地址给我们]
---- 我们经常遇到这样的软件，运行之后就消失的无影无踪，特别是一些黑客的木马工具。如果我们能掌握这个技术，即使不做黑客工具，也可以在程序加密、软件卸载等方面发挥作用。那么他们是怎样实现的呢？

---- 以delphi为例，在form关闭的时候执行以下函数closeme即可：
以下为代码。。。。。。
 
在什么地方? cakk2000是我的邮件地址.
 
找到了，

在http://www.ccw.com.cn/99/tips/9910/101302_05.asp

文章仅发表在网络上，好像是没稿费的，作者署名cakk2000... 跟你的有点象艾
 
cakk2000的确是我的地址,可能是有人帮我发表了. :-)

其实我也没想挣稿费,不然我干脆自己去发表了. 你说的这个站点我已经
发表几篇文章了,但总是说"请作者提供详细地址",其实早提供给他们了.
谁知道搞什么名堂. :-)
 
我一年前也写过两篇，但到现在一分银子都没拿到 :-(
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
X
我想实现想oicq那样运行安装程序之后把程序写到程序－启动里，每次开机都自动运行，想删除呢，就在启动中删除就不自动启动了，实现这个功能打包时怎么设置呢？(35分
回复
17
查看
439
xiaoxiami0
X
T
但是如何丛“添加删除程序”中自动调出运行删除程序呢？？？(200分)
回复
5
查看
205
torrentwang
T
X
极难问题：菜鸟想问如何实现如下功能，我的程序运行之后，如果用户10分钟没有动鼠标、键盘，程序将自动关闭，如何实现？？给菜鸟发个例子也行，chenglong567
回复
7
查看
181
laoyj
L
W
怎样使自己做的程序运行在win2000 server的服务里？(45分)
回复
2
查看
217
wanglonga
W
后退
顶部