网上文摘 最近更新 下载排行 资源分类 下载指南
经典编程资源 精彩不容错过
设为首页
加入收藏
联系我们
当前位置:Delphi园地技巧文章编程心得 → Delphi编程保护共享软件
Delphi编程保护共享软件
日期:2004-12-28 作者: 人气: 查看:[大字体 中字体 小字体]

共享软件作者中有很多是使用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的信息,其中的lblMainBoardBiosNamelblMainBoardBiosCopyRightlblMainBoardBiosDatelblMainBoardBiosSerialNo都是TLabel

(出处:www)

相关文章:
·通过代码调用Windows 屏幕保护程序
·电力系统继电保护技术的现状与发展 工学论文
·低钾保护液对离体肺保护的实验研究 医科论文
·我国自然保护区级别划分标准的研究 理工论文
·保护软件著作权要注意避免的思路误区
·软件保护建议
·武汉白鱀豚保护基金会
·DELPHI面向对象支持特点--保护级类成员的应
·计算机软件保护条例
·人工神经网络应用于继电保护的探讨 工学论文
 → 特别推荐
 → 热点TOP10
关于我们 | 广告服务 | 发布资源 | 联系站长 Copyright 2001-2012 Delphi园地 All Rights Reserved