EXCEL VBA加密代码 为自己的程序加密

twtjerdf

Dim dat As Date
     Dim Str As String
   '**************************************************************************************************************************************
     Open "c:\***\**\***" For Input As #1
     Do While Not EOF(1)
       Input #1, Str
         Loop
    Close #1
      If (Str = "***" Or Str = "***") Then
    Else
    ActiveWorkbook.ChangeFileAccess xlReadOnly
    MsgBox "指定序列号读取不正确!"
      Kill ActiveWorkbook.FullName
      ThisWorkbook.Close False    '不保存关闭工作薄
    End If
   '**************************************************************************************************************************************
     Str = GetObject("winmgmts:").ExecQuery("Select ProcessorID From Win32_Processor ")("Win32_Processor.DeviceID='CPU0'", 1).ProcessorID
     If (Str = "BFEBFBFF000***") Or (Str = "BFEBFBFF00***") Then
   MsgBox GetObject("winmgmts:").ExecQuery("Select ProcessorID From Win32_Processor ")("Win32_Processor.DeviceID='CPU0'", 1).ProcessorID, 64, "CPU序列号"
      Else
      ActiveWorkbook.ChangeFileAccess xlReadOnly
      MsgBox "CPU序列号不正确！"
        Kill ActiveWorkbook.FullName
       ThisWorkbook.Close False
      End If
'*********************************************************
      dat = ("2013-7-1")
       If Date > dat Then
        ActiveWorkbook.ChangeFileAccess xlReadOnly
       MsgBox "使用期限已到！"
        Kill ActiveWorkbook.FullName
        ThisWorkbook.Close False
    End If  

程序目的：有时大家辛辛苦苦用VBA写了一些批量处理程序，要给身边的朋友使用，但又不想被其他人用，
         所以就要学习VBA的加密技术。基于此，将本人写的加密代码上传，仅供学习交流之用！
程序说明：程序包括读取指定文本中的序列号、绑定CPU序列号和限制使用时间；经测试在EXCEL 07和EXCEL 10下都可以运行

feitian99

相当给力 顶一个

stonefqy

学习了！