[摘要]
本文介绍了在Delphi中利用系统函数和Windows API函数配合Delphi中的DataTimePicker组件来获取和修改文件的时间信息的方法以达到软件信息的简单加密
谈到文件加密已经有很多方法了但传统的文件型加密方法都存在一些不足例如让人头痛的密码技术复杂的全文加/解密算法会产生垃圾文件的暗贴技术等等这里我向大家介绍一种新的文件加密思路在Win /中选定一个文件后单激鼠标右键可以查看文件的属性其中会列出该文件的创建时间修改时间和访问时间这些信息的设置一般都是由操作系统（也就是由Dos/Windows等等）自动完成的不会让用户轻易修改利用这一特性就可以实现很隐蔽的加密技术
加密原理用特定的时间信息替换原来的文件时间信息
解密原理获取已加密文件的时间信息与特定时间信息比较如相同则说明该文件是合法的如不同则说明该文件属于过期或盗版软件
以上简单介绍了文件时间属性的修改方法利用这种方法可以起到简单的软件加密例如假设某个软件或游戏执行完后存储了一些存档文件则操作系统会自动设置该文件的修改时间那么稍有经验的用户就可以用Windows中的查找文件功能找到最后被修改的文件如果该文件是记录密码或用户信息的文件（实际上很多情况都是这样）后果简直不堪设想另外如果适当设置文件的创建修改时间和访问时间例如保持三者之间为一定的时间间隔就可以作为加密的一种好手段运行主软件时只要动态的检测一下文件时间是否满足特定的要求就知道该软件是否过期或属于盗版软件从而达到加密和保护软件的目的并且不会产生垃圾文件
以下介绍具体实现方法
利用Delphi中的FindFirst函数可以得到一个文件的属性记录该记录中的FindData域中就记载了详细的文件时间信息FindData中的时间信息不能直接得到利用本文源程序中的CovFileDate函数可以完成文件时间格式的转换
设置文件的时间要复杂一些利用Delphi中的DataTimePicker组件来辅助完成这一复杂的操作可以利用四个DataTimePicker组件来完成文件创建时间和修改时间的设置注意文件的访问时间用修改时间来代替
使用下面的例子时请在您的Form上添加四个DataTimePicker组件其中第一和第三个DataTimePicker组件中的Kind设置为dtkDate第二个和第四个DataTimePicker组件中的Kind设置为dtkTimeDateMode设置为dmUpDown
备注修改文件时间的范围是从公元年月日开始的上限可以达到公元年或更高另外请不要将此技术用于破坏他人文件等非正当途径
