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。