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

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

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

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

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

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

Option ExplicitPrivate Declare Function GetDriveType lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As LongPrivate Declare Function GetLogicalDriveStrings lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long,ByVal lpBuffer As String) As LongPrivate 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 SubPrivate Sub CmbDrive_Click()    Dim obj As New diskSerialNumberChanger    TxtSerial.Text = Right("00000000" & Hex(obj.GetDriveSerial(CmbDrive.Text)),8)        Dim objDrive As New ClsDriveType    Lab(2).Caption = objDrive.GetDriveTypename(CmbDrive.Text)End SubPrivate Sub CmdDrive_Click()'*中央错误处理On Error GoTo PROC_ERR    Dim strMessage As String    Dim sSerial As String    sSerial = TxtSerial.Text    If Len(sSerial) <> 8 Then        strMessage = "非四个字节的十六进制字符"        MsgBox strMessage,vbExclamation        GoTo PROC_EXIT    End If        Dim objBin As New ClsBin    If Not objBin.IsHexByteLen(sSerial) Then        strMessage = "非四个字节的十六进制字符"        MsgBox strMessage,vbExclamation        GoTo PROC_EXIT    End If        Dim obj As New diskSerialNumberChanger    If obj.ChangeDriveSerial(CmbDrive.Text,CLng("&H" & TxtSerial.Text)) Then        If obj.GetfileSystemname(CmbDrive.Text) = "fat32" Then            MsgBox "修改成功！请执行读取验证"        Else            MsgBox "修改成功！请执行读取验证" & vbCrLf & _                   "系统文件为NTFS格式，请从新启动计算机后，在读取验证"        End If    Else        MsgBox "修改失败！"    End If        '*结束子程序PROC_EXIT:    Exit Sub'*错误处理，显示出错信息PROC_ERR:    MsgBox "     ErrNumber: " & Err.Number & vbCrLf & _           "ErrDescription: " & Err.Description & vbCrLf & _           "        Module: " & "ClsRs" & vbCrLf & _           "     Procedure: " & "CmdDrive_Click"    GoTo PROC_EXITEnd SubPrivate Sub Form_Load()    Call ExecuteDriveUdisk        Dim sInfo As String    sInfo = sInfo & "说明：硬盘序列号是格式化时，windows *** 作系统分配的。" & vbCrLf    sInfo = sInfo & "       若系统文件格式是NTFS，重新启动后生效。" & vbCrLf    sInfo = sInfo & vbCrLf    sInfo = sInfo & "作者：段利庆(Lee) QQ:14035344" & vbCrLf    sInfo = sInfo & "网址：：http://www.duanliqing.kudo.cn" & vbCrLf    Lab(3).Caption = sInfoEnd Sub

作者：段利庆（Lee） QQ：14035344

如果需要这个修改盘符硬盘序列号的小工具 可以Q我或 发送电子邮件到我的邮箱duanliqing@sohu.com

硬盘序列号修改工具下载地址：http://good.gd/759048.htm

硬盘序列号修改工具V1.0.0.2下载地址：http://good.gd/760680.htm

硬盘序列号修改工具V1.0.0.7下载地址：http://good.gd/765073.htm

总结

以上是内存溢出为你收集整理的vb代码修改硬盘的分区序列号全部内容，希望文章能够帮你解决vb代码修改硬盘的分区序列号所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。