vb代码修改硬盘的分区序列号

 

      谁说VB的功能弱，看看这个程序！

       原本我的一个商用程序被破解了，气氛啊~~~ 程序只是将一些关键的注册信息是隐藏到注册表内的。反汇编后很容易被破解，我就想到通过修改这个硬盘分区的序列号来隐藏一些关键的信息虽然只有4个字节。作为动态的内部认证码。外部认证码通过硬件ID硬盘的物理序列号加密计算获得。

        通过这些处理增加了解密的复杂度，还是有一些效果的。主要是分区表信息文件操作的过程增加反汇编破解的复杂度。

      

（注：代码非关键技术代码，安全原因）

Option Explicit
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long


Private Sub ChkDrive_Click()
    
    CmbDrive.Clear
    If CBool(ChkDrive.Value) Then
        Dim objDrive As New ClsDriveType
        Call objDrive.ExecuteDriveUDisk
    Else
        Call Form_Load
    End If
    
End Sub

Private Sub CmbDrive_Click()