module1.bas

用来加密mdb文件

Attribute VB_Name = "Module1"
Option Explicit
  '加密模块
 Dim tou As String * 12
 Dim str1 As String * 12
 
  Public Function Jiami(HTmdbPath As String)
  tou = "wangbaocun05"
  On Error Resume Next
  Open HTmdbPath For Binary Access Read As #1
  Get #1, 5, str1
  Close #1
  If str1 = "Standard Jet" Then
  Open HTmdbPath For Binary Access Write As #1
  Put #1, 5, tou
  MsgBox "加密成功", vbOKOnly, "解密文件"
  Else
  MsgBox "加密文件错误,已加密或不是正常的MDB文件!", vbOKOnly, "加密文件"
  End If
  Close #1

  End Function
    
  '解密模块
  Public Function Jiemi(HTmdbPath As String)
      tou = "Standard Jet"
        On Error Resume Next
      Open HTmdbPath For Binary Access Read As #1
      Get #1, 5, str1
      Close #1
             If str1 = "wangbaocun05" Then
                Open HTmdbPath For Binary Access Write As #1
                Put #1, 5, tou
                MsgBox "解密成功", vbOKOnly, "加密文件"
             Else
                MsgBox "解密文件错误,已解密或不是正常的原加解文件", vbOKOnly, "解密文件"
             End If
      Close #1
  End Function