为程序加密[转帖]

beibeijia

为自己的应用程序加密


　　这种加密的原理是：程序运行时在预定的路径下寻找特定的文件，如果没找到让程序中止运行。这种加密一般要配合安装程序进行，在软件的安装过程中埋设这一特定文件（特定文件内容随意），这样，没有软件安装程序的用户直接用拷贝的方法得到你的软件将不能运行。这里给出的示例用到的特定文件为 winu.ocx 埋设在 windows 的系统目录下。
　　本示例在VB60中调试通过。　
'首先在启动窗体加入API私有声明GetSystemDirectory，
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Form_Load()
Dim a, b As Integer
Dim SysDIR As String * 100
Dim SYSDIR1 As String
Form1.Show
'得到windows系统目录SYSDIR1
a = GetSystemDirectory(SysDIR, 100)
SysDIR = Left(SysDIR, a)
a = Len(SysDIR)
b = 1
Do While b <= a
If Mid(SysDIR, b, 1) = " " Then Exit Do
b = b + 1
Loop
SYSDIR1 = Mid(SysDIR, 1, b - 1)
'检测特定文件是否存在
If Dir$(SYSDIR1 + "\WINU.OCX") = "" Then
a = MsgBox("无法验证你的合法使用" + Chr(13) + "请用安装程序重新安装", 0 + 48 + 0 + 0)
End
End If
End Sub


做数据库是否也可以参考呢？

qfyyc

这个方法我也想过，但是如果被人发现了，很容易破解的。请看以下的方法。
http://www.office-cn.net/bbs/dispbbs.asp?boardID=2&ID=13196