给VB程序加密

"GetPrivateProfileStringA" (ByVal lpApplicationName As String,ByVal lpKeyName As Any,ByVal lpDefault As String,ByVal lpReturnedString As String,ByVal nSize As Long,ByVal lpFileName As String) As Long

Dim key as String＊255

c=GetPrivateProfileString("user","password","false",key,255,"c:\windows\user.ini")

If key="false" then

MsgBox"文件不存在或没有该字段"

Else: Form1.Print"The password is ";key

该函数将文件user.ini中password的值（即你设定的密码）赋予key，若发生错误（文件不存在或没有该段名）则key的值为“false”，注意一定要声明变量key的长度并与函数中的值一致。这样你就可以将key与登录密码进行对照或直接处理key的值来决定是否继续运行程序。

使用ini文件存储密码还有一个好处，就是设计者可以建立几个段名来存储不同的密码，从而可实现多用户登录。

5.在注册表中标记密码可能是保护你的劳动成果的最高境界了。主要方法是在注册表中创建一个键名，在键值里存放你的密码，以后运行时则取出该数据进行验证或处理，当满足条件时终止程序。可以认为注册表是"以乱取胜"，只要你选择到一个隐蔽的位置做标记或存放数据，不用做任何加密算法的处理都应该是比较安全的。令人惊喜的是VB很容易利用API操作注册表。这里只简单介绍几个API函数，大家只要参照函数说明，正确引用变量传递数据，不需要任何技巧就可操作注册表。

RegCreateKeyEx：创建关键字，如果关键字已存在，则将只简单地将它打开

RegOpenKey：用于打开某键

RegSetValueEx：打开某键后，用于设置其键值

RegQueryValueEx：查询一个存在的值，如果此函数调用成功，会返回ERROR_SUCCESS标志

制作限时版只要会用几个函数如day、month、year、date就行了。例如到了2001年就不能执行程序：

a=Year(Date)

if a>=2001 then MsgBox"对不起，该软件已过期":End

你还可以用前面的方法使条件满足时在硬盘上作个标记，而用户通过修改系统时间、重新安装也不能再使用软件。

怎么样？学会了对硬盘的简单读写操作，这些东东一点也不神秘了吧！虽然不是很高明，但很多软件都确实使用这种方法进行简单加密；随着解密手段越来越高明，单一加密方法已成为过去，一些软件同时在ini文件和注册表等地方做标记，当然不是简单的把你输入的保存起来，win9x拨号上网时如果选择保存密码也会在硬盘上生成user.pwl文件，不过该文件加了密，强行用文本编辑器打开时只会看到些乱码。哈哈，又心痒痒想学其他招数了吧！

**************************************************************************************

让软件只能在软盘上运行

利用App对象的Path属性返回可执行文件的路径进行判断。