如何写自毁文件?(100分)

W

weihang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-10

• #1

在下新手,多多包涵.
我需要写一个setup,
用完就自毁,防止非法拷贝,
汇编的我见过,但看不懂,请问delphi下
如何实现?(请不要用asm,我不懂汇编);
大虾们,多谢了!

 

方

方栩

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-10

• #2

这样恐怕不太好吧:
如果用光盘作介质,你毁也毁不掉;
如果用软盘作介质,别人在你删除前把软盘写上保护你怎么办?
难道你先判断是否为写保护状态,强迫别人打开写保护?
多累呀.再说如果想非法拷贝,还先运行你的setup干吗?
先copy一份就行了.

 

Z

zhangc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-10

• #3

高见，写这种程序没有用处，搞不好象KV300一样自己给自己找麻烦。

 

W

weihang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-10

• #4

我的意思是我一般软盘上文件都是压缩的
俺穷,卖不起太多盘,是解压到硬盘上后
再实现上述功能的.

 

方

方栩

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-10

• #5

压缩不压缩无所谓,你想,只要你的程序在软盘上存在而又没有在硬件上做文章,
别人只要把你的软盘完完整整地复制一份不就行了?比如
用HD-COPY.也就是说,除非你专门做钥匙盘,运行setup时
读钥匙盘才能(一定程度上)达到防盗版的目的,但如果
这样,你还删setup.exe干吗呢?

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-10

• #6

还是有用的，比如有些黑客木马运行后可以将自己删除，我讲一个简单
的方法，百试百灵，准备给分吧！呵呵：
在你的程序的onclose里面执行下面的函数：
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;

 

W

weihang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-10

• #7

多谢多谢,

 

W

weihang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-10

• #8

多人接受答案了。

 

方

方栩

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-10

• #9

cAkk果然好办法!

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-10

• #10

最好用程序B删除/修改程序A，自己修改自己被室为病毒。