用VB给商品软件加密的方法

• 
  　　用VB给商品软件加密的方法
  重汽内饰件厂微机室
  孔海菁
  ---- 近几年来，笔者参与了几个商品软件的开发设计，其中如何加密软件确是个值得研究的课题，而对于小软件来说，采用加密狗进行加密是很不经济的。为此，笔者想出一妙法，在程序里完成对软件加密，这样既方便又经济，现介绍如下，望能与大家一起分享。
  
  ---- 设计原理：
  
  ---- 软件加密的目的是为了防止盗用者拷贝软件，一般拷贝软件时，只会拷贝程序所在的目录的内容，根本不会想到其他目录里还会有与程序有关的文件，特别是文件放在WINDOWSSYSTEM目录里，更是无从下手。这样，我们设计了两个文件，一明一暗，明的放在程序所在的目录，命名为mscredit.ini，其内容为：
  
  ---- @-version=2.0-1999-copyright-@
  
  ---- 安装软件时，应先删除mscredit.ini左边的“@”，程序自动创建c:windowssystemdbcredit.ini文件，并在mscredit.ini里再写入左边的“@”符号，以后每次使用软件时，检查隐藏的c:windowssystemdbcredit.ini文件是否存在，只有此文件存在时软件才能正常运行。此设计关键在于，这一明一暗两个文件同时存在，程序才能正常运行。
  
  ---- 主程序
  
  Private Sub Form_Load()
  Dim kk, ms As String, vt As Integer
  ’若mscredit.ini因误操作删除，则软件不能正常运行
  If Dir(App.Path & "mscredit.ini") = "" Then
     kk = MsgBox("本软件已不能正常运行,
  请检查软件的合法性！", vbInformation, "    提示")
    Exit Sub
  End If
  ’若mscredit.ini因误操作删除其内容，
  则软件不能正常运行
  Open App.Path & "mscredit.ini" For Input As #1
  Input #1, ms
  Close #1
  ms = Trim(ms)
  If ms = "" Then
     kk = MsgBox("本软件已不能正常运行,
  请检查软件的合法性！", vbInformation, "提示")
     Exit Sub
  End If
  If Left(ms, 1) < > "@" Then
  ’安装使用本软件，自动创建dbcredit.ini文件，
  并在mscredit.ini里写入“@”符号
     vt = write_sys_init("CopyRight", "Version", "2.0")
     Open App.Path & "mscredit.ini" For Output As #1
     ms = "@" & ms
     Print #1, ms
     Close #1
  Else
  ’使用本软件，若dbcredit.ini因误操作
  删除其内容，则软件不能正常运行
     If Dir("c:windowssystemdbcredit.ini") = "" Then
        kk = MsgBox("本软件已不能正常运行,
  请检查软件的合法性！", vbInformation, "提示")
        On Error Resume Next
        Kill App.EXEName
        On Error GoTo 0
        Exit Sub
     End If
  End If
  End Sub
  
      调用函数
  Public Function write_sys_init
  (gs As String, ss As String, sval As String)
  As Integer
  Dim retv as String
  write_sys_init = 0
  On Error Resume Next
  retv=OSWritePrivateProfileString
  (gs,ss,sval,"c:windowssystemmscredit.ini")
  If Err Then
     Err = 0
     write_sys_ini = -1
  End If
  On Error GoTo 0
  End Function
  
  ---- 本程序在VB5.0、WIN95下调试通过。
  
• [1] [2] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 用VB给商品软件加密的方法 相关文章：
• ·用VB给商品软件加密的方法
• 用VB给商品软件加密的方法 相关软件

上一篇:用vb将word文档（或其他的二进制数据）生成xml文件并互相转换

下一篇:用VB创建FTP组件(put)

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐