为自己的应用程序加密

猪猪

信息来源 ：网络   作者：河北/王学军

这种加密的原理是：程序运行时在预定的路径下寻找特定的文件，如果没找到让程序中止运行。这种加密一般要配合安装程序进行，在软件的安装过程中埋设这一特定文件（特定文件内容随意），这样，没有软件安装程序的用户直接用拷贝的方法得到你的软件将不能运行。这里给出的示例用到的特定文件为 winu.ocx 埋设在 windows 的系统目录下。
　　本示例在VB60中调试通过。　

'首先在启动窗体加入API私有声明GetSystemDirectory

1. Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
   
2. 
   
3. Private Sub Form_Load()
   
4. Dim a, b As Integer
   
5. Dim SysDIR As String * 100
   
6. Dim SYSDIR1 As String
   
7. Form1.Show
   
8. '得到windows系统目录SYSDIR1
   
9. a = GetSystemDirectory(SysDIR, 100)
   
10. SysDIR = Left(SysDIR, a)
    
11. a = Len(SysDIR)
    
12. b = 1
    
13. Do While b <= a
    
14. If Mid(SysDIR, b, 1) = " " Then Exit Do
    
15. b = b + 1
    
16. Loop
    
17. SYSDIR1 = Mid(SysDIR, 1, b - 1)
    
18. '检测特定文件是否存在
    
19. If Dir$(SYSDIR1 + "\WINU.OCX") = "" Then
    
20. a = MsgBox("无法验证你的合法使用" + Chr(13) + "请用安装程序重新安装", 0 + 48 + 0 + 0)
    
21. End
    
22. End If
    
23. End Sub

复制代码