- 博客(4)
- 资源 (1)
- 收藏
- 关注
原创 提取硬盘ID号
function GetIdeSerialNumber : pchar;const IDENTIFY_BUFFER_SIZE = 512;type TIDERegs = packed record bFeaturesReg : BYTE; // Used for specifying SMART "commands". bSectorCountReg : BYTE; //
2009-07-31 17:45:00
506
原创 程序加密方法
1、检测主程序大小,防止破解补丁之类:Function TForm1.GesSelfSf: integer;varF: file of byte;begin Filemode:=0; Assignfile(F,./FileName.exe); Reset(f); Result:=Filesize(F); Closefile(F);end;2、检测创建日期和时间,让破
2009-07-31 17:44:00
638
原创 软件的安全性
软件的安全性是个永恒的话题,一直困扰着人们,程序员们常常因此熬夜。Novell 公司的网络操作系统NetWare 以其完善可靠的安全管理机制著称,为实现用户登录的安全性和防止非法入侵者闯入,系统提供了几种有效的限制措施和检测功能。本文讨论如何建立完善的软件注册安全机制,有效地管理用户登录,为应用软件提供可靠的保护,并在Delphi下实现。 Delphi 作为一个优秀的编程工具,功能极其强大
2009-07-31 17:42:00
997
原创 确定程序是否运行
本例中TRegistry是关键类,Delphi 4.0不能自行加入,需在uses部分手工加入“registry”,通过其方法“ReadString”和“WriteString”来读出和写入字符,亦可通过其方法“ReadDate”和“WriteDate”来读出和写入日期。 程序第一次运行就写入其运行时间,应用期限为30天,超过30天就不再运行。全局变量NoRegistry、SpareDays来
2009-07-31 17:41:00
325
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人