给VB程序加密(2)

给VB程序加密

If b>100 Then MsgBox "对不起，您只能使用本软件100次！":End

注释：提示用户使用次数并退出程序 c=b＋1 注释：计数器加1 Open("c:\abc.abc") For Output As ＃3 Print ＃3,c 注释：将加1后的数值写入文件

Close ＃3

Exit Sub

sss:

Open("c:\abc.abc") For Output As ＃2

Print ＃2,1 注释：建立文件，并写入数值1

Close ＃2

End Sub

4.大家一定对win.ini和system.ini文件很熟悉吧，它是一种专门用来保存应用程序初始化信息和运行环境信息的文本文件，Windows软件的初始化参数的获取与保存是通过读取扩展名为.ini的文本文件来实现的。目前很多软件干脆就把软件密码保存在自己的ini文件中。VB只要利用API的GetPrivateProfileString和WritePrivateProfileString两个函数就可以很方便地读写ini文件，从而可以保存、读出和验证密码。首先认识一下ini文件。 ini文件的形式为：

[section1]

keyword1=value1

keyword2=value2

[section2] keyword1=value1 keyword2=value2

section是段名，keyword是关键字名，value为关键字对应的设定值

首先用WritePrivateProfileSection创建新的段名和关键字名：

Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String,ByVal lpString As String, ByVal lpFileName As String) As Long

Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String,ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

A=WritePrivateProfileSection ("user","password","c:\windows\user.ini")

在windows目录下的user.ini文件中创建新段名user及该段名下的关键字password，如果目录下没有user.ini文件，则创建该文件

B=WritePrivateProfileString ("user","password","1234","c:\windows\user.ini")，设定关键字user的值为1234。这样在你的user.ini文件就会多出一段：

[user]

password=1234

利用GetPrivateProfileString函数可以读出password的值：

Declare Function GetPrivateProfileString Lib "kernel32" Alias