Delphi编程保护共享软件

共享软件作者中有很多是使用Delphi进行编程的，大家都不希望自己的软件被注册机破解吧，这里交给大家一个好方法，如果程序运行的时候发现有注册机之类的程序就自己把自己删除，这样就可以在一定程度上防止注册机。

程序自己删除自己的代码如下所示：

procedure KillSelf;

var

f:textfile;

begin

assignfile(f,''./killme.bat''); //在程序目录下新建一个bat文件

rewrite(f); //开始向这个bat文件写入内容

writeln(f,''@echo off'');

writeln(f,'':loop'');

writeln(f,''del""''+application.ExeName+''""'');

writeln(f,''if exist ./file.exe goto loop'');

writeln(f,''del./killme.bat'');

closefile(f); //写入内容结束

winexec(''./killme.bat'', SW_HIDE); //调用删除自己bat文件，

close; //关闭自己

end;

我们还可以用Delphi调用Bios的信息用在共享软件的注册码加密上面，当然，不能只用这个Bios的信息作注册码，这样是非常容易被破解的，你自己需要设计一系列算法，来对Bios信息进行加密。详细代码如下：

procedure GetBiosInfo;

begin

lblMainBoardBiosName.Caption :=^I+string(Pchar(Ptr($FE061)));

lblMainBoardBiosCopyRight.Caption :=^I+string(Pchar(Ptr($FE091)));

lblMainBoardBiosDate.Caption :=^I+string(Pchar(Ptr($FFFF5)));

lblMainBoardBiosSerialNo.Caption :=^I+string(Pchar(Ptr($FEC71)));

end;

把这段程序加入到你的程序中，你可以获得一系列主板Bios的信息，其中的lblMainBoardBiosName，lblMainBoardBiosCopyRight，lblMainBoardBiosDate和lblMainBoardBiosSerialNo都是TLabel。